15 lines
170 B
ArmAsm
15 lines
170 B
ArmAsm
|
|
.export _cpeekcolor
|
|
|
|
.include "vic20.inc"
|
|
|
|
.segment "CODE"
|
|
|
|
_cpeekcolor:
|
|
|
|
ldy CURS_X
|
|
lda (CRAM_PTR),y ; get color
|
|
and #$0f
|
|
ldx #0
|
|
rts
|