From 4fac041c6198831ab8f1e2ec57ea459d649707ca Mon Sep 17 00:00:00 2001 From: Peter Ferrie Date: Mon, 12 Mar 2018 18:53:14 -0700 Subject: [PATCH] switch to 40-columns if not 80-column mode --- src/onbeyond/z3/z3.s | 1 + src/onbeyond/z4/z4.s | 6 ++++-- src/onbeyond/z5/z5.s | 6 ++++-- 3 files changed, 9 insertions(+), 4 deletions(-) diff --git a/src/onbeyond/z3/z3.s b/src/onbeyond/z3/z3.s index 2738718..df90d1f 100644 --- a/src/onbeyond/z3/z3.s +++ b/src/onbeyond/z3/z3.s @@ -117,6 +117,7 @@ op_c7 stx $302 ;no load + + jsr $fe93 ldx $300 cpx #$ce beq skip80 diff --git a/src/onbeyond/z4/z4.s b/src/onbeyond/z4/z4.s index ba2c834..5c03e7a 100644 --- a/src/onbeyond/z4/z4.s +++ b/src/onbeyond/z4/z4.s @@ -369,8 +369,10 @@ slot lda $cfff bne okay80 skip80 - lda #$2c - sta call80 + lda #$93 + sta call80+1 + lda #$fe + sta call80+2 lda #$df sta inversemask+1 lda #7 diff --git a/src/onbeyond/z5/z5.s b/src/onbeyond/z5/z5.s index f533f0b..602f18f 100644 --- a/src/onbeyond/z5/z5.s +++ b/src/onbeyond/z5/z5.s @@ -364,8 +364,10 @@ slot lda $cfff bne okay80 skip80 - lda #$2c - sta call80 + lda #$93 + sta call80+1 + lda #$fe + sta call80+2 lda #$df sta inversemask+1 lda #7