From 23ead1316b8f245d10b193d97ab3657077552104 Mon Sep 17 00:00:00 2001
From: Philip Zembrod <pzembrod@gmail.com>
Date: Sat, 25 Nov 2023 22:03:32 +0100
Subject: [PATCH] Adapt IOStatus, MsgFlg and Pen/BkgCol to X16 Kernal R46

---
 6502/C64/src/vf-sys-x16.fth | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/6502/C64/src/vf-sys-x16.fth b/6502/C64/src/vf-sys-x16.fth
index e6d9244..1ec73e1 100644
--- a/6502/C64/src/vf-sys-x16.fth
+++ b/6502/C64/src/vf-sys-x16.fth
@@ -7,11 +7,10 @@ include vf-lbls-cbm.fth
 
 0ffd2 >label ConOut
 0febd >label KbdbufPeek
- 0289 >label IOStatus
- 028c >label MsgFlg
+ 0287 >label IOStatus
+ 028d >label MsgFlg
 09f2c >label BrdCol
- 0266 >label BkgCol
- 0284 >label PenCol
+ 0376 >label BkgPenCol
  0381 >label CurFlg  \ aka qtsw
  0385 >label InsCnt  \ aka insrt
 
@@ -95,9 +94,10 @@ Label first-init
  sei cld
  RomBank lda  $f8 # and  RomBank sta \ map in KERNAL ROM
  IOINIT jsr  CINT jsr  RESTOR jsr  \ init. and set I/O-Vectors
- ink-pot    lda BrdCol sta \ border
- ink-pot 1+ lda BkgCol sta \ backgrnd
- ink-pot 2+ lda PenCol sta \ pen
+ ink-pot    lda BrdCol sta  \ border
+ ink-pot 1+ lda
+ .a asl .a asl .a asl .a asl  \ backgrnd
+ ink-pot 2+ ora BkgPenCol sta  \ pen
  $0e # lda  ConOut jsr  \ lower/uppercase
  cli rts end-code
 first-init dup bootsystem 1+ !