6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2024-12-01 19:49:57 +00:00
Code Issues Projects Releases Wiki Activity

Merge pull request #46 from pzembrod/x16-r46

Browse Source 
X16 r46
This commit is contained in:
Philip Zembrod 2023-11-29 22:38:39 +01:00 committed by GitHub
commit a9a1c79ae0
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
11 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File 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 "

12
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
@ -96,8 +95,9 @@ Label first-init
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+ !