2005-03-26 17:03:30 +00:00
|
|
|
;
|
|
|
|
|
; Kevin Ruland
|
|
|
|
|
;
|
|
|
|
|
; unsigned char wherey (void);
|
|
|
|
|
;
|
2000-05-28 13:40:48 +00:00
|
|
|
|
2005-03-26 17:03:30 +00:00
|
|
|
.export _wherey
|
2000-05-28 13:40:48 +00:00
|
|
|
|
2005-03-26 17:03:30 +00:00
|
|
|
.include "apple2.inc"
|
2000-05-28 13:40:48 +00:00
|
|
|
|
2005-01-06 12:26:47 +00:00
|
|
|
_wherey:
|
2005-03-26 17:03:30 +00:00
|
|
|
lda CV
|
|
|
|
|
sec
|
|
|
|
|
sbc WNDTOP
|
2004-03-11 21:54:22 +00:00
|
|
|
ldx #$00
|
2005-03-26 17:03:30 +00:00
|
|
|
rts
|
