6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2025-02-16 21:30:59 +00:00
Code Issues Projects Releases Wiki Activity

First go at adapting init-system and first-init to X16

Browse Source
This commit is contained in:
Philip Zembrod 2020-09-05 00:28:20 +02:00
parent 9afb66f304
commit b8c74160cc
1 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -117,22 +117,20 @@ Label restore pha txa pha tya pha cld
\ C64:Init 06nov87re \ C64:Init 06nov87re
: init-system $FF40 dup $C0 cmove : init-system
[ restore ] Literal dup [ restore ] Literal $318 ! ; \ NMI-Vector
$FFFA ! $318 ! ; \ NMI-Vector to RAM
Label first-init Label first-init
sei cld sei cld \ $db c, \ for activating X16 monitor
IOINIT jsr CINT jsr RESTOR jsr IOINIT jsr CINT jsr RESTOR jsr
\ init. and set I/O-Vectors \ init. and set I/O-Vectors
$36 # lda 01 sta \ Basic off
ink-pot lda BrdCol sta \ border ink-pot lda BrdCol sta \ border
ink-pot 1+ lda BkgCol sta \ backgrnd ink-pot 1+ lda BkgCol sta \ backgrnd
ink-pot 2+ lda PenCol sta \ pen ink-pot 2+ lda PenCol sta \ pen
$17 # lda $D018 sta \ low/upp + \ $17 # lda $D018 sta \ low/upp +
0 # lda $D01A sta \ VIC-IRQ off \ 0 # lda $D01A sta \ VIC-IRQ off
$1B # lda $D011 sta \ Textmode on \ $1B # lda $D011 sta \ Textmode on
4 # lda $288 sta \ low screen \ 4 # lda $288 sta \ low screen
cli rts end-code cli rts end-code
first-init dup bootsystem 1+ ! first-init dup bootsystem 1+ !
warmboot 1+ ! warmboot 1+ !