40 lines
384 B
ArmAsm
40 lines
384 B
ArmAsm
|
|
.export _cpeekchar
|
|
.export _cpeekcharxy
|
|
|
|
.import _gotoxy
|
|
|
|
.include "plus4.inc"
|
|
|
|
.segment "CODE"
|
|
|
|
_cpeekcharxy:
|
|
|
|
jsr _gotoxy ; Set cursor
|
|
|
|
_cpeekchar:
|
|
|
|
ldy CURS_X
|
|
lda (SCREEN_PTR),y ; get char
|
|
ldx #0
|
|
|
|
and #$7f
|
|
|
|
; 0 - $1f +$40
|
|
; $20 - $3f
|
|
; $40 - $7e +$80
|
|
|
|
cmp #$1f
|
|
bcs @sk1
|
|
;; clc
|
|
adc #$40
|
|
rts
|
|
|
|
@sk1:
|
|
cmp #$40
|
|
bcc @end
|
|
clc
|
|
adc #$80
|
|
@end:
|
|
rts
|