mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-05-31 15:41:34 +00:00
9a53225469
independent of vforth4_2.d64, i.e. now for C16 VolksForth sources are fully text-file based, too, like for the C64 already. Only transient TC part still comes from tc38q.d64
19 lines
297 B
Forth
19 lines
297 B
Forth
|
|
\ *** Block No. 8, Hexblock 8
|
|
8 fthpage
|
|
|
|
\ ram rom jsr NormJsr f.C16+ clv12.4.87)
|
|
|
|
Assembler also definitions
|
|
|
|
\ C16+Macros for Bankswitching
|
|
|
|
: ram $ff3f sta ; : rom $ff3e sta ;
|
|
|
|
' Jsr Alias NormJsr Defer Jsr
|
|
|
|
: C16+Jsr dup $c000 u>
|
|
IF rom NormJsr ram ELSE NormJsr THEN ;
|
|
|
|
' C16+Jsr Is Jsr
|