1;
2; 2016-02-28, Groepaz
3; 2017-06-22, Greg King
4;
5; unsigned char cpeekcolor (void);
6;
7
8        .export         _cpeekcolor
9
10; Get a system-specific file.
11; Note:  The cbm510, cbm610, c128, and Pet targets need special
12; versions that handle RAM banking, the 80-column VDC, and monochrome.
13
14.if     .def(__C16__)
15        .include        "plus4.inc"     ; both C16 and Plus4
16.elseif .def(__C64__)
17        .include        "c64.inc"
18.elseif .def(__VIC20__)
19        .include        "vic20.inc"
20.endif
21
22
23_cpeekcolor:
24        ldy     CURS_X
25        lda     (CRAM_PTR),y    ; get color
26        and     #$0F
27        ldx     #>$0000
28        rts
29