home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol054 / i-o-cap.asm < prev    next >
Assembly Source File  |  1984-04-29  |  19KB  |  745 lines
  1. ;       I/O-CAP.ASM Version 1.0 as of September 13, 1981
  2. ; 
  3. ;                  By: Kelly Smith, CP/M-Net
  4. ;
  5. ; Version 1.0: Initial release by Kelly Smith
  6. ;
  7. ;      Note:  Please  append  any  changes to I/O-CAP  with  a 
  8. ; 'Version  Log' and change comments (your name would be  nice 
  9. ; too) top-down from the initial Version 1.0 release.
  10. ;  
  11. ;      Running  I/O-CAP  (the  first time) will  relocate  the 
  12. ; CONIN,  and CONOUT jump vectors to high memory and then  ALL 
  13. ; subsequent   input  or  output  (depending  on   conditional 
  14. ; assembly  switches)  will  be  buffered  (16  sectors)   for  
  15. ; eventual  output  to  disk with a filename and type   called  
  16. ; USER.LOG.  This file will then be updated as long as I/O-CAP 
  17. ; is   active  in  the system.   Note:   I/O-CAP may  be  made 
  18. ; inactive  by just type I/O-CAP again,  to toggle it off  (or 
  19. ; on).
  20. ; 
  21. ;      I/O-CAP   requires   an  unusually  LARGE   amount   of 
  22. ; relocation  memory,  because it must buffer the entire  CP/M 
  23. ; system image to high memory to save and restore all CCP  and 
  24. ; BDOS pointers as it captures each 16 sector block of console 
  25. ; input or output...crude,  but the ONLY other wait to do this 
  26. ; would  be to  'hot-patch' the CCP and BDOS 'on-the-fly'  and 
  27. ; that  get's  just   a   bit  gruesome  from   a    UNIVERSAL   
  28. ; applications  standpoint...It's much easier to just SYSGEN a 
  29. ; smaller   CP/M  system  than your actual  maximum  available 
  30. ; memory,   and  then have I/O-CAP relocate itself above  your 
  31. ; BIOS.  If  anyone has a better way to do this  WITHOUT  this 
  32. ; relocation  crap,  I  would be eager to see it...I just  got 
  33. ; frustrated  with  trying to figure out what CP/M  was  doing 
  34. ; internally  to pursue it further...local  stacks,  pointers, 
  35. ; etc.,...ARGH...so I took the easy way out.
  36. ; 
  37. ;      Thanks  to  Mike Karas for discovering  the  BDOS  CALL 
  38. ; contention  problems  when the BDOS stack was not saved  and 
  39. ; restored when saving the console buffer to disk.
  40. ; 
  41. ;                       - Applications -
  42. ; 
  43. ; (1)   Don't have a printer,  and want 'Hard Copy' of a  user 
  44. ; dialog  with the system?  Use I/O-CAP to creat it as a  disk 
  45. ; file...for  instance,  when making patches into  'uncertain' 
  46. ; areas of the system with DDT (or SID,  or whatever) you  can 
  47. ; keep  a  running  history on disk of the patches  AND  their 
  48. ; effects.
  49. ; 
  50. ; (2)   Need to show example of console dialog for an  article 
  51. ; or book and you don't want to 'hand type' it in? Use I/O-CAP 
  52. ; to creat the examples for you,  and edit the dialog to  suit 
  53. ; your needs.
  54. ; 
  55. ; (3)   Need to know all the events in 'history form'  leading 
  56. ; to  some bizarre system blow-up?  Use I/O-CAP to record that 
  57. ; history  for you (but only if the blow-up is recoverable  by 
  58. ; NOT COLD BOOTING the system).
  59. ; 
  60. ; (4)   Want  to  (secretly) monitor the activities  of  other 
  61. ; users  of  the system?  Use I/O-CAP to record  user  console 
  62. ; input,  and check in from time-to-time to look at the system 
  63. ; activity.  Used  in  conjunction with BYE on a  remote  CP/M 
  64. ; system,  you can finally figure-out how that 'twit' clobbers 
  65. ; your  system from 3000 miles away...and NOT fill a room full 
  66. ; of  paper by logging all input to your  printer.  Note:  Run 
  67. ; I/O-CAP first,  then BYE.COM to 'grab' the vectors set-up by 
  68. ; the I/O-CAP program.The capture of incoming data will appear 
  69. ; to be transparent to the user,  with a slight pause when  it 
  70. ; updates the USER.LOG file...but this only happens every 2048 
  71. ; character entrys, so it should generally go un-noticed.
  72. ; 
  73. ;                      - Using I/O-CAP -
  74. ; 
  75. ;      Examine  the various conditional assembly switches  and 
  76. ; set  TRUE or FALSE depending on your requirements with  your 
  77. ; editor  (ED.COM).  Then assemble with ASM.COM (or  MAC.COM), 
  78. ; load it to creat a .COM file and then run.  The  conditional 
  79. ; assembly switches allow the following options:
  80. ; 
  81. ; (1)   DEBUG  -  I/O-CAP runs at 8000 Hex...about  right  for 
  82. ; most small applications programs that use memory from 100 to 
  83. ; 7FFF Hex in a 56K CP/M system.  If FALSE, I/O-CAP runs above 
  84. ; a  48K  CP/M  system (C800 Hex),  with  no  restrictions  on 
  85. ; applications programs.
  86. ; 
  87. ; (2)  QUIET - If FALSE, rings the console bell just before it 
  88. ; writes 2048 bytes of captured console INPUT or OUTPUT.
  89. ; 
  90. ; (3)   ERRDISP - If TRUE,  I/O-CAP will display an  'OOPS...' 
  91. ; message on the console if the disk or directory is full.
  92. ; 
  93. ; (4)   INPUT  - If  TRUE,  only  console  keyboard  INPUT  is 
  94. ; captured. Note: OUTPUT must be FALSE if INPUT is TRUE.
  95. ; 
  96. ; (5)   OUTPUT  - If  TRUE,  both console keyboard  INPUT  and 
  97. ; OUTPUT will be captured...uses 'gobs' of disk storage if you 
  98. ; let I/O-CAP run for any length of time.  Note: INPUT must be 
  99. ; FALSE if OUTPUT is TRUE.
  100. ; 
  101. ; (6) QUIT - If TRUE, when a Control-Z and Carriage Return are 
  102. ; entered  at  the console keyboard,  I/O-CAP will append  the 
  103. ; USER.LOG file with a physical end-of-file (i.e.,  no further 
  104. ; data  will  be  displayed in USER.LOG  although  it  may  be 
  105. ; physically appended to it)...Note: You must type I/O-CAP<cr> 
  106. ; to CLOSE the current USER.LOG,  and reset the disk to normal 
  107. ; R/W  status.  Failure  to  do so will result in a  R/O  BDOS 
  108. ; Error  on  any subsequent attempt to write to  the  disk  by 
  109. ; means other than I/O-CAP.
  110. ; 
  111. ; (7) SYSLOG - If TRUE,  creates USER.LOG as a $SYS (invisible 
  112. ; to  directory)  file,  so that 'secrecy' is maintained  when 
  113. ; capturing  user input...be sure and rename USER.LOG to  your 
  114. ; 'private' name, or replace the TYPE command with MLIST.COM.
  115. ; 
  116. ;      Please  send any changes,  'bug' reports,  suggestions, 
  117. ; comments,  gripes or bitches to the CP/M-Net  system,  (805) 
  118. ; 527-9321...have  fun with this program.  It's in the  public 
  119. ; domain, but NOT TO BE USED for COMMERCIAL BENEFIT.
  120. ; 
  121. ;                                    Best regards,
  122. ; 
  123. ;                                    Kelly Smith, CP/M-Net
  124. ; 
  125. ;
  126. ;
  127. ; define TRUE/FALSE assembly parameters
  128. ;
  129. true    equ    -1    ; define TRUE
  130. false    equ    not true; define FALSE
  131. debug    equ    true    ; define DEBUG
  132. quiet    equ    false    ; define QUIET (ring BELL, if not true)
  133. errdisp    equ    true    ; define ERRDISP (display errors, if true)
  134. quit    equ    true    ; define QUIT (EOF, if Control-Z found)
  135. syslog    equ    false    ; define SYSLOG (make USER.LOG a $SYS file)
  136. ;
  137. ; >>> Note: only one of the following two assembly switches may be true <<<
  138. ;
  139. input    equ    false    ; define INPUT (I/O-CAP console input)
  140. output    equ    true    ; define OUTPUT (I/O-CAP console output)
  141. ;
  142.     if    DEBUG
  143. dest    equ    08000h    ; running location of code
  144.     endif        ; DEBUG
  145.  
  146.     if    not DEBUG
  147. dest    equ    0c800h    ; running location of code
  148.     endif        ; DEBUG
  149. ;
  150. ; BDOS entry point and function codes
  151. ; 
  152. base    equ    0    ; <<-- set to offset of CP/M for your
  153.             ; system, standard systems are 0, some
  154.             ; 'alternate' systems are 4200H
  155. ; 
  156. bdos    equ    base+5
  157. resdsk    equ    13    ; reset disk system
  158. offc    equ    15    ; open file
  159. cffc    equ    16    ; close file
  160. dffc    equ    19    ; delete file
  161. rrfc    equ    20    ; read record
  162. wrfc    equ    21    ; write record
  163. mffc    equ    22    ; make file
  164. sdma    equ    26    ; set dma address
  165. ; 
  166. ; secondary FCB field definitions
  167. ; 
  168. fn    equ    1    ; file name field (rel)
  169. ft    equ    9    ; file type field (rel)
  170. ex    equ    12    ; file extent field (rel)
  171. frc    equ    15    ; file record count (rel)
  172. nr    equ    32    ; next record field (rel)
  173. ; 
  174. ; ASCII control characters
  175. ; 
  176. cr    equ    0dh    ; carriage return
  177. lf    equ    0ah    ; line feed
  178. bel    equ    07h    ; bell signal
  179. ;
  180. ; This  program runs up in high ram.  It gets there,  by being 
  181. ; moved  there  when 'I/O-CAP'  is typed. Change the following 
  182. ; equate to an area in your high memory where this program may 
  183. ; patch itself in.  Approximate memory requirements:  2k bytes 
  184. ; or more,  depending upon the options selected.  a marker has 
  185. ; been  placed  at  the  end to deliberately  print  an  error 
  186. ; message  during  assembly in order to determine  the  actual 
  187. ; ending  address of the program.  The error message will  not 
  188. ; affect the assembly.  make sure you have memory available up 
  189. ; to the address shown.
  190. ;
  191.     org    base+100h
  192. ;
  193. ; Move 'I/O-CAP' program up to high ram and jump to it
  194. ;
  195.     lxi    h,0    ; save old stack pointer
  196.     dad    sp
  197.     shld    oldstk
  198.     lxi    sp,stack; make a new stack pointer
  199.     lxi    h,tbuf    ; set pointer to tbuf
  200.     shld    ptr
  201.     lxi    h,0    ; set size = 0
  202.     shld    size
  203.     lhld    base+1    ; get BIOS pointer
  204.     lxi    d,5    ; add bias to console status address
  205.     dad    d
  206.     mov    d,m    ; save in [d]
  207.     lhld    newjtbl+1    ; see if vector addresses active
  208.     mov    a,h    ; been patched by previous execution?
  209.     cmp    d
  210.     jz    unpatch    ; un-patch, if so
  211.     lxi    b,pend-start+1        ; number of bytes to move
  212.     lxi    h,dest+pend-start+1    ; end of moved code
  213.     lxi    d,source+pend-start    ; end of source code
  214. ;
  215. mvlp    ldax    d    ; get byte
  216.     dcx    h    ; bump pointers
  217.     mov    m,a    ; new home
  218.     dcx    d
  219.     dcx    b    ; bump byte count
  220.     mov    a,b    ; check if zero
  221.     ora    c
  222.     jnz    mvlp    ; if not, do some more
  223.     pchl        ; do it, to it...
  224. ;
  225. source    equ    $    ; boundary memory marker
  226. ;
  227. offset    equ    dest-source ; relocation amount
  228. ;
  229. ; The following code gets moved to high ram located at "dest", 
  230. ; where it is executed. C A U T I O N :  if modifying anything 
  231. ; in this program from here on: ALL labels must be of the form:
  232. ;
  233. ; label    equ    $+offset        
  234. ;
  235. ; ...in   order   that  the  relocation  to  high   ram   work 
  236. ; successfully.   Forgetting  to specify '$+offset' will cause 
  237. ; the program to jmp into whatever is currently in low memory, 
  238. ; with unpredictable results.  Be careful....        
  239. ;
  240. start    equ    $+offset
  241. ;
  242. ; patch in the new jump table (saving the old)
  243. ;
  244. patch    equ    $+offset
  245.     call    tbladdr        ; calc [hl] =  CP/M jmp table
  246.     lxi    d,vcstat    ; point to save location
  247.     call    move        ; move it
  248. ;
  249. ; now move new jump table to CP/M
  250. ;
  251.     call    tbladdr        ; calc [hl] = CP/M's jmp table
  252.     xchg            ; move to de
  253.     lxi    h,newjtbl    ; point to new
  254.     call    move        ; move it
  255.     lxi    h,active$message
  256.     call    msgout
  257.     lhld    oldstk        ; get old CP/M stack pointer
  258.     sphl
  259.     ret
  260. ;
  261. unpatch equ    $+offset
  262.     call    reset    ; reset disk in case it's R/O
  263.     lxi    h,inactive$message
  264.     call    msgout
  265.     call    tbladdr        ; [hl] = CP/M's jmp table
  266.     xchg            ; move to de
  267.     lxi    h,vcstat    ; get saved table
  268.     call    move        ; move orig back
  269.     lhld    oldstk        ; get old CP/M stack pointer
  270.     sphl
  271.     ret            
  272. ;
  273. ; calculate [hl] = CP/M's jump table, [b] = length
  274. ;
  275. tbladdr equ    $+offset
  276.     lhld    base+1        ; get BIOS pointer
  277.     inx    h        ; ..skip
  278.     inx    h        ; ..to
  279.     inx    h        ; ..console status
  280.     mvi    b,9        ; move console jump vectors
  281.     ret
  282. ;
  283. ; move [hl] to [de], length in [b]
  284. ;
  285. move    equ    $+offset
  286.     mov    a,m        ; get a byte
  287.     stax    d        ; put at new home
  288.     inx    d        ; bump pointers
  289.     inx    h
  290.     dcr    b        ; decrement byte count
  291.     jnz    move        ; if more, do it
  292.     ret            ; if not, return
  293. ;
  294. ; move [hl] to [de], length in [bc]
  295. ;
  296. movecpm    equ    $+offset
  297.     mov    a,m        ; get a byte
  298.     stax    d        ; put at new home
  299.     inx    d        ; bump pointers
  300.     inx    h
  301.     dcx    b        ; decrement byte count
  302.     mov    a,b
  303.     ora    c
  304.     jnz    movecpm        ; if more, do it
  305.     ret            ; if not, return
  306. ;
  307. msgout    equ    $+offset
  308.     mov    a,m        ; get character from message string
  309.     ora    a        ; all of string displayed?
  310.     rz            ; return, if so
  311.     inx    h        ; no, bump pointer for next character
  312.     mov    c,a        ; pass character to 'old' BIOS vector
  313.     call    conout
  314.     jmp    msgout        ; display next character in message string
  315. ;
  316. ; This area is used for vectoring calls to the user's CBIOS, 
  317. ; but saving the registers first in case they are destroyed.
  318. ;
  319. constat equ    $+offset
  320.     push    b
  321.     push    d
  322.     push    h
  323.     call    vcstat
  324.     pop    h
  325.     pop    d
  326.     pop    b
  327.     ret
  328. ;
  329. conin    equ    $+offset
  330.     push    b
  331.     push    d
  332.     push    h
  333.     call    vcin
  334.     pop    h
  335.     pop    d
  336.     pop    b
  337.     ret
  338. ;
  339. conout    equ    $+offset
  340.     push    b
  341.     push    d
  342.     push    h
  343.     call    vcout
  344.     pop    h
  345.     pop    d
  346.     pop    b
  347.     ret
  348. ;
  349. ; This  is  the jump table which is copied on top of  the  one 
  350. ; pointed to by location 1 in CP/M
  351. ;
  352. newjtbl equ    $+offset
  353.     jmp    constat    ; console status test
  354.  
  355.     if    INPUT
  356.     jmp    capture    ; console input I/O-CAP routine
  357.     endif        ; INPUT
  358.  
  359.     if    OUTPUT
  360.     jmp    conin    ; console input routine
  361.     endif        ; OUTPUT
  362.  
  363.     if    INPUT
  364.     jmp    conout    ; console output routine
  365.     endif        ; INPUT
  366.  
  367.     if    OUTPUT
  368.     jmp    capture    ; console I/O-CAP output routine
  369.     endif        ; OUTPUT
  370.  
  371. ;
  372. capture    equ    $+offset
  373.     push    h
  374.     push    d
  375.     push    b
  376.     lxi    h,0    ; save old stack pointer
  377.     dad    sp
  378.     shld    oldstk
  379.     lxi    sp,stack; make a new stack pointer
  380.  
  381.     if    INPUT
  382.     call    vcin    ; get console input
  383.     mov    c,a    ; save in [c] for 'save'
  384.     push    psw    ; and save on the stack
  385.     endif        ; INPUT
  386.  
  387.     call    save    ; save characters in buffer
  388.  
  389.     if    INPUT
  390.     pop    psw    ; get console input of the stack
  391.     endif        ; INPUT
  392.  
  393.     lhld    oldstk    ; get old CP/M stack pointer
  394.     sphl
  395.     pop    b
  396.     pop    d
  397.     pop    h
  398.  
  399.     if    OUTPUT
  400.     jmp    vcout
  401.     endif        ; OUTPUT
  402.  
  403.     if    INPUT
  404.     ret
  405.     endif        ; INPUT
  406.  
  407. ; 
  408. save:    equ    $+offset
  409.     lhld    size    ; size = size + 1
  410.     inx    h
  411.     shld    size
  412.     lhld    ptr
  413.     mov    m,c
  414.     inx    h
  415.  
  416.     if    INPUT
  417.     mov    a,c
  418.     cpi    cr    ; carriage return?
  419.     jnz    notcr
  420.     mvi    m,lf    ; yes, so add line feed because CP/M does not
  421.     inx    h    ; bump pointer, for next time thru
  422.     endif        ; INPUT
  423.  
  424. notcr    equ    $+offset; make label for next instruction...
  425.  
  426.     if    QUIT
  427.     mov    a,c
  428.     cpi    'Z'-40h    ; control-Z?
  429.     jz    wtb    ; write buffer, if so
  430.     endif        ; QUIT
  431.  
  432.     shld    ptr
  433.     lxi    d,endmark    ; get 'endmark' for buffer top address
  434.     mov    a,d
  435.     cmp    h    ; getting near the end of buffer yet?
  436.     rnz        ; if not, just return
  437.     mov    a,e    ; very near the top now, final address loaded?
  438.     cmp    l
  439.     rnz        ; if not, just return
  440.  
  441.     if    not QUIET
  442.     mvi    c,bel    ; warn user that we need to write to disk
  443.     call    conout
  444.     endif        ; QUIET
  445.  
  446. ; 
  447. ; wtb - write text buffer to disk
  448. ; 
  449. wtb:    equ    $+offset
  450.     lhld    base+6    ; get warm boot address for next bias to CCP
  451.     lxi    d,0fffah; make bias to CCP
  452.     dad    d    ; add bias to [hl]
  453.     lxi    b,1600h    ; make quantity to move
  454.     lxi    d,cpmbuf; buffer all of CP/M system
  455.     call    movecpm    ; move it...
  456.     call    reset    ; reset disk in case it's R/O
  457.     call    open    ; attempt to open USER.LOG
  458.     inr    a    ; check CP/M return code
  459.     jnz    makeok    ; USER.LOG already exist?
  460. ;
  461. nolog:    equ    $+offset
  462. ;
  463.     call    make    ; make new file
  464.     inr    a    ; check CP/M return code
  465.     jnz    makeok
  466.  
  467.     if    ERRDISP
  468.     lxi    h,dirful; oops...can't make file, return to CP/M
  469.     call    msgout
  470.     endif        ; ERRDISP
  471.  
  472.     jmp    base
  473. ;
  474. ; USER.LOG exists, so set the FCB entry for next append to file
  475. ;
  476. makeok:    equ    $+offset
  477. ;
  478.     lda    fcb+frc    ; get record count
  479.     sta    fcb+nr    ; make next record
  480.     lhld    size    ; [de] = tbuf size
  481.     xchg
  482.     lxi    h,dbuf    ; top of stack points to dbuf
  483.     push    h
  484.     lxi    h,tbuf    ; [hl] points to tbuf
  485. ; 
  486. wtb1:    equ    $+offset
  487.     mvi    c,128    ; disk buffer size
  488. ; 
  489. wtb2:    equ    $+offset
  490.     mov    a,m    ; fetch next byte of tbuf
  491.     inx    h
  492.     xthl
  493.     mov    m,a    ; store in dbuf
  494.     inx    h
  495.     xthl
  496.     dcx    d    ; size = size - 1
  497.     mov    a,d    ; exit loop if size = 0
  498.     ora    e
  499.     jz    wtb3
  500.     dcr    c    ; loop until dbuf full
  501.     jnz    wtb2
  502.     call    setdma    ; set dma to dbuf
  503.     call    write    ; write full dbuf to disk
  504.     push    psw    ; save possible error code
  505.     lda    fcb+frc    ; get record count
  506.     sta    fcb+nr    ; make next record
  507.     pop    psw    ; get possible error code
  508.     ora    a    ; check CP/M return code
  509.     jz    nextbuf
  510.  
  511.     if    ERRDISP
  512.     lxi    h,dskful; oops...disk is full
  513.     call    msgout
  514.     endif        ; ERRDISP
  515.  
  516.     jmp    base
  517. ;
  518. nextbuf    equ    $+offset
  519. ;
  520.     xthl        ; top of stack points to dbuf
  521.     lxi    h,dbuf
  522.     xthl
  523.     jmp    wtb1    ; loop until end of tbuf
  524. ; 
  525. wtb3:    equ    $+offset
  526.     pop    h    ; [hl] points to current place in dbuf
  527. ; 
  528. wtb4:    equ    $+offset
  529.     mvi    m,'Z'-40h ; store eof code
  530.     inx    h
  531.     dcr    c    ; loop thru rest if dbuf
  532.     jnz    wtb4
  533.     call    setdma    ; set dma to dbuf
  534.     call    write    ; write last sector to disk
  535.     push    psw    ; save possible error code
  536.     lda    fcb+frc    ; get record count
  537.     sta    fcb+nr    ; make next record
  538.     pop    psw    ; get possible error code
  539.     ora    a    ; check CP/M return code
  540.     jz    closeup
  541.  
  542.     if    ERRDISP
  543.     lxi    h,dskful; oops...disk is full
  544.     call    msgout
  545.     endif        ; ERRDISP
  546.  
  547.     jmp    base
  548. ;
  549. closeup    equ    $+offset
  550. ;
  551.     call    close    ; clean up act and go home
  552.     lxi    h,tbuf    ; clear text buffer
  553.     shld    ptr
  554.     lxi    h,0
  555.     shld    size
  556. wtb5:    equ    $+offset
  557.     lhld    base+6    ; get warm boot address for next bias to CCP
  558.     lxi    d,0fffah; make bias to CCP
  559.     dad    d    ; add bias to [hl]
  560.     lxi    b,1600h    ; make quantity to move
  561.     lxi    d,cpmbuf; buffer all of CP/M system
  562.     xchg        ; swap
  563.     call    movecpm    ; move it...
  564.     ret
  565. ; 
  566. ;  reset - reset disk
  567. ;
  568. reset:    equ    $+offset
  569.     push    h
  570.     push    d
  571.     push    b
  572.     mvi    c,resdsk
  573.     call    bdos
  574.     pop    b
  575.     pop    d
  576.     pop    h
  577.     ret
  578. ; 
  579. ; open - open disk file
  580. ; 
  581. open:    equ    $+offset
  582.     push    h
  583.     push    d
  584.     push    b
  585.     lxi    d,fcb
  586.     mvi    c,offc
  587.     call    bdos
  588.     pop    b
  589.     pop    d
  590.     pop    h
  591.     ret
  592. ; 
  593. ; read - read record from disk file
  594. ; 
  595. read:    equ    $+offset
  596.     push    h
  597.     push    d
  598.     push    b
  599.     lxi    d,fcb
  600.     mvi    c,rrfc
  601.     call    bdos
  602.     pop    b
  603.     pop    d
  604.     pop    h
  605.     ret
  606. ; 
  607. ; close - close disk file
  608. ; 
  609. close:    equ    $+offset
  610.     push    h
  611.     push    d
  612.     push    b
  613.     lxi    d,fcb
  614.     mvi    c,cffc
  615.     call    bdos
  616.     pop    b
  617.     pop    d
  618.     pop    h
  619.     ret
  620. ; 
  621. ; delt - delete disk file
  622. ; 
  623. delt:    equ    $+offset
  624.     push    h
  625.     push    d
  626.     push    b
  627.     lxi    d,fcb
  628.     mvi    c,dffc
  629.     call    bdos
  630.     pop    b
  631.     pop    d
  632.     pop    h
  633.     ret
  634. ; 
  635. ; write - write record to disk
  636. ; 
  637. write:    equ    $+offset
  638.     push    h
  639.     push    d
  640.     push    b
  641.     lxi    d,fcb
  642.     mvi    c,wrfc
  643.     call    bdos
  644.     pop    b
  645.     pop    d
  646.     pop    h
  647.     ret
  648. ; 
  649. ; make - make new disk file
  650. ; 
  651. make:    equ    $+offset
  652.     push    h
  653.     push    d
  654.     push    b
  655.     lxi    d,fcb
  656.     mvi    c,mffc
  657.     call    bdos
  658.     pop    b
  659.     pop    d
  660.     pop    h
  661.     ret
  662. ; 
  663. ; setdma - set dma address for disk file
  664. ; 
  665. setdma:    equ    $+offset
  666.     push    h
  667.     push    d
  668.     push    b
  669.     lxi    d,dbuf
  670.     mvi    c,sdma
  671.     call    bdos
  672.     pop    b
  673.     pop    d
  674.     pop    h
  675.     ret
  676. ;
  677.  
  678.     if    ERRDISP
  679. dskful:    equ    $+offset
  680.     db    cr,lf,bel,'OOPS...disk is full!',0
  681. ;
  682. dirful:    equ    $+offset
  683.     db    cr,lf,bel,'OOPS...directory is full!',0
  684.     endif        ; ERRDISP
  685.  
  686. ;
  687. active$message    equ    $+offset
  688.     db    '  (Active)',0
  689. ;
  690. inactive$message    equ    $+offset
  691.     db    '  (Inactive)',0
  692. ;
  693. fcb    equ    $+offset
  694.     db    0    ; default drive specifier
  695.  
  696.     if    SYSLOG
  697.     db    'USER    L','O'+80h,'G'
  698.     endif        ; SYSLOG
  699.  
  700.     if    not SYSLOG
  701.     db    'USER    LOG'
  702.     endif        ; SYSLOG
  703.  
  704.     db    0,0,0,0,0,0,0,0,0,0
  705. ;
  706. pend    equ    $+offset; end of relocated code
  707. ;
  708. ; data area
  709. ; 
  710.     ds    128    ; 64 level stack
  711. stack    equ    $+offset;local stack
  712. ;
  713. ptr:    equ    $+offset
  714.     ds    2    ; text buffer pointer
  715. ;
  716. size:    equ    $+offset
  717.     ds    2    ; text buffer size
  718. ;
  719. ; Save the CP/M jump table here
  720. ;
  721. vcstat    equ    $+offset
  722.     ds    3
  723. ;
  724. vcin    equ    $+offset
  725.     ds    3
  726. ;
  727. vcout    equ    $+offset
  728.     ds    3
  729. ;
  730. oldstk    equ    $+offset
  731.     ds    2    ; storage for old CP/M stack pointer
  732. ;
  733. cpmbuf    equ    $+offset
  734.     ds    1600h    ; storage CP/M system image
  735. ;
  736. dbuf    equ    $+offset
  737.     ds    128    ; secondary disk buffer address
  738. ;
  739. tbuf:    equ    $+offset
  740.     ds    16*128    ; I/O-CAP storage for 16 sectors (2048 bytes)
  741. ;
  742. endmark    equ    $+offset;! ignore error - this marks end of program
  743. ;
  744.     end
  745.