Diff for /gforth/peeprules.vmg between versions 1.3 and 1.20

version 1.3, 2002/10/12 19:06:37 version 1.20, 2007/12/31 18:40:24
Line 1 Line 1
 super2 =  lit @  \ Gforth superinstructions and stack caching replicas
 super6 =  cells lit  
 super9 =  cells lit +  \ Copyright (C) 2003,2004,2005 Free Software Foundation, Inc.
 super10 =  cells lit + @  
 super11 =  cells lit + @ lit  \ This file is part of Gforth.
 super12 =  cells lit + @ lit @  
 super13 =  cells lit + @ lit @ and  \ Gforth is free software; you can redistribute it and/or
 super16 =  lit @ +  \ modify it under the terms of the GNU General Public License
 super18 =  i call  \ as published by the Free Software Foundation, either version 3
 super19 =  dup lit  \ of the License, or (at your option) any later version.
 super20 =  lit @ lit  
 super21 =  cells lit + @ lit @ and lit  \ This program is distributed in the hope that it will be useful,
 super22 =  cells lit + @ lit @ and lit @  \ but WITHOUT ANY WARRANTY; without even the implied warranty of
 super23 =  cells lit + @ lit @ and lit @ =  \ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 super24 =  cells lit + @ lit @ and lit @ = ;s  \ GNU General Public License for more details.
 super26 =  useraddr @  
 super27 =  over cells  \ You should have received a copy of the GNU General Public License
 super28 =  over cells +  \ along with this program. If not, see http://www.gnu.org/licenses/.
 super29 =  over cells + dup  
 super30 =  over cells + dup @  \ taken from David Gregg's EuroForth 2001 paper; omitted some sequences
 super31 =  useraddr @ ;s  \ eliminated for gforth-native:
 super36 =  dup lit @  \ 1) sequences containing call
 super37 =  @ ;s  \ 2) sequences with immediate arguments not in the first position
 super38 =  lit @ *  
 super39 =  lit @ @  \ no new prim-nums for supers and state-replicas
 super40 =  lit @ @ ;s  \E ' noop is output-c-prim-num
 super41 =  + lit  
 super42 =  lit @ ?branch  super1 = lit +
 super43 =  over +  \ super2 = lit call
 super44 =  over + dup  super3 = lit @
 super45 =  lit @ call  \ super4 = lit @ call
 super47 =  lit @ * ;s  \ super5 = @ call
 super48 =  lit @ lit @  super6 = lit !
 super49 =  ! ;s  \ super7 = lit lit
 super51 =  lit call  \ super8 = dup lit
 super53 =  lit @ + dup  \ super9 = ! lit
 super54 =  lit @ and  \ super10 = lit ! lit
 super55 =  2drop drop  super11 = ! ;s
 super56 =  lit @ cells  super12 = lit + @
 super57 =  dup lit @ and  \ super13 = 0= ?branch
 super58 =  2drop drop lit  \ super14 = dup call
 super59 =  + lit call  super15 = useraddr @
 super60 =  lit @ cells lit  super16 = + @
 super61 =  lit @ cells lit +  \ super17 = lit @ ?branch
 super62 =  dup lit @ and dup  super18 = lit ! ;s
 super63 =  dup lit @ and dup lit  super19 = lit @ and
 super64 =  dup lit @ and dup lit @  \ super20 = = ?branch
 super65 =  dup lit @ and dup lit @ =  \ super21 = lit lit !
 super66 =  dup lit @ and dup lit @ = swap  \ super22 = @ ?branch
 super67 =  dup lit @ and dup lit @ = swap lit  super23 = useraddr !
 super68 =  dup lit @ and dup lit @ = swap lit @  \ super24 = dup ?branch
 super69 =  dup lit @ and dup lit @ = swap lit @ =  super25 = @ ;s
 super70 =  dup lit @ and dup lit @ = swap lit @ = or  super26 = lit @ +
 super71 =  dup lit @ and dup lit @ = swap lit @ = or ?branch  super27 = dup @
 super72 =  >r over  
 super73 =  >r over +  \F 0 [if]
 super74 =  >r over + dup  
 super75 =  >r over + dup cells  \ \E prim-states ;s                   \ 2950159
 super76 =  >r over + dup cells lit  \E prim-states lit                  \ 2802835
 super77 =  >r over + dup cells lit +  \ \E prim-states call                 \ 2558373
 super78 =  >r over + dup cells lit + @  \E prim-states @                    \ 2244351
 super79 =  >r over + dup cells lit + @ r>  \E branch-states ?branch              \ 1134432
 super80 =  >r over + dup cells lit + @ r> +  \E prim-states lit@                 \ 1051813
 super81 =  >r over + dup cells lit + @ r> + over  \E prim-states swap                 \ 737988
 super82 =  >r over + dup cells lit + @ r> + over cells  \E S0 S2 state-prim swap
 super83 =  >r over + dup cells lit + @ r> + over cells lit  \E S1 S2 state-prim swap
 super84 =  >r over + dup cells lit + @ r> + over cells lit +  \E S2 S3 state-prim swap
 super85 =  >r over + dup cells lit + @ r> + over cells lit + @  \E S3 S2 state-prim swap
 super86 =  >r over + dup cells lit + @ r> + over cells lit + @ ?branch  \E prim-states c@                   \ 651406
 super87 =  lit @ =  \E prim-states =                    \ 590006
 super88 =  2drop drop lit ;s  \E prim-states 0=                   \ 584487
 super90 =  cells lit + @ lit @ and ;s  \E prim-states dup                  \ 566855
 super91 =  swap lit  \E S0 S1 state-prim dup
 super92 =  swap lit @  \E S1 S1 state-prim dup
 super93 =  lit lit  \E prim-states +                    \ 566003
 super94 =  lit !  \E prim-states i                    \ 502908
 super95 =  dup call  \E prim-states +!                   \ 448925
 super96 =  over + dup cells  \ \E prim-states branch               \ 409561
 super97 =  over + dup cells lit  \ \E prim-states (loop)               \ 379646
 super98 =  over + dup cells lit +  \ \E prim-states lp!                  \ 326743
 super99 =  over + dup cells lit + @  \E prim-states and                  \ 309427
 super100 =  lit @ + ;s  \E prim-states useraddr             \ 303254
 super102 =  + dup  \E prim-states over                 \ 283556
 super103 =  lit -  \E S0 S1 state-prim over
 super104 =  + dup 1-  \E S1 S2 state-prim over
 super105 =  + dup 1- call  \E S2 S1 state-prim over
 super106 =  lit - ;s  \E S3 S2 state-prim over
 super107 =  within lit  \E prim-states negate               \ 257417
 super108 =  within lit and  \E prim-states cells                \ 254644
 super110 =  nip nip  \E prim-states rot                  \ 220273
 super111 =  lit @ and lit  \E S3 S1 state-prim rot
 super112 =  swap lit @ *  \E S2 S3 state-prim rot
 super113 =  swap lit @ * +  \E S1 S3 state-prim rot
 super114 =  swap lit @ * + ;s  \E S0 S3 state-prim rot
 super115 =  drop ;s  \E S4 S2 state-prim rot
 super116 =  lit @ lit @ and  \E S5 S3 state-prim rot
 super118 =  lit @ + call  \E prim-states !                    \ 218672
 super119 =  lit @ + dup call  \E prim-states 2dup                 \ 211315
 super120 =  over + dup @  \E S0 S1 state-prim 2dup
 super121 =  cells lit @  \E S0 S2 state-prim 2dup
 super122 =  cells lit @ +  \E S1 S3 state-prim 2dup
 super123 =  cells lit @ + ;s  \E S2 S2 state-prim 2dup
 super124 =  lit @ + dup lit  \E S3 S1 state-prim 2dup
 super125 =  drop (loop)  \E S4 S4 state-prim 2dup
 super126 =  @ 2dup  \E S4 S2 state-prim 2dup
 super127 =  @ 2dup <  \ \E branch-states lit-perform          \ 188331
 super128 =  @ 2dup < ?branch  \E prim-states <>                   \ 179502
 super129 =  lit 2@  \E prim-states c!                   \ 179332
 super132 =  + ;s  \E prim-states lit+                 \ 179156
 super133 =  lit @ and lit @  \E prim-states drop                 \ 173995
 super134 =  lit @ and lit @ =  \E S0 S0 state-prim drop
 super135 =  lit @ and lit @ = ?branch  \E prim-states lshift               \ 164671
 super136 =  lit @ = and  \E prim-states /mod                 \ 164670
 super137 =  2drop ;s  \E prim-states >r                   \ 145247
 super139 =  nip nip ;s  \E prim-states r>                   \ 133792
 super140 =  2@ call  \ \E branch-states does-exec            \ 120944
 super141 =  lit 2@ rot  \E prim-states cell+                \ 116183
 super142 =  lit 2@ rot xor  \E prim-states lp+!#                \ 106697 \ --
 super143 =  lit 2@ rot xor >r  \E prim-states -                    \ 106245
 super144 =  lit 2@ rot xor >r xor  \E prim-states unloop               \ 98938 \ --
 super145 =  lit 2@ rot xor >r xor r>  \E prim-states lp+                  \ 87190 \ --
 super146 =  lit 2@ rot xor >r xor r> lit  \E prim-states >=                   \ 80994
 super147 =  lit 2@ rot xor >r xor r> lit 2!  \E prim-states tuck                 \ 78696
 super148 =  lit 2@ rot xor >r xor r> lit 2! ;s  \E S2 S2 state-prim tuck
 super149 =  lit @ = and +  \E S3 S3 state-prim tuck
 super150 =  lit @ = and + ;s  \E prim-states /string              \ 78595
 super151 =  + lit @  \E prim-states char+                \ 77542
 super152 =  lit lit !  \E prim-states ?dup                 \ 76850
 super153 =  lit @ lit call  \E prim-states @local0              \ 75322
 super154 =  2dup call  \E prim-states min                  \ 75264
 super155 =  lit @ = ;s  \ \E prim-states compare              \ 65603
 super156 =  lit ! lit  \E branch-states (u+do)               \ 63823
 super158 =  dup lit cells  \ \E prim-states (read-line)          \ 63823
 super159 =  dup lit cells +  \E prim-states 2>r                  \ 62646
 super160 =  dup lit cells + 2@  \E prim-states 2r>                  \ 62644
 super161 =  dup lit cells + 2@ rot  \E prim-states 2r@                  \ 61338
 super162 =  swap call  \E prim-states 2@                   \ 61067
 super163 =  lit ! lit !  \E prim-states nip                  \ 54961
 super164 =  lit @ branch  \E S1 S1 state-prim nip
 super165 =  lit @ 1+  \E S0 S1 state-prim nip
 super166 =  dup cells  \E S2 S2 state-prim nip
 super167 =  dup cells lit  \E prim-states within               \ 51075
 super168 =  dup cells lit +  \E prim-states 1-                   \ 47441
 super169 =  dup cells lit + @  \E branch-states execute              \ 46674
 super170 =  lit @ 1+ lit  \E prim-states lp-                  \ 45385
 super171 =  dup lit !  \E branch-states perform              \ 38756
 super172 =  dup 2@  \E prim-states xor                  \ 35599
 super173 =  + lit @ =  \E prim-states @local#              \ 34586
 super174 =  + lit @ = ?branch  \ \E prim-states pick                 \ 32015
 super175 =  lit @ + dup lit call  \E prim-states u>                   \ 29373
 super176 =  lit @ lit @ and 0=  \E prim-states -rot                 \ 26211
 super177 =  lit @ lit @ and 0= ?branch  \E S3 S2 state-prim -rot
 super178 =  drop lit  \E S1 S3 state-prim -rot
 super179 =  drop lit @  \E S4 S3 state-prim -rot
 super181 =  cells swap  \E S2 S4 state-prim -rot
 super182 =  cells swap cells  \E S3 S5 state-prim -rot
 super183 =  cells swap cells lit  \E prim-states 2drop                \ 25418
 super184 =  cells swap cells lit +  \E S0 S0 state-prim 2drop
 super185 =  nip nip lit  \E S1 S0 state-prim 2drop
 super186 =  nip nip lit @  \ \E prim-states (tablelfind)         \ 22243
 super187 =  nip nip lit @ and  \E prim-states or                   \ 21587
 super188 =  nip nip lit @ and dup  \E prim-states @local2              \ 20859
 super189 =  nip nip lit @ and dup lit  \E branch-states (+loop)              \ 20006
 super190 =  nip nip lit @ and dup lit @  \E prim-states 1+                   \ 17944
 super191 =  nip nip lit @ and dup lit @ =  \E prim-states rdrop                \ 17902
 super192 =  nip nip lit @ and dup lit @ = swap  \E branch-states (?do)                \ 17348
 super193 =  nip nip lit @ and dup lit @ = swap lit  \E prim-states max                  \ 16948
 super194 =  nip nip lit @ and dup lit @ = swap lit @  \E prim-states 2*                   \ 15606
 super195 =  nip nip lit @ and dup lit @ = swap lit @ =  \ \E prim-states filename-match       \ 15003
 super196 =  nip nip lit @ and dup lit @ = swap lit @ = or  \ \E prim-states (listlfind)          \ 13074
 super197 =  nip nip lit @ and dup lit @ = swap lit @ = or ;s  \ \E prim-states sp@                  \ 12741
 super198 =  over call  \ \E prim-states fp@                  \ 12384
 super199 =  lit @ + dup lit +  \ \E prim-states um/mod               \ 12288
 super200 =  lit @ lit @ lit  \E prim-states 2!                   \ 11904
 super201 =  cells lit + @ 0=  \ \E prim-states fill                 \ 10781
 super202 =  cells lit + @ 0= ;s  \ \E prim-states (parse-white)        \ 10624
 super203 =  lit @ and lit *  \E branch-states (do)                 \ 10516
 super204 =  lit @ and lit * +  \ \E prim-states (hashkey1)           \ 10239
 super205 =  lit @ and lit * + lit  \E prim-states u<                   \ 9602
 super206 =  lit @ and lit * + lit call  \ \E prim-states write-file           \ 8973
 super207 =  lit @ dup  \E prim-states count                \ 8873
 super208 =  lit @ dup lit  \ \E prim-states rp@                  \ 8410
 super209 =  0= ?branch  \E prim-states 0<                   \ 8380
 super210 =  or over  \E prim-states <                    \ 7741
 super211 =  or over lit  \E prim-states @local1              \ 7458
 super212 =  lit @ lit @ lit !  \ \E prim-states move                 \ 7050
 super213 =  lit @ lit @ lit ! lit  \E prim-states u>=                  \ 6138
 super214 =  lit @ lit @ lit ! lit !  \E branch-states (+do)                \ 5863
 super215 =  lit @ lit @ lit ! lit ! lit  \ \E prim-states va-return-double     \ 5517
 super216 =  lit @ lit @ lit ! lit ! lit @  \E prim-states um*                  \ 5342
 super217 =  lit @ lit @ lit ! lit ! lit @ 0=  \ \E prim-states toupper              \ 3517
 super218 =  lit @ lit @ lit ! lit ! lit @ 0= lit  \ \E prim-states f@local1             \ 2907
 super219 =  lit @ lit @ lit ! lit ! lit @ 0= lit !  \ \E prim-states rp!                  \ 2859
 super220 =  lit @ lit @ lit ! lit ! lit @ 0= lit ! lit  \ \E prim-states ?dup-?branch         \ 2829
 super221 =  lit @ lit @ lit ! lit ! lit @ 0= lit ! lit @  \E prim-states d+                   \ 2671
 super222 =  lit @ lit @ lit ! lit ! lit @ 0= lit ! lit @ negate  \ \E prim-states ftuck                \ 2636
 super223 =  lit @ lit @ lit ! lit ! lit @ 0= lit ! lit @ negate lit  \ \E prim-states read-file            \ 2623
 super224 =  lit @ lit @ lit ! lit ! lit @ 0= lit ! lit @ negate lit !  \ \E prim-states ms                   \ 2454
 super225 =  lit @ lit @ lit ! lit ! lit @ 0= lit ! lit @ negate lit ! ;s  \ \E prim-states (s+loop)             \ 2429
 super226 =  lit @ 1+ lit !  \ \E prim-states allocate             \ 1869
 super227 =  dup lit ! cells  \E prim-states *                    \ 1520
 super228 =  dup lit ! cells lit  \E prim-states 0<>                  \ 925
 super229 =  dup lit ! cells lit +  \ \E prim-states noop                 \ 715
 super230 =  dup lit ! cells lit + @  \E prim-states aligned              \ 714
 super231 =  dup lit ! cells lit + @ dup  \E prim-states u<=                  \ 684
 super232 =  dup lit ! cells lit + @ dup lit  \E prim-states i'                   \ 684
 super233 =  dup lit ! cells lit + @ dup lit !  \E prim-states >                    \ 411
 super234 =  dup lit ! cells lit + @ dup lit ! ;s  \ \E prim-states (hashlfind)          \ 397
 super235 =  lit @ and cells  \E prim-states 2swap                \ 336
 super236 =  lit @ and cells lit  \E S0 S3 state-prim 2swap
 super237 =  lit @ and cells lit +  \E S1 S3 state-prim 2swap
 super238 =  over lit  \E S2 S4 state-prim 2swap
 super239 =  dup 2@ lit  \E S4 S2 state-prim 2swap
 super240 =  dup 2@ lit 2@  \E prim-states laddr#               \ 335
 super241 =  dup 2@ lit 2@ d=  \ \E prim-states faxpy                \ 286
 super242 =  lit @ and dup  \ \E prim-states (next)               \ 272
 super243 =  lit @ and dup lit  \ \E prim-states (-loop)-lp+!#        \ 248
 super244 =  dup lit @ call  \E prim-states <=                   \ 199
 super245 =  lit /mod  \E prim-states invert               \ 170
 super246 =  lit /mod rot  \E branch-states (-do)                \ 169
 super247 =  lit /mod rot lit  \E prim-states 2over                \ 165
 super248 =  lit /mod rot lit /mod  \E S0 S2 state-prim 2over
 super249 =  lit /mod rot lit /mod swap  \E S1 S3 state-prim 2over
 super250 =  lit /mod rot lit /mod swap >r  \E S2 S4 state-prim 2over
 super251 =  lit /mod rot lit /mod swap >r -  \E S3 S5 state-prim 2over
 super252 =  lit /mod rot lit /mod swap >r - swap  \E S4 S2 state-prim 2over
 super253 =  lit /mod rot lit /mod swap >r - swap r>  \E S5 S3 state-prim 2over
 super254 =  lit /mod rot lit /mod swap >r - swap r> -  \E S6 S4 state-prim 2over
 super255 =  lit /mod rot lit /mod swap >r - swap r> - swap  \E prim-states under+               \ 154
 super256 =  lit /mod rot lit /mod swap >r - swap r> - swap ;s  \E prim-states dnegate              \ 128
 super257 =  lit and  \E prim-states u<>                  \ 128
 super258 =  dup lit @ =  \E prim-states 0>                   \ 122
 super260 =  dup lit @ = over  \ \E prim-states (loop)-lp+!#         \ 118
 super261 =  dup lit @ = over lit  \E prim-states j                    \ 117
 super262 =  dup lit @ = over lit @  \E prim-states float+               \ 78
 super263 =  dup lit @ = over lit @ =  \ \E prim-states (for)                \ 68
 super264 =  dup lit @ = over lit @ = or  \E prim-states 2rdrop               \ 60 \ --
 super265 =  lit @ and dup lit call  \ \E prim-states f!                   \ 14
 super267 =  abs swap  \E prim-states >l                   \ 14
 super268 =  abs swap abs  \ \E prim-states close-file           \ 5
 super269 =  abs swap abs =  \ \E prim-states call-c               \ 4
 super270 =  abs swap abs = ;s  \ \E prim-states reposition-file      \ 3
 super271 =  lit @ + lit  \E prim-states /                    \ 3
 super272 =  dup lit cells + 2@ rot @  \ \E prim-states resize-file          \ 2
 super273 =  dup lit cells + 2@ rot @ ;s  \ \E prim-states free                 \ 2
 super274 =  lit ! call  \E prim-states 2/                   \ 2
 super275 =  cells lit + !  \ \E prim-states up!                  \ 1
 super276 =  cells lit + ! ;s  \ \E prim-states stdin                \ 1
 super277 =  0= swap  \ \E prim-states key?-file            \ 1
 super278 =  0= swap 0=  \ \E prim-states flush-icache         \ 1
 super279 =  0= swap 0= xor  \ \E prim-states cmove                \ 1
 super280 =  0= swap 0= xor ;s  \ \E prim-states (system)             \ 1
 super281 =  lit lit call  
 super282 =  lit lit ! call  \E ' noop is output-nextp0
 super284 =  lit @ + dup cells  \E ' noop is output-nextp1
 super285 =  lit @ + dup cells lit  
 super286 =  lit @ + dup cells lit +  \E gen-transitions noop
 super287 =  lit @ + dup cells lit + @  
 super288 =  dup lit cells + 2@ rot 2@  \F [ENDIF]
 super289 =  dup lit cells + 2@ rot 2@ ;s  
 super290 =  dup 2@ lit 2@ d= ?branch  
 super291 =  dup cells lit + @ call  
 super292 =  lit @ swap  
 super293 =  2drop drop lit @  
 super294 =  lit @ i  
 super295 =  lit @ dup lit @  
 super296 =  lit @ i call  
 super297 =  lit @ = ?branch  
 super298 =  lit @ * lit  
 super299 =  lit @ * lit @  
 super300 =  lit @ lit @ 2>r  
 super301 =  or ;s  
 super302 =  lit lit ! lit  
 super303 =  lit @ + dup lit + 2@  
 super304 =  lit @ + dup lit + 2@ rot  
 super305 =  lit @ + dup lit + 2@ rot lit  
 super306 =  lit @ + dup lit + 2@ rot lit +  
 super307 =  lit @ + dup lit + 2@ rot lit + @  
 super308 =  lit @ + dup lit + 2@ rot lit + @ ;s  
 super309 =  lit @ lit @ and cells  
 super310 =  lit @ lit @ and cells lit  
 super311 =  lit @ lit @ and cells lit +  
 super312 =  lit @ lit @ *  
 super313 =  lit @ lit @ * lit  
 super314 =  lit @ lit @ * lit +  
 super315 =  lit @ lit @ * lit + ;s  
 super316 =  lit ! lit ! call  
 super317 =  lit @ 1+ lit ! ;s  
 super318 =  i cells  
 super319 =  i cells lit  
 super320 =  i cells lit +  
 super321 =  i cells lit + @  
 super322 =  i cells lit + @ dup  
 super323 =  i cells lit + @ dup lit  
 super324 =  lit @ lit lit  
 super325 =  lit @ lit lit @  
 super326 =  lit @ lit lit @ *  
 super327 =  lit fill  
 super328 =  lit fill ;s  
 super329 =  lit @ 0=  
 super330 =  lit @ 0= ?branch  
 super331 =  i cells lit + @ dup lit @  
 super332 =  lit @ 1-  
 super333 =  lit @ 1- lit  
 super334 =  lit @ 1- lit !  
 super335 =  lit @ 1- lit ! ;s  
 super336 =  lit @ + lit +  
 super337 =  lit @ + lit + @  
 super338 =  lit @ + lit + @ ;s  
 super339 =  lit @ lit *  
 super340 =  lit @ lit * lit  
 super341 =  i cells lit + @ dup lit @ =  
 super342 =  i cells lit + @ dup lit @ = ?branch  
 super343 =  lit @ lit lit @ * call  
 super344 =  lit @ + dup lit + @  
 super345 =  lit @ + dup lit + @ swap  
 super346 =  lit @ + dup lit + @ swap lit  
 super347 =  lit @ + dup lit + @ swap lit +  
 super348 =  lit @ + dup lit + @ swap lit + @  
 super349 =  lit @ + dup lit + @ swap lit + @ ;s  
 super350 =  lit and +  
 super352 =  lit @ lit * lit @  
 super353 =  lit @ lit * lit @ *  
 super354 =  lit @ lit * lit @ * lit  
 super355 =  lit @ lit * lit @ * lit +  
 super356 =  lit @ lit * lit @ * lit + ;s  
 super357 =  tuck !  
 super358 =  tuck ! lit  
 super359 =  tuck ! lit cells  
 super360 =  tuck ! lit cells +  
 super361 =  tuck ! lit cells + 2!  
 super362 =  tuck ! lit cells + 2! ;s  
 super363 =  swap lit @ +  
 super364 =  swap lit @ + swap  
 super365 =  swap lit @ + swap 2@  
 super366 =  swap lit @ + swap 2@ d0=  
 super367 =  swap lit @ + swap 2@ d0= ?branch  
 super368 =  lit lit @  
 super369 =  lit @ * lit @ lit  
 super370 =  lit @ * lit @ lit and  
 super371 =  lit @ * lit @ lit and lit  
 super372 =  lit @ * lit @ lit and lit @  
 super373 =  lit @ * lit @ lit and lit @ +  
 super374 =  lit @ * lit @ lit and lit @ + +  
 super375 =  lit @ * lit @ lit and lit @ + + ;s  
 super376 =  lit and ;s  
 super377 =  dup lit call  
 super378 =  over lit @  
 super379 =  dup 0<  
 super380 =  >r call  
 super381 =  lit *  
 super382 =  lit * +  
 super383 =  or over lit +  
 super384 =  or over lit + call  
 super385 =  + call  
 super387 =  or swap  
 super388 =  or swap lit  
 super389 =  r> 2r>  
 super390 =  lit @ dup lit @ *  
 super391 =  lit @ dup lit @ * +  
 super392 =  lit @ dup lit @ * + lit  
 super393 =  lit @ dup lit @ * + lit @  
 super394 =  lit @ dup lit @ * + lit @ *  
 super395 =  lit @ dup lit @ * + lit @ * lit  
 super396 =  lit @ dup lit @ * + lit @ * lit +  
 super397 =  lit @ dup lit @ * + lit @ * lit + ;s  
 super398 =  over + dup lit  
 super399 =  over + dup lit @  
 super400 =  over + dup lit @ =  
 super401 =  over + dup lit @ = over  
 super402 =  over + dup lit @ = over cells  
 super403 =  over + dup lit @ = over cells lit  
 super404 =  over + dup lit @ = over cells lit +  
 super405 =  over + dup lit @ = over cells lit + @  
 super406 =  over + dup lit @ = over cells lit + @ or  
 super407 =  over + dup lit @ = over cells lit + @ or ?branch  
 super408 =  lit +  
 super409 =  + lit @ lit  
 super410 =  lit @ + @  
 super411 =  lit @ + @ ;s  
 super412 =  lit @ lit @ and ?branch  
 super413 =  lit ! lit lit  
 super414 =  lit ! lit lit !  
 super415 =  swap lit @ and  
 super416 =  nip swap  
 super417 =  nip swap negate  
 super418 =  nip swap negate call  
 super419 =  swap lit @ and ?branch  
 super420 =  lit lit ! lit @  
 super421 =  - lit  
 super422 =  - lit cells  
 super423 =  - lit cells -  
 super424 =  - lit cells - call  
 super425 =  lit ! lit lit ! ;s  
 super426 =  lit @ dup lit cells  
 super427 =  lit @ dup lit cells -  
 super428 =  lit @ dup lit cells - @  
 super429 =  lit @ dup lit cells - @ lit  
 super430 =  lit @ dup lit cells - @ lit !  
 super431 =  lit @ dup lit cells - @ lit ! dup  

Removed from v.1.3  
changed lines
  Added in v.1.20


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>