bslathi19/cc65
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

Added adjustment for Apple GEOS screen size.

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@5485 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
ol.sc
2012-02-07 13:42:27 +00:00
parent 470cf67795
commit 829609133c
2 changed files with 15 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
libsrc/geos-cbm/conio/_scrsize.s
View File

@@ -18,6 +18,7 @@
.segment "INIT" .segment "INIT"
initscrsize: initscrsize:
.ifdef __GEOS_CBM__
lda graphMode lda graphMode
bpl L1 bpl L1
lda #80 ; 80 columns (more or less) lda #80 ; 80 columns (more or less)
@@ -25,6 +26,11 @@ initscrsize:
L1: lda #40 ; 40 columns (more or less) L1: lda #40 ; 40 columns (more or less)
sta xsize sta xsize
lda #24 ; something like that for Y size lda #24 ; something like that for Y size
.else
lda #70 ; 70 columns (more or less)
sta xsize
lda #23 ; something like that for Y size
.endif
sta ysize sta ysize
ldx #1 ldx #1
stx cursor_r stx cursor_r

10
libsrc/geos-cbm/conio/clrscr.s
View File

@@ -30,6 +30,7 @@ _clrscr:
inx inx
stx cursor_r stx cursor_r
jsr fixcursor ; home cursor jsr fixcursor ; home cursor
.ifdef __GEOS_CBM__
lda #199 lda #199
sta r2H sta r2H
lda graphMode lda graphMode
@@ -39,7 +40,14 @@ _clrscr:
bne L99 bne L99
L40: lda #>319 ; 40 columns L40: lda #>319 ; 40 columns
ldx #<319 ldx #<319
L99: sta r4H L99:
.else
lda #191
sta r2H
lda #>559
ldx #<559
.endif
sta r4H
stx r4L stx r4L
jsr Rectangle jsr Rectangle
pla pla