mirror of
https://github.com/cc65/cc65.git
synced 2026-03-13 22:16:33 +00:00
19 lines
394 B
ArmAsm
19 lines
394 B
ArmAsm
;
|
|
; 2017-06-21, Greg King
|
|
;
|
|
; unsigned char cpeekrevers (void);
|
|
;
|
|
|
|
.export _cpeekrevers
|
|
|
|
.include "atari.inc"
|
|
|
|
|
|
_cpeekrevers:
|
|
lda OLDCHR ; get char under cursor
|
|
and #$80 ; get reverse bit
|
|
asl a
|
|
tax ; ldx #>$0000
|
|
rol a ; return boolean value
|
|
rts
|