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     lda     #<SCREEN
  13     ldy     #>SCREEN
  14     sta     RES
  15     sty     RES+1
  16
  17     ldy     #<(SCREEN+SCREEN_XSIZE*SCREEN_YSIZE)
  18     ldx     #>(SCREEN+SCREEN_XSIZE*SCREEN_YSIZE)
  19     lda     #' '
  20     BRK_TELEMON XFILLM
  21
  22
  23     ; reset prompt position
  24     lda     #<(SCREEN+40)
  25     sta     ADSCRL
  26     lda     #>(SCREEN+40)
  27     sta     ADSCRH
  28
  29     ; reset display position
  30     lda     #$01
  31     sta     SCRY
  32     lda     #$00
  33     sta     SCRX
  34     rts
  35 .endproc