6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2024-05-31 15:41:34 +00:00
Code Issues Projects Releases Wiki Activity

Compare commits

base: 6502:b66a60fdfdc51a6a967650dcf08e4b8ae64c0c28
Branches Tags
6502:master
6502:8086-3.9.x
6502:target-vfvm
6502:emu2-edit
6502:forth200x
6502:portable-c
6502:v3.9.5-6502-C64
...
compare: 6502:a9a1c79ae09e7799b2ae2bfd260367ed375841b7
Branches Tags
6502:master
6502:8086-3.9.x
6502:target-vfvm
6502:emu2-edit
6502:forth200x
6502:portable-c
6502:v3.9.5-6502-C64

4 Commits
b66a60fdfd ... a9a1c79ae0

Author SHA1 Message Date
Philip Zembrod
a9a1c79ae0
Merge pull request #46 from pzembrod/x16-r46 
X16 r46
 2023-11-29 22:38:39 +01:00
Philip Zembrod
69b189d943 Update all binaries to version 3.9.5 which supports X16 R46 2023-11-26 00:10:33 +01:00
Philip Zembrod
872716c538 Bump all versions to 3.9.5 - reflecting the X16-R46 support. 2023-11-26 00:05:39 +01:00
Philip Zembrod
23ead1316b Adapt IOStatus, MsgFlg and Pen/BkgCol to X16 Kernal R46 2023-11-25 22:03:32 +01:00
11 changed files with 11 additions and 11 deletions
Show Stats Expand all files Collapse all files

BIN
6502/C64/cbmfiles/v4th-c16+
View File

Binary file not shown.

BIN
6502/C64/cbmfiles/v4th-c16-
View File

Binary file not shown.

BIN
6502/C64/cbmfiles/v4th-c64
View File

Binary file not shown.

BIN
6502/C64/cbmfiles/v4th-x16
View File

Binary file not shown.

BIN
6502/C64/cbmfiles/v4thblk-c16+
View File

Binary file not shown.

BIN
6502/C64/cbmfiles/v4thblk-c16-
View File

Binary file not shown.

BIN
6502/C64/cbmfiles/v4thblk-c64
View File

Binary file not shown.

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

@ -28,5 +28,5 @@ here dup origin!
$100 allot $100 allot
Create logo Create logo
(C16+ ," volksFORTH-83 3.9.4-C16+ " ) (C16+ ," volksFORTH-83 3.9.5-C16+ " )
(C16- ," volksFORTH-83 3.9.4-C16- " ) (C16- ," volksFORTH-83 3.9.5-C16- " )

2
6502/C64/src/vf-head-c64.fth
View File

@ -28,4 +28,4 @@ here dup origin!
$100 allot $100 allot
Create logo Create logo
," volksFORTH-83 3.9.4-C64 " ," volksFORTH-83 3.9.5-C64 "

2
6502/C64/src/vf-head-x16.fth
View File

@ -27,4 +27,4 @@ here dup origin!
$100 allot $100 allot
Create logo Create logo
," volksFORTH-83 3.9.4-X16 " ," volksFORTH-83 3.9.5-X16 "

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