6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2024-06-14 00:29:45 +00:00
Code Issues Projects Releases Wiki Activity

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

Browse Source
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 0ffd2 >label ConOut
0febd >label KbdbufPeek 0febd >label KbdbufPeek
0289 >label IOStatus 0287 >label IOStatus
028c >label MsgFlg 028d >label MsgFlg
09f2c >label BrdCol 09f2c >label BrdCol
0266 >label BkgCol 0376 >label BkgPenCol
0284 >label PenCol
0381 >label CurFlg \ aka qtsw 0381 >label CurFlg \ aka qtsw
0385 >label InsCnt \ aka insrt 0385 >label InsCnt \ aka insrt
@ -95,9 +94,10 @@ Label first-init
sei cld sei cld
RomBank lda $f8 # and RomBank sta \ map in KERNAL ROM RomBank lda $f8 # and RomBank sta \ map in KERNAL ROM
IOINIT jsr CINT jsr RESTOR jsr \ init. and set I/O-Vectors IOINIT jsr CINT jsr RESTOR jsr \ init. and set I/O-Vectors
ink-pot lda BrdCol sta \ border ink-pot lda BrdCol sta \ border
ink-pot 1+ lda BkgCol sta \ backgrnd ink-pot 1+ lda
ink-pot 2+ lda PenCol sta \ pen .a asl .a asl .a asl .a asl \ backgrnd
ink-pot 2+ ora BkgPenCol sta \ pen
$0e # lda ConOut jsr \ lower/uppercase $0e # lda ConOut jsr \ lower/uppercase
cli rts end-code cli rts end-code
first-init dup bootsystem 1+ ! first-init dup bootsystem 1+ !