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