Initial Agat support
This commit is contained in:
17
libsrc/agat/wherey.s
Normal file
17
libsrc/agat/wherey.s
Normal file
@@ -0,0 +1,17 @@
|
||||
;
|
||||
; Kevin Ruland
|
||||
; Oleg A. Odintsov, Moscow, 2024
|
||||
;
|
||||
; unsigned char wherey (void);
|
||||
;
|
||||
|
||||
.export _wherey
|
||||
|
||||
.include "agat.inc"
|
||||
|
||||
_wherey:
|
||||
lda CV
|
||||
sec
|
||||
sbc WNDTOP
|
||||
ldx #$00
|
||||
rts
|
||||
Reference in New Issue
Block a user