$A69C/42652: Perform [list]
A69C: 90 06 BCC $A6A4
A69E: F0 04 BEQ $A6A4
A6A0: C9 AB CMP #$AB
A6A2: D0 E9 BNE $A68D ; Perform [clr]
Jump from $A69C, $A69E:
A6A4: 20 6B A9 JSR $A96B ; Fetch linnum From BASIC
A6A7: 20 13 A6 JSR $A613 ; Search for Line Number
A6AA: 20 79 00 JSR $0079 ; CHRGOT: Get same Byte again
A6AD: F0 0C BEQ $A6BB
A6AF: C9 AB CMP #$AB
A6B1: D0 8E BNE $A641 ; Search for Line Number
A6B3: 20 73 00 JSR $0073 ; CHRGET: Get next Byte of BASIC Text
A6B6: 20 6B A9 JSR $A96B ; Fetch linnum From BASIC
A6B9: D0 86 BNE $A641 ; Search for Line Number
Jump from $A6AD:
A6BB: 68 PLA
A6BC: 68 PLA
A6BD: A5 14 LDA $14 ; Temporary: Integer value
A6BF: 05 15 ORA $15 ; Temporary: Integer value
A6C1: D0 06 BNE $A6C9
A6C3: A9 FF LDA #$FF
A6C5: 85 14 STA $14 ; Temporary: Integer value
A6C7: 85 15 STA $15 ; Temporary: Integer value
Jump from $A6C1, $A712:
A6C9: A0 01 LDY #$01
A6CB: 84 0F STY $0F ; Flag: DATA scan/List Quote/Garbage collection
A6CD: B1 5F LDA ($5F),Y ; Temporary storage for FLPT value
A6CF: F0 43 BEQ $A714
A6D1: 20 2C A8 JSR $A82C ; Perform [stop]
A6D4: 20 D7 AA JSR $AAD7 ; Output CR/LF
A6D7: C8 INY
A6D8: B1 5F LDA ($5F),Y ; Temporary storage for FLPT value
A6DA: AA TAX
A6DB: C8 INY
A6DC: B1 5F LDA ($5F),Y ; Temporary storage for FLPT value
A6DE: C5 15 CMP $15 ; Temporary: Integer value
A6E0: D0 04 BNE $A6E6
A6E2: E4 14 CPX $14 ; Temporary: Integer value
A6E4: F0 02 BEQ $A6E8
Jump from $A6E0:
A6E6: B0 2C BCS $A714
Jump from $A6E4:
A6E8: 84 49 STY $49 ; Pointer: Index Variable for FOR/NEXT loop
A6EA: 20 CD BD JSR $BDCD ; Output Positive Integer in A/X
A6ED: A9 20 LDA #$20
Jump from $A73B:
A6EF: A4 49 LDY $49 ; Pointer: Index Variable for FOR/NEXT loop
A6F1: 29 7F AND #$7F
Jump from $A71A, $A71E, $A722:
A6F3: 20 47 AB JSR $AB47 ; Output Format Character
A6F6: C9 22 CMP #$22
A6F8: D0 06 BNE $A700
A6FA: A5 0F LDA $0F ; Flag: DATA scan/List Quote/Garbage collection
A6FC: 49 FF EOR #$FF
A6FE: 85 0F STA $0F ; Flag: DATA scan/List Quote/Garbage collection
Jump from $A6F8:
A700: C8 INY
A701: F0 11 BEQ $A714
A703: B1 5F LDA ($5F),Y ; Temporary storage for FLPT value
A705: D0 10 BNE $A717 ; Handle LIST Character
A707: A8 TAY
A708: B1 5F LDA ($5F),Y ; Temporary storage for FLPT value
A70A: AA TAX
A70B: C8 INY
A70C: B1 5F LDA ($5F),Y ; Temporary storage for FLPT value
A70E: 86 5F STX $5F ; Temporary storage for FLPT value
A710: 85 60 STA $60 ; Temporary storage for FLPT value
A712: D0 B5 BNE $A6C9
Jump from $A6CF, $A6E6, $A701:
A714: 4C 86 E3 JMP $E386 ; BASIC Warm Start [RUNSTOP-RESTORE]
Previous Page / Next Page