mirror of
https://github.com/cc65/cc65.git
synced 2024-07-01 23:29:41 +00:00
25 lines
441 B
ArmAsm
25 lines
441 B
ArmAsm
|
;
|
||
|
|
; 2016-02-28, Groepaz
|
||
|
|
; 2017-06-19, Greg King
|
||
|
|
;
|
||
|
|
; unsigned char cpeekcolor (void);
|
||
|
|
;
|
||
|
|
|
||
|
|
.export _cpeekcolor
|
||
|
|
|
||
|
|
.import CURS_X: zp, CRAM_PTR: zp
|
||
|
|
|
||
|
|
.include "cbm510.inc"
|
||
|
|
|
||
|
|
|
||
|
|
_cpeekcolor:
|
||
|
|
ldx IndReg
|
||
|
|
lda #$0F
|
||
|
|
sta IndReg
|
||
|
|
ldy CURS_X
|
||
|
|
lda (CRAM_PTR),y ; get color
|
||
|
|
stx IndReg
|
||
|
|
and #$0F
|
||
|
|
ldx #>$0000
|
||
|
|
rts
|