From 9f59d4eddfe4002b4c9fa3ef06bf2f9d169d712f Mon Sep 17 00:00:00 2001
From: Philip Zembrod <pzembrod@google.com>
Date: Mon, 6 Jul 2020 23:20:03 +0200
Subject: [PATCH 1/7] Migrate pre-target-definition source from .d64 screen to
 .fth

---
 6502/C64/src/vf-c16-32k.fth  |  5 +--
 6502/C64/src/vf-c16-main.fth |  5 +--
 6502/C64/src/vf-c64-main.fth |  5 +--
 6502/C64/src/vf-tc-prep.fth  | 60 ++++++++++++++++++++++++++++++++++++
 4 files changed, 69 insertions(+), 6 deletions(-)
 create mode 100644 6502/C64/src/vf-tc-prep.fth

diff --git a/6502/C64/src/vf-c16-32k.fth b/6502/C64/src/vf-c16-32k.fth
index 075599e..681c7a1 100644
--- a/6502/C64/src/vf-c16-32k.fth
+++ b/6502/C64/src/vf-c16-32k.fth
@@ -6,8 +6,9 @@ hex
 1 drive
 
 Onlyforth hex
-  c    load   \ clear memory and
-  d e  thru   \ clr labels  .status
+\ clear memory and clr labels  .status
+include vf-tc-prep.fth
+
 
 \ *** Block No. 9, Hexblock 9
 
diff --git a/6502/C64/src/vf-c16-main.fth b/6502/C64/src/vf-c16-main.fth
index 2bb8569..5699797 100644
--- a/6502/C64/src/vf-c16-main.fth
+++ b/6502/C64/src/vf-c16-main.fth
@@ -6,8 +6,9 @@ hex
 1 drive
 
 Onlyforth hex
-  c    load   \ clear memory and
-  d e  thru   \ clr labels  .status
+\ clear memory and clr labels  .status
+include vf-tc-prep.fth
+
 
 \ *** Block No. 9, Hexblock 9
 
diff --git a/6502/C64/src/vf-c64-main.fth b/6502/C64/src/vf-c64-main.fth
index 1ee019a..602d5a1 100644
--- a/6502/C64/src/vf-c64-main.fth
+++ b/6502/C64/src/vf-c64-main.fth
@@ -6,8 +6,9 @@ hex
 1 drive
 
 Onlyforth hex
-  c    load   \ clear memory and
-  d e  thru   \ clr labels  .status
+\ clear memory and clr labels  .status
+include vf-tc-prep.fth
+
 
 \ *** Block No. 9, Hexblock 9
 
diff --git a/6502/C64/src/vf-tc-prep.fth b/6502/C64/src/vf-tc-prep.fth
new file mode 100644
index 0000000..ad7eaf7
--- /dev/null
+++ b/6502/C64/src/vf-tc-prep.fth
@@ -0,0 +1,60 @@
+\ *** Block No. 12, Hexblock c
+
+\ ramfill                             3:
+
+Onlyforth
+
+Code ramfill   ( adr n 8b -)
+ sei  34 # lda  1 sta
+ 3 # lda setup jsr
+ N 3 + ldx txa  N 2+ ora 0<>
+  ?[ N lda 0 # ldy
+    [[ 0 # cpx 0<>
+      ?[[ [[ N 4 + )Y sta iny 0= ?]
+          N 5 + inc dex ]]?
+   N 2+ ldx 0<> ?[
+   [[ N 4 + )Y sta iny N 2+ cpy CS ?] ]?
+  ]?
+ 36 # lda  1 sta cli
+ 0 # ldx 1 # ldy Next jmp
+end-code
+
+$C000 $4000 (16 $300 - C)  0 ramfill
+
+forget ramfill
+
+
+\ *** Block No. 13, Hexblock d
+
+( Deleting Assembler Labels bp27jun85we)
+
+: delete   Assembler name find
+ IF  >name count $1F and
+   bounds ?DO $1F I c! LOOP
+ ELSE  count type space THEN ;
+
+delete setup     delete xyNext
+delete Puta      delete SP
+delete Pop       delete Next
+delete N         delete UP
+delete Poptwo    delete W
+delete IP        delete RP
+delete Push      delete Push0A
+delete PushA     delete ;c:
+
+forget delete Onlyforth
+
+
+\ *** Block No. 14, Hexblock e
+
+( Definition for  .status     28jun85we)
+
+: status
+ blk @ ?dup IF
+  ."  blk " u.
+  ." here "  here u.
+  ." there " there u.
+  ." heap "  heap u.  cr
+  THEN ;
+
+' status is .status

From 7ecc127badeb4c6e6d27eca32a50f1f0d68f3f0e Mon Sep 17 00:00:00 2001
From: Philip Zembrod <pzembrod@google.com>
Date: Sat, 11 Jul 2020 20:24:35 +0200
Subject: [PATCH 2/7] Add make target for debugging target compile of
 c64-vf-latest. Also add detail diff output to bincmp target.

---
 6502/C64/Makefile | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/6502/C64/Makefile b/6502/C64/Makefile
index 7280c81..1929a06 100644
--- a/6502/C64/Makefile
+++ b/6502/C64/Makefile
@@ -30,11 +30,15 @@ test: test-c64.result test-c16.result
 
 test64: test-c64.result
 
+debug-64: emulator/tcbase.T64 emulator/build-vf.sh \
+    disks/vforth4_2.d64 disks/tc38q.d64 $(vf_fth_files_petscii)
+	emulator/build-vf.sh vf-c64-main.fth
+
 # Temporary bincmp target while the old and the new binaries are still
 # expected to be binary identical.
 bincmp: cbmfiles/c64-vf-latest cbmfiles/c16-vf-latest
-	cmp cbmfiles/c64-vf-latest cbmfiles/c64-volksforth83
-	cmp cbmfiles/c16-vf-latest cbmfiles/c16-volksforth83
+	cmp -b -l cbmfiles/c64-vf-latest cbmfiles/c64-volksforth83
+	cmp -b -l cbmfiles/c16-vf-latest cbmfiles/c16-volksforth83
 
 run-devenv: emulator/devenv.T64
 	emulator/run-in-vice.sh devenv

From fc4532c721aa58122e636d7d2789eb78c6895e51 Mon Sep 17 00:00:00 2001
From: Philip Zembrod <pzembrod@google.com>
Date: Sat, 11 Jul 2020 20:26:40 +0200
Subject: [PATCH 3/7] Tweak build-vf.sh script for non-saving,
 non-auto-terminating debug target compile

---
 6502/C64/emulator/build-vf.sh | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/6502/C64/emulator/build-vf.sh b/6502/C64/emulator/build-vf.sh
index cf4d611..0493029 100755
--- a/6502/C64/emulator/build-vf.sh
+++ b/6502/C64/emulator/build-vf.sh
@@ -13,9 +13,10 @@ basedir="$(realpath --relative-to="$PWD" "${emulatordir}/..")"
 source="$1"
 target="$2"
 
-rm -f "${basedir}/cbmfiles/${target}"
+test -n "$target" && rm -f "${basedir}/cbmfiles/${target}"
 
 keybuf="include ${source}\nsave-target ${target}\ndos s0:notdone\n"
+test -z "$target" && keybuf="include ${source}\n"
 
 DISK9=vforth4_2 DISK10=tc38q "${emulatordir}/run-in-vice.sh" \
   "tcbase" "${keybuf}"

From 1bd8d592c20b6f727c138f38cdd5b6bff28936af Mon Sep 17 00:00:00 2001
From: Philip Zembrod <pzembrod@google.com>
Date: Sat, 11 Jul 2020 20:44:11 +0200
Subject: [PATCH 4/7] Initial branch of blk $10-$7d, i.e. the main part of the
 vf sources, from the ascii version vforth4_2.fth of the disks/vforth4_2.d64
 block sources into a separate vf-blk-10-7d.fth in the src dir.

---
 6502/C64/src/vf-blk-10-7d.fth | 4760 +++++++++++++++++++++++++++++++++
 1 file changed, 4760 insertions(+)
 create mode 100644 6502/C64/src/vf-blk-10-7d.fth

diff --git a/6502/C64/src/vf-blk-10-7d.fth b/6502/C64/src/vf-blk-10-7d.fth
new file mode 100644
index 0000000..181fe08
--- /dev/null
+++ b/6502/C64/src/vf-blk-10-7d.fth
@@ -0,0 +1,4760 @@
+
+\ *** Block No. 0, Hexblock 0
+
+\\ Directory volksFORTH 2of4   26oct87re
+
+.                    0
+..                   0
+misc               $08
+C64/C16            $09
+System             $0F
+C64interface       $7d
+C16init            $94
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 1, Hexblock 1
+
+\\ Content volksFORTH 2of4     26oct87re
+
+Directory            0
+Content              1
+misc               $08
+C64 or  C16        $09
+System             $0F
+C64/C16interface   $7d
+                   $95-a9 free
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 2, Hexblock 2
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 3, Hexblock 3
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 4, Hexblock 4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 5, Hexblock 5
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 6, Hexblock 6
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 7, Hexblock 7
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 8, Hexblock 8
+
+\ ram rom jsr NormJsr f.C16+ clv12.4.87)
+
+
+Assembler also definitions
+
+(c16+ \ 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
+)
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 9, Hexblock 9
+
+\ Target-Machine              clv06dec88
+
+Onlyforth
+
+
+cr .( Host is: )
+    (64  .( C64) C)
+    (16  .( C16) C)
+
+       : )     ; immediate
+       : (C    ; immediate
+
+       : (C64  ; immediate
+\      : (C16  ; immediate
+\      : (C16+ ; immediate
+\      : (C16- ; immediate
+
+\      : (C64  [compile] ( ; immediate
+       : (C16  [compile] ( ; immediate
+       : (C16+ [compile] ( ; immediate
+       : (C16- [compile] ( ; immediate
+
+
+
+
+
+\ *** Block No. 10, Hexblock a
+
+\ load/remove  JSR-Macros    clv14.4.87)
+
+Assembler also definitions
+
+(C16+ \needs C16+Jsr          -2 +load )
+(C16+ ' C16+Jsr Is Jsr .( JSR Is:C16+  )
+(C16+ \\ skips rest of screen
+
+\ all other platforms don't need
+\ macros, so we skip the rest:
+\
+
+\needs C16+Jsr \\
+
+\ if macro exist, redefine it:
+
+' NormJsr Is Jsr .( JSR Is:Norm )
+
+
+
+
+
+
+
+
+
+\ *** Block No. 11, Hexblock b
+
+cr .( Target is: ) \         clv14.4.87)
+
+
+(C    .( CBM )
+(C64  .( C64 )
+(C16  .( C16 with )
+(C16+ .( 64kb )
+(C16- .( 32kb )
+
+cr .( Target is not: )
+
+(C    \ )      .( CBM, )
+(C64  \ )      .( C64, )
+(C16  \ )      .( C16, )
+(C16+ \ )      .( C16+64kb, )
+(C16- \ )      .( C16-32kb, )
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 12, Hexblock c
+
+\ ramfill                             3:
+
+Onlyforth
+
+Code ramfill   ( adr n 8b -)
+ sei  34 # lda  1 sta
+ 3 # lda setup jsr
+ N 3 + ldx txa  N 2+ ora 0<>
+  ?[ N lda 0 # ldy
+    [[ 0 # cpx 0<>
+      ?[[ [[ N 4 + )Y sta iny 0= ?]
+          N 5 + inc dex ]]?
+   N 2+ ldx 0<> ?[
+   [[ N 4 + )Y sta iny N 2+ cpy CS ?] ]?
+  ]?
+ 36 # lda  1 sta cli
+ 0 # ldx 1 # ldy Next jmp
+end-code
+
+$C000 $4000 (16 $300 - C)  0 ramfill
+
+forget ramfill
+
+
+
+
+\ *** Block No. 13, Hexblock d
+
+( Deleting Assembler Labels bp27jun85we)
+
+: delete   Assembler name find
+ IF  >name count $1F and
+   bounds ?DO $1F I c! LOOP
+ ELSE  count type space THEN ;
+
+delete setup     delete xyNext
+delete Puta      delete SP
+delete Pop       delete Next
+delete N         delete UP
+delete Poptwo    delete W
+delete IP        delete RP
+delete Push      delete Push0A
+delete PushA     delete ;c:
+
+forget delete Onlyforth
+
+
+
+
+
+
+
+
+
+\ *** Block No. 14, Hexblock e
+
+( Definition for  .status     28jun85we)
+
+: status
+ blk @ ?dup IF
+  ."  blk " u.
+  ." here "  here u.
+  ." there " there u.
+  ." heap "  heap u.  cr
+  THEN ;
+
+' status is .status
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 15, Hexblock f
+
+\ C64    Forth loadscreen     clv14oct87
+
+Onlyforth hex
+  -3    +load   \ clear memory and
+  -2 -1 +thru   \ clr labels  .status
+  -6 -4 +thru   \ Target-Machine
+Onlyforth
+
+(C64 $801 ) (C16 $1001 ) dup displace !
+
+Target definitions   here!
+
+$1 $6E +thru
+
+Assembler nonrelocate
+
+.unresolved
+
+' .blk is .status
+
+    -4 +load    \ Print Target-Machine
+
+cr .( save-target volksforth83)
+91 con! ( Cursor up) quit
+
+
+\ *** Block No. 16, Hexblock 10
+
+\ FORTH Preamble and ID       clv06aug87
+
+(C64  $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)
+(C16  $D c, 10 c, $A c, 00 c, 9E c,
+28 c, 34 c, 31 c, 31 c, 32 c, 29 c,
+00 c, 00 c, 00 c, 00 c, ) \ SYS(4112)
+
+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
+ (C64  ," volksFORTH-83 3.80.1-C64  " )
+ (C16+ ," volksFORTH-83 3.80.1-C16+ " )
+ (C16- ," volksFORTH-83 3.80.1-C16- " )
+
+
+\ *** Block No. 17, Hexblock 11
+
+( Zero page Variables & Next  03apr85bp)
+
+02 dup     >label RP     2+
+   dup     >label UP     2+
+
+   dup     >label Puta   1+
+   dup     >label SP     2+
+   dup     >label Next
+   dup 5 + >label IP
+      13 + >label W
+
+     W 8 + >label N
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 18, Hexblock 12
+
+( Next, moved into Zero page  08apr85bp)
+
+Label Bootnext
+   -1 sta              \ -1 is dummy SP
+   IP )Y lda  W 1+  sta
+   -1 lda     W sta    \ -1 is dummy IP
+   clc IP lda  2 # adc  IP sta
+     CS not ?[ Label Wjmp -1 ) jmp ]?
+   IP 1+ inc  Wjmp bcs
+end-code
+
+here Bootnext - >label Bootnextlen
+
+Code end-trace  ( Patch Next for trace )
+ $A5 # lda  Next $A + sta
+  IP # lda  Next $B + sta
+ $69 # lda  Next $C + sta
+   2 # lda  Next $D + sta
+ Next jmp   end-code
+
+
+
+
+
+
+
+\ *** Block No. 19, Hexblock 13
+
+\ ;c:  noop                    02nov87re
+
+Create recover  ( -- adr )   Assembler
+ pla  W sta  pla  W 1+ sta
+ W wdec  0 jmp   end-code
+
+here 2- >label >recover
+\ handcrafted forward reference for
+\ jmp command
+
+Compiler Assembler also definitions
+ H : ;c:   0 T recover jsr
+ end-code  ] H ;
+Target
+
+Code noop   Next here 2- !  end-code
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 20, Hexblock 14
+
+\ User variables              clv14oct87
+
+Constant origin  8 uallot drop
+                 \ For multitasker
+
+User s0       $7CFA s0 !
+User r0       $7FFE r0 !
+User dp
+User offset      0 offset !
+User base      &10 base !
+User output
+User input
+User errorhandler
+     \ pointer for  Abort" -code
+User voc-link
+User udp
+     \ points to next free addr in User
+
+
+
+
+
+
+
+
+
+\ *** Block No. 21, Hexblock 15
+
+( manipulate system pointers  29jan85bp)
+
+Code sp@   ( -- addr)
+ SP lda  N sta  SP 1+ lda  N 1+ sta
+ N # ldx
+Label Xpush
+ SP 2dec  1 ,X lda  SP )Y sta
+ 0 ,X lda  0 # ldx  Puta jmp   end-code
+
+Code sp!   ( addr --)
+ SP X) lda  tax  SP )Y lda
+ SP 1+ sta  SP stx   0 # ldx
+ Next jmp   end-code
+
+Code up@   ( -- addr)
+ UP # ldx  Xpush jmp  end-code
+
+Code up!   ( addr --)      UP # ldx
+Label Xpull     SP )Y lda  1 ,X sta
+            dey SP )Y lda  0 ,X sta
+Label (xydrop   0 # ldx  1 # ldy
+Label (drop     SP 2inc  Next jmp
+end-code restrict
+
+
+
+\ *** Block No. 22, Hexblock 16
+
+( manipulate returnstack   16feb85bp/ks)
+
+Code rp@ ( -- addr )
+ RP # ldx  Xpush jmp  end-code
+
+Code rp! ( addr -- )
+ RP # ldx  Xpull jmp  end-code restrict
+
+Code >r  ( 16b --  )
+ RP 2dec  SP X) lda   RP X) sta
+ SP )Y lda   RP )Y sta (drop jmp
+end-code restrict
+
+Code r>  ( -- 16b)
+ SP 2dec  RP X) lda  SP X) sta
+          RP )Y lda  SP )Y sta
+Label (rdrop     2 # lda
+Label (nrdrop    clc  RP adc  RP sta
+    CS ?[  RP 1+ inc  ]?
+ Next jmp  end-code  restrict
+
+
+
+
+
+
+\ *** Block No. 23, Hexblock 17
+
+\ r@ rdrop  exit  ?exit       clv12jul87
+
+Code r@      ( -- 16b)
+ SP 2dec  RP )Y lda  SP )Y sta
+          RP X) lda  Puta jmp
+end-code
+
+Code rdrop    (rdrop here 2- !
+end-code   restrict
+
+Code exit
+ RP X) lda  IP sta
+ RP )Y lda  IP 1+ sta
+ (rdrop jmp   end-code
+Code unnest
+ RP X) lda  IP sta
+ RP )Y lda  IP 1+ sta
+ (rdrop jmp   end-code
+
+Code ?exit     ( flag -- )
+ SP X) lda  SP )Y ora
+ php  SP 2inc  plp
+ ' exit @ bne  Next jmp
+end-code
+
+
+\ *** Block No. 24, Hexblock 18
+
+( execute  perform            08apr85bp)
+
+Code execute  ( addr --)
+ SP X) lda   W sta
+ SP )Y lda   W 1+ sta
+ SP 2inc     W 1- jmp   end-code
+
+: perform ( addr -- )   @ execute ;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 25, Hexblock 19
+
+( c@   c! ctoggle             10jan85bp)
+
+Code c@ ( addr -- 8b)
+ SP X) lda  N sta   SP )Y lda  N 1+ sta
+Label (c@    0 # lda  SP )Y sta
+ N X)  lda   Puta jmp   end-code
+
+Code c!  ( 16b addr --)
+ SP X) lda   N sta   SP )Y lda  N 1+ sta
+ iny  SP )Y lda  N X) sta dey
+Label (2drop
+ SP lda  clc  4 # adc  SP sta
+   CS ?[  SP 1+ inc  ]?
+ Next jmp   end-code
+
+: ctoggle   ( 8b addr --)
+ under c@ xor swap c! ;
+
+
+
+
+
+
+
+
+
+\ *** Block No. 26, Hexblock 1a
+
+( @ ! +!                      08apr85bp)
+
+Code @  ( addr -- 16b)
+ SP X) lda  N sta  SP )Y lda  N 1+ sta
+ N )Y lda  SP )Y sta
+ N X) lda Puta jmp   end-code
+
+Code !   ( 16b addr --)
+ SP X) lda  N sta  SP )Y lda  N 1+ sta
+ iny SP )Y lda  N X) sta
+ iny SP )Y lda   1 # ldy
+Label (!
+ N )Y sta  (2drop jmp   end-code
+
+Code +!  ( n addr --)
+ SP X) lda  N sta  SP )Y lda  N 1+ sta
+ iny  SP )Y lda  clc  N X) adc N X) sta
+ iny  SP )Y lda  1 # ldy  N )Y adc
+ (! jmp   end-code
+
+
+
+
+
+
+
+\ *** Block No. 27, Hexblock 1b
+
+( drop swap                   24may84ks)
+
+Code drop  ( 16b --)
+ (drop here 2- !  end-code
+
+Code swap  ( 16b1 16b2 -- 16b2 16b1 )
+ SP )Y lda  tax
+ 3 # ldy  SP )Y lda  N sta
+ txa  SP )Y sta
+ N lda  1 # ldy  SP )Y sta
+ iny  0 # ldx
+ SP )Y lda  N sta  SP X) lda  SP )Y sta
+ dey
+ N lda Puta jmp   end-code
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 28, Hexblock 1c
+
+( dup  ?dup                   08may85bp)
+
+Code dup   ( 16b -- 16b 16b)
+ SP 2dec
+ 3 # ldy  SP )Y lda  1 # ldy  SP )Y sta
+ iny  SP )Y lda  dey
+ Puta jmp   end-code
+
+Code ?dup     ( 16b -- 16b 16b / false)
+ SP X) lda  SP )Y ora
+   0= ?[  Next jmp  ]?
+ ' dup @ jmp end-code
+
+
+\\ : ?dup   ( 16b -- 16b 16b / false)
+    dup  IF  dup  THEN ;
+
+   : dup    Sp@  @  ;
+
+
+
+
+
+
+
+
+\ *** Block No. 29, Hexblock 1d
+
+( over rot                    13jun84ks)
+
+Code over  ( 16b1 16b2 - 16b1 16b3 16b1)
+
+ SP 2dec  4 # ldy  SP )Y lda  SP X) sta
+ iny  SP )Y lda  1 # ldy  SP )Y sta
+ Next jmp   end-code
+
+Code rot
+    ( 16b1 16b2 16b3 -- 16b2 16b3 16b1)
+ 3 # ldy  SP )Y lda  N 1+ sta
+ 1 # ldy  SP )Y lda  3 # ldy  SP )Y sta
+ 5 # ldy  SP )Y lda  N sta
+ N 1+ lda  SP )Y sta
+ 1 # ldy  N lda  SP )Y sta
+ iny  SP )Y lda  N 1+ sta
+ SP X) lda  SP )Y sta
+ 4 # ldy  SP )Y lda  SP X) sta
+ N 1+ lda  SP )Y sta
+ 1 # ldy  Next jmp   end-code
+
+\\ : rot   >r swap r> swap ;
+   : over  >r dup r> swap ;
+
+
+
+\ *** Block No. 30, Hexblock 1e
+
+( -rot nip under pick roll    24dec83ks)
+
+: -rot
+    ( 16b1 16b2 16b3 -- 16b3 16b1 16b2)
+ rot rot ;
+
+: nip   ( 16b1 16b2 -- 16b2)
+ swap drop ;
+
+: under ( 16b1 16b2 -- 16b2 16b1 16b2)
+ swap over ;
+
+: pick  ( n -- 16b.n )   1+ 2* sp@ + @ ;
+
+: roll  ( n --)
+ dup >r pick sp@ dup 2+ r> 1+ 2* cmove>
+ drop ;
+
+\\ : -roll ( n --)
+ >r dup sp@  dup 2+ dup 2+ swap
+ r@ 2* cmove r> 1+ 2* + ! ;
+
+
+
+
+
+\ *** Block No. 31, Hexblock 1f
+
+( double word stack manip.    21apr83ks)
+
+: 2swap ( 32b1 32b2 -- 32b2 32b1)
+ rot >r rot r> ;
+
+Code 2drop ( 32b -- )
+ (2drop here 2- !   end-code
+
+\  : 2drop ( 32b -- )    drop drop ;
+
+: 2dup  ( 32b -- 32b 32b)
+ over over ;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 32, Hexblock 20
+
+( + and or xor                08apr85bp)
+
+Compiler  Assembler also definitions
+
+H : Dyadop ( opcode --)  T
+   iny  SP X) lda  dup c, SP c,
+   SP )Y sta
+   dey  SP )Y lda  3 # ldy  c, SP c,
+   SP )Y sta
+   (xydrop jmp  H ;
+
+Target
+
+Code +     ( n1 n2 -- n3)
+ clc $71 Dyadop   end-code
+
+Code or    ( 16b1 16b2 -- 16b3)
+     $11 Dyadop   end-code
+
+Code and   ( 16b1 16b2 -- 16b3)
+     $31 Dyadop   end-code
+
+Code xor   ( 16b1 16b2 -- 16b3)
+     $51 Dyadop   end-code
+
+
+\ *** Block No. 33, Hexblock 21
+
+( -  not  negate              24dec83ks)
+
+Code -    ( n1 n2 -- n3)
+ iny SP )Y lda  sec SP X) sbc SP )Y sta
+ iny SP )Y lda
+ 1 # ldy  SP )Y sbc  3 # ldy  SP )Y sta
+ (xydrop jmp   end-code
+
+Code not   ( 16b1 -- 16b2)   clc
+Label (not
+ txa  SP X) sbc  SP X) sta  txa
+      SP )Y sbc  SP )Y sta
+ Next jmp   end-code
+
+Code negate   ( n1 -- n2 )
+ sec  (not bcs   end-code
+
+\ : -       negate + ;
+
+
+
+
+
+
+
+
+\ *** Block No. 34, Hexblock 22
+
+( dnegate setup d+            14jun84ks)
+
+Code dnegate ( d1 -- -d1)
+ iny  sec
+ txa  SP )Y sbc  SP )Y sta  iny
+ txa  SP )Y sbc  SP )Y sta
+ txa  SP X) sbc  SP X) sta  1 # ldy
+ txa  SP )Y sbc  SP )Y sta
+ Next jmp  end-code
+
+Label Setup  ( quan  in A)
+ .A asl tax tay  dey
+    [[ SP )Y lda  N ,Y sta  dey  0< ?]
+ txa  clc  SP adc  SP sta
+    CS ?[  SP 1+ inc  ]?
+ 0 # ldx  1 # ldy   rts   end-code
+
+Code d+      ( d1 d2 -- d3)
+ 2 # lda  Setup jsr  iny
+ SP )Y lda  clc N 2+  adc SP )Y sta iny
+ SP )Y lda      N 3 + adc SP )Y sta
+ SP X) lda  N    adc SP X) sta  1 # ldy
+ SP )Y lda  N 1+ adc SP )Y sta
+ Next jmp   end-code
+
+
+\ *** Block No. 35, Hexblock 23
+
+( 1+ 2+ 3+    1- 2-           08apr85bp)
+
+Code 1+   ( n1 -- n2)   1 # lda
+Label n+  clc  SP X) adc
+ CS not   ?[  Puta jmp  ]?
+ SP X) sta  SP )Y lda  0 # adc SP )Y sta
+ Next jmp  end-code
+
+Code 2+   ( n1 -- n2)
+ 2 # lda   n+ bne     end-code
+Code 3+   ( n1 -- n2)
+ 3 # lda   n+ bne     end-code
+| Code 4+ ( n1 -- n2)
+ 4 # lda   n+ bne     end-code
+| Code 6+ ( n1 -- n2)
+ 6 # lda   n+ bne     end-code
+
+Code 1-   ( n1 -- n2)   sec
+Label (1-     SP X) lda  1 # sbc
+   CS ?[ Puta jmp ]?
+ SP X) sta  SP )Y lda  0 # sbc SP )Y sta
+ Next jmp  end-code
+
+Code 2-   ( n1 -- n2)
+ clc (1- bcc  end-code
+
+\ *** Block No. 36, Hexblock 24
+
+( number Constants            24dec83ks)
+
+-1 Constant true    0 Constant false
+
+' true Alias -1     ' false Alias 0
+
+1 Constant 1        2 Constant 2
+3 Constant 3        4 Constant 4
+
+: on    ( addr -- )  true  swap ! ;
+: off   ( addr -- )  false swap ! ;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 37, Hexblock 25
+
+( words for number literals   24may84ks)
+
+Code clit  ( -- 8b)
+ SP 2dec  IP X) lda  SP X) sta
+  txa   SP )Y sta  IP winc
+ Next jmp   end-code restrict
+
+Code lit   ( -- 16b)
+ SP 2dec  IP )Y lda  SP )Y sta
+          IP X) lda  SP X) sta
+Label (bump   IP 2inc
+ Next jmp  end-code restrict
+
+: Literal   ( 16b --)
+ dup $FF00 and
+   IF  compile lit   , exit THEN
+       compile clit c,  ;
+immediate restrict
+
+
+\\ : lit     r> dup 2+ >r  @  ;
+   : clit    r> dup 1+ >r  c@ ;
+
+
+
+
+\ *** Block No. 38, Hexblock 26
+
+( comparision code words      13jun84ks)
+
+Code 0<   ( n -- flag)
+ SP )Y lda  0< ?[
+Label putTrue    $FF # lda  $24 c, ]?
+Label putFalse   txa  SP )Y sta
+ Puta jmp   end-code
+
+Code 0=   ( 16b -- flag)
+ SP X) lda  SP )Y ora
+ putTrue  beq
+ putFalse bne  end-code
+
+Code uwithin  ( u1 [low up[  -- flag)
+ 2 # lda  Setup jsr
+ 1 # ldy  SP X) lda  N cmp
+          SP )Y lda  N 1+ sbc
+  CS not ?[ ( N>SP) SP X) lda N 2+  cmp
+                    SP )Y lda N 3 + sbc
+           putTrue bcs ]?
+ putFalse jmp  end-code
+
+
+
+
+
+\ *** Block No. 39, Hexblock 27
+
+( comparision code words      13jun84ks)
+
+Code <    ( n1 n2 -- flag)
+ SP X) lda  N sta  SP )Y lda  N 1+ sta
+ SP 2inc
+ N 1+ lda  SP )Y eor  ' 0< @  bmi
+ SP X) lda  N cmp  SP )Y lda  N 1+ sbc
+ ' 0< @ 2+ jmp    end-code
+
+Code u<   ( u1 u2 -- flag)
+ SP X) lda  N sta  SP )Y lda  N 1+ sta
+ SP 2inc
+ SP X) lda  N cmp  SP )Y lda  N 1+ sbc
+   CS not ?[  putTrue jmp  ]?
+              putFalse jmp  end-code
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 40, Hexblock 28
+
+( comparision words           24dec83ks)
+
+\ : 0<   $8000 and  0<> ;
+
+: >   ( n1 n2 -- flag)  swap < ;
+
+: 0>  ( n --     flag)  negate 0<  ;
+
+: 0<> ( n --     flag)  0= not ;
+
+: u>  ( u1 u2 -- flag)  swap u< ;
+
+: =   ( n1 n2 -- flag)  - 0= ;
+
+: d0= ( d --     flag)  or 0= ;
+
+: d=  ( d1 d2 -- flag)  dnegate d+ d0= ;
+
+: d<  ( d1 d2 -- flag)  rot 2dup -
+ IF > nip nip  ELSE 2drop u< THEN ;
+
+
+
+
+
+
+\ *** Block No. 41, Hexblock 29
+
+( min max umax umin extend dabs abs  ks)
+
+| : minimax  ( n1 n2 flag -- n3)
+   rdrop  IF swap THEN drop ;
+
+: min   ( n1 n2 -- n3)
+ 2dup  > minimax ;
+
+: max   ( n1 n2 -- n3)
+ 2dup  < minimax ;
+
+: umax  ( u1 u2 -- u3)
+ 2dup u< minimax ;
+
+: umin  ( u1 u2 -- u3)
+ 2dup u> minimax ;
+
+
+: extend  ( n -- d)     dup 0< ;
+
+: dabs    ( d -- ud)
+ extend IF  dnegate THEN ;
+
+: abs     ( n -- u)
+ extend IF   negate THEN ;
+
+\ *** Block No. 42, Hexblock 2a
+
+\ loop primitives              02nov87re
+
+| : dodo
+ rdrop r> 2+ dup >r rot >r swap >r >r ;
+
+: (do  ( limit star -- )
+ over - dodo ;      restrict
+
+: (?do ( limit start -- )
+ over - ?dup  IF dodo THEN
+ r> dup @ +  >r drop ;       restrict
+
+: bounds  ( start count -- limit start )
+ over + swap ;
+
+Code endloop  ( -- )
+ 6 # lda (nrdrop jmp   end-code restrict
+
+\\ dodo puts  "index | limit |
+ adr.of.DO"  on return-stack
+
+
+
+
+
+
+\ *** Block No. 43, Hexblock 2b
+
+\ (loop (+loop                 02nov87re
+
+Code (loop
+ clc  1 # lda  RP X) adc RP X) sta
+   CS ?[  RP )Y lda  0 # adc RP )Y sta
+      CS ?[ Next jmp ]? ]?
+Label doloop  5 # ldy
+ RP )Y lda  IP 1+ sta  dey
+ RP )Y lda  IP    sta  1 # ldy
+ Next jmp    end-code restrict
+
+Code (+loop  ( n -- )
+ clc SP X) lda  RP X) adc  RP X) sta
+     SP )Y lda  RP )Y adc  RP )Y sta
+ .A ror  SP )Y eor
+ php  SP 2inc  plp doloop bpl
+ Next jmp    end-code restrict
+
+
+
+
+
+
+
+
+
+\ *** Block No. 44, Hexblock 2c
+
+( loop indices                08apr85bp)
+
+Code I  ( -- n)    0 # ldy
+Label loopindex    SP 2dec   clc
+ RP )Y lda  iny  iny
+ RP )Y adc  SP X) sta  dey
+ RP )Y lda  iny  iny
+ RP )Y adc  1 # ldy  SP )Y sta
+ Next jmp   end-code restrict
+
+Code J  ( -- n)
+ 6 # ldy  loopindex bne
+            end-code  restrict
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 45, Hexblock 2d
+
+\ branching                    02nov87re
+
+Code branch
+ clc  IP    lda  IP X) adc  N sta
+      IP 1+ lda  IP )Y adc  IP 1+ sta
+ N lda IP sta
+ Next jmp     end-code restrict
+
+Code ?branch  ( flag -- )
+ SP X) lda  SP )Y ora
+ php  SP 2inc  plp
+ ' branch @ beq    (bump jmp
+end-code   restrict
+
+
+
+\\  : branch   r> dup @ + >r ; restrict
+
+    : ?branch  ( flag -- )
+     0= r> over not over 2+  and -rot
+     dup @ + and or >r ;       restrict
+
+
+
+
+
+\ *** Block No. 46, Hexblock 2e
+
+( resolve loops and branches  03feb85bp)
+
+: >mark     ( -- addr)  here   0 , ;
+
+: >resolve  ( addr --)
+ here over -   swap !  ;
+
+: <mark     ( -- addr)  here ;
+
+: <resolve  ( addr --) here - ,  ;
+
+: ?pairs  ( n1 n2 -- )
+ -  Abort" unstructured" ;
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 47, Hexblock 2f
+
+( case?                       04may85bp)
+
+Label  PushA
+ 0 # cmp  0< ?[ pha  $FF # lda ][
+Label  Push0A   pha   0  # lda  ]?
+Label  Push     tax   SP 2dec
+ txa  1 # ldy  SP )Y sta
+ pla  0 # ldx   Puta jmp
+
+Code case?
+ ( 16b1 16b2 -- 16b1 false / true )
+ 1 # lda  Setup jsr
+ N lda  SP X) cmp
+  0= ?[   N 1+ lda  SP )Y cmp
+    0= ?[ putTrue jmp ]?  ]?
+ txa  Push0A jmp   end-code
+
+
+
+\\ : case?
+ ( 16b1 16b2 -- 16b1 false / true )
+ over = dup  IF  nip  THEN ;
+
+
+
+
+\ *** Block No. 48, Hexblock 30
+
+( Branching                   03feb85bp)
+
+: IF     compile ?branch >mark  1 ;
+         immediate restrict
+
+: THEN   abs 1   ?pairs  >resolve ;
+         immediate restrict
+
+: ELSE   1 ?pairs  compile branch >mark
+         swap >resolve  -1 ;
+         immediate restrict
+
+: BEGIN  <mark 2 ; immediate restrict
+
+: WHILE  2 ?pairs  2   compile ?branch
+         >mark -2  2swap  ;
+         immediate restrict
+
+| : (reptil   <resolve   BEGIN dup -2
+    = WHILE  drop >resolve  REPEAT  ;
+
+: REPEAT 2 ?pairs  compile branch
+         (reptil ; immediate restrict
+: UNTIL  2 ?pairs  compile ?branch
+         (reptil ; immediate restrict
+
+\ *** Block No. 49, Hexblock 31
+
+( Loops                    29jan85ks/bp)
+
+: DO     compile (do  >mark  3 ;
+         immediate restrict
+
+: ?DO    compile (?do >mark  3 ;
+         immediate restrict
+
+: LOOP   3 ?pairs  compile (loop
+         compile endloop  >resolve ;
+         immediate restrict
+
+: +LOOP  3 ?pairs  compile (+loop
+         compile endloop  >resolve ;
+         immediate restrict
+
+: LEAVE  endloop r> 2- dup @ + >r ;
+         restrict
+
+\\ Returnstack: calladr | index
+                  limit | adr of DO
+
+
+
+
+
+\ *** Block No. 50, Hexblock 32
+
+( um*                      bp/ks13.2.85)
+
+Code um*  ( u1 u2 -- ud)
+ SP )Y lda N sta  SP X) lda  N 1+ sta
+ iny N 2 + stx N 3 + stx  $10 # ldx
+  [[ N 3 + asl N 2+ rol N 1+ rol N rol
+   CS ?[ clc
+         SP )Y lda  N 3 + adc  N 3 + sta
+         iny  SP )Y lda dey
+         N 2 + adc   N 2 + sta
+           CS ?[  N 1+ inc
+              0= ?[  N   inc  ]? ]? ]?
+    dex  0= ?]
+ N 3 + lda   SP )Y sta   iny
+ N 2 + lda   SP )Y sta   1 # ldy
+ N     lda   SP )Y sta
+ N 1+ lda    SP X) sta
+ Next jmp   end-code
+
+
+\\ : um*   ( u1 u2 -- ud3)
+ >r 0 0 0 r>  $10 0
+  DO  dup 2/ >r  1 and IF 2over d+ THEN
+      >r >r 2dup d+ r> r> r>  LOOP
+ drop 2swap 2drop ;
+
+\ *** Block No. 51, Hexblock 33
+
+( m* 2*                       04jul84ks)
+
+: m*     ( n1 n2 -- d)
+ dup 0< dup >r IF negate THEN
+ swap dup  0<  IF negate r> not >r THEN
+ um*  r> IF dnegate THEN ;
+
+: *      ( n n -- prod)   um* drop ;
+
+Code 2*  ( n1 -- n2)
+ SP X) lda  .A asl  SP X) sta
+ SP )Y lda  .A rol  SP )Y sta
+ Next jmp    end-code
+
+
+\ : 2*   dup + ;
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 52, Hexblock 34
+
+( um/mod                      04jul84ks)
+
+| : divovl
+   true Abort" division overflow" ;
+
+Code um/mod  ( ud u -- urem uquot)
+ SP X) lda  N 5 + sta
+ SP )Y lda  N 4 + sta   SP 2inc
+ SP X) lda  N 1+  sta
+ SP )Y lda  N     sta   iny
+ SP )Y lda  N 3 + sta   iny
+ SP )Y lda  N 2+  sta   $11 # ldx  clc
+  [[ N 6 + ror  sec  N 1+ lda  N 5 + sbc
+     tay  N lda  N 4 + sbc
+    CS not ?[  N 6 + rol ]?
+      CS ?[ N sta  N 1+ sty ]?
+     N 3 + rol N 2+ rol N 1+ rol N rol
+  dex  0= ?]
+ 1 # ldy  N ror  N 1+ ror
+   CS ?[ ;c: divovl ; Assembler ]?
+ N 2+  lda SP )Y sta iny
+ N 1+  lda SP )Y sta iny
+ N     lda SP )Y sta 1 # ldy
+ N 3 + lda
+ Puta jmp    end-code
+
+\ *** Block No. 53, Hexblock 35
+
+( 2/ m/mod                    24dec83ks)
+
+: m/mod  ( d n -- mod quot)
+ dup >r abs  over
+   0< IF  under + swap  THEN
+ um/mod r@
+ 0< IF negate over IF swap r@ + swap 1-
+ THEN THEN rdrop ;
+
+Code 2/  ( n1 -- n2)
+ SP )Y lda  .A asl
+ SP )Y lda  .A ror  SP )Y sta
+ SP X) lda  .A ror
+ Puta jmp      end-code
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 54, Hexblock 36
+
+( /mod / mod */mod */ u/mod  ud/mod  ks)
+
+: /mod  ( n1 n2 -- rem quot)
+ >r extend r> m/mod ;
+
+: /     ( n1 n2 -- quot)     /mod nip ;
+
+: mod   ( n1 n2 -- rem)      /mod drop ;
+
+: */mod ( n1 n2 n3 -- rem quot)
+ >r m*  r> m/mod ;
+
+: */    ( n1 n2 n3 -- quot)  */mod nip ;
+
+: u/mod  ( u1 u2  -- urem uquot)
+ 0 swap um/mod ;
+
+: ud/mod ( ud1 u2 -- urem udquot)
+ >r  0  r@  um/mod  r>
+   swap >r  um/mod  r>  ;
+
+
+
+
+
+
+\ *** Block No. 55, Hexblock 37
+
+( cmove cmove> (cmove>       bp 08apr85)
+
+Code cmove  ( from to quan --)
+ 3 # lda Setup jsr  dey
+ [[ [[  N cpy  0= ?[  N 1+ dec  0< ?[
+                1 # ldy  Next jmp  ]? ]?
+     N 4 + )Y lda  N 2+ )Y sta iny 0= ?]
+     N 5 + inc N 3 + inc  ]]  end-code
+
+Code cmove> ( from to quan --)
+ 3 # lda Setup jsr
+ clc N 1+ lda  N 3 + adc  N 3 + sta
+ clc N 1+ lda  N 5 + adc  N 5 + sta
+ N 1+ inc  N ldy  clc CS ?[
+Label (cmove>
+ dey  N 4 + )Y lda  N 2+ )Y sta ]?
+ tya  (cmove> bne
+ N 3 + dec  N 5 + dec  N 1+ dec
+ (cmove> bne  1 # ldy
+ Next jmp   end-code
+
+: move   ( from to quan --)
+ >r 2dup u<  IF r> cmove> exit THEN
+ r> cmove ;
+
+
+\ *** Block No. 56, Hexblock 38
+
+( place count  erase       16feb85bp/ks)
+
+: place ( addr len to --)
+ over >r rot over 1+ r> move c! ;
+
+Code count ( addr -- addr+1 len)
+ SP X) lda N sta clc 1 # adc SP X) sta
+ SP )Y lda N 1+ sta  0 # adc SP )Y sta
+ SP 2dec  (c@ jmp   end-code
+
+\  : count ( adr -- adr+1 len )
+\   dup 1+  swap c@ ;
+
+: erase ( addr quan --)      0 fill ;
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 57, Hexblock 39
+
+( fill                        11jun85bp)
+
+Code fill  ( addr quan 8b -- )
+ 3 # lda Setup jsr  dey
+ N lda  N 3 + ldx
+  0<> ?[  [[ [[ N 4 + )Y sta iny 0= ?]
+                N 5 + inc    dex 0= ?]
+      ]?  N 2+ ldx
+  0<> ?[  [[ N 4 + )Y sta iny dex 0= ?]
+      ]? 1 # ldy
+ Next jmp   end-code
+
+
+\\
+: fill  ( addr quan 8b --)   swap ?dup
+       IF  >r over c! dup 1+ r> 1- cmove
+  exit  THEN  2drop  ;
+
+
+
+
+
+
+
+
+
+\ *** Block No. 58, Hexblock 3a
+
+( here Pad allot , c, compile 24dec83ks)
+
+: here  ( -- addr)   dp @ ;
+
+: pad   ( -- addr)   here $42 + ;
+
+: allot ( n --)      dp +! ;
+
+: ,     ( 16b --)    here !  2  allot ;
+
+: c,    ( 8b --)     here c! 1  allot ;
+
+: compile            r> dup 2+ >r @ , ;
+                     restrict
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 59, Hexblock 3b
+
+( input strings               24dec83ks)
+
+Variable #tib   0 #tib !
+Variable >tib   here >tib !   $50 allot
+Variable >in    0 >in !
+Variable blk    0 blk !
+Variable span   0 span !
+
+: tib   ( -- addr )    >tib @ ;
+
+: query
+ tib  $50 expect
+ span @ #tib !  >in off  blk off ;
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 60, Hexblock 3c
+
+( scan skip /string           12oct84bp)
+
+: scan  ( addr0 len0 char -- addr1 len1)
+ >r
+     BEGIN  dup  WHILE  over c@ r@ -
+     WHILE  1- swap 1+ swap  REPEAT
+ rdrop ;
+
+: skip  ( addr len del -- addr1 len1)
+ >r
+     BEGIN  dup  WHILE  over c@ r@ =
+     WHILE  1- swap 1+ swap  REPEAT
+ rdrop ;
+
+: /string  ( addr0 len0 +n - addr1 len1)
+ over umin rot over + -rot - ;
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 61, Hexblock 3d
+
+\ capital                     clv06aug87
+
+Label (capital  \ for commodore only
+                \ for Ascii: next scr
+ Ascii a             # cmp  CS
+ ?[ Ascii z    $21 + # cmp  CC
+    ?[ Ascii a $21 + # cmp  CS
+       ?[ $df # and ]? \ 2nd up to low
+     Ascii z      1+ # cmp  CC
+     ?[ $80 # ora      \ low to up
+ ]? ]? ]? rts end-code
+
+Code capital  ( char -- char' )
+ SP X) lda  (capital jsr  SP X) sta
+ Next jmp    end-code
+
+\\ The new (capital does:
+
+No  00-40,5b-60,7b-c1-da-dc-ff no change
+==    -@ , [-@ ,  -A -Z -| -      ..
+
+No  41-5a,61-7a        changes to:c1-da
+==   a-z , A-Z                     A-Z
+
+
+
+\ *** Block No. 62, Hexblock 3e
+
+\ capitalize                  clv06aug87
+
+Code capitalize  ( string -- string )
+ SP X) lda N    sta  SP )Y lda  N 1+ sta
+  N X) lda N 2+ sta   dey
+ [[ N 2+ cpy  0= ?[ 1 # ldy  Next jmp ]?
+   iny N )Y lda  (capital jsr  N )Y sta
+ ]]   end-code
+
+\\ : capitalize  ( string -- string )
+ dup  count  bounds
+  ?DO  I c@  capital  I c!  THEN  LOOP ;
+
+\\ capital ( char -- char )
+   Ascii a  Ascii z 1+  uwithin
+   IF  I c@  [ Ascii a  Ascii A - ]
+ Literal -  ;
+
+\\ Label (capital  \ for Ascii only
+ Ascii a # cmp
+ CS ?[  Ascii z  1+ # cmp
+    CC ?[      sec
+           Ascii a Ascii A - # sbc
+  ]? ]?  rts  end-code
+
+
+\ *** Block No. 63, Hexblock 3f
+
+( (word                       08apr85bp)
+
+| Code (word   ( char adr0 len0 -- adr)
+       \ N   : length of source
+       \ N+2 : ptr in source / next char
+       \ N+4 : string start adress
+       \ N+6 : string length
+ N 6 + stx        \ 0 =: string_length
+ 3 # ldy
+  [[ SP )Y lda  N ,Y sta dey  0< ?]
+ 1 # ldy  clc
+ >in    lda  N 2+  adc  N 2+  sta
+                  \ >in+adr0 =: N+2
+ >in 1+ lda  N 3 + adc  N 3 + sta
+ sec  N lda  >in    sbc  N    sta
+                  \ len0->in =: N
+   N 1+ lda  >in 1+ sbc  N 1+ sta
+  CC ?[ SP X) lda  >in    sta
+                  \ stream exhausted
+        SP )Y lda  >in 1+ sta
+
+
+
+
+
+
+\ *** Block No. 64, Hexblock 40
+
+( (word                       08apr85bp)
+
+][ 4 # ldy  [[  N lda  N 1+ ora
+                  \ skip char's
+       0= not ?[[ N 2+ X) lda SP )Y cmp
+                  \ while count <>0
+       0=     ?[[ N 2+ winc  N wdec ]]?
+    N 2+  lda  N 4 + sta
+              \ save string_start_adress
+    N 3 + lda  N 5 + sta
+    [[  N 2+ X) lda  SP )Y cmp php
+              \ scan for char
+        N 2+ winc  N wdec plp
+    0= not ?[[ N 6 + inc
+              \ count string_length
+       N lda N 1+ ora
+    0= ?]  ]? ]?
+              \ from count = 0 in skip)
+ sec 2 # ldy
+       \ adr_after_string - adr0 =: >in)
+ N 2+  lda  SP )Y sbc  >in    sta  iny
+ N 3 + lda  SP )Y sbc  >in 1+ sta
+
+
+
+
+\ *** Block No. 65, Hexblock 41
+
+( (word                       08apr85bp)
+
+]? \ from 1st ][, stream was exhausted
+   \ when word called)
+ clc  4 # lda  SP adc  SP sta
+  CS ?[ SP 1+ inc ]?  \ 2drop
+ user' dp # ldy  UP )Y lda
+ SP X) sta N    sta  iny
+ UP )Y lda 1 # ldy
+ SP )Y sta N 1+ sta        \ dp @
+ dey N 6 + lda  \ store count byte first
+ [[  N )Y sta  N 4 + )Y lda  iny
+     N 6 + dec  0< ?]
+ $20 # lda  N )Y sta       \ add a blank
+ 1 # ldy   Next jmp   end-code
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 66, Hexblock 42
+
+( source word parse name      08apr85bp)
+
+: source   ( -- addr len)
+ blk @  ?dup IF  block b/blk exit THEN
+ tib #tib @  ;
+
+: word  ( char -- addr)   source (word ;
+
+: parse ( char -- addr len)
+ >r source  >in @  /string over swap
+ r> scan >r over - dup r> 0<> - >in +! ;
+
+: name   ( -- addr)
+ bl word  capitalize  exit  ;
+
+
+\\
+: word  ( char -- addr)        >r
+ source  over swap  >in @  /string
+ r@ skip  over  swap  r> scan
+ >r  rot over swap  - r> 0<> -  >in !
+ over - here place  bl here count + c!
+ here ;
+
+
+
+\ *** Block No. 67, Hexblock 43
+
+\ state Ascii ,"  ("  "        02nov87re
+
+Variable state    0 state !
+
+: Ascii  ( -- char )  ( -- )
+ bl word 1+ c@ state @
+ IF [compile] Literal THEN ; immediate
+
+: ,"       Ascii "  parse
+ here over 1+  allot place  ;
+
+: "lit  ( -- adr )
+ r> r> under count + >r >r ; restrict
+
+: ("    ( -- adr )   "lit ; restrict
+
+: "        compile ("  ,"  ;
+                immediate restrict
+
+
+
+
+
+
+
+
+\ *** Block No. 68, Hexblock 44
+
+( ." ( .( \ \\ hex decimal    08sep84ks)
+
+: (."    "lit count type ; restrict
+
+: ."     compile (." ," ;
+                    immediate restrict
+
+: (      Ascii )  parse 2drop ;
+                    immediate
+
+: .(     Ascii )  parse type ;
+                    immediate
+
+: \      >in @  c/l /  1+ c/l *  >in ! ;
+                    immediate
+
+: \\        b/blk >in ! ;  immediate
+
+: \needs
+ name find nip  IF  [compile] \  THEN ;
+
+: hex       $10 base ! ;
+: decimal    $A base ! ;
+
+
+
+\ *** Block No. 69, Hexblock 45
+
+( number conv.:  digit?  accumulate  ks)
+
+: digit?  ( char -- digit true/ false )
+ Ascii 0 -   dup 9 u>
+ IF [ Ascii A Ascii 9 - 1- ]
+   Literal -  dup 9 u>
+     IF [ 2swap ( unstructured ) ] THEN
+   base @  over  u>  ?dup  ?exit
+ THEN drop  false ;
+
+: accumulate ( +d0 adr digit - +d1 adr)
+ swap >r swap  base @ um*  drop  rot
+ base @ um*  d+  r>  ;
+
+: convert  ( +d1 addr0 -- +d2 addr2)
+ 1+  BEGIN  count digit?
+     WHILE  accumulate    REPEAT  1- ;
+
+: end?   ( -- flag )  ptr @  0= ;
+
+: char   ( addr0 -- addr1 char )
+ count   -1 ptr +!  ;
+
+: previous  ( addr0 -- addr0 char)
+ 1-  count ;
+
+\ *** Block No. 70, Hexblock 46
+
+( ?nonum ?num fixbase?        13feb85ks)
+
+Variable dpl   -1 dpl !
+
+| : ?nonum  ( flag -- exit if true )
+ IF rdrop 2drop drop rdrop false THEN ;
+
+| : ?num    ( flag -- exit if true )
+ IF rdrop drop r> IF  dnegate  THEN
+    rot drop  dpl @ 1+  ?dup ?exit
+    drop true THEN ;
+
+| : fixbase?
+ ( char - char false /  newbase true )
+ Ascii & case?  IF $A true exit THEN
+ Ascii $ case?  IF 10 true exit THEN
+ Ascii H case?  IF 10 true exit THEN
+ Ascii % case?  IF  2 true exit THEN
+ false  ;
+
+| : punctuation?   ( char -- flag)
+   Ascii , over = swap Ascii . =  or ;
+
+| : ?dpl   dpl @ -1 = ?exit  1 dpl +! ;
+
+
+\ *** Block No. 71, Hexblock 47
+
+( number? number 'number  01oct87clv/re)
+
+| Variable ptr      \ points into string
+
+: number?
+ ( string - string false / n 0< / d 0> )
+ base push  dup count  ptr !  dpl on
+ 0 >r  ( +sign)
+ 0 0 rot           end? ?nonum char
+ Ascii - case?
+ IF rdrop true >r  end? ?nonum char THEN
+ fixbase?
+ IF  base !        end? ?nonum char THEN
+ BEGIN   digit?  0= ?nonum
+   BEGIN  accumulate  ?dpl  end? ?num
+          char digit?  0= UNTIL
+   previous  punctuation?  0= ?nonum
+   dpl off   end? ?num char REPEAT ;
+
+Defer 'number?     ' number? Is 'number?
+
+: number  ( string -- d )
+ 'number?  ?dup 0= Abort" ?"
+ 0< IF extend THEN ;
+
+
+\ *** Block No. 72, Hexblock 48
+
+( hide reveal immediate restrict     ks)
+
+Variable last     0 last !
+
+| : last?   ( -- false / acf true)
+ last @ ?dup ;
+
+: hide
+ last?  IF 2- @ current @ ! THEN ;
+
+: reveal
+ last?  IF 2-   current @ ! THEN ;
+
+: Recursive   reveal  ;
+ immediate restrict
+
+| : flag!    ( 8b --)
+   last? IF under c@ or over c! THEN
+   drop ;
+
+: immediate  $40 flag! ;
+: restrict   $80 flag! ;
+
+
+
+
+\ *** Block No. 73, Hexblock 49
+
+( clearstack hallot heap heap?11feb85bp)
+
+Code clearstack
+ user' s0 # ldy
+ UP )Y lda  SP    sta  iny
+ UP )Y lda  SP 1+ sta
+ 1 # ldy  Next jmp   end-code
+
+: hallot ( quan -- )
+ s0 @ over - swap
+ sp@ 2+  dup rot -  dup s0 !
+ 2 pick over -  move  clearstack  s0 ! ;
+
+: heap   ( -- addr)        s0 @  6+ ;
+
+: heap?  ( addr -- flag)
+ heap up@ uwithin ;
+
+| : heapmove   ( from -- from)
+   dup here  over -
+   dup hallot  heap swap cmove
+   heap over - last +!  reveal ;
+
+
+
+
+\ *** Block No. 74, Hexblock 4a
+
+( Does>  ;                 30dec84ks/bp)
+
+Label (dodoes>   RP 2dec
+IP 1+ lda RP )Y sta  IP lda  RP X) sta
+                          \ put IP on RP
+clc  W X) lda  3 # adc IP sta
+txa  W )Y adc  IP 1+ sta  \ W@ + 3 -> IP
+
+Label docreate
+ 2 # lda  clc W adc pha txa W 1+ adc
+ Push jmp end-code
+
+| : (;code    r> last @  name>  ! ;
+
+: Does>
+ compile (;code  $4C c,
+ compile (dodoes> ;  immediate restrict
+
+
+
+
+
+
+
+
+
+\ *** Block No. 75, Hexblock 4b
+
+( 6502-align  ?head  |        08sep84bp)
+
+| : 6502-align/1   ( adr -- adr' )
+   dup  $FF and  $FF =  - ;
+
+| : 6502-align/2   ( lfa -- lfa )
+   here  $FF and $FF =
+   IF  dup dup 1+  here over - 1+
+       cmove>  \ lfa now invalid
+       1 last +! 1 allot  THEN  ;
+
+
+Variable ?head    0 ?head !
+
+: |     ?head @   ?exit   -1 ?head  ! ;
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 76, Hexblock 4c
+
+( warning   Create            30dec84bp)
+
+Variable warning  0 warning !
+
+| : exists?
+ warning @ ?exit
+ last @  current @  (find  nip
+ IF space  last @ .name ." exists " ?cr
+ THEN  ;
+
+: Create
+ here blk @ ,  current @ @ ,
+ name  c@ dup 1 $20
+ uwithin not  Abort" invalid name"
+ here  last ! 1+ allot
+ exists? ?head @
+ IF 1 ?head +!  dup  6502-align/1 ,
+                    \ Pointer to code
+    heapmove $20 flag! 6502-align/1 dp !
+ ELSE  6502-align/2  drop
+ THEN  reveal  0 ,
+ ;Code  docreate jmp end-code
+
+
+
+
+\ *** Block No. 77, Hexblock 4d
+
+( nfa?                        30dec84bp)
+
+ Code nfa?
+ ( vocabthread  cfa -- nfa / false)
+ SP X) lda  N 4 + sta
+ SP )Y lda  N 5 + sta   SP 2inc
+ [[ [[ SP X) lda  N 2+  sta
+       SP )Y lda  N 3 + sta
+      N 2+ ora  0= ?[ putFalse jmp ]?
+      N 2+ )Y lda SP )Y sta  N 1+ sta
+      N 2+ X) lda SP X) sta  N sta
+      N 1+ ora  0= ?[  Next jmp  ]?
+                               \ N=link
+      N 2inc N X) lda pha sec $1F # and
+      N adc  N sta  CS ?[ N 1+ inc ]?
+      pla  $20 # and  0= not
+       ?[ N )Y lda  pha
+          N X) lda N sta pla N 1+ sta ]?
+      N lda     N 4 + cmp  0= ?]
+      N 1+ lda  N 5 + cmp  0= ?]
+ ' 2+ @ jmp       end-code
+
+\\ vocabthread=0 that is empty Vocabul-
+ ary in nfa? is not allowed
+
+
+\ *** Block No. 78, Hexblock 4e
+
+( >name name> >body .name     03feb85bp)
+
+: >name   ( cfa -- nfa / false)
+ voc-link
+ BEGIN @ dup WHILE 2dup 4 - swap
+      nfa? ?dup IF -rot 2drop exit THEN
+ REPEAT nip ;
+
+| : (name>  ( nfa -- cfa)
+   count $1F  and + ;
+
+: name>     ( nfa -- cfa)
+ dup (name> swap c@ $20 and IF @ THEN ;
+
+: >body   ( cfa -- pfa)   2+ ;
+
+: .name   ( nfa --)
+ ?dup IF dup heap?  IF ." |" THEN
+         count $1F and type
+      ELSE  ." ???"
+      THEN  space  ;
+
+
+
+
+
+\ *** Block No. 79, Hexblock 4f
+
+\ : ; Constant Variable       clv16jul87
+
+: Create: Create hide
+ current @ context ! ] 0 ;
+
+: :  Create: ;Code here >recover !
+               \ resolve fwd. reference
+ RP 2dec IP    lda  RP X) sta
+         IP 1+ lda  RP )Y sta
+ W lda  clc  2 # adc  IP sta
+      txa   W 1+ adc  IP 1+ sta
+ Next jmp   end-code
+
+: ;        0 ?pairs  compile unnest
+ [compile] [ reveal ; immediate restrict
+
+
+: Constant  ( 16b --)  Create ,
+ ;Code  SP 2dec  2 # ldy
+ W )Y lda  SP X) sta  iny
+ W )Y lda   1 # ldy   SP )Y sta
+ Next jmp   end-code
+
+: Variable   Create  2 allot ;
+
+
+\ *** Block No. 80, Hexblock 50
+
+( uallot User Alias        10jan85ks/bp)
+
+: uallot ( quan -- offset)
+ dup udp @ +  $FF
+   u> Abort" Userarea full"
+ udp  @ swap udp +! ;
+
+: User  Create   2 uallot c,
+ ;Code  SP 2dec  2 # ldy
+ W )Y lda  clc UP    adc  SP X) sta
+      txa  iny UP 1+ adc  1 # ldy
+ SP )Y sta   Next jmp   end-code
+
+: Alias  ( cfa --)
+ Create last @ dup c@ $20 and
+ IF   -2 allot  ELSE  $20 flag! THEN
+ (name> ! ;
+
+
+
+
+
+
+
+
+
+\ *** Block No. 81, Hexblock 51
+
+( voc-link vp current context also   bp)
+
+Create   vp       $10 allot
+Variable current
+
+: context ( -- adr  )  vp dup @ + 2+ ;
+
+| : thru.vocstack  ( -- from to )
+   vp 2+ context ;
+\ "Only Forth also Assembler" gives vp :
+\  countword = 6 |Only|Forth|Assembler
+
+: also     vp @
+ $A > Error" Vocabulary stack full"
+ context @   2 vp +!  context ! ;
+
+: toss   -2 vp +! ;
+
+
+
+
+
+
+
+
+
+\ *** Block No. 82, Hexblock 52
+
+(  Vocabulary Forth Only Forth-83 ks/bp)
+
+: Vocabulary
+ Create  0 , 0 ,
+ here voc-link @ ,  voc-link !
+ Does>  context ! ;
+
+\ Name | Code | Thread | Coldthread |
+\ Voc-link
+
+Vocabulary Forth
+
+Vocabulary Only
+] Does>  [ Onlypatch ]  0 vp !
+ context !  also  ;  ' Only !
+
+: Onlyforth
+ Only Forth also definitions ;
+
+
+
+
+
+
+
+
+\ *** Block No. 83, Hexblock 53
+
+( definitions order words  13jan84bp/ks)
+
+: definitions   context @ current ! ;
+
+| : .voc  ( adr -- )
+ @ 2- >name .name ;
+
+: order
+ thru.vocstack  DO  I .voc  -2  +LOOP
+ 2 spaces  current .voc ;
+
+: words      context @
+ BEGIN  @ dup stop? 0= and
+ WHILE  ?cr dup 2+ .name space
+ REPEAT drop ;
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 84, Hexblock 54
+
+( (find                       08apr85bp)
+
+Code (find  ( string thread
+       -- string false / namefield true)
+ 3 # ldy [[ SP )Y lda N ,Y sta dey 0< ?]
+ N 2+ X) lda $1F # and N 4 + sta
+
+Label findloop   0 # ldy
+ N )Y lda   tax   iny
+ N )Y lda  N 1+ sta  N stx  N ora
+  0= ?[ 1 # ldy 0 # ldx putFalse jmp ]?
+ iny N )Y lda  $1F # and  N 4 + cmp
+  findloop bne       \ countbyte match
+ clc 2 # lda N    adc N 5 + sta
+     0 # lda N 1+ adc N 6 + sta
+ N 4  + ldy
+  [[ N 2+ )Y lda N 5 + )Y cmp
+     findloop bne   dey  0= ?]
+ 3 # ldy N 6 + lda  SP )Y sta   dey
+         N 5 + lda  SP )Y sta
+ dey  0 # ldx    putTrue jmp   end-code
+
+
+
+
+
+\ *** Block No. 85, Hexblock 55
+
+( found                       29jan85bp)
+
+| Code found  ( nfa -- cfa n )
+ SP X) lda N sta  SP )Y lda N 1+ sta
+  N X) lda N 2+ sta  $1F # and
+ sec N adc N sta
+  CS ?[ N 1+ inc ]?
+ N 2+ lda $20 # and
+ 0= ?[ N    lda  SP X) sta   N 1+ lda
+    ][ N X) lda  SP X) sta
+       N )Y lda   ]?  SP )Y sta
+  SP 2dec   N 2+ lda   0< ?[  iny  ]?
+ .A asl
+  0< not ?[ tya $FF # eor tay iny  ]?
+  tya SP X) sta
+  0< ?[ $FF # lda  24 c, ]?
+ txa  1 # ldy  SP )Y sta
+ Next jmp  end-code
+
+\\ | : found  ( nfa -- cfa n )
+      dup   c@ >r   (name>
+            r@ $20 and  IF @ THEN
+        -1  r@ $80 and  IF 1- THEN
+            r> $40 and  IF negate THEN ;
+
+
+\ *** Block No. 86, Hexblock 56
+
+( find  ' [']                 13jan85bp)
+
+: find ( string -- cfa n / string false)
+ context dup @ over 2- @ = IF 2- THEN
+ BEGIN  under @ (find
+                IF nip found exit THEN
+   over vp 2+ u>
+ WHILE  swap 2-
+ REPEAT nip false ;
+
+: '  ( -- cfa )
+ name find 0= Abort" What?"  ;
+
+: [compile]   ' , ;   immediate restrict
+
+: [']     ' [compile] Literal ;
+                      immediate restrict
+
+: nullstring?
+ ( string -- string false  / true)
+ dup c@ 0=  dup  IF nip THEN ;
+
+
+
+
+
+\ *** Block No. 87, Hexblock 57
+
+( >interpret                  28feb85bp)
+
+Label jump
+ iny clc W )Y lda 2 # adc IP    sta
+ iny     W )Y lda 0 # adc IP 1+ sta
+ 1 # ldy  Next jmp   end-code
+
+Variable >interpret
+
+jump  ' >interpret !
+
+\\ make Variable >interpret to special
+   Defer
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 88, Hexblock 58
+
+( interpret interactive   01oct87clv/re)
+
+Defer  notfound
+
+: no.extensions  ( string -- )
+ Error" Haeh?"   ;  \ string not 0
+
+' no.extensions  Is  notfound
+
+: interpret     >interpret ;
+
+| : interactive
+ ?stack  name find  ?dup
+ IF 1 and IF execute >interpret THEN
+   Abort" compile only"  THEN
+ nullstring? ?exit   'number?
+ 0= IF  notfound  THEN  >interpret ;
+
+
+' interactive  >interpret !
+
+
+
+
+
+
+\ *** Block No. 89, Hexblock 59
+
+( compiling [ ]           01oct87clv/re)
+
+| : compiling
+ ?stack  name find   ?dup
+ IF   0> IF  execute >interpret  THEN
+  , >interpret THEN
+ nullstring? ?exit  'number?   ?dup
+   IF 0> IF swap [compile] Literal THEN
+    [compile] Literal
+   ELSE  notfound THEN    >interpret ;
+
+
+: [    ['] interactive  Is >interpret
+ state off ;  immediate
+
+: ]    ['] compiling    Is >interpret
+ state on ;
+
+
+
+
+
+
+
+
+
+\ *** Block No. 90, Hexblock 5a
+
+\ perfom  Defer Is             02nov87re
+
+| : crash   true Abort" Crash" ;
+
+: Defer   Create  ['] crash ,
+ ;Code  2 # ldy
+  W )Y lda  pha iny W )Y lda
+  W 1+ sta  pla W sta  1 # ldy
+  W 1- jmp  end-code
+
+: (is  ( cfa -- )  r>  dup  2+ >r @ ! ;
+
+| : def?  ( cfa -- )
+    @ ['] notfound   @ over =
+ swap ['] >interpret @      =  or
+ not  Abort" not deferred" ;
+
+: Is      ( cfa -- )  ( -- )
+ ' dup  def?  >body
+ state  @  IF  compile (is , exit  THEN
+ !  ; immediate
+
+
+
+
+
+\ *** Block No. 91, Hexblock 5b
+
+( ?stack                  01oct87clv/re)
+
+| Create alarm  1 allot  0 alarm c!
+
+| : stackfull   ( -- )
+ depth $20 > abort" tight stack"
+ alarm c@ 0= IF  -1 alarm c!
+    true abort" dictionary full"  THEN
+ ." still full " ;
+
+Code ?stack
+ user' dp # ldy
+ sec SP    lda  UP )Y sbc
+ iny SP 1+ lda  UP )Y sbc
+ 0= ?[ 1 # ldy ;c: stackfull ;
+       Assembler ]?  alarm stx
+ user' s0 # ldy
+ UP )Y lda SP    cmp iny
+ UP )Y lda SP 1+ sbc
+ 1 # ldy  CS ?[  Next jmp ]?
+ ;c: true Abort" stack empty" ;
+
+\\ : ?stack
+ sp@  here - $100 u< IF stackfull THEN
+ sp@  s0 @ u> Abort" stack empty" ;
+
+\ *** Block No. 92, Hexblock 5c
+
+( .status push load           08sep84ks)
+
+Defer .status    ' noop Is .status
+
+| Create pull  0  ] r> r> ! ;
+
+: push ( addr -- )
+ r> swap dup >r @ >r  pull >r >r  ;
+ restrict
+
+: load   ( blk --)
+ ?dup 0= ?exit blk push  blk !
+ >in push  >in off
+ .status interpret ;
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 93, Hexblock 5d
+
+( +load thru +thru --> rdepth depth  ks)
+
+: +load  ( offset --)  blk @  + load ;
+
+: thru  ( from to --)
+ 1+  swap  DO  I load  LOOP ;
+
+: +thru  ( off0 off1 --)
+ 1+  swap  DO  I +load LOOP ;
+
+: -->
+ 1 blk +! >in off .status  ;  immediate
+
+: rdepth  ( -- +n)  r0 @  rp@ 2+ - 2/ ;
+
+: depth   ( -- +n)  sp@ s0 @ swap - 2/ ;
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 94, Hexblock 5e
+
+( quit (quit abort            07jun85bp)
+
+| : prompt
+ state @  IF ."  compiling"  exit  THEN
+ ."  ok" ;
+
+: (quit
+ BEGIN .status cr query interpret prompt
+ REPEAT ;
+
+Defer 'quit    ' (quit  Is 'quit
+
+: quit     r0 @ rp! [compile] [ 'quit ;
+
+
+: standardi/o
+ [ output ] Literal output 4 cmove ;
+
+Defer 'abort   ' noop Is 'abort
+
+: abort
+ clearstack  end-trace  'abort
+ standardi/o  quit   ;
+
+
+
+\ *** Block No. 95, Hexblock 5f
+
+\ (error Abort" Error"         02nov87re
+
+Variable scr 1 scr !  Variable r# 0 r# !
+
+: (error  ( string -- )
+ standardi/o space here .name count type
+ space ?cr  blk @  ?dup
+ IF  scr !  >in @  r# !  THEN quit ;
+
+' (error  errorhandler  !
+
+: (abort"  ( flag -- )   "lit swap
+ IF    >r clearstack r>
+       errorhandler perform  exit
+ THEN  drop ;  restrict
+
+| : (err"  ( flag -- )   "lit swap
+ IF    errorhandler perform  exit
+ THEN  drop ;  restrict
+
+: Abort"  ( flag -- )   compile (abort"
+ ," ; immediate  restrict
+
+: Error"  ( flag -- )   compile (err"
+ ," ; immediate  restrict
+
+\ *** Block No. 96, Hexblock 60
+
+( -trailing                   08apr85bp)
+
+020 Constant bl
+
+Code -trailing  ( addr n1 -- adr  n2 )
+ tya   Setup jsr
+ SP X) lda  N 2+ sta   clc
+ SP )Y lda  N 1+ adc  N 3 + sta
+ N ldy  clc   CS ?[
+Label (-trail
+ dey  N 2+ )Y lda  bl # cmp
+  0<> ?[ iny  0= ?[ N 1+ inc ]?
+         tya pha  N 1+ lda Push jmp ]?
+ ]?   tya   (-trail bne
+ N 3 + dec N 1 + dec  (-trail bpl
+ tya Push0A jmp   end-code
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 97, Hexblock 61
+
+( space spaces             29jan85ks/bp)
+
+: space            bl emit ;
+
+: spaces  ( u --)  0  ?DO space LOOP ;
+
+
+\\
+: -trailing  ( addr n1 -- addr n2)
+ 2dup  bounds
+    ?DO 2dup + 1- c@ bl -
+      IF LEAVE THEN  1- LOOP  ;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 98, Hexblock 62
+
+( hold <# #> sign # #s        24dec83ks)
+
+| : hld  ( -- addr)    pad 2- ;
+
+: hold  ( char -- )
+ -1 hld +! hld @ c! ;
+
+: <#                   hld hld ! ;
+
+: #>    ( 32b -- addr +n )
+ 2drop hld @  hld over - ;
+
+: sign  ( n -- )
+ 0< IF Ascii  - hold THEN ;
+
+: #     ( +d1 -- +d2)
+ base @ ud/mod rot 09 over <
+  IF  [ Ascii A  Ascii 9  - 1- ]
+      Literal  +
+  THEN  Ascii 0  +  hold ;
+
+: #s    ( +d -- 0 0 )
+ BEGIN # 2dup  d0= UNTIL ;
+
+
+
+\ *** Block No. 99, Hexblock 63
+
+( print numbers               24dec83ks)
+
+: d.r  -rot under dabs <# #s rot sign #>
+        rot over max over - spaces type
+ ;
+
+: .r    swap extend rot d.r ;
+
+: u.r   0 swap d.r ;
+
+: d.    0 d.r space ;
+
+: .     extend d. ;
+
+: u.    0 d. ;
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 100, Hexblock 64
+
+\ .s list c/l l/s             clv4:jul87
+
+: .s   sp@  s0 @  over - 020 umin
+ bounds ?DO I @ u.  2 +LOOP ;
+
+40 (C drop 29 ) Constant c/l
+   \ Screen line length
+10 (C drop 19 ) Constant l/s
+   \ lines per screen
+
+: list   ( blk --)
+ scr ! ." Scr " scr @ dup blk/drv mod u.
+       ." Dr "  drv? .
+ l/s 0 DO stop? IF leave THEN
+   cr I 2 .r space scr @  block
+      I c/l * + c/l  (C 1- )
+   -trailing type  LOOP cr ;
+
+
+
+
+
+
+
+
+
+\ *** Block No. 101, Hexblock 65
+
+( multitasker primitives      bp03nov85)
+
+Code pause   Next here 2- !  end-code
+
+: lock  ( addr --)
+ dup @  up@ =  IF  drop exit  THEN
+ BEGIN  dup @  WHILE  pause  REPEAT
+ up@ swap ! ;
+
+: unlock  ( addr --)   dup lock off ;
+
+Label wake    wake >wake !
+ pla  sec  5 # sbc  UP    sta
+ pla       0 # sbc  UP 1+ sta
+ 04C # lda  UP X) sta
+ 6 # ldy  UP )Y lda SP    sta
+     iny  UP )Y lda SP 1+ sta 1 # ldy
+ SP X) lda  RP sta
+ SP )Y lda  RP 1+ sta   SP 2inc
+ IP  # ldx  Xpull jmp
+end-code
+
+
+
+
+
+\ *** Block No. 102, Hexblock 66
+
+( buffer mechanism            15dec83ks)
+
+User file           0 file !
+        \ adr of file control block
+Variable prev       0 prev !
+        \ Listhead
+Variable buffers  0 buffers !
+        \ Semaphore
+0408 Constant b/buf
+        \ Physical Size
+
+\\ Structure of Buffer:
+ 0 : link
+ 2 : file
+ 4 : blocknr
+ 6 : statusflags
+ 8 : Data .. 1 KB ..
+
+Statusflag bits: 15   1 -> updated
+
+file = -1 empty buffer
+     = 0 no fcb , direct access
+     = else  adr of fcb
+     ( system   dependent )
+
+
+\ *** Block No. 103, Hexblock 67
+
+( search for blocks in memory 11jun85bp)
+
+Label thisbuffer?        2 # ldy
+   [[  N 4 + )Y lda N 2- ,Y cmp
+ 0= ?[[  iny  6 # cpy 0= ?] ]? rts
+              \ zero if this buffer )
+
+| Code (core?
+ ( blk file -- addr / blk  file )
+ \ N-Area : 0 blk 2 file 4 buffer
+ \          6 predecessor
+ 3 # ldy
+   [[ SP )Y lda  N ,Y sta  dey  0< ?]
+ user' offset # ldy
+ clc  UP )Y lda  N 2+  adc  N 2+  sta
+ iny  UP )Y lda  N 3 + adc  N 3 + sta
+ prev    lda  N 4 + sta
+ prev 1+ lda  N 5 + sta
+ thisbuffer? jsr    0= ?[
+
+
+
+
+
+
+
+\ *** Block No. 104, Hexblock 68
+
+(   "                         11jun85bp)
+
+Label blockfound     SP 2inc
+ 1 # ldy
+ 8 #   lda  clc N 4 + adc SP X) sta
+ N 5 + lda        0 # adc SP )Y sta
+ ' exit @ jmp  ]?
+ [[ N 4 + lda  N 6 + sta
+    N 5 + lda  N 7 + sta
+    N 6 + X) lda  N 4 + sta  1 # ldy
+    N 6 + )Y lda  N 5 + sta  N 4 + ora
+     0= ?[ ( list empty )  Next jmp ]?
+   thisbuffer? jsr 0= ?] \ found, relink
+ N 4 + X) lda  N 6 + X) sta  1 # ldy
+ N 4 + )Y lda  N 6 + )Y sta
+ prev    lda  N 4 + X) sta
+ prev 1+ lda  N 4 + )Y sta
+ N 4 + lda  prev    sta
+ N 5 + lda  prev 1+ sta
+ blockfound jmp    end-code
+
+
+
+
+
+
+\ *** Block No. 105, Hexblock 69
+
+\ (core?                       23sep85bp
+
+\\
+
+| : this?   ( blk file bufadr -- flag )
+   dup 4+ @  swap 2+ @  d= ;
+
+| : (core?
+   ( blk file -- dataaddr / blk file )
+  BEGIN  over offset @ + over  prev @
+    this? IF rdrop 2drop prev @ 8 + exit
+          THEN
+    2dup >r offset @ + >r prev @
+    BEGIN  dup @ ?dup
+       0= IF rdrop rdrop drop exit THEN
+      dup r> r> 2dup >r >r  rot this? 0=
+    WHILE  nip  REPEAT
+    dup @ rot !  prev @ over !  prev !
+    rdrop rdrop
+  REPEAT ;
+
+
+
+
+
+
+\ *** Block No. 106, Hexblock 6a
+
+( (diskerr                    11jun85bp)
+
+: (diskerr   ." error !  r to retry "
+ key dup Ascii r =  swap Ascii R =
+ or not  Abort" aborted"  ;
+
+
+Defer diskerr  ' (diskerr  Is diskerr
+
+Defer r/w
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 107, Hexblock 6b
+
+( backup emptybuf readblk     11jun85bp)
+
+| : backup   ( bufaddr --)
+ dup 6+ @  0<
+ IF  2+  dup @ 1+
+            \ buffer empty if file = -1
+  IF input push output push standardi/o
+   BEGIN dup 6+ over 2+ @ 2 pick @ 0 r/w
+   WHILE ." write " diskerr
+   REPEAT   THEN
+  080 over 4+ 1+ ctoggle  THEN
+ drop ;
+
+| : emptybuf  ( bufaddr --)
+   2+ dup on 4+ off ;
+
+| : readblk
+   ( blk file addr -- blk file addr)
+ dup emptybuf  input push  output push
+ standardi/o   >r
+ BEGIN over offset @ + over
+       r@ 8 +  -rot   1  r/w
+ WHILE ." read " diskerr
+ REPEAT  r>  ;
+
+
+\ *** Block No. 108, Hexblock 6c
+
+( take mark updates? full? core?     bp)
+
+| : take   ( -- bufaddr)    prev
+ BEGIN  dup @  WHILE  @  dup 2+ @ -1 =
+ UNTIL
+ buffers lock   dup backup ;
+
+| : mark
+ ( blk file bufaddr -- blk file )
+ 2+ >r 2dup r@ !  offset @ +  r@ 2+ !
+ r> 4+ off  buffers unlock ;
+
+| : updates?  ( -- bufaddr / flag)
+ prev  BEGIN  @ dup  WHILE  dup 6+ @
+   0<  UNTIL ;
+
+| : full?   ( -- flag)
+ prev BEGIN @ dup @ 0= UNTIL  6+ @ 0< ;
+
+: core?  ( blk file -- addr /false)
+ (core? 2drop false ;
+
+
+
+
+
+\ *** Block No. 109, Hexblock 6d
+
+( block & buffer manipulation 11jun85bp)
+
+: (buffer ( blk file -- addr)
+ BEGIN  (core? take mark
+ REPEAT ;
+
+: (block  ( blk file -- addr)
+ BEGIN  (core? take readblk mark
+ REPEAT ;
+
+| Code file@  ( -- n )
+ user' file # ldy
+ UP )Y lda  pha  iny  UP )Y lda
+ Push jmp  end-code
+
+: buffer  ( blk -- addr )
+ file@  (buffer ;
+
+: block   ( blk -- addr )
+ file@  (block ;
+
+
+
+
+
+
+\ *** Block No. 110, Hexblock 6e
+
+( block & buffer manipulation 09sep84ks)
+
+: update   080 prev @  6+ 1+ c! ;
+
+: save-buffers
+ buffers lock BEGIN   updates? ?dup
+              WHILE backup REPEAT
+ buffers unlock  ;
+
+: empty-buffers
+ buffers lock  prev
+ BEGIN @ ?dup
+ WHILE dup emptybuf
+ REPEAT  buffers unlock ;
+
+: flush    save-buffers empty-buffers ;
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 111, Hexblock 6f
+
+( moving blocks               15dec83ks)
+
+ : (copy   ( from to --)
+ dup file@
+ core? IF prev @ emptybuf THEN
+ full? IF  save-buffers   THEN
+ offset @ + swap block 2- 2- !  update ;
+
+ : blkmove  ( from to quan --)
+ save-buffers >r
+ over r@ + over u> >r  2dup u< r> and
+  IF  r@ r@ d+  r> 0 ?DO -1 -2 d+
+                         2dup (copy LOOP
+  ELSE          r> 0 ?DO 2dup (copy 1
+                             1 d+   LOOP
+  THEN  save-buffers 2drop ;
+
+: copy    ( from to --)   1 blkmove ;
+
+: convey  ( [blk1 blk2] [to.blk --)
+ swap  1+  2 pick -   dup 0> not
+ Abort" no!!"  blkmove ;
+
+
+
+
+\ *** Block No. 112, Hexblock 70
+
+\ Allocating buffers          clv12jul87
+
+E400 Constant limit     Variable first
+
+: allotbuffer   ( -- )
+ first @  r0 @ -  b/buf 2+ u< ?exit
+ b/buf negate first +!
+ first @ dup emptybuf
+ prev  @ over !  prev !   ;
+
+: freebuffer    ( -- )
+ first @   limit b/buf - u<
+  IF first @ backup prev
+    BEGIN  dup @ first @  -
+    WHILE  @  REPEAT
+  first @  @ swap ! b/buf first +!
+  THEN ;
+
+: all-buffers
+ BEGIN  first @ allotbuffer
+        first @  = UNTIL ;
+
+
+
+
+
+\ *** Block No. 113, Hexblock 71
+
+( endpoints of forget      04jan85bp/ks)
+
+| : |? ( nfa -- flag )   c@  020  and ;
+
+| : forget?  ( adr nfa -- flag )
+     \ code in heap or above adr ?
+ name> under 1+ u< swap  heap?  or ;
+
+|  : endpoints  ( addr -- addr symb)
+ heap   voc-link @ >r
+ BEGIN r> @ ?dup    \ through all Vocabs
+ WHILE dup >r 4 - >r \ link on returnst.
+  BEGIN r> @ >r over 1- dup r@  u<
+                    \ until link  or
+             swap  r@ 2+ name> u< and
+                    \ code under adr
+  WHILE  r@ heap?  [ 2dup ] UNTIL
+             \ search for a name in heap
+    r@ 2+ |?  IF  over r@ 2+ forget?
+               IF r@ 2+ (name> 2+ umax
+               THEN \ then update symb
+              THEN
+  REPEAT rdrop
+ REPEAT  ;
+
+
+\ *** Block No. 114, Hexblock 72
+
+\ remove                       23jul85we
+
+| Code remove ( dic symb thr - dic symb)
+ 5 # ldy [[ SP )Y lda N ,Y sta dey 0< ?]
+ user' s0 # ldy
+ clc UP )Y lda 6 # adc N 6 + sta
+ iny UP )Y lda 0 # adc N 7 + sta
+ 1 # ldy
+ [[ N X) lda N 8 + sta
+    N )Y lda N 9 + sta N 8 + ora  0<>
+ ?[[ N 8 + lda N 6 + cmp
+     N 9 + lda N 7 + sbc CS
+   ?[ N 8 + lda N 2 + cmp
+      N 9 + lda N 3 + sbc
+   ][ N 4 + lda N 8 + cmp
+      N 5 + lda N 9 + sbc
+   ]? CC
+   ?[ N 8 + X) lda N X) sta
+      N 8 + )Y lda N )Y sta
+   ][ N 8 + lda    N    sta
+      N 9 + lda N 1+ sta ]?
+ ]]? (drop jmp   end-code
+
+
+
+
+\ *** Block No. 115, Hexblock 73
+
+( remove-     forget-words    29apr85bp)
+
+| : remove-words ( dic symb -- dic symb)
+ voc-link  BEGIN  @ ?dup
+  WHILE  dup >r 4 - remove r>  REPEAT  ;
+
+| : remove-tasks  ( dic --)
+ up@  BEGIN  1+ dup @ up@ -
+ WHILE  2dup @ swap here uwithin
+  IF dup @ 1+ @ over ! 1-  ELSE  @ THEN
+ REPEAT  2drop ;
+
+| : remove-vocs  ( dic symb -- dic symb)
+ voc-link remove thru.vocstack
+  DO  2dup I @  -rot  uwithin
+    IF   [ ' Forth 2+ ] Literal I ! THEN
+  -2 +LOOP
+ 2dup   current @  -rot   uwithin
+  IF [ ' Forth 2+ ] Literal current !
+  THEN ;
+
+Defer custom-remove
+' noop Is custom-remove
+
+
+
+\ *** Block No. 116, Hexblock 74
+
+( deleting words from dict.   13jan83ks)
+
+| : forget-words    ( dic symb --)
+ over remove-tasks remove-vocs
+      remove-words custom-remove
+ heap swap - hallot dp !  0 last ! ;
+
+: clear
+ here  dup up@ forget-words   dp ! ;
+
+: (forget ( adr --)
+ dup  heap? Abort" is symbol"
+ endpoints forget-words ;
+
+: forget  ' dup [ dp ] Literal @
+ u<  Abort" protected"
+ >name dup heap?
+ IF  name>  ELSE  2- 2-  THEN
+ (forget   ;
+
+: empty  [ dp ] Literal @
+ up@ forget-words
+ [ udp ] Literal @  udp ! ;
+
+
+
+\ *** Block No. 117, Hexblock 75
+
+\ save bye stop? ?cr         clv2:jull87
+
+: save
+ here up@ forget-words
+ voc-link @  BEGIN  dup 2- 2-  @  over
+               2- !  @ ?dup 0=  UNTIL
+ up@ origin $100 cmove   ;
+
+: bye save-buffers (bye ;
+\ : bye       flush empty (bye ;
+
+| : end?    key ( #cr ) (C 3 ) =
+            IF true rdrop THEN ;
+
+: stop?   ( -- flag)
+ key? IF end? end? THEN false ;
+
+: ?cr   col  c/l $A -  u> IF cr THEN ;
+
+
+
+
+
+
+
+
+\ *** Block No. 118, Hexblock 76
+
+( in/output structure         02mar85bp)
+
+| : Out:  Create dup c,  2+
+          Does> c@ output @ +  perform ;
+
+  : Output:  Create:
+             Does>  output ! ;
+
+0  Out: emit   Out: cr     Out: type
+   Out: del    Out: page   Out: at
+   Out: at?
+drop
+
+: row   ( -- row)  at? drop ;
+: col   ( -- col)  at? nip ;
+
+| : In:    Create dup c, 2+
+           Does> c@ input @ + perform ;
+
+  : Input:  Create:
+            Does> input ! ;
+
+0  In: key   In: key?   In: decode
+   In: expect
+drop
+
+\ *** Block No. 119, Hexblock 77
+
+( Alias  only definitionen    29jan85bp)
+
+Only definitions Forth
+
+: seal  0 ['] Only  >body  ! ;
+        \ kill all words in Only)
+
+      ' Only  Alias Only
+      ' Forth Alias Forth
+      ' words Alias words
+      ' also  Alias also
+' definitions Alias definitions
+
+Host Target
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 120, Hexblock 78
+
+\ 'cold                   01oct87clv/re)
+
+| : init-vocabularys   voc-link @
+ BEGIN  dup  2- @  over 4 - !
+        @ ?dup 0= UNTIL ;
+
+| : init-buffers
+ 0 prev !  limit first !  all-buffers ;
+
+Defer 'cold    ' noop Is 'cold
+
+| : (cold
+ init-vocabularys  init-buffers
+ Onlyforth 'cold
+ page logo count type cr
+ (restart ;
+
+Defer 'restart  ' noop Is 'restart
+
+| : (restart
+ ['] (quit Is 'quit
+ drvinit 'restart  [ errorhandler ]
+ Literal @ errorhandler !
+ [']  noop Is 'abort abort ;
+
+
+\ *** Block No. 121, Hexblock 79
+
+\ forth-init              01oct87clv/re)
+
+Label forth-init
+ Bootnextlen 1- # ldy
+ [[ Bootnext ,Y lda PutA ,Y sta
+    dey 0< ?]
+ clc s0 lda 6 # adc UP sta
+  s0 1+ lda 0 # adc UP 1+ sta
+ user' s0 # ldy  UP )Y lda SP sta
+            iny  UP )Y lda SP 1+ sta
+ user' r0 # ldy  UP )Y lda RP sta
+            iny  UP )Y lda RP 1+ sta
+ 0 # ldx 1 # ldy txa RP X) sta RP )Y sta
+Label donothing rts
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 122, Hexblock 7a
+
+\ cold restart                 06nov87re
+
+Code cold        here >cold !
+ $FF # ldx  txs
+Label bootsystem
+ donothing jsr \ patch for first-init
+ clc s0 lda 6 # adc N sta
+  s0 1+ lda 0 # adc N 1+ sta  0 # ldy
+ [[ origin ,Y lda N )Y sta iny 0= ?]
+ forth-init jsr
+ ;c: init-system  (cold ;
+
+Code restart     here >restart !
+ $FF # ldx  txs
+Label warmboot
+ donothing jsr \ patch for first-init
+ forth-init jsr
+ ;c: init-system  (restart ;
+
+Label xyNext
+ 0 # ldx 1 # ldy Next jmp end-code
+
+
+
+
+
+\ *** Block No. 123, Hexblock 7b
+
+\ System-Loadscreen       01oct87clv/re)
+
+ 3 $18 +thru          \ CBM-Interface
+(c16+    19 +load )   \ c16init RamIRQ
+
+
+Host  ' Transient 8 + @
+  Transient  Forth  Context @ 6 + !
+Target
+
+Forth also definitions
+
+(C16 : (64 ) \ jumps belhind C)
+(C64 : (16 )
+ BEGIN name count 0= abort" C) missing"
+ @ [ Ascii C Ascii ) $100 * + ] Literal
+ = UNTIL ; immediate
+
+: C)  ; immediate
+
+(C16 : (16 ) (C64 : (64 ) ; immediate
+
+: forth-83 ;  \ last word in Dictionary
+
+
+
+\ *** Block No. 124, Hexblock 7c
+
+( System dependent Constants      bp/ks)
+
+Vocabulary Assembler
+Assembler definitions
+Transient  Assembler
+
+PushA  Constant PushA
+       \ put A sign-extended on stack
+Push0A Constant Push0A
+       \ put A on stack
+Push   Constant Push
+       \ MSB in A and LSB on jsr-stack
+
+RP     Constant RP
+UP     Constant UP
+SP     Constant SP
+IP     Constant IP
+N      Constant N
+Puta   Constant Puta
+W      Constant W
+Setup  Constant Setup
+Next   Constant Next
+xyNext Constant xyNext
+(2drop Constant Poptwo
+(drop  Constant Pop
+
+\ *** Block No. 125, Hexblock 7d
+
+\ System patchup              clv06aug87
+
+Forth definitions
+
+(C64  C000 ' limit >body !
+      7B00 s0 !  7F00 r0 ! )
+
+(C16  8000 ' limit >body !
+      7700 s0 !  7b00 r0 ! )
+
+\ (C16+ fd00 ' limit >body !
+\       7B00 s0 !  7F00 r0 ! )
+
+s0 @ dup s0 2- !      6 + s0 7 - !
+here dp !
+
+Host  Tudp @          Target  udp !
+Host  Tvoc-link @     Target  voc-link !
+Host  move-threads
+
+
+
+
+
+
+
+\ *** Block No. 126, Hexblock 7e
+
+\ CBM-Labels                   05nov87re
+
+$FFA5 >label ACPTR
+$FFC6 >label CHKIN
+$FFC9 >label CHKOUT
+$FFD2 >label CHROUT
+$FF81 >label CINT
+$FFA8 >label CIOUT
+$FFC3 >label CLOSE
+$FFCC >label CLRCHN
+$FFE4 >label GETIN
+$FF84 >label IOINIT
+$FFB1 >label LISTEN
+$FFC0 >label OPEN
+$FFF0 >label PLOT
+$FF8A >label RESTOR
+$FF93 >label SECOND
+$FFE1 >label STOP
+$FFB4 >label TALK
+$FF96 >label TKSA
+$FFEA >label UDTIM
+$FFAE >label UNLSN
+$FFAB >label UNTLK
+$FFCF >label CHRIN
+$FF99 >label MEMTOP
+
+\ *** Block No. 127, Hexblock 7f
+
+\ C64-Labels                 clv13.4.87)
+
+(C64
+
+0E716 >label ConOut
+  09d >label MsgFlg
+  09a >label OutDev
+  099 >label  InDev
+0d020 >label BrdCol
+0d021 >label BkgCol
+ 0286 >label PenCol
+  0ae >label PrgEnd
+  0c1 >label IOBeg
+  0d4 >label CurFlg
+  0d8 >label InsCnt
+ 028a >label KeyRep
+
+
+
+
+
+)
+
+
+
+
+\ *** Block No. 128, Hexblock 80
+
+\ C16-Labels                 clv13.4.87)
+
+(C16
+
+0ff4c >label ConOut
+  09a >label MsgFlg
+  099 >label OutDev
+  098 >label  InDev
+0ff19 >label BrdCol
+0ff15 >label BkgCol
+ 0540 >label PenCol
+  09d >label PrgEnd
+  0b2 >label IOBeg
+  0cb >label CurFlg
+  0cf >label InsCnt
+ 0540 >label KeyRep
+
+
+
+
+ 055d >label PKeys
+)
+
+
+
+
+\ *** Block No. 129, Hexblock 81
+
+\ c64key? getkey              clv12jul87
+
+Code c64key? ( -- flag)
+(C64  0C6 lda            ( )
+(c16  0ef lda  055d ora  ( )
+ 0<> ?[  0FF # lda  ]? pha
+ Push jmp  end-code
+
+Code getkey  ( -- 8b)
+(C64 0C6 lda  0<>
+ ?[  sei  0277 ldy
+  [[  0277 1+ ,X lda  0277 ,X sta  inx
+      0C6 cpx  0= ?]
+  0C6 dec  tya  cli  0A0 # cmp
+  0= ?[  bl # lda  ]?
+ ]? ( )
+(C16 0ebdd jsr
+  0A0 # cmp 0= ?[  bl # lda  ]? ( )
+ Push0A jmp   end-code
+
+
+
+
+
+
+
+\ *** Block No. 130, Hexblock 82
+
+( curon curoff               clv12.4.87)
+
+(C16  Code curon \ --
+0ca lda clc 0c8 adc 0ff0d sta
+0c9 lda     0 # adc 0b # sbc 0ff0c sta
+next jmp end-code
+
+Code curoff \ --
+0ff # lda ff0c sta 0ff0d sta Next jmp
+end-code )
+
+(C16 \\ )
+
+Code curon   ( --)
+ 0D3 ldy  0D1 )Y lda  0CE sta  0CC stx
+ xyNext jmp   end-code
+
+Code curoff   ( --)
+ iny  0CC sty  0CD sty  0CF stx
+ 0CE lda  0D3 ldy  0D1 )Y sta
+ 1 # ldy  Next jmp   end-code
+
+
+
+
+
+\ *** Block No. 131, Hexblock 83
+
+( #bs #cr ..keyboard         clv12.4.87)
+
+
+: c64key  ( -- 8b)
+ curon BEGIN pause c64key?  UNTIL
+ curoff getkey ;
+
+14 Constant #bs   0D Constant #cr
+
+: c64decode
+ ( addr cnt1 key -- addr cnt2)
+  #bs case?  IF  dup  IF del 1- THEN
+                            exit  THEN
+  #cr case?  IF  dup span ! exit THEN
+  >r  2dup +  r@ swap c!  r> emit  1+ ;
+
+: c64expect ( addr len1 -- )
+ span !  0
+ BEGIN  dup span @  u<
+ WHILE  key  decode
+ REPEAT 2drop space ;
+
+Input: keyboard   [ here input ! ]
+ c64key c64key? c64decode c64expect ;
+
+
+\ *** Block No. 132, Hexblock 84
+
+( con! printable?            clv11.4.87)
+
+Code con!  ( 8b --)   SP X) lda
+Label (con!     ConOut jsr    SP 2inc
+Label (con!end  CurFlg stx InsCnt stx
+ 1 # ldy ;c:  pause ;
+
+Label (printable?   \ for CBM-Code !
+                    \ CS is printable
+  80 # cmp  CC ?[   bl # cmp  rts  ]?
+ 0E0 # cmp  CC ?[  0C0 # cmp  rts  ]?
+ clc  rts  end-code
+
+Code printable? ( 8b -- 8b flag)
+ SP X) lda  (printable? jsr CS ?[ dex ]?
+ txa  PushA jmp     end-code
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 133, Hexblock 85
+
+( emit cr del page at at?    clv11.4.87)
+
+Code c64emit  ( 8b -- )
+ SP X) lda  (printable? jsr
+    CC ?[  Ascii . # lda ]?
+ (con! jmp   end-code
+
+: c64cr     #cr con! ;
+
+: c64del    9D con!  space  9D con! ;
+
+: c64page   93 con! ;
+
+Code c64at  ( row col --)
+ 2 # lda  Setup jsr
+ N 2+ ldx  N ldy  clc  PLOT jsr
+(C16 \ ) 0D3 ldy  0D1 )Y lda   0CE sta
+ xyNext jmp  end-code
+
+Code c64at?  ( -- row col)
+ SP 2dec txa  SP )Y sta
+ sec  PLOT jsr
+ 28 # cpy  tya  CS ?[ 28 # sbc ]?
+ pha  txa  0 # ldx  SP X) sta  pla
+ Push0A jmp  end-code
+
+\ *** Block No. 134, Hexblock 86
+
+( type display (bye          clv11.4.87)
+
+Code  c64type  ( adr len -- )
+ 2 # lda  Setup jsr  0 # ldy
+  [[  N cpy  0<>
+  ?[[  N 2+ )Y lda  (printable? jsr
+         CC ?[  Ascii . # lda  ]?
+ ConOut jsr  iny  ]]?
+ (con!end jmp   end-code
+
+Output: display   [ here output ! ]
+ c64emit c64cr c64type c64del c64page
+ c64at c64at? ;
+
+(C64  | Create (bye  $FCE2  here 2- ! )
+
+(C16- | Create (bye  $FF52  here 2- ! )
+
+(C16+ | CODE   (bye  rom $FF52 jmp
+                             end-code )
+
+
+
+
+
+
+\ *** Block No. 135, Hexblock 87
+
+\ b/blk drive >drive drvinit  clv14:2x87
+
+400 Constant b/blk
+
+0AA Constant blk/drv
+
+Variable (drv    0 (drv !
+
+| : disk ( -- dev.no )   (drv @ 8 + ;
+
+: drive  ( drv# -- )
+ blk/drv *  offset ! ;
+
+: >drive ( block drv# -- block' )
+ blk/drv * +   offset @ - ;
+
+: drv?    ( block -- drv# )
+ offset @ + blk/drv / ;
+
+: drvinit  noop ;
+
+
+
+
+
+
+\ *** Block No. 136, Hexblock 88
+
+( i/o busoff                  10may85we)
+
+Variable i/o  0 i/o !  \ Semaphore
+
+Code busoff  ( --)   CLRCHN jsr
+Label unlocki/o  1 # ldy  0 # ldx
+ ;c:  i/o unlock ;
+
+Label nodevice     0 # ldx  1 # ldy
+ ;c:  busoff   buffers unlock
+      true Abort" no device" ;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 137, Hexblock 89
+
+\ ?device                     clv12jul87
+
+Label (?dev
+ 90 stx (C16 $ae sta ( ) LISTEN jsr
+        \ because of error in OS
+ 60 # lda  SECOND jsr  UNLSN jsr
+ 90 lda  0<> ?[ pla pla nodevice jmp ]?
+ rts    end-code
+
+ Code (?device  ( dev --)
+ SP X) lda  (?dev jsr  SP 2inc
+ unlocki/o jmp  end-code
+
+: ?device  ( dev -- )
+ i/o lock  (?device ;
+
+ Code (busout  ( dev 2nd -- )
+ MsgFlg stx  2 # lda  Setup jsr
+ N 2+ lda  (?dev jsr
+ N 2+ lda  LISTEN jsr
+ N lda  60 # ora SECOND jsr
+ N 2+ ldx  OutDev stx
+ xyNext jmp  end-code
+
+
+
+\ *** Block No. 138, Hexblock 8a
+
+\ busout/open/close/in        clv12jul87
+
+: busout    ( dev 2nd -- )
+ i/o lock (busout ;
+
+: busopen   ( dev 2nd -- )
+ 0F0 or busout ;
+
+: busclose  ( dev 2nd -- )
+ 0E0 or busout busoff ;
+
+ Code (busin  ( dev 2nd -- )
+ MsgFlg stx  2 # lda  Setup jsr
+ N 2+ lda  (?dev jsr
+ N 2+ lda  TALK jsr
+ N lda  60 # ora (C16 $ad sta ( )
+ TKSA jsr
+\ because of error in old C16 OS
+ N 2+ ldx  InDev stx
+ xyNext jmp end-code
+
+: busin  ( dev 2nd -- )
+ i/o lock  (busin ;
+
+
+
+\ *** Block No. 139, Hexblock 8b
+
+( bus-!/type/@/input derror?  24feb85re)
+
+Code bus!  ( 8b --)
+ SP X) lda  CIOUT jsr  (xydrop jmp
+ end-code
+
+: bustype  ( adr n --)
+ bounds  ?DO  I c@ bus!  LOOP pause ;
+
+Code bus@  ( -- 8b)
+ ACPTR jsr Push0A jmp  end-code
+
+: businput  ( adr n --)
+ bounds  ?DO  bus@ I c! LOOP pause ;
+
+: derror?  ( -- flag )
+ disk $F busin bus@  dup Ascii 0 -
+  IF  BEGIN emit bus@ dup #cr =  UNTIL
+  0= cr  THEN   0=  busoff ;
+
+
+
+
+
+
+
+\ *** Block No. 140, Hexblock 8c
+
+( s#>s+t  x,x                 28may85re)
+
+165 | Constant 1.t
+1EA | Constant 2.t
+256 | Constant 3.t
+
+| : (s#>s+t ( sector# -- sect track)
+      dup 1.t u< IF 15 /mod exit THEN
+ 3 +  dup 2.t u< IF 1.t - 13 /mod 11 +
+                            exit THEN
+      dup 3.t u< IF 2.t - 12 /mod 18 +
+                            exit THEN
+ 3.t - 11 /mod 1E + ;
+
+| : s#>t+s  ( sector# -- track sect )
+ (s#>s+t  1+ swap ;
+
+| : x,x ( sect track -- adr count)
+ base push  decimal
+ 0 <# #s drop Ascii , hold #s #> ;
+
+
+
+
+
+
+\ *** Block No. 141, Hexblock 8d
+
+( readsector writesector      28may85re)
+
+100 | Constant b/sek
+
+: readsector  ( adr tra# sect# -- flag)
+ disk 0F busout
+ " u1:13,0," count   bustype
+ x,x bustype busoff pause
+ derror? ?exit
+ disk 0D busin b/sek businput busoff
+ false ;
+
+: writesector  ( adr tra# sect# -- flag)
+ rot disk 0F busout
+ " b-p:13,0" count bustype busoff
+ disk 0D busout b/sek bustype busoff
+ disk 0F busout
+ " u2:13,0," count  bustype
+ x,x bustype busoff pause  derror? ;
+
+
+
+
+
+
+
+\ *** Block No. 142, Hexblock 8e
+
+( 1541r/w                     28may85re)
+
+: diskopen  ( -- flag)
+ disk 0D busopen  Ascii # bus! busoff
+ derror? ;
+
+: diskclose ( -- )
+ disk 0D busclose  busoff ;
+
+: 1541r/w  ( adr blk file r/wf -- flag)
+ swap Abort" no file"
+ -rot  blk/drv /mod  dup (drv ! 3 u>
+ IF . ." beyond capacity" nip exit  THEN
+ diskopen  IF  drop nip exit  THEN
+ 0 swap   2* 2* 4 bounds
+ DO  drop  2dup I rot
+     IF    s#>t+s readsector
+     ELSE  s#>t+s writesector THEN
+     >r b/sek + r> dup  IF  LEAVE  THEN
+ LOOP   -rot  2drop  diskclose  ;
+
+' 1541r/w  Is   r/w
+
+
+
+
+\ *** Block No. 143, Hexblock 8f
+
+\ index findex ink-pot         05nov87re
+
+: index ( from to --)
+ 1+ swap DO
+   cr  I 2 .r  I block 1+  25  type
+   stop?  IF LEAVE THEN  LOOP ;
+
+: findex ( from to --)
+ diskopen  IF  2drop  exit  THEN
+ 1+ swap DO  cr  I 2 .r
+   pad dup I 2* 2* s#>t+s readsector
+   >r 1+ 25 type
+   r> stop? or IF LEAVE THEN
+ LOOP  diskclose  ;
+
+Create ink-pot
+    \ border bkgnd pen  0
+(C64  6 c,   6 c,  3 c, 0 c,   \ Forth
+     0E c,   6 c,  3 c, 0 c,   \ Edi
+      6 c,   6 c,  3 c, 0 c, ) \ User
+(C16 f6 c, 0f6 c, 03 c, 0 c,   \ Forth
+    0eE c, 0f6 c, 03 c, 0 c,   \ Edi
+    0f6 c, 0f6 c, 03 c, 0 c, ) \ User
+
+
+
+\ *** Block No. 144, Hexblock 90
+
+\ restore                      05nov87re
+
+(C16 \\ )
+
+Label asave 0 c,    Label 1save 0 c,
+
+Label continue
+ pha  1save lda  1 sta  pla  rti
+
+Label restore   sei  asave sta
+ continue $100 /mod
+ # lda pha  # lda pha  php  \ for RTI
+ asave lda pha  txa pha  tya pha
+ 1 lda 1save sta
+ $36 # lda   1 sta  \ Basic off ROM on
+ $7F # lda  $DD0D sta
+ $DD0D ldy  0< ?[
+Label 6526-NMI $FE72 jmp  ]?
+ UDTIM jsr STOP jsr  \ RUN/STOP ?
+ 6526-NMI bne        \ not >>-->
+ ' restart @ jmp  end-code
+
+
+
+
+
+\ *** Block No. 145, Hexblock 91
+
+\ C64:Init                     06nov87re
+(C16 \\ )
+
+: init-system   $FF40 dup $C0 cmove
+ [ restore ] Literal  dup
+ $FFFA ! $318 ! ;  \ NMI-Vector to RAM
+
+Label first-init
+ sei cld
+ IOINIT jsr  CINT jsr  RESTOR jsr
+  \ init. and set I/O-Vectors
+ $36 # lda   01 sta        \ Basic off
+ ink-pot    lda BrdCol sta \ border
+ ink-pot 1+ lda BkgCol sta \ backgrnd
+ ink-pot 2+ lda PenCol sta \ pen
+$80 # lda KeyRep sta  \ repeat all keys
+$17 # lda  $D018 sta  \ low/upp +
+  0 # lda  $D01A sta  \ VIC-IRQ off
+$1B # lda  $D011 sta  \ Textmode on
+  4 # lda   $288 sta  \ low screen
+ cli rts end-code
+first-init dup bootsystem 1+ !
+               warmboot   1+ !
+Code c64init first-init jsr
+ xyNext jmp end-code
+
+\ *** Block No. 146, Hexblock 92
+
+\ C16:Init                01oct87clv/re)
+
+(C64 \\ )
+
+Code init-system $F7 # ldx  txs
+ xyNext jmp end-code
+
+$fcb3 >label IRQ   \ normal IRQ
+$fffe >label >IRQ  \ 6502-Ptr to IRQ
+
+\ selfmodifying code:
+Label RAMIRQ       \ the new IRQ
+   rom RAMIRQ $15 + sta RAMIRQ $17 + stx
+(  +9) RAMIRQ $1b + $100 u/mod # lda pha
+                               # lda pha
+(  +f) tsx $103 ,x lda pha   \ flags
+( +14) 0 # lda 0 # ldx IRQ jmp
+( +1b) ram rti end-code
+
+
+
+
+
+
+
+
+\ *** Block No. 147, Hexblock 93
+
+\ C16:..Init              01oct87clv/re)
+
+(C64 \\ )
+
+Label first-init
+   \ will be called in ROM first time
+   \ later called from RAM
+ sei rom
+ RAMIRQ $100 u/mod    \ new IRQ
+   # lda >IRQ 1+ sta  \ .. install
+   # lda >IRQ sta
+ $FF84 normJsr  $FF8A normJsr
+    \ CIAs init. and set I/O-Vectors
+ ink-pot    lda BrdCol sta \ border
+ ink-pot 1+ lda BkgCol sta \ backgrnd
+ ink-pot 2+ lda PenCol sta \ pen
+ $80 # lda KeyRep sta \ repeat all keys
+ $FF13 lda 04 # ora $FF13 sta \ low/upp
+ ram cli rts end-code
+
+first-init dup bootsystem 1+ !
+               warmboot   1+ !
+
+Code c64init first-init jsr
+ xyNext jmp end-code
+
+\ *** Block No. 148, Hexblock 94
+
+\ C16-Pushkeys C64-like   01oct87clv/re)
+
+
+(C16
+
+Label InitPKs \ Pushkeys: Daten
+00 c, 00 c,  \ curr. numb Char, currPtr
+01 c, 01 c, 01 c, 01 c, \ StrLength
+01 c, 01 c, 01 c, 01 c, \   "
+
+85 c, 86 c, 87 c, 89 c, \ Content
+8a c, 8b c, 8c c, 88 c, \   "
+
+
+here InitPKs - >label InitPKlen
+
+
+Code C64fkeys \ Pushkeys a la C64
+  InitPKlen # ldx
+  [[ dex  0>= ?[[
+    InitPKs ,X lda PKeys ,x sta ]]?
+  xyNext jmp end-code
+
+)
+
+
+\ *** Block No. 149, Hexblock 95
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 150, Hexblock 96
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 151, Hexblock 97
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 152, Hexblock 98
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 153, Hexblock 99
+
+( restart param.-passing     clv12.4.87)
+
+Code restart       here >restart !
+ ' (restart >body 100 u/mod
+ # lda  pha  # lda pha
+ warmboot jmp   end-code
+
+\ Code for parameter-passing to Forth
+
+
+      03 18 +thru     \ CBM-Interface
+(c16+ 19 1a +thru )   \ c16init RamIRQ
+
+Host  ' Transient 8 + @
+  Transient  Forth  Context @ 6 + !
+Target     \ kotz wuerg !
+
+Forth also definitions
+         : )     ; immediate
+(C64     : (C64  ; immediate )
+(C16     : (C16  ; immediate )
+(C64 \ ) : (C64  [compile] ( ; immediate
+(C16 \ ) : (C16  [compile] ( ; immediate
+: forth-83 ;  \ last word in Dictionary
+
+
+\ *** Block No. 154, Hexblock 9a
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 155, Hexblock 9b
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 156, Hexblock 9c
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 157, Hexblock 9d
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 158, Hexblock 9e
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 159, Hexblock 9f
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 160, Hexblock a0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 161, Hexblock a1
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 162, Hexblock a2
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 163, Hexblock a3
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 164, Hexblock a4
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 165, Hexblock a5
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 166, Hexblock a6
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 167, Hexblock a7
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 168, Hexblock a8
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+\ *** Block No. 169, Hexblock a9
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+

From e4d6de49a2b8ab08bc8babfc2a22e02f7f93e5c3 Mon Sep 17 00:00:00 2001
From: Philip Zembrod <pzembrod@google.com>
Date: Sat, 11 Jul 2020 23:19:56 +0200
Subject: [PATCH 5/7] Get vf-latest to target-compile from mostly .fth sources.
 This requires a small target compiler tweak and some massaging of the fth
 source: Esp. some create-does> constructs have to be moved into a single
 line.

---
 6502/C64/Makefile               |   10 +-
 6502/C64/cbmfiles/c16-vf-latest |  Bin 15239 -> 15239 bytes
 6502/C64/cbmfiles/c64-vf-latest |  Bin 15168 -> 15168 bytes
 6502/C64/cbmfiles/tcbase        |  Bin 21614 -> 21641 bytes
 6502/C64/disks/tc38q.d64        |    2 +-
 6502/C64/disks/tc38q.fth        |   12 +-
 6502/C64/src/vf-blk-10-7d.fth   | 2120 ++++---------------------------
 6502/C64/src/vf-main.fth        |    2 +-
 6502/C64/src/vf-tc-prep.fth     |   15 +
 6502/C64/tests/c16-vf-reference |  Bin 0 -> 15239 bytes
 6502/C64/tests/c64-vf-reference |  Bin 0 -> 15168 bytes
 11 files changed, 252 insertions(+), 1909 deletions(-)
 create mode 100644 6502/C64/tests/c16-vf-reference
 create mode 100644 6502/C64/tests/c64-vf-reference

diff --git a/6502/C64/Makefile b/6502/C64/Makefile
index 1929a06..3fdfdd5 100644
--- a/6502/C64/Makefile
+++ b/6502/C64/Makefile
@@ -36,9 +36,15 @@ debug-64: emulator/tcbase.T64 emulator/build-vf.sh \
 
 # Temporary bincmp target while the old and the new binaries are still
 # expected to be binary identical.
+# Note: There is now 1 byte difference between the
+# old c64/c16-volksforth83 and the new c64/c16-vf-reference:
+# Byte $1b64 changed from $7c (old) to $dc (new).
+# This corresponds to the ." |" string in .name (blk/page $4e).
+# Since both represent the same character in PETSCII, namely | ,
+# the difference is acceptable, and a new reference binary was set.
 bincmp: cbmfiles/c64-vf-latest cbmfiles/c16-vf-latest
-	cmp -b -l cbmfiles/c64-vf-latest cbmfiles/c64-volksforth83
-	cmp -b -l cbmfiles/c16-vf-latest cbmfiles/c16-volksforth83
+	cmp -b -l cbmfiles/c64-vf-latest tests/c64-vf-reference
+	cmp -b -l cbmfiles/c16-vf-latest tests/c16-vf-reference
 
 run-devenv: emulator/devenv.T64
 	emulator/run-in-vice.sh devenv
diff --git a/6502/C64/cbmfiles/c16-vf-latest b/6502/C64/cbmfiles/c16-vf-latest
index 0b385875f5c2db01673d1a5bfa7dd26f3bc051f0..117e2fa8cb4248c7df61b26f615c172cb69eb7a4 100644
GIT binary patch
delta 14
VcmZoKZ!h1FBF%VbbE>qG0st=`1%3bk

delta 14
VcmZoKZ!h1FBF$K{IaOLo0RSxD1s(tZ

diff --git a/6502/C64/cbmfiles/c64-vf-latest b/6502/C64/cbmfiles/c64-vf-latest
index ec518dd7bd8655206d81222d326c0ab6d85e08b2..fea72c72d318aee5008c7f8d5498eac9bab52ad7 100644
GIT binary patch
delta 14
VcmX?5cA#uSiZtV$&8gD2<pDNA2BrW2

delta 14
VcmX?5cA#uSiZo-*=2Yq1@&Ggf21Wn?

diff --git a/6502/C64/cbmfiles/tcbase b/6502/C64/cbmfiles/tcbase
index cdbdb8d40b118936c50474d72dc83c235919c99f..b7daffa4ed2562b8ca0634518b8c9feda98e5923 100644
GIT binary patch
delta 4381
zcmZ8l4|G%Kb-&V+<R|G#Pgusbz`?Sgg$Xlu2wB3xw!kFRdirBY*2BoMDcM;FK1=3=
zH6$5LE65ouX`D<Pt#M9!PMW4oMM7wnlVvB#a(0mQgry=&t|WxLkwO~VDOqXhhI0s<
zjNL1Vtc-KO_jkYFcfb4YcmI6m_s12_y`hNM_@kqe!UXGkKHYNu&rSu_9P9h_F`wbx
zX2pA}E%V-2ZBYK>htq8}iL?29GFuF_&POjd{d3*m$lwUTAiQK#<+7Ri4{XIi@!j|C
zNH;MT1}?mNcuP{<Yl1e1dfim!%(j>?Yw6_1^d{(cs7UeEI<G?me||rk%*q=QIXM{<
zzHB?jcXD60^&?LM4@V!`))hYNP|x7vmY8t4Wxb`L#r->LNq@pop}gZzcE;ll&_LFq
z5aJF++@aLKoI}|$7k4lkSU_n$?oesq_YURUopFa+1J@kNJ5i_6fKpVTimw4q)Y!>`
zLa4P(47K7hmXdy<QETbv9=xKjft8{@o6F{tnOq`XL_b@_H6l51n@?-RPL45lazE9N
z=_L^)Q7MTkNz_OpD~UQu<YGd^%)<#sCs%J`tw#EW6n`T6t-kf)dqgHNd-gVSd&LWm
zF+B?(ip*60OiBb6&LS(5NQsRsTqIFWiE}LcCyD8l7-ZoK5=$xZeHIi>Mo!M9#9y+&
zkvN|ckFwC<WYSsG{+5MS5>cCCVMEx-WOK7A@pBe7JDJ&3JS93<xSvGSvMdasm_h9r
z3&SL$b{z{3IhlMBPu|ADV<Z+*;)5(4bTWk`dbyc}BP61i*I0;<h}@@H_>q$-#?gs4
zS@=1L^Qn#EaTeY|xq#{qS@;OWIXv$BEKHM#hJVOH9>saozO03hqchvrhEF*5abV~+
z!OdRdLGhp%F`M9m<HvkmM~yfz)aMo-piJrHo^vq9lAbZ{6)VB7=`}{oP1T#=dyVy`
znomp-GYfmgakC1>%8}Q?Z=FnBPF#0BINqd%aTgQM%GaG%0^fEqiJ95(b>}HUM_o)Z
zm%r}ZM&Ji7CL_nMJ6|R6nv2Qh5deX=T})vL&0Qq$5rQJF9C{Q%8f_Oc*PRN3K?@}p
z-WJm09H)g(U3f_dJ|S=gO&9Q-KB9f)V#4_xZfYT<b2E8z;V%d@xY739b?4zal@{9E
zm{|xe{yl<?1m@9g0(LigiYu?ZRHp?O0bF_YMLZ}-1`r&YK-yk6^GiCl?ht~%K`=9m
zpL*!;v``avGgIl}_2^R%2;m90a%3bXjEiG>9sG-1xpj9;z;KFP`~l;ndv95tKs9nm
zeUh)J{@u-NrF|FNlUPqWxa?N$-b!Y`@Ce?g4ko!L@KTHbhKi+0?y0h^uaH<iuZvId
zN8I5_j`rNnS?f{mMmLVQ$+GBSc9ZENZlz~TuZJOzGEulHL_iM@qnNlV{1b}%J<7X!
zuL`p$KI38T>akxHuAuxqRQFsJOejWCZAZ#oD8J%Sme7U|^kH}tWi;|Qs^9ZqITd3<
zy~!Ff(pjfG%vADMG2sPI3VqSTuMp3qW5Um>_!Gog>??<>_>YKZGcn=iDpm|IQ;9@O
zc%+I~ATA+(yNX)|!bm8@geR+tjYL5FVHtDKH=w#36DcOh+;P{EnCH(so^Z)r&h?0g
zBHzV-;i9N;;71~+UxoO*lZaDg;*(Y4r7H2@fa+Y;;uo&Np78Bveu}GKn>mbI>1t@}
zB^RA?YJllZU`PK4?bGi4j`X^d{F}}F+(~{+Z-8NkHeM(sXQndAd`$TEcItu#xG}J!
zyD}rXTDnbN-PBrgLbvIE@Mn#e)>p0Ysw(T3TNWB+?ik<CRaQ1eyZYT>r&pbcPbD#?
z<6^)|D<+uqs?#&^>13!CPMP3@S5qwJa+$*OwoN0OMh<T`!3SPePM%I@)7k0gZQmLF
z&S=WJ0y18vD9?skmr(x1t1hOJdAzyLyfoWZz-8Q$E?}=rkXcv(H@%vz#Z)*Mmn+!h
zQx`Mw0?trcZT4xV3AI<?2A`%V=aL0`sP*Q}70}~T+0)rA72xuziltnlLJaz}1U6*S
z*)yc6g}pvaJ~xv)efnA7({J2!MB&z=@+qI1l-ZZ+d~e))L=h}2CwyxA)O<1dX7mNe
zYVE5&H354z`i`TaN%m>%<(R|-ov)KSV0;(9i@_YOg@x#XLr}lJ^Qv$r%87%DmgpX_
zJzV2|%WA{cI?45O=d}IYTh<#o#z;Hr;HFPKjnR`Sna=A{JQ((I>)U_K-_Y&DSk=M5
z`PI{@TmcJ3#+N~R(`kRitbr#DKK%qI<LJH9Ppn`2)#q|~xg#bl`DwJ)fof1QU5-*r
zh^n1+ffj#*<s{!=S>kK_6(3~IW}x}J66yz))9o>VjK6NG>riYZrGHS_-Wd~y24$|3
zYw^45BG_R5wMlLLhIeq+xVaW=(MO%@R^GPqz>aT>o9l4p4d)u;!-K7<_Q%m~*+BHH
z^WMMwd~k`U=`V8;93h_%PL$I*CUkO_P*V>wrwdR&lQ|FX6HNDwo0o2m>FeRsL4D_0
zd|DK8nNku%wNXblmauE~259f=IGC;=vjO%*$6fW|J$Nk*mOVcDyasqKpe^R(*+Lp$
zWzXB58GdH?V=q0|8sO>8eHhpe1H?)N`cg6B72BA;5!aLne2ZQ79rBg*|L7yt#eg!=
zQc+#0s{T8mK$6TY2B<kK1~O%$MpA^4cwTqhXVZ7_*8(?m*YJQwXp+>4nOq6$;O*L@
zwI=+?l76H4TA+(B)h25v(A7q`M^aTvWf_aF5rUFBp2<*`{LD+~&<Oh^Wdd(`k8~}N
z;vbVp^|z9utg%Y@vc>|<6Oyu{m0D}-7prCNyV6m^vUif}k!XVjUWxw1UAOaE;MTDg
z_()PG^YH?@c9Kt&IUh^vsZ2b3CMJBVqoVnPq$bz!(?0W3Tvx#_0yWhui3wn!Ted}Y
zp1YMgDQfpLgsoELVm`ikLw7@G^8;p^2RjaJHSc6`Yc)S7x#n_`+587q&;x@=KK&$j
z$4<N#ddiaNWiMrG1f46ZI?Li}cwr|;G2Kv1<*|EUGpDQHkAJ~zpqy$1dMtzC7;lx(
zug^SPt4cd-u(=eIR8yDQ=$)ydQd|vpNADVFuAvyM23K@w;O+q`Z+tl^e$;?I+MDgm
z-g3d$a<I|77-+Ur1o4?#Z&Idv$Mj9Ge~4X&y)G_OSGM40s+kmT@$EzZhohx|d&0|J
z#yC9mpd%tJdwYiH%OX-guF70HrYjgqm@_i>nAC%AG(mBw=4*THKE`xmXvr^g_abxI
zOW~pPqkosZ4VE&(9&x#a`ocmZb@ws-9U$#W&E}I+XVV$1oE;~5ZQT>QsMkcy9Q>7O
zyX9G|W))0u+b!SRwd8LeY_QzGH4SXH9Nb0IW(~Z&OD&(BnVF~bAUq$P^{x(oSBglB
zfjyX1R?Nm`Q0)BEnZyL?^-nXT8CC{0_Ud4{)x>NDa*}Qv40r65xe4xf0#Unyw?@#i
zcXO~MNV-t4I<>yJYuW4JBNC~tN*Iqm>T3=k399Wg@jPbgviBq|;u5?bWbI$4=CT(I
z_`Kq*<)sgT>YiJ4q85W}&!12a7%LVQg4*=VOj1slf0b#+tE6n=v1k_q^`>oBv`1BK
zh476arE)Q!PGCO$f8wG4Beo4IuoqU^DQ3En`m6_YlZ?2B73V7n6V_XNf5aeLVQhFh
zk(-%KXRs=luzAz<Qsb!P-b43M?v3eNqR;soSn{d4*Z5-exZm1S1&k5jdDVKNaiNpO
z&GXnJTi|EIYI`<5gLbJ{s28t-qgWxGTrsK|Y!B-sEQ!p9N_H&<&hzi1+zL!cf%Ua1
zl<XJ?o#*E|WNdn1SPZ;4OhKXJh&38gWQo-m%9lAhNgsM^*i&A6Hl)B5TsBN{n?jS=
z`VZ9VU?5cKf5d*+@Z#{8J}kg1Aq74{Hiha<>bZ`-5bYM=bVz|ut`z@Th|qt86jPOR
zaA-(iVDJ|db!J0_dMTvBgq^JftO>^N+i1ozeJwP>UAvbiPh=&+8Z!k@0L_T1lun+D
z3BF-{2yeL`2M~=Go#gKv)3?E;U0gm{dEyk)IsCXC<-+!ZY}vfN+w_O_&Fg!cHn0D(
zZS(p;iYMlEdsDaRqv+#-*6=OOPlR*cPJF`cD9@xyqTC9bRoa0gJ0@(mbeqU_gJrvA
zYGh1L|EZ9yKIo`yOCuMXiD`q+M;6Py^S?%Hpd5{N$Ap|fD{H|x`WrddwQ?;qjefdS
z&h5S*Mce2?CYPHHqS!V1oAl|wu3HORMi;QLWS>Rx{?UbGrjVROabR?DDmk6bzK8Pg
i=;GOIF`Ze3+xCtwo=agSPNRPR=u$p8n~WEgEB_ZRKQ_1k

delta 4336
zcmZ8l3vg5Cl|Isy<SXgw0T#A}9c23=Ojsj_JPg5LgA;09y=4j8lFhcHY@^AxPIf$W
zv)$banx;vL+nT5o_f1Ngs&PWIyJ;q+j~z?8*OrJLt|W{+!5x|aO=#U^H>A4>*=5g>
zOj^ne=6vV>{_~%E{`2_FQ!mK=@FUrj)$p0Ipv(wccD=Rp{9ip6*l>LBuaEn5uUKTS
zHk*Ipebx%qKYp0oSeH6mEK2!uxcwKgm6o5FwvTQf1sH^9tcpTDyL8(6THv);UcD{T
z!X!P(SB~zKlp9oV&wZ?v7q_Mgq7>)f-+0_$<KEvmz(uqw7>GT#rz`q^U75qhopFAp
zZHu|F&Gq}%MeU@$MtRyUw<S*6K?N_{W&BCI?4(_;g41?+XXT`wQGtZg(n-5Q1qHjj
za{EcUQUyzP`R%Avso*WU3{{4@I#{u*ddY=SxLqZL+wmOpqV{5w+B|TOyQ-~&|F&!M
zg?v%U7E*~aI;s#rAP;VF3IrR+=xy9{+K9GWfNnwFEhxGLRky%)3z}|$i}O?U2AH(l
zxCSHJs;7@g8zy7N_il+c2uy0>>@DU7gjst;%ffdACRu!aMgSIGLsm95BQ&v)BvG6Z
zDlFtk%*+TQEL2EboDqJ?!dn6(N|hPm49mhFNM4!|o@C(zfyv}i{Wc3q2a2dovk)~p
zn0#SjM!3R4vx8YkCuRgY3!6wpEz80-6tk#}u&|3n)NW>Bz`+#Dc=R3?21zW<2%li#
zfP*PX=;jU<A|#@l|HHxriO7AFh0i;fasr*0Vc{tfm+qVqe#FApQ7)nSXDpmRv4Y2a
znS~h=(eSrecooGZ)P6$^v#~4vo1&BU2RYF77~#fl{g^N&Ow}7<)_%fZ>Z}tyLwjAq
z{gf*<?jbv)U(_=C0ihQCy50Jz`j*wJFznVh80&sxoT|qU62|Kl;HZXP4X-<xgqT`(
zd}6#s4Spw+$cxL4Rsw(RWKy|>=(1y$(BC>4sZd;Y>>==|lgWySWyiAw9(OW@A_5@r
zw38_%(cA?BClHiz<;bTIyo9z(*=2`Jr&GgeC*Bs)5*(+7IVWBcg5MA*q3IHyvzKTW
zoJ_P>z)fw0R-8<cTsTPJ1F~INb{sV+)KKTb)IxCKO9)H^me6eiZ7%c_S57`-QiF{E
zt~~oyJgCQo1`r&XM4H{joS{=qM-c2skXyh{J@Q2~{eX)}X3ER4uiwu{A9l${N8`Lt
zh-fwNO_#jyK%5^Cd_tGuu>NzdfvWn4s74N{PZ?^eU%Hq++Lv@qV?k+P!6iS?M`l3h
z#{1O3G&h8oq6g5`EKPHvs;vu1te)3pNE;%q=rl)rZsn-m@&o8b#6^}n-OK?p9dTVk
ztc82s@>J;>KLuJ4P)uFp{{_XMTYksxYy1L=A9pi%?CQP7Uq$&LRPVaR8&Ui$s(X=g
z2g*m?@<p`a18o$(f-)L;1l8YgV>y-Me1owytf#Y{b2CZlS8@Ik_lwoDe}XudiStja
zVi9p38_S_pTt>W*jr0GwiZ3EgrQ*D26<<TVi1_JMtnfsUP>S=RRfWle1jOI1Vh%QX
z6nA1G#d(oC=1dDk!!PZ_PLcaJr^ii^?=mboDJmS?jYLep8gbk~#OJHT&?+&zN<83E
zoLjZH<UHh#-fHGcxcZTqL%5Z$hPGy%bjoucrYD6x{cGw`*PuPK`IKSCGQgcOM6^2C
zXjdmnB`KH8N=1x7Kea&}{Mxgxr#2<J+Io!tdqZt5@IA)=!+)=MXnp-PkD|7|(sr>)
z<c=E#xY~*-<{EHCw|bS?L{h?-`h;#Ttr+2RUS%ein3uxsFl&UbdR66ep^z;dvo?)3
zjUMec!gsu^D9vT^nf&}Q>jPsCjJ@bx1221-vbYd#&!8-NmF2Wl#G5<gwQ&*c8d$(B
znG*KO6q>zpV-39NRrQtAQ7IwfF|Y>S#Vy%H3CAQMxlc7usG|mrK2=#PNTuEywD=Ug
znf%Tgu=y0_#X_nEdVFdETeF$`>!eu=cAu(P$Q9=1{>Jy{3wJ**bE#1o_9;o3{|A%r
zh3>~?BUR<YK4oumsVsdZHe+vAKju>s=>6AN-rm>}_o;fTF~M1cUvyai4E|&=hu6Y<
zOeXNkZ|}dx|2THLFep>R{z>S#?TYWERx7sFX>Nc!ryk&5YQ3&u^t8hSZ^mW?%g*on
zmGkLB3Clq=+qjOF7yMK8D)_9<r=8?P^8m;BiJR~%&lQSdXPnRYX@Z*IxBi&faa%y)
zZ#17WG@36PuJ~#Ph@4eN({~-b@0ZVa#Cfv$ywTJt>m%jegYphroWFNa<ZPV6?=nqc
z_xO2>vh`!$!Qt`xwZO)na%^6A%gX)xJ~m!&!j(D42E8!Yp6+-A?N$xM{>#yQZ*K6i
zfo8kNP2qgV4Ng{bHO||(cTm#+BDXR~%}V6l1|M(SK3;$MMnu~HbFqU?bF?);yytPk
zTt#go^anI}cZuZLY@)an=l{-1-*>U8-)G|*&HX<5wnq4LKwT~-@}&$usg79>h7N{i
zz4X><ghzMm#bACnK&%%7d((0Ld)A1y3D@MQJ#l`)_etNP_V0b9N(JPpwrEXvbyc?*
zkReOt(gCXbbl~MG^PPaKEzY0U9P?SVU4}OT*EMh80ZnitpiJcoi<sdruYGc@5x;Oz
zyRH6>K$l^0t+aL$U2THKprTd;6)(Y_pfZuoQvW;SeGm!JCU6AhDZJYL;2VLoVK7K6
zd{$O9Ot4thnBn1|ytAE}X8RwTMebnmNnOP|%~^uPH^b4OVlI=#`u&uSJmJt2^5do#
zW;hX4O2tG8Jw0XkVRg%FP?^jo@^`!*=O;RAs$x({uHvVj@lu@E!|^~}Q7RR(^ogLO
zD`#UJ?mMF^f%kNW*O)rF!F>U*YiM7q%j?D1SanRWc9+XHu4}GqSU+Ggy0P1ku|Eb`
zG*+$PI6uwFt2xN}53ixe1(AH(X%6<|&Cx@a4y$-6nJ3WSs>)Uso8ghp{TzjTYdKxS
z)`6XzvLlFpK}RXq1oTt}-EjjGTnWS!p04$$_t#-#DN9so?`)(;ri#k28P>(z9!niX
zu^DW!3D2D#Ds6l<$-do)@$I$rR=m|>$DnSjPX{c$6jXepHW=lZ-4SgI1c%to*yj==
zb>t6mGnG`@@F8Ar#k(u^uIKJh#mne-4J}}WPXsGo%Mg9rL~sDtMNWe$4Z20lE0G%v
zTF{Xecx|ZeBa0dzV@wWZ{32&YX2nYZq70><mDuOK&4c$2rx%J+@@yt6()FrMp<$6b
zubHan;2~qb`9Z8}1x#}N=KF>-e)(Xd`8uwtpx^xQVHzqM;Gc(;;@MmdtF4CrJ@z|q
zbM#<vBA5>JV}>!9nHIPh{PWTC_AtHjX;fI?gJD(g>ioFb#jHB&UUadbgZ&~m$^D)u
zs%hlrq^Wps8&Qpru5V;@INdi~@wyEYK~lHMArO1QXNf*EqU_BjikPMq?<riwCHV3P
z+xt;oVn}p{vBfggrSFX>cip5D_4Ek4>(8i%^)(Bb5p^b)lf+E*R~8MX4keBO>n0s&
zFz#tZdsO1B5WO%$Sz9h<QkXh_Nj&l=qB<nQu2^fVnACdexNb~CGO{fsJ73F<sP;qe
ze`3&E!5x}U6><xiES6RV+c@24t#&ER4sEA2i)h<oKkzpmBA+a~^%J4-dNp=yMPFZE
ztJG=SUdx23dMmuAb7TIj@)$k7^j52iM#)NGynYFrYa2WjQugK(IXsdoh8p&IcoOTx
z#+{B?20O5>u`se*Yj)Ft^M;?I+zxMtWLRWPVX5=3@OeX}Q^ei~x^!S7L}$`*#M&E{
z<%zW^T&!|d0#`%FL+<L@gJBsa=X<(ot|>f?^WpGX4cry3^+{rXN;eUTXhS?a7M5Wf
zYYI0Qm6gs-VcN~Zi(wf)y3&Rx!h~kSvSjTXoGby*G59NrGP|`#&4(43%L}zww!rxI
zZS`2JPsBC^8is!tRxD<ub8-Hj(A5y#w+1fb1AHamw?(uYAwSF&rP`CGoGIX^Y{nQ(
z)%!s-@7U5~{Ev<uTXwhX*z*3y9b4|9=wX6)wDcHH#Eu2pqc=6*=YQt4;gfB1byC$b
z=4OzX;65DQ7<+S%k!<5UGsj0GTKaziY4rg|_51VD3l?Hpp)h)>+Aq(ITH&{&iJmxL
z;Av$OygT})Sm;`}31nk$^@)W8_o1j6yO=E$7DiAsjlG$f`;2K5SjH}5E6INW#m!?E
zrEE!>M)9t(OG#-ylYbTE-myz(^W{u-J#KT1T{@S>l$=NX(Aedov>+wQ@^$|YC6E}x

diff --git a/6502/C64/disks/tc38q.d64 b/6502/C64/disks/tc38q.d64
index 7903ee6..3881c40 100644
--- a/6502/C64/disks/tc38q.d64
+++ b/6502/C64/disks/tc38q.d64
@@ -1 +1 @@
-\  ###  ÍAIN ÄIRECTORY  ###  CCLV05JAN87                                          ÖERSION ÈISTORY     $02                  (Ã16 (Ã64 )         $03                  ÒELOCATE ÓYSTEM     $04                  ÓPECIAL-ÁSSEMBLER   $05                  SAVESYSTEM          $0Å                  ÔARGET-COMPILER     $10                  FREE                $34                                                           ÔARGET ÃOMPILER ÍAN $56                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               \  ###  ÍAIN ÄIRECTORY  ###  CCLV05JAN87                                          ÖERSION ÈISTORY     $02                  (Ã16 (Ã64 )         $03                  ÒELOCATE ÓYSTEM     $04                  ÓPECIAL-ÁSSEMBLER   $05                  SAVESYSTEM          $0Å                  ÔARGET-COMPILER     $10                  FREE                $34                                                           ÔARGET ÃOMPILER ÍAN $56                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               \                            CCLV06DEC88                                          CAS18AUG06 - ENGLISH TRANSLATION         CLV06DEC88 - REWRITTEN ÍANUAL                                                     CLV/RE APR-OCT87                          FOR REV 3.8 - Ã16/Ã64                    ÓCR 3,4,C,10,12,1B,2F                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         CLV2:JUL87                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        \ ÒELOCATING A SYSTEM        CLV2:JULL87                                          $9400         $0400                      ( STACKLENGTH RSTACKLENGTH -)             EMPTY HEX                                OVER + ORIGIN +  ORIGIN 0Á + ! \ R0      ORIGIN +  DUP    ORIGIN   1+ ! \ TASK                6 -  ORIGIN  8 + ! \ S0      (16 $C000 ' LIMIT >BODY ! Ã)             COLD                                    \\ SYMBOLIC MAP OF SYSTEM                UP@ ORIGIN - IS STACKLENGTH              R0 @ UP@ -   IS RSTACKLENGTH                                                      DISK-BUFFER  LIMIT        FIRST @        RSTACK       R0 @         RP@                                                     USER, WARM   UP@ UDP @ +  UP@            (HEAP)       UP@          HEAP           STACK        S0 @         SP@                                                     SYSTEM       HERE         ORIGIN 0ÆÅ +   USER, COLD   ORIGIN 0ÆÅ + ORIGIN         SCREEN       0800         0400           PAGE 0-3     0400         0000          ( ÆORTH-6502 ÁSSEMBLER             ×ÆÒ ) ( ÂASIS: ÆORTH ÄIMENSIONS ÖÏÌ ÉÉÉ ÎO. 5)                                          ÏNLYFORTH  ÁSSEMBLER ALSO DEFINITIONS                                             1 8  +THRU                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         ( ÆORTH-83 6502-ÁSSEMBLER              )                                          : END-CODE   CONTEXT 2- @  CONTEXT ! ;                                            ÃREATE INDEX                             0909 , 1505 , 0115 , 8011 ,              8009 , 1Ä0Ä , 8019 , 8080 ,              0080 , 1404 , 8014 , 8080 ,              8080 , 1Ã0à , 801à , 2Ã80 ,                                                       Ü ÖARIABLE MODE                                                                   : ÍODE:  ( N -)   ÃREATE C,                ÄOES>  ( -)     C@ MODE ! ;                                                     0   ÍODE: .Á        1    ÍODE: #         2 Ü ÍODE: MEM       3    ÍODE: ,Ø        4   ÍODE: ,Ù        5    ÍODE: Ø)        6   ÍODE: )Ù       0Æ    ÍODE: )                                                                                                                                                                                                                                                              ( ÃODE GENERATING PRIMITIVES  27JUN85WE)                                          ÖARIABLE >CODES                                                                   Ü ÃREATE NRC ] C, , C@ HERE ALLOT ! C! [                                          : NONRELOCATE   NRC >CODES ! ;                                                    NONRELOCATE                                                                       Ü : >EXEC ÃREATE C,                               ÄOES> C@ >CODES @ + @ EXECUTE ;                                          Ü  0 >EXEC >C,       Ü  2 >EXEC >,       Ü  4 >EXEC >C@       Ü  6 >EXEC >HERE    Ü  8 >EXEC >ALLOT    Ü 0Á >EXEC >!       Ü 0à >EXEC >C!                                                                                                                                                                                                                                                                                                                                                                  ( UPMODE  CPU                          )                                          Ü : UPMODE ( ADDR0 F0 - ADDR1 F1)         ÉÆ MODE @  8 OR MODE !   ÔÈÅÎ            1 MODE @  0Æ AND ?DUP ÉÆ                 0 ÄÏ  DUP +  ÌÏÏÐ ÔÈÅÎ                   OVER 1+ @ AND 0= ;                                                               : CPU  ( 8B -)   ÃREATE  C,                ÄOES>  ( -)    C@ >C, MEM ;                                                      00 CPU BRK  18 CPU CLC  Ä8 CPU CLD       58 CPU CLI  Â8 CPU CLV  ÃÁ CPU DEX       88 CPU DEY  Å8 CPU INX  Ã8 CPU INY       ÅÁ CPU NOP  48 CPU PHA  08 CPU PHP       68 CPU PLA  28 CPU PLP  40 CPU RTI       60 CPU RTS  38 CPU SEC  Æ8 CPU SED       78 CPU SEI  ÁÁ CPU TAX  Á8 CPU TAY       ÂÁ CPU TSX  8Á CPU TXA  9Á CPU TXS       98 CPU TYA                                                                                                                                                                                                                                          ( M/CPU                                )                                          : M/CPU  ( MODE OPCODE -)  ÃREATE C, ,    ÄOES>                                    DUP 1+ @ 80 AND ÉÆ 10 MODE +! ÔÈÅÎ       OVER ÆÆ00 AND UPMODE UPMODE              ÉÆ MEM TRUE ÁBORT" INVALID" ÔÈÅÎ         C@ MODE @ INDEX + C@ + >C, MODE @ 7 AND  ÉÆ MODE @  0Æ AND 7 <                     ÉÆ >C, ÅÌÓÅ >, ÔÈÅÎ ÔÈÅÎ MEM ;                                                   1Ã6Å 60 M/CPU ADC   1Ã6Å 20 M/CPU AND    1Ã6Å Ã0 M/CPU CMP   1Ã6Å 40 M/CPU EOR    1Ã6Å Á0 M/CPU LDA   1Ã6Å 00 M/CPU ORA    1Ã6Å Å0 M/CPU SBC   1Ã6à 80 M/CPU STA    0Ä0Ä 01 M/CPU ASL   0Ã0à Ã1 M/CPU DEC    0Ã0à Å1 M/CPU INC   0Ä0Ä 41 M/CPU LSR    0Ä0Ä 21 M/CPU ROL   0Ä0Ä 61 M/CPU ROR    0414 81 M/CPU STX   0486 Å0 M/CPU CPX    0486 Ã0 M/CPU CPY   1496 Á2 M/CPU LDX    0Ã8Å Á0 M/CPU LDY   048à 80 M/CPU STY    0480 14 M/CPU JSR   8480 40 M/CPU JMP    0484 20 M/CPU BIT                                                                                                        ( ÁSSEMBLER CONDITIONALS               )                                          Ü : RANGE?   ( BRANCH -- BRANCH )         DUP ABS  07Æ U> ÁBORT" OUT OF RANGE " ;                                          : [[  ( ÂÅÇÉÎ)  >HERE ;                                                           : ?]  ( ÕÎÔÉÌ)  >C, >HERE 1+ -                           RANGE? >C, ;                                                      : ?[  ( ÉÆ)     >C,  >HERE 0 >C, ;                                                : ?[[ ( ×ÈÉÌÅ)  ?[ SWAP ;                                                         : ]?  ( ÔÈÅÎ)   >HERE OVER >C@                           ÉÆ SWAP >!                ÅÌÓÅ OVER 1+ - RANGE? SWAP >C! ÔÈÅÎ ;                                            : ][  ( ÅÌÓÅ)   >HERE 1+   1 JMP          SWAP >HERE OVER 1+ - RANGE?  SWAP >C! ;                                          : ]]  ( ÁÇÁÉÎ)  JMP ;                                                             : ]]? ( ÒÅÐÅÁÔ) JMP ]? ;                                                         ( ÁSSEMBLER CONDITIONALS               )                                          90 ÃONSTANT ÃÓ    Â0 ÃONSTANT Ãà         Ä0 ÃONSTANT 0=    Æ0 ÃONSTANT 0<>        10 ÃONSTANT 0<    30 ÃONSTANT 0>=        50 ÃONSTANT ÖÓ    70 ÃONSTANT Öà                                                  : NOT    20 [ ÆORTH ] XOR ;                                                       : BEQ    0<> ?] ;   : BMI   0>= ?] ;     : BNE    0=  ?] ;   : BPL   0<  ?] ;     : BCC    ÃÓ  ?] ;   : BVC   ÖÓ  ?] ;     : BCS    Ãà  ?] ;   : BVS   Öà  ?] ;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                \ 2/W/INC/DEC C16 RAM/ROM..  CCLV2:JUL87                                          : 2INC                                    DUP LDA  CLC  2 # ADC                    DUP STA  ÃÓ ?[  SWAP 1+ INC  ]?  ;      : 2DEC                                    DUP LDA  SEC  2 # SBC                    DUP STA  Ãà ?[  SWAP 1+ DEC  ]?  ;                                               : WINC                                    DUP INC  0= ?[  SWAP 1+ INC  ]?  ;      : WDEC                                    DUP LDA  0= ?[  OVER 1+ DEC  ]?  DEC  ;                                          : ;C:                                     RECOVER JSR  END-CODE ]  0 LAST !  0 ;                                           (16 \ Ã16+ÍACROS FOR ÂANKSWITCHING       : RAM $FF3F STA ;   : ROM $FF3E STA ;    ' ÊSR ÁLIAS ÎORMÊSR   ÄEFER ÊSR                                                   : Ã16+ÊSR DUP 0C000 U>                    ÉÆ ROM ÎORMÊSR RAM ÅÌÓÅ ÎORMÊSR ÔÈÅÎ ;  ' Ã16+ÊSR ÉS ÊSR  Ã)                                                             ( ÁSSEMBLER ;CODE ÃODE ÌABEL  03FEB85BP)                                          ÏNLYFORTH                                                                         : ÁSSEMBLER                               ÁSSEMBLER   [ ÁSSEMBLER ] MEM ;                                                  : ;ÃODE                                   [COMPILE] ÄOES>  -3 ALLOT                [COMPILE] ;      -2 ALLOT   ÁSSEMBLER ; IMMEDIATE                                                                         : ÃODE  ÃREATE HERE DUP 2- ! ÁSSEMBLER ;                                          : >LABEL  ( ADR -)                        HERE Ü ÃREATE  SWAP , 4 HALLOT                  HEAP 1 AND HALLOT   \ 6502-ALIGN         HERE 4 - HEAP  4  CMOVE                  HEAP LAST @ COUNT 01Æ AND + !     DP !                                            ÄOES>  ( - ADR)   @  ;                                                    : ÌABEL                                   [ ÁSSEMBLER ]  >HERE >LABEL ÁSSEMBLER ;                                         \ CÓAVE CÌOAD..               CLV08AUG87                                          \NEEDS ÃODE   .( ?! ÃODE ?!) \\          ÁSSEMBLER                                (16 \NEEDS ROM    .( ?! ROM ?!) \\  Ã)                                            ÏNLYFORTH                                $ÆÆ90 >LABEL SETÍSG   $90 >LABEL STATUS  $ÆÆÂÁ >LABEL SETLFS $ÆÆÂÄ >LABEL SETÎAM  $ÆÆÄ8 >LABEL ÂÓÁÖÅ  $ÆÆÄ5 >LABEL ÂÌÏÁÄ   ÌABEL SLÐARS                              SETUP JSR (16 ROM Ã)                     $80 # LDA SETÍSG JSR 0 # LDA STATUS STA  Î LDA SEC 8 # SBC  (DRV    STA                 Ãà ?[ DEX ]? (DRV 1+ STX           Î LDX     Î  1+ LDY 1 #  LDA SETLFS JSR  Î 4 + LDX Î 5 + LDY Î 2+ LDA SETNAM JSR  Î 6 + LDX Î 7 + LDY                      RTS END-CODE                                                                     ÌABEL SLÅRR \ ÁÒ=ËERNALERROR              Ãà ?[ 0 # LDA ]? PHA                     STATUS LDA $ÂÆ # AND                     (16 RAM Ã) PUSH JMP END-CODE                                               -->  \ SAVESYSTEM                   02OCT87RE                                          ÏNLYFORTH                                                                         ÃODE CÓAVE ( F T+1 ÎAME ÎLEN DEV--ERR)    5 # LDA    ÓÌÐARS JSR                    Î 8 + # LDA BSAVE JSR                    SLÅRR JMP END-CODE                                                               : SAVESYSTEM \ -- ÎAME MUST FOLLOW        \ ÆORTH-ËERNAL A LA BOOT:                  SCR PUSH 1 SCR ! R#  PUSH 0 R# !       \ ÅDITOR  A LA BOOT                        [ ÅDITOR ]                               STAMP$ PUSH STAMP$ OFF                   (PAD   PUSH (PAD   OFF                 \ NUN GEHT'S LOS                           SAVE                                     ORIGIN $17 - HERE     0 PARSE            8 CSAVE ABORT" ÓAVE-ÅRROR" ;                                                                                                                                                                                                                      \ ÔARGET COMPILER LOADSCR     CLV14OCT87 \ ÉDEA AND FIRST ÉMPLEMENTATION BY KS/BP \ ÉMPLEMENTED ON 6502  BY KS/BP          \ VOLKSÆÏÒÔÈ83-ÖERSION BY BP/WE                                                   ÏNLYFORTH HEX                            \NEEDS (16   .( ?! (16 (64 ?! Ã) QUIT    ÁSSEMBLER \NEEDS NONRELOCATE 5 LOAD      ÁSSEMBLER NONRELOCATE                                                             ÖARIABLE ÉMAGE      Ã000 ÉMAGE !                                                  ÖOCABULARY ÔTOOLS                        ÖOCABULARY ÄEFINING                                                                                                         1 10 +THRU   \ ÔARGET COMPILER          11 13 +THRU   \ ÔARGET ÔOOLS             14 16 +THRU   \ ÒEDEFINITIONS            CLEAR                                    \ HEX 17 20 +THRU   \ PREDEFINITIONS                                                                                                                                                                        \ ÔARGET HEADER POINTERS     BP27JUN85WE                                          ÖARIABLE TDP                             : THERE  TDP @ ;                                                                  ÖARIABLE DISPLACE                        ÖARIABLE ?THEAD       0 ?THEAD !         ÖARIABLE TLAST        0 TLAST !          ÖARIABLE GLAST'       0 GLAST' !         ÖARIABLE TDOES>                          ÖARIABLE >IN:                            ÖARIABLE TVOC         0 TVOC !           ÖARIABLE TVOC-LINK    0 TVOC-LINK !                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 \ ÉMAGE AND BYTEORDER        CLV2:JULL87                                          ÃODE ROMOFF (64                           SEI 034 # LDA 01 STA Ã) ÎEXT JMP                                                 ÃODE ROMON  (64                           036 # LDA 01 STA CLI Ã) ÎEXT JMP                                                 ÃODE >BYTE   ( 16B - 8BL 8BH)             ÓÐ )Ù LDA PHA TXA ÓÐ )Ù STA              ÓÐ 2DEC TXA                              ÓÐ )Ù STA PLA ÐUTÁ JMP                                                           ÃODE BYTE>   ( 8BL 8BH - 16B)             ÓÐ Ø) LDA PHA ÓÐ 2INC PLA ÓÐ )Ù STA      ÎEXT JMP END-CODE                                                                : >IMAGE    ( ADDR1 - ADDR2)              DISPLACE @  -  IMAGE @  + ;                                                      : >HEAP  ( FROM QUAN -)                   HEAP OVER - 1 AND +      \ 6502-ALIGN    DUP HALLOT HEAP SWAP CMOVE ;                                                                                             \ ÇHOST-CREATING             BP27JUN85WE                                          0 Ü ÃONSTANT <FORW>  0 Ü ÃONSTANT <RES>                                           Ü : ÍAKE.GHOST  ( - CFA.GHOST)            HERE ÓTATE @                             ÉÆ   ÃONTEXT @                           ÅÌÓÅ ÃURRENT                             ÔÈÅÎ @ DUP @ ,                           NAME  DUP  C@ 1 01Æ UWITHIN                         NOT ABORT" INVAL.ÇNAME"             1 OVER +!  C@ 1+ ALLOT             HERE 2 PICK - -ROT                       <FORW> , 0 , 0 ,                         OVER 2+ C@ 1 AND 1 XOR >R                OVER R@ -  HERE OVER - >HEAP             HEAP R@ + SWAP !       ÄP !              HEAP R> + +  ;                                                                                                                                                                                                                                                                                                                        \ GHOST WORDS                KS27JUN85WE                                          : GFIND  ( STRING - CFA TF / STRING FF)   DUP >R  1 OVER +!  FIND  -1 R> +! ;                                              : GHOST   ( - CFA)                        >IN @  NAME  GFIND                        ÉÆ NIP EXIT ÔÈÅÎ                         DROP >IN ! ÍAKE.GHOST ;                                                         : ×ORD,  GHOST  EXECUTE ;                                                         : GDOES>  ( CFA.GHOST - CFA.DOES)         4 + DUP @                                 ÉÆ @ EXIT ÔÈÅÎ                           HERE DUP <FORW> , 0 , 4 >HEAP            ÄÐ !  HEAP DUP ROT ! ;                                                                                                                                                                                                                                                                                                                                                        \ GHOST UTILITIES            KS27JUN85WE                                          : G'   NAME GFIND 0= ABORT" ?" ;                                                  : '.                                      G' DUP @ <FORW> CASE?                      ÉÆ ."  FORW"                             ÅÌÓÅ <RES> - ABORT" ??" ."  RES" ÔÈÅÎ   2+ DUP @ 5 U.R                           2+ @ ?DUP                                 ÉÆ DUP @ <FORW> CASE?                     ÉÆ ."  FDEF"                             ÅÌÓÅ <RES> - ABORT"  ??" ."  RDEF"       ÔÈÅÎ                                     2+ @ 5 U.R ÔÈÅÎ ;                                                                                                      ' ' ÁLIAS H'                                                                                                                                                                                                                                                                                                                           \ .UNRESOLVED                BP27JUN85WE                                          Ü : FORWARD? ( CFA - CFA / EXIT&TRUE)     DUP @ <FORW> =                           OVER 2+ @ AND                            ÉÆ DROP ÔRUE RDROP EXIT ÔÈÅÎ ;                                                   Ü : UNRESOLVED? ( ADDR - F)               2+ DUP C@ 01Æ AND OVER + C@ ÂÌ =         ÉÆ NAME> FORWARD? 4 + @                     DUP ÉÆ FORWARD? ÔÈÅÎ                  ÔÈÅÎ DROP  ÆALSE ;                                                               Ü : UNRESOLVED-WORDS                      ÂÅÇÉÎ @ ?DUP ×ÈÉÌÅ DUP UNRESOLVED?          ÉÆ DUP  2+ .NAME ?CR ÔÈÅÎ             ÒÅÐÅÁÔ ;                                                                         : .UNRESOLVED                             VOC-LINK @                               ÂÅÇÉÎ DUP 4 - UNRESOLVED-WORDS           @ ?DUP 0= ÕÎÔÉÌ ;                                                                                                                                                 \ ÅXT. VOCS FOR T-COMPILAT.  BP27JUN85WE                                          : ÖOCABULARY                             ÖOCABULARY 0 , HERE TVOC @ , TVOC ! ;                                             ÖOCABULARY ÔRANSIENT    0 TVOC !                                                  ÏNLY DEFINITIONS ÆORTH ALSO                                                       : Ô ÔRANSIENT ;   IMMEDIATE              : È ÆORTH     ;   IMMEDIATE                                                       DEFINITIONS                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         \ ÔRANSIENT PRIMITIVES       KS04JUL85WE                                          ÔRANSIENT DEFINITIONS                                                             : C@    È >IMAGE ROMOFF C@ ROMON ;                                                : C!    È >IMAGE ROMOFF C! ROMON ;                                                : @     Ô DUP C@ SWAP 1+ C@ BYTE> ;                                               : !     >R  >BYTE R@ 1+ Ô C!  R> C! ;                                             : CMOVE ( FROM.MEM TO.TARGET QUAN -)         BOUNDS ?ÄÏ                               DUP È C@ É Ô C! È 1+ ÌÏÏÐ DROP ;                                              : HERE  THERE ;                                                                   : ALLOT ÔDP +! ;                                                                  : C,    Ô HERE C! 1 ALLOT È ;                                                     : ,     Ô HERE !  2 ALLOT È ;                                                                                             \ ÔRANSIENT PRIMITIVES       BP27JUN85WE                                          : ,"    ÁSCII " PARSE DUP Ô C,                   UNDER THERE SWAP CMOVE ALLOT È ;                                          : FILL  ( ADDR QUAN 8B -)                        -ROT BOUNDS                              ?ÄÏ DUP  É Ô C! È ÌÏÏÐ DROP ;                                             : ERASE  0  Ô FILL ;                     : BLANK  ÂÌ Ô FILL ;                     : HERE!  È TDP ! ;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           \ ÒESOLVING                  KS29JUN85WE                                          ÆORTH DEFINITIONS                                                                 : RESOLVE  ( CFA.GHOST CFA.TARGET -)      OVER DUP @ <RES> =                         ÉÆ SPACE DUP >NAME .NAME ." EXISTS  "       2+ ! DROP EXIT ÔÈÅÎ                 >R >R 2+ @ ?DUP                          ÉÆ ÂÅÇÉÎ DUP Ô @ È                                 2DUP = ABORT" RESOLVE LOOP"          R@ ROT Ô ! È ?DUP 0= ÕÎÔÉÌ ÔÈÅÎ    R> R>  <RES> OVER !  2+ ! ;                                                      : RESDOES>  ( CFA.GHOST CFA.TARGET -)     SWAP GDOES> DUP @ <RES> =                ÉÆ 2+ ! EXIT ÔÈÅÎ SWAP RESOLVE ;                                                 ] ÄOES> [ HERE 3 - 0 ]                           DUP @ THERE  ROT ! Ô , È ;         ' <FORW> >BODY !                                                                ] ÄOES> [ HERE 3 - 0 ]                           @ Ô , È ;                          ' <RES>  >BODY !                      \ MOVE-THREADS  6502-ALIGN   CLV24.3.87)                                          : MOVE-THREADS                            ÔVOC @  ÔVOC-LINK @                      ÂÅÇÉÎ OVER ?DUP ×ÈÉÌÅ 2- @  OVER 2- Ô !        @ È  SWAP @ SWAP                   ÒÅÐÅÁÔ                                   ERROR" SOME UNDEF. ÔARGET-ÖOCS LEFT"     DROP ;                                                                            : TLATEST   ( - ADDR)                      ÃURRENT @ 6 +  ;                                                                : 6502-TALIGN  ( SUPPOSED CFA -- )       0ÆÆ AND 0ÆÆ =  ÉÆ  1 Ô ALLOT È  ÔÈÅÎ ;                                           : SAVE-TARGET   \ NAME MUST FOLLOW        08 02 BUSOPEN                            0 PARSE BUSTYPE " ,P,W" COUNT BUSTYPE    BUSOFF                                   08 02 BUSOUT                             DISPLACE @ 100 U/MOD SWAP BUS! BUS!      THERE DISPLACE @                           ÄÏ É Ô C@ È BUS! ÌÏÏÐ                  08 02 BUSCLOSE ;                       \ COMPILING NAMES INTO TARG. BP27JUN85WE                                          : (THEADER                                ?THEAD @  ÉÆ 1 ?THEAD +!                     THERE 6502-TALIGN EXIT ÔÈÅÎ          >IN @ NAME SWAP >IN !                    DUP C@ 1 020 UWITHIN NOT                                  ABORT" INVAL. ÔNAME"    DUP  C@ 5 +  THERE +  6502-TALIGN        BLK @  Ô , È                             THERE TLATEST DUP @  Ô , È !             THERE DUP TLAST !  OVER                  C@ 1+ DUP  Ô ALLOT CMOVE È  ;                                                                                             : ÔHEADER    TLAST OFF                    (THEADER ÇHOST                           DUP GLAST' ! THERE RESOLVE ;                                                                                                                                                                                                                                                                                                          \ PREBUILD DEFINING WORDS    BP27JUN85WE                                          Ü : EXECUTABLE?   ( ADR - ADR F)  DUP ;                                           Ü : TPFA,  THERE , ;                                                                                                       Ü : (PREBUILD   ( CFA.ADR -)              >IN @  ÃREATE  >IN !  HERE 2- ! ;                                                : PREBUILD   ( ADR 0.FROM.: - 0)          0 ?PAIRS                                 EXECUTABLE? DUP >R                       ÉÆ [COMPILE] ÌITERAL                         COMPILE  (PREBUILD                   ÅÌÓÅ DROP  ÔÈÅÎ                          COMPILE ÔHEADER  ÇHOST GDOES> ,          R>  ÉÆ COMPILE TPFA, ÔÈÅÎ 0 ;           IMMEDIATE RESTRICT                                                                                                                                                                                                                                                                            \ CODE PORTION OF DEF.WORDS  BP27JUN85WE                                          : DUMMY   0 ;                                                                                                              : ÄO>     ( - ADR.OF.JMP.DODOES> 0)                [COMPILE] DOES>  HERE 3 -                 COMPILE  @   0  ]  ;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  \ THE 6502 ÁSSEMBLER         BP27JUN85WE                                          Ü ÃREATE RELOCATE                         ] Ô C, , C@ HERE ALLOT ! C!   È [                                                ÔRANSIENT DEFINITIONS                                                             : ÁSSEMBLER  È                            [ ÁSSEMBLER ] RELOCATE >CODES !          ÁSSEMBLER ;                                                                      : >LABEL  ( 16B -) È                      >IN @ NAME GFIND  ROT >IN !               ÉÆ OVER RESOLVE DUP ÔÈÅÎ                DROP ÃONSTANT   ;                                                                : ÌABEL  È THERE Ô >LABEL  ÁSSEMBLER È ;                                          : ÃODE  È                                 ÔHEADER THERE 2+ Ô , ÁSSEMBLER È   ;                                                                                                                                                                                                                \ IMMED. RESTR. ' Ü COMPILE  BP27JUN85WE                                          : ?PAIRS    ( N1 N2 -- ) È                - ABORT" UNSTRUCTURED" ;                                                         : >MARK     ( - ADDR)  È THERE Ô 0 , È ; : >RESOLVE  ( ADDR -)  È                             THERE OVER - SWAP  Ô ! È ;   : <MARK     ( - ADDR)  È THERE ;         : <RESOLVE  ( ADDR -)  È THERE - Ô , È ;                                          : IMMEDIATE   È ÔLAST @ ?DUP              ÉÆ DUP Ô C@  040 OR SWAP C! È ÔÈÅÎ ;                                             : RESTRICT    È ÔLAST @ ?DUP              ÉÆ DUP Ô C@  080 OR SWAP C! È ÔÈÅÎ ;                                             : '   ( <NAME> - CFA)  È                  G' DUP @ <RES> -   ABORT" ?" 2+ @ ;                                              : Ü  È ?THEAD @ ?EXIT ?THEAD ON ;                                                 : COMPILE  È ÇHOST , ;                    IMMEDIATE  RESTRICT                                                             \ ÔARGET TOOLS               KS27JUN85WE                                          ÏNLYFORTH ÔTOOLS ALSO DEFINITIONS                                                 Ü : TTYPE   ( ADR N -)                    BOUNDS ?ÄÏ É Ô C@ È  EMIT ÌÏÏÐ ;                                                 : .NAME    ( NFA -)                       ?DUP                                     ÉÆ DUP 1+ SWAP Ô C@ È 01Æ AND TTYPE      ÅÌÓÅ ." ??? " ÔÈÅÎ  SPACE ?CR ;                                                  Ü : NFA? ( CFA LFA - NFA / CFA FF)          ÂÅÇÉÎ  DUP ×ÈÉÌÅ  2DUP 2+ DUP                     Ô C@ È 01Æ AND + 1+ =                     ÉÆ 2+ NIP EXIT ÔÈÅÎ                     Ô @ È  ÒÅÐÅÁÔ ;                                                       : >NAME  ( CFA - NFA / FF)                ÔVOC ÂÅÇÉÎ @ DUP ×ÈÉÌÅ UNDER 2- @ NFA?          ?DUP ÉÆ NIP EXIT ÔÈÅÎ                  SWAP  ÒÅÐÅÁÔ  NIP  ;                                                                                                                                         \ ÔTOOLS FOR DECOMPILING     KS29JUN85WE                                          Ü : ?:  DUP          4 U.R ." :"  ;      Ü : @?  DUP  Ô @  È  6 U.R  ;            Ü : C?  DUP  Ô C@ È  3  .R  ;                                                     : S  ( ADR - ADR+)                        ?: SPACE  C?  3 SPACES                   DUP 1+ OVER Ô C@ È TTYPE DUP             Ô C@ È + 1+ ;                                                                    : N  ( ADR - ADR+2)                       ?: @? 2 SPACES DUP                       Ô @ È [ ÔTOOLS ] >NAME .NAME È 2+ ;                                              : D  ( ADR N - ADR+N)                     2DUP SWAP ?: SWAP 0                        ÄÏ C? 1+ ÌÏÏÐ 2 SPACES -ROT TTYPE ;                                                                                                                                                                                                                                                                                                 \ ÔOOLS FOR DECOMPILING      BP29JUN85WE                                          : L  ( ADR - ADR+2)                       ?: 5 SPACES @? 2+  ;                                                             : C  ( ADR - ADR+1)   1 D ;                                                       : B  ( ADR - ADR+1)                       ?: @? DUP Ô @ È OVER + 5 U.R 2+ ;                                                : DUMP   ( ADR N -)                       BOUNDS ?ÄÏ CR É 8 D DROP STOP?             ÉÆ ÌÅÁÖÅ ÔÈÅÎ 8 +ÌÏÏÐ ;                                                        : VIEW                                    Ô ' È  [ ÔTOOLS ] >NAME                  ?DUP ÉÆ 4 - Ô @ È EDIT ÔÈÅÎ ;                                                                                                                                                                                                                                                                                                                                                  \ REINTERPRETATION DEF.-WORDS  27JUN85WE                                          ÏNLYFORTH                                                                         : REDEFINITION                            TDOES> @                                 ÉÆ >IN PUSH                                 [ ' >INTERPRET >BODY ] ÌITERAL PUSH     ÓTATE PUSH  ÃONTEXT PUSH                 >IN: @ >IN !                             NAME [ ' ÔRANSIENT 2+ ] ÌITERAL          (FIND NIP 0=                             ÉÆ                                        CR ." ÒEDEFINITION: " HERE .NAME        >IN: @ >IN ! : ÄEFINING INTERPRET        ÔÈÅÎ                                   ÔÈÅÎ                                     0 TDOES> ! ;                                                                                                                                                                                                                                                                                                                          \ ÃREATE..DOES> STRUCTURE    BP27JUN85WE                                          Ü : (;TCODE                               ÔLAST @ DUP Ô C@ + 1+ !  È RDROP ;                                               Ü : CHANGECFA                             COMPILE LIT TDOES> @  ,                  COMPILE (;TCODE ;                                                                ÄEFINING DEFINITIONS                                                              : ;CODE   0 ?PAIRS                        CHANGECFA  REVEAL  RDROP  ;              IMMEDIATE RESTRICT                                                               ÄEFINING  ' ;CODE  ÁLIAS  DOES>           IMMEDIATE RESTRICT                                                               : ;   [COMPILE] ; RDROP ;                 IMMEDIATE RESTRICT                                                                                                                                                                                                                                  \ REDEFINITION CONDITIONALS  BP27JUN85WE                                          ' ÄÏ    ÁLIAS  ÄÏ     IMMEDIATE RESTRICT ' ?ÄÏ   ÁLIAS  ?ÄÏ    IMMEDIATE RESTRICT ' ÌÏÏÐ  ÁLIAS  ÌÏÏÐ   IMMEDIATE RESTRICT ' ÉÆ    ÁLIAS  ÉÆ     IMMEDIATE RESTRICT ' ÔÈÅÎ  ÁLIAS  ÔÈÅÎ   IMMEDIATE RESTRICT ' ÅÌÓÅ  ÁLIAS  ÅÌÓÅ   IMMEDIATE RESTRICT ' ÂÅÇÉÎ ÁLIAS  ÂÅÇÉÎ  IMMEDIATE RESTRICT ' ÕÎÔÉÌ ÁLIAS  ÕÎÔÉÌ  IMMEDIATE RESTRICT ' ×ÈÉÌÅ ÁLIAS  ×ÈÉÌÅ  IMMEDIATE RESTRICT ' ÒÅÐÅÁÔ ÁLIAS  ÒÅÐÅÁÔ                    IMMEDIATE RESTRICT                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 \ CLEAR ÌITER. ÁSCII ['] ."  BP27JUN85WE                                          ÏNLYFORTH ÔRANSIENT DEFINITIONS                                                   : CLEAR  ÔRUE ABORT" ÔHERE ARE GHOSTS" ;                                          : ÌITERAL  ( N -)  È DUP $ÆÆ00 AND        ÉÆ Ô COMPILE LIT ,                       ÅÌÓÅ COMPILE CLIT C, È ÔÈÅÎ ; IMMEDIATE                                          : ÁSCII  È ÂÌ WORD 1+ C@                  ÓTATE @                                   ÉÆ Ô [COMPILE]  ÌITERAL È ÔÈÅÎ ;        IMMEDIATE                                                                        : [']     Ô ' [COMPILE] ÌITERAL È ;                IMMEDIATE RESTRICT                                                      : "       Ô COMPILE ("   ," È  ;                   IMMEDIATE RESTRICT                                                      : ."      Ô COMPILE (."  ," È  ;                   IMMEDIATE RESTRICT                                                                                              \ ÔARGET COMPILATION  ]  [   BP03JUL85WE                                          ÆORTH DEFINITIONS                                                                 : TCOMPILE                                ?STACK  >IN @                            NAME FIND ?DUP                           ÉÆ 0> ÉÆ NIP EXECUTE   >INTERPRET ÔÈÅÎ      DROP DUP >IN !  NAME ÔÈÅÎ             GFIND ÉÆ NIP EXECUTE   >INTERPRET ÔÈÅÎ   NULLSTRING? ÉÆ DROP EXIT ÔÈÅÎ            NUMBER? ?DUP                              ÉÆ 0> ÉÆ SWAP Ô [COMPILE] ÌITERAL ÔÈÅÎ       [COMPILE] ÌITERAL È DROP                 >INTERPRET ÔÈÅÎ                     DROP >IN ! ×ORD,                         >INTERPRET ; -2 ALLOT                                                            ÔRANSIENT DEFINITIONS                                                             : ]    È  ÓTATE ON                        ['] TCOMPILE IS >INTERPRET ;                                                                                                                                      \ ÔARGET CONDITIONALS        BP27JUN85WE                                          : ÉÆ      Ô COMPILE ?BRANCH >MARK È 1 ;            IMMEDIATE RESTRICT             : ÔÈÅÎ    ABS 1 Ô ?PAIRS >RESOLVE È ;              IMMEDIATE RESTRICT             : ÅÌÓÅ    Ô 1 ?PAIRS COMPILE BRANCH                >MARK SWAP >RESOLVE È -1 ;               IMMEDIATE RESTRICT             : ÂÅÇÉÎ   Ô <MARK È 2 ;                            IMMEDIATE RESTRICT             : ×ÈÉÌÅ   Ô 2 ?PAIRS  2 COMPILE ?BRANCH            >MARK -2  È 2SWAP ;                      IMMEDIATE RESTRICT                                                      Ü : (REPEAT  Ô 2 ?PAIRS  <RESOLVE È       ÂÅÇÉÎ DUP -2 = ×ÈÉÌÅ DROP Ô >RESOLVE È   ÒÅÐÅÁÔ ;                                                                         : ÕÎÔÉÌ   Ô COMPILE ?BRANCH (REPEAT È  ;           IMMEDIATE RESTRICT             : ÒÅÐÅÁÔ  Ô COMPILE BRANCH  (REPEAT È  ;           IMMEDIATE RESTRICT                                                                                              \ ÔARGET CONDITIONALS        BP27JUN85WE                                          : ÄÏ     Ô COMPILE (DO  >MARK È 3 ;               IMMEDIATE RESTRICT              : ?ÄÏ    Ô COMPILE (?DO >MARK È 3 ;               IMMEDIATE RESTRICT              : ÌÏÏÐ   Ô 3 ?PAIRS  COMPILE (LOOP                COMPILE ENDLOOP >RESOLVE È ;             IMMEDIATE RESTRICT              : +ÌÏÏÐ  Ô 3 ?PAIRS  COMPILE (+LOOP               COMPILE ENDLOOP >RESOLVE È ;             IMMEDIATE RESTRICT                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  \ PREDEFINITIONS             BP27JUN85WE                                          : ABORT"    Ô COMPILE (ABORT" ," È ;      IMMEDIATE                                                                        : ERROR"    Ô COMPILE (ERR"   ," È ;      IMMEDIATE                                                                                                                                                                                                   ÆORTH DEFINITIONS                                                                 ÖARIABLE TORIGIN                         ÖARIABLE TUDP       0 TUDP !                                                      : >USER  Ô C@ È TORIGIN @ + ;                                                                                                                                                                                                                                                                                                                                                   \ ÄATATYPES                  BP27JUN85WE                                          ÔRANSIENT DEFINITIONS                                                             : ORIGIN!  È TORIGIN !  ;                                                         : USER' ( - 8B)   Ô ' 2 + C@ È ;                                                  : UALLOT  ( N -) È TUDP @ SWAP TUDP +! ;                                                                                           ÄO> >USER ;                      : ÕSER  PREBUILD ÕSER  2 Ô UALLOT C, ;                                                       ÄO> ;                         : ÃREATE   PREBUILD ÃREATE  ;                                                                                                                                                                                                                                                                                                                                                                                            \ ÄATATYPES                  BP27JUN85WE                                                     ÄO> Ô @ È ;                   : ÃONSTANT PREBUILD ÃONSTANT  Ô , ;                                               : ÖARIABLE ÃREATE 2 Ô ALLOT ;                                                                                               DUMMY                                   : ÖOCABULARY                              È >IN @  ÖOCABULARY  >IN !               Ô PREBUILD ÖOCABULARY  0 , 0 ,           HERE È TVOC-LINK @ Ô ,  È TVOC-LINK ! ;                                                    ÄO>  ;                         : ÄEFER   PREBUILD ÄEFER 2 Ô ALLOT ;                                              : ÉS  Ô ' È >BODY  ÓTATE @                  ÉÆ Ô COMPILE (IS  ,                    È ÅÌÓÅ Ô ! È ÔÈÅÎ  ;   IMMEDIATE                                                                                                                                                                                                                    \ TARGET DEFINING WORDS      BP27JUN85WE                                          Ü : DODOES>                               Ô COMPILE (;CODE                         È ÇLAST' @  THERE  RESDOES>              THERE TDOES> ! ;                                                                 : ;CODE 0 Ô ?PAIRS DODOES>  ÁSSEMBLER     È [COMPILE] [  REDEFINITION ;            IMMEDIATE RESTRICT                                                               : DOES>                                   Ô DODOES>                                $4à C, COMPILE (DODOES> È ;              IMMEDIATE RESTRICT                                                                DUMMY                                   : :  È  TDOES> OFF  >IN @ >IN: !          Ô PREBUILD : È CURRENT @ CONTEXT !       Ô ] È 0 ;                                                                                                                                                                                                                                           \ :  ÁLIAS  ;                  02OCT87RE                                          : ÁLIAS ( N -- )  È ÔLAST OFF             (THEADER  ÇHOST  OVER RESOLVE            TLAST @ Ô C@ È 20 OR TLAST @ Ô C! ,      È ;                                                                              : ;  Ô 0 ?PAIRS                           COMPILE UNNEST [COMPILE] [               È REDEFINITION  ;                        IMMEDIATE  RESTRICT                                                               DUMMY                                   : ÉNPUT:  È  TDOES> OFF  >IN @ >IN: !     Ô PREBUILD ÉNPUT:                        È CURRENT @ CONTEXT !  Ô ] È 0 ;                                                  DUMMY                                   : ÏUTPUT:  È  TDOES> OFF  >IN @ >IN: !    Ô PREBUILD ÏUTPUT:                       È CURRENT @ CONTEXT !  Ô ] È 0 ;                                                                                                                                                                           \ PREDEFINITIONS             BP03JUL85WE                                          : COMPILE   Ô COMPILE COMPILE È ;                    IMMEDIATE  RESTRICT                                                   : ÈOST                                    È ÏNLYFORTH ÔTOOLS ALSO ;                                                        : ÃOMPILER                                Ô ÈOST È ÔRANSIENT ALSO DEFINITIONS ;                                            : [COMPILE] È ×ORD, ; IMMEDIATE RESTRICT                                          : ÏNLYPATCH È THERE 3 - 0 TDOES> ! 0 ;                                            ÏNLYFORTH                                                                         : ÔARGET                                  ÏNLYFORTH ÔRANSIENT ALSO DEFINITIONS ;                                                                                    ÔRANSIENT DEFINITIONS  ÇHOST C, DROP                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               \ ÔARGET ÃOMPILER ÍANUAL      CLV06DEC88                                          ÔARGET-ÃOMPILER VOLKSÆÏÒÔÈ 3.8 6502                                                                                                                                                                                                                                                                                                                                                                                       (C) VOLKSÆÏÒÔÈ-ÄEVELOPERS 1985-2006          AND ÆORTH ÇESELLSCHAFT E.Ö.              HTTP://WWW.FORTH-EV.DE                                                                                                                                                                                                                                                                                                                                                                                                                                        \ ..ÇEBRAUCHSANWEISUNG..      CLV05JAN87                                          1. ÉNTRODUCTION                             ÔHE ÔARGETCOMPILER IS WEIRD,             KRYPTIC AND SOMETIMES DANGEROUS.         ÉF AN ERROR OCCURS, REBOOT MACHINE       AND START FROM SCRATCH.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                \ ..ÍANUAL                    CLV06DEC88                                          2. ÌOAD                                                                           2.1. ÒELOCATE ÓYSTEM                        ÔHE ÒELOCATE ÓCREEN ON THIS ÄISK         CREATS AN ÅNVIRONMENT WITH ÓTACKS        ÓTACKLEN  $9400                          RÓTACKLEN $0400                                                                   ÌIMIT MUST BE $C000 WHICH IS DEFAULT     FOR Ã64, FOR Ã16 THIS VALUE MUST         BE DOWN-PATCHED                       2.1. LOAD SAVE-SYSTEM FROM DISK 1        2.2. LOAD ÅDITOR (IF NEEDED)             2.3. ÌOAD ÔARGETCOMPILER WITH ÌOADSCR.        FIRST ONLY THE RESIDENT PART        2.4. EXECUTE SAVESYSTEM                  2.5. LOAD ÔRAGETCOMPILER PREDEFINITIONS       (SEE BOTTOM OF ÌOADSCREEN)                                                                                                                                                                                                                      
AVOLKSFORTH 3.8tc  U3 2A    ÿ\ ..ÍANUAL                    CLV06DEC88                                                                                   2.6. LOAD ÓOURCES OF ÆORTH ËERNEL             ON A REAL MACHINE, THIS TAKES            ABOUT 30 MINUTES!                        - ÈOST AND ÔARGETMACHINE                   THE ÓOURCES ARE PREPARED FOR             Ã16 & Ã64. ÃHANGE THE DEFINITIONS        OF (Ã16 (Ã64 (SEE ÓCREEN AND             ÈANDBOOK)                              - ÂLK ## HERE #### THERE ####              WILL BE PRINTED AS STATUS MSG.         - VARIOUS <NAME> EXISTS                    ÍESSAGES ARE OK                        - AT THE ÅND  ÓÁÖÅÓÙÓÔÅÍ <NAME>            WILL BE PRINTED. ÃHANGE ÄISK!            AND THEN PRESS <RETURN> TO SAVE          NEW ÆORTH ÓYSTEM                                                                                                                                                                                                                                                                       \\ ..ÅXAMPLE SESSION          CLV06DEC88                                          3. ÅXAMPLE FOR ÃÂÍ ÐLUS 4                                                                                                     ÕSED ÄISKS:                              1OF4 .. 4OF4 - VOLKSÆORTH ÄISKS 3.8      ÔÃQ          - ÔARGETÃOMP ÓOURCE         ÔÃF          -     "    ÆILES (EMPTY)                                          3.1. ÃREATE A ÔARGETCOMPILER ÓYSTEM                                                                                           ÓWITCH ON ÐLUS4, INSERT ÄISK 1OF4                                                 ÄÉÒÅÃÔÏÒÙ                                -> ...                                                                            ÌÏÁÄ "Ã16ÕÌÔÒÁÆÏÒÔÈ83",8                 -> SEARCHING... LOADING...READY.                                                  ÒÕÎ                                      -> ULTRAÆÏÒÔÈ ... OK                                                                                                   \\ ..ÅXAMPLE ÓESSION          CLV06DEC88                                              INSERT ÄISK ÔÃQ                          4 LOAD FLUSH  \ RELOCATE                 -> VOLKSÆÏÒÔÈ83 ... OK                                                            INSERT ÄISK 3OF4                         19 LOAD FLUSH \ ÅDITOR                   -> BLK 4 BLK 5 ...... OK \ APPR5 MIN                                              INSERT ÄISK 1OF4                         26 LOAD FLUSH \ SAVESYSTEM                                                        INSERT ÄISK ÔÃQ                          $10 LOAD FLUSH \ ÔÃ-RESIDENT ÐART                                                 INSERT ÄISK ÔÃF                          SAVESYSTEM @:VF-TC-3.8                   -> OK  ÉF ÆLOPPY FLASHES: ÅRROR          \ @: IS: OVERWRITE IF NEEDED             \ THIS FILE WILL LATER REPLACE           \ THE RUNNING ÆORTH ÓYSTEM                                                                                                                                     \\ ..ÅXAMPLE ÓESSION          CLV06DEC88 3.2. ÃOMPILING A NEW ÓYSTEM                   FIRST AS FOR 3.1.                        OR:                                      ÌÏÁÄ "VF-TC-3.8",8                       -> SEARCHING...LOADING..READY.                                                    ÒÕÎ                                      -> VOLKSÆÏÒÔÈ83 ... OK                                                            INSERT ÄISK ÔÃQ                          HEX 27 30 THRU FLUSH                        \ LOAD TRANSIENT ÐART OF ÔÃ                                                    INSERT ÄISK 2OF4 (ÆORTH ÓOURCE)          $09 L \ EDIT ÓCREEN 9                            (C64 (C16 (C16+ (C16-                    (COMMENT IN OR OUT DEPEND.               ON ÔARGET-ÍASCHINE                                                        $F LOAD \ COMPILE SYSTEM                 INSERT ÔÃF OR BLANK DISK                 SAVETARGET C16ULTRAFORTH83           OR  SAVETARGET C64ULTRAFORTH83          - ÅÎÄÅ -                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                \\ ÔERMS:                                ÈOST      'NORMAL' ÆORTH-ÓYSTEM IN                 ÍACHINE                        ÔARGET    ÓYSTEM TO BE COMPILED          ÔRANSIENT ÖOCABULARY FOR Ô-ÃOMPILATION             IN ÈOST                                                                 NEEDS THE ÓPECIALASSEMBLER FOR ÔÃ        'NORMAL' ÁSSEMBLER                                                                ÓTARTADDRESS OF ÔARGET ÓYSTEMS IN ÈOST                                                                                                                                                                                                                                                         ÔOOLS FOR ÔARGET-ÓYSTEM                  ×ORDS FOR ÒEDEFINITIONS                                                                                                                                                                                                                                                                       \\                                                                                ÔARGET-DP                                HERE IN ÔARGET                                                                    ÓTARTADDRESS OF ÔARGET-ÓYSTEMS           ÉF 0, WE CREATE HEADER IN ÔARGET         NFA OF LAST CREATED WORD                 CFA OF LAST CREATED GHOST                CFA OF ÃODE FOR ÄOES>-ÐARTS              ÁDDRESS OF LAST : IN ÂLOCK               ÔVOC-ÌINK FOR ÈOST                       ÔVOC-ÌINK FOR ÔARGET                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                \\                                                                                SWITCHES TO ÒÁÍ UNDER ÏÓ                                                                                                   SWITCHES ÂACK                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               CALCULATES PHYSICAL ÁDDRESS FROM         TARGET ÁDDRESS                                                                    CMOVE TO ÈEAP WITH AUTOMATIC HALLOT      >IMAGE MUST BE ADJUSTED WHEN CHANGING    MEMORY MANAGENT FOR TARGET SYSTEM                                                 SAME WITH C@ AND C!                     \\                                                                                <FORW> POINTS TO CODE FOR FORWARD        <RES>  POINTS TO CODE FOR RESOLVED                                                    IF COMPILING, ÇHOST WILL BE LINKED   UNDER(!) LAST ÃONTEXT ×ORD               ELSE APPENDED TO ÃURRENT AS NORMAL       LFA ÇHOST POINTS TO LAST WORD  (S.A)     GET NAME AND CHECKS                                  FOR VALID LENGTH              ENLARGES NAME BY ONE BLANK              CALCULATES NAMELENGTH ( LEN START LINK)  CF.ÇHOST, CFA.ÔARGET, ÐTR TO ÄOES>.CFA   6502-ALIGN                               CMOVED ÇHOST ON ÈEAP                     LAST WORD POINTS NOT TO ÇHOST            CACLCULATES CFA.GHOST                                                             ÌAST (ÃURRENT @) WILL BE LINKED TO ; IN  REVEAL                                                                                                                                                                                                      \\                                                                                SEARCH FOR GHOST                                                                                                                                                    SEARCH FOR GHOST                         IF FOUND, FINISH                         IF NOT FOUND, IT WILL BE CREATED                                                  STORES CFA.GHOST ( <FORW> OR <RES> )                                                                                       ÁDR OF ÐTR TO ÄOES>.CFA                  IF EXISTING, CFA OF ÄOES>                ELSE CREATE ÐÔÒ AND SEE ABOVE                                                                                                                                       >HEAP STARTS ON EVEN ADDRESSES           => 6502-ALIGN                                                                                                                                                                                               \\                                                                                GETS CFA OF ÇHOST                                                                                                          GET STATE OF GHOST, IF FORWARD REFERENCE OR ALREADY RESOLVED (WITH CFA.ÔARGET)                                                                                      SAME FOR POSSIB.  ÄOES>-ÐARTS                                                                                                                                                                                                                                                                                                           WHILE ÔARGET-ÃOMPILATION ' WILL BE DONE  FOR ÇHOSTS                                                                                                                                                                                                                                                                                    \\                                                                                                                         IF CF =<FORW>                            AND AN ÁDDRESS EXISTS IN ÔARGET ÓYSTEM   EXIT UNRESOLVED? WITH ÔRUE-ÆLAG                                                                                            CHECKS IF NAME IS A ÇHOST                GETS CFA AND CHECKS FOR UNRESOLVED        SAME WITH ÄOES>-ÐART                                                                                                                                               PRINT FOR ÖOCABULARY ALL                 UNRESOLVED WORDS                                                                                                                                                    SEARCH THROUGH ALL ÖOCABULARIES          PRINT NON-RESOLVED WORDS                                                                                                                                                                                    \\                                                                                ÖOCABULARY STRUCTURE:                    ÎAME           ÂYTES                     ÃODE           FUER ÖOCABULARYS          ÌATEST          0 1                      ÃOLD-ÌATEST     2 3   NORMAL             ÖOC-LINK        4 5                      -------------------                      ÔLATEST         6 7   ADDITIONAL         ÔVOC-LINK       8 9                                                                                                        Ô AND È ARE ÉMMEDIATE AND REPLACING                   [ ÔRANSIENT ]                       OR   [ ÆORTH ]  È => ÈOST                                                                                                                                                                                                                                                                                                                                                                                        \\  ×ORDS FOR ÔARGET-ÃOMPILATION                                                  ×ORDS FOR VIRTUAL ÔARGET-ÍEMORY                                                   Ô C@ ACCES ÒÁÍ BELOW ÏÓ                                                           Ô C! ALSO                                ÁLL FOLLOWING WORDS USE C@ AND C!                                                                                                                                                                            CMOVE WORKS ONLY FROM ÈOST TO            ÔARGET, NOT OTHER DIRECTION                                                                                                                                                                                                                                                                    ÏN CHANGES TO THE VIRTUAL ÍEMORY-        ÍANAGEMENT, C@, C! AND >IMAGE            MUST BE ADJUSTED!                                                                                                         \\  ×ORDS FOR ÔARGET-ÃOMPILATION                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                \\                                                                                                                                                                  RESOLVES FORWARD REFERENCES              CHECKS, IF ALREADY RESOLVED              PRINT WARNING IF YES                     SET CFA.TARGET TO NEW VALUE, ÅND         ÆORWARDREFERENCE AVAILABLE ?             ÙES, GET ADDRESS IN ÔARGET                ÃANCEL, IF POINTING TO ITSELF           AND SET CFA.TARGET UNTIL ÅND             CFA.TARGET TO CFA.GHOST AND              RESOLVED AS CF.TARGET                                                             SAME FOR ÄOES>-ÐARTS                                                                                                       ÄOES> COMPILES A ÊÍÐ (DODOES>            (DODOES> BRINGS THE ON                   CFA.GHOST FOLLLOWING ADDRESS, WHICH IS   CFA.TARGET, ON THE STACK                 CFA.GHOST IS EITHER  <FORW> OR <RES>     CFA.TARGET IS THE CFA IN ÔARGET-ÓYSTEM   ALSO <FORW> OR ALREADY VALID            \\                                                                                                                         FOR ALL ÖOCABLUARIES IN ÔRANSIENT AND    ÔARGET SET ÔARGET-ÃOLD-ÌATEST            TO ÔRANSIENT-ÔLATEST                                                              ÅRROR, IF ÔVOC-LINK ALSO POINTS TO OTHER ÖOCABULARYS                                                                                                                ÐOINTS TO ÔLATEST IN ÔRANSIENT-ÖOCS                                                                                                                                                                          SAVES A ÔARGETSYSTEM AS ÐROGRAMM-        FILE ON ÄISK (Ã64-ÓPECIAL!!)                                                                                                                                                                                                                                                                                                           \\                                                                                                                         IF 0, ÈEADER, ELSE ?THEAD INCREMENT           6502-ALIGN AND ÅNDE                 GETS ÎAME AN CONVERTS TO CAPITAL         ÅRROR ON WRONG LENGTH                                                             CALULATES CFA AND 6502-ALIGN             ÂLOCKNUMBER FOR VIEW                     LINK IN OF NEW NAME IN ÃURRENT           ÔLAST FOR IMMEDIATE AND RESTRIC CREATE   SAVE ÎAME IN ÔARGET                                                                                                                 SET ÔLAST TO 0                  CREATE ÈEADER, CREATE ÇHOST, IF NEW,     CFA.GHOST TO ÇLAST' AND RESOLVE                                                                                                                                                                                                                                                                                                        \\                                                                                ON ÃREATE, ÕSER, ÃONSTANT, ÖARIABLE      AND ÄEFER, NOT FOR : UND ÖOCABULARY      COMPILING ÐTR TO PFA.TARGET IN ÈOST                                                                                        CREATES ÈEADER IN ÈOST WITH CFA.ADR      ÔHIS POINTS TO A ÄOES>-ÐART IN           ÔARGET (S.BELOW)                                                                  FROM:                                    IF CREATED WORD SHOULD BE EXECUTABLE     IN CURRENT, CREATE A HEADER ELSE NOT     WITH CORRESPONDING CFA                   ELSE NOT                                 CREATE HEADER IN ÔARGET AND COMPILE      AS CFA OF ÄOES>-ÐART                     STORE THIS ADDRESS IN ÈOST AS PDF                                                                                          PREBUILD IS A ÄEFINING-×ORD FOR          ÄEFINING-×ORDS !!                                                                                                         \\                                                                                RESULTS THAT WITH FOLLWING               ÄEFINING-×ORD CREATED WORDS CANNOT BE    EXECUTED                                 ÓPECIAL-ÄOES> FOR ×ORDS CREATED IN       ÃURRENT, GIVES PFA IN ÔARGET !                                                                                                                                      ÄO> ... ;  : ... ÂUILD ... ; SAME AS     ÃREATE ... ÄOES>                                                                  : ÄO>     [COMPILE] DOES> HERE 3 - 0 ] ;                                          : (BUILD  ÃREATE HERE 2- ! ;             : ÂUILD  (CFA 0 - 0)                               0 ?PAIRS  [COMPILE] ÌITERAL              COMPILE (BUILD 0 ;                                                                                                                                                                                                                                                                  \\                                                                                                                         ÁSSEMBLER ASSEMBLES IN ÔARGET NOW                                                                                                                                                                            ENABLES ÁSSEMBLER AND RELOCATE                                                                                                                                      IF LABEL ALREADY EXISTS AS ÇHOST,          RESOLVE FORWARD REFERENCE              AS ÃONSTANT IN ÈOST                                                               ÌABEL POINTS TO THERE                                                             ÓPECIAL-ÃODE FOR ÔARGET                                                                                                                                                                                                                                                                       \\                                       ÃONTROLSTRUCTURES FOR ÔARGET-ÓYSTEM                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             ' IN ÔRANSIENT ACCESSES ÇHOSTS AND       GETS CFA.TARGET                                                                   ÔHE NEXT WORD WILL BE CREATED WITHOUT    HEADER                                   WORKS ON ÈOST, NOT ON ÔARGET                                                                                              \\     ÔOOLS FOR ÔARGET-ÓYSTEM               SIMILAR TO NORMAL TOOLS                                                                                                PRINTS N CHARS AT ADDR                                                                                                     PRINTS NAME OF WORD, IF NFA <>0                                                                                            ELSE  ???                                                                         CHECKS, IF LFA NFA OF CFA IS AND         RETURNS NFA, ELSE  CFA AND FF                                                                                                                                                                                CONVERTS CFA IN NFA, IF POSSIBLE                                                                                                                                                                                                                                                              \\     ÔOOLS FOR ÔARGET-ÓYSTEM               SIMILAR TO NORMAL TOOLS                                                                                                                                                                                  PRINTS STRING AT ADR AND ADJUSTS ADR                                                                                                                                                                         PRINT NAME OF COMPILE WORD AND ADJUST    ADR                                                                                                                        PRINTS N BYTES FROM ADR AND ADJUSTS ADR                                                                                                                                                                                                                                                                                                                                                                                  \\     ÔOOLS FOR ÔARGET-ÓYSTEM                                                                                                                                                                                                                                                                                                                                                                                            PRINTS N ÂYTES AT ADR, LIKE D, BUT NICE  FORMATTED                                                                                                                  DISPLAYS ÓOURCECODESCREEN OF WORD                                                                                                                                                                                                                                                                                                                                                                                                                                 \\                                                                                ALLOWS EXECUTION OF NEW CREATED DEFINING WORDS DURING TARGET COMPILATION                                                   IS ;CODE OR DOES> ?                       YES, SAVE SYSTEMSTATE                                                             >IN TO BEGIN OF LAST ÃOLONDEF.                                                     NO AS PREDEFINITION IN                   ÔRANSIENT AVAILABLE?                     YES, PRINT "ÒEDEFINITION: " AND LAST         ÎAMES                                >IN ADJUST, ÆORTH-: EXECUTE AND SWITCH   ON ÄEFININING AS ÃONTEXT                                                          RESET TDOES>                                                                                                                                                                                                                                                                                                                         \\                                                                                CHANGES THE CFA OF LST DEFINED WORD      TO ÄOES>-ÐART IN ÔARGET                                                                                                    COMPILES, WHICH COMPILES THE ADR OF      ÄOES>-PART AND (;CODE WHEN EXECUTED                                                                                        ;CODE AND ÄOES> MUST BE DEFINED IN REDEF                                          SAME AS ÄO> FOR PREBUILD                 STORES LAST WORD IN ÈOST AND JUMPS       IN REDEFINITION BEHIND INTERPRET                                                  ÓTRUCTUR OF A IN ÈOST CREATED WORD:      LFA\NAME\CFA TO JMP (DOEDOES\PFA TO      ÄOES>-ÐART IN ÔARGET                                                              ×ORDS, CREATED BY ÒEDEFINITION OF        ÄEFINING ×ORDS, RETURN THEIR             ÐÆÁ, WHEN EXECUTED IN ÈOST                                                                                                \\                                                                                ÆORTH-ÃONTROLLSTRUCTURES, BECAUSE        ÔRANSIENT WILL FIND WORDS FOR ÔARGET                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 \\         ÐREDEFINITIONS                ×ORDS THAT MUST BE EXECUTABLE IN         ÔRANSIENT                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     \\    MAIN ÃOMPILELOOP                                                                                                                                                                                                                                SEARCH FOR NAMES IN ÔRANSIENT AND ÆORTH  FOUND, EXECUTE, IF IMMEDIATE                ELSE RESET  >IN                       SEARCH ÇHOST AND EXDCUTE  CFA                                                     ÎUMBER?, IF YES, EXECUTE ÌITERAL (Ô!)                                                                                                                               CREATE NEW GHOST AND COMPILE FORWARD     REFERENCE                                                                                                                                                           ENABLE ÃOMPILER, SET >INTERPRET          FROM TCOMPILE                                                                                                                                                      \\ ÃONDITIONALS FOR  ÔARGET-ÃOMPILATION                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         \\ ÃONDITIONALS FOR  ÔARGET-ÃOMPILATION                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         \\                                                                                ÉMMEDIATE-×ORDS FOR ÔARGET                                                                                                                                                                                                                                                                                                                                                                                                                                         ORIGIN IN TARGET                         UDP    IN TARGET                                                                  CALCULATES ÁDDRESS IN ÕSER-ÁREA FROM     ÁDDRESS OF ÏFFSET                                                                                                                                                                                                                                                                                                                      \\                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ÕSER-ÖARIABLE ARE ALSO EXECUTABLE IN     ÔRANSIENT AND RETURN ÔARGET-ÁDDRESSES                                                                                      ×ITG ÃREATE COMPILED ×ORDS ARE EXECUT-   ABLE IN ÔRANSIENT AND RETURN THE         PFA.TARGET                                                                                                                                                                                                                                                                                                                             \\                                                                                ÁLSO ÃONSTANT AND ÖARIABLE CAN BE EXECUT ED IN ÔRANSIENT AND REZTURN THE ÔARGET   ÖALUES                                                                                                                                                                                                       ÖOCABULARYS ARE EXECUTABLE IN TRANSIENT                                                                                    ÖOCABULARY 'NAME' CREATED:                                                        1. Á ÖOCABULARY ÅNTRY IN ÃURRENT WITH       5 FIELDS CONNECTED ON TVOC            2. Á ÖOCABULARY ÅNTRY IN ÃURRENT WITH       3 ÆIELDS CONNECTED ON TVOC-LINK       3. Á ÇHOST                                                                                                                                                                                                                                                                                    \\                                                                                                                         CREATES A ÖARIABLE-HEADER                                                         SAME AS ÉS IN ÆORTH                                                                                                                                                 CREATES ÃODE KILE ;CODE IN ÆORTH                                                  ÆORWARDREFERNCE FOR ÄOES>-ÐART WILL      RESOLVED AND TDOES> SET FOR REDEFINITION                                          LIKE ;CODE IN ÆORTH, BUT WITH REDEFINITI ON                                                                                                                         LIKE ÄOES> IN ÆORTH, BUT WITH DODOES>                                                                                                                                                                                                                                                         \\                                                                                                                         DISABLE REDEFINITION                      CREATE SMALL ENTRY IN ÔRANSIENT          FOR WITH : CREATED WORDS                 SET ÃONTEXT TO FIRST FIX ÖOC            CREATE ÈEADER IN ÔARGET                  AND RESOLVE FORWARD-REFERNCE WITH        ÁLIAS-CFA                                SAME AS HIDE IN ÆORTH                                                             SAME AS  ; IN ÆORTH, AND REDEFINITION    IS STARTED                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 \\                                                                                CREATES COMPILE AS FORWARDREFERNCE !!                                                                                      SET ORDER TO:                            ÔTOOLS ÔTOOLS ÆORTH ÏNLY                                                          AS ÈOST, ORDER:                          ÔRANSIENT ÔRANSIENT ÔTOOLS ÆORTH ÏNLY                                             COMPILS THE CFA.TARGET OF ÇHOSTS                                                  ÓPECIAL-ÃODE FOR ÏNLY-ÖOCABULARY                                                                                           SET ORDER FOR ÔARGET-ÃOMPILATION:        ÔRANSIENT ÔRANSIENT ÆORTH ÏNLY                                                    ÔHANKS TO ËLAUS FOR 'PUNCTUATION?' !!!                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               
\ No newline at end of file
+\  ###  ÍAIN ÄIRECTORY  ###  CCLV05JAN87                                          ÖERSION ÈISTORY     $02                  (Ã16 (Ã64 )         $03                  ÒELOCATE ÓYSTEM     $04                  ÓPECIAL-ÁSSEMBLER   $05                  SAVESYSTEM          $0Å                  ÔARGET-COMPILER     $10                  FREE                $34                                                           ÔARGET ÃOMPILER ÍAN $56                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               \  ###  ÍAIN ÄIRECTORY  ###  CCLV05JAN87                                          ÖERSION ÈISTORY     $02                  (Ã16 (Ã64 )         $03                  ÒELOCATE ÓYSTEM     $04                  ÓPECIAL-ÁSSEMBLER   $05                  SAVESYSTEM          $0Å                  ÔARGET-COMPILER     $10                  FREE                $34                                                           ÔARGET ÃOMPILER ÍAN $56                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               \                            CCLV06DEC88                                          CAS18AUG06 - ENGLISH TRANSLATION         CLV06DEC88 - REWRITTEN ÍANUAL                                                     CLV/RE APR-OCT87                          FOR REV 3.8 - Ã16/Ã64                    ÓCR 3,4,C,10,12,1B,2F                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         CLV2:JUL87                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        \ ÒELOCATING A SYSTEM        CLV2:JULL87                                          $9400         $0400                      ( STACKLENGTH RSTACKLENGTH -)             EMPTY HEX                                OVER + ORIGIN +  ORIGIN 0Á + ! \ R0      ORIGIN +  DUP    ORIGIN   1+ ! \ TASK                6 -  ORIGIN  8 + ! \ S0      (16 $C000 ' LIMIT >BODY ! Ã)             COLD                                    \\ SYMBOLIC MAP OF SYSTEM                UP@ ORIGIN - IS STACKLENGTH              R0 @ UP@ -   IS RSTACKLENGTH                                                      DISK-BUFFER  LIMIT        FIRST @        RSTACK       R0 @         RP@                                                     USER, WARM   UP@ UDP @ +  UP@            (HEAP)       UP@          HEAP           STACK        S0 @         SP@                                                     SYSTEM       HERE         ORIGIN 0ÆÅ +   USER, COLD   ORIGIN 0ÆÅ + ORIGIN         SCREEN       0800         0400           PAGE 0-3     0400         0000          ( ÆORTH-6502 ÁSSEMBLER             ×ÆÒ ) ( ÂASIS: ÆORTH ÄIMENSIONS ÖÏÌ ÉÉÉ ÎO. 5)                                          ÏNLYFORTH  ÁSSEMBLER ALSO DEFINITIONS                                             1 8  +THRU                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         ( ÆORTH-83 6502-ÁSSEMBLER              )                                          : END-CODE   CONTEXT 2- @  CONTEXT ! ;                                            ÃREATE INDEX                             0909 , 1505 , 0115 , 8011 ,              8009 , 1Ä0Ä , 8019 , 8080 ,              0080 , 1404 , 8014 , 8080 ,              8080 , 1Ã0à , 801à , 2Ã80 ,                                                       Ü ÖARIABLE MODE                                                                   : ÍODE:  ( N -)   ÃREATE C,                ÄOES>  ( -)     C@ MODE ! ;                                                     0   ÍODE: .Á        1    ÍODE: #         2 Ü ÍODE: MEM       3    ÍODE: ,Ø        4   ÍODE: ,Ù        5    ÍODE: Ø)        6   ÍODE: )Ù       0Æ    ÍODE: )                                                                                                                                                                                                                                                              ( ÃODE GENERATING PRIMITIVES  27JUN85WE)                                          ÖARIABLE >CODES                                                                   Ü ÃREATE NRC ] C, , C@ HERE ALLOT ! C! [                                          : NONRELOCATE   NRC >CODES ! ;                                                    NONRELOCATE                                                                       Ü : >EXEC ÃREATE C,                               ÄOES> C@ >CODES @ + @ EXECUTE ;                                          Ü  0 >EXEC >C,       Ü  2 >EXEC >,       Ü  4 >EXEC >C@       Ü  6 >EXEC >HERE    Ü  8 >EXEC >ALLOT    Ü 0Á >EXEC >!       Ü 0à >EXEC >C!                                                                                                                                                                                                                                                                                                                                                                  ( UPMODE  CPU                          )                                          Ü : UPMODE ( ADDR0 F0 - ADDR1 F1)         ÉÆ MODE @  8 OR MODE !   ÔÈÅÎ            1 MODE @  0Æ AND ?DUP ÉÆ                 0 ÄÏ  DUP +  ÌÏÏÐ ÔÈÅÎ                   OVER 1+ @ AND 0= ;                                                               : CPU  ( 8B -)   ÃREATE  C,                ÄOES>  ( -)    C@ >C, MEM ;                                                      00 CPU BRK  18 CPU CLC  Ä8 CPU CLD       58 CPU CLI  Â8 CPU CLV  ÃÁ CPU DEX       88 CPU DEY  Å8 CPU INX  Ã8 CPU INY       ÅÁ CPU NOP  48 CPU PHA  08 CPU PHP       68 CPU PLA  28 CPU PLP  40 CPU RTI       60 CPU RTS  38 CPU SEC  Æ8 CPU SED       78 CPU SEI  ÁÁ CPU TAX  Á8 CPU TAY       ÂÁ CPU TSX  8Á CPU TXA  9Á CPU TXS       98 CPU TYA                                                                                                                                                                                                                                          ( M/CPU                                )                                          : M/CPU  ( MODE OPCODE -)  ÃREATE C, ,    ÄOES>                                    DUP 1+ @ 80 AND ÉÆ 10 MODE +! ÔÈÅÎ       OVER ÆÆ00 AND UPMODE UPMODE              ÉÆ MEM TRUE ÁBORT" INVALID" ÔÈÅÎ         C@ MODE @ INDEX + C@ + >C, MODE @ 7 AND  ÉÆ MODE @  0Æ AND 7 <                     ÉÆ >C, ÅÌÓÅ >, ÔÈÅÎ ÔÈÅÎ MEM ;                                                   1Ã6Å 60 M/CPU ADC   1Ã6Å 20 M/CPU AND    1Ã6Å Ã0 M/CPU CMP   1Ã6Å 40 M/CPU EOR    1Ã6Å Á0 M/CPU LDA   1Ã6Å 00 M/CPU ORA    1Ã6Å Å0 M/CPU SBC   1Ã6à 80 M/CPU STA    0Ä0Ä 01 M/CPU ASL   0Ã0à Ã1 M/CPU DEC    0Ã0à Å1 M/CPU INC   0Ä0Ä 41 M/CPU LSR    0Ä0Ä 21 M/CPU ROL   0Ä0Ä 61 M/CPU ROR    0414 81 M/CPU STX   0486 Å0 M/CPU CPX    0486 Ã0 M/CPU CPY   1496 Á2 M/CPU LDX    0Ã8Å Á0 M/CPU LDY   048à 80 M/CPU STY    0480 14 M/CPU JSR   8480 40 M/CPU JMP    0484 20 M/CPU BIT                                                                                                        ( ÁSSEMBLER CONDITIONALS               )                                          Ü : RANGE?   ( BRANCH -- BRANCH )         DUP ABS  07Æ U> ÁBORT" OUT OF RANGE " ;                                          : [[  ( ÂÅÇÉÎ)  >HERE ;                                                           : ?]  ( ÕÎÔÉÌ)  >C, >HERE 1+ -                           RANGE? >C, ;                                                      : ?[  ( ÉÆ)     >C,  >HERE 0 >C, ;                                                : ?[[ ( ×ÈÉÌÅ)  ?[ SWAP ;                                                         : ]?  ( ÔÈÅÎ)   >HERE OVER >C@                           ÉÆ SWAP >!                ÅÌÓÅ OVER 1+ - RANGE? SWAP >C! ÔÈÅÎ ;                                            : ][  ( ÅÌÓÅ)   >HERE 1+   1 JMP          SWAP >HERE OVER 1+ - RANGE?  SWAP >C! ;                                          : ]]  ( ÁÇÁÉÎ)  JMP ;                                                             : ]]? ( ÒÅÐÅÁÔ) JMP ]? ;                                                         ( ÁSSEMBLER CONDITIONALS               )                                          90 ÃONSTANT ÃÓ    Â0 ÃONSTANT Ãà         Ä0 ÃONSTANT 0=    Æ0 ÃONSTANT 0<>        10 ÃONSTANT 0<    30 ÃONSTANT 0>=        50 ÃONSTANT ÖÓ    70 ÃONSTANT Öà                                                  : NOT    20 [ ÆORTH ] XOR ;                                                       : BEQ    0<> ?] ;   : BMI   0>= ?] ;     : BNE    0=  ?] ;   : BPL   0<  ?] ;     : BCC    ÃÓ  ?] ;   : BVC   ÖÓ  ?] ;     : BCS    Ãà  ?] ;   : BVS   Öà  ?] ;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                \ 2/W/INC/DEC C16 RAM/ROM..  CCLV2:JUL87                                          : 2INC                                    DUP LDA  CLC  2 # ADC                    DUP STA  ÃÓ ?[  SWAP 1+ INC  ]?  ;      : 2DEC                                    DUP LDA  SEC  2 # SBC                    DUP STA  Ãà ?[  SWAP 1+ DEC  ]?  ;                                               : WINC                                    DUP INC  0= ?[  SWAP 1+ INC  ]?  ;      : WDEC                                    DUP LDA  0= ?[  OVER 1+ DEC  ]?  DEC  ;                                          : ;C:                                     RECOVER JSR  END-CODE ]  0 LAST !  0 ;                                           (16 \ Ã16+ÍACROS FOR ÂANKSWITCHING       : RAM $FF3F STA ;   : ROM $FF3E STA ;    ' ÊSR ÁLIAS ÎORMÊSR   ÄEFER ÊSR                                                   : Ã16+ÊSR DUP 0C000 U>                    ÉÆ ROM ÎORMÊSR RAM ÅÌÓÅ ÎORMÊSR ÔÈÅÎ ;  ' Ã16+ÊSR ÉS ÊSR  Ã)                                                             ( ÁSSEMBLER ;CODE ÃODE ÌABEL  03FEB85BP)                                          ÏNLYFORTH                                                                         : ÁSSEMBLER                               ÁSSEMBLER   [ ÁSSEMBLER ] MEM ;                                                  : ;ÃODE                                   [COMPILE] ÄOES>  -3 ALLOT                [COMPILE] ;      -2 ALLOT   ÁSSEMBLER ; IMMEDIATE                                                                         : ÃODE  ÃREATE HERE DUP 2- ! ÁSSEMBLER ;                                          : >LABEL  ( ADR -)                        HERE Ü ÃREATE  SWAP , 4 HALLOT                  HEAP 1 AND HALLOT   \ 6502-ALIGN         HERE 4 - HEAP  4  CMOVE                  HEAP LAST @ COUNT 01Æ AND + !     DP !                                            ÄOES>  ( - ADR)   @  ;                                                    : ÌABEL                                   [ ÁSSEMBLER ]  >HERE >LABEL ÁSSEMBLER ;                                         \ CÓAVE CÌOAD..               CLV08AUG87                                          \NEEDS ÃODE   .( ?! ÃODE ?!) \\          ÁSSEMBLER                                (16 \NEEDS ROM    .( ?! ROM ?!) \\  Ã)                                            ÏNLYFORTH                                $ÆÆ90 >LABEL SETÍSG   $90 >LABEL STATUS  $ÆÆÂÁ >LABEL SETLFS $ÆÆÂÄ >LABEL SETÎAM  $ÆÆÄ8 >LABEL ÂÓÁÖÅ  $ÆÆÄ5 >LABEL ÂÌÏÁÄ   ÌABEL SLÐARS                              SETUP JSR (16 ROM Ã)                     $80 # LDA SETÍSG JSR 0 # LDA STATUS STA  Î LDA SEC 8 # SBC  (DRV    STA                 Ãà ?[ DEX ]? (DRV 1+ STX           Î LDX     Î  1+ LDY 1 #  LDA SETLFS JSR  Î 4 + LDX Î 5 + LDY Î 2+ LDA SETNAM JSR  Î 6 + LDX Î 7 + LDY                      RTS END-CODE                                                                     ÌABEL SLÅRR \ ÁÒ=ËERNALERROR              Ãà ?[ 0 # LDA ]? PHA                     STATUS LDA $ÂÆ # AND                     (16 RAM Ã) PUSH JMP END-CODE                                               -->  \ SAVESYSTEM                   02OCT87RE                                          ÏNLYFORTH                                                                         ÃODE CÓAVE ( F T+1 ÎAME ÎLEN DEV--ERR)    5 # LDA    ÓÌÐARS JSR                    Î 8 + # LDA BSAVE JSR                    SLÅRR JMP END-CODE                                                               : SAVESYSTEM \ -- ÎAME MUST FOLLOW        \ ÆORTH-ËERNAL A LA BOOT:                  SCR PUSH 1 SCR ! R#  PUSH 0 R# !       \ ÅDITOR  A LA BOOT                        [ ÅDITOR ]                               STAMP$ PUSH STAMP$ OFF                   (PAD   PUSH (PAD   OFF                 \ NUN GEHT'S LOS                           SAVE                                     ORIGIN $17 - HERE     0 PARSE            8 CSAVE ABORT" ÓAVE-ÅRROR" ;                                                                                                                                                                                                                      \ ÔARGET COMPILER LOADSCR      11JUL20PZ \ ÉDEA AND FIRST ÉMPLEMENTATION BY KS/BP \ ÉMPLEMENTED ON 6502  BY KS/BP          \ VOLKSÆÏÒÔÈ83-ÖERSION BY BP/WE                                                   ÏNLYFORTH HEX                            : (BLK@  BLK @ ;                         ÄEFER BLK@  ' (BLK@ IS BLK@                                                       \NEEDS (16   .( ?! (16 (64 ?! Ã) QUIT    ÁSSEMBLER \NEEDS NONRELOCATE 5 LOAD      ÁSSEMBLER NONRELOCATE                                                             ÖARIABLE ÉMAGE      Ã000 ÉMAGE !                                                  ÖOCABULARY ÔTOOLS                        ÖOCABULARY ÄEFINING                                                                                                         1 10 +THRU   \ ÔARGET COMPILER          11 13 +THRU   \ ÔARGET ÔOOLS             14 16 +THRU   \ ÒEDEFINITIONS            CLEAR                                    \ HEX 17 20 +THRU   \ PREDEFINITIONS                                             \ ÔARGET HEADER POINTERS     BP27JUN85WE                                          ÖARIABLE TDP                             : THERE  TDP @ ;                                                                  ÖARIABLE DISPLACE                        ÖARIABLE ?THEAD       0 ?THEAD !         ÖARIABLE TLAST        0 TLAST !          ÖARIABLE GLAST'       0 GLAST' !         ÖARIABLE TDOES>                          ÖARIABLE >IN:                            ÖARIABLE TVOC         0 TVOC !           ÖARIABLE TVOC-LINK    0 TVOC-LINK !                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 \ ÉMAGE AND BYTEORDER        CLV2:JULL87                                          ÃODE ROMOFF (64                           SEI 034 # LDA 01 STA Ã) ÎEXT JMP                                                 ÃODE ROMON  (64                           036 # LDA 01 STA CLI Ã) ÎEXT JMP                                                 ÃODE >BYTE   ( 16B - 8BL 8BH)             ÓÐ )Ù LDA PHA TXA ÓÐ )Ù STA              ÓÐ 2DEC TXA                              ÓÐ )Ù STA PLA ÐUTÁ JMP                                                           ÃODE BYTE>   ( 8BL 8BH - 16B)             ÓÐ Ø) LDA PHA ÓÐ 2INC PLA ÓÐ )Ù STA      ÎEXT JMP END-CODE                                                                : >IMAGE    ( ADDR1 - ADDR2)              DISPLACE @  -  IMAGE @  + ;                                                      : >HEAP  ( FROM QUAN -)                   HEAP OVER - 1 AND +      \ 6502-ALIGN    DUP HALLOT HEAP SWAP CMOVE ;                                                                                             \ ÇHOST-CREATING             BP27JUN85WE                                          0 Ü ÃONSTANT <FORW>  0 Ü ÃONSTANT <RES>                                           Ü : ÍAKE.GHOST  ( - CFA.GHOST)            HERE ÓTATE @                             ÉÆ   ÃONTEXT @                           ÅÌÓÅ ÃURRENT                             ÔÈÅÎ @ DUP @ ,                           NAME  DUP  C@ 1 01Æ UWITHIN                         NOT ABORT" INVAL.ÇNAME"             1 OVER +!  C@ 1+ ALLOT             HERE 2 PICK - -ROT                       <FORW> , 0 , 0 ,                         OVER 2+ C@ 1 AND 1 XOR >R                OVER R@ -  HERE OVER - >HEAP             HEAP R@ + SWAP !       ÄP !              HEAP R> + +  ;                                                                                                                                                                                                                                                                                                                        \ GHOST WORDS                KS27JUN85WE                                          : GFIND  ( STRING - CFA TF / STRING FF)   DUP >R  1 OVER +!  FIND  -1 R> +! ;                                              : GHOST   ( - CFA)                        >IN @  NAME  GFIND                        ÉÆ NIP EXIT ÔÈÅÎ                         DROP >IN ! ÍAKE.GHOST ;                                                         : ×ORD,  GHOST  EXECUTE ;                                                         : GDOES>  ( CFA.GHOST - CFA.DOES)         4 + DUP @                                 ÉÆ @ EXIT ÔÈÅÎ                           HERE DUP <FORW> , 0 , 4 >HEAP            ÄÐ !  HEAP DUP ROT ! ;                                                                                                                                                                                                                                                                                                                                                        \ GHOST UTILITIES            KS27JUN85WE                                          : G'   NAME GFIND 0= ABORT" ?" ;                                                  : '.                                      G' DUP @ <FORW> CASE?                      ÉÆ ."  FORW"                             ÅÌÓÅ <RES> - ABORT" ??" ."  RES" ÔÈÅÎ   2+ DUP @ 5 U.R                           2+ @ ?DUP                                 ÉÆ DUP @ <FORW> CASE?                     ÉÆ ."  FDEF"                             ÅÌÓÅ <RES> - ABORT"  ??" ."  RDEF"       ÔÈÅÎ                                     2+ @ 5 U.R ÔÈÅÎ ;                                                                                                      ' ' ÁLIAS H'                                                                                                                                                                                                                                                                                                                           \ .UNRESOLVED                BP27JUN85WE                                          Ü : FORWARD? ( CFA - CFA / EXIT&TRUE)     DUP @ <FORW> =                           OVER 2+ @ AND                            ÉÆ DROP ÔRUE RDROP EXIT ÔÈÅÎ ;                                                   Ü : UNRESOLVED? ( ADDR - F)               2+ DUP C@ 01Æ AND OVER + C@ ÂÌ =         ÉÆ NAME> FORWARD? 4 + @                     DUP ÉÆ FORWARD? ÔÈÅÎ                  ÔÈÅÎ DROP  ÆALSE ;                                                               Ü : UNRESOLVED-WORDS                      ÂÅÇÉÎ @ ?DUP ×ÈÉÌÅ DUP UNRESOLVED?          ÉÆ DUP  2+ .NAME ?CR ÔÈÅÎ             ÒÅÐÅÁÔ ;                                                                         : .UNRESOLVED                             VOC-LINK @                               ÂÅÇÉÎ DUP 4 - UNRESOLVED-WORDS           @ ?DUP 0= ÕÎÔÉÌ ;                                                                                                                                                 \ ÅXT. VOCS FOR T-COMPILAT.  BP27JUN85WE                                          : ÖOCABULARY                             ÖOCABULARY 0 , HERE TVOC @ , TVOC ! ;                                             ÖOCABULARY ÔRANSIENT    0 TVOC !                                                  ÏNLY DEFINITIONS ÆORTH ALSO                                                       : Ô ÔRANSIENT ;   IMMEDIATE              : È ÆORTH     ;   IMMEDIATE                                                       DEFINITIONS                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         \ ÔRANSIENT PRIMITIVES       KS04JUL85WE                                          ÔRANSIENT DEFINITIONS                                                             : C@    È >IMAGE ROMOFF C@ ROMON ;                                                : C!    È >IMAGE ROMOFF C! ROMON ;                                                : @     Ô DUP C@ SWAP 1+ C@ BYTE> ;                                               : !     >R  >BYTE R@ 1+ Ô C!  R> C! ;                                             : CMOVE ( FROM.MEM TO.TARGET QUAN -)         BOUNDS ?ÄÏ                               DUP È C@ É Ô C! È 1+ ÌÏÏÐ DROP ;                                              : HERE  THERE ;                                                                   : ALLOT ÔDP +! ;                                                                  : C,    Ô HERE C! 1 ALLOT È ;                                                     : ,     Ô HERE !  2 ALLOT È ;                                                                                             \ ÔRANSIENT PRIMITIVES       BP27JUN85WE                                          : ,"    ÁSCII " PARSE DUP Ô C,                   UNDER THERE SWAP CMOVE ALLOT È ;                                          : FILL  ( ADDR QUAN 8B -)                        -ROT BOUNDS                              ?ÄÏ DUP  É Ô C! È ÌÏÏÐ DROP ;                                             : ERASE  0  Ô FILL ;                     : BLANK  ÂÌ Ô FILL ;                     : HERE!  È TDP ! ;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           \ ÒESOLVING                  KS29JUN85WE                                          ÆORTH DEFINITIONS                                                                 : RESOLVE  ( CFA.GHOST CFA.TARGET -)      OVER DUP @ <RES> =                         ÉÆ SPACE DUP >NAME .NAME ." EXISTS  "       2+ ! DROP EXIT ÔÈÅÎ                 >R >R 2+ @ ?DUP                          ÉÆ ÂÅÇÉÎ DUP Ô @ È                                 2DUP = ABORT" RESOLVE LOOP"          R@ ROT Ô ! È ?DUP 0= ÕÎÔÉÌ ÔÈÅÎ    R> R>  <RES> OVER !  2+ ! ;                                                      : RESDOES>  ( CFA.GHOST CFA.TARGET -)     SWAP GDOES> DUP @ <RES> =                ÉÆ 2+ ! EXIT ÔÈÅÎ SWAP RESOLVE ;                                                 ] ÄOES> [ HERE 3 - 0 ]                           DUP @ THERE  ROT ! Ô , È ;         ' <FORW> >BODY !                                                                ] ÄOES> [ HERE 3 - 0 ]                           @ Ô , È ;                          ' <RES>  >BODY !                      \ MOVE-THREADS  6502-ALIGN   CLV24.3.87)                                          : MOVE-THREADS                            ÔVOC @  ÔVOC-LINK @                      ÂÅÇÉÎ OVER ?DUP ×ÈÉÌÅ 2- @  OVER 2- Ô !        @ È  SWAP @ SWAP                   ÒÅÐÅÁÔ                                   ERROR" SOME UNDEF. ÔARGET-ÖOCS LEFT"     DROP ;                                                                            : TLATEST   ( - ADDR)                      ÃURRENT @ 6 +  ;                                                                : 6502-TALIGN  ( SUPPOSED CFA -- )       0ÆÆ AND 0ÆÆ =  ÉÆ  1 Ô ALLOT È  ÔÈÅÎ ;                                           : SAVE-TARGET   \ NAME MUST FOLLOW        08 02 BUSOPEN                            0 PARSE BUSTYPE " ,P,W" COUNT BUSTYPE    BUSOFF                                   08 02 BUSOUT                             DISPLACE @ 100 U/MOD SWAP BUS! BUS!      THERE DISPLACE @                           ÄÏ É Ô C@ È BUS! ÌÏÏÐ                  08 02 BUSCLOSE ;                       \ COMPILING NAMES INTO TARG.   11JUL20PZ                                          : (THEADER                                ?THEAD @  ÉÆ 1 ?THEAD +!                     THERE 6502-TALIGN EXIT ÔÈÅÎ          >IN @ NAME SWAP >IN !                    DUP C@ 1 020 UWITHIN NOT                                  ABORT" INVAL. ÔNAME"    DUP  C@ 5 +  THERE +  6502-TALIGN        BLK@  Ô , È                              THERE TLATEST DUP @  Ô , È !             THERE DUP TLAST !  OVER                  C@ 1+ DUP  Ô ALLOT CMOVE È  ;                                                                                             : ÔHEADER    TLAST OFF                    (THEADER ÇHOST                           DUP GLAST' ! THERE RESOLVE ;                                                                                                                                                                                                                                                                                                          \ PREBUILD DEFINING WORDS    BP27JUN85WE                                          Ü : EXECUTABLE?   ( ADR - ADR F)  DUP ;                                           Ü : TPFA,  THERE , ;                                                                                                       Ü : (PREBUILD   ( CFA.ADR -)              >IN @  ÃREATE  >IN !  HERE 2- ! ;                                                : PREBUILD   ( ADR 0.FROM.: - 0)          0 ?PAIRS                                 EXECUTABLE? DUP >R                       ÉÆ [COMPILE] ÌITERAL                         COMPILE  (PREBUILD                   ÅÌÓÅ DROP  ÔÈÅÎ                          COMPILE ÔHEADER  ÇHOST GDOES> ,          R>  ÉÆ COMPILE TPFA, ÔÈÅÎ 0 ;           IMMEDIATE RESTRICT                                                                                                                                                                                                                                                                            \ CODE PORTION OF DEF.WORDS  BP27JUN85WE                                          : DUMMY   0 ;                                                                                                              : ÄO>     ( - ADR.OF.JMP.DODOES> 0)                [COMPILE] DOES>  HERE 3 -                 COMPILE  @   0  ]  ;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  \ THE 6502 ÁSSEMBLER         BP27JUN85WE                                          Ü ÃREATE RELOCATE                         ] Ô C, , C@ HERE ALLOT ! C!   È [                                                ÔRANSIENT DEFINITIONS                                                             : ÁSSEMBLER  È                            [ ÁSSEMBLER ] RELOCATE >CODES !          ÁSSEMBLER ;                                                                      : >LABEL  ( 16B -) È                      >IN @ NAME GFIND  ROT >IN !               ÉÆ OVER RESOLVE DUP ÔÈÅÎ                DROP ÃONSTANT   ;                                                                : ÌABEL  È THERE Ô >LABEL  ÁSSEMBLER È ;                                          : ÃODE  È                                 ÔHEADER THERE 2+ Ô , ÁSSEMBLER È   ;                                                                                                                                                                                                                \ IMMED. RESTR. ' Ü COMPILE  BP27JUN85WE                                          : ?PAIRS    ( N1 N2 -- ) È                - ABORT" UNSTRUCTURED" ;                                                         : >MARK     ( - ADDR)  È THERE Ô 0 , È ; : >RESOLVE  ( ADDR -)  È                             THERE OVER - SWAP  Ô ! È ;   : <MARK     ( - ADDR)  È THERE ;         : <RESOLVE  ( ADDR -)  È THERE - Ô , È ;                                          : IMMEDIATE   È ÔLAST @ ?DUP              ÉÆ DUP Ô C@  040 OR SWAP C! È ÔÈÅÎ ;                                             : RESTRICT    È ÔLAST @ ?DUP              ÉÆ DUP Ô C@  080 OR SWAP C! È ÔÈÅÎ ;                                             : '   ( <NAME> - CFA)  È                  G' DUP @ <RES> -   ABORT" ?" 2+ @ ;                                              : Ü  È ?THEAD @ ?EXIT ?THEAD ON ;                                                 : COMPILE  È ÇHOST , ;                    IMMEDIATE  RESTRICT                                                             \ ÔARGET TOOLS               KS27JUN85WE                                          ÏNLYFORTH ÔTOOLS ALSO DEFINITIONS                                                 Ü : TTYPE   ( ADR N -)                    BOUNDS ?ÄÏ É Ô C@ È  EMIT ÌÏÏÐ ;                                                 : .NAME    ( NFA -)                       ?DUP                                     ÉÆ DUP 1+ SWAP Ô C@ È 01Æ AND TTYPE      ÅÌÓÅ ." ??? " ÔÈÅÎ  SPACE ?CR ;                                                  Ü : NFA? ( CFA LFA - NFA / CFA FF)          ÂÅÇÉÎ  DUP ×ÈÉÌÅ  2DUP 2+ DUP                     Ô C@ È 01Æ AND + 1+ =                     ÉÆ 2+ NIP EXIT ÔÈÅÎ                     Ô @ È  ÒÅÐÅÁÔ ;                                                       : >NAME  ( CFA - NFA / FF)                ÔVOC ÂÅÇÉÎ @ DUP ×ÈÉÌÅ UNDER 2- @ NFA?          ?DUP ÉÆ NIP EXIT ÔÈÅÎ                  SWAP  ÒÅÐÅÁÔ  NIP  ;                                                                                                                                         \ ÔTOOLS FOR DECOMPILING     KS29JUN85WE                                          Ü : ?:  DUP          4 U.R ." :"  ;      Ü : @?  DUP  Ô @  È  6 U.R  ;            Ü : C?  DUP  Ô C@ È  3  .R  ;                                                     : S  ( ADR - ADR+)                        ?: SPACE  C?  3 SPACES                   DUP 1+ OVER Ô C@ È TTYPE DUP             Ô C@ È + 1+ ;                                                                    : N  ( ADR - ADR+2)                       ?: @? 2 SPACES DUP                       Ô @ È [ ÔTOOLS ] >NAME .NAME È 2+ ;                                              : D  ( ADR N - ADR+N)                     2DUP SWAP ?: SWAP 0                        ÄÏ C? 1+ ÌÏÏÐ 2 SPACES -ROT TTYPE ;                                                                                                                                                                                                                                                                                                 \ ÔOOLS FOR DECOMPILING      BP29JUN85WE                                          : L  ( ADR - ADR+2)                       ?: 5 SPACES @? 2+  ;                                                             : C  ( ADR - ADR+1)   1 D ;                                                       : B  ( ADR - ADR+1)                       ?: @? DUP Ô @ È OVER + 5 U.R 2+ ;                                                : DUMP   ( ADR N -)                       BOUNDS ?ÄÏ CR É 8 D DROP STOP?             ÉÆ ÌÅÁÖÅ ÔÈÅÎ 8 +ÌÏÏÐ ;                                                        : VIEW                                    Ô ' È  [ ÔTOOLS ] >NAME                  ?DUP ÉÆ 4 - Ô @ È EDIT ÔÈÅÎ ;                                                                                                                                                                                                                                                                                                                                                  \ REINTERPRETATION DEF.-WORDS  27JUN85WE                                          ÏNLYFORTH                                                                         : REDEFINITION                            TDOES> @                                 ÉÆ >IN PUSH                                 [ ' >INTERPRET >BODY ] ÌITERAL PUSH     ÓTATE PUSH  ÃONTEXT PUSH                 >IN: @ >IN !                             NAME [ ' ÔRANSIENT 2+ ] ÌITERAL          (FIND NIP 0=                             ÉÆ                                        CR ." ÒEDEFINITION: " HERE .NAME        >IN: @ >IN ! : ÄEFINING INTERPRET        ÔÈÅÎ                                   ÔÈÅÎ                                     0 TDOES> ! ;                                                                                                                                                                                                                                                                                                                          \ ÃREATE..DOES> STRUCTURE    BP27JUN85WE                                          Ü : (;TCODE                               ÔLAST @ DUP Ô C@ + 1+ !  È RDROP ;                                               Ü : CHANGECFA                             COMPILE LIT TDOES> @  ,                  COMPILE (;TCODE ;                                                                ÄEFINING DEFINITIONS                                                              : ;CODE   0 ?PAIRS                        CHANGECFA  REVEAL  RDROP  ;              IMMEDIATE RESTRICT                                                               ÄEFINING  ' ;CODE  ÁLIAS  DOES>           IMMEDIATE RESTRICT                                                               : ;   [COMPILE] ; RDROP ;                 IMMEDIATE RESTRICT                                                                                                                                                                                                                                  \ REDEFINITION CONDITIONALS  BP27JUN85WE                                          ' ÄÏ    ÁLIAS  ÄÏ     IMMEDIATE RESTRICT ' ?ÄÏ   ÁLIAS  ?ÄÏ    IMMEDIATE RESTRICT ' ÌÏÏÐ  ÁLIAS  ÌÏÏÐ   IMMEDIATE RESTRICT ' ÉÆ    ÁLIAS  ÉÆ     IMMEDIATE RESTRICT ' ÔÈÅÎ  ÁLIAS  ÔÈÅÎ   IMMEDIATE RESTRICT ' ÅÌÓÅ  ÁLIAS  ÅÌÓÅ   IMMEDIATE RESTRICT ' ÂÅÇÉÎ ÁLIAS  ÂÅÇÉÎ  IMMEDIATE RESTRICT ' ÕÎÔÉÌ ÁLIAS  ÕÎÔÉÌ  IMMEDIATE RESTRICT ' ×ÈÉÌÅ ÁLIAS  ×ÈÉÌÅ  IMMEDIATE RESTRICT ' ÒÅÐÅÁÔ ÁLIAS  ÒÅÐÅÁÔ                    IMMEDIATE RESTRICT                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 \ CLEAR ÌITER. ÁSCII ['] ."  BP27JUN85WE                                          ÏNLYFORTH ÔRANSIENT DEFINITIONS                                                   : CLEAR  ÔRUE ABORT" ÔHERE ARE GHOSTS" ;                                          : ÌITERAL  ( N -)  È DUP $ÆÆ00 AND        ÉÆ Ô COMPILE LIT ,                       ÅÌÓÅ COMPILE CLIT C, È ÔÈÅÎ ; IMMEDIATE                                          : ÁSCII  È ÂÌ WORD 1+ C@                  ÓTATE @                                   ÉÆ Ô [COMPILE]  ÌITERAL È ÔÈÅÎ ;        IMMEDIATE                                                                        : [']     Ô ' [COMPILE] ÌITERAL È ;                IMMEDIATE RESTRICT                                                      : "       Ô COMPILE ("   ," È  ;                   IMMEDIATE RESTRICT                                                      : ."      Ô COMPILE (."  ," È  ;                   IMMEDIATE RESTRICT                                                                                              \ ÔARGET COMPILATION  ]  [   BP03JUL85WE                                          ÆORTH DEFINITIONS                                                                 : TCOMPILE                                ?STACK  >IN @                            NAME FIND ?DUP                           ÉÆ 0> ÉÆ NIP EXECUTE   >INTERPRET ÔÈÅÎ      DROP DUP >IN !  NAME ÔÈÅÎ             GFIND ÉÆ NIP EXECUTE   >INTERPRET ÔÈÅÎ   NULLSTRING? ÉÆ DROP EXIT ÔÈÅÎ            NUMBER? ?DUP                              ÉÆ 0> ÉÆ SWAP Ô [COMPILE] ÌITERAL ÔÈÅÎ       [COMPILE] ÌITERAL È DROP                 >INTERPRET ÔÈÅÎ                     DROP >IN ! ×ORD,                         >INTERPRET ; -2 ALLOT                                                            ÔRANSIENT DEFINITIONS                                                             : ]    È  ÓTATE ON                        ['] TCOMPILE IS >INTERPRET ;                                                                                                                                      \ ÔARGET CONDITIONALS        BP27JUN85WE                                          : ÉÆ      Ô COMPILE ?BRANCH >MARK È 1 ;            IMMEDIATE RESTRICT             : ÔÈÅÎ    ABS 1 Ô ?PAIRS >RESOLVE È ;              IMMEDIATE RESTRICT             : ÅÌÓÅ    Ô 1 ?PAIRS COMPILE BRANCH                >MARK SWAP >RESOLVE È -1 ;               IMMEDIATE RESTRICT             : ÂÅÇÉÎ   Ô <MARK È 2 ;                            IMMEDIATE RESTRICT             : ×ÈÉÌÅ   Ô 2 ?PAIRS  2 COMPILE ?BRANCH            >MARK -2  È 2SWAP ;                      IMMEDIATE RESTRICT                                                      Ü : (REPEAT  Ô 2 ?PAIRS  <RESOLVE È       ÂÅÇÉÎ DUP -2 = ×ÈÉÌÅ DROP Ô >RESOLVE È   ÒÅÐÅÁÔ ;                                                                         : ÕÎÔÉÌ   Ô COMPILE ?BRANCH (REPEAT È  ;           IMMEDIATE RESTRICT             : ÒÅÐÅÁÔ  Ô COMPILE BRANCH  (REPEAT È  ;           IMMEDIATE RESTRICT                                                                                              \ ÔARGET CONDITIONALS        BP27JUN85WE                                          : ÄÏ     Ô COMPILE (DO  >MARK È 3 ;               IMMEDIATE RESTRICT              : ?ÄÏ    Ô COMPILE (?DO >MARK È 3 ;               IMMEDIATE RESTRICT              : ÌÏÏÐ   Ô 3 ?PAIRS  COMPILE (LOOP                COMPILE ENDLOOP >RESOLVE È ;             IMMEDIATE RESTRICT              : +ÌÏÏÐ  Ô 3 ?PAIRS  COMPILE (+LOOP               COMPILE ENDLOOP >RESOLVE È ;             IMMEDIATE RESTRICT                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  \ PREDEFINITIONS             BP27JUN85WE                                          : ABORT"    Ô COMPILE (ABORT" ," È ;      IMMEDIATE                                                                        : ERROR"    Ô COMPILE (ERR"   ," È ;      IMMEDIATE                                                                                                                                                                                                   ÆORTH DEFINITIONS                                                                 ÖARIABLE TORIGIN                         ÖARIABLE TUDP       0 TUDP !                                                      : >USER  Ô C@ È TORIGIN @ + ;                                                                                                                                                                                                                                                                                                                                                   \ ÄATATYPES                  BP27JUN85WE                                          ÔRANSIENT DEFINITIONS                                                             : ORIGIN!  È TORIGIN !  ;                                                         : USER' ( - 8B)   Ô ' 2 + C@ È ;                                                  : UALLOT  ( N -) È TUDP @ SWAP TUDP +! ;                                                                                           ÄO> >USER ;                      : ÕSER  PREBUILD ÕSER  2 Ô UALLOT C, ;                                                       ÄO> ;                         : ÃREATE   PREBUILD ÃREATE  ;                                                                                                                                                                                                                                                                                                                                                                                            \ ÄATATYPES                  BP27JUN85WE                                                     ÄO> Ô @ È ;                   : ÃONSTANT PREBUILD ÃONSTANT  Ô , ;                                               : ÖARIABLE ÃREATE 2 Ô ALLOT ;                                                                                               DUMMY                                   : ÖOCABULARY                              È >IN @  ÖOCABULARY  >IN !               Ô PREBUILD ÖOCABULARY  0 , 0 ,           HERE È TVOC-LINK @ Ô ,  È TVOC-LINK ! ;                                                    ÄO>  ;                         : ÄEFER   PREBUILD ÄEFER 2 Ô ALLOT ;                                              : ÉS  Ô ' È >BODY  ÓTATE @                  ÉÆ Ô COMPILE (IS  ,                    È ÅÌÓÅ Ô ! È ÔÈÅÎ  ;   IMMEDIATE                                                                                                                                                                                                                    \ TARGET DEFINING WORDS      BP27JUN85WE                                          Ü : DODOES>                               Ô COMPILE (;CODE                         È ÇLAST' @  THERE  RESDOES>              THERE TDOES> ! ;                                                                 : ;CODE 0 Ô ?PAIRS DODOES>  ÁSSEMBLER     È [COMPILE] [  REDEFINITION ;            IMMEDIATE RESTRICT                                                               : DOES>                                   Ô DODOES>                                $4à C, COMPILE (DODOES> È ;              IMMEDIATE RESTRICT                                                                DUMMY                                   : :  È  TDOES> OFF  >IN @ >IN: !          Ô PREBUILD : È CURRENT @ CONTEXT !       Ô ] È 0 ;                                                                                                                                                                                                                                           \ :  ÁLIAS  ;                  02OCT87RE                                          : ÁLIAS ( N -- )  È ÔLAST OFF             (THEADER  ÇHOST  OVER RESOLVE            TLAST @ Ô C@ È 20 OR TLAST @ Ô C! ,      È ;                                                                              : ;  Ô 0 ?PAIRS                           COMPILE UNNEST [COMPILE] [               È REDEFINITION  ;                        IMMEDIATE  RESTRICT                                                               DUMMY                                   : ÉNPUT:  È  TDOES> OFF  >IN @ >IN: !     Ô PREBUILD ÉNPUT:                        È CURRENT @ CONTEXT !  Ô ] È 0 ;                                                  DUMMY                                   : ÏUTPUT:  È  TDOES> OFF  >IN @ >IN: !    Ô PREBUILD ÏUTPUT:                       È CURRENT @ CONTEXT !  Ô ] È 0 ;                                                                                                                                                                           \ PREDEFINITIONS             BP03JUL85WE                                          : COMPILE   Ô COMPILE COMPILE È ;                    IMMEDIATE  RESTRICT                                                   : ÈOST                                    È ÏNLYFORTH ÔTOOLS ALSO ;                                                        : ÃOMPILER                                Ô ÈOST È ÔRANSIENT ALSO DEFINITIONS ;                                            : [COMPILE] È ×ORD, ; IMMEDIATE RESTRICT                                          : ÏNLYPATCH È THERE 3 - 0 TDOES> ! 0 ;                                            ÏNLYFORTH                                                                         : ÔARGET                                  ÏNLYFORTH ÔRANSIENT ALSO DEFINITIONS ;                                                                                    ÔRANSIENT DEFINITIONS  ÇHOST C, DROP                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               \ ÔARGET ÃOMPILER ÍANUAL      CLV06DEC88                                          ÔARGET-ÃOMPILER VOLKSÆÏÒÔÈ 3.8 6502                                                                                                                                                                                                                                                                                                                                                                                       (C) VOLKSÆÏÒÔÈ-ÄEVELOPERS 1985-2006          AND ÆORTH ÇESELLSCHAFT E.Ö.              HTTP://WWW.FORTH-EV.DE                                                                                                                                                                                                                                                                                                                                                                                                                                        \ ..ÇEBRAUCHSANWEISUNG..      CLV05JAN87                                          1. ÉNTRODUCTION                             ÔHE ÔARGETCOMPILER IS WEIRD,             KRYPTIC AND SOMETIMES DANGEROUS.         ÉF AN ERROR OCCURS, REBOOT MACHINE       AND START FROM SCRATCH.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                \ ..ÍANUAL                    CLV06DEC88                                          2. ÌOAD                                                                           2.1. ÒELOCATE ÓYSTEM                        ÔHE ÒELOCATE ÓCREEN ON THIS ÄISK         CREATS AN ÅNVIRONMENT WITH ÓTACKS        ÓTACKLEN  $9400                          RÓTACKLEN $0400                                                                   ÌIMIT MUST BE $C000 WHICH IS DEFAULT     FOR Ã64, FOR Ã16 THIS VALUE MUST         BE DOWN-PATCHED                       2.1. LOAD SAVE-SYSTEM FROM DISK 1        2.2. LOAD ÅDITOR (IF NEEDED)             2.3. ÌOAD ÔARGETCOMPILER WITH ÌOADSCR.        FIRST ONLY THE RESIDENT PART        2.4. EXECUTE SAVESYSTEM                  2.5. LOAD ÔRAGETCOMPILER PREDEFINITIONS       (SEE BOTTOM OF ÌOADSCREEN)                                                                                                                                                                                                                      
AVOLKSFORTH 3.8tc  U3 2A    ÿ\ ..ÍANUAL                    CLV06DEC88                                                                                   2.6. LOAD ÓOURCES OF ÆORTH ËERNEL             ON A REAL MACHINE, THIS TAKES            ABOUT 30 MINUTES!                        - ÈOST AND ÔARGETMACHINE                   THE ÓOURCES ARE PREPARED FOR             Ã16 & Ã64. ÃHANGE THE DEFINITIONS        OF (Ã16 (Ã64 (SEE ÓCREEN AND             ÈANDBOOK)                              - ÂLK ## HERE #### THERE ####              WILL BE PRINTED AS STATUS MSG.         - VARIOUS <NAME> EXISTS                    ÍESSAGES ARE OK                        - AT THE ÅND  ÓÁÖÅÓÙÓÔÅÍ <NAME>            WILL BE PRINTED. ÃHANGE ÄISK!            AND THEN PRESS <RETURN> TO SAVE          NEW ÆORTH ÓYSTEM                                                                                                                                                                                                                                                                       \\ ..ÅXAMPLE SESSION          CLV06DEC88                                          3. ÅXAMPLE FOR ÃÂÍ ÐLUS 4                                                                                                     ÕSED ÄISKS:                              1OF4 .. 4OF4 - VOLKSÆORTH ÄISKS 3.8      ÔÃQ          - ÔARGETÃOMP ÓOURCE         ÔÃF          -     "    ÆILES (EMPTY)                                          3.1. ÃREATE A ÔARGETCOMPILER ÓYSTEM                                                                                           ÓWITCH ON ÐLUS4, INSERT ÄISK 1OF4                                                 ÄÉÒÅÃÔÏÒÙ                                -> ...                                                                            ÌÏÁÄ "Ã16ÕÌÔÒÁÆÏÒÔÈ83",8                 -> SEARCHING... LOADING...READY.                                                  ÒÕÎ                                      -> ULTRAÆÏÒÔÈ ... OK                                                                                                   \\ ..ÅXAMPLE ÓESSION          CLV06DEC88                                              INSERT ÄISK ÔÃQ                          4 LOAD FLUSH  \ RELOCATE                 -> VOLKSÆÏÒÔÈ83 ... OK                                                            INSERT ÄISK 3OF4                         19 LOAD FLUSH \ ÅDITOR                   -> BLK 4 BLK 5 ...... OK \ APPR5 MIN                                              INSERT ÄISK 1OF4                         26 LOAD FLUSH \ SAVESYSTEM                                                        INSERT ÄISK ÔÃQ                          $10 LOAD FLUSH \ ÔÃ-RESIDENT ÐART                                                 INSERT ÄISK ÔÃF                          SAVESYSTEM @:VF-TC-3.8                   -> OK  ÉF ÆLOPPY FLASHES: ÅRROR          \ @: IS: OVERWRITE IF NEEDED             \ THIS FILE WILL LATER REPLACE           \ THE RUNNING ÆORTH ÓYSTEM                                                                                                                                     \\ ..ÅXAMPLE ÓESSION          CLV06DEC88 3.2. ÃOMPILING A NEW ÓYSTEM                   FIRST AS FOR 3.1.                        OR:                                      ÌÏÁÄ "VF-TC-3.8",8                       -> SEARCHING...LOADING..READY.                                                    ÒÕÎ                                      -> VOLKSÆÏÒÔÈ83 ... OK                                                            INSERT ÄISK ÔÃQ                          HEX 27 30 THRU FLUSH                        \ LOAD TRANSIENT ÐART OF ÔÃ                                                    INSERT ÄISK 2OF4 (ÆORTH ÓOURCE)          $09 L \ EDIT ÓCREEN 9                            (C64 (C16 (C16+ (C16-                    (COMMENT IN OR OUT DEPEND.               ON ÔARGET-ÍASCHINE                                                        $F LOAD \ COMPILE SYSTEM                 INSERT ÔÃF OR BLANK DISK                 SAVETARGET C16ULTRAFORTH83           OR  SAVETARGET C64ULTRAFORTH83          - ÅÎÄÅ -                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                \\ ÔERMS:                                ÈOST      'NORMAL' ÆORTH-ÓYSTEM IN                 ÍACHINE                        ÔARGET    ÓYSTEM TO BE COMPILED          ÔRANSIENT ÖOCABULARY FOR Ô-ÃOMPILATION             IN ÈOST                                                                 NEEDS THE ÓPECIALASSEMBLER FOR ÔÃ        'NORMAL' ÁSSEMBLER                                                                ÓTARTADDRESS OF ÔARGET ÓYSTEMS IN ÈOST                                                                                                                                                                                                                                                         ÔOOLS FOR ÔARGET-ÓYSTEM                  ×ORDS FOR ÒEDEFINITIONS                                                                                                                                                                                                                                                                       \\                                                                                ÔARGET-DP                                HERE IN ÔARGET                                                                    ÓTARTADDRESS OF ÔARGET-ÓYSTEMS           ÉF 0, WE CREATE HEADER IN ÔARGET         NFA OF LAST CREATED WORD                 CFA OF LAST CREATED GHOST                CFA OF ÃODE FOR ÄOES>-ÐARTS              ÁDDRESS OF LAST : IN ÂLOCK               ÔVOC-ÌINK FOR ÈOST                       ÔVOC-ÌINK FOR ÔARGET                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                \\                                                                                SWITCHES TO ÒÁÍ UNDER ÏÓ                                                                                                   SWITCHES ÂACK                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               CALCULATES PHYSICAL ÁDDRESS FROM         TARGET ÁDDRESS                                                                    CMOVE TO ÈEAP WITH AUTOMATIC HALLOT      >IMAGE MUST BE ADJUSTED WHEN CHANGING    MEMORY MANAGENT FOR TARGET SYSTEM                                                 SAME WITH C@ AND C!                     \\                                                                                <FORW> POINTS TO CODE FOR FORWARD        <RES>  POINTS TO CODE FOR RESOLVED                                                    IF COMPILING, ÇHOST WILL BE LINKED   UNDER(!) LAST ÃONTEXT ×ORD               ELSE APPENDED TO ÃURRENT AS NORMAL       LFA ÇHOST POINTS TO LAST WORD  (S.A)     GET NAME AND CHECKS                                  FOR VALID LENGTH              ENLARGES NAME BY ONE BLANK              CALCULATES NAMELENGTH ( LEN START LINK)  CF.ÇHOST, CFA.ÔARGET, ÐTR TO ÄOES>.CFA   6502-ALIGN                               CMOVED ÇHOST ON ÈEAP                     LAST WORD POINTS NOT TO ÇHOST            CACLCULATES CFA.GHOST                                                             ÌAST (ÃURRENT @) WILL BE LINKED TO ; IN  REVEAL                                                                                                                                                                                                      \\                                                                                SEARCH FOR GHOST                                                                                                                                                    SEARCH FOR GHOST                         IF FOUND, FINISH                         IF NOT FOUND, IT WILL BE CREATED                                                  STORES CFA.GHOST ( <FORW> OR <RES> )                                                                                       ÁDR OF ÐTR TO ÄOES>.CFA                  IF EXISTING, CFA OF ÄOES>                ELSE CREATE ÐÔÒ AND SEE ABOVE                                                                                                                                       >HEAP STARTS ON EVEN ADDRESSES           => 6502-ALIGN                                                                                                                                                                                               \\                                                                                GETS CFA OF ÇHOST                                                                                                          GET STATE OF GHOST, IF FORWARD REFERENCE OR ALREADY RESOLVED (WITH CFA.ÔARGET)                                                                                      SAME FOR POSSIB.  ÄOES>-ÐARTS                                                                                                                                                                                                                                                                                                           WHILE ÔARGET-ÃOMPILATION ' WILL BE DONE  FOR ÇHOSTS                                                                                                                                                                                                                                                                                    \\                                                                                                                         IF CF =<FORW>                            AND AN ÁDDRESS EXISTS IN ÔARGET ÓYSTEM   EXIT UNRESOLVED? WITH ÔRUE-ÆLAG                                                                                            CHECKS IF NAME IS A ÇHOST                GETS CFA AND CHECKS FOR UNRESOLVED        SAME WITH ÄOES>-ÐART                                                                                                                                               PRINT FOR ÖOCABULARY ALL                 UNRESOLVED WORDS                                                                                                                                                    SEARCH THROUGH ALL ÖOCABULARIES          PRINT NON-RESOLVED WORDS                                                                                                                                                                                    \\                                                                                ÖOCABULARY STRUCTURE:                    ÎAME           ÂYTES                     ÃODE           FUER ÖOCABULARYS          ÌATEST          0 1                      ÃOLD-ÌATEST     2 3   NORMAL             ÖOC-LINK        4 5                      -------------------                      ÔLATEST         6 7   ADDITIONAL         ÔVOC-LINK       8 9                                                                                                        Ô AND È ARE ÉMMEDIATE AND REPLACING                   [ ÔRANSIENT ]                       OR   [ ÆORTH ]  È => ÈOST                                                                                                                                                                                                                                                                                                                                                                                        \\  ×ORDS FOR ÔARGET-ÃOMPILATION                                                  ×ORDS FOR VIRTUAL ÔARGET-ÍEMORY                                                   Ô C@ ACCES ÒÁÍ BELOW ÏÓ                                                           Ô C! ALSO                                ÁLL FOLLOWING WORDS USE C@ AND C!                                                                                                                                                                            CMOVE WORKS ONLY FROM ÈOST TO            ÔARGET, NOT OTHER DIRECTION                                                                                                                                                                                                                                                                    ÏN CHANGES TO THE VIRTUAL ÍEMORY-        ÍANAGEMENT, C@, C! AND >IMAGE            MUST BE ADJUSTED!                                                                                                         \\  ×ORDS FOR ÔARGET-ÃOMPILATION                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                \\                                                                                                                                                                  RESOLVES FORWARD REFERENCES              CHECKS, IF ALREADY RESOLVED              PRINT WARNING IF YES                     SET CFA.TARGET TO NEW VALUE, ÅND         ÆORWARDREFERENCE AVAILABLE ?             ÙES, GET ADDRESS IN ÔARGET                ÃANCEL, IF POINTING TO ITSELF           AND SET CFA.TARGET UNTIL ÅND             CFA.TARGET TO CFA.GHOST AND              RESOLVED AS CF.TARGET                                                             SAME FOR ÄOES>-ÐARTS                                                                                                       ÄOES> COMPILES A ÊÍÐ (DODOES>            (DODOES> BRINGS THE ON                   CFA.GHOST FOLLLOWING ADDRESS, WHICH IS   CFA.TARGET, ON THE STACK                 CFA.GHOST IS EITHER  <FORW> OR <RES>     CFA.TARGET IS THE CFA IN ÔARGET-ÓYSTEM   ALSO <FORW> OR ALREADY VALID            \\                                                                                                                         FOR ALL ÖOCABLUARIES IN ÔRANSIENT AND    ÔARGET SET ÔARGET-ÃOLD-ÌATEST            TO ÔRANSIENT-ÔLATEST                                                              ÅRROR, IF ÔVOC-LINK ALSO POINTS TO OTHER ÖOCABULARYS                                                                                                                ÐOINTS TO ÔLATEST IN ÔRANSIENT-ÖOCS                                                                                                                                                                          SAVES A ÔARGETSYSTEM AS ÐROGRAMM-        FILE ON ÄISK (Ã64-ÓPECIAL!!)                                                                                                                                                                                                                                                                                                           \\                                                                                                                         IF 0, ÈEADER, ELSE ?THEAD INCREMENT           6502-ALIGN AND ÅNDE                 GETS ÎAME AN CONVERTS TO CAPITAL         ÅRROR ON WRONG LENGTH                                                             CALULATES CFA AND 6502-ALIGN             ÂLOCKNUMBER FOR VIEW                     LINK IN OF NEW NAME IN ÃURRENT           ÔLAST FOR IMMEDIATE AND RESTRIC CREATE   SAVE ÎAME IN ÔARGET                                                                                                                 SET ÔLAST TO 0                  CREATE ÈEADER, CREATE ÇHOST, IF NEW,     CFA.GHOST TO ÇLAST' AND RESOLVE                                                                                                                                                                                                                                                                                                        \\                                                                                ON ÃREATE, ÕSER, ÃONSTANT, ÖARIABLE      AND ÄEFER, NOT FOR : UND ÖOCABULARY      COMPILING ÐTR TO PFA.TARGET IN ÈOST                                                                                        CREATES ÈEADER IN ÈOST WITH CFA.ADR      ÔHIS POINTS TO A ÄOES>-ÐART IN           ÔARGET (S.BELOW)                                                                  FROM:                                    IF CREATED WORD SHOULD BE EXECUTABLE     IN CURRENT, CREATE A HEADER ELSE NOT     WITH CORRESPONDING CFA                   ELSE NOT                                 CREATE HEADER IN ÔARGET AND COMPILE      AS CFA OF ÄOES>-ÐART                     STORE THIS ADDRESS IN ÈOST AS PDF                                                                                          PREBUILD IS A ÄEFINING-×ORD FOR          ÄEFINING-×ORDS !!                                                                                                         \\                                                                                RESULTS THAT WITH FOLLWING               ÄEFINING-×ORD CREATED WORDS CANNOT BE    EXECUTED                                 ÓPECIAL-ÄOES> FOR ×ORDS CREATED IN       ÃURRENT, GIVES PFA IN ÔARGET !                                                                                                                                      ÄO> ... ;  : ... ÂUILD ... ; SAME AS     ÃREATE ... ÄOES>                                                                  : ÄO>     [COMPILE] DOES> HERE 3 - 0 ] ;                                          : (BUILD  ÃREATE HERE 2- ! ;             : ÂUILD  (CFA 0 - 0)                               0 ?PAIRS  [COMPILE] ÌITERAL              COMPILE (BUILD 0 ;                                                                                                                                                                                                                                                                  \\                                                                                                                         ÁSSEMBLER ASSEMBLES IN ÔARGET NOW                                                                                                                                                                            ENABLES ÁSSEMBLER AND RELOCATE                                                                                                                                      IF LABEL ALREADY EXISTS AS ÇHOST,          RESOLVE FORWARD REFERENCE              AS ÃONSTANT IN ÈOST                                                               ÌABEL POINTS TO THERE                                                             ÓPECIAL-ÃODE FOR ÔARGET                                                                                                                                                                                                                                                                       \\                                       ÃONTROLSTRUCTURES FOR ÔARGET-ÓYSTEM                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             ' IN ÔRANSIENT ACCESSES ÇHOSTS AND       GETS CFA.TARGET                                                                   ÔHE NEXT WORD WILL BE CREATED WITHOUT    HEADER                                   WORKS ON ÈOST, NOT ON ÔARGET                                                                                              \\     ÔOOLS FOR ÔARGET-ÓYSTEM               SIMILAR TO NORMAL TOOLS                                                                                                PRINTS N CHARS AT ADDR                                                                                                     PRINTS NAME OF WORD, IF NFA <>0                                                                                            ELSE  ???                                                                         CHECKS, IF LFA NFA OF CFA IS AND         RETURNS NFA, ELSE  CFA AND FF                                                                                                                                                                                CONVERTS CFA IN NFA, IF POSSIBLE                                                                                                                                                                                                                                                              \\     ÔOOLS FOR ÔARGET-ÓYSTEM               SIMILAR TO NORMAL TOOLS                                                                                                                                                                                  PRINTS STRING AT ADR AND ADJUSTS ADR                                                                                                                                                                         PRINT NAME OF COMPILE WORD AND ADJUST    ADR                                                                                                                        PRINTS N BYTES FROM ADR AND ADJUSTS ADR                                                                                                                                                                                                                                                                                                                                                                                  \\     ÔOOLS FOR ÔARGET-ÓYSTEM                                                                                                                                                                                                                                                                                                                                                                                            PRINTS N ÂYTES AT ADR, LIKE D, BUT NICE  FORMATTED                                                                                                                  DISPLAYS ÓOURCECODESCREEN OF WORD                                                                                                                                                                                                                                                                                                                                                                                                                                 \\                                                                                ALLOWS EXECUTION OF NEW CREATED DEFINING WORDS DURING TARGET COMPILATION                                                   IS ;CODE OR DOES> ?                       YES, SAVE SYSTEMSTATE                                                             >IN TO BEGIN OF LAST ÃOLONDEF.                                                     NO AS PREDEFINITION IN                   ÔRANSIENT AVAILABLE?                     YES, PRINT "ÒEDEFINITION: " AND LAST         ÎAMES                                >IN ADJUST, ÆORTH-: EXECUTE AND SWITCH   ON ÄEFININING AS ÃONTEXT                                                          RESET TDOES>                                                                                                                                                                                                                                                                                                                         \\                                                                                CHANGES THE CFA OF LST DEFINED WORD      TO ÄOES>-ÐART IN ÔARGET                                                                                                    COMPILES, WHICH COMPILES THE ADR OF      ÄOES>-PART AND (;CODE WHEN EXECUTED                                                                                        ;CODE AND ÄOES> MUST BE DEFINED IN REDEF                                          SAME AS ÄO> FOR PREBUILD                 STORES LAST WORD IN ÈOST AND JUMPS       IN REDEFINITION BEHIND INTERPRET                                                  ÓTRUCTUR OF A IN ÈOST CREATED WORD:      LFA\NAME\CFA TO JMP (DOEDOES\PFA TO      ÄOES>-ÐART IN ÔARGET                                                              ×ORDS, CREATED BY ÒEDEFINITION OF        ÄEFINING ×ORDS, RETURN THEIR             ÐÆÁ, WHEN EXECUTED IN ÈOST                                                                                                \\                                                                                ÆORTH-ÃONTROLLSTRUCTURES, BECAUSE        ÔRANSIENT WILL FIND WORDS FOR ÔARGET                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 \\         ÐREDEFINITIONS                ×ORDS THAT MUST BE EXECUTABLE IN         ÔRANSIENT                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     \\    MAIN ÃOMPILELOOP                                                                                                                                                                                                                                SEARCH FOR NAMES IN ÔRANSIENT AND ÆORTH  FOUND, EXECUTE, IF IMMEDIATE                ELSE RESET  >IN                       SEARCH ÇHOST AND EXDCUTE  CFA                                                     ÎUMBER?, IF YES, EXECUTE ÌITERAL (Ô!)                                                                                                                               CREATE NEW GHOST AND COMPILE FORWARD     REFERENCE                                                                                                                                                           ENABLE ÃOMPILER, SET >INTERPRET          FROM TCOMPILE                                                                                                                                                      \\ ÃONDITIONALS FOR  ÔARGET-ÃOMPILATION                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         \\ ÃONDITIONALS FOR  ÔARGET-ÃOMPILATION                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         \\                                                                                ÉMMEDIATE-×ORDS FOR ÔARGET                                                                                                                                                                                                                                                                                                                                                                                                                                         ORIGIN IN TARGET                         UDP    IN TARGET                                                                  CALCULATES ÁDDRESS IN ÕSER-ÁREA FROM     ÁDDRESS OF ÏFFSET                                                                                                                                                                                                                                                                                                                      \\                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ÕSER-ÖARIABLE ARE ALSO EXECUTABLE IN     ÔRANSIENT AND RETURN ÔARGET-ÁDDRESSES                                                                                      ×ITG ÃREATE COMPILED ×ORDS ARE EXECUT-   ABLE IN ÔRANSIENT AND RETURN THE         PFA.TARGET                                                                                                                                                                                                                                                                                                                             \\                                                                                ÁLSO ÃONSTANT AND ÖARIABLE CAN BE EXECUT ED IN ÔRANSIENT AND REZTURN THE ÔARGET   ÖALUES                                                                                                                                                                                                       ÖOCABULARYS ARE EXECUTABLE IN TRANSIENT                                                                                    ÖOCABULARY 'NAME' CREATED:                                                        1. Á ÖOCABULARY ÅNTRY IN ÃURRENT WITH       5 FIELDS CONNECTED ON TVOC            2. Á ÖOCABULARY ÅNTRY IN ÃURRENT WITH       3 ÆIELDS CONNECTED ON TVOC-LINK       3. Á ÇHOST                                                                                                                                                                                                                                                                                    \\                                                                                                                         CREATES A ÖARIABLE-HEADER                                                         SAME AS ÉS IN ÆORTH                                                                                                                                                 CREATES ÃODE KILE ;CODE IN ÆORTH                                                  ÆORWARDREFERNCE FOR ÄOES>-ÐART WILL      RESOLVED AND TDOES> SET FOR REDEFINITION                                          LIKE ;CODE IN ÆORTH, BUT WITH REDEFINITI ON                                                                                                                         LIKE ÄOES> IN ÆORTH, BUT WITH DODOES>                                                                                                                                                                                                                                                         \\                                                                                                                         DISABLE REDEFINITION                      CREATE SMALL ENTRY IN ÔRANSIENT          FOR WITH : CREATED WORDS                 SET ÃONTEXT TO FIRST FIX ÖOC            CREATE ÈEADER IN ÔARGET                  AND RESOLVE FORWARD-REFERNCE WITH        ÁLIAS-CFA                                SAME AS HIDE IN ÆORTH                                                             SAME AS  ; IN ÆORTH, AND REDEFINITION    IS STARTED                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 \\                                                                                CREATES COMPILE AS FORWARDREFERNCE !!                                                                                      SET ORDER TO:                            ÔTOOLS ÔTOOLS ÆORTH ÏNLY                                                          AS ÈOST, ORDER:                          ÔRANSIENT ÔRANSIENT ÔTOOLS ÆORTH ÏNLY                                             COMPILS THE CFA.TARGET OF ÇHOSTS                                                  ÓPECIAL-ÃODE FOR ÏNLY-ÖOCABULARY                                                                                           SET ORDER FOR ÔARGET-ÃOMPILATION:        ÔRANSIENT ÔRANSIENT ÆORTH ÏNLY                                                    ÔHANKS TO ËLAUS FOR 'PUNCTUATION?' !!!                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               
\ No newline at end of file
diff --git a/6502/C64/disks/tc38q.fth b/6502/C64/disks/tc38q.fth
index 463b343..362de15 100644
--- a/6502/C64/disks/tc38q.fth
+++ b/6502/C64/disks/tc38q.fth
@@ -449,12 +449,15 @@ Code cSave ( f t+1 Name Nlen dev--err)
 
 \ *** Block No. 16, Hexblock 10
 
-\ Target compiler loadscr     clv14oct87
+\ Target compiler loadscr      11jul20pz
 \ Idea and first Implementation by ks/bp
 \ Implemented on 6502  by ks/bp
 \ volksFORTH83-Version by bp/we
 
 Onlyforth hex
+: (blk@  blk @ ;
+Defer blk@  ' (blk@ is blk@
+
 \needs (16   .( ?! (16 (64 ?! C) quit
 Assembler \needs nonrelocate 5 load
 Assembler nonrelocate
@@ -472,9 +475,6 @@ clear
 \ hex 17 20 +thru   \ predefinitions
 
 
-
-
-
 \ *** Block No. 17, Hexblock 11
 
 \ Target header pointers     bp27jun85we
@@ -785,7 +785,7 @@ Forth definitions
 
 \ *** Block No. 28, Hexblock 1c
 
-\ compiling names into targ. bp27jun85we
+\ compiling names into targ.   11jul20pz
 
 : (theader
  ?thead @  IF 1 ?thead +!
@@ -794,7 +794,7 @@ Forth definitions
  dup c@ 1 020 uwithin not
                   abort" inval. Tname"
  dup  c@ 5 +  there +  6502-talign
- blk @  T , H
+ blk@  T , H
  there tlatest dup @  T , H !
  there dup tlast !  over
  c@ 1+ dup  T allot cmove H  ;
diff --git a/6502/C64/src/vf-blk-10-7d.fth b/6502/C64/src/vf-blk-10-7d.fth
index 181fe08..0f7805b 100644
--- a/6502/C64/src/vf-blk-10-7d.fth
+++ b/6502/C64/src/vf-blk-10-7d.fth
@@ -1,462 +1,13 @@
 
-\ *** Block No. 0, Hexblock 0
-
-\\ Directory volksFORTH 2of4   26oct87re
-
-.                    0
-..                   0
-misc               $08
-C64/C16            $09
-System             $0F
-C64interface       $7d
-C16init            $94
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-\ *** Block No. 1, Hexblock 1
-
-\\ Content volksFORTH 2of4     26oct87re
-
-Directory            0
-Content              1
-misc               $08
-C64 or  C16        $09
-System             $0F
-C64/C16interface   $7d
-                   $95-a9 free
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-\ *** Block No. 2, Hexblock 2
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-\ *** Block No. 3, Hexblock 3
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-\ *** Block No. 4, Hexblock 4
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-\ *** Block No. 5, Hexblock 5
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-\ *** Block No. 6, Hexblock 6
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-\ *** Block No. 7, Hexblock 7
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-\ *** Block No. 8, Hexblock 8
-
-\ ram rom jsr NormJsr f.C16+ clv12.4.87)
-
-
-Assembler also definitions
-
-(c16+ \ 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
-)
-
-
-
-
-
-
-
-
-
-
-\ *** Block No. 9, Hexblock 9
-
-\ Target-Machine              clv06dec88
-
-Onlyforth
-
-
-cr .( Host is: )
-    (64  .( C64) C)
-    (16  .( C16) C)
-
-       : )     ; immediate
-       : (C    ; immediate
-
-       : (C64  ; immediate
-\      : (C16  ; immediate
-\      : (C16+ ; immediate
-\      : (C16- ; immediate
-
-\      : (C64  [compile] ( ; immediate
-       : (C16  [compile] ( ; immediate
-       : (C16+ [compile] ( ; immediate
-       : (C16- [compile] ( ; immediate
-
-
-
-
-
-\ *** Block No. 10, Hexblock a
-
-\ load/remove  JSR-Macros    clv14.4.87)
-
-Assembler also definitions
-
-(C16+ \needs C16+Jsr          -2 +load )
-(C16+ ' C16+Jsr Is Jsr .( JSR Is:C16+  )
-(C16+ \\ skips rest of screen
-
-\ all other platforms don't need
-\ macros, so we skip the rest:
-\
-
-\needs C16+Jsr \\
-
-\ if macro exist, redefine it:
-
-' NormJsr Is Jsr .( JSR Is:Norm )
-
-
-
-
-
-
-
-
-
-\ *** Block No. 11, Hexblock b
-
-cr .( Target is: ) \         clv14.4.87)
-
-
-(C    .( CBM )
-(C64  .( C64 )
-(C16  .( C16 with )
-(C16+ .( 64kb )
-(C16- .( 32kb )
-
-cr .( Target is not: )
-
-(C    \ )      .( CBM, )
-(C64  \ )      .( C64, )
-(C16  \ )      .( C16, )
-(C16+ \ )      .( C16+64kb, )
-(C16- \ )      .( C16-32kb, )
-
-
-
-
-
-
-
-
-
-
-\ *** Block No. 12, Hexblock c
-
-\ ramfill                             3:
-
-Onlyforth
-
-Code ramfill   ( adr n 8b -)
- sei  34 # lda  1 sta
- 3 # lda setup jsr
- N 3 + ldx txa  N 2+ ora 0<>
-  ?[ N lda 0 # ldy
-    [[ 0 # cpx 0<>
-      ?[[ [[ N 4 + )Y sta iny 0= ?]
-          N 5 + inc dex ]]?
-   N 2+ ldx 0<> ?[
-   [[ N 4 + )Y sta iny N 2+ cpy CS ?] ]?
-  ]?
- 36 # lda  1 sta cli
- 0 # ldx 1 # ldy Next jmp
-end-code
-
-$C000 $4000 (16 $300 - C)  0 ramfill
-
-forget ramfill
-
-
-
-
-\ *** Block No. 13, Hexblock d
-
-( Deleting Assembler Labels bp27jun85we)
-
-: delete   Assembler name find
- IF  >name count $1F and
-   bounds ?DO $1F I c! LOOP
- ELSE  count type space THEN ;
-
-delete setup     delete xyNext
-delete Puta      delete SP
-delete Pop       delete Next
-delete N         delete UP
-delete Poptwo    delete W
-delete IP        delete RP
-delete Push      delete Push0A
-delete PushA     delete ;c:
-
-forget delete Onlyforth
-
-
-
-
-
-
-
-
-
-\ *** Block No. 14, Hexblock e
-
-( Definition for  .status     28jun85we)
-
-: status
- blk @ ?dup IF
-  ."  blk " u.
-  ." here "  here u.
-  ." there " there u.
-  ." heap "  heap u.  cr
-  THEN ;
-
-' status is .status
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-\ *** Block No. 15, Hexblock f
-
-\ C64    Forth loadscreen     clv14oct87
-
-Onlyforth hex
-  -3    +load   \ clear memory and
-  -2 -1 +thru   \ clr labels  .status
-  -6 -4 +thru   \ Target-Machine
-Onlyforth
-
-(C64 $801 ) (C16 $1001 ) dup displace !
-
-Target definitions   here!
-
-$1 $6E +thru
-
-Assembler nonrelocate
-
-.unresolved
-
-' .blk is .status
-
-    -4 +load    \ Print Target-Machine
-
-cr .( save-target volksforth83)
-91 con! ( Cursor up) quit
-
-
 \ *** Block No. 16, Hexblock 10
+10 fthpage
 
 \ FORTH Preamble and ID       clv06aug87
 
-(C64  $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)
-(C16  $D c, 10 c, $A c, 00 c, 9E c,
-28 c, 34 c, 31 c, 31 c, 32 c, 29 c,
-00 c, 00 c, 00 c, 00 c, ) \ SYS(4112)
+(C64  $D c, $8 c, $A c, 00 c, 9E c, 28 c, 32 c, 30 c, )
+(C64  36 c, 34 c, 29 c, 00 c, 00 c, 00 c, 00 c, ) \ SYS(2064)
+(C16  $D c, 10 c, $A c, 00 c, 9E c, 28 c, 34 c, 31 c, )
+(C16  31 c, 32 c, 29 c, 00 c, 00 c, 00 c, 00 c, ) \ SYS(4112)
 
 Assembler
   nop  0 jmp  here 2- >label >cold
@@ -476,6 +27,7 @@ Create logo
 
 
 \ *** Block No. 17, Hexblock 11
+11 fthpage
 
 ( Zero page Variables & Next  03apr85bp)
 
@@ -491,19 +43,8 @@ Create logo
      W 8 + >label N
 
 
-
-
-
-
-
-
-
-
-
-
-
-
 \ *** Block No. 18, Hexblock 12
+12 fthpage
 
 ( Next, moved into Zero page  08apr85bp)
 
@@ -526,12 +67,8 @@ Code end-trace  ( Patch Next for trace )
  Next jmp   end-code
 
 
-
-
-
-
-
 \ *** Block No. 19, Hexblock 13
+13 fthpage
 
 \ ;c:  noop                    02nov87re
 
@@ -560,6 +97,7 @@ Code noop   Next here 2- !  end-code
 
 
 \ *** Block No. 20, Hexblock 14
+14 fthpage
 
 \ User variables              clv14oct87
 
@@ -588,6 +126,7 @@ User udp
 
 
 \ *** Block No. 21, Hexblock 15
+15 fthpage
 
 ( manipulate system pointers  29jan85bp)
 
@@ -616,6 +155,7 @@ end-code restrict
 
 
 \ *** Block No. 22, Hexblock 16
+16 fthpage
 
 ( manipulate returnstack   16feb85bp/ks)
 
@@ -644,6 +184,7 @@ Label (nrdrop    clc  RP adc  RP sta
 
 
 \ *** Block No. 23, Hexblock 17
+17 fthpage
 
 \ r@ rdrop  exit  ?exit       clv12jul87
 
@@ -672,6 +213,7 @@ end-code
 
 
 \ *** Block No. 24, Hexblock 18
+18 fthpage
 
 ( execute  perform            08apr85bp)
 
@@ -700,6 +242,7 @@ Code execute  ( addr --)
 
 
 \ *** Block No. 25, Hexblock 19
+19 fthpage
 
 ( c@   c! ctoggle             10jan85bp)
 
@@ -728,6 +271,7 @@ Label (2drop
 
 
 \ *** Block No. 26, Hexblock 1a
+1a fthpage
 
 ( @ ! +!                      08apr85bp)
 
@@ -756,6 +300,7 @@ Code +!  ( n addr --)
 
 
 \ *** Block No. 27, Hexblock 1b
+1b fthpage
 
 ( drop swap                   24may84ks)
 
@@ -784,6 +329,7 @@ Code swap  ( 16b1 16b2 -- 16b2 16b1 )
 
 
 \ *** Block No. 28, Hexblock 1c
+1c fthpage
 
 ( dup  ?dup                   08may85bp)
 
@@ -799,19 +345,14 @@ Code ?dup     ( 16b -- 16b 16b / false)
  ' dup @ jmp end-code
 
 
-\\ : ?dup   ( 16b -- 16b 16b / false)
-    dup  IF  dup  THEN ;
-
-   : dup    Sp@  @  ;
-
-
-
-
-
-
+\   : ?dup   ( 16b -- 16b 16b / false)
+\    dup  IF  dup  THEN ;
+\
+\   : dup    Sp@  @  ;
 
 
 \ *** Block No. 29, Hexblock 1d
+1d fthpage
 
 ( over rot                    13jun84ks)
 
@@ -834,12 +375,13 @@ Code rot
  N 1+ lda  SP )Y sta
  1 # ldy  Next jmp   end-code
 
-\\ : rot   >r swap r> swap ;
-   : over  >r dup r> swap ;
+\   : rot   >r swap r> swap ;
+\   : over  >r dup r> swap ;
 
 
 
 \ *** Block No. 30, Hexblock 1e
+1e fthpage
 
 ( -rot nip under pick roll    24dec83ks)
 
@@ -859,15 +401,13 @@ Code rot
  dup >r pick sp@ dup 2+ r> 1+ 2* cmove>
  drop ;
 
-\\ : -roll ( n --)
- >r dup sp@  dup 2+ dup 2+ swap
- r@ 2* cmove r> 1+ 2* + ! ;
-
-
-
+\  : -roll ( n --)
+\ >r dup sp@  dup 2+ dup 2+ swap
+\ r@ 2* cmove r> 1+ 2* + ! ;
 
 
 \ *** Block No. 31, Hexblock 1f
+1f fthpage
 
 ( double word stack manip.    21apr83ks)
 
@@ -896,6 +436,7 @@ Code 2drop ( 32b -- )
 
 
 \ *** Block No. 32, Hexblock 20
+20 fthpage
 
 ( + and or xor                08apr85bp)
 
@@ -924,6 +465,7 @@ Code xor   ( 16b1 16b2 -- 16b3)
 
 
 \ *** Block No. 33, Hexblock 21
+21 fthpage
 
 ( -  not  negate              24dec83ks)
 
@@ -952,6 +494,7 @@ Code negate   ( n1 -- n2 )
 
 
 \ *** Block No. 34, Hexblock 22
+22 fthpage
 
 ( dnegate setup d+            14jun84ks)
 
@@ -980,6 +523,7 @@ Code d+      ( d1 d2 -- d3)
 
 
 \ *** Block No. 35, Hexblock 23
+23 fthpage
 
 ( 1+ 2+ 3+    1- 2-           08apr85bp)
 
@@ -1008,6 +552,7 @@ Code 2-   ( n1 -- n2)
  clc (1- bcc  end-code
 
 \ *** Block No. 36, Hexblock 24
+24 fthpage
 
 ( number Constants            24dec83ks)
 
@@ -1036,6 +581,7 @@ Code 2-   ( n1 -- n2)
 
 
 \ *** Block No. 37, Hexblock 25
+25 fthpage
 
 ( words for number literals   24may84ks)
 
@@ -1057,13 +603,12 @@ Label (bump   IP 2inc
 immediate restrict
 
 
-\\ : lit     r> dup 2+ >r  @  ;
-   : clit    r> dup 1+ >r  c@ ;
-
-
+\  : lit     r> dup 2+ >r  @  ;
+\  : clit    r> dup 1+ >r  c@ ;
 
 
 \ *** Block No. 38, Hexblock 26
+26 fthpage
 
 ( comparision code words      13jun84ks)
 
@@ -1092,6 +637,7 @@ Code uwithin  ( u1 [low up[  -- flag)
 
 
 \ *** Block No. 39, Hexblock 27
+27 fthpage
 
 ( comparision code words      13jun84ks)
 
@@ -1120,6 +666,7 @@ Code u<   ( u1 u2 -- flag)
 
 
 \ *** Block No. 40, Hexblock 28
+28 fthpage
 
 ( comparision words           24dec83ks)
 
@@ -1148,6 +695,7 @@ Code u<   ( u1 u2 -- flag)
 
 
 \ *** Block No. 41, Hexblock 29
+29 fthpage
 
 ( min max umax umin extend dabs abs  ks)
 
@@ -1176,6 +724,7 @@ Code u<   ( u1 u2 -- flag)
  extend IF   negate THEN ;
 
 \ *** Block No. 42, Hexblock 2a
+2a fthpage
 
 \ loop primitives              02nov87re
 
@@ -1195,15 +744,12 @@ Code u<   ( u1 u2 -- flag)
 Code endloop  ( -- )
  6 # lda (nrdrop jmp   end-code restrict
 
-\\ dodo puts  "index | limit |
- adr.of.DO"  on return-stack
-
-
-
-
+\  dodo puts  "index | limit |
+\ adr.of.DO"  on return-stack
 
 
 \ *** Block No. 43, Hexblock 2b
+2b fthpage
 
 \ (loop (+loop                 02nov87re
 
@@ -1232,6 +778,7 @@ Code (+loop  ( n -- )
 
 
 \ *** Block No. 44, Hexblock 2c
+2c fthpage
 
 ( loop indices                08apr85bp)
 
@@ -1260,6 +807,7 @@ Code J  ( -- n)
 
 
 \ *** Block No. 45, Hexblock 2d
+2d fthpage
 
 \ branching                    02nov87re
 
@@ -1276,18 +824,15 @@ Code ?branch  ( flag -- )
 end-code   restrict
 
 
+\   : branch   r> dup @ + >r ; restrict
 
-\\  : branch   r> dup @ + >r ; restrict
-
-    : ?branch  ( flag -- )
-     0= r> over not over 2+  and -rot
-     dup @ + and or >r ;       restrict
-
-
-
+\   : ?branch  ( flag -- )
+\    0= r> over not over 2+  and -rot
+\    dup @ + and or >r ;       restrict
 
 
 \ *** Block No. 46, Hexblock 2e
+2e fthpage
 
 ( resolve loops and branches  03feb85bp)
 
@@ -1316,6 +861,7 @@ end-code   restrict
 
 
 \ *** Block No. 47, Hexblock 2f
+2f fthpage
 
 ( case?                       04may85bp)
 
@@ -1335,15 +881,13 @@ Code case?
  txa  Push0A jmp   end-code
 
 
-
-\\ : case?
- ( 16b1 16b2 -- 16b1 false / true )
- over = dup  IF  nip  THEN ;
-
-
+\  : case?
+\ ( 16b1 16b2 -- 16b1 false / true )
+\ over = dup  IF  nip  THEN ;
 
 
 \ *** Block No. 48, Hexblock 30
+30 fthpage
 
 ( Branching                   03feb85bp)
 
@@ -1372,6 +916,7 @@ Code case?
          (reptil ; immediate restrict
 
 \ *** Block No. 49, Hexblock 31
+31 fthpage
 
 ( Loops                    29jan85ks/bp)
 
@@ -1392,14 +937,12 @@ Code case?
 : LEAVE  endloop r> 2- dup @ + >r ;
          restrict
 
-\\ Returnstack: calladr | index
-                  limit | adr of DO
-
-
-
+\   Returnstack: calladr | index
+\                  limit | adr of DO
 
 
 \ *** Block No. 50, Hexblock 32
+32 fthpage
 
 ( um*                      bp/ks13.2.85)
 
@@ -1421,13 +964,14 @@ Code um*  ( u1 u2 -- ud)
  Next jmp   end-code
 
 
-\\ : um*   ( u1 u2 -- ud3)
- >r 0 0 0 r>  $10 0
-  DO  dup 2/ >r  1 and IF 2over d+ THEN
-      >r >r 2dup d+ r> r> r>  LOOP
- drop 2swap 2drop ;
+\  : um*   ( u1 u2 -- ud3)
+\  >r 0 0 0 r>  $10 0
+\  DO  dup 2/ >r  1 and IF 2over d+ THEN
+\      >r >r 2dup d+ r> r> r>  LOOP
+\ drop 2swap 2drop ;
 
 \ *** Block No. 51, Hexblock 33
+33 fthpage
 
 ( m* 2*                       04jul84ks)
 
@@ -1456,6 +1000,7 @@ Code 2*  ( n1 -- n2)
 
 
 \ *** Block No. 52, Hexblock 34
+34 fthpage
 
 ( um/mod                      04jul84ks)
 
@@ -1484,6 +1029,7 @@ Code um/mod  ( ud u -- urem uquot)
  Puta jmp    end-code
 
 \ *** Block No. 53, Hexblock 35
+35 fthpage
 
 ( 2/ m/mod                    24dec83ks)
 
@@ -1512,6 +1058,7 @@ Code 2/  ( n1 -- n2)
 
 
 \ *** Block No. 54, Hexblock 36
+36 fthpage
 
 ( /mod / mod */mod */ u/mod  ud/mod  ks)
 
@@ -1540,6 +1087,7 @@ Code 2/  ( n1 -- n2)
 
 
 \ *** Block No. 55, Hexblock 37
+37 fthpage
 
 ( cmove cmove> (cmove>       bp 08apr85)
 
@@ -1568,6 +1116,7 @@ Label (cmove>
 
 
 \ *** Block No. 56, Hexblock 38
+38 fthpage
 
 ( place count  erase       16feb85bp/ks)
 
@@ -1596,6 +1145,7 @@ Code count ( addr -- addr+1 len)
 
 
 \ *** Block No. 57, Hexblock 39
+39 fthpage
 
 ( fill                        11jun85bp)
 
@@ -1610,20 +1160,13 @@ Code fill  ( addr quan 8b -- )
  Next jmp   end-code
 
 
-\\
-: fill  ( addr quan 8b --)   swap ?dup
-       IF  >r over c! dup 1+ r> 1- cmove
-  exit  THEN  2drop  ;
-
-
-
-
-
-
-
+\ : fill  ( addr quan 8b --)   swap ?dup
+\        IF  >r over c! dup 1+ r> 1- cmove
+\   exit  THEN  2drop  ;
 
 
 \ *** Block No. 58, Hexblock 3a
+3a fthpage
 
 ( here Pad allot , c, compile 24dec83ks)
 
@@ -1652,6 +1195,7 @@ Code fill  ( addr quan 8b -- )
 
 
 \ *** Block No. 59, Hexblock 3b
+3b fthpage
 
 ( input strings               24dec83ks)
 
@@ -1680,6 +1224,7 @@ Variable span   0 span !
 
 
 \ *** Block No. 60, Hexblock 3c
+3c fthpage
 
 ( scan skip /string           12oct84bp)
 
@@ -1708,6 +1253,7 @@ Variable span   0 span !
 
 
 \ *** Block No. 61, Hexblock 3d
+3d fthpage
 
 \ capital                     clv06aug87
 
@@ -1725,17 +1271,17 @@ Code capital  ( char -- char' )
  SP X) lda  (capital jsr  SP X) sta
  Next jmp    end-code
 
-\\ The new (capital does:
+\  The new (capital does:
 
-No  00-40,5b-60,7b-c1-da-dc-ff no change
-==    -@ , [-@ ,  -A -Z -| -      ..
-
-No  41-5a,61-7a        changes to:c1-da
-==   a-z , A-Z                     A-Z
+\ No  00-40,5b-60,7b-c1-da-dc-ff no change
+\ ==    -@ , [-@ ,  -A -Z -| -      ..
 
+\ No  41-5a,61-7a        changes to:c1-da
+\ ==   a-z , A-Z                     A-Z
 
 
 \ *** Block No. 62, Hexblock 3e
+3e fthpage
 
 \ capitalize                  clv06aug87
 
@@ -1746,24 +1292,25 @@ Code capitalize  ( string -- string )
    iny N )Y lda  (capital jsr  N )Y sta
  ]]   end-code
 
-\\ : capitalize  ( string -- string )
- dup  count  bounds
-  ?DO  I c@  capital  I c!  THEN  LOOP ;
+\ : capitalize  ( string -- string )
+\  dup  count  bounds
+\   ?DO  I c@  capital  I c!  THEN  LOOP ;
 
-\\ capital ( char -- char )
-   Ascii a  Ascii z 1+  uwithin
-   IF  I c@  [ Ascii a  Ascii A - ]
- Literal -  ;
+\ capital ( char -- char )
+\    Ascii a  Ascii z 1+  uwithin
+\    IF  I c@  [ Ascii a  Ascii A - ]
+\  Literal -  ;
 
-\\ Label (capital  \ for Ascii only
- Ascii a # cmp
- CS ?[  Ascii z  1+ # cmp
-    CC ?[      sec
-           Ascii a Ascii A - # sbc
-  ]? ]?  rts  end-code
+\ Label (capital  \ for Ascii only
+\  Ascii a # cmp
+\  CS ?[  Ascii z  1+ # cmp
+\     CC ?[      sec
+\            Ascii a Ascii A - # sbc
+\   ]? ]?  rts  end-code
 
 
 \ *** Block No. 63, Hexblock 3f
+3f fthpage
 
 ( (word                       08apr85bp)
 
@@ -1792,6 +1339,7 @@ Code capitalize  ( string -- string )
 
 
 \ *** Block No. 64, Hexblock 40
+40 fthpage
 
 ( (word                       08apr85bp)
 
@@ -1820,6 +1368,7 @@ Code capitalize  ( string -- string )
 
 
 \ *** Block No. 65, Hexblock 41
+41 fthpage
 
 ( (word                       08apr85bp)
 
@@ -1848,6 +1397,7 @@ Code capitalize  ( string -- string )
 
 
 \ *** Block No. 66, Hexblock 42
+42 fthpage
 
 ( source word parse name      08apr85bp)
 
@@ -1865,17 +1415,16 @@ Code capitalize  ( string -- string )
  bl word  capitalize  exit  ;
 
 
-\\
-: word  ( char -- addr)        >r
- source  over swap  >in @  /string
- r@ skip  over  swap  r> scan
- >r  rot over swap  - r> 0<> -  >in !
- over - here place  bl here count + c!
- here ;
-
+\ : word  ( char -- addr)        >r
+\  source  over swap  >in @  /string
+\  r@ skip  over  swap  r> scan
+\  >r  rot over swap  - r> 0<> -  >in !
+\  over - here place  bl here count + c!
+\  here ;
 
 
 \ *** Block No. 67, Hexblock 43
+43 fthpage
 
 \ state Ascii ,"  ("  "        02nov87re
 
@@ -1904,6 +1453,7 @@ Variable state    0 state !
 
 
 \ *** Block No. 68, Hexblock 44
+44 fthpage
 
 ( ." ( .( \ \\ hex decimal    08sep84ks)
 
@@ -1932,6 +1482,7 @@ Variable state    0 state !
 
 
 \ *** Block No. 69, Hexblock 45
+45 fthpage
 
 ( number conv.:  digit?  accumulate  ks)
 
@@ -1960,6 +1511,7 @@ Variable state    0 state !
  1-  count ;
 
 \ *** Block No. 70, Hexblock 46
+46 fthpage
 
 ( ?nonum ?num fixbase?        13feb85ks)
 
@@ -1988,6 +1540,7 @@ Variable dpl   -1 dpl !
 
 
 \ *** Block No. 71, Hexblock 47
+47 fthpage
 
 ( number? number 'number  01oct87clv/re)
 
@@ -2016,6 +1569,7 @@ Defer 'number?     ' number? Is 'number?
 
 
 \ *** Block No. 72, Hexblock 48
+48 fthpage
 
 ( hide reveal immediate restrict     ks)
 
@@ -2044,6 +1598,7 @@ Variable last     0 last !
 
 
 \ *** Block No. 73, Hexblock 49
+49 fthpage
 
 ( clearstack hallot heap heap?11feb85bp)
 
@@ -2072,6 +1627,7 @@ Code clearstack
 
 
 \ *** Block No. 74, Hexblock 4a
+4a fthpage
 
 ( Does>  ;                 30dec84ks/bp)
 
@@ -2100,6 +1656,7 @@ Label docreate
 
 
 \ *** Block No. 75, Hexblock 4b
+4b fthpage
 
 ( 6502-align  ?head  |        08sep84bp)
 
@@ -2128,6 +1685,7 @@ Variable ?head    0 ?head !
 
 
 \ *** Block No. 76, Hexblock 4c
+4c fthpage
 
 ( warning   Create            30dec84bp)
 
@@ -2156,6 +1714,7 @@ Variable warning  0 warning !
 
 
 \ *** Block No. 77, Hexblock 4d
+4d fthpage
 
 ( nfa?                        30dec84bp)
 
@@ -2179,11 +1738,12 @@ Variable warning  0 warning !
       N 1+ lda  N 5 + cmp  0= ?]
  ' 2+ @ jmp       end-code
 
-\\ vocabthread=0 that is empty Vocabul-
- ary in nfa? is not allowed
+\ vocabthread=0 that is empty Vocabul-
+\ ary in nfa? is not allowed
 
 
 \ *** Block No. 78, Hexblock 4e
+4e fthpage
 
 ( >name name> >body .name     03feb85bp)
 
@@ -2212,6 +1772,7 @@ Variable warning  0 warning !
 
 
 \ *** Block No. 79, Hexblock 4f
+4f fthpage
 
 \ : ; Constant Variable       clv16jul87
 
@@ -2240,6 +1801,7 @@ Variable warning  0 warning !
 
 
 \ *** Block No. 80, Hexblock 50
+50 fthpage
 
 ( uallot User Alias        10jan85ks/bp)
 
@@ -2268,6 +1830,7 @@ Variable warning  0 warning !
 
 
 \ *** Block No. 81, Hexblock 51
+51 fthpage
 
 ( voc-link vp current context also   bp)
 
@@ -2296,13 +1859,11 @@ Variable current
 
 
 \ *** Block No. 82, Hexblock 52
+52 fthpage
 
 (  Vocabulary Forth Only Forth-83 ks/bp)
 
-: Vocabulary
- Create  0 , 0 ,
- here voc-link @ ,  voc-link !
- Does>  context ! ;
+: Vocabulary  Create  0 , 0 ,  here voc-link @ ,  voc-link !  Does>  context ! ;
 
 \ Name | Code | Thread | Coldthread |
 \ Voc-link
@@ -2324,6 +1885,7 @@ Vocabulary Only
 
 
 \ *** Block No. 83, Hexblock 53
+53 fthpage
 
 ( definitions order words  13jan84bp/ks)
 
@@ -2352,11 +1914,12 @@ Vocabulary Only
 
 
 \ *** Block No. 84, Hexblock 54
+54 fthpage
 
 ( (find                       08apr85bp)
 
-Code (find  ( string thread
-       -- string false / namefield true)
+Code (find
+( string thread -- string false / namefield true)
  3 # ldy [[ SP )Y lda N ,Y sta dey 0< ?]
  N 2+ X) lda $1F # and N 4 + sta
 
@@ -2380,6 +1943,7 @@ Label findloop   0 # ldy
 
 
 \ *** Block No. 85, Hexblock 55
+55 fthpage
 
 ( found                       29jan85bp)
 
@@ -2400,14 +1964,15 @@ Label findloop   0 # ldy
  txa  1 # ldy  SP )Y sta
  Next jmp  end-code
 
-\\ | : found  ( nfa -- cfa n )
-      dup   c@ >r   (name>
-            r@ $20 and  IF @ THEN
-        -1  r@ $80 and  IF 1- THEN
-            r> $40 and  IF negate THEN ;
+\ | : found  ( nfa -- cfa n )
+\       dup   c@ >r   (name>
+\             r@ $20 and  IF @ THEN
+\         -1  r@ $80 and  IF 1- THEN
+\             r> $40 and  IF negate THEN ;
 
 
 \ *** Block No. 86, Hexblock 56
+56 fthpage
 
 ( find  ' [']                 13jan85bp)
 
@@ -2436,6 +2001,7 @@ Label findloop   0 # ldy
 
 
 \ *** Block No. 87, Hexblock 57
+57 fthpage
 
 ( >interpret                  28feb85bp)
 
@@ -2448,22 +2014,12 @@ Variable >interpret
 
 jump  ' >interpret !
 
-\\ make Variable >interpret to special
-   Defer
-
-
-
-
-
-
-
-
-
-
-
+\ make Variable >interpret to special
+\    Defer
 
 
 \ *** Block No. 88, Hexblock 58
+58 fthpage
 
 ( interpret interactive   01oct87clv/re)
 
@@ -2492,6 +2048,7 @@ Defer  notfound
 
 
 \ *** Block No. 89, Hexblock 59
+59 fthpage
 
 ( compiling [ ]           01oct87clv/re)
 
@@ -2520,6 +2077,7 @@ Defer  notfound
 
 
 \ *** Block No. 90, Hexblock 5a
+5a fthpage
 
 \ perfom  Defer Is             02nov87re
 
@@ -2548,6 +2106,7 @@ Defer  notfound
 
 
 \ *** Block No. 91, Hexblock 5b
+5b fthpage
 
 ( ?stack                  01oct87clv/re)
 
@@ -2571,11 +2130,12 @@ Code ?stack
  1 # ldy  CS ?[  Next jmp ]?
  ;c: true Abort" stack empty" ;
 
-\\ : ?stack
- sp@  here - $100 u< IF stackfull THEN
- sp@  s0 @ u> Abort" stack empty" ;
+\ : ?stack
+\  sp@  here - $100 u< IF stackfull THEN
+\  sp@  s0 @ u> Abort" stack empty" ;
 
 \ *** Block No. 92, Hexblock 5c
+5c fthpage
 
 ( .status push load           08sep84ks)
 
@@ -2604,6 +2164,7 @@ Defer .status    ' noop Is .status
 
 
 \ *** Block No. 93, Hexblock 5d
+5d fthpage
 
 ( +load thru +thru --> rdepth depth  ks)
 
@@ -2632,6 +2193,7 @@ Defer .status    ' noop Is .status
 
 
 \ *** Block No. 94, Hexblock 5e
+5e fthpage
 
 ( quit (quit abort            07jun85bp)
 
@@ -2660,6 +2222,7 @@ Defer 'abort   ' noop Is 'abort
 
 
 \ *** Block No. 95, Hexblock 5f
+5f fthpage
 
 \ (error Abort" Error"         02nov87re
 
@@ -2688,6 +2251,7 @@ Variable scr 1 scr !  Variable r# 0 r# !
  ," ; immediate  restrict
 
 \ *** Block No. 96, Hexblock 60
+60 fthpage
 
 ( -trailing                   08apr85bp)
 
@@ -2707,15 +2271,8 @@ Label (-trail
  tya Push0A jmp   end-code
 
 
-
-
-
-
-
-
-
-
 \ *** Block No. 97, Hexblock 61
+61 fthpage
 
 ( space spaces             29jan85ks/bp)
 
@@ -2724,26 +2281,14 @@ Label (-trail
 : spaces  ( u --)  0  ?DO space LOOP ;
 
 
-\\
-: -trailing  ( addr n1 -- addr n2)
- 2dup  bounds
-    ?DO 2dup + 1- c@ bl -
-      IF LEAVE THEN  1- LOOP  ;
-
-
-
-
-
-
-
-
-
-
-
-
+\ : -trailing  ( addr n1 -- addr n2)
+\  2dup  bounds
+\     ?DO 2dup + 1- c@ bl -
+\       IF LEAVE THEN  1- LOOP  ;
 
 
 \ *** Block No. 98, Hexblock 62
+62 fthpage
 
 ( hold <# #> sign # #s        24dec83ks)
 
@@ -2772,6 +2317,7 @@ Label (-trail
 
 
 \ *** Block No. 99, Hexblock 63
+63 fthpage
 
 ( print numbers               24dec83ks)
 
@@ -2800,6 +2346,7 @@ Label (-trail
 
 
 \ *** Block No. 100, Hexblock 64
+64 fthpage
 
 \ .s list c/l l/s             clv4:jul87
 
@@ -2828,6 +2375,7 @@ Label (-trail
 
 
 \ *** Block No. 101, Hexblock 65
+65 fthpage
 
 ( multitasker primitives      bp03nov85)
 
@@ -2856,6 +2404,7 @@ end-code
 
 
 \ *** Block No. 102, Hexblock 66
+66 fthpage
 
 ( buffer mechanism            15dec83ks)
 
@@ -2868,22 +2417,23 @@ Variable buffers  0 buffers !
 0408 Constant b/buf
         \ Physical Size
 
-\\ Structure of Buffer:
- 0 : link
- 2 : file
- 4 : blocknr
- 6 : statusflags
- 8 : Data .. 1 KB ..
+\ Structure of Buffer:
+\  0 : link
+\  2 : file
+\  4 : blocknr
+\  6 : statusflags
+\  8 : Data .. 1 KB ..
 
-Statusflag bits: 15   1 -> updated
+\ Statusflag bits: 15   1 -> updated
 
-file = -1 empty buffer
-     = 0 no fcb , direct access
-     = else  adr of fcb
-     ( system   dependent )
+\ file = -1 empty buffer
+\      = 0 no fcb , direct access
+\      = else  adr of fcb
+\      ( system   dependent )
 
 
 \ *** Block No. 103, Hexblock 67
+67 fthpage
 
 ( search for blocks in memory 11jun85bp)
 
@@ -2912,6 +2462,7 @@ Label thisbuffer?        2 # ldy
 
 
 \ *** Block No. 104, Hexblock 68
+68 fthpage
 
 (   "                         11jun85bp)
 
@@ -2940,34 +2491,30 @@ Label blockfound     SP 2inc
 
 
 \ *** Block No. 105, Hexblock 69
+69 fthpage
 
 \ (core?                       23sep85bp
 
-\\
-
-| : this?   ( blk file bufadr -- flag )
-   dup 4+ @  swap 2+ @  d= ;
-
-| : (core?
-   ( blk file -- dataaddr / blk file )
-  BEGIN  over offset @ + over  prev @
-    this? IF rdrop 2drop prev @ 8 + exit
-          THEN
-    2dup >r offset @ + >r prev @
-    BEGIN  dup @ ?dup
-       0= IF rdrop rdrop drop exit THEN
-      dup r> r> 2dup >r >r  rot this? 0=
-    WHILE  nip  REPEAT
-    dup @ rot !  prev @ over !  prev !
-    rdrop rdrop
-  REPEAT ;
-
-
-
+\ | : this?   ( blk file bufadr -- flag )
+\    dup 4+ @  swap 2+ @  d= ;
 
+\ | : (core?
+\    ( blk file -- dataaddr / blk file )
+\   BEGIN  over offset @ + over  prev @
+\     this? IF rdrop 2drop prev @ 8 + exit
+\           THEN
+\     2dup >r offset @ + >r prev @
+\     BEGIN  dup @ ?dup
+\        0= IF rdrop rdrop drop exit THEN
+\       dup r> r> 2dup >r >r  rot this? 0=
+\     WHILE  nip  REPEAT
+\     dup @ rot !  prev @ over !  prev !
+\     rdrop rdrop
+\   REPEAT ;
 
 
 \ *** Block No. 106, Hexblock 6a
+6a fthpage
 
 ( (diskerr                    11jun85bp)
 
@@ -2996,6 +2543,7 @@ Defer r/w
 
 
 \ *** Block No. 107, Hexblock 6b
+6b fthpage
 
 ( backup emptybuf readblk     11jun85bp)
 
@@ -3024,6 +2572,7 @@ Defer r/w
 
 
 \ *** Block No. 108, Hexblock 6c
+6c fthpage
 
 ( take mark updates? full? core?     bp)
 
@@ -3052,6 +2601,7 @@ Defer r/w
 
 
 \ *** Block No. 109, Hexblock 6d
+6d fthpage
 
 ( block & buffer manipulation 11jun85bp)
 
@@ -3080,6 +2630,7 @@ Defer r/w
 
 
 \ *** Block No. 110, Hexblock 6e
+6e fthpage
 
 ( block & buffer manipulation 09sep84ks)
 
@@ -3108,6 +2659,7 @@ Defer r/w
 
 
 \ *** Block No. 111, Hexblock 6f
+6f fthpage
 
 ( moving blocks               15dec83ks)
 
@@ -3136,6 +2688,7 @@ Defer r/w
 
 
 \ *** Block No. 112, Hexblock 70
+70 fthpage
 
 \ Allocating buffers          clv12jul87
 
@@ -3164,6 +2717,7 @@ E400 Constant limit     Variable first
 
 
 \ *** Block No. 113, Hexblock 71
+71 fthpage
 
 ( endpoints of forget      04jan85bp/ks)
 
@@ -3192,6 +2746,7 @@ E400 Constant limit     Variable first
 
 
 \ *** Block No. 114, Hexblock 72
+72 fthpage
 
 \ remove                       23jul85we
 
@@ -3220,6 +2775,7 @@ E400 Constant limit     Variable first
 
 
 \ *** Block No. 115, Hexblock 73
+73 fthpage
 
 ( remove-     forget-words    29apr85bp)
 
@@ -3248,6 +2804,7 @@ Defer custom-remove
 
 
 \ *** Block No. 116, Hexblock 74
+74 fthpage
 
 ( deleting words from dict.   13jan83ks)
 
@@ -3276,6 +2833,7 @@ Defer custom-remove
 
 
 \ *** Block No. 117, Hexblock 75
+75 fthpage
 
 \ save bye stop? ?cr         clv2:jull87
 
@@ -3304,14 +2862,13 @@ Defer custom-remove
 
 
 \ *** Block No. 118, Hexblock 76
+76 fthpage
 
 ( in/output structure         02mar85bp)
 
-| : Out:  Create dup c,  2+
-          Does> c@ output @ +  perform ;
+| : Out:  Create dup c,  2+  Does> c@ output @ +  perform ;
 
-  : Output:  Create:
-             Does>  output ! ;
+  : Output:  Create:  Does>  output ! ;
 
 0  Out: emit   Out: cr     Out: type
    Out: del    Out: page   Out: at
@@ -3321,17 +2878,16 @@ drop
 : row   ( -- row)  at? drop ;
 : col   ( -- col)  at? nip ;
 
-| : In:    Create dup c, 2+
-           Does> c@ input @ + perform ;
+| : In:    Create dup c, 2+  Does> c@ input @ + perform ;
 
-  : Input:  Create:
-            Does> input ! ;
+  : Input:  Create:  Does> input ! ;
 
 0  In: key   In: key?   In: decode
    In: expect
 drop
 
 \ *** Block No. 119, Hexblock 77
+77 fthpage
 
 ( Alias  only definitionen    29jan85bp)
 
@@ -3360,6 +2916,7 @@ Host Target
 
 
 \ *** Block No. 120, Hexblock 78
+78 fthpage
 
 \ 'cold                   01oct87clv/re)
 
@@ -3388,6 +2945,7 @@ Defer 'restart  ' noop Is 'restart
 
 
 \ *** Block No. 121, Hexblock 79
+79 fthpage
 
 \ forth-init              01oct87clv/re)
 
@@ -3416,6 +2974,7 @@ Label donothing rts
 
 
 \ *** Block No. 122, Hexblock 7a
+7a fthpage
 
 \ cold restart                 06nov87re
 
@@ -3444,11 +3003,12 @@ Label xyNext
 
 
 \ *** Block No. 123, Hexblock 7b
+7b fthpage
 
 \ System-Loadscreen       01oct87clv/re)
 
- 3 $18 +thru          \ CBM-Interface
-(c16+    19 +load )   \ c16init RamIRQ
+ $7E $93 thru          \ CBM-Interface
+(c16+    $94 load )    \ c16init RamIRQ
 
 
 Host  ' Transient 8 + @
@@ -3472,6 +3032,7 @@ Forth also definitions
 
 
 \ *** Block No. 124, Hexblock 7c
+7c fthpage
 
 ( System dependent Constants      bp/ks)
 
@@ -3500,16 +3061,15 @@ xyNext Constant xyNext
 (drop  Constant Pop
 
 \ *** Block No. 125, Hexblock 7d
+7d fthpage
 
 \ System patchup              clv06aug87
 
 Forth definitions
 
-(C64  C000 ' limit >body !
-      7B00 s0 !  7F00 r0 ! )
+(C64  C000 ' limit >body !  7B00 s0 !  7F00 r0 ! )
 
-(C16  8000 ' limit >body !
-      7700 s0 !  7b00 r0 ! )
+(C16  8000 ' limit >body !  7700 s0 !  7b00 r0 ! )
 
 \ (C16+ fd00 ' limit >body !
 \       7B00 s0 !  7F00 r0 ! )
@@ -3520,1241 +3080,3 @@ here dp !
 Host  Tudp @          Target  udp !
 Host  Tvoc-link @     Target  voc-link !
 Host  move-threads
-
-
-
-
-
-
-
-\ *** Block No. 126, Hexblock 7e
-
-\ CBM-Labels                   05nov87re
-
-$FFA5 >label ACPTR
-$FFC6 >label CHKIN
-$FFC9 >label CHKOUT
-$FFD2 >label CHROUT
-$FF81 >label CINT
-$FFA8 >label CIOUT
-$FFC3 >label CLOSE
-$FFCC >label CLRCHN
-$FFE4 >label GETIN
-$FF84 >label IOINIT
-$FFB1 >label LISTEN
-$FFC0 >label OPEN
-$FFF0 >label PLOT
-$FF8A >label RESTOR
-$FF93 >label SECOND
-$FFE1 >label STOP
-$FFB4 >label TALK
-$FF96 >label TKSA
-$FFEA >label UDTIM
-$FFAE >label UNLSN
-$FFAB >label UNTLK
-$FFCF >label CHRIN
-$FF99 >label MEMTOP
-
-\ *** Block No. 127, Hexblock 7f
-
-\ C64-Labels                 clv13.4.87)
-
-(C64
-
-0E716 >label ConOut
-  09d >label MsgFlg
-  09a >label OutDev
-  099 >label  InDev
-0d020 >label BrdCol
-0d021 >label BkgCol
- 0286 >label PenCol
-  0ae >label PrgEnd
-  0c1 >label IOBeg
-  0d4 >label CurFlg
-  0d8 >label InsCnt
- 028a >label KeyRep
-
-
-
-
-
-)
-
-
-
-
-\ *** Block No. 128, Hexblock 80
-
-\ C16-Labels                 clv13.4.87)
-
-(C16
-
-0ff4c >label ConOut
-  09a >label MsgFlg
-  099 >label OutDev
-  098 >label  InDev
-0ff19 >label BrdCol
-0ff15 >label BkgCol
- 0540 >label PenCol
-  09d >label PrgEnd
-  0b2 >label IOBeg
-  0cb >label CurFlg
-  0cf >label InsCnt
- 0540 >label KeyRep
-
-
-
-
- 055d >label PKeys
-)
-
-
-
-
-\ *** Block No. 129, Hexblock 81
-
-\ c64key? getkey              clv12jul87
-
-Code c64key? ( -- flag)
-(C64  0C6 lda            ( )
-(c16  0ef lda  055d ora  ( )
- 0<> ?[  0FF # lda  ]? pha
- Push jmp  end-code
-
-Code getkey  ( -- 8b)
-(C64 0C6 lda  0<>
- ?[  sei  0277 ldy
-  [[  0277 1+ ,X lda  0277 ,X sta  inx
-      0C6 cpx  0= ?]
-  0C6 dec  tya  cli  0A0 # cmp
-  0= ?[  bl # lda  ]?
- ]? ( )
-(C16 0ebdd jsr
-  0A0 # cmp 0= ?[  bl # lda  ]? ( )
- Push0A jmp   end-code
-
-
-
-
-
-
-
-\ *** Block No. 130, Hexblock 82
-
-( curon curoff               clv12.4.87)
-
-(C16  Code curon \ --
-0ca lda clc 0c8 adc 0ff0d sta
-0c9 lda     0 # adc 0b # sbc 0ff0c sta
-next jmp end-code
-
-Code curoff \ --
-0ff # lda ff0c sta 0ff0d sta Next jmp
-end-code )
-
-(C16 \\ )
-
-Code curon   ( --)
- 0D3 ldy  0D1 )Y lda  0CE sta  0CC stx
- xyNext jmp   end-code
-
-Code curoff   ( --)
- iny  0CC sty  0CD sty  0CF stx
- 0CE lda  0D3 ldy  0D1 )Y sta
- 1 # ldy  Next jmp   end-code
-
-
-
-
-
-\ *** Block No. 131, Hexblock 83
-
-( #bs #cr ..keyboard         clv12.4.87)
-
-
-: c64key  ( -- 8b)
- curon BEGIN pause c64key?  UNTIL
- curoff getkey ;
-
-14 Constant #bs   0D Constant #cr
-
-: c64decode
- ( addr cnt1 key -- addr cnt2)
-  #bs case?  IF  dup  IF del 1- THEN
-                            exit  THEN
-  #cr case?  IF  dup span ! exit THEN
-  >r  2dup +  r@ swap c!  r> emit  1+ ;
-
-: c64expect ( addr len1 -- )
- span !  0
- BEGIN  dup span @  u<
- WHILE  key  decode
- REPEAT 2drop space ;
-
-Input: keyboard   [ here input ! ]
- c64key c64key? c64decode c64expect ;
-
-
-\ *** Block No. 132, Hexblock 84
-
-( con! printable?            clv11.4.87)
-
-Code con!  ( 8b --)   SP X) lda
-Label (con!     ConOut jsr    SP 2inc
-Label (con!end  CurFlg stx InsCnt stx
- 1 # ldy ;c:  pause ;
-
-Label (printable?   \ for CBM-Code !
-                    \ CS is printable
-  80 # cmp  CC ?[   bl # cmp  rts  ]?
- 0E0 # cmp  CC ?[  0C0 # cmp  rts  ]?
- clc  rts  end-code
-
-Code printable? ( 8b -- 8b flag)
- SP X) lda  (printable? jsr CS ?[ dex ]?
- txa  PushA jmp     end-code
-
-
-
-
-
-
-
-
-
-
-\ *** Block No. 133, Hexblock 85
-
-( emit cr del page at at?    clv11.4.87)
-
-Code c64emit  ( 8b -- )
- SP X) lda  (printable? jsr
-    CC ?[  Ascii . # lda ]?
- (con! jmp   end-code
-
-: c64cr     #cr con! ;
-
-: c64del    9D con!  space  9D con! ;
-
-: c64page   93 con! ;
-
-Code c64at  ( row col --)
- 2 # lda  Setup jsr
- N 2+ ldx  N ldy  clc  PLOT jsr
-(C16 \ ) 0D3 ldy  0D1 )Y lda   0CE sta
- xyNext jmp  end-code
-
-Code c64at?  ( -- row col)
- SP 2dec txa  SP )Y sta
- sec  PLOT jsr
- 28 # cpy  tya  CS ?[ 28 # sbc ]?
- pha  txa  0 # ldx  SP X) sta  pla
- Push0A jmp  end-code
-
-\ *** Block No. 134, Hexblock 86
-
-( type display (bye          clv11.4.87)
-
-Code  c64type  ( adr len -- )
- 2 # lda  Setup jsr  0 # ldy
-  [[  N cpy  0<>
-  ?[[  N 2+ )Y lda  (printable? jsr
-         CC ?[  Ascii . # lda  ]?
- ConOut jsr  iny  ]]?
- (con!end jmp   end-code
-
-Output: display   [ here output ! ]
- c64emit c64cr c64type c64del c64page
- c64at c64at? ;
-
-(C64  | Create (bye  $FCE2  here 2- ! )
-
-(C16- | Create (bye  $FF52  here 2- ! )
-
-(C16+ | CODE   (bye  rom $FF52 jmp
-                             end-code )
-
-
-
-
-
-
-\ *** Block No. 135, Hexblock 87
-
-\ b/blk drive >drive drvinit  clv14:2x87
-
-400 Constant b/blk
-
-0AA Constant blk/drv
-
-Variable (drv    0 (drv !
-
-| : disk ( -- dev.no )   (drv @ 8 + ;
-
-: drive  ( drv# -- )
- blk/drv *  offset ! ;
-
-: >drive ( block drv# -- block' )
- blk/drv * +   offset @ - ;
-
-: drv?    ( block -- drv# )
- offset @ + blk/drv / ;
-
-: drvinit  noop ;
-
-
-
-
-
-
-\ *** Block No. 136, Hexblock 88
-
-( i/o busoff                  10may85we)
-
-Variable i/o  0 i/o !  \ Semaphore
-
-Code busoff  ( --)   CLRCHN jsr
-Label unlocki/o  1 # ldy  0 # ldx
- ;c:  i/o unlock ;
-
-Label nodevice     0 # ldx  1 # ldy
- ;c:  busoff   buffers unlock
-      true Abort" no device" ;
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-\ *** Block No. 137, Hexblock 89
-
-\ ?device                     clv12jul87
-
-Label (?dev
- 90 stx (C16 $ae sta ( ) LISTEN jsr
-        \ because of error in OS
- 60 # lda  SECOND jsr  UNLSN jsr
- 90 lda  0<> ?[ pla pla nodevice jmp ]?
- rts    end-code
-
- Code (?device  ( dev --)
- SP X) lda  (?dev jsr  SP 2inc
- unlocki/o jmp  end-code
-
-: ?device  ( dev -- )
- i/o lock  (?device ;
-
- Code (busout  ( dev 2nd -- )
- MsgFlg stx  2 # lda  Setup jsr
- N 2+ lda  (?dev jsr
- N 2+ lda  LISTEN jsr
- N lda  60 # ora SECOND jsr
- N 2+ ldx  OutDev stx
- xyNext jmp  end-code
-
-
-
-\ *** Block No. 138, Hexblock 8a
-
-\ busout/open/close/in        clv12jul87
-
-: busout    ( dev 2nd -- )
- i/o lock (busout ;
-
-: busopen   ( dev 2nd -- )
- 0F0 or busout ;
-
-: busclose  ( dev 2nd -- )
- 0E0 or busout busoff ;
-
- Code (busin  ( dev 2nd -- )
- MsgFlg stx  2 # lda  Setup jsr
- N 2+ lda  (?dev jsr
- N 2+ lda  TALK jsr
- N lda  60 # ora (C16 $ad sta ( )
- TKSA jsr
-\ because of error in old C16 OS
- N 2+ ldx  InDev stx
- xyNext jmp end-code
-
-: busin  ( dev 2nd -- )
- i/o lock  (busin ;
-
-
-
-\ *** Block No. 139, Hexblock 8b
-
-( bus-!/type/@/input derror?  24feb85re)
-
-Code bus!  ( 8b --)
- SP X) lda  CIOUT jsr  (xydrop jmp
- end-code
-
-: bustype  ( adr n --)
- bounds  ?DO  I c@ bus!  LOOP pause ;
-
-Code bus@  ( -- 8b)
- ACPTR jsr Push0A jmp  end-code
-
-: businput  ( adr n --)
- bounds  ?DO  bus@ I c! LOOP pause ;
-
-: derror?  ( -- flag )
- disk $F busin bus@  dup Ascii 0 -
-  IF  BEGIN emit bus@ dup #cr =  UNTIL
-  0= cr  THEN   0=  busoff ;
-
-
-
-
-
-
-
-\ *** Block No. 140, Hexblock 8c
-
-( s#>s+t  x,x                 28may85re)
-
-165 | Constant 1.t
-1EA | Constant 2.t
-256 | Constant 3.t
-
-| : (s#>s+t ( sector# -- sect track)
-      dup 1.t u< IF 15 /mod exit THEN
- 3 +  dup 2.t u< IF 1.t - 13 /mod 11 +
-                            exit THEN
-      dup 3.t u< IF 2.t - 12 /mod 18 +
-                            exit THEN
- 3.t - 11 /mod 1E + ;
-
-| : s#>t+s  ( sector# -- track sect )
- (s#>s+t  1+ swap ;
-
-| : x,x ( sect track -- adr count)
- base push  decimal
- 0 <# #s drop Ascii , hold #s #> ;
-
-
-
-
-
-
-\ *** Block No. 141, Hexblock 8d
-
-( readsector writesector      28may85re)
-
-100 | Constant b/sek
-
-: readsector  ( adr tra# sect# -- flag)
- disk 0F busout
- " u1:13,0," count   bustype
- x,x bustype busoff pause
- derror? ?exit
- disk 0D busin b/sek businput busoff
- false ;
-
-: writesector  ( adr tra# sect# -- flag)
- rot disk 0F busout
- " b-p:13,0" count bustype busoff
- disk 0D busout b/sek bustype busoff
- disk 0F busout
- " u2:13,0," count  bustype
- x,x bustype busoff pause  derror? ;
-
-
-
-
-
-
-
-\ *** Block No. 142, Hexblock 8e
-
-( 1541r/w                     28may85re)
-
-: diskopen  ( -- flag)
- disk 0D busopen  Ascii # bus! busoff
- derror? ;
-
-: diskclose ( -- )
- disk 0D busclose  busoff ;
-
-: 1541r/w  ( adr blk file r/wf -- flag)
- swap Abort" no file"
- -rot  blk/drv /mod  dup (drv ! 3 u>
- IF . ." beyond capacity" nip exit  THEN
- diskopen  IF  drop nip exit  THEN
- 0 swap   2* 2* 4 bounds
- DO  drop  2dup I rot
-     IF    s#>t+s readsector
-     ELSE  s#>t+s writesector THEN
-     >r b/sek + r> dup  IF  LEAVE  THEN
- LOOP   -rot  2drop  diskclose  ;
-
-' 1541r/w  Is   r/w
-
-
-
-
-\ *** Block No. 143, Hexblock 8f
-
-\ index findex ink-pot         05nov87re
-
-: index ( from to --)
- 1+ swap DO
-   cr  I 2 .r  I block 1+  25  type
-   stop?  IF LEAVE THEN  LOOP ;
-
-: findex ( from to --)
- diskopen  IF  2drop  exit  THEN
- 1+ swap DO  cr  I 2 .r
-   pad dup I 2* 2* s#>t+s readsector
-   >r 1+ 25 type
-   r> stop? or IF LEAVE THEN
- LOOP  diskclose  ;
-
-Create ink-pot
-    \ border bkgnd pen  0
-(C64  6 c,   6 c,  3 c, 0 c,   \ Forth
-     0E c,   6 c,  3 c, 0 c,   \ Edi
-      6 c,   6 c,  3 c, 0 c, ) \ User
-(C16 f6 c, 0f6 c, 03 c, 0 c,   \ Forth
-    0eE c, 0f6 c, 03 c, 0 c,   \ Edi
-    0f6 c, 0f6 c, 03 c, 0 c, ) \ User
-
-
-
-\ *** Block No. 144, Hexblock 90
-
-\ restore                      05nov87re
-
-(C16 \\ )
-
-Label asave 0 c,    Label 1save 0 c,
-
-Label continue
- pha  1save lda  1 sta  pla  rti
-
-Label restore   sei  asave sta
- continue $100 /mod
- # lda pha  # lda pha  php  \ for RTI
- asave lda pha  txa pha  tya pha
- 1 lda 1save sta
- $36 # lda   1 sta  \ Basic off ROM on
- $7F # lda  $DD0D sta
- $DD0D ldy  0< ?[
-Label 6526-NMI $FE72 jmp  ]?
- UDTIM jsr STOP jsr  \ RUN/STOP ?
- 6526-NMI bne        \ not >>-->
- ' restart @ jmp  end-code
-
-
-
-
-
-\ *** Block No. 145, Hexblock 91
-
-\ C64:Init                     06nov87re
-(C16 \\ )
-
-: init-system   $FF40 dup $C0 cmove
- [ restore ] Literal  dup
- $FFFA ! $318 ! ;  \ NMI-Vector to RAM
-
-Label first-init
- sei cld
- IOINIT jsr  CINT jsr  RESTOR jsr
-  \ init. and set I/O-Vectors
- $36 # lda   01 sta        \ Basic off
- ink-pot    lda BrdCol sta \ border
- ink-pot 1+ lda BkgCol sta \ backgrnd
- ink-pot 2+ lda PenCol sta \ pen
-$80 # lda KeyRep sta  \ repeat all keys
-$17 # lda  $D018 sta  \ low/upp +
-  0 # lda  $D01A sta  \ VIC-IRQ off
-$1B # lda  $D011 sta  \ Textmode on
-  4 # lda   $288 sta  \ low screen
- cli rts end-code
-first-init dup bootsystem 1+ !
-               warmboot   1+ !
-Code c64init first-init jsr
- xyNext jmp end-code
-
-\ *** Block No. 146, Hexblock 92
-
-\ C16:Init                01oct87clv/re)
-
-(C64 \\ )
-
-Code init-system $F7 # ldx  txs
- xyNext jmp end-code
-
-$fcb3 >label IRQ   \ normal IRQ
-$fffe >label >IRQ  \ 6502-Ptr to IRQ
-
-\ selfmodifying code:
-Label RAMIRQ       \ the new IRQ
-   rom RAMIRQ $15 + sta RAMIRQ $17 + stx
-(  +9) RAMIRQ $1b + $100 u/mod # lda pha
-                               # lda pha
-(  +f) tsx $103 ,x lda pha   \ flags
-( +14) 0 # lda 0 # ldx IRQ jmp
-( +1b) ram rti end-code
-
-
-
-
-
-
-
-
-\ *** Block No. 147, Hexblock 93
-
-\ C16:..Init              01oct87clv/re)
-
-(C64 \\ )
-
-Label first-init
-   \ will be called in ROM first time
-   \ later called from RAM
- sei rom
- RAMIRQ $100 u/mod    \ new IRQ
-   # lda >IRQ 1+ sta  \ .. install
-   # lda >IRQ sta
- $FF84 normJsr  $FF8A normJsr
-    \ CIAs init. and set I/O-Vectors
- ink-pot    lda BrdCol sta \ border
- ink-pot 1+ lda BkgCol sta \ backgrnd
- ink-pot 2+ lda PenCol sta \ pen
- $80 # lda KeyRep sta \ repeat all keys
- $FF13 lda 04 # ora $FF13 sta \ low/upp
- ram cli rts end-code
-
-first-init dup bootsystem 1+ !
-               warmboot   1+ !
-
-Code c64init first-init jsr
- xyNext jmp end-code
-
-\ *** Block No. 148, Hexblock 94
-
-\ C16-Pushkeys C64-like   01oct87clv/re)
-
-
-(C16
-
-Label InitPKs \ Pushkeys: Daten
-00 c, 00 c,  \ curr. numb Char, currPtr
-01 c, 01 c, 01 c, 01 c, \ StrLength
-01 c, 01 c, 01 c, 01 c, \   "
-
-85 c, 86 c, 87 c, 89 c, \ Content
-8a c, 8b c, 8c c, 88 c, \   "
-
-
-here InitPKs - >label InitPKlen
-
-
-Code C64fkeys \ Pushkeys a la C64
-  InitPKlen # ldx
-  [[ dex  0>= ?[[
-    InitPKs ,X lda PKeys ,x sta ]]?
-  xyNext jmp end-code
-
-)
-
-
-\ *** Block No. 149, Hexblock 95
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-\ *** Block No. 150, Hexblock 96
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-\ *** Block No. 151, Hexblock 97
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-\ *** Block No. 152, Hexblock 98
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-\ *** Block No. 153, Hexblock 99
-
-( restart param.-passing     clv12.4.87)
-
-Code restart       here >restart !
- ' (restart >body 100 u/mod
- # lda  pha  # lda pha
- warmboot jmp   end-code
-
-\ Code for parameter-passing to Forth
-
-
-      03 18 +thru     \ CBM-Interface
-(c16+ 19 1a +thru )   \ c16init RamIRQ
-
-Host  ' Transient 8 + @
-  Transient  Forth  Context @ 6 + !
-Target     \ kotz wuerg !
-
-Forth also definitions
-         : )     ; immediate
-(C64     : (C64  ; immediate )
-(C16     : (C16  ; immediate )
-(C64 \ ) : (C64  [compile] ( ; immediate
-(C16 \ ) : (C16  [compile] ( ; immediate
-: forth-83 ;  \ last word in Dictionary
-
-
-\ *** Block No. 154, Hexblock 9a
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-\ *** Block No. 155, Hexblock 9b
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-\ *** Block No. 156, Hexblock 9c
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-\ *** Block No. 157, Hexblock 9d
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-\ *** Block No. 158, Hexblock 9e
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-\ *** Block No. 159, Hexblock 9f
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-\ *** Block No. 160, Hexblock a0
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-\ *** Block No. 161, Hexblock a1
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-\ *** Block No. 162, Hexblock a2
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-\ *** Block No. 163, Hexblock a3
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-\ *** Block No. 164, Hexblock a4
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-\ *** Block No. 165, Hexblock a5
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-\ *** Block No. 166, Hexblock a6
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-\ *** Block No. 167, Hexblock a7
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-\ *** Block No. 168, Hexblock a8
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-\ *** Block No. 169, Hexblock a9
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/6502/C64/src/vf-main.fth b/6502/C64/src/vf-main.fth
index 7430516..791c53c 100644
--- a/6502/C64/src/vf-main.fth
+++ b/6502/C64/src/vf-main.fth
@@ -8,7 +8,7 @@ Onlyforth
 
 Target definitions   here!
 
-$10 $7D thru
+include vf-blk-10-7d.fth
 
 Assembler nonrelocate
 
diff --git a/6502/C64/src/vf-tc-prep.fth b/6502/C64/src/vf-tc-prep.fth
index ad7eaf7..6885d64 100644
--- a/6502/C64/src/vf-tc-prep.fth
+++ b/6502/C64/src/vf-tc-prep.fth
@@ -58,3 +58,18 @@ forget delete Onlyforth
   THEN ;
 
 ' status is .status
+
+variable current-page   0 current-page !
+
+: fthpage  ( page# -- )
+  dup current-page !
+  ." page " u.
+  ." here "  here u.
+  ." there " there u.
+  ." heap "  heap u.  cr ;
+
+: blk-or-page@  ( -- blk#/page# )
+  blk @ ?dup ?exit
+  current-page @ ;
+
+' blk-or-page@ is blk@
diff --git a/6502/C64/tests/c16-vf-reference b/6502/C64/tests/c16-vf-reference
new file mode 100644
index 0000000000000000000000000000000000000000..117e2fa8cb4248c7df61b26f615c172cb69eb7a4
GIT binary patch
literal 15239
zcmd^md3=*)w(!ZG7AS4D_ifYC1d=pq+O+9j3Qe2t5NIijiW{iK=x9fNOaYhqDQcji
zjICY;z2nd_##+WIoyF_O=uDcVB+xc7ZCU2l5f%A_5eH_9=tb>!&il4dz4Pby-v_@Y
z&vMRrwzEG^1c~z!<Kb840=qrW0{HK|YklQ;*YlMw={DW>MX(M3KfH4}Ks*#w|J6B>
zA6mA6!2Un^mx${W4@Hhd)@P=yYjiDNJs63Ng|bWXb@{fET$?@HZ!fay_DoInCwS8O
zrlvfptT*8vp(o*x=)S3`v-1yqqX1n}TyP|iJr?u%gAXM2dOgbC1dpos9*??L=+U_1
zKnZsw$znl&<ajW)KGW?<b$imhsZrrz+F+`y$EpNRl6WK%iN=8nUQLolV&Nm<kx46?
zsDihWgrm8ev*apxKS>zFQoIU6Ny0#MbJkoH#1MFJa5Ol!IV(X06G`F$-)L}iRwB|l
zk6q(q(Q)ijsNhPHBs{`ZR4R}t<_2T2NG#+V2@C~eo3k`3P$=ZbBmV56@W`>vS*!|7
z3eh+XlA?wpg=jQd(V+0kJO;1aV?1E+%1X`&J+ec>LHQp9ow7f`0dPq{4V46`-=gT2
z9qgBR<U3{99*6BeL1NL0rxgdpuGI=PJfV1EJgR>gtNpSU1nu~N1iA!X8H*b$>kyum
zBbEl9Q;1^G3ZLSD5V17yN5vDds6I;7Ut%?+c)UFJH-%S7QxW1+MBTC-!hTt&(AA6G
zClrsz%D=-oUz=&SaEGj4*eUB3vMq>#!-#Mg2EI}VV-*?7S&#(PEyNWupi_EcfmkG(
zsAOQNQXD)P9&1*1<MH<kJ@Z}E+Mtw<kBkII$L{@M`|V1JgTQwvyJbl-`K-m6qwnLu
zENoNCf+vIi@v)#6VLYk0Wofg(Tv~*ANhym4W5|=kJyx6Q*GjiC8QxP0{S_w(#egWr
zUclKJaJI?t0ru$sd95eZFWX^gCz9f8+nNl2SIYcjkt0Wjf<4xD^>O8T&0f_-B%A_?
zDnUiAYKCsVVVZ6VWU2)EhHD)hS^Ve{bQ)ZsN`Wes(5k;@c0aq(u*1NCY&N)VR%zi5
zm6*1%SD^)uN<4bP7kx?9FFV*J!W9^Hcgnm5q$Ud;0IGM(I%Vx%T2d->s6>JB=%8xW
z@emRR-7jnBVBS}W9SHPyoI#Q-N~h`?RHeZuDlrM1P(2$LS#F1npS%nK)8HGGC>9yZ
zP;*l;b_tNSs8iM@p^12nSQ2<~BM`%5q<M951o#fbUjXT9aW)d@u^QDzwOhFWZdZ#&
z!qFb<Uez-ysz0EXjE@9@F=_!0;xV;28ulOSvF0$21$7FM#>N3YrxwQ|Lqk2*fNDbV
zlDbY2P_1CDDhTNNbfT3Gy=qAwZ61v_p)jhiDyVe`TWNPel@6b%#d)|FJysMu983pa
zss&bwh7EPgHq*A!@~GhQDs(WV7Di$VHQ1Ll(?<oaPpc83dT>yueWsHNTxYRHbTSgV
zg*sQwbW#C3^{_@G$lj*G9V_`5o4CEc#BD0qyICU|iHz;lu)9CTlh}QUu;M@u&uXM2
z!6Ux0;BPf0hdx~hJsMenZ}4kEB^+Fc`{eMt1T&cN2VZaRm%U_w_QbDuvn?{7(@CFf
zSP1{65eBRxrdO!@h$h6gn79eGWFTwHS`0hzbo*s3c*;11MewagXt&y#UIDvNc1VP*
zg$hG<4~iGpo5=|Ctc^%3dU_GmGs1l9EljT{I(i4wD~=AknO<r1$Rb$F2<_QzOi8!w
zoS<Wd#<>|9tw<yLd4}ycZGdMO@mOp;IBA`lGQd7YGUyu`#TtMCyv)LE`+mj%zhm^d
zefa$+Mqr<`3a~4{2=XSaLM)9ig8WIV2umj!LBXU|jHOQ)VPvGox}VvrszZh`z!!`N
z4MdN%Z@R?@-!V`6hr(klJ4-6M6YwNDWoHwj!n5;nu|}BBK7l|>X9M*o;HDv<H-Xf2
z0_sm5w2(c5puw1r<J>Y9rj}|twDI87m$8h#N$J#U*i5}!X@U)`Fn38O+b>HL^-hu0
z;})A>H?}VAVTlJXejYt%f-Y7zej+>;3Xi<Uawpd%=#~Wy{j$%DhvKnh!cxYe_gwqf
z4CrSCOFl(h4|aQuv$UtzxJs7$!VI44d4&Ct6^<`SO#U~(Ghle=FR)103~|YVauV2&
zS+~**g~`HPtRB)l%T=qAMY&6`?qy%lP<L~(aGZlqNT%u?$%3Ul);5io1Kyl03gG&z
zy6O6($-)3ueHsDd;lQ88h9xA>m(^{!adV+Gd8>M>x>YNM^J=2lW35qkXvM%Q6bp1E
zi-yB^%9qup$v*72zz5jkJ4r1cvwX{^$>Q<pri5vr%hbf<-96nTPmu;sj-l^DI)~O~
z0d0yn;2Rk2u^LinOdl@L0=5*<thPhgMsvEVSiz90B2}~(zb8-`WkOZT6XrmK^iP{+
zZ3?ygH04RNW2WhxipZ`_xr*A&rV?o;6r|ZQVMmH|AcA@lM+UVBO%gS}ma+>cH-w(i
zk(6GkOQE#F;S`UV8cwFLy@HLx9m0+|{X&#cAqra@pxQ>e+>Rd!T>`9IVI*az*-8j;
zT4WPK=$CC4b_(xZ^+TJS7(nnW_&#MvIA7ZZvxI}~7luNc(Ro0!R3OvC!DefB9KBuJ
zC5^_i;U?|QftYW^A9_HG{^7<1v>o#|CwS(24W0x9&W0B4E(Z_soR(Pq2M)o-W3DFF
z20OKq@?l>L4Z|5-AH$%`*x;a6ULFgMMuv`~xjv(#UFBul2JdSnOJ=|c^psY<WEN<f
zhNo~&D|JMD;TZ00n?_YIckRm6Yns<qty$Y#Q|(rUAyHc2JLR&b*7w4}S<Bu{>vVID
zT@FC1#E+h(V`XZu09C2i;FCq;yv7g6+P=W<c9~Oip*nRSjGD%&@6i5M8)DqbTyUob
z#zH}4)rOQ16PFs+Qscv^fgozS9xF9D^{oiKR~6Ro=P)`_g9AZyetWDRYhzqXUuy6~
zC``^u4B=x8Prr=)ergQuTaR^88&FZLEt!<gGf1gb`{fi3^yk#USTGv&p=~Bq8tTJT
z>i8x#I6g8KMt#M%cW~`?P^1kIn>zJvDZkZD;OKV9O!ITB>(sYjYg?Mev1E^Rf}?so
z#i<Xb(Aw;<DlNz{+f1KKd%f?zG|y1bN5>dM?(am=;rZXK%!Bqc(fDxY8)>}v<1vPI
zns#O!NR(!nOeUkr(7~Y6Y{~FspbcwpF?mcK(z8a?)rO<d2`}2RkQeP5@2Gf<JBT~;
z;ng(Za3(L;B%~yDhmdth&S|3#X|5_>K<PV}c9rWRLC=RPX#&JKm_{<04_OO@d6|_9
zx@GZX2s1ghC*z_jNUCmF*RZ;waiy+tT}^YXtMLZ6vH%t@kd6=M3`YWOh~u%~V$8EN
zGBz1$eYgg0As*9#Bz99~iP!j<<#n&&GxH&#DYHZDF+6EBO|ScC^rJ4pCc`FUhfLR*
zv~q!4Nec~;_Z1?q440gNHlz^lT_E8G=6$Dz6j0MD<<QQlk}V62N~)`H)u1L7yH{mY
zl9JiN)S%~E2xoAmIo9-kS$x0jUh)m@MY2U;NEg#`@H7<$JhLxw0!2`kF33S9N#Ba>
zR|HMzA`ZgId1ys&Te>832IpJcTOOx1U6_eTTc?qpOqY!FKxCJ<aAcoPmyQQ!F#8yz
za?66NoLZ%Cx3U;|(k1?3a%j_gMJR*q0Yfxy(3mLU6kWf$(-ew+an^D+!*w#f7((e%
z4!9h295m}S693Sb#bY^ZeAU2qNZJW&U-aw2j6utwF?x}sR1BBX#WW7B`Z5|I+Q+Mk
z@6(%5;YZWm$`Y{aB+(&^bxBo|`UiCm`l%&4iXuv&Sts$MCLeo9N0yeoM?lQuF_IrO
zOTD;GBj^J<3HlAB3;LMf>)gsx_)nd9Fg!H$Ha}|&0$$6w7~g3QMX#Q<9F2bUn(3kx
zYe%F1!_9Ru^y$Q*U<?VINFpbCF?^^KMSXZ;XLK6YDMF@R3}5ObzM&y<(N84Z%>fDY
zf-C~5Q=tMtHM<y;dZC|dx~N38#5Ec9yZn*iD5rYJTCHFv6gCy<)G{d1ix-WB2i9i-
zl))OkxSXrpr~iMQG%16PdQo|JgdgaAy=Y+Q7+*fB7mr4L(;dh4BAh^v)vc#ZD1%S+
zk`Km%u~R+PbLf0E*(yH7j+^y$s(@a^M)A+BTmt_>3Vt7I+6i1-hc*QOgF&N`e2@g#
zf_#~Sf34axQzRlwfL$maJw|cOkHC>X{vCMTLRrq}SS&npgt%mW3UP@@vkA=?+MLRc
z#PGw1=7#U+5L!M8-+V|I_t=J|uyvu#?~8`Vd_#X&*e%mNw~*6h<<Pq@e!4yU*I*R8
zcxSKM;4!raOi^9{Lj4BBz<~6_h5uT(Gn1k@J|^fAuziDiQks27^dti%Uc-e!Jq33c
zj_5tcL-V?2dj|FWvOP!iF3+MavDY9mUR>I3LgSWn)`VI%!)w4)jd9T6%3b6&p-#*2
zSg2e6!(Q`6`PocDj($?oCG?su5!sM81HX^x*<SHXXwo&eU%Z3UgJLqV9%H*Vv(wOT
z4h?1|Ug_0!VkC?T+zGyg($UCxjKnO8$48En9IlkEt8P-B)8EXUv=iQ0Bt8*|A;0?;
zU0Uc?I^n}blBh36A~m7#EeasmV+%pOS9Mj9zHmZ8?n3~}Hzwn^o`k^(UoH}l_=XW-
zOTn2%BMY1Gw5vd8kc^IDFh<N)1%-wh->5$v=3#P}<I1H58|TQ~i>y=yRR&?!!XB%J
zUHH`^@=<b7gw~@xSHYczCl_LL&||%-xT<JZZ`YB>M~-3@{M_)k8IhheP-UONhh?Y!
z6@we=)!;QeVYYF-+jS2)sO1la0cvpS4^M*}F;tpqOv_h`&Z8=>hLZ-TZKj2Apc>8@
zDsMrXfV)sqv?e`=DJjZb5I{K~@NW&yTd;Fo^-Ke6l-@ED43Z0)VaUwcik3nQU?f<J
zQ4|WIgRNl`FD3El)kaw$=noH5*rQ?N`Q{q9!6*%2_HN8Ut+}+@8aD236cPn!*j=;g
z32+Hj7O3w|KBszA`HZR${f!!EHOBk={_)}QA>4clK*+TwK(fh3HD3~-wk6;`qs$)}
zL5qO<o5O6^Z8H*!ylZULPEKv%$o<tQMh6<_^0~>TqIjeRzBP*dAs=QVw(IsYpPPsW
zYGA%e9*qT$ha=;-_$^4vt*ixuNfd|<t<RjA>amj1tWlm<KclKq(oCsEhb_+_Gx2eP
z5&IlCN)E%Xhx|F(1CuMYLyPG=Hhw?Tq|~s6nR+5$5B;caq`Dkp40ZEEY1k}e+~mEu
zmA1BI9T$GkQ2Uv-<VR6oJGfO4tJXoONj5S*JP?fGqAw+t<ONjQb)TE+aB7#BKGfiS
z_-Ry&OjRb0NyBE-U<tU6{n*7fK5U}3(sA<jZALF!WqQ{*W)hj!A`;a*v=^sxOn)&^
zkHaKl`JPto82X)c@TEzfF+GRxa=$j!!R8DpU+=L#l5q~tK~*4dkVAqYJ4Q(L@OXxJ
z$TvDhD?slngM^)$f1M!?g#*Y2Z)VV(IvMQ9vT>1pJ-nMC#S;q>`%!m1c3<y2krBpp
z^LT7DOm_Tq1|0=Ygff0Q^nxzp(a{)_8FAs^;b0)l@tcONkeaD^fmx2B1nO@;@|K2u
zj9MF@&>ZhaA2x=n!GCPMxl7)UiNz3p$T^+W0L#tN(6p`fbKK2ED_opt<W!Fz_cg}6
zgvOvvQ=+@kOm(7spBe2q<+TWH6S7VNc+C=O!gGAX{FLG_GB0^|d<Ya!wVB^A?^Q+9
z-!K!YgBf?LXqB_F!QT0uLT|zjA={mLkI0j-dvmI1KBazB>vy-LVYovoiMBf3N;6mn
z@0f#uNN^P6c&DDRXjoUK-l_irmrbK;SWIf*M;q!*Y9a4prlmuh3IX)1a~OVZIn4Lz
zA%<qedlJhb!y<9uQUY|o%i(d0V4}ym+hRkp-_Pu}(C{wku*gpMVk2lTc`i7_^>e&{
zN8V~9ZKQ!<0kt$)4;y4PH#V$Zvs#ykip~YES)~3LMml)dXLMvO7(FoqeP<YsD+4$c
z4XZnh`3ejG8&<BXbTw4#R#vX4Iiow6QHN8H)BoN=Q|i#BLkK5zH!i5c!sw5h5l?Ea
zu$;hyqLf6l<r&;*icT4eYmQ|FoUw>U27L~9Cfa2)I(n8Ly8M`|@nlF$7$@#y`_XyF
zEUJmDADT%D*uCf=3Oxo)CK<a8^(B_{76V^%TXYxW`wjJI<qdAk>==UP=pnB$Xo((l
zH8LyV_Do4RZ?^2{m5~FJ3YXPq8Dh9inY^*wq&}~1QnqSOPm!-q8c)NfFV&D&xDt+M
zN(dj%JD`%IqCJkfNk^G0F_06r5*Vwbd>|4)Cu#-q<4P#8N^JayL|uz#{ugrx?#N+-
zU}Bo`LylHdU55=Khr<ypa4Q?3-YVk{W^s@8g2k6Xr}9l!ohpoJJ?j6tRe(Latc+zg
z>mu87?3>DE+K^xIt|1N@;T5Z|jC^GZX5Gr)<r2#`!ZE8H%>c^e2+HaOJTxSB{o12T
z*q=%n@6_qMMI(G{l^^%T!oC3tsxMf07q|(MvZUkFvKvq>!A%tr$KRc-DwsFEx~93Z
zxu#NAyVm8RuDu9AmZJ&GS>o|gN^TP&dsgQE9-M7KcV~B~1^qNGf^34@vd|$9`$h?g
z_&IQW^XCG^@^Kid%g|&X=gB$oTm{c%36DofG=BJR6%1y{P|?MLBb@qN1s`EOGBSpF
ztsd*KEI!Dl1Ekst=9?_Hauxg|ON_}@4E2xUaiC=?O|})Nk2h9TI@h`?n{U#sUQ=1M
zoLlTS2oPhAW!=r48sRFl#bc3CoI6dFI^4=;Xv~hs+cVz)nr-sBFIY%G=<ke<*pt!Q
z6?G~Um@mw9_=Is+wuHNBd^#K8?PUPX@M5+&GBR}PkJzxi;?-;px(|o0<AzSjCal-9
z;|PYs?6JO;{j2Ph>`Cld4MW*;0>Q!XNO&xaywGE%iJ#-fqKl(W=5LuzR)Ra5EkS>g
z4osHamXZK=E!b!!GHoy=#+)oTmjyP0OR!1Ev7DwvXY_TsmnHc~ghU5LLrvCTL96!c
z6xoqAP-K&sarnRkw(G8Ux5<+3F?T_~;UK!_9^+1f#1O@x9g|A?SZuMRqfnp594`vJ
zr59R^p3GOx{iY8r(PQn=D_tV=i}4=Ff**+S0(;DcDu&DRlIw3tFPYI5UXw+K=_pL+
zdyTFuwr(uY<<%@9@R||@q4-?MzJ{sSL;H42C!nVpavf~4Vbn=k&~G?~0X3OgN+^lZ
zs<x|1|B_F#RUNi9DM3w)L@r%C<`FuXR_)(VzmPbugGD)l4BmSrBQH5oU%3YL^E$XM
zCw%jCFnMc_^?@9UBG<u_IsTh7xH`Gf>)_>_IV0mkLwwkTc8}!3%aU#r<JfLxi0x0M
z)H@3EJ>Z$o+1wl8U`{+nh?sy!4{q#ePC@RCa5_hhcPxXHPyH@eg$@78nKu%#ak<`6
zo<D2_l2Bz$J<je%5a-5SBY@1CL&6fXlMhUqE)5L=ox2o%t-O$f_M@tCMN@;TM%TE~
zb<;aJk18L@Adg54-{<@oH4*A@n|MS<e<6p5CZdYzp1rDj*?Za6YuGoz!raQ6Nw^Af
z8T&tSmKrEny$RmR72rmdu|J(|y~Ig0rJ^MM=E~LeZsmFi=1NcmcwJP+p2{UfNZPL+
z_sf%px9+%MT38R~az*AaGWPYLo<x$w1O*|7d~)(N%h(H8CU=uFnkyUE=&EaKYnr*N
z>3T@AJBh{vIRRCMy~4`JLv-oE*y+-PD5AFNv5N9hjg_JjowKH)u6_-#S{}61!IH_^
z&pc?qh;D$YV19K&)f&vGk^Uhyd)P2%^_m8ki>shNelx7IOC6l&HD>RcTjG^n5{JC<
zOX6r;mjJV4kJ#PHUp#ClpDai|*=OjJaXE49Bl<{<lv>S-rZqRYmA63HF0)aHH$M7Z
z?r)OTXHtMhv%UqGyeFgMqaoTL$`?}B1G7ANeB5>m*z@qc1f^KWlYLYf)tBT&xzqwW
z+n8F==h<@I%3Gl+PlBmXf+K%Kq`4uFTDRqi$3n4jidXik+EU_C|J;ywJSB*3@U5^1
zQGVR}=(XO1c~#ljXs$y{6eCxDD8dTmNl~Fi$8f^K=sf-zz0Ed_C7rrX=OIUMJ#`9l
zEOAJ#r)T=SlF(Mi>v(={SXtMkMANNnT<%uh23PYW<`2dxa@FUxI<D$%xypQstEjIi
zUy?z6-{qF)-v-V3Vjhr2A5r`+cYQtqZOETPCOP1X1;ROKYRcHmL{OY%D1~+#Y|EEs
z_y+K)32pvu@It<XtMyoKG`A-GD&LcTHxjuWUd<Pc`eW-e1#mn3DPI^{L>BON2<1!7
z+zXB#t0zBLa7NdJzRg4EawIxtQUwVxkWcv@n`#)pd1|BiyUg4$TwuKy#V`RT6gQf$
zD)fpY$|f!%pn#lu<Z!+1c8D(+oI!NzRRt8I-wxFUC~WwQgp0~;T;m3~sX#a|G-=hr
z252paqc<^Od{c5{SHV8aS)%?nQ6}5y$)E(Jvc2CF)?J(%!X%4vUp*>sYwEt}c}zzd
z6VL3!ONEW_V1WeFT$BUZQg9b4tBvqpfs|`O;p=1CQ{?Cq^ZbKX0lH393wJ=IKpct;
zA?IO$TX47P^8y?9z~K(~XMu3ZA`FHLJ})3vzXRqJ3Kt<uomUgg=LHl>P;+Xbcr<(j
zQ)3jQkt34*O#!v%7YY!ag78D>Ml}ZZfER8&#4hrdazz>*a5>V&2{sm9R(ntbevNE%
zC;Y5X6tJP;-K1_;7p5c@K3Hf}FD}&MC#cUQ)7U2qC~t8mJXI(pz`ZI1=FOfhq^92$
zipHsp62^SXV4*NzqlRY-$=AFSP8JHVZb<o%LpWC`9Ot^JdKX+lk~kw?4rnY?OY>9S
zN@?eO0GsOD!Wct70KrO&ME)E+L<`&nc}1e3oY6^ZGM3AW#6#gx6bWLj!v^taRkLm&
zpL~N&)pw<TTZqyVXx6=7eW9?rsE=t&vBB5nWEeWqS{-)0&UptXO7K@o?OMvjh%_Zd
zTNn>6noh74m)-))iZFkL9%US~z?(Q;gx*Pz7x$Ec46+n&c$zStp-4pzZx@kBK80$E
zj<W^cEyA}rGbp|yG9B)ca}tl(eGWX5Ue^wBmvmOhitLEDfgaJUh~+>6J}%k>e=njm
zG`^%t-2?^2V#<w><ZXhAV%fm>AoBevUtduy8OXtwNvm9pw#IyFAw(sizeuB#8y+gY
z?g@1zu>E4nL84-&9AsZZvB%uEtk`4G-BTQ${pzPn&?{$K%;?HkxR(dbO0U_I>9u&Q
z-I?f13HmcV7KxdQoe1@lZu5>zY&CagBF!B{v(xM~?`bIZTJ|g}cKy2eUbwYbZVrS;
zkD;*kVC1Mm8`jvY)9ZB2x;2fu=9)EVaikR#<Tmq3me`EdlT|t!o7d1a;k_Uzkxdi%
zE_ZIpy--&oishX6E_X*gozEt8m`GTb!3yqTD~IXO=EFQiNgm*zC!Zidy#k>q`nO@W
z>(-JEE$LtB4b2T}YILhgTDAW@g_#CWZ(wqm6z=g1g<b*GC1wLdM@i!xF1b#V(wU#3
zEQ&ClVZ`W7PWj~!M>r7)OE6%m=IEZ9qI?-Le=*NE3XJf`gXJ?w9oq9#Hx&Dd0;-KA
z1hoQFL6?zWor))JRIXs^FwI4ixS@Emh^IspNPk{mI$b)_7}P__whrxAQ~b8LmG{97
zC3q_m3!+!Iz4$!mE#411OJ!!Bo2XS@YAbE!RK@-9a;eljz%w#+giEOFD;ywF+LhWb
zMvq2}y7GSbeW`SYz;NlSrEcZ@Fi|R*#vCqv4_jK{AEnaqXka?O^B7HV6Yelw*0h3P
z@!V0olgyrG>K-fYL~|)0KX1e{nZ&)JHMc_A;(5X0=-8<r!V)=xj>nxijPU=w24BBe
zGC0Kf5m}3GT<li<6t*vxnEjC`21o(baOp2fNrVaiaLIjG7DLuze#iHshUjEEao6KH
zyxogsc<;gANo6gjW2f6YN}cjIR96+`pBli3*B6u<CA*+N*NWmA0draX++t3@Xj#0+
zqP|4T6g;;$#Do|DLp@oGDS`Y`7+5Ukrx#*|xPddvq+Eg(XH3^2#JZHhtxqPGP`t8H
zuP3+%psY+X6dn$b;p?5p9)LT`B!hU}&c&k-z~-_!TvR=CP7ju$Nk*=1)3g+?U=lEa
z*;0H+^I+NCD(az4q%8q;ovN;wwAuskXj%MVEEt?k;3s7*#cdk8o3jC-ZA2vEIx5oz
zjvP6huED8JZcm-6rI>~waz1WC*H4jP_LOm$NbjE<7f&Zch@sQ*kzfwab1$Yl_|)qg
zW{PPi&|l<_{x&@N3G{5*Fttx@bU<5BZjDO9BJoMLCM44l+3<)cY4X=8YRy~Hfk#4z
zxq?}W<+<3qf{~*Dew*B?eH-tcTD8B#>G+r6vyPeD962h|d!(LBlmLu@toSs@;K{<^
zGFy^$vCx|p%=Bh|X6=}RB@>o1T=Jz}b1=(m`7Ha;obIe0hW;$PBT8H9&B6<yY>(0P
z(Gq+v+GC{^@o~w_T6{~cDq2xB&>lR6kML-F(FWlv%*Z~psb?^uMwiOelf&?5wgtmM
zN+7jrN2Z9Wh_Y`9h1xpAvTITH)Pxm}d5*4ZyS9#dyFiBbvYK*3vwQjQeG4QmndcuL
z9g7TS$ATmT<TBEwTIJH8FI}|sgQb)RZPT=wDMi<ZiAUlZ_!;<?O1NY#r33>w_3@<y
z;8y+&zFsObV+!F&5KTE{u~Y?d4XbslZ(8AObTuv+UrI2Fa_I~R#W-cGA<?Evz&IwZ
zskw1YO%+;&zh&|%Fgc`KDK$tUn_5oDMdcDsRgl+9cr<t!n}?+(T#V5MTgt_xcW7?Z
z$>;Eh0Bs{lJ{<??(DP{C-$}w(Wdd@X+u((A(ZDIh%UWEGW~s+2t(d@D0CEiWb9eb|
zFj9_JR}sn^D=MgcqI{y9qVqPmST1t-(FXb)B}JI^Y12>;F9vcvC}$H;W$ITjT;Aol
z5|AN8nj@$rw?e!_#y_Q=PSs%=2e@@?1*bzCM8UT^U@P3}5c*?whj1(0;}DOXiU#ct
z@mAR45aD|lyF<Da9(9PLz9ZNy-wL}OLLZ{VZ-o~fBHx(9?wGq3x*Yfx^+b>LH3ubC
zw!&{5B7X!E{I5Cq1m=(CIB(V*4?CpX1MllooHsqivkuX*;Hhz%AykO5=oqIt&Z&^%
z{Z%9o9H&__75EY?8uX8iJEYq%#U>u*ZWj7bhrX3v!R6q#L4JjSvQKYiZ-ZqOMlK2U
zD=e?AFmkD)a@#i8SYe>dS_(GbUtyh<k($irg)D#>6FOs37qd^9j-ZbrmG=|WMRlqL
zOWexsV62d2;0|CGgIK=3;`NG?*@22qM@ACGJFSjO6$JIC3V8<IR`~dEiny*kpRwPP
zf3o^QMHy>DzSHAol(D}_V(eY{Z(wNErTt@d(o0f&G<t>Y(<P!t5%=j6QKLv^Uuwjo
zvnWJO;}Ow&(%n1o-PneQ;FAh86GMUZl?SF?)_vMAjc?%bja~3ZHnGzXihiwAS7Pk_
zr-l$t@*!ANiN65g=J@<H;!Hm+g6Lz4cL(gMl=+Ja=#<{A^!{Vst&)qv-l=*t_B-Is
zN-2sgc8yi;DWB4P`1d`Isc=_R*sH@(>2U~GN-z-`8Tn_W_bA&E+B0v;8@>n5&Dk?|
z3MoGhpI1t$e{fLg?480!1i<zuK<<?CBlcJ?R=!>IPGyJof2NY0u}Zh{3D7x3iw4mB
zS0Uh1Ec;`V)_GWNaK<4L&p<uaDkp!BMlO*QJdQ1Rb=SzXkz4Q~W(S&-WU56Pqmmw*
zUsc@Y$U%{O0@iYLc-HH&5@a80T6(TP#w{MC6}k#CWarfs<2(VcIOVtj0}+g>FFP#G
zcPckJd!26OlQ8VWLmAQk!-==~xH+yV+?-i{{mx@MBV3x~ZS-Zrj~x<)bsNH`@#`-e
z*bPs@S!a9{-ztnzPTY}Sg|813RULw(yIl)XJz%J!BOx(g!S@^z_S#&RoF1sGl3)+1
zlt$+ToQ4N(uA<FEfu~!uS1ve%1>6^P-OrIB1wehz^YHB)1$?4b#l3WW&4h6=&Hp0J
z-{r0Jz$+X@)DTCjW+gQ7@odR8xWAb9bqLRy>vtc(7t3yB2G|LI=0+neB&_Bi(L%s*
zQPXe2mC^jKZBob;SM8Ei?S!wY$ic^lJ*S!-%d76Jg6geR&sBM=LREMfT#fLq=BZs^
zuBL!z=oq>>;$5(^nmn_dK<xOW^&sqmTdKuotgOda2_yDuO0J_<?pE%C`>G{@7<U`F
zsXBMTXPhP41v{&y<+GYa8gc+B2Hyq0tj1pq97iqA`-GdS*P#C21^-no!)D5J_gH_E
z<W{!BNVNzPEHq?0oUTTHcocd33QbryM7v1&W|YIT)#S#KoMGj1HF>p^7K>Zih<Uwr
z4OKO6<<1Vzn}pU+XuTV#_&gP<@Fo?!9Tz2Tw`*R_hNs|*YB|1Y#XEC<@U9wUn9Q14
z?B;@+r{IPf*)%|p^=!4T=nfp>DR{7koPK=SG4`J|J74CG#%m&M)3u?!hPdm4zh>I`
z5;DSWc(#UH+c++qsJ(>Lc0;HJ<I&Mblpa}X*o!*N2iOd|;lmm^w)=-7^b$nFo~Dk=
zXfSuf<r)kv#z(^=DYgH5_}_D@#Nj=CG@BQxiWAt!O<;blghS-VXKUTcr=g)%jBWZ&
zwY=E9P6+tS|7p0jmL^90hxZhiWtfYZzT?WfYRTUw8GIVHa;O#EwKS5KLo}y84f|?o
z=A12?!Q5YK*Ira!$9$_6pI%Vr3AtliwT7L)s&;=Z#jp6@f*i8D98_&|l3y@6<z-tP
zUX~U=X>AcqTF>L(Iw5&J@pYtR=xu`9iO<_67!f-630$KB;_E0!qI9Nf*d&pLat?~=
zo&>H(K|L(>D7bnO)iI?(hD=jO=}jup6NHV%K8CVA&)^KRzA1PRQ$92o5bS|iZ9HDv
z21e2FMo^1zi}|4D6@z@OeX%`1D>rMq?y=g3>mIAUT>W;@MD3$Wf|$3e_Qkq)v5CBz
zJ@CuAIVWQH0Dp#vQGK0^GrNhSLu4*jbI2dmyvWhJ4zxD!-;IUYWH?<Xr<k8-FAn?v
z)M(g6cOk6_JpNxmS$!M<O!FBB0oX}hx75q*g#~uZ5m4}?Dv+U|)#A0mCiSLjXL>-j
zrMgZv!Cj-Izy(Yl&3D$^)VQ)*S5?_mS=F%Srmc8&TU$?|%rhz~Q{v09z_H*g^HvI_
zmYz|OKW)To@p#x=*IP#(=;pdF>n0R0)`{?OD}Qa$kw$Do7r}14BX}0J)#LBr0`!!J
zPeAL@`{PqncI}nY9K0nrKIE9mS`jKC&1;a-^$=mvjObl{laj}`U&Eh7C)=*28PaSf
zFk;|nT~&Ntu0yV*EEq?Rn})MNhCj5+jz%y@{OT(ae2IVb{T%#9!yHm>*`udM$AZJ}
zHypU~G72Ax$evRTzxeNl-iG?#kLurjPb9$S+ITDWyKhn8Dz;;PZv*~Fu{W^i`zhU%
zQ@Y(#eO(QElBfE*8}_KD`VKVgsgU$Oh97;(sW|Z-C5hXO8=i+Z8_2fNh?ZsO%ivG|
zg6V&rox7ge{q!^K{{d;s<Ons0mUpyi*#X7T+_?90mc4ST#MQhEF&>7hWmV>)0=oFx
zuA_^uc)vxrqG9!F%&F6*ir+$#_$h``55t|yoPG<wRK(&h5X)Y~mtR^Y=ln_h;UzUZ
z0^VhDzR}U(FdF0--H|@B{14fWpkpebs|nwvbwTPQFtkicwOp*4vHI6#VyaGBtynp?
zOc;yO4`m*Kua*hNu_(r(V7YJ<i!v<ET`mk`F#(IrasmF@(txFf%aOzw(vxB(Yq{XW
zq%{>wrOPGw8%rYck>(MoS}q>JtF%dL9Coc*E<JgQuX-yVf!mf#qmk&?i3rNK>Jhkq
Mxd^M1)?UT`1>ADju>b%7

literal 0
HcmV?d00001

diff --git a/6502/C64/tests/c64-vf-reference b/6502/C64/tests/c64-vf-reference
new file mode 100644
index 0000000000000000000000000000000000000000..fea72c72d318aee5008c7f8d5498eac9bab52ad7
GIT binary patch
literal 15168
zcmd^md0d-i*67K;yh+|bC?u36G<yhv&=ykG0!2X6g0$9Jx4KZH<Dk7AYF)mcqD_m{
zj-WrMb>?%VjuGj|SZ4969sLX>G_gQpfG+dlxV8OkXFAi)P?xF7J?DMFqIdqh|6TnR
z-se2$oM$`x^B|C`<x2Ray|}1knFH{@v%ZZh&ibBN;gddS{MHQ*;{Oj<*8wQOS@CJv
zbbe=T4x#;j@}CyhDISd<j&EF&xxU$V)!LDGaxz-rU20tF_7=H41;ZuFjK)2)vxAyI
z_Q33HAWI+A+$jub4vOxcojuJS{3;cU3Pof*Trimo4M*-(^algFeoY{)|IWaoeqkWp
zrvM$?s*oik!||h$<i;ibK$bs{9n4AyN3ut<e0?Sz1Qg=&cs!wiG<ZoNjVEJ=W8*U>
zy*v$GQwS%DwwUqj9fdH7U&=IyDum(07PBf1l88JqG7*{FV%DU=v_d=-nuu&MYmv`c
z?3$WPOkr1Q8hoLU#KyTsS{g`{sz@>!Pew!I;n7HPi#a_FQkC+f@!^8e*!YnxW_=o1
zm7*ycBy$mzC`A*Al}*Z^EMN}G1C|%fL7DfAFd#c99FhM)&?EZ;ya+xiEP@)s%-gEm
zFFP<O3&?lM5UxP@kC0hn<rB&m#lE%5MevyNv8hDf&#^fudsfheKafGMASl!0#>%>d
zr{zeM4o@pZ$;8T#@<kz1rNf)b$C8P>1U3H?n^EPXRmndqgF>2$5T_#AFY6Qz%6f#p
ze(XM`d^B104bJ(yneG>M$_9l!vVNhy4JmLK5e}09pDTsQl{RJpCSmOt;)*iB$OMw%
zWIUl|GN6(XM~=rPTbccM{DZ;(>mz6rBb^!_k4#M7^?mrwjHH^-JDL5m6q$U%;_Qic
za9};$$H*ebBg0dZks#s(vT)0?7ohnTBhGV-ED=efOpf)L+^SzOe#QWAGs5AO$BD#@
zB$j@_*_v^-26!KP^8WE%Pjpb$Y3?GH;_tTA0Doa*!;|sDhesoQrY`kSW}{}W>O3;e
z1g%Q2vPd=0chEe?HxryHL0;2$9UNQy(JSaN`#_Zmbt++g-kl5k^|zQi%^b=Wv+sJ<
zVz^Z$rfuw3E{1?gJaH_PcuqAaJJ2h_6_|JT$bx3%CX2oZ)ZQ=ak#z-WNm<aX5{0J{
zBdP_*Lqr_*psb6-c}FF#Mx?*s3{qqXI#u6@DjPmgiAmvv>V>o@a-A}M@-jrshObnj
zWPH-5=B8rl6(Da>kE~Zh6A4=IOAy43K#G8c=GDtF;5(2$2XfWo0%Xu<vZyU;Ka&GD
zt3~6nM4xG|>PZ!~?^R2t#>0^$L4d<}L@iFlhL7}_3fb!P2Bk>j<`AD&i<9xu(LPgH
zHLZM3-JlGsR<oCsg!F9&@ydmMwWOFfk4BqTTGW@61RX^v?JlTt;S;sE826&j1Zo=0
z2!B%x@+BI5biZs1Z7VI0K72u?5oXoGcyfsb`%>on=!5H9tP!DksHRTOd?$TyouwMl
z@p$qE>b!cslRmIB57ub}1@~!i$GjgSh}-K6+@^B9TQs8a_~c%Ve)q?C61y)Dl>+kM
zDUEbIayT>@`K`u#@Y5yGr;&wuz_2Fj<?y21PmZovFi)vG@JiR9>^U=ZX}{d9Z<Fzo
zPWEKe68PU5VK`sJ_6v<4(uDMFR&GLVHWY1Ho4FHDcTm=br;JlD!Pgq0C*Q;N3-q_h
z4vJ8;&|t{!MD^l&ovg4pzZrQYJ~BZgD_oj?1KTf3Ox()$ixXphwqKe!Y=Uc8p{JmO
z_3oFQ5p>V<I5W?q9eETy!|J;~GQ*RscrrN^nK8}InqeO+83~O}U<<$uL3T-j=LOab
zzhm=?2JrVES%GK9B*3mPD=3~Z3Gr*36)c@GiSX+<D_AyT664n=tS~;_XL^C%t7<@j
zF~eV35ju!I)4&|W0^hJZhDT$QdhG(O*ssBp=#ib)B!s6~T&x9H?PG{kxe#ekgPVqk
zK@FK{4cbp0b-DI1qDGP-PIAk&Fk7kV)+wRZP_E4|v@o@Xbgk3iXRNSED=ez$(GJSA
zqW)RZdfZ|w>_%v1pO$3s{AY<XR_N8rrjErXqp|U~wcN?|3iit)=0Vvh%RzK45i5S#
z4!-T%r?tVLR#5RN(gv_QU|C>2gO;mhMbFOD`JO@C546Im3T?{2L7qp$Lw{C_eC?n}
z5mb@FeysH~c37SwEW+kN%~M>nE=5#Sf$gC7Sq*i!rU<7vY)uL^Z%q+Y_L({~K@NFK
ziYSchGa2XF52pyj*bHd|Y=A?53IP?Q&==JmxN$02k+My_P2H}O!dW$O>@(Ff-8wPw
z2E_rrDWb6$p7KTYij)xcJK%kUgpL#BV=WK)G(|i$2hz+TT_g}scgGw^o+^zTpTyXO
zY!0o>0gF?`;n2`TpUIp`V}@{n4sfT67QhZ7jOKJnxtb+YMW$#k{+>o-<b=A^$L!%a
z*`E&0HK_!-Cv}ItdLDE}MQpE0y@b}ytrBUbm1NnR(3vV7ild#xkwGm&mqfsqQ+MIy
zMlmuvoZ2t-r84<&C^cXw!0}Xlzu*>Or?8tD6rzp_QP~uLW*hx-7yi)n3b36I<EcCC
z`9z@5>G#WsU{JP2*dx5_>hJqxZ5YvA@NH^mY^kmn7AS{)P#BGF!QcVe(g(R74!1zp
z`QFXCUTGp(0N3eu4kbh5!_j+n7$4rELEph{(FE9_IiNx00%+6is^&4C){&@xFCaL7
z#Mh#A!%m%~YAlpQ$8b_Vz-FM%xZ!|KUX_eY#7B>!yFRI>UFCJ#4e#hA74ztXdO|0!
zSb*B0;W?bqNvji~SQ2-(LzCuGU9)EGy4Gvz)?L$Dzsk?VKr3zRpY`RZHTJ`S1<T$|
z>-2MhT_Hf4WEdmM>NRQo0yL#Tb4Zp@1TF8Aw|!Q-+h<QJf>milF|;(bhHl+&by3#O
z6oEf2JQ<Cks5YfWSw&h*N5BWu!V$D|eI^3c8rl(iuPUZ{furb7iws3D`0X=&tV?o`
zfwai6XpDlDB;qGoo`1Ra+u2F<Z+)g2U06k}jubLFPa>yw-QQ+up#Mr6Nk$Tp5c*~!
zrJ+7ZqmHlAB2(j&F|=1ayqkl2Aa&6YiD|8&BlWksX&l`H&PBtV=++v#zJpaR;zY8~
zG|h26np$g!q|(|vaP^`HCv5Y5GTr6AyB7sUBOyA*2ugnsstzyzex?|@7Kx_DoUbn8
zqo05!y3@MT_M%p5vs$edtGPQvk8a8qu%Qp@YO@Bc-O|$*wAJSK64OESWzit|H9k-Y
zS~^KOm%>Yngkw%#uSrQs>kgvmke<^<9n@S>K8xCSV9_P6j}(0=e6dJ?GzS)uPA&yk
zy0F+;lfGZ3BuD7v#Gaf>nk!{h)B2{hP0eeJ&Fkx1ukbZr>t~ihS-Ny;tZ*zI?m(J=
z0~cdoV384Iq4nV!xP=6)FQ(`>JH0{6DaR{8^C|m5q1D+f4w!dXtaIyrFY#foV6%C%
zrCVm~QLIV#GqlhsMPE^h%5cdx^dZaPu5<}EFdsWLrGlDPDTgl3lx$76Fw{=NRfC#L
z>|T|HAtSSut;fiBIh@3m7UpLR%9Mk$yC^oe3)z-{IYUg#!P8Wl@yz~;6DWc53_&3Z
zNyau5zY=K45OEl_T!dBvH)Tki^E6-M-tsi<8A2x#ZJQ(7ks+Dlk;pG^<=8%xA)N}(
zQx32eW^4K-&aBdJKT`^Q8Is{K3TQL>MW};aVRJ$;V$n)CLpNyeu|^YrJ?%Jc^BvD9
zg=mJ9L#_fnhpi7<NPg&-Bj7k~dC9ErmUI!-zQmU!wh_mOC2^kPR0<a}#54}A`XV|Y
z+Q&=EZ!=oZ;3qQtj2Aq5Nn#XpT{6{V{y|-cajI8OS%eo_^^#$<<dYAey$zW4cM3>&
z0v3v+7MK^`M~Hf_UV?E0*@6M~_j*6G0)C+vkHkhtU*~6yNx;jt^U5B3G;!&)<GsY^
zFI&$`vGrc!U))^FU_dX9Mv}<jn1X`nGWb9*N`&ylPU_ROwIUSiGWeTb5*i()5dE0q
z4h~6R5V#1XL4^hY&1@Oy48ma!be=)8#DOe^UBmIQ1ZR54TdiiNm2MT;)N=3|#HPvE
z(8eVI<*?2muHqVZ8~$GxP0HaGgQzMt&JXmCK{Paag#UieAf8Bs<~oiVL^y#ylixs_
zP!69OB=1i}k|+91XE69`aeF_&j_VB#s<1(%P2fL2Qvv@(4#Od|w9~k_Ze1n-CW97+
zVh{~%MY$}*f9<-Hv!o&wpwARf9HG4C2k0mt{|>z&Q&u=JnT(AeCMjW4NlHYT&FH?+
z=hSp-V-Frw#cu5uIzEhDe^97+WK$(<%ajd=60yn9=pQoo%ZyKFa+a(L`ZJYt@YtUs
z3GCv7z5V8ZwJU5*@CpzeG$REjq#tDdGjpetvN=8{=oRP(Mhs*$2M!xZ2fRV^xe)^;
zcjpcp0+xg7{jxnHhC$h$!v<eqaj!UNmRQbL?zf_IOF3;tD{Bjyu~cIjG5d-Z2d!w+
zYyk&#%fH`iKQBM+B;v#;-d<tQdV$zRgEstq*r4wh&!;B6szGrlX9vaPVgr`0ptHw3
zXpfFKwO{lbdoUA516~WEOzA{?DoJXVz~iI9Ne*9luBd2X&KR!ePP!J}SS&skPolhs
z7GKEpGqv!+Vo4&DB$b+0h8Bkr?U77S?^Rt==4MVSDSQay_l6YwZ6IZ+g}*HpkB7#P
zV5{ro;_=KDJncF#W=SR{F&QIatApiP^`VL3Sd7OhWREhHS#B<ny9-6B4(hUmt|fh@
zbnTMQ7gLN<h$^%Z^|=mi%i6I7vx7d<CFLb$mwLONB0dTf>)=1K9<?LUjx1{I%L?Il
zt>O7BKeksvFzYe9o9o@Kf1s2gf5;jlK&|1>9LnLW8as{Y_<ZqMG{vjncvh`@9zry*
z3eIHJ+<-m-cfspkmr=-i-9_nP)B{5QI;-{u?7X649-z;b-Y_1CPzY+va@w|`rw{{V
z6Rsm$6pdhjovzhhQ1IldvSs1OaBPgyo^-8}2iL>3+0rmp?<T7WT12~@u2tNDN|Flc
z+Fc9U8n}Qa3)FX{oKZc@JgFMMc%vTLvz4LY;i<8yQQUk=Kq#~(MDocNHUA|*YfH!j
z*|OpIIC=!!-$Hh~{=RGyk+-tjbu+VDId*@_7GnU7bNMXCt)hIS9=^^N4@W~-jo7Y#
zf&DCpWS}0{9C;!cIU0*k;o`R<D?f7um~%wo#OTH)v$K6Ba+>wbS@n~udWL375F<jK
zL}B9d1Pk_6<0yqJzaEO`Xb-Huv~C@i^R&tr*cK*TYo2dw`F8XNZ40&KkYuTwA1Ynz
zLcvYhi(BdLNHKEh2MzTC+mZ4x+Usg=6(p(+up&n`J~cKJN#dd}D7?<FYP<fkoCciQ
z1$F=}_yGR2s6{z-Iq5m++5#F(gX?$!yLjM(IkZ+fPQHC#c2HZF^H%m`jwt6EB%*e=
z?)+?F&bv9(Q=KEy@;&XkNsK!i;BPr{+uR(!v45G<09$gUe7n!|Q0^H#hcuU<ngS9`
z*)c<EghzA5qoIjOS^-91xuom_{#C9x8VjQs{3e&?)Wc$j+0AA4jqp~k6i+Nd;z!*|
z?7rN2EH{Sb=BeaFjQsdVxpWjf6RP+bF$y}5M@M7K<SJrgW07!-lecv3N~w{+IYv3A
z5@^4NQMS^xj}Wv8mK&AB7{eyfGz=fvXzY~_Vqr0gKjfUvYJ#hb(&(J89p<E)%T~BN
z(ZZRYVcgdw`y4uh4vkm8!ANc5e76z(IMua?Y%_{Z69kPC0^vEnYJ6OI2!)rTJ3a*p
zt2&IY8uzLa8Lt|N)q&hQRJ6(k)!-o8BMfRfh5G$jcZvd<-CME(Si8};Wi{?@%f@tv
zOcHH%u8C%FCA?vbgyWG3%;Ref8F}eipVLrl_$w}(MorgZQ3HQ;pxq=0MHlmsZe13H
zF|ICT`MDLc-)2Nvnh_sKTm`l~Ni{AdOy_$QJent%?lbMqbEDe7!0yhY;eF7ZCp#8O
zj-$WirQjgf&&dKFdApUYQ949i1ZgoH%97P@Xj;2&tx=1H&Id2&Nr#h|>EL0X)RVW!
zFpx0NZ(G(;CX7=_*BTFDy#f=!rZwwpd`+v2Yid^4pVS}7ZNRB348PB#DRt{|A&Qf_
z0~fS1FT?Pj5$UAHm3hbTpr|C#n)f8`G-an5c|Im@HJr>7kB@|^{Y%g<+cD5{d_UyJ
zVoks%v0|RMPdkXgJ62Jx<o(c1Qo<g@08tn)V=>9H-`wbR<hGglmfvAKuN*WtqL(-O
zv9e>1*b@hXmWU&9z}L*Kft!~|s(82M!KjP^m@K%cKFyNAZC=7V%gySu>K3M5_t7lH
z>SXcKwYilViVD}j(Ipb1$MX)W<Y;J*qHQu#<w^_`M6H1glcZ`W9>ySQHOk`}@R}rU
zenjHF7|;A&V>j-|p)A4l9Onm0+tG9#$`VyqS4UiarWqPdGX7x7`b_8YLb-G*Uzr<J
zF*}*IX7~@20DE?sGV&IRE{ZKDzFAzQ4doT@8WhkB&znN!6f09Q>t}vvCy{T4BPKbz
z0o2KH)YWr%XvpmHwMVaTFpDbQS#x!ZX8717KN?ELLPL~PpUdMz;1)<ROQ+^^H>|3_
zO%;*E-;t8$Qcta|Z>?#quQ6V6jn7A2dl7*=M+?}^;;9KLZWAMq+4+ADu5ZI|XLqy>
z<1{XVY=N817?8(8=xWa8kvxYlZ@vmBmsen_E<=}rk|*cX^J;k7EIgVZ)%gB@SHp-|
zhK4Q~8RyLB)$k#<<KvT9*XlDJG4n|_9U!$<vtOD0%+>IBvlxr5nCc(F<3P`}BE{`m
zbhNpyruG_NP3v{Wwd-o?uHqK^6(S_rBj!7}QzKfPMLZdwz`4^zsl(5-LbFAQw`ZXt
zblVhlpUWc!p?@d!B%T=tkFr693iDSZ9X?UqZjo>|jZatr?x_W6g`Zi(@$u0UZz5p3
z_azI5J%B?ua6@NWi0T!Kf^ay>KGSQKUs^IPGuX2hMlDP@G7=k)O~z0b`b;$OGu&8o
zan!^9c}a_j@J?GK7%$R+$t)eI8t~}AN-L4+BB@FCxa*7=tc0hrN+__L<3wllWl2y=
z`k@7FDP=<~riiOucY2om$T}#oO6)j%_+IPf(0jktksGl0!l3y8hUWpxPP4?Ez@#0E
zO8c}3apa;>f28jhqS8D1q0JI-zGNS?zVApJ=}LUjE5f)K?|~fn11X->9<eSA{T;d9
zd0P>*I*eG3!g7Al;`_q7A3x~wYJn02ty)1;StQxlH2X?)U*}u_dQKqM!)7aHom2(=
ziW3-6ldGkIk{G>emzwM^#U$I*F>4D0Y7!(0>6BPU=waJ+e@6R4>bxFIHi3<g9?8i|
zjy2Y-t0wr}w%GM^$>fcFrh9FaMXrY(w&Ck-T${q^_3(2WGd?vs%BM}}_ed{-TC#0o
z9NW)C^@CYddPilx69O#fbFYO1HYH|=Sb)a}Zt^|bGW!Pj$R@`-mJzC_eq&EVz&~y3
z@wl6-^-l2e;dV))HT8`+yA2?=E52iZ!fPXCNjfM7CQFx%4uQ^H3cq5`+0cK~HLq@I
z^3@xg*Z8h`!}c)qP%cG8V))kfLsBg?;x_Sw8HRH<9-Ek^&h_k7-KD)t+x{K(b+E)<
zb3G~7GJA&O@3zV;N>;Cf*X#n^sB-N+bI=Q%MpG$DGTd6Tw$aaQgos^&D!|*Ka_tE_
z8A7stjksTdY`k^H4O<Kw;f!5mkD*{+PU=Y|Nlj1@Y!s7ItXZx-hu;)#a!zwi^E%_I
z`YY;NxvJ?#NO9B>k9%!lmCdoz#OFhF>5<`}OAq3R)~e4W%11M{0*xrMuBoAM9dBCh
zchJF-%X)#m-*FzpfHW7os;O=rR@BJ;keNM{#jIV|<nwV23`4Gm^$uw@7kN!OdR5+_
z?1DHNlwS}h6uknhjy>e?Ge3RMK`~i`VzN^hlW{e1>?8ijjf`6T>Xvoa`I#Fa=8(B5
z#haS=#{O%?#wC=X(X4NP4Cju-)I^jvi0Xw@^}s5Rlh5030FM*jOHhf0BH4$Tgu&}f
zaHRzdwz0I3=XBfs%#G0Elwc{8@F*S;X|8n=^ggF}GMb#Cd}XhyBUOp^=UV5{)Ch*b
zH^Lqy`C;$F-}N4F))f?>yN<F6%v|}Qh$`xoqCrbc;)KUAc>FJnHaj#9EL7bHA30GX
zxSj?j1(rA@*V8w5UMc9Sl}28ko7Ob6FzC9C%~$!Eo8XdDVt;>%GS@t3d+8;E+pf!}
zyo&lt@+CIv`^H|Ce-pIki+MyEeO&oF`^J1i+LX_bOAd#U;aDNMnsTjE4$9LkmC$a2
z`|_o>&=5W~q0PSup3RqVtv=HRW4q#)`GNd9kjc&PQod+n7@v#?;AZ$^zA$Mb4|p>~
z^QCs~1xKGLkRNfK)VE-4^FV3Dr7fK=6=+~6pXxns)foQfxlQEnvU9_5iS=GoLk&zT
zHyAG|^OT2~7A_;8gq(Wha2a+pC|x7-gtdk=7v<<T!zvdl8$Ki9vT`>E+yvLTghQh<
zCL?Tuc9(+Q#KiDT$>CkDeOR+Z`)#F4wk2Sr0;H~M&>AzIS4FYNV%gV-#ydZ4U*as5
zBQ4sK`|wiX7P#Lf!7>-sK(@MW$58hcc-tlAAgFu;Y*(rrV`5%@@G3yxgJ$7Yh`Yqm
z_$W#qCb+IURG+!r+yjSO;U6wxg$a{k*Jmyg^;>}{5Smb=&Z-ILGs-eCHoO(G3d9q!
z!&n-lB#i=*g0EZzUs@nQa!SGvW?0mi*aKd;@ff=(S}GE0c*LuaFHW$z;G#N!7Vt|H
zo7><g1){JU9q(p!mwI`sw&4B(i@K~J4}XICObU&C+(mVZ+u-p6AtCNnnXzv6Q~`m0
zS0I`q7!{0p$Vh=O>?Xid1r%%E2FD8o*fytrz!97&5KeL3)Vv+OK$bWoUJqz2G)rvi
zYpGpa4B%FMU65oc1|VFiTQppVhv<OYq1Y`NEu5G!8SuNxEgp?cph}Qv9m*0<)U_Ii
z@+mf0UvYcJ*9E9O;a1~sD$W(Gau2W_sc!hPgd9WnqV`e`Ugx}l6D9mFJRTiYVniCR
zdn+5jMbink<I>yUN;lT8FrrjI8~g^xi_<#^isBwul0%l_4NnW^GnA>w;dM8u<l|_j
z=s4TpEjPZ!nI{Rk$#wX>XCwi!{|p2q{k~3duXI7misFd3fdSEijO9fQJ}%k}e{oY8
z8edXnZH8rqV)U#>N%J<t%0k)D)CkJ`1m9j=C>bh5$c#xYMqgt;u>=y5=)2Oy%%%ql
zFGoVX8vUS{YLIA{sRlXFR2Z-iTv-@!81F1hEPVCTE9jT&+w2(1IJlPwtxV7!a0VTL
z{QXXhr38b{fJ0*Eawj7FWWT-BiBNlw6M1$L&mMcwzNe`$=-6{*q3>6PcfpN?a(g&7
zaRimM4>QL!^kL1d#yq33)wr(N*jm31J&x2%Np34&WJ%6@Jy}g{bL%>~CcFy-MY1_2
z-`G_}cR@puC|P*y8+*}8I-kuLFp;uc33Mk+RiJL&Qcx?sPQZVGe8K?rYQ&=K-;LF-
z8;iPiWPhdCwl=M+H(p)TuKVv<tTcdn6I;k;a*t;y^$M#lu$x#qN*d=-(Pf@g&OC*>
zD8h1v1+zCf)t93jV=Xe4V8XJB<9lM3>SZYWg}mUTVunW%EMGzD)}5WbwlL%lt8OVG
zEUNQgM1~D2p1Flt%{E|}izabx;f$N-L>$O|US2v~I?@=_L&dgk-RHCXw)mO5;o2g+
z6-h=gs@q<8mWvjD3_CqCJ1<QHm3!QtcFt7%7=G@N+J|^Srj8gsL~KWPekShe%^DPA
zL?cF9`D6IKM>@}7%=41R&-@ssJ(4-fG0)owX@|diq*ICTTz%&en&4*KVY;ko2SKrF
z0`DXX=7hS>L_5*y;q&KP@JwcKZ)nZ!kX@{fj3p*dd>@zC5w;R{;t=Bh<2(GuV#&xT
z7e}~?Hx&DsdtiI9#6BEPV1g7@jd_0RAr&V2Lq&Jvw-{W-{EqKM3(>>&;I1n<y4}Sx
zy!YVmq+G>x>~woarBnWf>XMS;Q!`lb`hses<QGygw4%I5z+O~8UCh}RogVM8s85TP
zf~Sk4Y?KwS)Z;3q0`fgDR4nGF7iCAeft^dGT!9s5OxGbKx>Uh!OrelayrwxXkMQn=
z@}-i|*jQ{5U+=toFWk0NGJ@CbTt0d)Y+1^1S@rxm-M<uFGD>ZSrmb)_tHA<hTj4>?
z{Y&pqQ4eh*Z3(CwR1Jk>)$WCdmn!ihJF<|$kCwI-c4+8s&J9F%3lfpk(KlV-$Wg-S
z8l2h`_B5#43TX&p7vd&#`4kCf&r*&O`Tc{F;<;i733M(#5-h}d?!|HkUwVDjNIC5^
z#*6&X--Jg$jgd_Umi7ro2ecLS*1`}KsZXv+lR`)2#v`Jl$)9EkTD+_qkAx0$HCu__
zD(qd&%25HoPHES@j`vROy8p!K3@^iH9rL$2ax|oON&`;R0L+2%@oA7b;KJmxK;k;T
zJm`uzg9WGZyBYkl;+M@QUmmnaTtUaFf`iO{SEqT<g?B{Rh=~_K1p$li!)5qfw9iB<
z;`5UEwS<;kQnsUMpgnjTAK}sVq7TAV*in3FQ%~v-p^~TJ>dD^mXSNm7K`J1%>&9nE
zsEBiD8Kv4rr1I!c_tZqC#5zZ>#iMKB-Y$^iy{M+z(869mecuY&W$NLniOKj_K{7&0
zKp`Vts?{w2kL9N2?=Po9Xosf5NF}-fEIg9bz)v8wT*4J=sU#T2sZT8@1V8f=_;R_-
zjwOV{5p?BL#Y%H2n${ZEUbnio+1I>mYB}MgmPqGOD90(+n&obl2J;w2OKbDG`a1Lq
ze_q0uz~qo?qS7F#Y*q;omy}32Q$bNL(b3@L+G6~w;Bt%(*jgecyF+uMPQHdm3}_ok
z^XWLqhMq<D{)Pfyl?f<t?to`YL_;T#&Q)AiLE9_!PU9^A1qLs0cljMKUV>LwajF}q
zdI>&VGF?L1c?X;?5mgVP4-A!h-B|VM&`=UD1`0f=W)oI94XatM?sAj?6bO;#FdE5i
zpe&W~PpRihby&s$ZXMg8wp1KJ#rKrLHn_1=IGps93b(<XrQ*pGiHN6EybZRNitxRQ
zr&PKP9xfFpLWdD7-v+x&g&`zUZiAndib9jso>J8|=q<&!sK@$DFPBnLWgGmuR5TpN
z0{_dUd;#+Zb5t*w<DpV1_rUw|6xDN6JY6a}5;-wNGX$>~KdYx`j*M4|_gC?7WQt~)
z;l-C=iOBHeRH^hnEU}3vxSNFmw4twAR&q7C`(UZpOx35?Ecd~cUJF-*`Xzo}<F#<5
zqAKfsaEsSWm9<O+|Ja+qpdvM6;gu|m6%#sRG8YR^nT}w9C6o6fv_%c7oMnDyJ6OCD
z8}0yBF-YXQysvnVTf*L+Qk#PEo%YfTUc&mLS8k)*iV&Ypk<?Y?XE<)ik5-)XmTTQ8
zcX_xO<=S5>G9116uVQM|yZFsjisz)zrTs!bV3eap5f9|a(V|EeUTP>YSQMhA35e)D
z>F!Q^H@4{k_{58DVl=#Q#f!5)H@;UhM{nloExqujUfyGlCcZQ-T7kKDe@zr8`2bwK
z0{;Slo8vQcg!BEh2;z?=-cH!HLWX~FK&SN9ir~n3VgGC+diqZI%?c^%E5hF=uwnbF
z_X*$LE`0tz;b$jD5*J5C_HBsuCWQS)%$gpBkrfiGiN?pjS@F`u;QN8`ouj_sibvs}
zE2IP-8Cg^o-7&gjY-c<;{?bIx``plvfwD}>4~?1sir3w5tmxMLYgShlU*TsS14o(2
zG=zCT8axJ9;P-HH#-zsY)-nYW@siYM@|E!yY7`quAyB#%@9;KoFp3X8z%oG#Lq1!i
zu`u-N{F3ta(n8eD$KWQ84=;m#Cc+#*lS}Uw$jd1~>NR@Fqn%Y#vhx_cTqeiO7>Z+h
zeX+E-?2Q$7mHoEN&+LGsWq3N{d0&>{6N2>rSrFRqoZNYwtCYNs;Y{q2gQA#mQ|u%B
z_3kG9rXBG2GGzjvD@;;Zyt<?usTY-Z3*Ou9%Sj7>t(;DUG`)rIIVkLR`~FoHfK}xZ
z>>;bNq3m;<Kmcwkr)@-?r;D@aKQD{8xL?$DFUN*#0QEh?<3GW12u&U+@26+VFIzD+
zHlCm5PY%y50KFVXG!kRw3u>D9e%6b4@7niu3(wdacfW|wmHl}9J7I_$hAhyxJkMST
zo6qC*3oeN!j{6ezNh*Bu@}2OHatiD5InRmK(lzCq%fBwazx>(qSIUo+`<YL^-UT@o
zl;DgW!O%v$3#uw85-SWRkItA5z%KAri0#;*T&T}<TLl%<F$(uHyWoZjNjS;fKCZ7Q
zN<YPUo?Wo5LRz%|EYeWGM>+Q{c(MZjLf|M`Z9WEEU$GAD{VwRMkRh1r+I^;9EBs6s
zyi*~<f(i}U1&Iobe<x6)|EIz@I!l#h)VQM+6tI#;VdGQ<#jjKVQ><ym3f}srx_Upe
zv)ed0+rP>9%&hS@v%&8362IT~Ma8DaVY)(&Z&mRod^l28i87E@xj=$^XDc3uf=byO
zLZ9hqMab=~^fQk`b0vlH_+DdjOXbezxq}Q^iQ0+-1<eW?>SgQBpW}J%hPFy>)>F77
z;&2ag*bPrtVrDrJPeicnkgh#%)ck@2_f^UfJUkkwCmre9j|hGWJ>PD4rxJ67sfpP5
zr#~F=_xy-IqY<CuMm%0A;ZXSjKSs_^fVfJGu)Mq~T;?mY_%{Cu&{xqMNO16S0ZRia
zEYBTfa;qpvCark_@;RcF>#K~xS(LRWV09JEk8?fqH0!E7y7SCsnwzTdr34j<@Nn;_
zNY}Ees&!SAZsPL@il1&TrRIh*a^o|zL2Y|!P)kdkF|`S1OlR@mdLacWZ&r~hpr-_j
zYVkGNG%Lbb{A~`H3U5|XNkdngk*-Y<X{baHn(KL+>q(^^e0|cwgt&GJwR1>T@jYf0
zRU_$(UJTrlJ-||N=1H8P>nqp&SfQc0fM5@FRw?n8H9UcSGL9P0E#?=M&u7W6@sxR%
zx{6%e^~<ZA)yu0+RlM$gqUvFWFx0B5`szCoL_x?NxT=~tmc;k+^Gq!2%WP^3S~xz$
z=2Qho{ENzZj^AaZYl{EfSXlgpr>f<YqVqDuQ4dz8YfZVx>xn8tI9shCggI&AFk+lE
z{S=s$GSBj59!%*e*GY59P+P9RD*tBn`ik0&u<Evo2Gulo>yZiPu+qcU)?e4WW|gt7
zrlqE?Y29_(@TT=*HDw-8s_2{QRMqL#>8IJ(QmGR3q>92{3*KTY!C1YangT{+_4C!!
z%KB;%zC|UEL6ssB8@jj6Sm|e;0_#frv$Zh2yy5G`c^Itml_Zbu3r`_lYFi#Coi8#G
zDG~i~rIc=Sh>B)J&*)nip5F5v{S3y$9v#h)W;2ZeKF8~l^2-t<O6B}i_-R~NDT|FC
zDM-XIr;|!WpuvCi8=!IEhMIuDzjFJY>udUJ8vAc-ln-2A)4014%b9{bH`Mf(1O)vL
z?@@p7s`>-1$oId#HJ+U{emtAFh<||D19deFS+;_S6BCmW{0pyg?aEnFjCT_m<=VCy
z3cLR`OM#1CM3MXU<HjAc#?D#e?pfkH&|I^}m>6iO*^`$TxVmP~PGSEedv*)^Gxq2c
z{jeu9(Z6_4N}^x9r%SkDQxE*2hI|-}msX2m3)+PTL0(&D_mt3$)pkAISSg1c#??)0
z*J3f8ZbOD0q?4aw4)h>o)z%I>@QERQHXv2WGXA@@R?Y>2_!pA|cnEH)RfHxcB4g-A
zlXSVcyzUQ{hj6DPbf*xSG3BH^1c6#9wTiH5$L2G&VrtHq^0Dz^tuUFOzi@d7UaJ*O
z;inis->MZ(;HL~fBelX9eroVDQ7gbdlQiSke-n#I<R`_(sanCY8B-R1{i9Zbe;i3n
zKGZw}U)PGq@eXXpq`)p^o%Hw#z8PHc5M<Oz6Y<34u{dhF>LIY!iLg0i>R0|Bw#6@a

literal 0
HcmV?d00001


From 906d4dfbf289723eefe16f53b7480ac449b5d2c4 Mon Sep 17 00:00:00 2001
From: Philip Zembrod <pzembrod@google.com>
Date: Sun, 12 Jul 2020 13:25:31 +0200
Subject: [PATCH 6/7] Split vf-blk-10-7d.fth into a (mostly) system independent
 part, a finailze part and pull the loading of the system dependent part up
 one level in the file include hierarchy.

---
 6502/C64/src/vf-finalize.fth                  | 76 +++++++++++++++
 6502/C64/src/vf-main.fth                      |  7 +-
 .../{vf-blk-10-7d.fth => vf-sys-indep.fth}    | 93 -------------------
 3 files changed, 82 insertions(+), 94 deletions(-)
 create mode 100644 6502/C64/src/vf-finalize.fth
 rename 6502/C64/src/{vf-blk-10-7d.fth => vf-sys-indep.fth} (97%)

diff --git a/6502/C64/src/vf-finalize.fth b/6502/C64/src/vf-finalize.fth
new file mode 100644
index 0000000..907bf11
--- /dev/null
+++ b/6502/C64/src/vf-finalize.fth
@@ -0,0 +1,76 @@
+
+\ *** Block No. 123, Hexblock 7b
+7b fthpage
+
+\ The remainder to do after loading the
+\ system-dependent part of the sources.
+
+Host  ' Transient 8 + @
+  Transient  Forth  Context @ 6 + !
+Target
+
+Forth also definitions
+
+(C16 : (64 ) \ jumps belhind C)
+(C64 : (16 )
+ BEGIN name count 0= abort" C) missing"
+ @ [ Ascii C Ascii ) $100 * + ] Literal
+ = UNTIL ; immediate
+
+: C)  ; immediate
+
+(C16 : (16 ) (C64 : (64 ) ; immediate
+
+: forth-83 ;  \ last word in Dictionary
+
+
+
+\ *** Block No. 124, Hexblock 7c
+7c fthpage
+
+( System dependent Constants      bp/ks)
+
+Vocabulary Assembler
+Assembler definitions
+Transient  Assembler
+
+PushA  Constant PushA
+       \ put A sign-extended on stack
+Push0A Constant Push0A
+       \ put A on stack
+Push   Constant Push
+       \ MSB in A and LSB on jsr-stack
+
+RP     Constant RP
+UP     Constant UP
+SP     Constant SP
+IP     Constant IP
+N      Constant N
+Puta   Constant Puta
+W      Constant W
+Setup  Constant Setup
+Next   Constant Next
+xyNext Constant xyNext
+(2drop Constant Poptwo
+(drop  Constant Pop
+
+\ *** Block No. 125, Hexblock 7d
+7d fthpage
+
+\ System patchup              clv06aug87
+
+Forth definitions
+
+(C64  C000 ' limit >body !  7B00 s0 !  7F00 r0 ! )
+
+(C16  8000 ' limit >body !  7700 s0 !  7b00 r0 ! )
+
+\ (C16+ fd00 ' limit >body !
+\       7B00 s0 !  7F00 r0 ! )
+
+s0 @ dup s0 2- !      6 + s0 7 - !
+here dp !
+
+Host  Tudp @          Target  udp !
+Host  Tvoc-link @     Target  voc-link !
+Host  move-threads
diff --git a/6502/C64/src/vf-main.fth b/6502/C64/src/vf-main.fth
index 791c53c..047dc08 100644
--- a/6502/C64/src/vf-main.fth
+++ b/6502/C64/src/vf-main.fth
@@ -8,7 +8,12 @@ Onlyforth
 
 Target definitions   here!
 
-include vf-blk-10-7d.fth
+include vf-sys-indep.fth
+
+$7E $93 thru          \ CBM-Interface
+(c16+    $94 load )    \ c16init RamIRQ
+
+include vf-finalize.fth
 
 Assembler nonrelocate
 
diff --git a/6502/C64/src/vf-blk-10-7d.fth b/6502/C64/src/vf-sys-indep.fth
similarity index 97%
rename from 6502/C64/src/vf-blk-10-7d.fth
rename to 6502/C64/src/vf-sys-indep.fth
index 0f7805b..3b8d611 100644
--- a/6502/C64/src/vf-blk-10-7d.fth
+++ b/6502/C64/src/vf-sys-indep.fth
@@ -2963,16 +2963,6 @@ Label forth-init
 Label donothing rts
 
 
-
-
-
-
-
-
-
-
-
-
 \ *** Block No. 122, Hexblock 7a
 7a fthpage
 
@@ -2997,86 +2987,3 @@ Label warmboot
 
 Label xyNext
  0 # ldx 1 # ldy Next jmp end-code
-
-
-
-
-
-\ *** Block No. 123, Hexblock 7b
-7b fthpage
-
-\ System-Loadscreen       01oct87clv/re)
-
- $7E $93 thru          \ CBM-Interface
-(c16+    $94 load )    \ c16init RamIRQ
-
-
-Host  ' Transient 8 + @
-  Transient  Forth  Context @ 6 + !
-Target
-
-Forth also definitions
-
-(C16 : (64 ) \ jumps belhind C)
-(C64 : (16 )
- BEGIN name count 0= abort" C) missing"
- @ [ Ascii C Ascii ) $100 * + ] Literal
- = UNTIL ; immediate
-
-: C)  ; immediate
-
-(C16 : (16 ) (C64 : (64 ) ; immediate
-
-: forth-83 ;  \ last word in Dictionary
-
-
-
-\ *** Block No. 124, Hexblock 7c
-7c fthpage
-
-( System dependent Constants      bp/ks)
-
-Vocabulary Assembler
-Assembler definitions
-Transient  Assembler
-
-PushA  Constant PushA
-       \ put A sign-extended on stack
-Push0A Constant Push0A
-       \ put A on stack
-Push   Constant Push
-       \ MSB in A and LSB on jsr-stack
-
-RP     Constant RP
-UP     Constant UP
-SP     Constant SP
-IP     Constant IP
-N      Constant N
-Puta   Constant Puta
-W      Constant W
-Setup  Constant Setup
-Next   Constant Next
-xyNext Constant xyNext
-(2drop Constant Poptwo
-(drop  Constant Pop
-
-\ *** Block No. 125, Hexblock 7d
-7d fthpage
-
-\ System patchup              clv06aug87
-
-Forth definitions
-
-(C64  C000 ' limit >body !  7B00 s0 !  7F00 r0 ! )
-
-(C16  8000 ' limit >body !  7700 s0 !  7b00 r0 ! )
-
-\ (C16+ fd00 ' limit >body !
-\       7B00 s0 !  7F00 r0 ! )
-
-s0 @ dup s0 2- !      6 + s0 7 - !
-here dp !
-
-Host  Tudp @          Target  udp !
-Host  Tvoc-link @     Target  voc-link !
-Host  move-threads

From 9493061b232439c07933e7a305a6fa477e8094fa Mon Sep 17 00:00:00 2001
From: Philip Zembrod <pzembrod@google.com>
Date: Sun, 12 Jul 2020 13:39:57 +0200
Subject: [PATCH 7/7] Move remaining essential steps from vf-main.fth to
 vf-sys-indep and vf-finalize

---
 6502/C64/src/vf-finalize.fth  |  6 ++++++
 6502/C64/src/vf-main.fth      | 10 ----------
 6502/C64/src/vf-sys-indep.fth | 10 ++++++++++
 3 files changed, 16 insertions(+), 10 deletions(-)

diff --git a/6502/C64/src/vf-finalize.fth b/6502/C64/src/vf-finalize.fth
index 907bf11..c4c128e 100644
--- a/6502/C64/src/vf-finalize.fth
+++ b/6502/C64/src/vf-finalize.fth
@@ -74,3 +74,9 @@ here dp !
 Host  Tudp @          Target  udp !
 Host  Tvoc-link @     Target  voc-link !
 Host  move-threads
+
+\ Final part of loadscreen
+
+Assembler nonrelocate
+
+.unresolved
diff --git a/6502/C64/src/vf-main.fth b/6502/C64/src/vf-main.fth
index 047dc08..c2b2840 100644
--- a/6502/C64/src/vf-main.fth
+++ b/6502/C64/src/vf-main.fth
@@ -2,12 +2,6 @@
 
 include vf-pr-target.fth
 
-Onlyforth
-
-(C64 $801 ) (C16 $1001 ) dup displace !
-
-Target definitions   here!
-
 include vf-sys-indep.fth
 
 $7E $93 thru          \ CBM-Interface
@@ -15,10 +9,6 @@ $7E $93 thru          \ CBM-Interface
 
 include vf-finalize.fth
 
-Assembler nonrelocate
-
-.unresolved
-
 ' .blk is .status
 
 include vf-pr-target.fth
diff --git a/6502/C64/src/vf-sys-indep.fth b/6502/C64/src/vf-sys-indep.fth
index 3b8d611..2bb6293 100644
--- a/6502/C64/src/vf-sys-indep.fth
+++ b/6502/C64/src/vf-sys-indep.fth
@@ -1,3 +1,13 @@
+\ The main and mostly system independent part of CBM VolkForth
+
+\ Initial part of load screen
+
+Onlyforth
+
+(C64 $801 ) (C16 $1001 ) dup displace !
+
+Target definitions   here!
+
 
 \ *** Block No. 16, Hexblock 10
 10 fthpage