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