6502
/
VolksForth
mirror of https://github.com/forth-ev/VolksForth.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Adapt IOStatus, MsgFlg and Pen/BkgCol to X16 Kernal R46

This commit is contained in:
Philip Zembrod 2023-11-25 22:03:32 +01:00
parent bda78c41f9
commit 23ead1316b
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
6502/C64/src/vf-sys-x16.fth
View File

@ -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+ !