* = $1800
; ROUTINE TO WRITE N-BLOCKS
OF
DATA
; COMMAND CHANNEL MUST BE OPEN ON DRIVE
; OPEN 15,8,15
; BUFFER AND
CMD~UF,
AND CMD-LENGTH MUST BE SETUP
; PRIOR TO CALLING THIS COMMAND.
serial
d2pra
clkout
olcLclk
clkin
dlicr
dlsdr
stat
buffer
mmureg
dltimh
dltiml
dIcra
=
$OaIc
=
$ddOO
=$10
= $fd
= $40
=
$dcOd
=
$dcOc
= $fa
= $fb
= $d505
= dc05
= $dc04
=
$dcOe
Ida
#15
ldx
#8
ldy
#15
jsr
setlfs
jsr
setnam
jsr
open
; fast serial flag
; $fb
& $fc
; timer a high
; timer a low
; control reg a
; logical file number
; device number
; secondary address
; setup logical file
; setup file name
; open logical channel
; after the command channel
is
open subsequent calls should be from 'write'
write Ida
#$00
sta stat
Ida serial
and
#%10111111 ; clear bit 6 fast serial flag
sta
serial
ldx
#15
jsr
chkout
; open channel for output
ldx
#0
ldy
cm<i.1ength ; length
of
the command
1$
Ida cmcLbuf,x
; get command
jsr
bsout ; send the command
inx
dey
bne
1$
94
To Next Page
Loading...
