41 lines
572 B
ArmAsm
41 lines
572 B
ArmAsm
|
|
.export _cpeekchar
|
|
.export _cpeekcharxy
|
|
|
|
.import _gotoxy
|
|
.import ppubuf_waitempty
|
|
|
|
.include "nes.inc"
|
|
|
|
.segment "CODE"
|
|
|
|
_cpeekcharxy:
|
|
|
|
jsr _gotoxy ; Set cursor
|
|
|
|
_cpeekchar:
|
|
|
|
; wait until all console data has been written
|
|
jsr ppubuf_waitempty
|
|
|
|
ldy SCREEN_PTR+1
|
|
ldx SCREEN_PTR
|
|
|
|
; waiting for vblank is incredibly slow ://
|
|
vwait:
|
|
; lda $2002 ;wait
|
|
; bpl vwait
|
|
|
|
lda #0
|
|
sty $2006
|
|
stx $2006
|
|
ldy $2007 ; first read is invalid
|
|
ldy $2007 ; get data
|
|
sta $2006
|
|
sta $2006
|
|
|
|
tya
|
|
and #$7f ; ?!?!
|
|
rts
|
|
|