git.sur5r.net Git - cc65/blob - libsrc/telestrat/clrscr.s

   1 ;
   2 ; jede jede@oric.org 2017-02-25
   3 ;
   4
   5     .export    _clrscr
   6
   7     .importzp  sp
   8
   9     .include   "telestrat.inc"
  10
  11 .proc _clrscr
  12     ; Switch to text mode
  13     BRK_TELEMON(XTEXT)
  14
  15     lda     #<SCREEN
  16     ldy     #>SCREEN
  17     sta     RES
  18     sty     RES+1
  19
  20     ldy     #<(SCREEN+SCREEN_XSIZE*SCREEN_YSIZE)
  21     ldx     #>(SCREEN+SCREEN_XSIZE*SCREEN_YSIZE)
  22     lda     #' '
  23     BRK_TELEMON XFILLM
  24
  25
  26     ; reset prompt position
  27     lda     #<(SCREEN+40)
  28     sta     ADSCRL
  29     lda     #>(SCREEN+40)
  30     sta     ADSCRH
  31
  32     ; reset display position
  33     lda     #$01
  34     sta     SCRY
  35     lda     #$00
  36     sta     SCRX
  37     rts
  38 .endproc