cc65/libsrc/telestrat/clrscr.s

;
; jede jede@oric.org 2017-02-25
;

    .export    _clrscr


    .import    CHARCOLOR_CHANGE, CHARCOLOR, BGCOLOR, BGCOLOR_CHANGE
    .include   "telestrat.inc"

.proc _clrscr
    ; Switch to text mode
    BRK_TELEMON(XTEXT)

    lda     #<SCREEN                                ; Get position screen
    ldy     #>SCREEN
    sta     RES
    sty     RES+1

    ldy     #<(SCREEN+SCREEN_XSIZE*SCREEN_YSIZE)
    ldx     #>(SCREEN+SCREEN_XSIZE*SCREEN_YSIZE)
    lda     #' '
    BRK_TELEMON XFILLM                              ; Calls XFILLM : it fills A value from RES address and size of X and Y value


    ; reset prompt position
    lda     #<(SCREEN+40)
    sta     ADSCRL
    lda     #>(SCREEN+40)
    sta     ADSCRH

    ; reset display position
    ldx     #$01
    stx     SCRY
    dex
    stx     SCRX

    stx     CHARCOLOR_CHANGE
    stx     BGCOLOR_CHANGE

    lda     #$07
    sta     CHARCOLOR
    sta     BGCOLOR

    rts
.endproc