mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-06-14 00:29:45 +00:00
31 lines
513 B
Forth
31 lines
513 B
Forth
\ The head of Commander X16 VolkForth
|
|
|
|
\ Initial part of load file
|
|
|
|
Onlyforth
|
|
|
|
$801 dup displace !
|
|
Target definitions here!
|
|
|
|
|
|
10 fthpage
|
|
|
|
\ FORTH Preamble and ID
|
|
|
|
$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.9.5-X16 "
|