;
; jede jede@oric.org 2017-02-25
-;
+;
.export _clrscr
-
+
.importzp sp
-
+
.include "telestrat.inc"
.proc _clrscr
; Switch to text mode
- BRK_TELEMON(XTEXT)
+ BRK_TELEMON(XTEXT)
lda #<SCREEN
ldy #>SCREEN
ldx #>(SCREEN+SCREEN_XSIZE*SCREEN_YSIZE)
lda #' '
BRK_TELEMON XFILLM
-
-
+
+
; reset prompt position
lda #<(SCREEN+40)
sta ADSCRL
lda #>(SCREEN+40)
sta ADSCRH
-
+
; reset display position
lda #$01
sta SCRY
lda #$00
- sta SCRX
+ sta SCRX
rts
-.endproc
+.endproc