$B30E/45838:   Locate Element in Array

Jump from $B2FE:

B30E: C8        INY

Jump from $B306:

B30F: A5 72     LDA $72       ; Pointer: Used during CRUNCH/ASCII conversion
B311: 05 71     ORA $71       ; Pointer: Used during CRUNCH/ASCII conversion
B313: 18        CLC
B314: F0 0A     BEQ $B320
B316: 20 4C B3  JSR $B34C     ; Number of Bytes in Subscript
B319: 8A        TXA
B31A: 65 64     ADC $64       ; FAC Mantissa
B31C: AA        TAX
B31D: 98        TYA
B31E: A4 22     LDY $22       ; Second Utility Pointer

Jump from $B314:

B320: 65 65     ADC $65       ; FAC Mantissa
B322: 86 71     STX $71       ; Pointer: Used during CRUNCH/ASCII conversion
B324: C6 0B     DEC $0B       ; Input Buffer Pointer/Number of Subscripts
B326: D0 CA     BNE $B2F2     ; Create Array
B328: 85 72     STA $72       ; Pointer: Used during CRUNCH/ASCII conversion
B32A: A2 05     LDX #$05
B32C: A5 45     LDA $45       ; Name of Variable being sought in Variable Table
B32E: 10 01     BPL $B331
B330: CA        DEX

Jump from $B32E:

B331: A5 46     LDA $46       ; Name of Variable being sought in Variable Table
B333: 10 02     BPL $B337
B335: CA        DEX
B336: CA        DEX

Jump from $B333:

B337: 86 28     STX $28       ; Floating point product of Multiply and Divide
B339: A9 00     LDA #$00
B33B: 20 55 B3  JSR $B355     ; Number of Bytes in Subscript
B33E: 8A        TXA
B33F: 65 58     ADC $58       ; Temporary storage for FLPT value
B341: 85 47     STA $47       ; Value/Descriptor-Pointer
B343: 98        TYA
B344: 65 59     ADC $59       ; Temporary storage for FLPT value
B346: 85 48     STA $48       ; Value/Descriptor-Pointer
B348: A8        TAY
B349: A5 47     LDA $47       ; Value/Descriptor-Pointer

Jump from $B2E7, $B3A9:

B34B: 60        RTS

    Previous Page / Next Page