home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol147 / file-ext.a86 < prev    next >
Encoding:
Text File  |  1984-04-29  |  7.2 KB  |  412 lines
  1. ; 
  2. ;                   FILE-EXT.A86 Version 1.0
  3. ;
  4. ;                           as of
  5. ;
  6. ;                     March 29, 1982  
  7. ; 
  8. ;
  9. ;
  10. ;  Originally  named  FILES.ASM,  and  from a  disassembly  by 
  11. ; "J.A.P"  of January 23,1980...FILE-EXT.A86 will display  the 
  12. ; selected disk's directory entries in the form:
  13. ; 
  14. ; User Pro Filename.Typ R/OSysRes exs1s2rc <---------Group--------->
  15. ; ==================================================================
  16. ;
  17. ; Where:
  18. ;
  19. ; "User" is the User assignment for the file.
  20. ; "Pro" is the "proprietary software" control bit.
  21. ; "Filename" is the ASCII file name.
  22. ; "Typ" is the ASCII file type.
  23. ; "R/O" is the "read only" control bit
  24. ; "Sys" is the "system directory" control bit
  25. ; "Res" is the "reserved" (MP/M Ver.1.0) control bit
  26. ; "ex" is the "file extension" byte
  27. ; "s1" is a CP/M "internal function" byte.
  28. ; "s2" is a CP/M "internal function" byte
  29. ; "rc" is the "record count" byte.
  30. ; "Group" is the "allocation vector table" for the file.
  31. ; 
  32. ;  The "hack-job" I did on this one was less than  ideal,  but 
  33. ; none the less, it get's the job done...the display format is 
  34. ; now  alot  cleaner,  and  it  does'nt  "warm  boot"  as  the 
  35. ; FILES.ASM version did...
  36. ; 
  37. ;  The  program will display the disk directory of the  logged 
  38. ; on  disk,  including all the Hexadecimal information on  the 
  39. ; groups. 
  40. ; 
  41. ;  On  the  subject  of  "hack-job's"  of  software,  read  an 
  42. ; interesting  article  in  Psychology  Today  magazine,  "The 
  43. ; Hacker  Papers;  Computer  Addiction:  Reflection on  a  New 
  44. ; Obsession"...August 1980 issue, pages 62-69.
  45. ; 
  46. ;                               Best regards,
  47. ; 
  48. ;                               Kelly Smith, CP/M-NET (tm)
  49. ;                               805-527-9321 (Modem, 300 Baud)
  50. ;                               805-527-0518 (Verbal)
  51. ; 
  52.     ORG    0100H
  53.  
  54. M    EQU    BYTE PTR 0[BX]
  55.  
  56. BDOS    EQU    05H
  57. TBUFF    EQU    80H
  58. ;
  59. CR    EQU    0DH            ;ASCII CARRIAGE RETURN
  60. LF    EQU    0AH            ;ASCII LINE FEED
  61. ;
  62. ;
  63.     JMP    BEGIN            ;IF VERSION O.K., PRESS ON
  64. ;
  65. ;    SYSTEM SUBROUTINES
  66. ;
  67. ;    PRINT STRING FROM D&E REGS.
  68. ;
  69. PRINT:    MOV    CL,9
  70.     INT    224
  71.     RET
  72. ;
  73. ;    DISPLAY A CHAR FROM (A)
  74. ;
  75. DISPLAY:
  76.     PUSH    CX
  77.     PUSH    DX
  78.     PUSH    BX
  79.     MOV    CL,2
  80.     MOV    DL,AL
  81.     INT    224            ;
  82.     POP    BX
  83.     POP    DX
  84.     POP    CX
  85.     RET
  86. ;
  87. ;    SEARCH FOR A FILE
  88. ;
  89. SEARCH:                ; 
  90.     PUSH    CX
  91.     PUSH    DX
  92.     PUSH    BX
  93.     MOV    CL,11H
  94.     MOV    DX,(Offset AFN)        ;
  95.     INT    224            ;
  96.     MOV    Byte Ptr RESULT,AL    ;
  97.     POP    BX
  98.     POP    DX
  99.     POP    CX
  100.     RET
  101. L_2    EQU    $
  102.     DSEG
  103.     ORG    Offset L_2
  104. ;
  105. ;    AMBIGUOUS FILENAME.TYP
  106. ;
  107. AFN    RS    0            ; 
  108.     DB    '?????????????'
  109. RESULT    RS    0            ; 
  110.     DB    0            ;STORAGE FOR RESULT OF BDOS CALL
  111. L_3    EQU    $
  112.     CSEG
  113.     ORG    Offset L_3
  114. ;
  115. ;    FIND NEXT OCCURRENCE OF FILE
  116. ;
  117. NEXTFILE:                ; 
  118.     PUSH    CX
  119.     PUSH    DX
  120.     PUSH    BX
  121.     MOV    CL,12H
  122.     MOV    DX,(Offset AFN)        ;
  123.     INT    224            ;
  124.     MOV    Byte Ptr RESULT,AL    ;
  125.     POP    BX
  126.     POP    DX
  127.     POP    CX
  128.     RET
  129. ;
  130. ;    GET INPUT FROM CONSOLE
  131. ;
  132. CONIN:                    ; 
  133.     PUSH    CX
  134.     PUSH    DX
  135.     PUSH    BX
  136.     MOV    CL,1
  137.     INT    224            ;
  138.     POP    BX
  139.     POP    DX
  140.     POP    CX
  141.     RET
  142. ;
  143. ;    CONVERT A BYTE IN (A) TO TWO PRINTED CHARACTERS
  144. ;
  145. HEXASC:                ; 
  146.     CMP    AL,0AH
  147.     JB    HEXA2            ;
  148.     ADD    AL,'7'            ;
  149.     CALL    DISPLAY            ;
  150.     RET
  151. HEXA2:                    ; 
  152.     ADD    AL,'0'            ;
  153.     CALL    DISPLAY            ;
  154.     RET
  155. HEXCON:                ; 
  156.     LAHF
  157.     XCHG    AL,AH
  158.     PUSH    AX
  159.     XCHG    AL,AH
  160.     RCR    AL,1
  161.     RCR    AL,1
  162.     RCR    AL,1
  163.     RCR    AL,1
  164.     AND    AL,0FH
  165.     CALL    HEXASC            ;
  166.     POP    AX
  167.     XCHG    AL,AH
  168.     AND    AL,0FH
  169.     CALL    HEXASC            ;
  170.     RET
  171. ;
  172. ;    NEWLINE
  173. ;
  174. CRLF:                    ; 
  175.     MOV    AL,CR
  176.     CALL    DISPLAY            ;
  177.     MOV    AL,LF
  178.     CALL    DISPLAY            ;
  179.     RET
  180. ;
  181. ;    PRINT A SPACE
  182. ;
  183. SPACE:                    ; 
  184.     MOV    AL,' '            ;
  185.     CALL    DISPLAY            ;
  186.     RET
  187. ;
  188. ;    MAIN WORK LOOP
  189. ;
  190. ;    THIS ROUTINE FINDS THE POSITION OF THE FILE
  191. ;    INFORMATION IN THE DIRECTORY DMA, PRINTS THE
  192. ;    DATA IF IT IS A CURRENT FILE, AND PROMPTS THE
  193. ;    OPERATOR FOR INSTRUCTIONS IF THE FILENAME HAS
  194. ;    ILLEGAL (NON-ASCII) DATA IN IT.
  195. ;
  196. WORKLOOP:                ; 
  197.     MOV    AL,Byte Ptr RESULT    ;RESULT HOLDS POSITION OF-
  198.     MOV    CH,AL            ; -THE DIRECTORY ENTRY IN THE DIR. DMA
  199.     AND    AL,3
  200.     RCL    AL,1
  201.     RCL    AL,1
  202.     RCL    AL,1
  203.     RCL    AL,1
  204.     RCL    AL,1
  205.     AND    AL,0E0H
  206.     MOV    DL,AL
  207.     MOV    DH,0
  208.     MOV    BX,TBUFF        ;
  209.     ADD    BX,DX            ;HL NOW POINTS AT THE FILE INFO
  210.     MOV    AL,M
  211.     CMP    AL,0E5H            ;KILLED FILE?
  212.     JNZ    L_4    
  213.     RET                ;YES
  214. L_4:
  215.     CALL    SPACE            ;SPACE OVER FOR NEATNESS
  216.     MOV    AL,M
  217.     CALL    HEXCON            ;PRINT USER NUMBER
  218.     CALL    SPACE
  219.     CALL    SPACE
  220.     CALL    SPACE
  221.     PUSH    BX
  222.     PUSH    BX
  223.     LAHF                ;POINT TO FIRST CHARACTER IN FILE NAME
  224.     INC    BX
  225.     SAHF
  226.     MOV    AL,M            ;ALLOW HIGH BIT SET FOR "PROPRIETARY SOFTWARE"
  227.     ROL    AL,1            ;TEST "PROPRIETARY SOFTWARE" BIT
  228.     MOV    AL,'1'
  229.     JB    WORK01
  230.     MOV    AL,'0'
  231. WORK01:    CALL    DISPLAY
  232.     CALL    SPACE
  233.     CALL    SPACE
  234.     CALL    SPACE
  235.     MOV    CH,8
  236. WORK02:    MOV    AL,M            ;PRINT FILE NAME
  237.     AND    AL,07FH            ; STRIP-OFF PARITY BIT
  238.     CALL    DISPLAY            ;
  239.     DEC    CH
  240.     LAHF
  241.     INC    BX
  242.     SAHF
  243.     JNZ    WORK02            ;
  244.     MOV    CH,3
  245.     MOV    AL,'.'
  246.     CALL    DISPLAY            ;PRINT NEXT THREE CHARACTERS AS ASCII
  247. WORK03:    MOV    AL,M
  248.     AND    AL,07FH            ; STRIP-OFF PARITY BIT
  249.     CALL    DISPLAY            ;
  250.     DEC    CH
  251.     LAHF
  252.     INC    BX
  253.     SAHF
  254.     JNZ    WORK03            ;
  255.     CALL    DISPLAY
  256.     CALL    SPACE
  257.     MOV    CH,3
  258.     POP    BX            ;NOW DISPLAY ATTRIBUTES
  259.     MOV    DX,9
  260.     LAHF
  261.     ADD    BX,DX
  262.     RCR    SI,1
  263.     SAHF
  264.     RCL    SI,1
  265. WORK03A:CALL    SPACE
  266.     MOV    AL,M
  267.     ROL    AL,1            ;TEST $SYS AND $R/O, AND RESERVED
  268.     MOV    AL,'1'
  269.     JB    WORK03B
  270.     MOV    AL,'0'
  271. WORK03B:CALL    DISPLAY
  272.     CALL    SPACE
  273.     DEC    CH
  274.     LAHF
  275.     INC    BX
  276.     SAHF
  277.     JNZ    WORK03A
  278.     MOV    CH,20
  279. WORK04:    MOV    AL,CH
  280.     AND    AL,3
  281.     JNZ    L_5    
  282.     CALL    SPACE            ;
  283. L_5:
  284.     MOV    AL,M
  285.     CALL    HEXCON            ;
  286.     LAHF
  287.     INC    BX
  288.     SAHF
  289.     DEC    CH
  290.     JNZ    WORK04            ;
  291.     CALL    CRLF            ;
  292.     POP    BX
  293.     RET
  294. L_6    EQU    $
  295.     DSEG
  296.     ORG    Offset L_6
  297. ;
  298. BADVER    DB    'Sorry, CP/M Version 2.X required$'
  299. MSG    DB    'User Pro  Filename.Typ R/OSysRes exs1s2rc'
  300.     DB    ' <--------------Group-------------->'
  301.     DB    CR,LF
  302.     DB    '========================================='
  303.     DB    '===================================='
  304.     DB    CR,LF,'$'
  305. L_7    EQU    $
  306.     CSEG
  307.     ORG    Offset L_7
  308. ;
  309. ;
  310. ;
  311. ; ERROR MESSAGES
  312. ;
  313. ERROR1:    MOV    DX,(Offset ERMSG1)    ;SAY NO GO, AND BAIL OUT
  314.     CALL    PRINT
  315.     JMP    QUIT
  316. L_8    EQU    $
  317.     DSEG
  318.     ORG    Offset L_8
  319. ;
  320. ERMSG1    DB    CR,LF,'Disk select should be " N:"$'
  321. L_9    EQU    $
  322.     CSEG
  323.     ORG    Offset L_9
  324. ;
  325. ERROR2:    MOV    DX,(Offset ERMSG2)    ;SAY NO GO, AND BAIL OUT
  326.     CALL    PRINT
  327.     JMP    QUIT
  328. L_10    EQU    $
  329.     DSEG
  330.     ORG    Offset L_10
  331. ERMSG2    DB    CR,LF,'Bad delimeter, should be ":"$'
  332. L_11    EQU    $
  333.     CSEG
  334.     ORG    Offset L_11
  335. ;
  336. ERROR3:    MOV    DX,(Offset ERMSG3)    ;SAY NO GO, AND BAIL OUT
  337.     CALL    PRINT
  338.     JMP    QUIT
  339. L_12    EQU    $
  340.     DSEG
  341.     ORG    Offset L_12
  342. ERMSG3    DB    CR,LF,'No drive specified$'
  343. L_13    EQU    $
  344.     CSEG
  345.     ORG    Offset L_13
  346. ;
  347. ERROR4:    MOV    DX,(Offset ERMSG4)    ;SAY NO GO, AND BAIL OUT
  348.     CALL    PRINT
  349.     JMPS    QUIT
  350. L_14    EQU    $
  351.     DSEG
  352.     ORG    Offset L_14
  353. ERMSG4    DB    CR,LF,'Only drives A to D allowed$'
  354. L_15    EQU    $
  355.     CSEG
  356.     ORG    Offset L_15
  357. ;
  358. ;    PROGRAM BEGINS HERE
  359. ;
  360. BEGIN:
  361. ;
  362. ; CHECK FOR DRIVE SPECIFICATION
  363. ;
  364.     MOV    AL,Byte Ptr .TBUFF    ;GET LENGTH OF COMMAND PARAMETERS
  365.     CMP    AL,2            ; IF <2, NO PARAMETERS
  366.     JB    MAIN01            ; MUST BE PRESENT LOGGED-IN DRIVE
  367.     JNZ    L_16    
  368.     JMP    ERROR1            ;EXACTLY 2, IS ERROR
  369. L_16:
  370.     MOV    BX,Word Ptr .TBUFF+2    ;AT LEAST 3 THEN...
  371.     MOV    AL,BH            ;NEXT CHARACTER SHOULD BE ":"
  372.     CMP    AL,':'
  373.     JZ    L_17    
  374.     JMP    ERROR2            ;ONLY ALLOW DRIVE SET
  375. L_17:
  376.     MOV    AL,BL            ;NEXT CHARACTER SHOULD BE DRIVE
  377.     CMP    AL,'A'            ;AT A MINIMUM, "A"
  378.     JB    ERROR3
  379.     CMP    AL,'E'            ;AT A MAXIMUM "D"
  380.     JNB    ERROR4
  381.     AND    AL,7            ;STRIP BITS, FOR 0 TO 3
  382.     DEC    AL            ;BACK OFF FOR 0 TO 3
  383.     MOV    DL,AL            ;MAKE DISK NUMBER
  384.     MOV    DH,0
  385.     MOV    CL,14            ;BDOS SELECT DISK FUNCTION
  386.     INT    224
  387. MAIN01:    MOV    DX,(Offset MSG)
  388.     CALL    PRINT
  389.     CALL    SEARCH            ;
  390. MAIN02:                ; 
  391.     MOV    AL,Byte Ptr RESULT    ;
  392.     CMP    AL,0FFH
  393.     JZ    QUIT
  394.     CALL    WORKLOOP        ;
  395.     CALL    NEXTFILE        ;
  396.     JMPS    MAIN02            ;
  397. QUIT:    MOV    CL,0    ; WARM BOOT CP/M-86
  398.     INT    224
  399. ;
  400. L_18    EQU    $
  401.     DSEG
  402.     ORG    Offset L_18
  403. ;
  404. ;    SOME STORAGE LOCATIONS
  405. ;
  406. OLDSTK    RS    2            ;STORAGE FOR "OLD" STACK POINTER
  407.     RS    32
  408. NEWSTK    EQU    (Offset $)        ;STORAGE FOR "NEW" STACK
  409. ;
  410. ;
  411.     END
  412.