22 lines
243 B
ArmAsm
22 lines
243 B
ArmAsm
|
|
.export _cpeekcol
|
|
.export _cpeekcolxy
|
|
|
|
.import _gotoxy
|
|
|
|
.include "plus4.inc"
|
|
|
|
.segment "CODE"
|
|
|
|
_cpeekcolxy:
|
|
|
|
jsr _gotoxy ; Set cursor
|
|
|
|
_cpeekcol:
|
|
|
|
ldy CURS_X
|
|
lda (CRAM_PTR),y ; get color
|
|
;and #$0f is this ok?
|
|
ldx #0
|
|
rts
|