AppleIIAsm-Collection/source/d6_fileio/T.MIN.SUB.BINLOAD
nathanriggs 9f35f32f67 Revision 0.5.0
- massive overhaul of architecture
- first round of optimizations
- first draft of the technical manual for the entire library
- reorganization of directory structure
2019-09-27 16:57:34 -04:00

38 lines
927 B
Plaintext

]SLEN EQU VARTAB
]ADDR EQU WPAR1
BINLOAD
LDA #1
STA $AAB6 ; MODE
STA $75+1
STA $33
LDA #$8D
JSR FCOUT
LDA #$84
JSR FCOUT
LDA #$C2
JSR FCOUT
LDA #$CC
JSR FCOUT
LDA #$CF
JSR FCOUT
LDA #$C1
JSR FCOUT
LDA #$C4
JSR FCOUT
LDA #$A0
JSR FCOUT
LDY #0
LDA (]ADDR),Y
STA ]SLEN
LDY #1
:LP
LDA (]ADDR),Y
JSR FCOUT
INY
CPY ]SLEN
BCC :LP
BEQ :LP
LDA #$8D
JSR FCOUT
RTS