home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol096 / d.a86 < prev    next >
Text File  |  1984-04-29  |  17KB  |  938 lines
  1.  
  2. ;                         D.A86 Version 2.1
  3. ;                 Restricted Directory List Program
  4. ; 
  5. ;        Originally written for CP/M-80, by Ward Christensen
  6. ; 
  7. ;                   (Revised from D.ASM 05/17/82)
  8. ; 
  9. ; This  program produces a directory listing.   It also maintains a 
  10. ; list of names not to display.   Thus it can be used to keep track 
  11. ; of  the "non standard" files on a disk.   CP/M attribute bits are 
  12. ; not considered part of the file name for comparison purposes.
  13. ; 
  14. ;                           - Examples -
  15. ; 
  16. ; D *.*<cr>      Prints all names, 5 across
  17. ; 
  18. ; D *.A86<cr>    Prints selected files just like DIR
  19. ; 
  20. ; D  SET<cr>     Builds a table (in D.CMD) of all names  currently 
  21. ;                on the disk
  22. ; 
  23. ; D  SET  <date><cr>     Adds the date for printing whenever  D  is 
  24. ; called by 'A>D<cr>' with no options.   If the date field is  left 
  25. ; blank,  it  will  be  ignored.    Note that the date  must  be  8 
  26. ; characters or less.
  27. ; 
  28. ; D  ADD  fn.ft<cr>  Adds a name to the table in  D.CMD,  so  fn.ft 
  29. ; won't be listed by the 'D' command
  30. ; 
  31. ; D  DEL fn.ft<cr>  Deletes a name from the table in D.CMD,  so  if 
  32. ; fn.ft is in the directory, it will be listed by 'D'
  33. ; 
  34. ; D<cr>     Lists the directory 5 across,  listing only those files 
  35. ; not in D.CMD, as put there by 'D SET' or 'D ADD fn.ft' command
  36. ; 
  37. ;              - Special Notes For Remote System Use -
  38. ; 
  39. ; If  you  keep a dedicated copy of this program on each  drive  of 
  40. ; your remote system,  you can 'dedicate' each copy of this program 
  41. ; to  a drive by filling in the byte at 104h with the drive number.  
  42. ; 
  43. ; This prevents such things as:
  44. ; 
  45. ; A>D B:<cr>
  46. ; 
  47. ; or
  48. ; 
  49. ; B>A:D<cr>
  50. ; 
  51. ; Do this by using the command:
  52. ; 
  53. ; A>D LOK A:<cr>    To lock to a drive
  54. ; 
  55. ; or
  56. ; 
  57. ; A>D LOK<cr>     To unlock
  58. ; 
  59. ; If the conditional 'NOSYS' is set true,  $SYS files in CP/M  will 
  60. ; be  ignored in both directory listings and when the "ADD"  option 
  61. ; is invoked,  unless the override char is specified.   This allows 
  62. ; D.CMD  to  be used as a "what's new" program for  remote  CP/M-86 
  63. ; systems, where the $SYS files must not be listed.
  64. ; 
  65. ;                           - Examples -
  66. ; 
  67. ; A>D *.* S<cr>     Displays everything
  68. ; 
  69. ; A>D SET S<cr>     Puts all files in table
  70. ; 
  71. ; A>D  SET 05/17/82<cr>     Sets date for reference (if you use  'D 
  72. ; SET S<cr>', you lose the date option....sorry about that).
  73. ; 
  74. ; If you use this program on a remote system,  you will likely want 
  75. ; to  change the commands (ADD,  DEL,  and SET) for security.   You 
  76. ; will  also want to change the $SYS suppress  override  character.  
  77. ; 
  78. ; You  may also want to change the name of the program to make  the 
  79. ; name itself more informative (e.g. "WHATSNEW.CMD").
  80. ; 
  81. ; If  you  want the program to be 'tag'ed after every D SET (so  it 
  82. ; cannot  be taken by xmodem),  see the note at label "WRBACK"  for 
  83. ; setting the F1 bit in the filename itself.
  84. ; 
  85. ; Note  that  this  program defines its  own  name  for  write-back 
  86. ; purposes under the label "WRBACK".
  87. ; 
  88. ;                     - Modification History -
  89. ; 
  90. ; 05/17/82:  Revised and translated for CP/M-86 operation, by Kelly 
  91. ; Smith.
  92. ; 
  93. ; 12/23/80:  Changed  sign-on message,  revised  documentation,  by 
  94. ; Keith Petersen, W8SDZ.
  95. ; 
  96. ; 12/22/80:  Fixed stack and file extent problems.   Fully expanded 
  97. ; macros  so  ASM may be used.   Fixed problem in LOK  routine,  by 
  98. ; Keith Petersen, W8SDZ.
  99. ; 
  100. ; 12/07/80:  Added  drive  select byte and expanded move  macro  in 
  101. ; WRBACK routine.  Also added "LOK" command, by Ron Fowler.
  102. ; 
  103. ; 12/02/80:  Added "NOSYS" equate to ignore system files,  code  to 
  104. ; strip attributes from files for CP/M 2.x,  added date display and 
  105. ; print options.  fixed up display format, by Ron Fowler.
  106. ; 
  107. ; 12/01/80:  Added  "files  not found" feature of updated D.ASM  of 
  108. ; Ward Christensen.  By Ron Fowler.
  109. ; 
  110. ; 11/23/78: Originally written by Ward Christensen.
  111. ; 
  112. ;
  113. ; 
  114. false    EQU    0
  115. true    EQU    not false
  116. ; 
  117. ; bdos equates
  118. ; 
  119. rdcon    EQU    1
  120. print    EQU    9
  121. const    EQU    11
  122. close    EQU    16
  123. srchf    EQU    17
  124. srchn    EQU    18
  125. erase    EQU    19
  126. read    EQU    20
  127. write    EQU    21
  128. make    EQU    22
  129. curdsk    EQU    25
  130. setdma    EQU    26
  131. ; 
  132. ; 
  133. bdos    EQU    5
  134. fcb    EQU    5ch
  135. fcbrno    EQU    fcb+32
  136. ;
  137. g_form        EQU    80h    ; base of group descriptor for D.CMD file
  138. g_length    EQU    81h    ; group length
  139. g_min        EQU    85h    ; group minimum size
  140. ;
  141. M    EQU    Byte Ptr 0[BX]
  142. ;
  143. cr    EQU    13            ; carriage return
  144. lf    EQU    10            ; line feed
  145. ; 
  146. nosys    EQU    false            ; set true to ignore system files
  147. fence    EQU    ':'            ; filename separator
  148. npl    EQU    5            ; names per line
  149. sysok    EQU    'S'            ; override char for sys suppression
  150. ; 
  151.     ORG    100h
  152. ; 
  153. dentry:    JMPS    around
  154. ; 
  155. drive    DB    0            ; <---drv # is put here if dedicated
  156. ; 
  157. ; init local stack
  158. ; 
  159. around:    CALL    start
  160. ;
  161.     DB    'D Version 2.1',cr,lf,'$'
  162. ; 
  163. ; print id message
  164. ; 
  165. start:    POP    DX            ; get id address
  166.     MOV    CL,print        ; get print fnc
  167.     INT    224            ; print id msg
  168. ; 
  169. ; set file control block
  170. ; 
  171.     MOV    AL,Byte Ptr drive
  172.     OR    AL,AL            ; non-dedicated?
  173.     JZ    nond            ; jump if so
  174.     MOV    Byte Ptr .fcb,AL
  175. ; 
  176. nond:    MOV    AL,Byte Ptr .fcb+17    ; get sys override char
  177.     MOV    Byte Ptr systoo,AL    ; save for later
  178. ; 
  179. ; see if request to add name to list
  180. ; 
  181.     MOV    BX,fcb+1
  182.     CALL    addcm2
  183. addcm    DB    'ADD        '
  184. ; 
  185. addcm2:    POP    DX            ; get to
  186.     MOV    CX,(Offset addcm2)-(Offset addcm)
  187.     CALL    compr
  188.     JNZ    noadd
  189. ; 
  190. ; got request to add name to table
  191. ; 
  192.     CALL    delnam            ; first, delete the name
  193.     CALL    findff            ; find end of table
  194.     XCHG    BX,DX            ; addr to de
  195. ; 
  196. ; move name to table
  197. ; 
  198.     MOV    BX,fcb+17
  199.     MOV    CX,11
  200.     CALL    mover
  201.     MOV    AL,0ffh
  202.     MOV    SI,DX            ; set new end
  203.     MOV    [SI],AL
  204.     JMP    wrback            ; write program back
  205. ; 
  206. ; see if request to lock D.CMD to a drive
  207. ; 
  208. noadd:    MOV    BX,fcb+1
  209.     CALL    noadd3
  210. noadd2    DB    'LOK        '
  211. ; 
  212. noadd3:    POP    DX            ; get to
  213.     MOV    CX,(Offset noadd3)-(Offset noadd2)
  214.     CALL    compr
  215.     JNZ    nolok
  216. ; 
  217. ; got request to lock
  218. ; 
  219.     MOV    AL,Byte Ptr .fcb+16
  220.     MOV    Byte Ptr drive,AL
  221.     MOV    Byte Ptr .fcb,AL
  222.     JMP    wrback
  223. ; 
  224. ; see if request to del name from list
  225. ; 
  226. nolok:    MOV    BX,fcb+1
  227.     CALL    nolok3
  228. nolok2    DB    'DEL        '
  229. ; 
  230. nolok3:    POP    DX            ; get to
  231.     MOV    CX,(Offset nolok3)-(Offset nolok2)
  232.     CALL    compr
  233.     JNZ    nodel
  234. ; 
  235. ; got request to delete a name from the file
  236. ; 
  237.     CALL    delnam            ; delete the name
  238.     JNAE    L_3    
  239.     JMP    wrback            ; write back if ok
  240. L_3:
  241.     CALL    msgxit
  242.     DB    '++Name Not In Table++$'
  243. ; 
  244. ; see if request to setup table from directory
  245. ; 
  246. nodel:    MOV    BX,fcb+1
  247.     CALL    nodel3
  248. nodel2    DB    'SET        '
  249. ; 
  250. nodel3:    POP    DX            ; get to
  251.     MOV    CX,(Offset nodel3)-(Offset nodel2)
  252.     CALL    compr
  253.     JNZ    noset
  254. ; 
  255. ; got request to setup table.  move the date (may be blank).
  256. ; 
  257.     MOV    BX,fcb+17
  258.     MOV    DX,(Offset date)
  259.     MOV    CX,8
  260.     CALL    mover
  261.     MOV    AL,1            ; turn on..
  262.     MOV    Byte Ptr setflg,AL    ; ..set flag
  263.     MOV    AL,0ffh            ; clear..
  264.     MOV    Byte Ptr names,AL    ; ..names table
  265.     CALL    fillq            ; make fcb '????????.???'
  266. ; 
  267. noset:    MOV    AL,Byte Ptr .fcb+1
  268.     SUB    AL,' '
  269.     MOV    Byte Ptr prtflg,AL
  270.     LAHF
  271.     XCHG    AL,AH
  272.     PUSH    AX
  273.     JNZ    L_4    
  274.     CALL    head1
  275. L_4:
  276.     POP    AX
  277.     XCHG    AL,AH
  278.     SAHF
  279.     JNZ    gotnam
  280.     CALL    fillq            ; make name ????????.???
  281. ; 
  282. gotnam:    MOV    AL,Byte Ptr .fcb
  283.     OR    AL,AL
  284.     JZ    nodisk
  285.     DEC    AL
  286.     MOV    DL,AL
  287.     MOV    CL,0eh
  288.     INT    224
  289. ; 
  290. nodisk:    MOV    CH,npl            ; names per line
  291.     CALL    linmrk
  292.     MOV    CL,srchf
  293.     JMPS    callit
  294. ; 
  295. line:    MOV    CH,npl            ; names per line
  296.     CALL    linmrk
  297. ; 
  298. next:    MOV    CL,srchn
  299. ; 
  300. callit:    PUSH    CX
  301.     PUSH    CX
  302.     MOV    CL,const
  303.     INT    224
  304.     OR    AL,AL
  305.     POP    CX
  306.     JZ    L_5    
  307.     JMP    cexit
  308. L_5:
  309.     MOV    DX,fcb
  310.     INT    224
  311.     INC    AL
  312.     JNZ    L_6    
  313.     JMP    cknone
  314. L_6:
  315.     DEC    AL
  316.     AND    AL,03h
  317.     MOV    BL,AL
  318.     MOV    BH,00h
  319.     SHL    BX,1
  320.     SHL    BX,1
  321.     SHL    BX,1
  322.     SHL    BX,1
  323.     SHL    BX,1
  324.     MOV    DX,81h
  325.     ADD    BX,DX
  326. ; 
  327. ; check for $sys attribute, then clear all attributes
  328. ; 
  329.     PUSH    BX
  330.     MOV    DX,9            ; sys att offset
  331.     ADD    BX,DX
  332.     MOV    AL,M
  333.     AND    AL,80h
  334.     MOV    Byte Ptr sysflg,AL
  335.     POP    BX            ; retrieve filename ptr
  336.     PUSH    BX
  337.     MOV    DL,11            ; 11 chars in filename
  338. ; 
  339. attlp:    MOV    AL,M            ; pick up char
  340.     AND    AL,7fh            ; kill attribute
  341.     MOV    M,AL            ; put back down
  342.     INC    BX
  343.     DEC    DL
  344.     JNZ    attlp
  345.     POP    BX
  346. ; 
  347. ; see if name is to be printed
  348. ; 
  349.     XCHG    BX,DX            ; name pointer to de
  350.     MOV    AL,Byte Ptr setflg    ; request to setup table?
  351.     OR    AL,AL
  352.     JZ    L_7    
  353.     JMP    setup            ; go set entry into table
  354. L_7:
  355.     MOV    AL,Byte Ptr prtflg
  356.     OR    AL,AL
  357.     JNZ    goprnt            ; explicit request for all
  358.     PUSH    DX
  359.     MOV    BX,(Offset names)
  360. ; 
  361. cknext:    POP    DX            ; get name pointer
  362.     POP    CX
  363.     PUSH    CX
  364.     MOV    AL,M            ; end of table?
  365.     INC    AL            ; was it 0ffh?
  366.     JZ    goprnt
  367.     MOV    CH,0
  368.     MOV    CL,11            ; name length
  369.     PUSH    DX
  370. ; 
  371. cklp:    MOV    SI,DX
  372.     MOV    AL,[SI]
  373.     CMP    AL,M
  374.     JNZ    nomach
  375.     INC    DX
  376.     INC    BX
  377.     DEC    CL
  378.     JNZ    cklp            ; loop for 11 chars
  379. ; 
  380. ; got match, mark it found and don't print it
  381. ; 
  382.     MOV    DX,-11            ; point back to name
  383.     ADD    BX,DX
  384.     MOV    M,0            ; mark it found
  385.     POP    DX            ; pop pointer
  386.     POP    CX
  387.     JMP    next            ; skip the name
  388. ; 
  389. ; name didn't match, try next
  390. ; 
  391. nomach:    ADD    BX,CX            ; point to next name
  392.     JMPS    cknext
  393. ; 
  394. ; print the name
  395. ; 
  396. goprnt:
  397.     if    nosys
  398.     MOV    AL,Byte Ptr systoo
  399.     CMP    AL,sysok
  400.     JZ    doname
  401.     MOV    AL,Byte Ptr sysflg
  402.     RCL    AL,1
  403.     POP    CX
  404.     JNB    L_8    
  405.     JMP    next
  406. L_8:
  407.     PUSH    CX
  408.     endif
  409. ; 
  410. doname:    MOV    AL,1            ; say we got one
  411.     MOV    Byte Ptr gotflg,AL
  412.     MOV    CL,8
  413.     XCHG    BX,DX            ; name back to hl
  414. ; 
  415. namelp:    MOV    AL,M
  416.     CALL    display
  417.     LAHF
  418.     INC    BX
  419.     SAHF
  420.     DEC    CL
  421.     JNZ    namelp
  422.     MOV    AL,'.'
  423.     CALL    display
  424.     MOV    CL,3
  425. ; 
  426. nlp2:    MOV    AL,M
  427.     CALL    display
  428.     LAHF
  429.     INC    BX
  430.     SAHF
  431.     DEC    CL
  432.     JNZ    nlp2
  433.     POP    CX
  434.     MOV    AL,' '
  435.     CALL    display
  436.     MOV    AL,fence
  437.     DEC    CH
  438.     LAHF
  439.     XCHG    AL,AH
  440.     PUSH    AX
  441.     XCHG    AL,AH
  442.     JZ    L_9    
  443.     CALL    display
  444. L_9:
  445.     MOV    AL,' '
  446.     CALL    display
  447.     POP    AX
  448.     XCHG    AL,AH
  449.     SAHF
  450.     JZ    L_10    
  451.     JMP    next
  452. L_10:
  453.     CALL    crlf
  454.     JMP    line
  455. ; 
  456. cknone:    MOV    AL,Byte Ptr gotflg
  457.     OR    AL,AL
  458.     JNZ    notfnd
  459.     MOV    AL,Byte Ptr prtflg
  460.     OR    AL,AL
  461.     JNZ    notfnd
  462.     MOV    DX,(Offset nonmsg)    ; print "none"
  463.     MOV    CL,print
  464.     INT    224
  465. ; 
  466. ; print the files not found
  467. ; 
  468. notfnd:    MOV    AL,Byte Ptr setflg    ; is this 'd set'?
  469.     OR    AL,AL
  470.     JZ    L_11    
  471.     JMP    fini            ; done if so
  472. L_11:
  473.     MOV    AL,Byte Ptr prtflg    ; are we printing?
  474.     OR    AL,AL
  475.     JZ    L_12    
  476.     JMP    cknon2            ; done if not
  477. L_12:
  478. ; 
  479. ; if this D.CMD is dedicated ("drive" is non-zero),
  480. ; then be sure to print the "files not found"
  481. ; 
  482.     MOV    AL,Byte Ptr drive
  483.     OR    AL,AL
  484.     JNZ    nochk
  485.     MOV    AL,Byte Ptr .fcb    ; drive specified?
  486.     OR    AL,AL
  487.     JZ    L_13    
  488.     JMP    fini            ; skip not found if so
  489. L_13:
  490. ; 
  491. nochk:    CALL    head2            ; print not fnd header
  492.     MOV    BX,(Offset names)    ; start of table
  493.     MOV    DX,11
  494. ; 
  495. line2:    CALL    linmrk
  496.     MOV    CL,npl
  497. ; 
  498. next2:    MOV    AL,M            ; first char of name
  499.     OR    AL,AL            ; marked found?
  500.     JZ    noprnt            ; jump if so
  501.     INC    AL            ; check for table end
  502.     JNZ    L_14    
  503.     JMP    cknon2            ; jump if end
  504. L_14:
  505.     MOV    AL,1
  506.     MOV    Byte Ptr gotnf,AL
  507.     MOV    CH,8
  508. ; 
  509. namlp2:    MOV    AL,M
  510.     CALL    display
  511.     LAHF
  512.     INC    BX
  513.     SAHF
  514.     DEC    CH
  515.     JNZ    namlp2
  516.     MOV    AL,'.'
  517.     CALL    display
  518.     MOV    CH,3
  519. ; 
  520. nlp3:    MOV    AL,M
  521.     CALL    display
  522.     LAHF
  523.     INC    BX
  524.     SAHF
  525.     DEC    CH
  526.     JNZ    nlp3
  527.     MOV    AL,' '
  528.     CALL    display
  529.     MOV    AL,fence
  530.     DEC    CL
  531.     LAHF
  532.     XCHG    AL,AH
  533.     PUSH    AX
  534.     XCHG    AL,AH
  535.     JZ    L_15    
  536.     CALL    display
  537. L_15:
  538.     MOV    AL,' '
  539.     CALL    display
  540.     POP    AX
  541.     XCHG    AL,AH
  542.     SAHF
  543.     JNZ    next2
  544.     CALL    crlf
  545.     JMPS    line2
  546. ; 
  547. noprnt:    ADD    BX,DX
  548.     JMPS    next2
  549. ; 
  550. ; print header
  551. ; 
  552. head1:    MOV    DX,(Offset newmsg)
  553.     JMPS    hedprt
  554. ; 
  555. head2:    MOV    DX,(Offset delmsg)
  556. ; 
  557. hedprt:    MOV    CL,print
  558.     INT    224
  559.     MOV    AL,Byte Ptr date
  560.     CMP    AL,' '
  561.     JZ    nodate
  562.     CMP    AL,sysok
  563.     JZ    nodate
  564.     MOV    DX,(Offset asof)
  565.     MOV    CL,print
  566.     INT    224
  567. ; 
  568. nodate:    MOV    AL,':'
  569.     CALL    display
  570.     JMPS    crlf
  571. ; 
  572. cknon2:    MOV    AL,Byte Ptr gotnf
  573.     OR    AL,AL
  574.     JZ    L_16    
  575.     JMP    fini            ; jmp if got no 'not found's
  576. L_16:
  577.     MOV    AL,Byte Ptr prtflg
  578.     OR    AL,AL
  579.     JZ    L_17    
  580.     JMP    fini
  581. L_17:
  582.     MOV    DX,(Offset nonmsg)
  583.     MOV    CL,print        ; else print 'none'
  584.     INT    224
  585.     JMP    fini
  586. ; 
  587. ; set up the name in the table
  588. ; 
  589. setup:
  590.     if    nosys
  591.     MOV    AL,Byte Ptr systoo
  592.     CMP    AL,sysok
  593.     JZ    setu2
  594.     MOV    AL,Byte Ptr sysflg
  595.     RCL    AL,1
  596.     JB    setskp
  597.     endif
  598. ; 
  599. setu2:    CALL    findff            ; find end of table
  600.     XCHG    BX,DX            ; setup for move
  601. ; 
  602. ; (hl = name, de = end of table)
  603. ; 
  604.     MOV    CX,11
  605.     CALL    mover
  606.     MOV    AL,0ffh            ; get table end flag
  607.     MOV    SI,DX            ; store it
  608.     MOV    [SI],AL
  609. ; 
  610. setskp:    POP    CX            ; delete stack garbage
  611.     JMP    next            ; get next entry
  612. ; 
  613. crlf:    MOV    AL,cr
  614.     CALL    display
  615.     MOV    AL,lf
  616. ; 
  617. display:
  618. ;
  619.     PUSH    CX
  620.     PUSH    DX
  621.     PUSH    BX
  622.     MOV    DL,AL
  623.     MOV    CL,02h
  624.     INT    224
  625.     POP    BX
  626.     POP    DX
  627.     POP    CX
  628.     RET
  629. ; 
  630. ; move routine
  631. ; 
  632. mover:    MOV    AL,M
  633.     MOV    SI,DX
  634.     MOV    [SI],AL
  635.     INC    DX
  636.     INC    BX
  637.     DEC    CX
  638.     MOV    AL,CH
  639.     OR    AL,CL
  640.     JNZ    mover
  641.     RET
  642. ; 
  643. ; compare routine
  644. ; 
  645. compr:    MOV    SI,DX
  646.     MOV    AL,[SI]
  647.     CMP    AL,M
  648.     JZ    L_18
  649.     RET
  650. L_18:
  651.     INC    DX
  652.     INC    BX
  653.     DEC    CX
  654.     MOV    AL,CH
  655.     OR    AL,CL
  656.     JNZ    compr
  657.     RET                ; equal
  658. ; 
  659. ; routine to find 0ffh at end of table
  660. ; 
  661. findff:    MOV    BX,(Offset names)
  662. ; 
  663. findlp:    MOV    AL,M
  664.     LAHF
  665.     INC    BX
  666.     SAHF
  667.     INC    AL            ; 0ffh?
  668.     JNZ    findlp
  669.     LAHF                ; back up to table end
  670.     DEC    BX
  671.     SAHF
  672.     RET
  673. ; 
  674. ; delete the name from the table
  675. ; 
  676. delnam:    MOV    BX,(Offset names)
  677. ; 
  678. dellp:    MOV    AL,M
  679.     CMP    AL,0ffh
  680.     STC
  681.     JNZ    L_19    
  682.     RET                ; not found
  683. L_19:
  684.     MOV    DX,fcb+17
  685.     MOV    CX,11
  686.     CALL    compr
  687.     JZ    delete
  688.     ADD    BX,CX            ; calc next
  689.     JMPS    dellp
  690. ; 
  691. ; delete the name
  692. ; 
  693. delete:    XCHG    BX,DX            ; next name to de
  694.     MOV    BX,-11            ; to back up..
  695.     ADD    BX,DX            ; ..to name to del
  696. ; 
  697. delch:    MOV    SI,DX
  698.     MOV    AL,[SI]
  699.     MOV    M,AL
  700.     INC    BX
  701.     INC    DX
  702.     INC    AL            ; moved the 0ffh?
  703.     JNZ    delch
  704.     OR    AL,AL            ; show found
  705.     RET
  706. ; 
  707. ; fill fcb with all '?'
  708. ; 
  709. fillq:    MOV    BX,fcb+1
  710.     MOV    CH,8+3
  711.     MOV    AL,'?'
  712. ; 
  713. qmloop:    MOV    M,AL
  714.     LAHF
  715.     INC    BX
  716.     SAHF
  717.     DEC    CH
  718.     JNZ    qmloop
  719.     RET
  720. ; 
  721. ; 
  722. ; write back the program - note that you may set any of the
  723. ; cp/m 2.x attribute bits in the file name (be sure to define
  724. ; all 11 characters of the name).
  725. ; 
  726. wrback:    MOV    DX,fcb+1
  727.     CALL    wrbk2
  728. wrbk1    DB    'D'            ; <--put 'd'+80h here to set tag
  729.     DB    '       CMD'        ; see comment above
  730.     DB    0            ; extent number
  731. ; 
  732. wrbk2:    POP    BX
  733.     MOV    CX,(Offset wrbk2)-(Offset wrbk1)
  734.     CALL    mover
  735.     MOV    CL,erase
  736.     MOV    DX,fcb
  737.     INT    224
  738.     XOR    AL,AL            ; get 0
  739.     MOV    Byte Ptr setflg,AL    ; clear the flags..
  740.     MOV    Byte Ptr gotflg,AL
  741.     MOV    Byte Ptr gotnf,AL
  742.     MOV    Byte Ptr systoo,AL
  743.     MOV    Byte Ptr .fcbrno,AL    ; zero record number
  744.     MOV    CL,make
  745.     MOV    DX,fcb
  746.     INT    224
  747. ;
  748. ; clear group descriptor
  749. ;
  750.     CALL    clr_grp
  751. ; 
  752. ; before writing back, find end of table
  753. ; 
  754.     CALL    findff
  755.     MOV    CH,BH            ; b=end page
  756.     INC    CH            ; for compare
  757. ;
  758. ; convert page value to paragraph value
  759. ;
  760.     MOV    BH,CH            ; back to whence we came
  761.     MOV    BL,0            ; clear low byte
  762.     SHR    BX,1            ; /2
  763.     SHR    BX,1            ; /4
  764.     SHR    BX,1            ; /8
  765.     SHR    BX,1            ; /16
  766. ;
  767. ; initialze G-FORM, G-LENGTH, G-MIN
  768. ;
  769.     MOV    Word Ptr .g_length,BX
  770.     MOV    Word Ptr .g_min,BX
  771.     MOV    Byte Ptr .g_form,1    ; make G-FORM = Code Group
  772. ;
  773. ; set starting address at base of group descriptor
  774. ;
  775.     MOV    DX,g_form        ; set starting address
  776.     CALL    wrt_grp            ; write first group
  777.     CALL    clr_grp            ; clear group descriptor
  778.     CALL    wrt_grp            ; write second group (all zeros)
  779.     CALL    wrt_grp            ; write third group (all zeros)
  780. ;
  781. ; group descriptor header written, now do the code segment
  782. ;
  783.     MOV    DX,100h            ; set starting address
  784. ; 
  785. wrlp:    PUSH    CX
  786.     PUSH    DX
  787.     PUSH    BX
  788.     MOV    CL,setdma
  789.     INT    224
  790.     MOV    CL,write
  791.     MOV    DX,fcb
  792.     INT    224
  793.     POP    BX
  794.     POP    DX
  795.     POP    CX
  796.     OR    AL,AL            ; successful write?
  797.     JNZ    wrerr            ; ..no
  798.     MOV    BX,80h            ; point to..
  799.     ADD    BX,DX            ; ..next block
  800.     XCHG    BX,DX            ; addr to de
  801.     MOV    AL,DH            ; get page
  802.     CMP    AL,CH            ; past table end?
  803.     JB    wrlp            ; loop until done
  804.     MOV    CL,close
  805.     MOV    DX,fcb
  806.     INT    224
  807.     INC    AL            ; successful close?
  808.     JZ    badcls            ; ..no, print err msg
  809.     CALL    msgxit            ; ok, exit w/msg
  810. ;
  811.     DB    '++Done++$'
  812. ; 
  813. wrerr:    CALL    msgxit
  814. ;
  815.     DB    '++Write Error++$'
  816. ; 
  817. badcls:    CALL    msgxit
  818. ;
  819.     DB    '++Bad Close, D.CMD Clobbered!!++$'
  820. ; 
  821. cexit:    MOV    CL,rdcon        ; clear keyboard char
  822.     INT    224
  823.     JMPS    exit            ; then exit
  824. ; 
  825. ; finished.  if building table, write back
  826. ; 
  827. fini:    MOV    AL,Byte Ptr setflg
  828.     OR    AL,AL
  829.     JZ    exit            ; not writing
  830.     JMP    wrback
  831. ; 
  832. ; exit with message (error or informational)
  833. ; 
  834. msgxit:    POP    DX            ; get msg
  835.     MOV    CL,print
  836.     INT    224
  837. ; 
  838. ; exit, via warm boot...
  839. ; 
  840. exit:    MOV    CL,0            ; warm boot CP/M-86 to return
  841.     MOV    DL,0
  842.     INT    224
  843. ;
  844. ; initialize group descriptor for D.CMD with proper file information
  845. ;
  846. clr_grp:
  847. ;
  848.     PUSH    CX            ; save registers
  849.     PUSH    DX
  850.     PUSH    BX
  851.     MOV    BX,g_form        ; point to base of group descriptor
  852.     MOV    CH,128            ; need to clear 128 bytes
  853.     MOV    AL,0            ; clear with 0's
  854. ;
  855. clr_grp_loop:
  856. ;
  857.     MOV    M,AL            ; zero a byte
  858.     LAHF
  859.     INC    BX            ; bump pointer to next byte
  860.     SAHF
  861.     DEC    CH            ; de-bump count of bytes
  862.     JNZ    clr_grp_loop        ; loop until done
  863.     POP    BX            ; restore registers
  864.     POP    DX
  865.     POP    CX
  866.     RET                ; return from 'clr_grp'
  867. ;
  868. ; write 128 bytes of group descriptor with header information
  869. ; 
  870. wrt_grp:
  871. ;
  872.     PUSH    CX
  873.     PUSH    DX
  874.     PUSH    BX
  875.     MOV    CL,setdma
  876.     INT    224
  877.     MOV    CL,write
  878.     MOV    DX,fcb
  879.     INT    224
  880.     POP    BX
  881.     POP    DX
  882.     POP    CX
  883.     OR    AL,AL            ; successful write?
  884.     JNZ    wrerr            ; ..no
  885.     RET                ; return from 'wrt_grp'
  886. ; 
  887. linmrk:    PUSH    CX
  888.     PUSH    DX
  889.     PUSH    BX
  890.     MOV    AL,Byte Ptr .fcb    ; get drive name from fcb
  891.     OR    AL,AL            ; any there?
  892.     JNZ    gotdrv            ; yes, go print it
  893.     MOV    CL,curdsk        ; else get current disk
  894.     INT    224
  895.     INC    AL            ; make 'a'=1
  896. ; 
  897. gotdrv:    ADD    AL,40h            ; make ascii
  898.     CALL    display            ; print drive name
  899.     CALL    gotdr2            ; then ': '
  900.     DB    ': $'
  901. ; 
  902. gotdr2:    POP    DX            ; get msg adr
  903.     MOV    CL,print        ; print it
  904.     INT    224
  905.     POP    BX
  906.     POP    DX
  907.     POP    CX
  908.     RET
  909. L_20    EQU    $
  910.     DSEG
  911.     ORG    Offset L_20
  912. ; 
  913. newmsg    DB    cr,lf,'-->New Files$'
  914. ; 
  915. delmsg    DB    cr,lf,cr,lf,'-->Deleted Files$'
  916. ; 
  917. ;
  918. ;
  919. gotflg    DB    0
  920. gotnf    DB    0
  921. systoo    DB    0
  922. nonmsg    DB    '++None++',cr,lf,'$'
  923. asof    DB    ' since '
  924. date    DB    '        '
  925.     DB    '$'
  926. setflg    DB    0            ; 1 => setup table
  927. prtflg    DB    0            ; print only some
  928. sysflg    DB    0            ; $sys attrib indicator
  929. ; 
  930. ; note the names are initially built by: D SET<cr>
  931. ; 
  932. names    DB    0ffh            ; end of table, for filenames
  933. ; 
  934.     rs    02000h            ; reserve a bunch
  935.     db    0            ; mark the end for GENCMD
  936. ;
  937.     END
  938.