C64 ROM | Routines |
Prev: AB4D | Up: Map | Next: ABA5 |
|
||||
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 |