File: clrscr.s

package info (click to toggle)
cc65 2.19-2
  • links: PTS
  • area: main
  • in suites: forky, sid, trixie
  • size: 20,268 kB
  • sloc: ansic: 117,151; asm: 66,339; pascal: 4,248; makefile: 1,009; perl: 607
file content (39 lines) | stat: -rw-r--r-- 836 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
;
; Clear (erase) the screen.
;
; Support the full 128- x 64-tile background.
;

        .export         _clrscr

        .import         plot

        .include        "pce.inc"
        .include        "extzp.inc"

_clrscr:
        VREG    VDC_MAWR, $0000
        st0     #VDC_VWR

        ldy     #$40
rowloop:
        ldx     #$80
colloop:
        st1     #' '            ; low byte of char. index
        st2     #$02            ; background color, high nybble of char. index
        dex
        bne     colloop
        dey
        bne     rowloop

; Go to the home position.

        stz     CURS_X
        stz     CURS_Y
        jmp     plot

;-------------------------------------------------------------------------------
; force the init constructor to be imported

                .import initconio
conio_init      = initconio