6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2025-01-03 05:31:14 +00:00
Code Issues Projects Releases Wiki Activity

Fix ConOut, curon/off and ROM mapping, yielding first X16 VolksForth that works on a first level.

Browse Source
This commit is contained in:
Philip Zembrod 2020-11-04 20:40:55 +01:00
parent 3b8db813a8
commit a680fb282c
2 changed files with 35 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
6502/C64/cbmfiles/vf-lite-x16 Normal file
View File

Binary file not shown.

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

@ -5,7 +5,7 @@ include vf-lbls-cbm.fth
\ X16 labels \ X16 labels
0fede >label console_put_char 0c28c >label ConOut
028c >label MsgFlg 028c >label MsgFlg
028b >label OutDev 028b >label OutDev
028a >label InDev 028a >label InDev
@ -17,7 +17,17 @@ include vf-lbls-cbm.fth
0381 >label CurFlg \ aka qtsw 0381 >label CurFlg \ aka qtsw
0385 >label InsCnt \ aka insrt 0385 >label InsCnt \ aka insrt
Label ConOut clc console_put_char jmp 0ded1 >label BasicColdStart
0debf >label BasicStackRstReady
\ 0deb7 >label BasicPanic
\ 0dec3 >label BasicReady
\ 0dece >label BasicNReady
\ TODO(pzembrod): Remove once X16 VolksForth is stabilized enough.
Code (x16abort BasicStackRstReady jmp end-code
: x16abort cr ." x16abort" cr (x16abort ;
\ C64 labels that X16 doesn't have: \ C64 labels that X16 doesn't have:
@ -52,35 +62,25 @@ Code getkey ( -- 8b)
\ C64 curon curoff \ C64 curon curoff
00C837 >label screen_get_char_color \ 00C837 >label screen_get_char_color
00C8CC >label screen_restore_state \ 00C8CC >label screen_restore_state
00C8B4 >label screen_save_state \ 00C8B4 >label screen_save_state
00C830 >label screen_set_char_color \ 00C830 >label screen_set_char_color
037B >label blnsw \ C64: $cc 037B >label blnsw \ C64: $cc
037C >label blnct \ C64: $cd \ 037C >label blnct \ C64: $cd
037D >label gdbln \ C64: $ce \ 037D >label gdbln \ C64: $ce
037E >label blnon \ C64: $cf \ 037E >label blnon \ C64: $cf
0262 >label pnt \ C64: $d1 \ 0262 >label pnt \ C64: $d1
0380 >label pntr \ C64: $d3 \ 0380 >label pntr \ C64: $d3
0373 >label gdcol \ 0373 >label gdcol
09f60 >label via1pb
Code curon ( --) Code curon ( --)
\ 0D3 ldy 0D1 )Y lda 0CE sta 0CC stx blnsw stx Next jmp end-code
screen_save_state jsr
pntr ldy screen_get_char_color jsr gdbln sta gdcol stx
0 # ldx blnsw stx \ TODO: use stz
screen_restore_state jsr
xyNext jmp end-code
Code curoff ( --) Code curoff ( --)
\ iny 0CC sty 0CD sty 0CF stx blnsw sty Next jmp end-code
\ 0CE lda 0D3 ldy 0D1 )Y sta
\ 1 # ldy Next jmp end-code
screen_save_state jsr
2 # ldy blnsw sty blnct sty 0 # ldx blnon stx \ TODO: use stz
gdbln lda gdcol ldx pntr ldy screen_set_char_color jsr
screen_restore_state jsr
xyNext jmp end-code
include vf-sys-cbm.fth include vf-sys-cbm.fth
@ -117,22 +117,23 @@ Label restore pha txa pha tya pha cld
\ C64:Init 06nov87re \ C64:Init 06nov87re
: init-system : init-system \ TODO(pzembrod): Check if this works and is needed
[ restore ] Literal $318 ! ; \ NMI-Vector [ restore ] Literal $318 ! ; \ NMI-Vector
Label first-init Label first-init
sei cld \ $db c, \ for activating X16 monitor sei cld
IOINIT jsr CINT jsr RESTOR jsr via1pb lda $f8 # and via1pb sta \ map in KERNAL ROM
\ 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 BkgCol sta \ backgrnd
ink-pot 2+ lda PenCol sta \ pen ink-pot 2+ lda PenCol sta \ pen
\ $17 # lda $D018 sta \ low/upp + $0e # lda ConOut jsr \ lower/uppercase
\ 0 # lda $D01A sta \ VIC-IRQ off
\ $1B # lda $D011 sta \ Textmode on
\ 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+ !
Code c64init first-init jsr Code c64init first-init jsr
xyNext jmp end-code xyNext jmp end-code
| CODE (bye
via1pb lda $f8 # and $4 # ora via1pb sta \ map in BASIC ROM
BasicColdStart jmp end-code