; Screen size variables
;
- .export xsize, ysize
- .constructor initscrsize
+ .export screensize
- .include "../cbm/cbm.inc"
+ .include "c128.inc"
-.code
+.proc screensize
-initscrsize:
- jsr SCREEN
- inx
- stx xsize
- iny
- sty ysize
- rts
+ ldx #40 ; Assume 40 column mode
+ bit MODE
+ bpl C40 ; Jump if 40 column mode
+ ldx #80
+C40: ldy #25
+ rts
-.bss
+.endproc
-xsize: .res 1
-ysize: .res 1
-
-
-