2017-02-25 21:20:17 +00:00
|
|
|
;
|
|
|
|
|
; jede jede@oric.org 2017-02-25
|
2019-02-05 22:27:52 +00:00
|
|
|
;
|
2017-02-25 21:20:17 +00:00
|
|
|
|
2017-02-25 21:10:13 +00:00
|
|
|
.export _clrscr
|
2021-03-01 21:33:12 +00:00
|
|
|
.import OLD_CHARCOLOR, OLD_BGCOLOR, BGCOLOR, CHARCOLOR
|
2019-07-17 19:48:53 +00:00
|
|
|
|
2017-02-25 21:10:13 +00:00
|
|
|
.include "telestrat.inc"
|
|
|
|
|
|
|
|
|
|
.proc _clrscr
|
2017-10-16 15:28:00 +00:00
|
|
|
; Switch to text mode
|
2019-02-05 22:27:52 +00:00
|
|
|
BRK_TELEMON(XTEXT)
|
2017-10-16 15:28:00 +00:00
|
|
|
|
2019-07-06 08:16:57 +00:00
|
|
|
lda #<SCREEN ; Get position screen
|
2017-02-25 21:23:46 +00:00
|
|
|
ldy #>SCREEN
|
2017-02-25 21:10:13 +00:00
|
|
|
sta RES
|
|
|
|
|
sty RES+1
|
|
|
|
|
|
|
|
|
|
ldy #<(SCREEN+SCREEN_XSIZE*SCREEN_YSIZE)
|
|
|
|
|
ldx #>(SCREEN+SCREEN_XSIZE*SCREEN_YSIZE)
|
|
|
|
|
lda #' '
|
2019-07-06 08:16:57 +00:00
|
|
|
BRK_TELEMON XFILLM ; Calls XFILLM : it fills A value from RES address and size of X and Y value
|
2019-02-05 22:27:52 +00:00
|
|
|
|
|
|
|
|
|
2017-02-25 21:23:46 +00:00
|
|
|
; reset prompt position
|
2021-03-03 21:14:29 +00:00
|
|
|
lda #<SCREEN
|
2021-03-01 21:33:12 +00:00
|
|
|
sta ADSCR
|
2021-03-03 21:14:29 +00:00
|
|
|
lda #>SCREEN
|
2021-03-01 21:33:12 +00:00
|
|
|
sta ADSCR+1
|
|
|
|
|
|
|
|
|
|
lda #$00
|
|
|
|
|
sta SCRDY
|
2019-02-05 22:27:52 +00:00
|
|
|
|
2017-02-25 21:23:46 +00:00
|
|
|
; reset display position
|
2021-03-01 21:33:12 +00:00
|
|
|
ldx #$00
|
2019-07-10 19:44:07 +00:00
|
|
|
stx SCRY
|
|
|
|
|
stx SCRX
|
2019-07-17 19:48:53 +00:00
|
|
|
|
2021-03-03 21:14:29 +00:00
|
|
|
stx OLD_BGCOLOR ; Black
|
2021-03-01 21:33:12 +00:00
|
|
|
stx BGCOLOR
|
|
|
|
|
|
2021-03-03 21:14:29 +00:00
|
|
|
ldx #$07 ; White
|
2019-07-21 16:38:17 +00:00
|
|
|
stx OLD_CHARCOLOR
|
2021-03-01 21:33:12 +00:00
|
|
|
stx CHARCOLOR
|
|
|
|
|
|
2017-02-25 21:10:13 +00:00
|
|
|
rts
|
2019-02-05 22:27:52 +00:00
|
|
|
.endproc
|
