$A4A2/42146: Insert BASIC Text A4A2: 84 0B STY $0B ; Input Buffer Pointer/Number of Subscripts A4A4: 20 13 A6 JSR $A613 ; Search for Line Number A4A7: 90 44 BCC $A4ED A4A9: A0 01 LDY #$01 A4AB: B1 5F LDA ($5F),Y ; Temporary storage for FLPT value A4AD: 85 23 STA $23 ; Second Utility Pointer A4AF: A5 2D LDA $2D ; Pointer: Start of BASIC Variables A4B1: 85 22 STA $22 ; Second Utility Pointer A4B3: A5 60 LDA $60 ; Temporary storage for FLPT value A4B5: 85 25 STA $25 ; Second Utility Pointer A4B7: A5 5F LDA $5F ; Temporary storage for FLPT value A4B9: 88 DEY A4BA: F1 5F SBC ($5F),Y ; Temporary storage for FLPT value A4BC: 18 CLC A4BD: 65 2D ADC $2D ; Pointer: Start of BASIC Variables A4BF: 85 2D STA $2D ; Pointer: Start of BASIC Variables A4C1: 85 24 STA $24 ; Second Utility Pointer A4C3: A5 2E LDA $2E ; Pointer: Start of BASIC Variables A4C5: 69 FF ADC #$FF A4C7: 85 2E STA $2E ; Pointer: Start of BASIC Variables A4C9: E5 60 SBC $60 ; Temporary storage for FLPT value A4CB: AA TAX A4CC: 38 SEC A4CD: A5 5F LDA $5F ; Temporary storage for FLPT value A4CF: E5 2D SBC $2D ; Pointer: Start of BASIC Variables A4D1: A8 TAY A4D2: B0 03 BCS $A4D7 A4D4: E8 INX A4D5: C6 25 DEC $25 ; Second Utility Pointer Jump from $A4D2: A4D7: 18 CLC A4D8: 65 22 ADC $22 ; Second Utility Pointer A4DA: 90 03 BCC $A4DF A4DC: C6 23 DEC $23 ; Second Utility Pointer A4DE: 18 CLC Jump from $A4DA, $A4E4, $A4EB: A4DF: B1 22 LDA ($22),Y ; Second Utility Pointer A4E1: 91 24 STA ($24),Y ; Second Utility Pointer A4E3: C8 INY A4E4: D0 F9 BNE $A4DF A4E6: E6 23 INC $23 ; Second Utility Pointer A4E8: E6 25 INC $25 ; Second Utility Pointer A4EA: CA DEX A4EB: D0 F2 BNE $A4DF Jump from $A4A7: A4ED: 20 59 A6 JSR $A659 ; Perform [new] A4F0: 20 33 A5 JSR $A533 ; Rechain Lines A4F3: AD 00 02 LDA $0200 ; BASIC Input Buffer (Input Line from Screen) A4F6: F0 88 BEQ $A480 ; Input & Identify BASIC Line A4F8: 18 CLC A4F9: A5 2D LDA $2D ; Pointer: Start of BASIC Variables A4FB: 85 5A STA $5A ; Temporary storage for FLPT value A4FD: 65 0B ADC $0B ; Input Buffer Pointer/Number of Subscripts A4FF: 85 58 STA $58 ; Temporary storage for FLPT value A501: A4 2E LDY $2E ; Pointer: Start of BASIC Variables A503: 84 5B STY $5B ; Temporary storage for FLPT value A505: 90 01 BCC $A508 A507: C8 INY Jump from $A505: A508: 84 59 STY $59 ; Temporary storage for FLPT value A50A: 20 B8 A3 JSR $A3B8 ; Open Space in Memory A50D: A5 14 LDA $14 ; Temporary: Integer value A50F: A4 15 LDY $15 ; Temporary: Integer value A511: 8D FE 01 STA $01FE ; BASIC Stack Area A514: 8C FF 01 STY $01FF ; BASIC Stack Area A517: A5 31 LDA $31 ; Pointer: End of BASIC Arrays + 1 A519: A4 32 LDY $32 ; Pointer: End of BASIC Arrays + 1 A51B: 85 2D STA $2D ; Pointer: Start of BASIC Variables A51D: 84 2E STY $2E ; Pointer: Start of BASIC Variables A51F: A4 0B LDY $0B ; Input Buffer Pointer/Number of Subscripts A521: 88 DEY Jump from $A528: A522: B9 FC 01 LDA $01FC,Y ; BASIC Stack Area A525: 91 5F STA ($5F),Y ; Temporary storage for FLPT value A527: 88 DEY A528: 10 F8 BPL $A522 Jump from $E1B2: A52A: 20 59 A6 JSR $A659 ; Perform [new] A52D: 20 33 A5 JSR $A533 ; Rechain Lines A530: 4C 80 A4 JMP $A480 ; Input & Identify BASIC Line Previous Page / Next Page |