; 6502bench SourceGen v1.7.3
RWTS .eq $bd00 ;DOS33 RWTS entry point
.org $0300
; RWTS Input/Output Control Block used for reading sectors
0300: 01 RWTS_IOB .dd1 $01 ;table type
0301: 60 .dd1 $60 ;slot number * 16
0302: 01 .dd1 $01 ;drive number
0303: 00 .dd1 $00 ;volume (0=any)
0304: 00 RWTS_IOB_track .dd1 $00 ;track
0305: 00 RWTS_IOB_sector .dd1 $00 ;sector
0306: 11 03 .dd2 RWTS_DCT ;ptr to device characteristics table
0308: 00 02 RWTS_IOB_buf .dd2 $0200 ;ptr to READ/WRITE buffer
030a: 00 .dd1 $00 ;unused
030b: 00 .dd1 $00 ;byte count (0=256 bytes)
030c: 00 RWTS_IOB_command .dd1 $00 ;command code
030d: 00 .dd1 $00 ;return code
030e: 00 .dd1 $00 ;volume of last access
030f: 60 .dd1 $60 ;slot * 16 of last access
0310: 02 .dd1 $02 ;drive of last access
; Standard device characteristics table for Disk ][
0311: 00 RWTS_DCT .dd1 $00 ;device type (0=DISK ][)
0312: 01 .dd1 $01 ;phases per track (1=DISK ][)
0313: ef .dd1 $ef ;Motor on time count ($EF for DISK ][)
0314: d8 .dd1 $d8 ;Motor on time count ($D8 for DISK ][)
; Call RWTS with IOB at $0300.
0315: a0 00 DIRECT_RWTS ldy #<RWTS_IOB
0317: a9 03 lda #>RWTS_IOB
0319: 20 00 bd jsr RWTS
031c: 60 rts
; Junk, probably.
031d: 00 00 00 00+ .fill 19,$00