
except.fs,0
Defer 'catch'catch25,0
Defer 'throw'throw26,0
Defer store-backtracestore-backtrace32,0
: (try) (try)36,0
: try try48,0
: (recover) (recover)52,0
: recover recover63,0
: endtry endtry68,0

search.fs,0
$10 Value maxvp	maxvp23,0
$400 Value maxvp-limit	maxvp-limit24,0
0 AValue vp	vp25,0
: get-current get-current27,0
: set-current set-current31,0
: vp! vp!39,0
: definitions definitions41,0
Variable slowvoc slowvoc48,0
: mappedwordlist mappedwordlist52,0
: wordlist wordlist58,0
: Vocabulary Vocabulary67,0
: check-maxvp check-maxvp74,0
: >order >order81,0
: also also85,0
: previous previous91,0
: (vocfind) (vocfind)97,0
0 value locals-wordlistlocals-wordlist108,0
: (localsvocfind) (localsvocfind)110,0
Create vocsearch vocsearch126,0
Vocabulary Forth Forth139,0
Vocabulary Root Root144,0
: Only Only149,0
: update-image-order update-image-order154,0
: init-vp init-vp160,0
: get-order get-order185,0
: set-order set-order193,0
: seal seal208,0
: .voc .voc227,0
: order order238,0
: vocs vocs252,0
' words Alias words words264,0
' Forth Alias ForthForth267,0
' forth-wordlist alias forth-wordlist forth-wordlist268,0
' set-order alias set-orderset-order272,0
' order alias orderorder273,0

environ.fs,0
vocabulary environment environment23,0
' environment >body constant environment-wordlist environment-wordlist26,0
: environment? environment?31,0
: e? e?42,0
: $has? $has?44,0
: has? has?46,0
8 constant ADDRESS-UNIT-BITS ADDRESS-UNIT-BITS55,0
1 ADDRESS-UNIT-BITS chars lshift 1- constant MAX-CHAR MAX-CHAR58,0
MAX-CHAR constant /COUNTED-STRING /COUNTED-STRING61,0
ADDRESS-UNIT-BITS cells 2* 2 + constant /HOLD /HOLD64,0
&84 constant /PAD /PAD67,0
true constant CORE CORE70,0
true constant CORE-EXT CORE-EXT73,0
1 -3 mod 0< constant FLOORED FLOORED76,0
1 ADDRESS-UNIT-BITS cells 1- lshift 1- constant MAX-N MAX-N79,0
-1 constant MAX-U MAX-U82,0
-1 MAX-N 2constant MAX-D MAX-D85,0
-1. 2constant MAX-UD MAX-UD88,0
version-string 2constant gforth gforth91,0
: return-stack-cells return-stack-cells96,0
: stack-cells stack-cells100,0
: floating-stack floating-stack104,0
15 constant #locals #locals110,0
maxvp constant wordlistswordlists112,0

envos.fs,0
: os-class os-class22,0

errors.fs,0
: errstring errstring25,0
variable next-exception next-exception95,0
: exception exception97,0
-2049 constant broken-pipe-error broken-pipe-error106,0

extend.fs,0
: .( .(28,0
: 2Literal 2Literal39,0
' drop alias d>s d>s44,0
: m*/ m*/46,0
0 CONSTANT case case58,0
: of of61,0
: endof endof67,0
: endcase endcase70,0
: C" C"76,0
: [compile] [compile]85,0
: convert convert95,0
: erase erase101,0
: blank blank105,0
: search search111,0
variable span span185,0
: expect expect189,0
: included-files-mark included-files-mark210,0
: marker, marker,225,0
: marker! marker!243,0
: marker marker283,0

hash.fs,0
: reserve-mem reserve-mem29,0
11 Value hashbitshashbits33,0
1 hashbits lshift Value HashlenHashlen35,0
: hash hash46,0
Variable insRule insRule50,0
Variable revealedrevealed51,0
AVariable HashPointerHashPointer55,0
Variable HashIndex HashIndex56,0
Variable HashPop HashPop57,0
0 AValue HashTableHashTable58,0
0 AValue hashsearch-maphashsearch-map61,0
Defer hash-alloc hash-alloc62,0
: DelFix DelFix66,0
: NewFix NewFix67,0
: bucket bucket72,0
: hash-find hash-find78,0
: lastlink! lastlink!83,0
: (reveal (reveal86,0
: hash-reveal hash-reveal97,0
: inithash inithash100,0
: addall addall107,0
: clearhash clearhash115,0
: rehashall rehashall138,0
: (rehash) (rehash)143,0
: hashdouble hashdouble148,0
const Create (hashsearch-map)(hashsearch-map)154,0
: make-hashmake-hash176,0
: hash-cold hash-cold186,0
: .words .words198,0

float.fs,0
: sfalign sfalign45,0
: dfalign dfalign49,0
1 sfloats (Field) sfloat+ sfloat+54,0
1 dfloats (Field) dfloat+ dfloat+57,0
: f, f,60,0
: fconstant fconstant65,0
: fdepth fdepth70,0
: FLiteral FLiteral75,0
&15 Value precision precision82,0
: set-precision set-precision85,0
: scratch scratch90,0
: zeros zeros93,0
: -zeros -zeros95,0
: f$ f$98,0
: f. f.102,0
: fe. fe.115,0
: fs. fs.123,0

source.fs,0
: loadfilename#>str loadfilename#>str25,0
: str>loadfilename# str>loadfilename#28,0
: compile-sourcepos compile-sourcepos37,0
: .sourcepos .sourcepos43,0

debugs.fs,0
defer printdebugdata printdebugdata39,0
defer .debugline .debugline41,0
: (.debugline) (.debugline)43,0
: ~~ ~~52,0

float.fs,0
: sfnumber sfnumber132,0
: fvariable fvariable163,0
1.0e0 fasin 2.0e0 f* fconstant pi pi167,0
: f2* f2*171,0
: f2/ f2/175,0
: 1/f 1/f179,0
1.7976931348623157e308 FConstant max-floatmax-float184,0
: f~abs f~abs200,0
: f~rel f~rel204,0
: f~ f~209,0
: f.s f.s225,0

glocals.fs,0
: compile-@local compile-@local92,0
: compile-f@local compile-f@local101,0
: compile-lp+! compile-lp+!110,0
: adjust-locals-size adjust-locals-size119,0
vocabulary locals locals132,0
create locals-buffer locals-buffer136,0
variable locals-dp locals-dp140,0
: alignlp-w alignlp-w142,0
: alignlp-f alignlp-f146,0
: compile-pushlocal-w compile-pushlocal-w154,0
: common-list common-list163,0
: sub-list? sub-list?177,0
: list-size list-size186,0
: set-locals-size-list set-locals-size-list198,0
: check-begin check-begin202,0
: compile-pushlocal-f compile-pushlocal-f210,0
: compile-pushlocal-d compile-pushlocal-d215,0
: compile-pushlocal-c compile-pushlocal-c220,0
: create-local create-local225,0
: lp-offset lp-offset232,0
: lp-offset, lp-offset,237,0
vocabulary locals-types locals-types242,0
: W: W:245,0
: W^ W^253,0
: F: F:259,0
: F^ F^265,0
: D: D:271,0
: D^ D^277,0
: C: C:283,0
: C^ C^289,0
' \ alias \ \296,0
' ( alias ( (303,0
: new-locals-find new-locals-find322,0
: new-locals-reveal new-locals-reveal332,0
create new-locals-map new-locals-map335,0
new-locals-map mappedwordlist Constant new-locals-wlnew-locals-wl341,0
variable old-dppold-dpp349,0
: { {352,0
: } }363,0
: -- --377,0
: scope scope475,0
: adjust-locals-list adjust-locals-list478,0
: endscope endscope483,0
: locals-:-hook locals-:-hook489,0
: locals-;-hook locals-;-hook500,0
: (then-like) (then-like)520,0
: (begin-like) (begin-like)535,0
: (again-like) (again-like)550,0
: (until-like) (until-like)559,0
: (exit-like) (exit-like)573,0
: (local) (local)624,0
: >definer >definer635,0
: definer! definer!647,0
    0 0 0. 0.0e0 { c: clocal clocal664,0
    0 0 0. 0.0e0 { c: clocal w: wlocal wlocal664,0
    0 0 0. 0.0e0 { c: clocal w: wlocal d: dlocal dlocal664,0
    0 0 0. 0.0e0 { c: clocal w: wlocal d: dlocal f: flocal flocal664,0
interpret/compile: TO TO682,0
: locals|locals|684,0

stuff.fs,0
' require alias needs needs23,0
AUser CSPCSP30,0
: !CSP !CSP32,0
: ?CSP ?CSP35,0
: dmin dmin40,0
: dmax dmax44,0
0 Value $? $?49,0
: system system53,0
: sh sh58,0
: ]L ]L65,0
: in-return-stack? in-return-stack?74,0
: compile-literals compile-literals79,0
: compile-fliterals compile-fliterals86,0
	{ F: r r89,0
: (const-does>) (const-does>)93,0
    { uw uw96,0
    { uw ur ur96,0
    { uw ur target target96,0
: const-does> const-does>101,0
: slurp-file slurp-file113,0
: slurp-fid slurp-fid121,0
: slurp-fid { fid fid121,0
: compile-literal compile-literal134,0
: [[ [[137,0
: postponer postponer142,0
: ]] ]]163,0
: push-right push-right169,0
: f>buf-rdp-try f>buf-rdp-try176,0
: f>buf-rdp-try { f: rf rf176,0
: f>buf-rdp-try { f: rf c-addr c-addr176,0
: f>buf-rdp-try { f: rf c-addr ur ur176,0
: f>buf-rdp-try { f: rf c-addr ur nd nd176,0
: f>buf-rdp-try { f: rf c-addr ur nd up up176,0
: f>buf-rdp-try { f: rf c-addr ur nd up um1 um1176,0
    rf c-addr um1 represent if { nexp nexp179,0
    rf c-addr um1 represent if { nexp fsign fsign179,0
	ur nd - 1- dup { beforep beforep181,0
	    c-addr ur beforep nexp - dup { befored befored183,0
	    c-addr beforep 1- befored min dup { beforez beforez184,0
	    nexp 1- s>d tuck dabs <<# #s rot sign 'E hold #> { explen explen195,0
	    ur explen - 1- fsign + { mantlen mantlen196,0
: f>buf-rdp f>buf-rdp213,0
: f>str-rdp f>str-rdp228,0
: f.rdp f.rdp237,0

look.fs,0
: xt>threaded xt>threaded38,0
: search-name search-name44,0
: threaded>xt threaded>xt58,0
: PrimStart PrimStart97,0
: prim>name prim>name99,0
: look look102,0
: threaded>name threaded>name113,0
: >name >name116,0
' >name ALIAS >head >head123,0

wordinfo.fs,0
: alias? alias?33,0
: var? var?43,0
: con? con?46,0
: user? user?49,0
: does? does?52,0
: defered? defered?56,0
: colon? colon?59,0
: xtprim? xtprim?66,0
: prim? prim?73,0
1 CONSTANT Pri# Pri#78,0
2 CONSTANT Con# Con#79,0
3 CONSTANT Var# Var#80,0
4 CONSTANT Val# Val#81,0
5 CONSTANT Doe# Doe#85,0
6 CONSTANT Def# Def#86,0
7 CONSTANT Col# Col#87,0
8 CONSTANT Use# Use#88,0
9 CONSTANT Ali# Ali#92,0
10 CONSTANT Str# Str#94,0
11 CONSTANT Com# Com#96,0
CREATE InfoTableInfoTable98,0
: WordInfo WordInfo110,0

vt100.fs,0
: pn pn23,0
: ;pn ;pn24,0
: ESC[ ESC[25,0
: at-xy at-xy27,0
: page page33,0

bufio.fs,0
CREATE O-Buffer O-Buffer21,0
VARIABLE O-PNTO-PNT22,0
: O-TYPE O-TYPE24,0
: O-EMIT O-EMIT27,0
VARIABLE EmitXTEmitXT29,0
VARIABLE TypeXTTypeXT30,0
: O-INIT O-INIT32,0
: O-DEINIT O-DEINIT38,0
: O-PNT@ O-PNT@41,0

history.fs,0
interpret/compile: ctrl ctrl25,0
: >string >string29,0
: type-rest type-rest31,0
: (del) (del)33,0
: (ins) (ins)36,0
: ?del ?del39,0
: (ret) (ret)41,0
: back back42,0
: forw forw43,0
: <del> <del>44,0
: eof eof47,0
: bindkey bindkey49,0
0 Value history history61,0
2Variable forward^forward^63,0
2Variable backward^backward^64,0
2Variable end^end^65,0
: force-open force-open67,0
: history-file history-file77,0
: clear-line clear-line97,0
: clear-tib clear-tib100,0
: hist-pos hist-pos103,0
: hist-setpos hist-setpos104,0
: get-line get-line106,0
: next-line next-line109,0
: find-prev-line find-prev-line116,0
: prev-line prev-line125,0
Create lfpad lfpad128,0
: (enter) (enter)130,0
: first-pos first-pos138,0
: end-pos end-pos140,0
: extract-word extract-word143,0
Create prefix-found prefix-found147,0
: sgn sgn149,0
: capscomp capscomp152,0
: word-lex word-lex159,0
: search-voc search-voc172,0
: prefix-string prefix-string196,0
: search-prefix search-prefix205,0
: kill-expand kill-expand212,0
: tib-full? tib-full?215,0
: tab-expand tab-expand218,0
: kill-prefix kill-prefix226,0
: get-history get-history242,0
: history-cold history-cold261,0

vt100key.fs,0
Create translate translate21,0
Create transcode transcode23,0
: trans: trans:26,0
: tcode tcode27,0
: vt100-decode vt100-decode29,0

assert.fs,0
variable assert-level assert-level23,0
: assertn assertn27,0
: assert0( assert0(34,0
: assert1( assert1(37,0
: assert2( assert2(40,0
: assert3( assert3(43,0
: assert( assert(47,0
: (end-assert) (end-assert)51,0
: ) )59,0

blocks.fs,0
    cell%		field buffer-block buffer-block35,0
    cell%		field buffer-fid buffer-fid36,0
    cell%		field buffer-dirty buffer-dirty37,0
    char% chars/block * field block-buffer block-buffer38,0
    cell% 0 *		field next-buffernext-buffer39,0
end-struct buffer-structbuffer-struct40,0
Variable block-buffersblock-buffers42,0
Variable last-blocklast-block43,0
$20 Value buffersbuffers45,0
$200000 Value block-limitblock-limit49,0
User block-fidblock-fid51,0
User block-offset block-offset52,0
' block-offset alias offset offset60,0
: block-cold block-cold62,0
Defer flush-blocks flush-blocks71,0
: open-blocks open-blocks73,0
: use use88,0
: get-block-fid get-block-fid94,0
: block-position block-position104,0
: update update109,0
: save-buffer save-buffer113,0
: empty-buffer empty-buffer124,0
: save-buffers save-buffers127,0
: empty-buffers empty-buffers133,0
: flush flush140,0
: get-buffer get-buffer148,0
: block block151,0
: buffer buffer175,0
User scr scr188,0
: updated? updated?195,0
: list list201,0
Create block-input block-input222,0
: load load224,0
: thru thru253,0
: +load +load257,0
: +thru +thru262,0
: --> -->267,0
: block-included block-included276,0
true constant blockblock292,0
true constant block-extblock-ext293,0
: bye bye296,0

intcomp.fs,0
constant no-compilation-does-codeno-compilation-does-code32,0
constant no-interpretation-does-codeno-interpretation-does-code33,0
: create-interpret/compile create-interpret/compile35,0
: fix-does-code fix-does-code44,0
: (interpretation>) (interpretation>)53,0
: interpretation> interpretation>56,0
: <interpretation <interpretation60,0
: (compilation>) (compilation>)64,0
: compilation> compilation>67,0
Alias <compilation <compilation72,0

savesys.fs,0
: save-string-dict save-string-dict21,0
: save-string-dict { addr1 addr121,0
: save-string-dict { addr1 u u21,0
    here { addr2 addr222,0
: update-image-included-files update-image-included-files27,0
    included-files 2@ { addr addr28,0
    included-files 2@ { addr cnt cnt28,0
    image-included-files 2@ { old-addr old-addr29,0
    image-included-files 2@ { old-addr old-cnt old-cnt29,0
    align here { new-addr new-addr30,0
: dump-fi dump-fi41,0
: savesystem savesystem54,0

table.fs,0
: table-find table-find25,0
Create tablesearch-map tablesearch-map28,0
: table table31,0

ekey.fs,0
: keycode keycode35,0
keycode k-leftk-left38,0
keycode k-rightk-right39,0
keycode k-upk-up40,0
keycode k-downk-down41,0
keycode k-homek-home42,0
keycode k-endk-end43,0
keycode k-prior k-prior44,0
keycode k-next k-next45,0
keycode k-insert k-insert46,0
127 constant k-delete k-delete47,0
keycode k1k149,0
keycode k2k250,0
keycode k3k351,0
keycode k4k452,0
keycode k5k553,0
keycode k6k654,0
keycode k7k755,0
keycode k8k856,0
keycode k9k957,0
keycode k10k1058,0
keycode k11 k1159,0
keycode k12 k1260,0
keycode s-k1s-k163,0
keycode s-k2s-k264,0
keycode s-k3s-k365,0
keycode s-k4s-k466,0
keycode s-k5s-k567,0
keycode s-k6s-k668,0
keycode s-k7s-k769,0
keycode s-k8s-k870,0
keycode s-k9s-k971,0
keycode s-k10s-k1072,0
keycode s-k11 s-k1173,0
keycode s-k12 s-k1274,0
create key-buffer key-buffer85,0
2variable key-buffered key-buffered86,0
: char-append-buffer char-append-buffer88,0
: unkey unkey102,0
: unkeys unkeys105,0
table constant esc-sequences esc-sequences115,0
create ekey-buffer ekey-buffer117,0
2variable ekey-bufferedekey-buffered118,0
27 constant #esc#esc120,0
: esc-prefix esc-prefix122,0
: esc-sequence esc-sequence132,0
' k-left	s" [D"	esc-sequence[155,0
' k-left	s" [D"	esc-sequence[D155,0
' k-right	s" [C"	esc-sequence[C156,0
' k-up		s" [A"	esc-sequence[A157,0
' k-down	s" [B"	esc-sequence[B158,0
' k-home	s" [H"	esc-sequence[H159,0
' k-end		s" [F"	esc-sequence[F160,0
' k-prior	s" [5~"	esc-sequence[5161,0
' k-prior	s" [5~"	esc-sequence[5~161,0
' k-next	s" [6~"	esc-sequence[6162,0
' k-next	s" [6~"	esc-sequence[6~162,0
' k-insert	s" [2~"	esc-sequence[2163,0
' k-insert	s" [2~"	esc-sequence[2~163,0
' k1	s" OP"	esc-sequenceO165,0
' k1	s" OP"	esc-sequenceOP165,0
' k2	s" OQ"	esc-sequenceOQ166,0
' k3	s" OR"	esc-sequenceOR167,0
' k4	s" OS"	esc-sequenceOS168,0
' k5	s" [15~" esc-sequence[1169,0
' k5	s" [15~" esc-sequence[15169,0
' k5	s" [15~" esc-sequence[15~169,0
' k6	s" [17~" esc-sequence[17170,0
' k6	s" [17~" esc-sequence[17~170,0
' k7	s" [18~" esc-sequence[18171,0
' k7	s" [18~" esc-sequence[18~171,0
' k8	s" [19~" esc-sequence[19172,0
' k8	s" [19~" esc-sequence[19~172,0
' k9	s" [20~" esc-sequence[20173,0
' k9	s" [20~" esc-sequence[20~173,0
' k10	s" [21~" esc-sequence[21174,0
' k10	s" [21~" esc-sequence[21~174,0
' k11	s" [23~" esc-sequence[23175,0
' k11	s" [23~" esc-sequence[23~175,0
' k12	s" [24~" esc-sequence[24176,0
' k12	s" [24~" esc-sequence[24~176,0
' k1       s" [[A" esc-sequence[[180,0
' k1       s" [[A" esc-sequence[[A180,0
' k2       s" [[B" esc-sequence[[B181,0
' k3       s" [[C" esc-sequence[[C182,0
' k4       s" [[D" esc-sequence[[D183,0
' k5       s" [[E" esc-sequence[[E184,0
' k-delete s" [3~" esc-sequence[3185,0
' k-delete s" [3~" esc-sequence[3~185,0
' k-home   s" [1~" esc-sequence[1~186,0
' k-end    s" [4~" esc-sequence[4187,0
' k-end    s" [4~" esc-sequence[4~187,0
' s-k1 s" [25~" esc-sequence[25189,0
' s-k1 s" [25~" esc-sequence[25~189,0
' s-k2 s" [26~" esc-sequence[26190,0
' s-k2 s" [26~" esc-sequence[26~190,0
' s-k3 s" [28~" esc-sequence[28191,0
' s-k3 s" [28~" esc-sequence[28~191,0
' s-k4 s" [29~" esc-sequence[29192,0
' s-k4 s" [29~" esc-sequence[29~192,0
' s-k5 s" [31~" esc-sequence[31193,0
' s-k5 s" [31~" esc-sequence[31~193,0
' s-k6 s" [32~" esc-sequence[32194,0
' s-k6 s" [32~" esc-sequence[32~194,0
' s-k7 s" [33~" esc-sequence[33195,0
' s-k7 s" [33~" esc-sequence[33~195,0
' s-k8 s" [34~" esc-sequence[34196,0
' s-k8 s" [34~" esc-sequence[34~196,0
: clear-ekey-buffer clear-ekey-buffer201,0
: ekey ekey204,0
: ekey>char ekey>char211,0
' key? alias ekey? ekey?214,0

quotes.fs,0
: char/ char/21,0
: parse-num-x parse-num-x23,0
: parse-num parse-num28,0
create \-escape-table\-escape-table33,0
: \-escape \-escape39,0
: \"-parse \"-parse62,0
interpret/compile: s\" s\"89,0
interpret/compile: .\" .\"95,0

see.fs,0
VARIABLE C-Output C-Output36,0
VARIABLE C-Formated C-Formated37,0
VARIABLE C-Highlight C-Highlight38,0
VARIABLE C-Clearline C-Clearline39,0
VARIABLE XPosXPos41,0
VARIABLE YPosYPos42,0
VARIABLE LevelLevel43,0
: Format Format45,0
: level+ level+48,0
: level- level-52,0
VARIABLE nlflagnlflag54,0
VARIABLE uppercase	uppercase55,0
DEFER nlcount nlcount57,0
: nl nl59,0
: (nl) (nl)60,0
: warp? warp?70,0
: c-to-upper c-to-upper74,0
: ctype ctype78,0
: cemit cemit84,0
DEFER .string .string89,0
: (.string) (.string)104,0
: c-\type c-\type110,0
: .struc .struc137,0
21 CONSTANT RepeatCodeRepeatCode142,0
22 CONSTANT AgainCodeAgainCode143,0
23 CONSTANT UntilCodeUntilCode144,0
10 CONSTANT ElseCodeElseCode146,0
11 CONSTANT AheadCodeAheadCode147,0
13 CONSTANT WhileCode2WhileCode2148,0
14 CONSTANT DisableDisable149,0
15 CONSTANT LeaveCodeLeaveCode150,0
VARIABLE C-StopC-Stop155,0
VARIABLE BranchesBranches156,0
VARIABLE BranchPointer	BranchPointer158,0
VARIABLE SearchPointerSearchPointer159,0
CREATE BranchTable BranchTable164,0
ACONSTANT MaxTableMaxTable166,0
: FirstBranch FirstBranch168,0
: (BranchAddr?) (BranchAddr?)170,0
: BranchAddr?BranchAddr?185,0
' (BranchAddr?) ALIAS MoreBranchAddr?MoreBranchAddr?188,0
: CheckEnd CheckEnd190,0
: MyBranch MyBranch202,0
: CheckWhile CheckWhile226,0
: ,Branch ,Branch238,0
: Type! Type!243,0
: Branch! Branch!246,0
VARIABLE NoOutputNoOutput251,0
VARIABLE C-PassC-Pass252,0
0 CONSTANT ScanModeScanMode254,0
1 CONSTANT DisplayModeDisplayMode255,0
2 CONSTANT DebugModeDebugMode256,0
: Scan? Scan?258,0
: Display? Display?259,0
: Debug? Debug?260,0
: back? back?262,0
: .word .word265,0
: c-call c-call285,0
: c-callxt c-callxt291,0
: c-lit c-lit300,0
: c-lit+ c-lit+313,0
: .name-without .name-without320,0
: c-c"c-c"334,0
: c-string? c-string?344,0
: Forward? Forward?389,0
: RepeatCheck RepeatCheck403,0
: c-branch c-branch415,0
: DebugBranchDebugBranch461,0
: c-?branchc-?branch465,0
: c-forc-for493,0
: c-loopc-loop496,0
: c-doc-do507,0
: c-?do c-?do510,0
: c-exit c-exit516,0
: c-abort"c-abort"524,0
: c-does> c-does>534,0
: c-(compile)c-(compile)540,0
CREATE C-TableC-Table550,0
avariable c-extenderc-extender583,0
: DoTable DoTable588,0
: BranchTo? BranchTo?606,0
: analyse analyse623,0
: c-initc-init634,0
: makepass makepass641,0
Defer xt-see-xt xt-see-xt648,0
: .defname .defname651,0
Defer discode discode660,0
: next-head next-head664,0
: umin umin673,0
: next-prim next-prim680,0
: seecode seecode697,0
: seevar seevar708,0
: seeuser seeuser710,0
: seecon seecon712,0
: seevalue seevalue715,0
: seedefer seedefer718,0
: see-threaded see-threaded726,0
: seedoes seedoes733,0
: seecol seecol737,0
: seefield seefield741,0
: xt-see xt-see745,0
: (xt-see-xt) (xt-see-xt)775,0
: (.immediate) (.immediate)779,0
: name-see name-see784,0
: see see802,0

see-ext.fs,0
: c-loop-lp+!# c-loop-lp+!#23,0
: c-?branch-lp+!# c-?branch-lp+!#24,0
: c-branch-lp+!# c-branch-lp+!#25,0
: c-@local#c-@local#27,0
: c-flitc-flit34,0
: c-f@local#c-f@local#46,0
: c-laddr#c-laddr#53,0
: c-lp+!#c-lp+!#60,0
create c-extend1c-extend167,0

backtrac.fs,0
    cell% 0 * field buffer-descriptor buffer-descriptor25,0
    cell% field buffer-lengthbuffer-length26,0
    cell% field buffer-addressbuffer-address27,0
    cell% field buffer-maxlength buffer-maxlength28,0
end-struct buffer%buffer%29,0
: init-buffer init-buffer31,0
: adjust-buffer adjust-buffer34,0
create backtrace-rs-buffer backtrace-rs-buffer46,0
: init-backtrace init-backtrace49,0
: backtrace-return-stack backtrace-return-stack59,0
: print-bt-entry print-bt-entry81,0
: print-backtrace print-backtrace102,0

simp-see.fs,0
: simple-see-range simple-see-range23,0
: simple-see simple-see29,0

debug.fs,0
VARIABLE dbg-ip dbg-ip25,0
: save-see-flags save-see-flags29,0
: restore-see-flags restore-see-flags33,0
: scanword scanword37,0
: .n .n48,0
: d.s d.s50,0
: NoFine NoFine53,0
: Leave-D Leave-D58,0
: disp-step disp-step60,0
: get-next get-next73,0
: jump jump77,0
AVARIABLE DebugLoopDebugLoop81,0
: breaker breaker83,0
CREATE BP BP85,0
CREATE DT DT86,0
: set-bp set-bp88,0
: restore-bp restore-bp96,0
VARIABLE BodyBody100,0
: nestXT-checkSpecial nestXT-checkSpecial102,0
: nestXT nestXT124,0
VARIABLE NestingNesting135,0
VARIABLE UnnestUnnest137,0
: D-KEY D-KEY139,0
: (_debug) (_debug)159,0
: (debug) (debug)180,0
: dbg dbg182,0
: break:, break:,185,0
: (break:)(break:)188,0
: break: break:191,0
: (break")(break")194,0
: break" break"199,0

code.fs,0
vocabulary assembler assembler25,0
: init-asm init-asm27,0
: code code30,0
: (;code) (;code)36,0
interpret/compile: ;code ;code47,0
: end-code end-code49,0

startup.fs,0
true constant doubledouble79,0
true constant double-extdouble-ext80,0
true constant exceptionexception81,0
true constant exception-extexception-ext82,0
true constant facilityfacility83,0
true constant facility-extfacility-ext84,0
true constant filefile85,0
true constant file-extfile-ext86,0
true constant floatingfloating87,0
true constant floating-extfloating-ext88,0
true constant localslocals89,0
true constant locals-extlocals-ext90,0
true constant memory-allocmemory-alloc91,0
true constant memory-alloc-extmemory-alloc-ext92,0
true constant toolstools93,0
true constant tools-exttools-ext94,0
true constant search-ordersearch-order95,0
true constant search-order-extsearch-order-ext96,0
true constant stringstring97,0
true constant string-extstring-ext98,0

/usr/obj/ports/gforth-0.6.2/fake-sparc/usr/local/share/gforth/0.6.2/prim,0
(docol)	 (docol) 150,0
(docon)  (docon) 155,0
(dovar)  (dovar) 159,0
(douser)  (douser) 163,0
(dodefer)  (dodefer) 167,0
(dofield)  (dofield) 173,0
(dodoes)  (dodoes) 177,0
(does-handler)  (does-handler) 183,0
noop	 noop 191,0
call	 call 195,0
execute	 execute 212,0
perform	 perform 221,0
;s	 ;s 233,0
unloop	 unloop 242,0
lit-perform	 lit-perform 247,0
does-exec  does-exec 254,0
branch-lp+!#  branch-lp+!# 274,0
branch	 branch 286,0
?branch  ?branch 338,0
?branch-lp+!#  ?branch-lp+!# 338,0
?dup-?branch	 ?dup-?branch 345,0
?dup-0=-?branch  ?dup-0=-?branch 360,0
(next)  (next) 385,0
(next)-lp+!#  (next)-lp+!# 385,0
(loop)  (loop) 393,0
(loop)-lp+!#  (loop)-lp+!# 393,0
(+loop)  (+loop) 409,0
(+loop)-lp+!#  (+loop)-lp+!# 409,0
(-loop)  (-loop) 417,0
(-loop)-lp+!#  (-loop)-lp+!# 417,0
(s+loop)  (s+loop) 432,0
(s+loop)-lp+!#  (s+loop)-lp+!# 432,0
(for)  (for) 436,0
(do)  (do) 442,0
(?do)  (?do) 446,0
(+do)	 (+do) 469,0
(u+do)	 (u+do) 492,0
(-do)	 (-do) 515,0
(u-do)	 (u-do) 538,0
i	 i 566,0
i'	 i' 571,0
j	 j 577,0
k	 k 583,0
move	 move 595,0
cmove	 cmove 604,0
cmove>	 cmove> 613,0
fill	 fill 624,0
compare	 compare 631,0
toupper	 toupper 659,0
/string	 /string 666,0
lit	 lit 676,0
+	 + 680,0
lit+	 lit+ 685,0
under+	 under+ 689,0
-	 - 695,0
negate	 negate 700,0
1+	 1+ 706,0
1-	 1- 711,0
max	 max 716,0
min	 min 724,0
abs	 abs 732,0
*	 * 740,0
/	 / 745,0
mod	 mod 750,0
/mod	 /mod 755,0
2*	 2* 761,0
2/	 2/ 767,0
fm/mod	 fm/mod 778,0
sm/rem	 sm/rem 800,0
m*	 m* 822,0
um*	 um* 833,0
um/mod	 um/mod 849,0
m+	 m+ 869,0
d+	 d+ 879,0
d-	 d- 889,0
dnegate	 dnegate 899,0
d2*	 d2* 909,0
d2/	 d2/ 920,0
and	 and 933,0
or	 or 936,0
xor	 xor 941,0
invert	 invert 944,0
rshift	 rshift 949,0
lshift	 lshift 955,0
0=	 0= 1013,0
0<>	 0<> 1013,0
0<	 0< 1013,0
0>	 0> 1013,0
0<=	 0<= 1013,0
0>=	 0>= 1013,0
=	 = 1014,0
<>	 <> 1014,0
<	 < 1014,0
>	 > 1014,0
<=	 <= 1014,0
>=	 >= 1014,0
u=	 u= 1015,0
u<>	 u<> 1015,0
u<	 u< 1015,0
u>	 u> 1015,0
u<=	 u<= 1015,0
u>=	 u>= 1015,0
d=	 d= 1065,0
d<>	 d<> 1065,0
d<	 d< 1065,0
d>	 d> 1065,0
d<=	 d<= 1065,0
d>=	 d>= 1065,0
d0=	 d0= 1066,0
d0<>	 d0<> 1066,0
d0<	 d0< 1066,0
d0>	 d0> 1066,0
d0<=	 d0<= 1066,0
d0>=	 d0>= 1066,0
du=	 du= 1067,0
du<>	 du<> 1067,0
du<	 du< 1067,0
du>	 du> 1067,0
du<=	 du<= 1067,0
du>=	 du>= 1067,0
within	 within 1071,0
useraddr	 useraddr 1085,0
up!	 up! 1088,0
sp@	 sp@ 1094,0
sp!	 sp! 1097,0
rp@	 rp@ 1101,0
rp!	 rp! 1104,0
fp@	 fp@ 1109,0
fp!	 fp! 1112,0
>r	 >r 1117,0
r>	 r> 1122,0
rdrop	 rdrop 1127,0
2>r	 2>r 1131,0
2r>	 2r> 1135,0
2r@	 2r@ 1139,0
2rdrop	 2rdrop 1143,0
over	 over 1147,0
drop	 drop 1151,0
swap	 swap 1155,0
dup	 dup 1160,0
rot	 rot 1164,0
-rot	 -rot 1173,0
nip	 nip 1177,0
tuck	 tuck 1181,0
?dup	 ?dup 1185,0
pick	 pick 1197,0
2drop	 2drop 1203,0
2dup	 2dup 1207,0
2over	 2over 1211,0
2swap	 2swap 1215,0
2rot	 2rot 1219,0
2nip	 2nip 1223,0
2tuck	 2tuck 1227,0
@	 @ 1235,0
lit@	 lit@ 1241,0
!	 ! 1244,0
+!	 +! 1248,0
c@	 c@ 1254,0
c!	 c! 1280,0
2!	 2! 1310,0
2@	 2@ 1317,0
cell+	 cell+ 1325,0
cells	 cells 1331,0
char+	 char+ 1342,0
(chars)	 (chars) 1348,0
count	 count 1353,0
(f83find)	 (f83find) 1365,0
(listlfind)	 (listlfind) 1390,0
(hashlfind)	 (hashlfind) 1403,0
(tablelfind)	 (tablelfind) 1413,0
(hashkey1)	 (hashkey1) 1430,0
(parse-white)	 (parse-white) 1450,0
aligned	 aligned 1460,0
faligned	 faligned 1466,0
threading-method	 threading-method 1474,0
key-file	 key-file 1493,0
key?-file	 key?-file 1501,0
stdin	 stdin 1511,0
stdout	 stdout 1514,0
stderr	 stderr 1517,0
form	 form 1520,0
flush-icache	 flush-icache 1528,0
(bye)	 (bye) 1540,0
(system)	 (system) 1544,0
getenv	 getenv 1556,0
open-pipe	 open-pipe 1565,0
close-pipe	 close-pipe 1569,0
time&date	 time&date 1573,0
ms	 ms 1597,0
allocate	 allocate 1604,0
free	 free 1613,0
resize	 resize 1621,0
strerror	 strerror 1638,0
strsignal	 strsignal 1642,0
call-c	 call-c 1646,0
close-file	 close-file 1664,0
open-file	 open-file 1667,0
create-file	 create-file 1671,0
delete-file	 delete-file 1682,0
rename-file	 rename-file 1685,0
file-position	 file-position 1689,0
reposition-file	 reposition-file 1694,0
file-size	 file-size 1697,0
resize-file	 resize-file 1702,0
read-file	 read-file 1705,0
(read-line)	 (read-line) 1713,0
write-file	 write-file 1722,0
emit-file	 emit-file 1735,0
flush-file	 flush-file 1746,0
file-status	 file-status 1749,0
file-eof?	 file-eof? 1754,0
open-dir	 open-dir 1757,0
read-dir	 read-dir 1763,0
close-dir	 close-dir 1791,0
filename-match	 filename-match 1795,0
newline	 newline 1802,0
utime	 utime 1821,0
cputime  cputime 1827,0
f=	 f= 1855,0
f<>	 f<> 1855,0
f<	 f< 1855,0
f>	 f> 1855,0
f<=	 f<= 1855,0
f>=	 f>= 1855,0
f0=	 f0= 1856,0
f0<>	 f0<> 1856,0
f0<	 f0< 1856,0
f0>	 f0> 1856,0
f0<=	 f0<= 1856,0
f0>=	 f0>= 1856,0
d>f	 d>f 1858,0
f>d	 f>d 1870,0
f!	 f! 1874,0
f@	 f@ 1878,0
df@	 df@ 1882,0
df!	 df! 1890,0
sf@	 sf@ 1899,0
sf!	 sf! 1907,0
f+	 f+ 1916,0
f-	 f- 1919,0
f*	 f* 1922,0
f/	 f/ 1925,0
f**	 f** 1928,0
fnegate	 fnegate 1932,0
fdrop	 fdrop 1935,0
fdup	 fdup 1937,0
fswap	 fswap 1939,0
fover	 fover 1941,0
frot	 frot 1943,0
fnip	 fnip 1945,0
ftuck	 ftuck 1947,0
float+	 float+ 1949,0
floats	 floats 1953,0
floor	 floor 1957,0
fround	 fround 1962,0
fmax	 fmax 1966,0
fmin	 fmin 1972,0
represent	 represent 1978,0
>float	 >float 1993,0
fabs	 fabs 2008,0
facos	 facos 2011,0
fasin	 fasin 2014,0
fatan	 fatan 2017,0
fatan2	 fatan2 2020,0
fcos	 fcos 2025,0
fexp	 fexp 2028,0
fexpm1	 fexpm1 2031,0
fln	 fln 2044,0
flnp1	 flnp1 2047,0
flog	 flog 2060,0
falog	 falog 2064,0
fsin	 fsin 2069,0
fsincos	 fsincos 2072,0
fsqrt	 fsqrt 2077,0
ftan	 ftan 2080,0
fsinh	 fsinh 2085,0
fcosh	 fcosh 2090,0
ftanh	 ftanh 2095,0
fasinh	 fasinh 2100,0
facosh	 facosh 2105,0
fatanh	 fatanh 2110,0
sfloats	 sfloats 2116,0
dfloats	 dfloats 2121,0
sfaligned	 sfaligned 2126,0
dfaligned	 dfaligned 2133,0
v*	 v* 2140,0
faxpy	 faxpy 2150,0
@local#	 @local# 2171,0
@local0	 @local0 2174,0
@local1	 @local1 2177,0
@local2	 @local2 2180,0
@local3	 @local3 2183,0
f@local#	 f@local# 2188,0
f@local0	 f@local0 2191,0
f@local1	 f@local1 2194,0
laddr#	 laddr# 2199,0
lp+!#	 lp+!# 2203,0
lp-	 lp- 2209,0
lp+	 lp+ 2212,0
lp+2	 lp+2 2215,0
lp!	 lp! 2218,0
>l	 >l 2221,0
f>l	 f>l 2227,0
fpick	 fpick 2231,0
open-lib	 open-lib 2244,0
lib-sym	 lib-sym 2259,0
wcall	 wcall 2271,0
av-start-void	 av-start-void 2281,0
av-start-int	 av-start-int 2284,0
av-start-float	 av-start-float 2287,0
av-start-double	 av-start-double 2290,0
av-start-longlong	 av-start-longlong 2293,0
av-start-ptr	 av-start-ptr 2296,0
av-int  av-int 2299,0
av-float	 av-float 2302,0
av-double	 av-double 2305,0
av-longlong	 av-longlong 2308,0
av-ptr	 av-ptr 2311,0
av-int-r  av-int-r 2314,0
av-float-r	 av-float-r 2317,0
av-double-r	 av-double-r 2322,0
av-longlong-r	 av-longlong-r 2327,0
av-ptr-r	 av-ptr-r 2330,0
av-call-void	 av-call-void 2333,0
av-call-int	 av-call-int 2338,0
av-call-float	 av-call-float 2344,0
av-call-double	 av-call-double 2350,0
av-call-longlong	 av-call-longlong 2356,0
av-call-ptr	 av-call-ptr 2362,0
alloc-callback	 alloc-callback 2368,0
va-start-void	 va-start-void 2371,0
va-start-int	 va-start-int 2374,0
va-start-longlong	 va-start-longlong 2377,0
va-start-ptr	 va-start-ptr 2380,0
va-start-float	 va-start-float 2383,0
va-start-double	 va-start-double 2386,0
va-arg-int	 va-arg-int 2389,0
va-arg-longlong	 va-arg-longlong 2392,0
va-arg-ptr	 va-arg-ptr 2395,0
va-arg-float	 va-arg-float 2398,0
va-arg-double	 va-arg-double 2401,0
va-return-void  va-return-void 2404,0
va-return-int  va-return-int 2408,0
va-return-ptr  va-return-ptr 2412,0
va-return-longlong  va-return-longlong 2416,0
va-return-float  va-return-float 2420,0
va-return-double  va-return-double 2424,0
icall0	 icall0 2463,0
icall1	 icall1 2463,0
icall2	 icall2 2463,0
icall3	 icall3 2463,0
icall4	 icall4 2463,0
icall5	 icall5 2463,0
icall6	 icall6 2463,0
icall20	 icall20 2464,0
fcall0	 fcall0 2465,0
fcall1	 fcall1 2465,0
fcall2	 fcall2 2465,0
fcall3	 fcall3 2465,0
fcall4	 fcall4 2465,0
fcall5	 fcall5 2465,0
fcall6	 fcall6 2465,0
fcall20	 fcall20 2466,0
compile-prim1  compile-prim1 2475,0
finish-code  finish-code 2479,0
forget-dyncode  forget-dyncode 2484,0
decompile-prim  decompile-prim 2487,0
set-next-code  set-next-code 2495,0
call2  call2 2500,0
tag-offsets  tag-offsets 2509,0

peeprules.vmg,0
super1  super1 3,0
super2  super2 4,0
super3  super3 5,0
super4  super4 6,0
super5  super5 7,0
super6  super6 8,0
super7  super7 9,0
super8  super8 10,0
super9  super9 11,0
super10  super10 12,0
super11  super11 13,0
super12  super12 14,0
super13  super13 15,0
super14  super14 16,0
super15  super15 17,0
super16  super16 18,0
super17  super17 19,0
super18  super18 20,0
super19  super19 21,0
super20  super20 22,0
super21  super21 23,0
super22  super22 24,0
super23  super23 25,0
super24  super24 26,0
super25  super25 27,0
super26  super26 28,0
super27  super27 29,0

kernel/aliases.fs,0
Primitive noopnoop43,0
Primitive callcall44,0
Primitive executeexecute45,0
Primitive performperform46,0
Primitive ;s;S47,0
Primitive unloopunloop48,0
Primitive lit-performlit-perform49,0
Primitive does-execdoes-exec50,0
Primitive branch-lp+!#branch-lp+!#53,0
Primitive branchbranch56,0
Primitive ?branch?branch57,0
Primitive ?branch-lp+!#?branch-lp+!#60,0
Primitive ?dup-?branch?dup-?branch65,0
Primitive ?dup-0=-?branch?dup-0=-?branch66,0
Primitive (next)(next)70,0
Primitive (next)-lp+!#(next)-lp+!#73,0
Primitive (loop)(loop)76,0
Primitive (loop)-lp+!#(loop)-lp+!#79,0
Primitive (+loop)(+loop)82,0
Primitive (+loop)-lp+!#(+loop)-lp+!#85,0
Primitive (-loop)(-loop)90,0
Primitive (-loop)-lp+!#(-loop)-lp+!#93,0
Primitive (s+loop)(s+loop)96,0
Primitive (s+loop)-lp+!#(s+loop)-lp+!#99,0
Primitive (for)(for)104,0
Primitive (do)(do)105,0
Primitive (?do)(?do)106,0
Primitive (+do)(+do)109,0
Primitive (u+do)(u+do)110,0
Primitive (-do)(-do)111,0
Primitive (u-do)(u-do)112,0
Primitive ii115,0
Primitive i'i'116,0
Primitive jj117,0
Primitive kk118,0
Primitive movemove122,0
Primitive cmovecmove123,0
Primitive cmove>cmove>124,0
Primitive fillfill125,0
Primitive comparecompare126,0
Primitive touppertoupper127,0
Primitive /string/string128,0
Primitive litlit131,0
Primitive ++132,0
Primitive lit+lit+133,0
Primitive under+under+134,0
Primitive --135,0
Primitive negatenegate136,0
Primitive 1+1+137,0
Primitive 1-1-138,0
Primitive maxmax139,0
Primitive minmin140,0
Primitive absabs141,0
Primitive **142,0
Primitive //143,0
Primitive modmod144,0
Primitive /mod/mod145,0
Primitive 2*2*146,0
Primitive 2/2/147,0
Primitive fm/modfm/mod148,0
Primitive sm/remsm/rem149,0
Primitive m*m*150,0
Primitive um*um*151,0
Primitive um/modum/mod152,0
Primitive m+m+153,0
Primitive d+d+154,0
Primitive d-d-155,0
Primitive dnegatednegate156,0
Primitive d2*d2*157,0
Primitive d2/d2/158,0
Primitive andand159,0
Primitive oror160,0
Primitive xorxor161,0
Primitive invertinvert162,0
Primitive rshiftrshift163,0
Primitive lshiftlshift164,0
Primitive 0=0=167,0
Primitive 0<>0<>168,0
Primitive 0<0<169,0
Primitive 0>0>170,0
Primitive 0<=0<=171,0
Primitive 0>=0>=172,0
Primitive ==173,0
Primitive <><>174,0
Primitive <<175,0
Primitive >>176,0
Primitive <=<=177,0
Primitive >=>=178,0
Primitive u=u=179,0
Primitive u<>u<>180,0
Primitive u<u<181,0
Primitive u>u>182,0
Primitive u<=u<=183,0
Primitive u>=u>=184,0
Primitive d=d=187,0
Primitive d<>d<>188,0
Primitive d<d<189,0
Primitive d>d>190,0
Primitive d<=d<=191,0
Primitive d>=d>=192,0
Primitive d0=d0=193,0
Primitive d0<>d0<>194,0
Primitive d0<d0<195,0
Primitive d0>d0>196,0
Primitive d0<=d0<=197,0
Primitive d0>=d0>=198,0
Primitive du=du=199,0
Primitive du<>du<>200,0
Primitive du<du<201,0
Primitive du>du>202,0
Primitive du<=du<=203,0
Primitive du>=du>=204,0
Primitive withinwithin207,0
Primitive useraddruseraddr210,0
Primitive up!up!211,0
Primitive sp@sp@212,0
Primitive sp!sp!213,0
Primitive rp@rp@214,0
Primitive rp!rp!215,0
Primitive fp@fp@218,0
Primitive fp!fp!219,0
Primitive >r>r222,0
Primitive r>r>223,0
Primitive rdroprdrop224,0
Primitive 2>r2>r225,0
Primitive 2r>2r>226,0
Primitive 2r@2r@227,0
Primitive 2rdrop2rdrop228,0
Primitive overover229,0
Primitive dropdrop230,0
Primitive swapswap231,0
Primitive dupdup232,0
Primitive rotrot233,0
Primitive -rot-rot234,0
Primitive nipnip235,0
Primitive tucktuck236,0
Primitive ?dup?dup237,0
Primitive pickpick238,0
Primitive 2drop2drop239,0
Primitive 2dup2dup240,0
Primitive 2over2over241,0
Primitive 2swap2swap242,0
Primitive 2rot2rot243,0
Primitive 2nip2nip244,0
Primitive 2tuck2tuck245,0
Primitive @@248,0
Primitive lit@lit@249,0
Primitive !!250,0
Primitive +!+!251,0
Primitive c@c@252,0
Primitive c!c!253,0
Primitive 2!2!254,0
Primitive 2@2@255,0
Primitive cell+cell+256,0
Primitive cellscells257,0
Primitive char+char+258,0
Primitive (chars)(chars)259,0
Primitive countcount260,0
Primitive (listlfind)(listlfind)268,0
Primitive (hashlfind)(hashlfind)271,0
Primitive (tablelfind)(tablelfind)272,0
Primitive (hashkey1)(hashkey1)273,0
Primitive (parse-white)(parse-white)278,0
Primitive alignedaligned279,0
Primitive falignedfaligned280,0
Primitive threading-methodthreading-method282,0
Primitive key-filekey-file286,0
Primitive key?-filekey?-file287,0
Primitive stdinstdin290,0
Primitive stdoutstdout291,0
Primitive stderrstderr292,0
Primitive formform293,0
Primitive flush-icacheflush-icache294,0
Primitive (bye)(bye)295,0
Primitive (system)(system)296,0
Primitive getenvgetenv297,0
Primitive open-pipeopen-pipe298,0
Primitive close-pipeclose-pipe299,0
Primitive time&datetime&date300,0
Primitive msms301,0
Primitive allocateallocate302,0
Primitive freefree303,0
Primitive resizeresize304,0
Primitive strerrorstrerror305,0
Primitive strsignalstrsignal306,0
Primitive call-ccall-c307,0
Primitive close-fileclose-file312,0
Primitive open-fileopen-file313,0
Primitive create-filecreate-file314,0
Primitive delete-filedelete-file315,0
Primitive rename-filerename-file316,0
Primitive file-positionfile-position317,0
Primitive reposition-filereposition-file318,0
Primitive file-sizefile-size319,0
Primitive resize-fileresize-file320,0
Primitive read-fileread-file321,0
Primitive (read-line)(read-line)322,0
Primitive write-filewrite-file325,0
Primitive emit-fileemit-file326,0
Primitive flush-fileflush-file329,0
Primitive file-statusfile-status330,0
Primitive file-eof?file-eof?331,0
Primitive open-diropen-dir332,0
Primitive read-dirread-dir333,0
Primitive close-dirclose-dir334,0
Primitive filename-matchfilename-match335,0
Primitive newlinenewline338,0
Primitive utimeutime341,0
Primitive cputimecputime342,0
Primitive f=f=349,0
Primitive f<>f<>350,0
Primitive f<f<351,0
Primitive f>f>352,0
Primitive f<=f<=353,0
Primitive f>=f>=354,0
Primitive f0=f0=355,0
Primitive f0<>f0<>356,0
Primitive f0<f0<357,0
Primitive f0>f0>358,0
Primitive f0<=f0<=359,0
Primitive f0>=f0>=360,0
Primitive d>fd>f361,0
Primitive f>df>d362,0
Primitive f!f!363,0
Primitive f@f@364,0
Primitive df@df@365,0
Primitive df!df!366,0
Primitive sf@sf@367,0
Primitive sf!sf!368,0
Primitive f+f+369,0
Primitive f-f-370,0
Primitive f*f*371,0
Primitive f/f/372,0
Primitive f**f**373,0
Primitive fnegatefnegate374,0
Primitive fdropfdrop375,0
Primitive fdupfdup376,0
Primitive fswapfswap377,0
Primitive foverfover378,0
Primitive frotfrot379,0
Primitive fnipfnip380,0
Primitive ftuckftuck381,0
Primitive float+float+382,0
Primitive floatsfloats383,0
Primitive floorfloor384,0
Primitive froundfround385,0
Primitive fmaxfmax386,0
Primitive fminfmin387,0
Primitive representrepresent388,0
Primitive >float>float389,0
Primitive fabsfabs390,0
Primitive facosfacos391,0
Primitive fasinfasin392,0
Primitive fatanfatan393,0
Primitive fatan2fatan2394,0
Primitive fcosfcos395,0
Primitive fexpfexp396,0
Primitive fexpm1fexpm1397,0
Primitive flnfln398,0
Primitive flnp1flnp1399,0
Primitive flogflog400,0
Primitive falogfalog401,0
Primitive fsinfsin402,0
Primitive fsincosfsincos403,0
Primitive fsqrtfsqrt404,0
Primitive ftanftan405,0
Primitive fsinhfsinh406,0
Primitive fcoshfcosh407,0
Primitive ftanhftanh408,0
Primitive fasinhfasinh409,0
Primitive facoshfacosh410,0
Primitive fatanhfatanh411,0
Primitive sfloatssfloats412,0
Primitive dfloatsdfloats413,0
Primitive sfalignedsfaligned414,0
Primitive dfaligneddfaligned415,0
Primitive v*v*416,0
Primitive faxpyfaxpy417,0
Primitive @local#@local#424,0
Primitive @local0@local0425,0
Primitive @local1@local1426,0
Primitive @local2@local2427,0
Primitive @local3@local3428,0
Primitive f@local#f@local#431,0
Primitive f@local0f@local0432,0
Primitive f@local1f@local1433,0
Primitive laddr#laddr#436,0
Primitive lp+!#lp+!#437,0
Primitive lp-lp-438,0
Primitive lp+lp+439,0
Primitive lp+2lp+2440,0
Primitive lp!lp!441,0
Primitive >l>l442,0
Primitive f>lf>l445,0
Primitive fpickfpick446,0
Primitive open-libopen-lib455,0
Primitive lib-symlib-sym456,0
Primitive wcallwcall457,0
Primitive icall0icall0504,0
Primitive icall1icall1505,0
Primitive icall2icall2506,0
Primitive icall3icall3507,0
Primitive icall4icall4508,0
Primitive icall5icall5509,0
Primitive icall6icall6510,0
Primitive icall20icall20511,0
Primitive fcall0fcall0512,0
Primitive fcall1fcall1513,0
Primitive fcall2fcall2514,0
Primitive fcall3fcall3515,0
Primitive fcall4fcall4516,0
Primitive fcall5fcall5517,0
Primitive fcall6fcall6518,0
Primitive fcall20fcall20519,0
Primitive compile-prim1compile-prim1528,0
Primitive finish-codefinish-code529,0
Primitive forget-dyncodeforget-dyncode530,0
Primitive decompile-primdecompile-prim531,0
Primitive set-next-codeset-next-code532,0
Primitive call2call2533,0
Primitive tag-offsetstag-offsets534,0

#load-file#,0
AConstant image-headerimage-header84,0
: forthstart forthstart85,0

kernel/vars.fs,0
 -1 Constant true true28,0
  0 Constant false false32,0
1 cells Constant cell cell36,0
1 floats Constant float float41,0
20 Constant bl bl45,0
FF Constant /line/line49,0
40 Constant c/lc/l51,0
10 Constant l/sl/s52,0
400 Constant chars/blockchars/block53,0
20 8 2* cells + 2 + cell+ constant word-pno-size word-pno-size55,0
create holdbuf holdbuf56,0
holdbuf word-pno-size chars + aconstant holdbuf-endholdbuf-end57,0
avariable holdptr holdptr58,0
avariable holdend holdend59,0
84 constant pad-minsize pad-minsize61,0
$400 Value def#tibdef#tib63,0
Create main-task main-task72,0
Variable udp udp78,0
AUser next-task next-task81,0
AUser prev-task prev-task82,0
AUser save-task save-task83,0
AUser sp0 sp084,0
    ' sp0 Alias s0 s087,0
AUser rp0 rp090,0
    ' rp0 Alias r0 r092,0
AUser fp0 fp096,0
AUser lp0 lp0102,0
    ' lp0 Alias l0 l0104,0
AUser handler	handler108,0
User backtrace-empty backtrace-empty110,0
AUser backtrace-rp0 backtrace-rp0111,0
AUser errorhandlererrorhandler116,0
AUser "error "error118,0
    User current-inputcurrent-input121,0
User base base160,0
User dpl dpl164,0
User state state172,0
AUser normal-dp	normal-dp187,0
AUser dpp	dpp188,0
AUser LastCFALastCFA192,0
AUser LastLast193,0
AUser last-compiled last-compiled195,0
AUser last-compiled-here last-compiled-here198,0
User max-name-length max-name-length200,0
User locals-size locals-size208,0

compat/strcomp.fs,0
: str= str=18,0
: string-prefix? string-prefix?21,0
: str< str<25,0

kernel/basics.fs,0
\- NIL NIL AConstant NIL NIL32,0
' i Alias r@ r@37,0
: maxaligned maxaligned42,0
' maxaligned Alias cfaligned cfaligned48,0
: chars chars52,0
' ! alias A! A!61,0
	: dictionary-end dictionary-end70,0
: usable-dictionary-end usable-dictionary-end79,0
: unused unused82,0
: in-dictionary? in-dictionary?91,0
: dp dp97,0
: here here99,0
: on on106,0
: off off109,0
: dabs dabs115,0
: roll roll118,0
: place place124,0
: bounds bounds126,0
: scan scan135,0
: skip skip146,0
: digit? digit?160,0
: accumulate accumulate176,0
: >number >number179,0
: s>d s>d206,0
: ud/mod ud/mod209,0
: lp@ lp@216,0
defer catch catch220,0
defer throw throw231,0
: c(abort") c(abort")247,0
: (abort")(ABORT")250,0
: abort abort257,0
: ?stack ?stack263,0
: depth depth273,0
: clearstack clearstack278,0
: "lit "lit284,0
: */mod */mod290,0
: */ */294,0
: decimal decimal300,0
: hex hex303,0

kernel/io.fs,0
0 Value outfile-id outfile-id26,0
0 Value infile-id infile-id27,0
: (type) (type)29,0
: (emit) (emit)33,0
: (key) (key)37,0
: (key?) (key?)40,0
Defer type type46,0
Defer emit emit58,0
Defer key key66,0
Defer key? key?71,0
: (.") (.")82,0
: (S") (S")83,0
07 constant #bell #bell87,0
08 constant #bs #bs88,0
09 constant #tab #tab89,0
7F constant #del #del90,0
0D constant #cr #cr91,0
0C constant #ff #ff93,0
0A constant #lf #lf94,0
: bell bell96,0
: cr cr97,0
: space space104,0
Create spaces spaces116,0
Create backspacesbackspaces122,0

kernel/nio.fs,0
: pad pad23,0
: hold hold31,0
: <# <#38,0
: #> #>42,0
: <<# <<#49,0
: #>> #>>57,0
: sign sign62,0
: # #70,0
: #s #s85,0
: d.r d.r96,0
: ud.r ud.r103,0
: .r .r108,0
: u.r u.r114,0
: d. d.119,0
: ud. ud.123,0
: . .127,0
: u. u.131,0

kernel/errore.fs,0
AVariable ErrLink ErrLink28,0
: >stderr >stderr41,0
: .error .error48,0

kernel/version.fs,0
: version-string version-string1,0

chains.fs,0
: linked linked45,0
: chained chained50,0
: chainperform	chainperform55,0

kernel/int.fs,0
: (word) (word)50,0
: sword sword58,0
: word word68,0
: parse parse79,0
: (name) (name)90,0
: name-too-short? name-too-short?96,0
: name-too-long? name-too-long?99,0
const Create bases bases107,0
: getbase getbase111,0
: sign? sign?119,0
: s>unumber? s>unumber?126,0
: s>number? s>number?145,0
: s>number s>number159,0
: snumber? snumber?163,0
: number? number?174,0
: number number181,0
: ( (189,0
: \ \195,0
: \G \G208,0
  cell% field find-method find-method218,0
  cell% field reveal-method reveal-method219,0
  cell% field rehash-method rehash-method220,0
  cell% field hash-method hash-method221,0
end-struct wordlist-map-structwordlist-map-struct223,0
  cell% field wordlist-map wordlist-map226,0
  cell% field wordlist-id wordlist-id227,0
  cell% field wordlist-link wordlist-link228,0
  cell% field wordlist-extend wordlist-extend229,0
end-struct wordlist-structwordlist-struct230,0
: f83find f83find236,0
: initvoc	initvoc240,0
Create f83search f83search244,0
AValue forth-wordlist forth-wordlist248,0
AVariable lookup lookup250,0
AVariable current current252,0
AVariable voclink	voclink254,0
Defer context context256,0
$80000000 constant alias-maskalias-mask275,0
$40000000 constant immediate-maskimmediate-mask279,0
$20000000 constant restrict-maskrestrict-mask283,0
$1fffffff constant lcount-masklcount-mask287,0
: flag-sign flag-sign295,0
: ticking-compile-only-error ticking-compile-only-error299,0
: compile-only-error compile-only-error302,0
: (cfa>int) (cfa>int)305,0
: (x>int) (x>int)313,0
: name>string name>string338,0
: ((name>)) ((name>))342,0
: (name>x) (name>x)345,0
: name>int name>int354,0
: name?int name?int361,0
: (name>comp) (name>comp)370,0
: (name>intn) (name>intn)382,0
const Create ??? ???386,0
: head? head?393,0
: >head-noprim >head-noprim419,0
cell% 2* 0 0 field >body >body455,0
cell% -2 * 0 0 field body> body>460,0
' @ alias >code-address >code-address465,0
: >does-code >does-code468,0
' ! alias code-address! code-address!478,0
: does-code! does-code!481,0
' drop alias does-handler! does-handler!486,0
2 cells constant /does-handler /does-handler490,0
: (search-wordlist) (search-wordlist)495,0
: search-wordlist search-wordlist498,0
: find-name find-name510,0
: sfind sfind515,0
: find find526,0
: (') (')550,0
: ' '557,0
Defer parser parser574,0
Defer parse-word parse-word575,0
' parse-word alias name name579,0
Defer compiler-notfound compiler-notfound582,0
Defer interpreter-notfound interpreter-notfound583,0
: no.extensions no.extensions585,0
: interpret1 interpret1590,0
: interpret interpret601,0
: interpreter interpreter615,0
: save-mem	save-mem687,0
: free-mem-var free-mem-var693,0
: extend-mem	extend-mem704,0
Defer 'quit'quit749,0
Defer .status.status751,0
: prompt prompt753,0
: (quit) (quit)755,0
8 Constant max-errorsmax-errors775,0
Variable error-stack error-stack776,0
: error> error>784,0
: >error >error791,0
: dec. dec.799,0
: dec.r dec.r804,0
: hex. hex.808,0
: typewhite typewhite814,0
: -trailing -trailing826,0
DEFER DOERRORDOERROR835,0
Defer dobacktrace dobacktrace838,0
: .error-string .error-string842,0
: .error-frame .error-frame848,0
: (DoError) (DoError)881,0
: quit quit900,0
: (bootmessage)(bootmessage)924,0
defer bootmessagebootmessage932,0
defer process-argsprocess-args933,0
Defer 'cold 'cold937,0
AVariable init8 init8943,0
: cold cold945,0
: boot boot976,0
: bye bye1004,0

kernel/comp.fs,0
: allot allot37,0
: c, c,49,0
: , ,53,0
: 2,	2,57,0
: align align65,0
: falign falign72,0
: maxalign maxalign80,0
' maxalign Alias cfalign cfalign88,0
' , alias A, a,92,0
' NOOP ALIAS constconst94,0
defer (header)(header)102,0
defer header header103,0
: string, string,106,0
: longstring, longstring,110,0
: header, header,114,0
: input-stream-header input-stream-header123,0
: input-stream input-stream126,0
2variable nextname-stringnextname-string132,0
: nextname-header nextname-header135,0
: nextname nextname144,0
: noname-header noname-header153,0
: noname noname157,0
: latestxt latestxt163,0
' latestxt alias lastxt lastxt168,0
: latest latest171,0
: Literal Literal178,0
: ALiteral ALiteral188,0
: char char195,0
: [char] [Char]200,0
: cfa, cfa,209,0
defer compile, compile,215,0
defer basic-block-end basic-block-end222,0
: peephole-compile, peephole-compile,231,0
: compile-to-prims, compile-to-prims,271,0
: !does !does299,0
: (does>) (does>)302,0
: dodoes, dodoes,305,0
: (compile) (compile)308,0
: name>comp name>comp313,0
: [(')] [(')]322,0
: ['] [']325,0
: COMP' COMP'331,0
: [COMP'] [COMP']335,0
: postpone, postpone,339,0
: POSTPONE postpone354,0
: recurse recurse360,0
: compiler compiler366,0
: [ [385,0
: ] ]389,0
: S, S,395,0
: mem, mem,399,0
: ," ,"403,0
: cset cset408,0
: creset creset411,0
: ctoggle ctoggle414,0
: lastflags lastflags417,0
: immediate immediate422,0
: restrict restrict427,0
' restrict alias compile-only compile-only431,0
: Alias Alias436,0
: Create Create443,0
: Variable Variable451,0
: AVariable AVariable454,0
: 2Variable 2Variable457,0
: uallot uallot460,0
: User User465,0
: AUser AUser468,0
    : (Constant) (Constant)478,0
: Constant Constant483,0
: AConstant AConstant489,0
: Value Value492,0
: AValue AValue495,0
: 2Constant 2Constant498,0
    : (Field) (Field)505,0
    cell% field interpret/compile-intinterpret/compile-int514,0
    cell% field interpret/compile-compinterpret/compile-comp515,0
end-struct interpret/compile-structinterpret/compile-struct516,0
: interpret/compile: interpret/compile:518,0
: Defer Defer528,0
: Defers defers541,0
interpret/compile: DOES> DOES>555,0
: <IS> <IS>557,0
: [IS] [IS]561,0
interpret/compile: IS IS568,0
interpret/compile: TO TO573,0
interpret/compile: What's What's577,0
: interpret/compile? interpret/compile?580,0
defer :-hook :-hook585,0
defer ;-hook ;-hook587,0
0 Constant defstartdefstart589,0
: (:noname) (:noname)596,0
: : :602,0
: :noname :noname605,0
: ; ;613,0
: last? last?621,0
: (reveal) (reveal)624,0
Variable warnings warnings632,0
: check-shadow check-shadow635,0
: reveal reveal649,0
: rehash rehash662,0
' reveal alias recursive recursive665,0

kernel/accept.fs,0
: (ins) (ins)21,0
: (bs) (bs)23,0
: (ret) (ret)27,0
Create ctrlkeysctrlkeys30,0
defer insert-charinsert-char43,0
defer everychareverychar45,0
: decode decode48,0
: edit-line edit-line57,0
: accept accept65,0

kernel/input.fs,0
| : input-method input-method23,0
| : input-var input-var25,0
input-method source source29,0
input-method refill refill32,0
input-method source-id source-id46,0
| input-method (save-input) (save-input)51,0
| input-method (restore-input) (restore-input)52,0
cell input-var >in >in56,0
cell input-var #tib #tib60,0
cell input-var max#tib max#tib65,0
cell input-var old-input old-input68,0
cell input-var loadline loadline71,0
cell input-var loadfile loadfile75,0
cell input-var blk blk78,0
cell input-var #fill-bytes #fill-bytes81,0
2 cells input-var loadfilename loadfilename84,0
0 input-var tibtib88,0
Constant tib+tib+90,0
| Create terminal-input terminal-input104,0
| Create evaluate-inputevaluate-input106,0
: read-line read-line116,0
| Create file-input file-input140,0
: new-tib new-tib145,0
: expand-tib expand-tib151,0
: push-file push-file155,0
: pop-file pop-file159,0
: save-input save-input170,0
: restore-input restore-input175,0
: create-input create-input191,0
: execute-parsing execute-parsing196,0
: evaluate evaluate206,0
: clear-tibstack clear-tibstack216,0
: query query222,0
: read-loop read-loop231,0
: execute-parsing-named-file execute-parsing-named-file235,0
: execute-parsing-file execute-parsing-file242,0
: include-file include-file247,0

kernel/license.fs,0
: license license21,0

kernel/args.fs,0
: cstring>sstring cstring>sstring21,0
: arg arg23,0
: #! #!26,0
Create pathstring pathstring30,0
Create pathdirs pathdirs31,0
Variable argv argv33,0
Variable argc argc38,0
0 Value script? script?41,0
: do-option do-option43,0
: (process-args) (process-args)59,0
: os-boot os-boot77,0

kernel/files.fs,0
4 Constant w/o w/o21,0
2 Constant r/w r/w22,0
0 Constant r/o r/o23,0
: bin bin25,0
: write-line write-line30,0
: ( (99,0

kernel/paths.fs,0
: path-allot path-allot51,0
: +place +place56,0
0 avalue fpath fpath68,0
: os-cold os-cold70,0
: also-path also-path78,0
: clear-path clear-path89,0
: only-path only-path93,0
: path+ path+96,0
: fpath+ fpath+100,0
: path= path=104,0
: fpath= fpath=109,0
: path>counted path>counted113,0
: next-path next-path115,0
: previous-path previous-path121,0
: .path .path126,0
: .fpath .fpath131,0
: absolut-path? absolut-path?135,0
Create ofile ofile147,0
Create tfile tfile148,0
: pathsep? pathsep?150,0
: need/ need/152,0
: extractpath extractpath154,0
: remove~+ remove~+159,0
: expandtopic expandtopic165,0
: compact.. compact..177,0
: reworkdir reworkdir190,0
: open-ofile open-ofile195,0
: check-path check-path200,0
: open-path-file open-path-file206,0
: open-fpath-file open-fpath-file223,0

kernel/require.fs,0
create included-files included-files23,0
create image-included-files image-included-files28,0
: sourcefilename sourcefilename32,0
: sourceline# sourceline#40,0
: init-included-files init-included-files47,0
: included? included?51,0
: add-included-file add-included-file69,0
: included1 included176,0
: included included90,0
: required required95,0
: include include114,0
: require require118,0
: .strings .strings141,0
: .included .included147,0

kernel/cond.fs,0
AConstant locals-list locals-list22,0
variable dead-code dead-code26,0
variable backedge-localsbackedge-locals27,0
: UNREACHABLE UNREACHABLE32,0
: ASSUME-LIVE ASSUME-LIVE37,0
1 constant live-origlive-orig54,0
2 constant dead-origdead-orig55,0
3 constant dest dest56,0
4 constant do-destdo-dest57,0
5 constant scopestartscopestart58,0
: def? def?60,0
: orig? orig?63,0
: dest? dest?66,0
: do-dest? do-dest?69,0
: scope? scope?72,0
: non-orig? non-orig?75,0
: cs-item? cs-item?78,0
3 constant cs-item-sizecs-item-size81,0
: CS-PICK CS-PICK83,0
: CS-ROLL CS-ROLL89,0
: cs-push-part cs-push-part95,0
: cs-push-orig cs-push-orig98,0
: ?struc ?struc108,0
: sys? sys?109,0
: >mark >mark110,0
: >resolve >resolve112,0
: <resolve <resolve115,0
: BUTBUT117,0
: YETYET119,0
: AHEAD AHEAD124,0
: IF IF127,0
: ?DUP-IF ?DUP-IF130,0
: ?DUP-0=-IF ?DUP-0=-IF135,0
Defer then-like then-like138,0
: cs>addr cs>addr139,0
: THEN THEN142,0
' THEN alias ENDIF ENDIF145,0
: ELSE ELSE151,0
Defer begin-like begin-like156,0
: BEGIN BEGIN159,0
Defer again-like again-like163,0
: AGAIN AGAIN166,0
Defer until-like until-like169,0
: UNTIL UNTIL174,0
: WHILE WHILE177,0
: REPEAT REPEAT181,0
20 constant leave-stack-sizeleave-stack-size194,0
create leave-stack leave-stack195,0
Avariable leave-sp leave-sp196,0
: clear-leave-stack clear-leave-stack198,0
: >leave >leave204,0
: leave> leave>214,0
: DONE DONE224,0
: LEAVE LEAVE235,0
: ?LEAVE ?LEAVE239,0
: DO DO243,0
: ?do-like ?do-like248,0
: ?DO ?DO253,0
: +DO +DO256,0
: U+DO U+DO259,0
: -DO -DO262,0
: U-DO U-DO265,0
: FOR FOR268,0
: loop-like loop-like275,0
: LOOP LOOP279,0
: +LOOP +LOOP282,0
: -LOOP -LOOP286,0
: S+LOOP S+LOOP293,0
: NEXT NEXT296,0
Defer exit-like exit-like301,0
: EXIT EXIT304,0
: ?EXIT ?EXIT314,0

kernel/quotes.fs,0
: CLiteral CLiteral25,0
: SLiteral SLiteral29,0
: abort" ABORT"39,0
interpret/compile: S" S"58,0
interpret/compile: ." ."74,0

kernel/toolsext.fs,0
Variable countifcountif21,0
: dummy dummy23,0
: >exec >exec24,0
: scanIF scanIF25,0
Create [struct]-search [struct]-search27,0
Create [struct]-voc [struct]-voc28,0
: ?if ?if31,0
: [IF][IF]37,0
: [THEN][THEN]39,0
: [ELSE][ELSE]41,0
' [IF]   Alias [IFDEF] [IFDEF]44,0
' [IF]   Alias [IFUNDEF] [IFUNDEF]45,0
' [THEN] Alias [ENDIF] [ENDIF]46,0
' [IF]   Alias [BEGIN] [BEGIN]47,0
' [IF]   Alias [WHILE] [WHILE]48,0
' [THEN] Alias [UNTIL] [UNTIL]49,0
' [THEN] Alias [AGAIN] [AGAIN]50,0
' [IF]   Alias [DO] [DO]51,0
' [IF]   Alias [?DO] [?DO]52,0
' [THEN] Alias [LOOP] [LOOP]53,0
' [THEN] Alias [+LOOP] [+LOOP]54,0
: [REPEAT] [REPEAT]55,0
: [defined] [defined]70,0
' [defined] alias defined defined72,0
: [undefined] [undefined]73,0
: [IF] [IF]76,0
: [IFDEF] [IFDEF]90,0
: [IFUNDEF] [IFUNDEF]96,0
: [ELSE] [ELSE]102,0
: [THEN] [THEN]115,0
: [ENDIF] [ENDIF]120,0
User (i)(i)126,0
: [DO] [DO]128,0
: [?DO] [?DO]133,0
: [+LOOP] [+LOOP]137,0
: [LOOP] [LOOP]140,0
: [FOR] [FOR]143,0
: [NEXT] [NEXT]146,0
interpret/compile: [I] [I]151,0
: [BEGIN] [BEGIN]153,0
' [+LOOP]  Alias [UNTIL] [UNTIL]156,0
: [REPEAT] [REPEAT]159,0
' [REPEAT] Alias [AGAIN] [AGAIN]162,0
: [WHILE] [WHILE]165,0

kernel/tools.fs,0
variable maxdepth-.smaxdepth-.s31,0
: .s .s34,0
Variable /dump/dump48,0
: .4 .450,0
: .chars .chars54,0
: .line .line60,0
: dump dump63,0
: ? ?76,0

termsize.fs,0
: rows rows27,0
: cols cols30,0

kernel/tools.fs,0
: wordlist-words wordlist-words84,0
: wordswords99,0
' words alias vlist vlist105,0

kernel/getdoers.fs,0
: docon: docon:22,0
: docol: docol:27,0
: dovar: dovar:33,0
: douser: douser:41,0
: dodefer: dodefer:47,0
: dofield: dofield:53,0
: dodoes: dodoes:59,0
