AppleIIAsm-Collection/source/disk19_demo_builds_1/T.MIN.MAC.FILEIO
nathanriggs c8cac53c5e Rev 0.4 updates
Massive updates that changes the way most subroutines are handled. Major bugfixes, various utilities added, started higher-level libraries.
2019-04-26 18:49:10 -04:00

72 lines
1.3 KiB
Plaintext

BLOAD MAC
_ISSTR ]1
JSR BINLOAD
<<<
BSAVE MAC
_ISSTR ]1
JSR BINSAVE
<<<
AMODE MAC
LDA #1
STA $AAB6
STA $75+1
STA $33
<<<
CMD MAC
_ISSTR ]1
JSR DOSCMD
<<<
FPRN MAC
IF ",]1
JSR FPRINT
ASC ]1
HEX 8D00
ELSE
_ISLIT ]1
JSR FPSTR
FIN
<<<
FINP MAC
_ISLIT ]1
JSR FINPUT
<<<
SLOT MAC
LDA ]1
STA SCRATCH
ASL SCRATCH
ASL SCRATCH
ASL SCRATCH
ASL SCRATCH
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
<<<