$E965/59749: Open A Space On The Screen
Jump from $E802:
E965: A6 D6 LDX $D6 ; Current Screen Line number of Cursor
Jump from $E96A, $E6CA:
E967: E8 INX
E968: B5 D9 LDA $D9,X ; Screen Line Link Table
E96A: 10 FB BPL $E967
E96C: 8E A5 02 STX $02A5 ; Temporary for Line Index
E96F: E0 18 CPX #$18
E971: F0 0E BEQ $E981
E973: 90 0C BCC $E981
E975: 20 EA E8 JSR $E8EA ; Scroll Screen
E978: AE A5 02 LDX $02A5 ; Temporary for Line Index
E97B: CA DEX
E97C: C6 D6 DEC $D6 ; Current Screen Line number of Cursor
E97E: 4C DA E6 JMP $E6DA ; Advance Cursor
Jump from $E971, $E973:
E981: A5 AC LDA $AC ; Pointer: Tape Buffer/Screen scrolling
E983: 48 PHA
E984: A5 AD LDA $AD ; Pointer: Tape Buffer/Screen scrolling
E986: 48 PHA
E987: A5 AE LDA $AE ; Tape End Address/End of Program
E989: 48 PHA
E98A: A5 AF LDA $AF ; Tape End Address/End of Program
E98C: 48 PHA
E98D: A2 19 LDX #$19
Jump from $E9A4:
E98F: CA DEX
E990: 20 F0 E9 JSR $E9F0 ; Set Start of Line
E993: EC A5 02 CPX $02A5 ; Temporary for Line Index
E996: 90 0E BCC $E9A6
E998: F0 0C BEQ $E9A6
E99A: BD EF EC LDA $ECEF,X ; Shift-Run Equivalent
E99D: 85 AC STA $AC ; Pointer: Tape Buffer/Screen scrolling
E99F: B5 D8 LDA $D8,X ; Count of number of inserts outstanding
E9A1: 20 C8 E9 JSR $E9C8 ; Move A Screen Line
E9A4: 30 E9 BMI $E98F
Jump from $E996, $E998:
E9A6: 20 FF E9 JSR $E9FF ; Clear Screen Line
E9A9: A2 17 LDX #$17
Jump from $E9BD:
E9AB: EC A5 02 CPX $02A5 ; Temporary for Line Index
E9AE: 90 0F BCC $E9BF
E9B0: B5 DA LDA $DA,X ; Screen Line Link Table
E9B2: 29 7F AND #$7F
E9B4: B4 D9 LDY $D9,X ; Screen Line Link Table
E9B6: 10 02 BPL $E9BA
E9B8: 09 80 ORA #$80
Jump from $E9B6:
E9BA: 95 DA STA $DA,X ; Screen Line Link Table
E9BC: CA DEX
E9BD: D0 EC BNE $E9AB
Jump from $E9AE:
E9BF: AE A5 02 LDX $02A5 ; Temporary for Line Index
E9C2: 20 DA E6 JSR $E6DA ; Advance Cursor
E9C5: 4C 58 E9 JMP $E958 ; Scroll Screen
Previous Page / Next Page