$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