$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