$AD61/44385:   Check Valid Loop

AD61: BD 0F 01  LDA $010F,X   ; 6510 Hardware Stack Area
AD64: 85 39     STA $39       ; Current BASIC Line number
AD66: BD 10 01  LDA $0110,X   ; 6510 Hardware Stack Area
AD69: 85 3A     STA $3A       ; Current BASIC Line number
AD6B: BD 12 01  LDA $0112,X   ; 6510 Hardware Stack Area
AD6E: 85 7A     STA $7A       ; Pointer: Current Byte of BASIC Text
AD70: BD 11 01  LDA $0111,X   ; 6510 Hardware Stack Area
AD73: 85 7B     STA $7B       ; Pointer: Current Byte of BASIC Text

Jump from $AD82:

AD75: 4C AE A7  JMP $A7AE     ; BASIC Warm Start

Jump from $AD5F:

AD78: 8A        TXA
AD79: 69 11     ADC #$11
AD7B: AA        TAX
AD7C: 9A        TXS
AD7D: 20 79 00  JSR $0079     ; CHRGOT: Get same Byte again
AD80: C9 2C     CMP #$2C
AD82: D0 F1     BNE $AD75
AD84: 20 73 00  JSR $0073     ; CHRGET: Get next Byte of BASIC Text
AD87: 20 24 AD  JSR $AD24     ; Perform [next]

    Previous Page / Next Page