$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 |