31 lines
434 B
ArmAsm
31 lines
434 B
ArmAsm
|
|
.include "atmos.inc"
|
|
|
|
.export _cpeekc
|
|
|
|
_cpeekc:
|
|
|
|
ldy CURS_Y
|
|
ldx ScrTabLo,y
|
|
stx @l+1
|
|
ldx ScrTabHi,y
|
|
stx @l+2
|
|
ldx CURS_X
|
|
@l:
|
|
lda $bb80,x
|
|
;; inc COORDX_TEXT
|
|
ldx #0
|
|
rts
|
|
|
|
; FIXME: is that table available elsewhere?
|
|
.rodata
|
|
ScrTabLo:
|
|
.repeat 28, Line
|
|
.byte <(SCREEN + Line * 40)
|
|
.endrep
|
|
|
|
ScrTabHi:
|
|
.repeat 28, Line
|
|
.byte >(SCREEN + Line * 40)
|
|
.endrep
|