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

Cleanup vc-sys-x16.fth

Browse Source
This commit is contained in:
Philip Zembrod 2020-11-06 22:50:25 +01:00
parent c77bed3286
commit e7e2c7754c
1 changed files with 5 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -17,17 +17,6 @@ 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
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:
@ -37,7 +26,7 @@ Code (x16abort BasicStackRstReady jmp end-code
\ *** Block No. 129, Hexblock 81 \ *** Block No. 129, Hexblock 81
81 fthpage 81 fthpage
\ C64 c64key? getkey \ X16 c64key? getkey
Code c64key? ( -- flag) Code c64key? ( -- flag)
0 # lda 9f61 sta 0 # lda 9f61 sta
@ -60,12 +49,8 @@ Code getkey ( -- 8b)
\ *** Block No. 130, Hexblock 82 \ *** Block No. 130, Hexblock 82
82 fthpage 82 fthpage
\ C64 curon curoff \ X16 curon curoff
\ 00C837 >label screen_get_char_color
\ 00C8CC >label screen_restore_state
\ 00C8B4 >label screen_save_state
\ 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
@ -102,11 +87,7 @@ Create ink-pot
\ *** Block No. 144, Hexblock 90 \ *** Block No. 144, Hexblock 90
90 fthpage 90 fthpage
\ x16 restore \ X16 restore
\ 00E00A .nnmi
\ 00FFE1 .stop
\ 00E01F .prend
Label restore pha txa pha tya pha cld Label restore pha txa pha tya pha cld
\ TODO: Replace with phx phy once 65c02 asm is available \ TODO: Replace with phx phy once 65c02 asm is available
@ -117,7 +98,7 @@ Label restore pha txa pha tya pha cld
\ *** Block No. 145, Hexblock 91 \ *** Block No. 145, Hexblock 91
91 fthpage 91 fthpage
\ C64:Init 06nov87re \ X16:Init
: init-system \ TODO(pzembrod): Check if this works and is needed : init-system \ TODO(pzembrod): Check if this works and is needed
[ restore ] Literal $318 ! ; \ NMI-Vector [ restore ] Literal $318 ! ; \ NMI-Vector
@ -136,6 +117,4 @@ first-init dup bootsystem 1+ !
Code c64init first-init jsr Code c64init first-init jsr
xyNext jmp end-code xyNext jmp end-code
| CODE (bye | CODE (bye $FFFC ) jmp end-code
via1pb lda $f8 # and $4 # ora via1pb sta \ map in BASIC ROM
BasicColdStart jmp end-code