diff --git a/6502/C64/src/vf-sys-c16.fth b/6502/C64/src/vf-sys-c16.fth index dd4624d..eab3bdd 100644 --- a/6502/C64/src/vf-sys-c16.fth +++ b/6502/C64/src/vf-sys-c16.fth @@ -126,3 +126,7 @@ Code C64fkeys \ Pushkeys a la C64 [[ dex 0>= ?[[ InitPKs ,X lda PKeys ,x sta ]]? xyNext jmp end-code + +(C16- | Create (bye $FFF6 here 2- ! ) + +(C16+ | CODE (bye rom $FFF6 jmp end-code ) diff --git a/6502/C64/src/vf-sys-c64.fth b/6502/C64/src/vf-sys-c64.fth index 5d24e0b..cce6648 100644 --- a/6502/C64/src/vf-sys-c64.fth +++ b/6502/C64/src/vf-sys-c64.fth @@ -121,3 +121,5 @@ first-init dup bootsystem 1+ ! warmboot 1+ ! Code c64init first-init jsr xyNext jmp end-code + +| Create (bye $FCE2 here 2- ! diff --git a/6502/C64/src/vf-sys-cbm.fth b/6502/C64/src/vf-sys-cbm.fth index d5babd4..96cb736 100644 --- a/6502/C64/src/vf-sys-cbm.fth +++ b/6502/C64/src/vf-sys-cbm.fth @@ -95,12 +95,6 @@ Output: display [ here output ! ] c64emit c64cr c64type c64del c64page c64at c64at? ; -(C64 | Create (bye $FCE2 here 2- ! ) - -(C16- | Create (bye $FFF6 here 2- ! ) - -(C16+ | CODE (bye rom $FFF6 jmp end-code ) - \ *** Block No. 135, Hexblock 87 87 fthpage