+;
+; Kevin Ruland
+;
+; unsigned char wherey (void);
+;
- ;; Keivn Ruland
- ;;
- ;; unsigned char wherey( void );
+ .export _wherey
- .export _wherey
-
- .include "apple2.inc"
-
-.proc _wherey
-
- lda CV
- ldx #0
- rts
-
-.endproc
+ .include "apple2.inc"
+_wherey:
+ lda CV
+ sec
+ sbc WNDTOP
+ ldx #$00
+ rts