39 lines
365 B
Plaintext
39 lines
365 B
Plaintext
include 'gsos.equ'
|
|
|
|
|
|
device_rw proc
|
|
|
|
; inputs: a = call num
|
|
; outputs: carry, a
|
|
|
|
with dev_parms
|
|
|
|
sta dev_callnum
|
|
|
|
loop
|
|
jsl dev_dispatcher
|
|
bcc exit
|
|
cmp #drvr_disk_sw
|
|
beq loop
|
|
cmp #drvr_busy
|
|
beq loop
|
|
sec
|
|
|
|
exit
|
|
rts
|
|
endp
|
|
|
|
device_read proc export
|
|
|
|
lda #drvr_read
|
|
bra device_rw
|
|
endp
|
|
|
|
device_write proc export
|
|
lda #drvr_write
|
|
bra device_rw
|
|
endp
|
|
|
|
end
|
|
|