$AB4D/43853:   Handle Bad Data

Jump from $AC9A:

AB4D: A5 11     LDA $11       ; Input Flag
AB4F: F0 11     BEQ $AB62
AB51: 30 04     BMI $AB57
AB53: A0 FF     LDY #$FF
AB55: D0 04     BNE $AB5B

Jump from $AB51:

AB57: A5 3F     LDA $3F       ; Current DATA Line number
AB59: A4 40     LDY $40       ; Current DATA Line number

Jump from $AB55:

AB5B: 85 39     STA $39       ; Current BASIC Line number
AB5D: 84 3A     STY $3A       ; Current BASIC Line number

Jump from $AB04:

AB5F: 4C 08 AF  JMP $AF08     ; Output ?SYNTAX Error

Jump from $AB4F:

AB62: A5 13     LDA $13       ; File number of current Input Device
AB64: F0 05     BEQ $AB6B
AB66: A2 18     LDX #$18
AB68: 4C 37 A4  JMP $A437     ; Error Routine

Jump from $AB64:

AB6B: A9 0C     LDA #$0C
AB6D: A0 AD     LDY #$AD
AB6F: 20 1E AB  JSR $AB1E     ; Output String
AB72: A5 3D     LDA $3D       ; Pointer: BASIC Statement for CONT
AB74: A4 3E     LDY $3E       ; Pointer: BASIC Statement for CONT
AB76: 85 7A     STA $7A       ; Pointer: Current Byte of BASIC Text
AB78: 84 7B     STY $7B       ; Pointer: Current Byte of BASIC Text
AB7A: 60        RTS

    Previous Page / Next Page