Forth: New CLSCR word to CLear SCReen

adumont · Oct 23, 2021 · 4aeb47d · 4aeb47d
1 parent 3c841cb
commit 4aeb47d
Showing 1 changed file with 14 additions and 4 deletions.
diff --git a/forth.s b/forth.s
@@ -121,10 +121,6 @@ RES_vec:
 	lda #>VRAM
 	sta LINE+1
 
-	; lda #CURSOR
-	; ldy COL
-	; sta (LINE),y 
-
 	jsr clear_screen
 
 	ldy #0
@@ -464,6 +460,20 @@ defword "DROP",,
 defword "BREAK",,
 	JMP NEXT	; set Breakpoint here!
 
+; Clear Screen (and bring cursor back HOME)
+defword "CLSCR",,
+	stz ROW
+	stz COL
+
+	; store addr of line 0
+	lda #<VRAM
+	sta LINE
+	lda #>VRAM
+	sta LINE+1
+
+	jsr clear_screen
+	JMP NEXT
+
 defword "PUSH0","0",
 	STZ 0,x
 	STZ 1,x