$B128/45352:   Create Variable

Jump from $B121:

B128: A5 45     LDA $45       ; Name of Variable being sought in Variable Table
B12A: A4 46     LDY $46       ; Name of Variable being sought in Variable Table
B12C: C9 54     CMP #$54
B12E: D0 0B     BNE $B13B
B130: C0 C9     CPY #$C9
B132: F0 EF     BEQ $B123     ; Create New Variable
B134: C0 49     CPY #$49
B136: D0 03     BNE $B13B

Jump from $B141:

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

Jump from $B12E, $B136:

B13B: C9 53     CMP #$53
B13D: D0 04     BNE $B143
B13F: C0 54     CPY #$54
B141: F0 F5     BEQ $B138

Jump from $B13D:

B143: A5 2F     LDA $2F       ; Pointer: Start of BASIC Arrays
B145: A4 30     LDY $30       ; Pointer: Start of BASIC Arrays
B147: 85 5F     STA $5F       ; Temporary storage for FLPT value
B149: 84 60     STY $60       ; Temporary storage for FLPT value
B14B: A5 31     LDA $31       ; Pointer: End of BASIC Arrays + 1
B14D: A4 32     LDY $32       ; Pointer: End of BASIC Arrays + 1
B14F: 85 5A     STA $5A       ; Temporary storage for FLPT value
B151: 84 5B     STY $5B       ; Temporary storage for FLPT value
B153: 18        CLC
B154: 69 07     ADC #$07
B156: 90 01     BCC $B159
B158: C8        INY

Jump from $B156:

B159: 85 58     STA $58       ; Temporary storage for FLPT value
B15B: 84 59     STY $59       ; Temporary storage for FLPT value
B15D: 20 B8 A3  JSR $A3B8     ; Open Space in Memory
B160: A5 58     LDA $58       ; Temporary storage for FLPT value
B162: A4 59     LDY $59       ; Temporary storage for FLPT value
B164: C8        INY
B165: 85 2F     STA $2F       ; Pointer: Start of BASIC Arrays
B167: 84 30     STY $30       ; Pointer: Start of BASIC Arrays
B169: A0 00     LDY #$00
B16B: A5 45     LDA $45       ; Name of Variable being sought in Variable Table
B16D: 91 5F     STA ($5F),Y   ; Temporary storage for FLPT value
B16F: C8        INY
B170: A5 46     LDA $46       ; Name of Variable being sought in Variable Table
B172: 91 5F     STA ($5F),Y   ; Temporary storage for FLPT value
B174: A9 00     LDA #$00
B176: C8        INY
B177: 91 5F     STA ($5F),Y   ; Temporary storage for FLPT value
B179: C8        INY
B17A: 91 5F     STA ($5F),Y   ; Temporary storage for FLPT value
B17C: C8        INY
B17D: 91 5F     STA ($5F),Y   ; Temporary storage for FLPT value
B17F: C8        INY
B180: 91 5F     STA ($5F),Y   ; Temporary storage for FLPT value
B182: C8        INY
B183: 91 5F     STA ($5F),Y   ; Temporary storage for FLPT value

Jump from $B106:

B185: A5 5F     LDA $5F       ; Temporary storage for FLPT value
B187: 18        CLC
B188: 69 02     ADC #$02
B18A: A4 60     LDY $60       ; Temporary storage for FLPT value
B18C: 90 01     BCC $B18F
B18E: C8        INY

Jump from $B18C:

B18F: 85 47     STA $47       ; Value/Descriptor-Pointer
B191: 84 48     STY $48       ; Value/Descriptor-Pointer
B193: 60        RTS

    Previous Page / Next Page