implemented ESC-K and ESC-X

src/kernal/screen_m65/mega65_chrout_screen_control_1.s

@@ -37,10 +37,7 @@ m65_chrout_screen_RETURN:
 
 	; RETURN clears quote and insert modes, it also clears reverse flag
 	
-	lda #$00
+	jsr m65_screen_clear_special_modes
-	sta QTSW
-	sta INSRT
-	sta RVS
 
 	; Move cursor to the beginning of the next line
 

src/kernal/screen_m65/mega65_chrout_screen_escmode.s

@@ -31,16 +31,33 @@ m65_chrout_esc_J: ; move cursor to the beginning of the line
 	sta M65__TXTCOL
 	bra m65_chrout_esc_done
 
+m65_chrout_esc_K: ; move cursor after the text within the line       XXX update for window mode
+
+	phz
+	ldx M65_SCRMODE
+	lda m65_scrtab_txtwidth,x
+	sta M65__TXTCOL
+	dec
+	taz
+@1:
+	lda [M65_LPNT_SCR], z
+	cmp #$20                 ; 'SPACE'
+	bne @2
+	dec M65__TXTCOL
+	dez
+	bpl @1
+@2:
+	plz
+	lda M65__TXTCOL
+	cmp m65_scrtab_txtwidth,x
+	bne m65_chrout_esc_done
+	dec M65__TXTCOL
+	bra m65_chrout_esc_done
+
 m65_chrout_esc_O: ; cancel quote, reverse, underline, flash, etc
 
-	lda COLOR
+	jsr m65_screen_clear_colorattr
-	and #$0F
+	jsr m65_screen_clear_special_modes
-	sta COLOR
-
-	lda #$00
-	sta QTSW
-	sta INSRT
-	sta RVS
 
 	; FALLTROUGH
 
@@ -48,6 +65,17 @@ m65_chrout_esc_done:
 
 	jmp m65_chrout_screen_done
 
+m65_chrout_esc_X: ; cycle through available screen modes
+
+	lda M65_SCRMODE
+	dec
+	bpl @1
+	lda #$02
+@1:
+	jsr M65_SCRMODESET
+	jsr M65_CLRSCR
+	bra m65_chrout_esc_done
+
 
 
 ; XXX: implement screen routines below:
@@ -92,8 +120,6 @@ m65_chrout_esc_H:
 	+nop
 m65_chrout_esc_I:
 	+nop
-m65_chrout_esc_K:
-	+nop
 m65_chrout_esc_L:
 	+nop
 m65_chrout_esc_M:
@@ -116,8 +142,6 @@ m65_chrout_esc_V:
 	+nop
 m65_chrout_esc_W:
 	+nop
-m65_chrout_esc_X:
-	+nop
 m65_chrout_esc_Y:
 	+nop
 m65_chrout_esc_Z:

src/kernal/screen_m65/mega65_clrscr.s

@@ -2,7 +2,7 @@
 ;; #LAYOUT# *   *        #IGNORE
 
 
-M65_CLRSCR:
+M65_CLRSCR: ; XXX consider integrating with M65_SCRMODESET
 
 	; Clear additional attributes from the color code
 

src/kernal/screen_m65/mega65_clrwin.s

@@ -7,9 +7,10 @@
 
 M65_CLRWIN:
 
-	; Clear additional attributes from the color code
+	; Clear additional attributes from the color code, quote mode, etc.
 
 	jsr m65_screen_clear_colorattr
+	jsr m65_screen_clear_special_modes
 
 	; Check if windowed mode; if not, go to M65_CLRSCR
 

src/kernal/screen_m65/mega65_screen_helpers.s

@@ -10,6 +10,15 @@ m65_screen_clear_colorattr:
 
 	rts
 
+m65_screen_clear_special_modes: ; XXX consider integrating with 'm65_screen_clear_colorattr'
+
+	lda #$00
+	sta QTSW
+	sta INSRT
+	sta RVS
+
+	rts
+
 
 m65_screen_upd_txtrow_off: