6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2024-11-22 05:32:28 +00:00
Code Issues Projects Releases Wiki Activity

Rename Kernal variable labels CurFlg to QtSw and InsCnt to Insrt - those

Browse Source 
are their names in the canonical CBM documentation and in the X16 ROM sources.
Also remove their use in the X16 variant of VolksForth
This commit is contained in:
Philip Zembrod 2024-06-19 22:32:27 +02:00
parent 9e3e95c3e8
commit 82b7f31ae4
4 changed files with 17 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
6502/C64/src/vf-sys-c16.fth
View File

@ -12,8 +12,8 @@ include vf-lbls-cbm.fth
0ff19 >label BrdCol 0ff19 >label BrdCol
0ff15 >label BkgCol 0ff15 >label BkgCol
053b >label PenCol 053b >label PenCol
0cb >label CurFlg 0cb >label QtSw
0cf >label InsCnt 0cf >label Insrt
0540 >label KeyRep 0540 >label KeyRep
055d >label PKeys 055d >label PKeys

4
6502/C64/src/vf-sys-c64.fth
View File

@ -11,8 +11,8 @@ include vf-lbls-cbm.fth
0d020 >label BrdCol 0d020 >label BrdCol
0d021 >label BkgCol 0d021 >label BkgCol
0286 >label PenCol 0286 >label PenCol
0d4 >label CurFlg 0d4 >label QtSw
0d8 >label InsCnt 0d8 >label Insrt
028a >label KeyRep 028a >label KeyRep
0cc >label blnsw 0cc >label blnsw

10
6502/C64/src/vf-sys-cbm.fth
View File

@ -6,7 +6,15 @@
Code con! ( 8b --) SP X) lda Code con! ( 8b --) SP X) lda
Label (con! ConOut jsr SP 2inc Label (con! ConOut jsr SP 2inc
Label (con!end CurFlg stx InsCnt stx Label (con!end
\ So far VolksForth switches off quote switch and insert count
\ after every printed character. This introduces a dependency
\ on Kernal variables QtSw and Insrt that are undesirable on the
\ X16 where their addresses may change between Kernal versions.
\ Therefore we'll try how the system behaves without them on the
\ X16. Possibly this isn't needed at all, in the end.
(C64 QtSw stx Insrt stx )
(C16 QtSw stx Insrt stx )
1 # ldy ;c: pause ; 1 # ldy ;c: pause ;
Label (printable? \ for CBM-Code ! Label (printable? \ for CBM-Code !

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

@ -10,8 +10,10 @@ include vf-lbls-cbm.fth
0feab >label ExtApi 0feab >label ExtApi
09f2c >label BrdCol 09f2c >label BrdCol
0376 >label BkgPenCol \ aka color 0376 >label BkgPenCol \ aka color
0381 >label CurFlg \ aka qtsw \ I'm tentatively removing QtSw & Insrt from the X16 variant;
0385 >label InsCnt \ aka insrt \ see comment at the top of vf-sys-cbm.fth
\ 0381 >label QtSw
\ 0385 >label Insrt
1 >label RomBank 1 >label RomBank
0 >label RamBank 0 >label RamBank