; 6.3.2001, 17.4.2003
- .export xsize, ysize
- .export screensize
- .importzp cursor_r, cursor_c
- .import _cursor
- .constructor initscrsize
-
- .include "geossym.inc"
+ .export xsize, ysize
+ .export screensize
+ .importzp cursor_r, cursor_c
+ .import _cursor
+ .constructor initscrsize
+
+ .include "geossym.inc"
-.segment "INIT"
+.segment "INIT"
initscrsize:
.ifdef __GEOS_CBM__
- lda graphMode
- bpl L1
- lda #80 ; 80 columns (more or less)
- .byte $2c
-L1: lda #40 ; 40 columns (more or less)
- sta xsize
- lda #25 ; something like that for Y size
+ lda graphMode
+ bpl L1
+ lda #80 ; 80 columns (more or less)
+ .byte $2c
+L1: lda #40 ; 40 columns (more or less)
+ sta xsize
+ lda #25 ; something like that for Y size
.else
- lda #70 ; 70 columns (more or less)
- sta xsize
- lda #24 ; something like that for Y size
+ lda #70 ; 70 columns (more or less)
+ sta xsize
+ lda #24 ; something like that for Y size
.endif
- sta ysize
- lda #0
- sta cursor_c
- sta cursor_r
- jmp _cursor ; home and update cursor
+ sta ysize
+ lda #0
+ sta cursor_c
+ sta cursor_r
+ jmp _cursor ; home and update cursor
.code
screensize:
- ldx xsize
- ldy ysize
- rts
+ ldx xsize
+ ldy ysize
+ rts
.bss
xsize:
- .res 1
+ .res 1
ysize:
- .res 1
+ .res 1