Routines
Prev: AB47 Up: Map Next: AB7B
AB4D: bad input routine
Used by the routine at AC0F.
AB4D A5 11 LDA $11 get INPUT mode flag, $00 = INPUT, $40 = GET, $98 = READ
AB4F F0 11 BEQ $AB62 branch if INPUT
AB51 30 04 BMI $AB57 branch if READ
else was GET
AB53 A0 FF LDY #$FF set current line high byte to -1, indicate immediate mode
AB55 D0 04 BNE $AB5B branch always
AB57 A5 3F LDA $3F get current DATA line number low byte
AB59 A4 40 LDY $40 get current DATA line number high byte
AB5B 85 39 STA $39 set current line number low byte
AB5D 84 3A STY $3A set current line number high byte
This entry point is used by the routine at AAE8.
AB5F 4C 08 AF JMP $AF08 do syntax error then warm start
was INPUT
AB62 A5 13 LDA $13 get current I/O channel
AB64 F0 05 BEQ $AB6B branch if default channel
AB66 A2 18 LDX #$18 else error $18, file data error
AB68 4C 37 A4 JMP $A437 do error #X then warm start
AB6B A9 0C LDA #$0C set "?REDO FROM START" pointer low byte
AB6D A0 AD LDY #$AD set "?REDO FROM START" pointer high byte
AB6F 20 1E AB JSR $AB1E print null terminated string
AB72 A5 3D LDA $3D get continue pointer low byte
AB74 A4 3E LDY $3E get continue pointer high byte
AB76 85 7A STA $7A save BASIC execute pointer low byte
AB78 84 7B STY $7B save BASIC execute pointer high byte
AB7A 60 RTS
Prev: AB47 Up: Map Next: AB7B