| 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 |