| C64 ROM | Routines |
| Prev: A93B | Up: Map | Next: A96B |
|
|
||||
| A94B | 20 9E B7 | JSR $B79E | get byte parameter | |
| A94E | 48 | PHA | push next character | |
| A94F | C9 8D | CMP #$8D | compare with GOSUB token | |
| A951 | F0 04 | BEQ $A957 | if GOSUB go see if it should be executed | |
|
This entry point is used by the routine at A96B.
|
||||
| A953 | C9 89 | CMP #$89 | compare with GOTO token | |
| A955 | D0 91 | BNE $A8E8 | if not GOTO do syntax error then warm start | |
|
next character was GOTO or GOSUB, see if it should be executed
|
||||
| A957 | C6 65 | DEC $65 | decrement the byte value | |
| A959 | D0 04 | BNE $A95F | if not zero go see if another line number exists | |
| A95B | 68 | PLA | pull keyword token | |
| A95C | 4C EF A7 | JMP $A7EF | go execute it | |
| A95F | 20 73 00 | JSR $0073 | increment and scan memory | |
| A962 | 20 6B A9 | JSR $A96B | get fixed-point number into temporary integer | |
|
skip this n
|
||||
| A965 | C9 2C | CMP #"," | compare next character with "," | |
| A967 | F0 EE | BEQ $A957 | loop if "," | |
| A969 | 68 | PLA | else pull keyword token, ran out of options | |
|
This entry point is used by the routine at A96B.
|
||||
| A96A | 60 | RTS | ||
| Prev: A93B | Up: Map | Next: A96B |