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