home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / asmutl / asmlib1.lbr / CPMMPC.AYM / CPMMPC.AYM
Encoding:
Text File  |  1994-05-31  |  9.3 KB  |  351 lines
  1. ;****************************************************************
  2. ;*        This is a module in ASMLIB            *
  3. ;*                                *
  4. ;* This is the MPC-6 and CP/M super-duper all singing        *
  5. ;* re-directable I/O driver module for ASMLIB and the MPC-6.    *
  6. ;* This module is linked into  ASMLIB  in-place of the      *
  7. ;* original COE, CIE, CST drivers.                *         
  8. ;*                                *
  9. ;* This module supports the following devices and is selected   *
  10. ;* by sending the following codes to the console driver COE     *
  11. ;* which intercepts the code and directs the output to the     *
  12. ;* following devices.                        *
  13. ;*                                *
  14. ;*   Code        --- Device ---                *
  15. ;*    F8    CP/M standard I/O drivers. Standard default.     *
  16. ;*                                    *
  17. ;*    F9    MPC-6 Channel 0                    *
  18. ;*    FA              1                    *
  19. ;*    FB              2                    *
  20. ;*    FC              3                    *
  21. ;*    FD              4                    *
  22. ;*    FE              5                    *
  23. ;*                                *
  24. ;* When the above codes are sent to the COE routine, they are   *
  25. ;* intercepted and used to SWITCH all further I/O to the     *
  26. ;* selected device from this point on.                *
  27. ;* This is extremely handy for having multiple I/O devices in a *
  28. ;* program selected chain.                    *
  29. ;*                                *
  30. ;*            Written        R.C.H.      14/11/83    *
  31. ;*            Last Update    R.C.H.       22/02/84    *
  32. ;****************************************************************
  33. ;
  34.     name    'CPMMPC'
  35.     public    coe,cie,cst,loe,lst,ionum
  36. ;
  37.     maclib    z80
  38. ;
  39. bdos    equ    5
  40. num    equ    3        ; 01 = cpmio, 02 = sbc800io, 03 = this
  41. in$off    equ    6        ; Bios table offset from entry 00
  42. ot$off    equ    9
  43. st$off    equ    3
  44. ;
  45. ; 
  46. ; Equates for MPC-6 Card.
  47. ;
  48. mpcdat    equ    00        ; MPC-6 data port
  49. txstat    equ    01        ; MPC-6 transmitter status port
  50. rxstat    equ    02        ; MPC-6 receiver status port
  51. command    equ    txstat        ; MPC-6 command port
  52. reset    equ    03        ; MPC-6 reset port
  53. send    equ    010h        ; Opcode for sending a byte to MPC
  54. receive    equ    00        ; Opcode for receiving a byte from MPC
  55. ;
  56. ionum:
  57.     mvi    l,num
  58.     ret
  59. ;
  60. ;----------------------------------------------------------------
  61. ; Get the status of the currently selected I/O device
  62. ;
  63. ; Channel = 0 then CP/M
  64. ; Channel = 1 to 6 then MPC-6
  65. ;----------------------------------------------------------------
  66. ;
  67. cst:
  68.     lda    channel
  69.     ora    a            ; Channel 00 ?
  70.     jz    const            ; Get console status
  71. ; Here we get the status of the MPC-6 receiver stored in A.
  72.     dcr    a            ; make in the range 0..5
  73.     jr    mpcstat            ; Do the job and return to user
  74. ;
  75. ;----------------------------------------------------------------
  76. ;        Read A character
  77. ;        ----------------
  78. ;
  79. ; Use the channel number to select either the MPC-6 or the CP/M
  80. ; Channel allocations as before.
  81. ;----------------------------------------------------------------
  82. ;
  83. cie:
  84.     lda    channel
  85.     ora    a
  86.     jz    conin
  87.     dcr    a            ; make the channel number in range
  88.     jr    mpcread
  89. ;
  90. ;----------------------------------------------------------------
  91. ;        Output a character in A 
  92. ;        -----------------------
  93. ;
  94. ; Test if the character is a channel selector byte 
  95. ; Write character in A to MPC-6 or CP/M, again depending on 
  96. ; selected channel number.
  97. ; Before writing, we test if it is a channel selector byte as
  98. ; defined previously.
  99. ;----------------------------------------------------------------
  100. ;
  101. coe:
  102.     push    psw            ; save the character
  103.     ani    0f8h            ;
  104.     cpi    0f8h            ; Mask to test top 5 bits
  105.     jrnz    coe2
  106. ; Here the byte is a channel selector
  107.     pop    psw            ; restore the byte
  108.     ani    07h            ; leave only the channel number there
  109.     cpi    07
  110.     rz                ; Ignore out of range value
  111.     sta    channel            ; Save the number
  112.     ret
  113. ;
  114. ; Here and it is not a channel selector, but a valid ascii byte < 0f8h
  115. ;
  116. coe2:    ; Do the channel test and jump
  117.     lda    channel
  118.     ora    a
  119.     jz    conout            ; do the job via CP/M
  120. ;
  121.     jr    mpcsend            ; send it and return via MPC i/o driver
  122. ;
  123. ;----------------------------------------------------------------
  124. ;                     Get the MPC-6 status
  125. ;              --------------------
  126. ;
  127. ; Channel number is in the CHANNEL byte
  128. ; Return A = 00 = no character there all else = character there
  129. ;----------------------------------------------------------------
  130. ;
  131. mpcstat:
  132.     push    d
  133.     call    bitset            ; Get a channel mask into E
  134.     in    rxstat
  135. rdy:
  136.     ana    e            ; the desired channel ??
  137.     pop    d            ; restore register
  138.     rz
  139.     mvi    a,0ffh            ; load with 0ffh if not
  140.     ret
  141. ;
  142. ;----------------------------------------------------------------
  143. ;         Read an MPC-6 channel. 
  144. ;        ----------------------
  145. ;
  146. ; Channel number is in the CHANNEL byte
  147. ;----------------------------------------------------------------
  148. ;
  149. mpcread:
  150.     push    d
  151. ; Generate a channel mask in E 
  152.     call    bitset
  153. ; 
  154. cari0:
  155.     in    txstat
  156.     ani    080h        ; we are truly busy, wait, if bit set
  157.     jrnz    cari0
  158. ;
  159. ; Wait till MPC-6 is ready with data for this channel
  160.     in    rxstat        ; channel mask
  161.     ana    e
  162.     jrz    cari0
  163. ;
  164.     in    txstat
  165.     ani    080h
  166.     jrnz    cari0
  167. ; Mask in the receive byte with the MPC-6 channel number
  168.     lda    channel        ; get the channel number
  169.     dcr    a        ; make it in range 0..5
  170.     ori    receive        ; Mask in the channel selected by the user
  171.     out    command
  172. cari1:
  173.     in    txstat
  174.     ani    080h
  175.     jrz    cari1
  176.     in    MPCDAT
  177. ; character is in A and ready for action
  178.     ani    07fh            ; mask off parity
  179. ;
  180.     pop    d            ; restore the register
  181.     ret
  182. ;
  183. ;----------------------------------------------------------------
  184. ;         Send data to the MPC-6 
  185. ;        ----------------------
  186. ;
  187. ; Data at stack TOP
  188. ; The channel number is saved in the CHANNEL byte and bitset uses
  189. ; this to generate channel mask bytes.
  190. ;----------------------------------------------------------------
  191. ;
  192. mpcsend:
  193.     pop    psw            ; get the character
  194.     push    b            ; save all user registers
  195.     push    d
  196. ;
  197.     mov    c,a            ; save the character for later
  198.     out    mpcdat            ; send the character to MPC-6
  199. caro0:
  200.     in    txstat
  201.     ani    080h
  202.     jrnz    caro0
  203. ; Get a channel mask into E
  204. ;
  205.     call    bitset
  206. ; Read status till MPC-6 accepts the character (mask in E)
  207. ;
  208. caro1:
  209.     in    txstat
  210.     ana    e
  211.     jrz    caro1
  212. ;
  213. ; Load the channel number, mask in the send command byte then send to MPC
  214. ;
  215.     lda    channel
  216.     dcr    a            ; make it in range 0..5
  217.     ori    send            ; tell MPC-6 we are sending data to it
  218.     out    command            ; send to command port
  219. ;
  220. ; A little delay for the MPC is done here to make sure it reads the byte
  221. ;
  222. delay:
  223.     mvi    a,030h
  224. del1:
  225.     dcr    a
  226.     jrnz    del1
  227. ; Restore the users character then his registers.
  228.     mov    a,c            ; restore the character
  229.     pop    d
  230.     pop    b
  231.     ret
  232. ;
  233. ;        ----------------
  234. ; Set bits to suit a selected MPC-6 channel.
  235. ; This is done by reading the channel byte to set a single bit
  236. ; in the byte returned in A
  237. ;        ----------------
  238. ;
  239. bitset:
  240.     push    b            ; save this
  241.     lda    channel            ; get channel number 1..6
  242.     mov    b,a            ; load into counter
  243.     xra    a            ; clear seed
  244.     stc                ; set carry
  245. ;
  246. ; Rotate the carry up the A register to generate a bit pattern
  247. ; for the required channel. Channel 0 -> 01, channel 4 -> 08 etc.
  248. ;
  249. bit0:
  250.     ral                ; rotate arith left thru carry
  251.     djnz    bit0            ; do for all bits
  252.     mov    e,a
  253.     pop    b            ; restore register
  254.     ret
  255. ;
  256. ;****************************************************************
  257. ;     CP/M    I/O drivers. Used when channel = 00        *
  258. ;          Send the accumulator to the screen            *
  259. ;****************************************************************
  260. ;
  261. conout:
  262. ;The character to send is on the stack 
  263.     pop    psw            ; get the output character
  264.     push    h
  265.     push    b
  266.     push    d            ; save all registers
  267.     push    psw            ; Save the character
  268.     mov    c,a            ; Load the character to be sent
  269.     lxi    d,ot$off        ; input offset
  270.     lxi    h,retadr1
  271.     jr    get$con$com
  272. ;
  273. ;----------------------------------------------------------------
  274. ;     Send the accumulator character to the list device
  275. ;----------------------------------------------------------------
  276. ;
  277. loe:
  278.     push    psw
  279.     push    h
  280.     push    b
  281.     push    d
  282.     mov    e,a            ; load the character to print
  283.     mvi    c,5              ; print list function
  284.     call    bdos
  285.     pop    d
  286.     pop    b
  287.     pop    h
  288.     pop    psw
  289.     ret
  290. ;
  291. ;----------------------------------------------------------------
  292. ;           Get a character from the console
  293. ;----------------------------------------------------------------
  294. ;
  295. conin:
  296.     push    h
  297.     push    b
  298.     push    d            ; save all registers
  299.     lxi    d,in$off        ; input offset
  300.     lxi    h,retadr2
  301. ;
  302. get$con$com:
  303.     push    h            ; Load a return address
  304.     lhld    1            ; get the warm boot vector
  305.     dad    d            ; Now hl = bios table address to use
  306.     pchl            ; do the routine
  307. ;
  308. ; Return here to restore all registers
  309. retadr1:
  310.     pop    psw        
  311. ; To skip PSW, return here
  312. retadr2:
  313.     pop    d
  314.     pop    b
  315.     pop    h
  316.     ora    a            ; Set flags, clear carry
  317.     ret
  318. ;
  319. ;----------------------------------------------------------------
  320. ; Get the console status. 00 = no character all else = read.
  321. ;----------------------------------------------------------------
  322. ;
  323. const:    ; Get the status
  324.     push    h
  325.     push    b
  326.     push    d            ; save all registers
  327.     lxi    d,st$off        ; input offset
  328.     lxi    h,retadr2        ; load the required return address
  329.     jr    get$con$com        ; read the console common code
  330. ;
  331. ;----------------------------------------------------------------
  332. ; Get the list output status. If = 00 then no character may be
  333. ; sent to the device.
  334. ;----------------------------------------------------------------
  335. ;
  336. lst:
  337.     mvi    a,0ffh            ; Not supported yet
  338.     ora    a
  339.     ret                ; return the device as ready
  340. ;
  341. ;
  342. ; Data storage is required to save the channel selection byte
  343. ; which is selected when the byte is sent to the COE driver
  344. ;
  345.     dseg
  346. channel    db    00            ; Holds the logged in channel number
  347.     end
  348.  
  349.  
  350.  
  351.