+ .export _screensize
+
+ .import popsreg
+ .import screensize
+ .importzp ptr1, sreg
+
+.proc _screensize
+
+ sta ptr1 ; Store the y pointer
+ stx ptr1+1
+ jsr popsreg ; Get the x pointer into sreg
+ jsr screensize ; Get screensize into X/Y
+ tya ; Get Y size into A
+
+.IFP02
+ ldy #0
+ sta (ptr1),y
+ txa
+ sta (sreg),y
+.ELSE
+ sta (ptr1)
+ txa
+ sta (sreg)
+.ENDIF
+
+ rts