mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-25 17:34:06 +00:00
61 lines
1.0 KiB
Plaintext
61 lines
1.0 KiB
Plaintext
|
||
title 'List Device module'
|
||
|
||
;******************************************
|
||
; *
|
||
; LIST DEVICE MODULE *
|
||
; Last changed : 1/30/84 *
|
||
; *
|
||
;******************************************
|
||
|
||
dseg
|
||
|
||
public lcb0
|
||
|
||
extrn oq7desc:byte
|
||
extrn oq8desc:byte
|
||
|
||
cseg
|
||
|
||
public io_listst, io_list
|
||
|
||
extrn serial_out:near
|
||
|
||
;=========
|
||
io_listst: ; Function 3: List Status
|
||
;=========
|
||
; input: DL = list device number
|
||
; output: AL = 0ffh if ready
|
||
; = 000h if not ready
|
||
|
||
xor al,al
|
||
ret ;back to caller
|
||
|
||
;=======
|
||
io_list: ; Function 4: List Output
|
||
;=======
|
||
; input: CL = character
|
||
; dl = list device number
|
||
; output: None
|
||
|
||
cmp dl, 0 ! je list0
|
||
mov bx, offset oq7desc
|
||
jmps list1
|
||
list0:
|
||
mov bx, offset oq8desc
|
||
list1:
|
||
call serial_out
|
||
|
||
ret
|
||
|
||
dseg
|
||
|
||
lcb0 dw 0,0,0,0 ;reserved
|
||
db 0ffh,0ffh ;mimic, msource
|
||
|
||
lcb1 dw 0,0,0,0 ;reserved
|
||
db 0ffh,0ffh ;mimic, msource
|
||
|
||
end
|
||
|
||
|