$B261/45665: Create Array
Jump from $B226:
B261: 20 94 B1 JSR $B194 ; Allocate Array Pointer Space
B264: 20 08 A4 JSR $A408 ; Check Memory Overlap
B267: A0 00 LDY #$00
B269: 84 72 STY $72 ; Pointer: Used during CRUNCH/ASCII conversion
B26B: A2 05 LDX #$05
B26D: A5 45 LDA $45 ; Name of Variable being sought in Variable Table
B26F: 91 5F STA ($5F),Y ; Temporary storage for FLPT value
B271: 10 01 BPL $B274
B273: CA DEX
Jump from $B271:
B274: C8 INY
B275: A5 46 LDA $46 ; Name of Variable being sought in Variable Table
B277: 91 5F STA ($5F),Y ; Temporary storage for FLPT value
B279: 10 02 BPL $B27D
B27B: CA DEX
B27C: CA DEX
Jump from $B279:
B27D: 86 71 STX $71 ; Pointer: Used during CRUNCH/ASCII conversion
B27F: A5 0B LDA $0B ; Input Buffer Pointer/Number of Subscripts
B281: C8 INY
B282: C8 INY
B283: C8 INY
B284: 91 5F STA ($5F),Y ; Temporary storage for FLPT value
Jump from $B2A8:
B286: A2 0B LDX #$0B
B288: A9 00 LDA #$00
B28A: 24 0C BIT $0C ; Flag: Default Array dimension
B28C: 50 08 BVC $B296
B28E: 68 PLA
B28F: 18 CLC
B290: 69 01 ADC #$01
B292: AA TAX
B293: 68 PLA
B294: 69 00 ADC #$00
Jump from $B28C:
B296: C8 INY
B297: 91 5F STA ($5F),Y ; Temporary storage for FLPT value
B299: C8 INY
B29A: 8A TXA
B29B: 91 5F STA ($5F),Y ; Temporary storage for FLPT value
B29D: 20 4C B3 JSR $B34C ; Number of Bytes in Subscript
B2A0: 86 71 STX $71 ; Pointer: Used during CRUNCH/ASCII conversion
B2A2: 85 72 STA $72 ; Pointer: Used during CRUNCH/ASCII conversion
B2A4: A4 22 LDY $22 ; Second Utility Pointer
B2A6: C6 0B DEC $0B ; Input Buffer Pointer/Number of Subscripts
B2A8: D0 DC BNE $B286
B2AA: 65 59 ADC $59 ; Temporary storage for FLPT value
B2AC: B0 5D BCS $B30B
B2AE: 85 59 STA $59 ; Temporary storage for FLPT value
B2B0: A8 TAY
B2B1: 8A TXA
B2B2: 65 58 ADC $58 ; Temporary storage for FLPT value
B2B4: 90 03 BCC $B2B9
B2B6: C8 INY
B2B7: F0 52 BEQ $B30B
Jump from $B2B4:
B2B9: 20 08 A4 JSR $A408 ; Check Memory Overlap
B2BC: 85 31 STA $31 ; Pointer: End of BASIC Arrays + 1
B2BE: 84 32 STY $32 ; Pointer: End of BASIC Arrays + 1
B2C0: A9 00 LDA #$00
B2C2: E6 72 INC $72 ; Pointer: Used during CRUNCH/ASCII conversion
B2C4: A4 71 LDY $71 ; Pointer: Used during CRUNCH/ASCII conversion
B2C6: F0 05 BEQ $B2CD
Jump from $B2CB, $B2D1:
B2C8: 88 DEY
B2C9: 91 58 STA ($58),Y ; Temporary storage for FLPT value
B2CB: D0 FB BNE $B2C8
Jump from $B2C6:
B2CD: C6 59 DEC $59 ; Temporary storage for FLPT value
B2CF: C6 72 DEC $72 ; Pointer: Used during CRUNCH/ASCII conversion
B2D1: D0 F5 BNE $B2C8
B2D3: E6 59 INC $59 ; Temporary storage for FLPT value
B2D5: 38 SEC
B2D6: A5 31 LDA $31 ; Pointer: End of BASIC Arrays + 1
B2D8: E5 5F SBC $5F ; Temporary storage for FLPT value
B2DA: A0 02 LDY #$02
B2DC: 91 5F STA ($5F),Y ; Temporary storage for FLPT value
B2DE: A5 32 LDA $32 ; Pointer: End of BASIC Arrays + 1
B2E0: C8 INY
B2E1: E5 60 SBC $60 ; Temporary storage for FLPT value
B2E3: 91 5F STA ($5F),Y ; Temporary storage for FLPT value
B2E5: A5 0C LDA $0C ; Flag: Default Array dimension
B2E7: D0 62 BNE $B34B ; Locate Element in Array
B2E9: C8 INY
Jump from $B25E:
B2EA: B1 5F LDA ($5F),Y ; Temporary storage for FLPT value
B2EC: 85 0B STA $0B ; Input Buffer Pointer/Number of Subscripts
B2EE: A9 00 LDA #$00
B2F0: 85 71 STA $71 ; Pointer: Used during CRUNCH/ASCII conversion
Jump from $B326:
B2F2: 85 72 STA $72 ; Pointer: Used during CRUNCH/ASCII conversion
B2F4: C8 INY
B2F5: 68 PLA
B2F6: AA TAX
B2F7: 85 64 STA $64 ; FAC Mantissa
B2F9: 68 PLA
B2FA: 85 65 STA $65 ; FAC Mantissa
B2FC: D1 5F CMP ($5F),Y ; Temporary storage for FLPT value
B2FE: 90 0E BCC $B30E ; Locate Element in Array
B300: D0 06 BNE $B308
B302: C8 INY
B303: 8A TXA
B304: D1 5F CMP ($5F),Y ; Temporary storage for FLPT value
B306: 90 07 BCC $B30F ; Locate Element in Array
Jump from $B300:
B308: 4C 45 B2 JMP $B245 ; ?BAD SUBSCRIPT
Jump from $B2AC, $B2B7, $B365, $B376:
B30B: 4C 35 A4 JMP $A435 ; Output ?OUT OF MEMORY Error
Previous Page / Next Page