1; 2; Maciej 'YTM/Elysium' Witkowiak 3; 4; Screen size variables 5; 6; 6.3.2001, 17.4.2003 7 8 9 .export xsize, ysize 10 .export screensize 11 .importzp cursor_r, cursor_c 12 .import _cursor 13 .constructor initscrsize 14 15 .include "geossym.inc" 16 17.segment "ONCE" 18 19initscrsize: 20.ifdef __GEOS_CBM__ 21 lda graphMode 22 bpl L1 23 lda #80 ; 80 columns (more or less) 24 .byte $2c 25L1: lda #40 ; 40 columns (more or less) 26 sta xsize 27 lda #25 ; something like that for Y size 28.else 29 lda #70 ; 70 columns (more or less) 30 sta xsize 31 lda #24 ; something like that for Y size 32.endif 33 sta ysize 34 lda #0 35 sta cursor_c 36 sta cursor_r 37 jmp _cursor ; home and update cursor 38 39.code 40 41screensize: 42 ldx xsize 43 ldy ysize 44 rts 45 46.segment "INIT" 47 48xsize: 49 .res 1 50ysize: 51 .res 1 52