disabled screen editor - preparation for rework

2019-12-31 18:14:03 +01:00
1 parent 2975b171be
commit 3b9bfde993
@@ -11,8 +11,8 @@ default_irq_handler:

 #endif // CONFIG_RS232_UP9600

-
-	jsr cursor_blink
+/* YYY disabled for rework
+	jsr cursor_blink */
 	jsr JSCNKEY
 	jsr JUDTIM // update jiffy clock

@@ -55,7 +55,7 @@ chrout_screen:
 	clc
 	adc #$20

-output_literal_char:
+output_literal_char: /* YYY disabled for rework
 	
 	// Write normal character on the screen

@@ -108,7 +108,7 @@ chrout_screen_calc_lptr_done:
 	jsr screen_calculate_line_pointer

 	// FALLTROUGH
-
+*/
 chrout_screen_done:

 	jsr cursor_show_if_enabled
@@ -1,4 +1,6 @@

+/* YYY disabled for rework
+
 chrout_screen_advance_to_next_line:

 	//  Go to start of line
@@ -42,3 +44,5 @@ chrout_screen_advance_to_next_line:
 !:

 	jmp chrout_screen_calc_lptr_done
+
+*/
@@ -3,7 +3,9 @@
 // CLR key handling within CHROUT
 //

-chrout_screen_CLR:
+chrout_screen_CLR: /* YYY disabled for rework

 	jsr clear_screen
 	jmp chrout_screen_done
+
+*/
@@ -4,6 +4,16 @@
 //


+chrout_screen_CRSR_UP:
+	rts
+chrout_screen_CRSR_DOWN:
+	rts
+chrout_screen_CRSR_LEFT:
+	rts
+chrout_screen_CRSR_RIGHT:
+	rts
+
+/* YYY disabled for rework
 chrout_screen_CRSR_UP:

 	lda PNTR
@@ -41,3 +51,5 @@ chrout_screen_CRSR_RIGHT:

 	inc PNTR
 	jmp chrout_screen_calc_lptr_done
+
+*/
@@ -3,6 +3,10 @@
 // CHROUT routine - screen support, DEL key handling
 //

+chrout_screen_DEL:
+	rts
+
+/* YYY disabled for rework
 chrout_screen_DEL:

 	// In insert mode it embeds control character
@@ -63,3 +67,5 @@ chrout_screen_del_column_non_0:

 chrout_screen_del_done:
 	jmp chrout_screen_done
+
+*/
@@ -4,7 +4,12 @@
 //


+chrout_screen_HOME:
+	rts
+
+/* YYY disabled for rework
 chrout_screen_HOME:

 	jsr cursor_home
 	jmp chrout_screen_done
+*/
@@ -3,6 +3,10 @@
 // CHROUT routine - screen support, INS key handling
 //

+chrout_screen_INS:
+	rts
+
+/* YYY disabled for rework
 chrout_screen_INS:

 	// Insert (shift-DELETE)
@@ -62,3 +66,4 @@ chrout_screen_INS:
 	sta (PNT),y

 	jmp chrout_screen_done
+*/
@@ -4,7 +4,7 @@
 //


-chrout_screen_RETURN:
+chrout_screen_RETURN: /* YYY disabled for rework

 	// RETURN clears quote and insert modes, it also clears reverse flag
 	lda #$00
@@ -12,3 +12,5 @@ chrout_screen_RETURN:
 	sta INSRT
 	sta RVS
 	jmp chrout_screen_advance_to_next_line
+
+*/
@@ -3,6 +3,7 @@
 // SHIFT ON/OFF handling within CHROUT
 //

+
 chrout_screen_SHIFT_ON:

 	lda #$00 // enable SHIFT+VENDOR combination
@@ -6,7 +6,12 @@

 #if CONFIG_EDIT_TABULATORS

+chrout_screen_TAB_FW:
+	rts
+chrout_screen_TAB_BW:
+	rts

+/* YYY disabled for rework
 chrout_screen_TAB_FW:

 	lda PNTR
@@ -27,7 +32,7 @@ chrout_screen_TAB_BW:
 	and #%11111000
 	sta PNTR
 !:
-	jmp chrout_screen_calc_lptr_done
+	jmp chrout_screen_calc_lptr_done */


 #endif // CONFIG_EDIT_TABULATORS
@@ -1,6 +1,12 @@
 // Clear screen and initialise line link table
 // (Compute's Mapping the 64 p215-216)

+
+clear_screen_real:
+	rts
+
+/* YYY disabled for rework
+
 clear_screen_real:

 	// XXX it is probably a good idea to hide cursor first
@@ -60,3 +66,5 @@ clearscreen_l3:

 	// (Compute's Mapping the 64 p216)
 	jmp cursor_home
+
+*/
@@ -11,7 +11,13 @@
 // - PNTR  (current screen x position)
 //

+cursor_disable:
+	rts

+cursor_hide_if_visible:
+	rts
+
+/* YYY disabled for rework
 cursor_blink:
 	// Is the cursor enabled?
 	lda BLNSW
@@ -79,3 +85,4 @@ cursor_blink_timer_reset:

 cursor_blink_end:
 	rts
+*/
@@ -4,6 +4,7 @@
 // - BLNSW (cursor blink switch)
 //

+
 cursor_enable:
 	lda #$00
 	sta BLNSW
@@ -3,6 +3,7 @@
 // Home the cursor (Compute's Mapping the 64 p216)
 //

+/* YYY disabled for rework
 cursor_home:

 	lda #$00
@@ -10,3 +11,4 @@ cursor_home:
 	sta TBLX // y position

 	jmp screen_calculate_line_pointer
+*/
@@ -6,6 +6,10 @@
 // - BLNCT (cursor blink countdown)
 //

+cursor_show_if_enabled:
+	rts
+
+/* YYY disabled for rework
 cursor_show_if_enabled:
 	lda BLNSW
 	bne cursor_show_end
@@ -32,3 +36,4 @@ cursor_show:

 cursor_show_end:
 	rts
+*/
@@ -8,7 +8,12 @@
 // CPU registers that has to be preserved (see [RG64]): none
 //

-PLOT:
+
+plot_set:
+	rts
+
+
+PLOT: /* YYY disabled for rework
 	bcs plot_get

 	// Note: the 'set' part has to start from $E50C, as this is a known address
@@ -30,3 +35,4 @@ plot_get:
 	ldy PNTR
 	ldx TBLX
 	rts
+*/
@@ -1,6 +1,8 @@
+
 // Clear screen and initialise line link table
 // (Compute's Mapping the 64 p215-216)

+
 clear_screen:

    jmp clear_screen_real
@@ -1,4 +1,6 @@

+/* YYY disabled for rework
+
 screen_calculate_line_pointer:
 	jsr screen_normalize_xy
 	
@@ -52,3 +54,4 @@ update_colour_line_pointer:
 	sta USER+1

 	rts
+*/
@@ -1,4 +1,9 @@

+screen_get_current_line_logical_length:
+	rts
+
+/* YYY disabled for rework
+
 screen_get_current_line_logical_length:
 	ldy TBLX
 	lda LDTBL,y
@@ -8,4 +13,5 @@ screen_get_current_line_logical_length:
 !:
 	lda #39
 	sta LNMX
-	rts
+	rts
+*/
@@ -1,5 +1,7 @@


+/* YYY disabled for rework
+
 screen_grow_logical_line_done:
 	rts

@@ -155,3 +157,4 @@ no_copy_down:
 	bne !-

 	rts
+*/
@@ -4,6 +4,8 @@
 // If X < 0, then make X = X + 40 (or 80, if previous line is linked)
 //

+/* YYY disabled for rework
+
 screen_normalize_xy:	

 	lda PNTR
@@ -73,3 +75,5 @@ link_count_loop:
 	sta TBLX
 y_ok:
 	rts
+
+*/
@@ -1,4 +1,6 @@

+/* YYY disabled for rework
+
 not_last_line:
 	rts

@@ -126,3 +128,4 @@ link_copy:

 	// Restore correct line pointers
 	jmp screen_calculate_line_pointer
+*/