mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-06-01 06:41:37 +00:00
6fb1f6d972
really platform-independent. Likely this might eventually deserve the name vf-6502-core.fth
32 lines
555 B
Forth
32 lines
555 B
Forth
\ The head of C64 VolkForth
|
|
|
|
\ Initial part of load screen
|
|
|
|
Onlyforth
|
|
|
|
$801 dup displace !
|
|
Target definitions here!
|
|
|
|
|
|
\ *** Block No. 16, Hexblock 10
|
|
10 fthpage
|
|
|
|
\ FORTH Preamble and ID clv06aug87
|
|
|
|
$D c, $8 c, $A c, 00 c, 9E c, 28 c, 32 c, 30 c,
|
|
36 c, 34 c, 29 c, 00 c, 00 c, 00 c, 00 c, \ SYS(2064)
|
|
|
|
Assembler
|
|
nop 0 jmp here 2- >label >cold
|
|
nop 0 jmp here 2- >label >restart
|
|
|
|
here dup origin!
|
|
\ Here are coldstart- and Uservariables
|
|
\
|
|
0 jmp 0 jsr here 2- >label >wake
|
|
end-code
|
|
$100 allot
|
|
|
|
Create logo
|
|
," volksFORTH-83 3.80.1-C64 "
|