$B08B/45195: Identify Variable
Jump from $A9A5, $AC15, $AD24, $AF28, $B3C0:
B08B: A2 00 LDX #$00
B08D: 20 79 00 JSR $0079 ; CHRGOT: Get same Byte again
Jump from $B082:
B090: 86 0C STX $0C ; Flag: Default Array dimension
Jump from $B3EA:
B092: 85 45 STA $45 ; Name of Variable being sought in Variable Table
B094: 20 79 00 JSR $0079 ; CHRGOT: Get same Byte again
B097: 20 13 B1 JSR $B113 ; Does A hold an alphabetic character?
B09A: B0 03 BCS $B09F
Jump from $B0CA:
B09C: 4C 08 AF JMP $AF08 ; Output ?SYNTAX Error
Jump from $B09A:
B09F: A2 00 LDX #$00
B0A1: 86 0D STX $0D ; Data type Flag
B0A3: 86 0E STX $0E ; Data type Flag
B0A5: 20 73 00 JSR $0073 ; CHRGET: Get next Byte of BASIC Text
B0A8: 90 05 BCC $B0AF
B0AA: 20 13 B1 JSR $B113 ; Does A hold an alphabetic character?
B0AD: 90 0B BCC $B0BA
Jump from $B0A8:
B0AF: AA TAX
Jump from $B0B3, $B0B8:
B0B0: 20 73 00 JSR $0073 ; CHRGET: Get next Byte of BASIC Text
B0B3: 90 FB BCC $B0B0
B0B5: 20 13 B1 JSR $B113 ; Does A hold an alphabetic character?
B0B8: B0 F6 BCS $B0B0
Jump from $B0AD:
B0BA: C9 24 CMP #$24
B0BC: D0 06 BNE $B0C4
B0BE: A9 FF LDA #$FF
B0C0: 85 0D STA $0D ; Data type Flag
B0C2: D0 10 BNE $B0D4
Jump from $B0BC:
B0C4: C9 25 CMP #$25
B0C6: D0 13 BNE $B0DB
B0C8: A5 10 LDA $10 ; Flag: Subscript reference/User Function call
B0CA: D0 D0 BNE $B09C
B0CC: A9 80 LDA #$80
B0CE: 85 0E STA $0E ; Data type Flag
B0D0: 05 45 ORA $45 ; Name of Variable being sought in Variable Table
B0D2: 85 45 STA $45 ; Name of Variable being sought in Variable Table
Jump from $B0C2:
B0D4: 8A TXA
B0D5: 09 80 ORA #$80
B0D7: AA TAX
B0D8: 20 73 00 JSR $0073 ; CHRGET: Get next Byte of BASIC Text
Jump from $B0C6:
B0DB: 86 46 STX $46 ; Name of Variable being sought in Variable Table
B0DD: 38 SEC
B0DE: 05 10 ORA $10 ; Flag: Subscript reference/User Function call
B0E0: E9 28 SBC #$28
B0E2: D0 03 BNE $B0E7 ; Locate Ordinary Variable
B0E4: 4C D1 B1 JMP $B1D1 ; Get Array Parameters
Previous Page / Next Page
Kernal-Reference:
BIT $B0E6 : $F9DD