Prev: AB4D Up: Map Next: ABA5
AB7B: perform GET
AB7B 20 A6 B3 JSR $B3A6 check not Direct, back here if ok
AB7E C9 23 CMP #"#" compare with "#"
AB80 D0 10 BNE $AB92 branch if not GET#
AB82 20 73 00 JSR $0073 increment and scan memory
AB85 20 9E B7 JSR $B79E get byte parameter
AB88 A9 2C LDA #"," set ","
AB8A 20 FF AE JSR $AEFF scan for CHR$(A), else do syntax error then warm start
AB8D 86 13 STX $13 set current I/O channel
AB8F 20 1E E1 JSR $E11E open channel for input with error check
AB92 A2 01 LDX #$01 set pointer low byte
AB94 A0 02 LDY #$02 set pointer high byte
AB96 A9 00 LDA #$00 clear A
AB98 8D 01 02 STA $0201 ensure null terminator
AB9B A9 40 LDA #$40 input mode = GET
AB9D 20 0F AC JSR $AC0F perform the GET part of READ
ABA0 A6 13 LDX $13 get current I/O channel
ABA2 D0 13 BNE $ABB7 if not default channel go do channel close and return
ABA4 60 RTS
Prev: AB4D Up: Map Next: ABA5