git.sur5r.net Git - cc65/blob - libsrc/geos-common/conio/clrscr.s

   1 ;
   2 ; Maciej 'YTM/Elysium' Witkowiak
   3 ;
   4 ; 27.10.2001, 23.12.2002
   5
   6 ; void clrscr (void);
   7
   8             .export _clrscr
   9             .import fixcursor
  10             .importzp cursor_c, cursor_r
  11
  12             .include "jumptab.inc"
  13             .include "geossym.inc"
  14             .include "const.inc"
  15
  16 _clrscr:
  17         lda curPattern          ; save current pattern
  18         pha
  19         lda #0                  ; set pattern to clear
  20         jsr SetPattern
  21         ldx #0
  22         stx r3L
  23         stx r3H
  24         stx r2L
  25         stx cursor_c
  26         stx cursor_r
  27         jsr fixcursor           ; home cursor
  28 .ifdef __GEOS_CBM__
  29         lda #199
  30         sta r2H
  31         lda graphMode
  32         bpl L40
  33         lda #>639               ; 80 columns
  34         ldx #<639
  35         bne L99
  36 L40:    lda #>319               ; 40 columns
  37         ldx #<319
  38 L99:
  39 .else
  40         lda #191
  41         sta r2H
  42         lda #>559
  43         ldx #<559
  44 .endif
  45         sta r4H
  46         stx r4L
  47         jsr Rectangle
  48         pla
  49         jmp SetPattern          ; restore pattern