34 lines
342 B
ArmAsm
34 lines
342 B
ArmAsm
|
|
.export _cpeekchar
|
|
.export _cpeekcharxy
|
|
|
|
.import _gotoxy
|
|
|
|
.include "cbm510.inc"
|
|
.include "extzp.inc"
|
|
|
|
.segment "CODE"
|
|
|
|
_cpeekcharxy:
|
|
|
|
jsr _gotoxy ; Set cursor
|
|
|
|
_cpeekchar:
|
|
lda #0
|
|
ldx #0
|
|
rts
|
|
|
|
;; ?!?!
|
|
|
|
ldx IndReg
|
|
ldy #$0F
|
|
sty IndReg
|
|
|
|
ldy CURS_X
|
|
lda (SCREEN_PTR),y ; get char
|
|
|
|
stx IndReg
|
|
|
|
ldx #0
|
|
rts
|