$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