Merge pull request #46 from pzembrod/x16-r46

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

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

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

View File

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

View File

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

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