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