2019-01-23 19:12:29 +00:00
|
|
|
BLOAD MAC
|
|
|
|
_ISSTR ]1
|
|
|
|
JSR BINLOAD
|
|
|
|
<<<
|
|
|
|
BSAVE MAC
|
|
|
|
_ISSTR ]1
|
|
|
|
JSR BINSAVE
|
|
|
|
<<<
|
|
|
|
AMODE MAC
|
|
|
|
LDA #1
|
2019-04-26 22:49:10 +00:00
|
|
|
STA $AAB6
|
|
|
|
STA $75+1
|
|
|
|
STA $33
|
2019-01-23 19:12:29 +00:00
|
|
|
<<<
|
|
|
|
CMD MAC
|
2019-04-26 22:49:10 +00:00
|
|
|
_ISSTR ]1
|
2019-01-23 19:12:29 +00:00
|
|
|
JSR DOSCMD
|
|
|
|
<<<
|
|
|
|
FPRN MAC
|
|
|
|
IF ",]1
|
|
|
|
JSR FPRINT
|
|
|
|
ASC ]1
|
|
|
|
HEX 8D00
|
2019-04-26 22:49:10 +00:00
|
|
|
ELSE
|
|
|
|
_ISLIT ]1
|
|
|
|
JSR FPSTR
|
2019-01-23 19:12:29 +00:00
|
|
|
FIN
|
|
|
|
<<<
|
|
|
|
FINP MAC
|
2019-04-26 22:49:10 +00:00
|
|
|
_ISLIT ]1
|
2019-01-23 19:12:29 +00:00
|
|
|
JSR FINPUT
|
|
|
|
<<<
|
|
|
|
SLOT MAC
|
|
|
|
LDA ]1
|
|
|
|
STA SCRATCH
|
|
|
|
ASL SCRATCH
|
|
|
|
ASL SCRATCH
|
|
|
|
ASL SCRATCH
|
2019-04-26 22:49:10 +00:00
|
|
|
ASL SCRATCH
|
2019-01-23 19:12:29 +00:00
|
|
|
LDA SCRATCH
|
|
|
|
STA IOB_SLOT
|
|
|
|
<<<
|
|
|
|
DRIVE MAC
|
|
|
|
LDA ]1
|
|
|
|
STA IOB_DRIV
|
|
|
|
<<<
|
|
|
|
TRACK MAC
|
|
|
|
LDA ]1
|
|
|
|
STA IOB_TRAK
|
|
|
|
<<<
|
|
|
|
SECT MAC
|
|
|
|
LDA ]1
|
|
|
|
STA IOB_SECT
|
|
|
|
<<<
|
|
|
|
SETDR MAC
|
|
|
|
LDA $01
|
|
|
|
STA IOB_COMM
|
|
|
|
<<<
|
|
|
|
SETDW MAC
|
|
|
|
LDA $02
|
|
|
|
STA IOB_COMM
|
|
|
|
<<<
|
|
|
|
DBUFF MAC
|
|
|
|
LDA #<]1
|
|
|
|
STA IOB_BUFL
|
|
|
|
LDA #>]1
|
|
|
|
STA IOB_BUFH
|
|
|
|
<<<
|
|
|
|
DRWTS MAC
|
|
|
|
JSR DISKOP
|
|
|
|
<<<
|