mirror of
https://github.com/cc65/cc65.git
synced 2024-08-19 17:29:37 +00:00
The constructors are _NOT_ allowed anymore to access the BSS. Rather they must use the DATA segment or the INIT segment. The latter isn't cleared at any point so the constructors may use it to expose values to the main program. However they must make sure to always write the values as they are not pre-initialized.
52 lines
1.0 KiB
ArmAsm
52 lines
1.0 KiB
ArmAsm
;
|
|
; Maciej 'YTM/Elysium' Witkowiak
|
|
;
|
|
; Screen size variables
|
|
;
|
|
; 6.3.2001, 17.4.2003
|
|
|
|
|
|
.export xsize, ysize
|
|
.export screensize
|
|
.importzp cursor_r, cursor_c
|
|
.import _cursor
|
|
.constructor initscrsize
|
|
|
|
.include "geossym.inc"
|
|
|
|
.segment "ONCE"
|
|
|
|
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
|
|
.else
|
|
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
|
|
|
|
.code
|
|
|
|
screensize:
|
|
ldx xsize
|
|
ldy ysize
|
|
rts
|
|
|
|
.segment "INIT"
|
|
|
|
xsize:
|
|
.res 1
|
|
ysize:
|
|
.res 1
|