; Screen size variables
;
+ .export screensize
- .export xsize, ysize
- .constructor initscrsize
+ .include "pet.inc"
- .include "pet.inc"
-
-.code
-
-initscrsize:
- ldx SCR_LINELEN
- inx ; Variable is one less
- stx xsize
- lda #25
- sta ysize
- rts
-
-
-.bss
-
-xsize: .res 1
-ysize: .res 1
+.proc screensize
+ ldx SCR_LINELEN
+ inx ; Variable is one less
+ ldy #25
+ rts
+.endproc