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