conio with fixed width and proortional font support
git-svn-id: svn://svn.cc65.org/cc65/trunk@1180 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
31
libsrc/geos/conio/_scrsize.s
Normal file
31
libsrc/geos/conio/_scrsize.s
Normal file
@@ -0,0 +1,31 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; Screen size variables
|
||||
;
|
||||
; 6.3.2001
|
||||
|
||||
|
||||
.include "../inc/geossym.inc"
|
||||
|
||||
.export xsize, ysize
|
||||
.constructor initscrsize
|
||||
|
||||
.code
|
||||
|
||||
initscrsize:
|
||||
lda graphMode
|
||||
bpl L1
|
||||
lda #80 ; 80 columns (more or less)
|
||||
.byte $2c
|
||||
L1: lda #40 ; 40 columns (more or less)
|
||||
sta xsize
|
||||
lda #24 ; something like that for Y size
|
||||
sta ysize
|
||||
rts
|
||||
|
||||
.bss
|
||||
|
||||
xsize: .res 1
|
||||
ysize: .res 1
|
||||
Reference in New Issue
Block a user