Added adjustment for Apple GEOS screen size.

git-svn-id: svn://svn.cc65.org/cc65/trunk@5485 b7a2c559-68d2-44c3-8de9-860c34a00d81

diff --git a/libsrc/geos-cbm/conio/_scrsize.s b/libsrc/geos-cbm/conio/_scrsize.s
index eaa151bd86a995209ae49f04bb74d777ad585835..fb4399f790976f4c511e5b970c7b39f8e93d39cd 100644 (file)
--- a/libsrc/geos-cbm/conio/_scrsize.s
+++ b/libsrc/geos-cbm/conio/_scrsize.s
@@ -18,6 +18,7 @@
 .segment        "INIT"
 
 initscrsize:
+.ifdef  __GEOS_CBM__
        lda     graphMode
        bpl     L1
        lda     #80             ; 80 columns (more or less)
@@ -25,6 +26,11 @@ initscrsize:
 L1:    lda     #40             ; 40 columns (more or less)
        sta     xsize
        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
        ldx     #1
        stx     cursor_r

diff --git a/libsrc/geos-cbm/conio/clrscr.s b/libsrc/geos-cbm/conio/clrscr.s
index af22b6a7c47b37bdc1c53fcc5341b3b9f6a19f63..50be5b094d6b2a6405089f7fc5eb4e850966dca6 100644 (file)
--- a/libsrc/geos-cbm/conio/clrscr.s
+++ b/libsrc/geos-cbm/conio/clrscr.s
@@ -30,6 +30,7 @@ _clrscr:
            inx
            stx cursor_r
            jsr fixcursor               ; home cursor
+.ifdef  __GEOS_CBM__
            lda #199
            sta r2H
            lda graphMode
@@ -39,7 +40,14 @@ _clrscr:
            bne L99
 L40:       lda #>319                   ; 40 columns
            ldx #<319
-L99:       sta r4H
+L99:
+.else
+           lda #191
+           sta r2H
+           lda #>559
+           ldx #<559
+.endif
+           sta r4H
            stx r4L
            jsr Rectangle
            pla