$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 |