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

version 1.3, 2002/10/12 19:06:37 version 1.4, 2002/10/12 19:07:14
Line 1 Line 1
 super2 =  lit @  
 super6 =  cells lit  
 super9 =  cells lit +  
 super10 =  cells lit + @  
 super11 =  cells lit + @ lit  
 super12 =  cells lit + @ lit @  
 super13 =  cells lit + @ lit @ and  
 super16 =  lit @ +  
 super18 =  i call  
 super19 =  dup lit  
 super20 =  lit @ lit  
 super21 =  cells lit + @ lit @ and lit  
 super22 =  cells lit + @ lit @ and lit @  
 super23 =  cells lit + @ lit @ and lit @ =  
 super24 =  cells lit + @ lit @ and lit @ = ;s  
 super26 =  useraddr @  
 super27 =  over cells  
 super28 =  over cells +  
 super29 =  over cells + dup  
 super30 =  over cells + dup @  
 super31 =  useraddr @ ;s  
 super36 =  dup lit @  
 super37 =  @ ;s  
 super38 =  lit @ *  
 super39 =  lit @ @  
 super40 =  lit @ @ ;s  
 super41 =  + lit  
 super42 =  lit @ ?branch  
 super43 =  over +  
 super44 =  over + dup  
 super45 =  lit @ call  
 super47 =  lit @ * ;s  
 super48 =  lit @ lit @  
 super49 =  ! ;s  
 super51 =  lit call  
 super53 =  lit @ + dup  
 super54 =  lit @ and  
 super55 =  2drop drop  
 super56 =  lit @ cells  
 super57 =  dup lit @ and  
 super58 =  2drop drop lit  
 super59 =  + lit call  
 super60 =  lit @ cells lit  
 super61 =  lit @ cells lit +  
 super62 =  dup lit @ and dup  
 super63 =  dup lit @ and dup lit  
 super64 =  dup lit @ and dup lit @  
 super65 =  dup lit @ and dup lit @ =  
 super66 =  dup lit @ and dup lit @ = swap  
 super67 =  dup lit @ and dup lit @ = swap lit  
 super68 =  dup lit @ and dup lit @ = swap lit @  
 super69 =  dup lit @ and dup lit @ = swap lit @ =  
 super70 =  dup lit @ and dup lit @ = swap lit @ = or  
 super71 =  dup lit @ and dup lit @ = swap lit @ = or ?branch  
 super72 =  >r over  
 super73 =  >r over +  
 super74 =  >r over + dup  
 super75 =  >r over + dup cells  
 super76 =  >r over + dup cells lit  
 super77 =  >r over + dup cells lit +  
 super78 =  >r over + dup cells lit + @  
 super79 =  >r over + dup cells lit + @ r>  
 super80 =  >r over + dup cells lit + @ r> +  
 super81 =  >r over + dup cells lit + @ r> + over  
 super82 =  >r over + dup cells lit + @ r> + over cells  
 super83 =  >r over + dup cells lit + @ r> + over cells lit  
 super84 =  >r over + dup cells lit + @ r> + over cells lit +  
 super85 =  >r over + dup cells lit + @ r> + over cells lit + @  
 super86 =  >r over + dup cells lit + @ r> + over cells lit + @ ?branch  
 super87 =  lit @ =  
 super88 =  2drop drop lit ;s  
 super90 =  cells lit + @ lit @ and ;s  
 super91 =  swap lit  
 super92 =  swap lit @  
 super93 =  lit lit  
 super94 =  lit !  
 super95 =  dup call  
 super96 =  over + dup cells  
 super97 =  over + dup cells lit  
 super98 =  over + dup cells lit +  
 super99 =  over + dup cells lit + @  
 super100 =  lit @ + ;s  
 super102 =  + dup  
 super103 =  lit -  
 super104 =  + dup 1-  
 super105 =  + dup 1- call  
 super106 =  lit - ;s  
 super107 =  within lit  
 super108 =  within lit and  
 super110 =  nip nip  
 super111 =  lit @ and lit  
 super112 =  swap lit @ *  
 super113 =  swap lit @ * +  
 super114 =  swap lit @ * + ;s  
 super115 =  drop ;s  
 super116 =  lit @ lit @ and  
 super118 =  lit @ + call  
 super119 =  lit @ + dup call  
 super120 =  over + dup @  
 super121 =  cells lit @  
 super122 =  cells lit @ +  
 super123 =  cells lit @ + ;s  
 super124 =  lit @ + dup lit  
 super125 =  drop (loop)  
 super126 =  @ 2dup  
 super127 =  @ 2dup <  
 super128 =  @ 2dup < ?branch  
 super129 =  lit 2@  
 super132 =  + ;s  
 super133 =  lit @ and lit @  
 super134 =  lit @ and lit @ =  
 super135 =  lit @ and lit @ = ?branch  
 super136 =  lit @ = and  
 super137 =  2drop ;s  
 super139 =  nip nip ;s  
 super140 =  2@ call  
 super141 =  lit 2@ rot  
 super142 =  lit 2@ rot xor  
 super143 =  lit 2@ rot xor >r  
 super144 =  lit 2@ rot xor >r xor  
 super145 =  lit 2@ rot xor >r xor r>  
 super146 =  lit 2@ rot xor >r xor r> lit  
 super147 =  lit 2@ rot xor >r xor r> lit 2!  
 super148 =  lit 2@ rot xor >r xor r> lit 2! ;s  
 super149 =  lit @ = and +  
 super150 =  lit @ = and + ;s  
 super151 =  + lit @  
 super152 =  lit lit !  
 super153 =  lit @ lit call  
 super154 =  2dup call  
 super155 =  lit @ = ;s  
 super156 =  lit ! lit  
 super158 =  dup lit cells  
 super159 =  dup lit cells +  
 super160 =  dup lit cells + 2@  
 super161 =  dup lit cells + 2@ rot  
 super162 =  swap call  
 super163 =  lit ! lit !  
 super164 =  lit @ branch  
 super165 =  lit @ 1+  
 super166 =  dup cells  
 super167 =  dup cells lit  
 super168 =  dup cells lit +  
 super169 =  dup cells lit + @  
 super170 =  lit @ 1+ lit  
 super171 =  dup lit !  
 super172 =  dup 2@  
 super173 =  + lit @ =  
 super174 =  + lit @ = ?branch  
 super175 =  lit @ + dup lit call  
 super176 =  lit @ lit @ and 0=  
 super177 =  lit @ lit @ and 0= ?branch  
 super178 =  drop lit  
 super179 =  drop lit @  
 super181 =  cells swap  
 super182 =  cells swap cells  
 super183 =  cells swap cells lit  
 super184 =  cells swap cells lit +  
 super185 =  nip nip lit  
 super186 =  nip nip lit @  
 super187 =  nip nip lit @ and  
 super188 =  nip nip lit @ and dup  
 super189 =  nip nip lit @ and dup lit  
 super190 =  nip nip lit @ and dup lit @  
 super191 =  nip nip lit @ and dup lit @ =  
 super192 =  nip nip lit @ and dup lit @ = swap  
 super193 =  nip nip lit @ and dup lit @ = swap lit  
 super194 =  nip nip lit @ and dup lit @ = swap lit @  
 super195 =  nip nip lit @ and dup lit @ = swap lit @ =  
 super196 =  nip nip lit @ and dup lit @ = swap lit @ = or  
 super197 =  nip nip lit @ and dup lit @ = swap lit @ = or ;s  
 super198 =  over call  
 super199 =  lit @ + dup lit +  
 super200 =  lit @ lit @ lit  
 super201 =  cells lit + @ 0=  
 super202 =  cells lit + @ 0= ;s  
 super203 =  lit @ and lit *  
 super204 =  lit @ and lit * +  
 super205 =  lit @ and lit * + lit  
 super206 =  lit @ and lit * + lit call  
 super207 =  lit @ dup  
 super208 =  lit @ dup lit  
 super209 =  0= ?branch  
 super210 =  or over  
 super211 =  or over lit  
 super212 =  lit @ lit @ lit !  
 super213 =  lit @ lit @ lit ! lit  
 super214 =  lit @ lit @ lit ! lit !  
 super215 =  lit @ lit @ lit ! lit ! lit  
 super216 =  lit @ lit @ lit ! lit ! lit @  
 super217 =  lit @ lit @ lit ! lit ! lit @ 0=  
 super218 =  lit @ lit @ lit ! lit ! lit @ 0= lit  
 super219 =  lit @ lit @ lit ! lit ! lit @ 0= lit !  
 super220 =  lit @ lit @ lit ! lit ! lit @ 0= lit ! lit  
 super221 =  lit @ lit @ lit ! lit ! lit @ 0= lit ! lit @  
 super222 =  lit @ lit @ lit ! lit ! lit @ 0= lit ! lit @ negate  
 super223 =  lit @ lit @ lit ! lit ! lit @ 0= lit ! lit @ negate lit  
 super224 =  lit @ lit @ lit ! lit ! lit @ 0= lit ! lit @ negate lit !  
 super225 =  lit @ lit @ lit ! lit ! lit @ 0= lit ! lit @ negate lit ! ;s  
 super226 =  lit @ 1+ lit !  
 super227 =  dup lit ! cells  
 super228 =  dup lit ! cells lit  
 super229 =  dup lit ! cells lit +  
 super230 =  dup lit ! cells lit + @  
 super231 =  dup lit ! cells lit + @ dup  
 super232 =  dup lit ! cells lit + @ dup lit  
 super233 =  dup lit ! cells lit + @ dup lit !  
 super234 =  dup lit ! cells lit + @ dup lit ! ;s  
 super235 =  lit @ and cells  
 super236 =  lit @ and cells lit  
 super237 =  lit @ and cells lit +  
 super238 =  over lit  
 super239 =  dup 2@ lit  
 super240 =  dup 2@ lit 2@  
 super241 =  dup 2@ lit 2@ d=  
 super242 =  lit @ and dup  
 super243 =  lit @ and dup lit  
 super244 =  dup lit @ call  
 super245 =  lit /mod  
 super246 =  lit /mod rot  
 super247 =  lit /mod rot lit  
 super248 =  lit /mod rot lit /mod  
 super249 =  lit /mod rot lit /mod swap  
 super250 =  lit /mod rot lit /mod swap >r  
 super251 =  lit /mod rot lit /mod swap >r -  
 super252 =  lit /mod rot lit /mod swap >r - swap  
 super253 =  lit /mod rot lit /mod swap >r - swap r>  
 super254 =  lit /mod rot lit /mod swap >r - swap r> -  
 super255 =  lit /mod rot lit /mod swap >r - swap r> - swap  
 super256 =  lit /mod rot lit /mod swap >r - swap r> - swap ;s  
 super257 =  lit and  
 super258 =  dup lit @ =  
 super260 =  dup lit @ = over  
 super261 =  dup lit @ = over lit  
 super262 =  dup lit @ = over lit @  
 super263 =  dup lit @ = over lit @ =  
 super264 =  dup lit @ = over lit @ = or  
 super265 =  lit @ and dup lit call  
 super267 =  abs swap  
 super268 =  abs swap abs  
 super269 =  abs swap abs =  
 super270 =  abs swap abs = ;s  
 super271 =  lit @ + lit  
 super272 =  dup lit cells + 2@ rot @  
 super273 =  dup lit cells + 2@ rot @ ;s  
 super274 =  lit ! call  
 super275 =  cells lit + !  
 super276 =  cells lit + ! ;s  
 super277 =  0= swap  
 super278 =  0= swap 0=  
 super279 =  0= swap 0= xor  
 super280 =  0= swap 0= xor ;s  
 super281 =  lit lit call  
 super282 =  lit lit ! call  
 super284 =  lit @ + dup cells  
 super285 =  lit @ + dup cells lit  
 super286 =  lit @ + dup cells lit +  
 super287 =  lit @ + dup cells lit + @  
 super288 =  dup lit cells + 2@ rot 2@  
 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.4


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