Return to peeprules.vmg CVS log | Up to [gforth] / gforth |
bugfix (use of inst-pointer-update left stack items) bugfix (now no debugging output at superinstruction end) refactored output-c-tail...
1: super2 = lit @ 2: super6 = cells lit 3: super9 = cells lit + 4: super10 = cells lit + @ 5: super11 = cells lit + @ lit 6: super12 = cells lit + @ lit @ 7: super13 = cells lit + @ lit @ and 8: super16 = lit @ + 9: super18 = i call 10: super19 = dup lit 11: super20 = lit @ lit 12: super21 = cells lit + @ lit @ and lit 13: super22 = cells lit + @ lit @ and lit @ 14: super23 = cells lit + @ lit @ and lit @ = 15: super24 = cells lit + @ lit @ and lit @ = ;s 16: super26 = useraddr @ 17: super27 = over cells 18: super28 = over cells + 19: super29 = over cells + dup 20: super30 = over cells + dup @ 21: super31 = useraddr @ ;s 22: super36 = dup lit @ 23: super37 = @ ;s 24: super38 = lit @ * 25: super39 = lit @ @ 26: super40 = lit @ @ ;s 27: super41 = + lit 28: super42 = lit @ ?branch 29: super43 = over + 30: super44 = over + dup 31: super45 = lit @ call 32: super47 = lit @ * ;s 33: super48 = lit @ lit @ 34: super49 = ! ;s 35: super51 = lit call 36: super53 = lit @ + dup 37: super54 = lit @ and 38: super55 = 2drop drop 39: super56 = lit @ cells 40: super57 = dup lit @ and 41: super58 = 2drop drop lit 42: super59 = + lit call 43: super60 = lit @ cells lit 44: super61 = lit @ cells lit + 45: super62 = dup lit @ and dup 46: super63 = dup lit @ and dup lit 47: super64 = dup lit @ and dup lit @ 48: super65 = dup lit @ and dup lit @ = 49: super66 = dup lit @ and dup lit @ = swap 50: super67 = dup lit @ and dup lit @ = swap lit 51: super68 = dup lit @ and dup lit @ = swap lit @ 52: super69 = dup lit @ and dup lit @ = swap lit @ = 53: super70 = dup lit @ and dup lit @ = swap lit @ = or 54: super71 = dup lit @ and dup lit @ = swap lit @ = or ?branch 55: super72 = >r over 56: super73 = >r over + 57: super74 = >r over + dup 58: super75 = >r over + dup cells 59: super76 = >r over + dup cells lit 60: super77 = >r over + dup cells lit + 61: super78 = >r over + dup cells lit + @ 62: super79 = >r over + dup cells lit + @ r> 63: super80 = >r over + dup cells lit + @ r> + 64: super81 = >r over + dup cells lit + @ r> + over 65: super82 = >r over + dup cells lit + @ r> + over cells 66: super83 = >r over + dup cells lit + @ r> + over cells lit 67: super84 = >r over + dup cells lit + @ r> + over cells lit + 68: super85 = >r over + dup cells lit + @ r> + over cells lit + @ 69: super86 = >r over + dup cells lit + @ r> + over cells lit + @ ?branch 70: super87 = lit @ = 71: super88 = 2drop drop lit ;s 72: super90 = cells lit + @ lit @ and ;s 73: super91 = swap lit 74: super92 = swap lit @ 75: super93 = lit lit 76: super94 = lit ! 77: super95 = dup call 78: super96 = over + dup cells 79: super97 = over + dup cells lit 80: super98 = over + dup cells lit + 81: super99 = over + dup cells lit + @ 82: super100 = lit @ + ;s 83: super102 = + dup 84: super103 = lit - 85: super104 = + dup 1- 86: super105 = + dup 1- call 87: super106 = lit - ;s 88: super107 = within lit 89: super108 = within lit and 90: super110 = nip nip 91: super111 = lit @ and lit 92: super112 = swap lit @ * 93: super113 = swap lit @ * + 94: super114 = swap lit @ * + ;s 95: super115 = drop ;s 96: super116 = lit @ lit @ and 97: super118 = lit @ + call 98: super119 = lit @ + dup call 99: super120 = over + dup @ 100: super121 = cells lit @ 101: super122 = cells lit @ + 102: super123 = cells lit @ + ;s 103: super124 = lit @ + dup lit 104: super125 = drop (loop) 105: super126 = @ 2dup 106: super127 = @ 2dup < 107: super128 = @ 2dup < ?branch 108: super129 = lit 2@ 109: super132 = + ;s 110: super133 = lit @ and lit @ 111: super134 = lit @ and lit @ = 112: super135 = lit @ and lit @ = ?branch 113: super136 = lit @ = and 114: super137 = 2drop ;s 115: super139 = nip nip ;s 116: super140 = 2@ call 117: super141 = lit 2@ rot 118: super142 = lit 2@ rot xor 119: super143 = lit 2@ rot xor >r 120: super144 = lit 2@ rot xor >r xor 121: super145 = lit 2@ rot xor >r xor r> 122: super146 = lit 2@ rot xor >r xor r> lit 123: super147 = lit 2@ rot xor >r xor r> lit 2! 124: super148 = lit 2@ rot xor >r xor r> lit 2! ;s 125: super149 = lit @ = and + 126: super150 = lit @ = and + ;s 127: super151 = + lit @ 128: super152 = lit lit ! 129: super153 = lit @ lit call 130: super154 = 2dup call 131: super155 = lit @ = ;s 132: super156 = lit ! lit 133: super158 = dup lit cells 134: super159 = dup lit cells + 135: super160 = dup lit cells + 2@ 136: super161 = dup lit cells + 2@ rot 137: super162 = swap call 138: super163 = lit ! lit ! 139: super164 = lit @ branch 140: super165 = lit @ 1+ 141: super166 = dup cells 142: super167 = dup cells lit 143: super168 = dup cells lit + 144: super169 = dup cells lit + @ 145: super170 = lit @ 1+ lit 146: super171 = dup lit ! 147: super172 = dup 2@ 148: super173 = + lit @ = 149: super174 = + lit @ = ?branch 150: super175 = lit @ + dup lit call 151: super176 = lit @ lit @ and 0= 152: super177 = lit @ lit @ and 0= ?branch 153: super178 = drop lit 154: super179 = drop lit @ 155: super181 = cells swap 156: super182 = cells swap cells 157: super183 = cells swap cells lit 158: super184 = cells swap cells lit + 159: super185 = nip nip lit 160: super186 = nip nip lit @ 161: super187 = nip nip lit @ and 162: super188 = nip nip lit @ and dup 163: super189 = nip nip lit @ and dup lit 164: super190 = nip nip lit @ and dup lit @ 165: super191 = nip nip lit @ and dup lit @ = 166: super192 = nip nip lit @ and dup lit @ = swap 167: super193 = nip nip lit @ and dup lit @ = swap lit 168: super194 = nip nip lit @ and dup lit @ = swap lit @ 169: super195 = nip nip lit @ and dup lit @ = swap lit @ = 170: super196 = nip nip lit @ and dup lit @ = swap lit @ = or 171: super197 = nip nip lit @ and dup lit @ = swap lit @ = or ;s 172: super198 = over call 173: super199 = lit @ + dup lit + 174: super200 = lit @ lit @ lit 175: super201 = cells lit + @ 0= 176: super202 = cells lit + @ 0= ;s 177: super203 = lit @ and lit * 178: super204 = lit @ and lit * + 179: super205 = lit @ and lit * + lit 180: super206 = lit @ and lit * + lit call 181: super207 = lit @ dup 182: super208 = lit @ dup lit 183: super209 = 0= ?branch 184: super210 = or over 185: super211 = or over lit 186: super212 = lit @ lit @ lit ! 187: super213 = lit @ lit @ lit ! lit 188: super214 = lit @ lit @ lit ! lit ! 189: super215 = lit @ lit @ lit ! lit ! lit 190: super216 = lit @ lit @ lit ! lit ! lit @ 191: super217 = lit @ lit @ lit ! lit ! lit @ 0= 192: super218 = lit @ lit @ lit ! lit ! lit @ 0= lit 193: super219 = lit @ lit @ lit ! lit ! lit @ 0= lit ! 194: super220 = lit @ lit @ lit ! lit ! lit @ 0= lit ! lit 195: super221 = lit @ lit @ lit ! lit ! lit @ 0= lit ! lit @ 196: super222 = lit @ lit @ lit ! lit ! lit @ 0= lit ! lit @ negate 197: super223 = lit @ lit @ lit ! lit ! lit @ 0= lit ! lit @ negate lit 198: super224 = lit @ lit @ lit ! lit ! lit @ 0= lit ! lit @ negate lit ! 199: super225 = lit @ lit @ lit ! lit ! lit @ 0= lit ! lit @ negate lit ! ;s 200: super226 = lit @ 1+ lit ! 201: super227 = dup lit ! cells 202: super228 = dup lit ! cells lit 203: super229 = dup lit ! cells lit + 204: super230 = dup lit ! cells lit + @ 205: super231 = dup lit ! cells lit + @ dup 206: super232 = dup lit ! cells lit + @ dup lit 207: super233 = dup lit ! cells lit + @ dup lit ! 208: super234 = dup lit ! cells lit + @ dup lit ! ;s 209: super235 = lit @ and cells 210: super236 = lit @ and cells lit 211: super237 = lit @ and cells lit + 212: super238 = over lit 213: super239 = dup 2@ lit 214: super240 = dup 2@ lit 2@ 215: super241 = dup 2@ lit 2@ d= 216: super242 = lit @ and dup 217: super243 = lit @ and dup lit 218: super244 = dup lit @ call 219: super245 = lit /mod 220: super246 = lit /mod rot 221: super247 = lit /mod rot lit 222: super248 = lit /mod rot lit /mod 223: super249 = lit /mod rot lit /mod swap 224: super250 = lit /mod rot lit /mod swap >r 225: super251 = lit /mod rot lit /mod swap >r - 226: super252 = lit /mod rot lit /mod swap >r - swap 227: super253 = lit /mod rot lit /mod swap >r - swap r> 228: super254 = lit /mod rot lit /mod swap >r - swap r> - 229: super255 = lit /mod rot lit /mod swap >r - swap r> - swap 230: super256 = lit /mod rot lit /mod swap >r - swap r> - swap ;s 231: super257 = lit and 232: super258 = dup lit @ = 233: super260 = dup lit @ = over 234: super261 = dup lit @ = over lit 235: super262 = dup lit @ = over lit @ 236: super263 = dup lit @ = over lit @ = 237: super264 = dup lit @ = over lit @ = or 238: super265 = lit @ and dup lit call 239: super267 = abs swap 240: super268 = abs swap abs 241: super269 = abs swap abs = 242: super270 = abs swap abs = ;s 243: super271 = lit @ + lit 244: super272 = dup lit cells + 2@ rot @ 245: super273 = dup lit cells + 2@ rot @ ;s 246: super274 = lit ! call 247: super275 = cells lit + ! 248: super276 = cells lit + ! ;s 249: super277 = 0= swap 250: super278 = 0= swap 0= 251: super279 = 0= swap 0= xor 252: super280 = 0= swap 0= xor ;s 253: super281 = lit lit call 254: super282 = lit lit ! call 255: super284 = lit @ + dup cells 256: super285 = lit @ + dup cells lit 257: super286 = lit @ + dup cells lit + 258: super287 = lit @ + dup cells lit + @ 259: super288 = dup lit cells + 2@ rot 2@ 260: super289 = dup lit cells + 2@ rot 2@ ;s 261: super290 = dup 2@ lit 2@ d= ?branch 262: super291 = dup cells lit + @ call 263: super292 = lit @ swap 264: super293 = 2drop drop lit @ 265: super294 = lit @ i 266: super295 = lit @ dup lit @ 267: super296 = lit @ i call 268: super297 = lit @ = ?branch 269: super298 = lit @ * lit 270: super299 = lit @ * lit @ 271: super300 = lit @ lit @ 2>r 272: super301 = or ;s 273: super302 = lit lit ! lit 274: super303 = lit @ + dup lit + 2@ 275: super304 = lit @ + dup lit + 2@ rot 276: super305 = lit @ + dup lit + 2@ rot lit 277: super306 = lit @ + dup lit + 2@ rot lit + 278: super307 = lit @ + dup lit + 2@ rot lit + @ 279: super308 = lit @ + dup lit + 2@ rot lit + @ ;s 280: super309 = lit @ lit @ and cells 281: super310 = lit @ lit @ and cells lit 282: super311 = lit @ lit @ and cells lit + 283: super312 = lit @ lit @ * 284: super313 = lit @ lit @ * lit 285: super314 = lit @ lit @ * lit + 286: super315 = lit @ lit @ * lit + ;s 287: super316 = lit ! lit ! call 288: super317 = lit @ 1+ lit ! ;s 289: super318 = i cells 290: super319 = i cells lit 291: super320 = i cells lit + 292: super321 = i cells lit + @ 293: super322 = i cells lit + @ dup 294: super323 = i cells lit + @ dup lit 295: super324 = lit @ lit lit 296: super325 = lit @ lit lit @ 297: super326 = lit @ lit lit @ * 298: super327 = lit fill 299: super328 = lit fill ;s 300: super329 = lit @ 0= 301: super330 = lit @ 0= ?branch 302: super331 = i cells lit + @ dup lit @ 303: super332 = lit @ 1- 304: super333 = lit @ 1- lit 305: super334 = lit @ 1- lit ! 306: super335 = lit @ 1- lit ! ;s 307: super336 = lit @ + lit + 308: super337 = lit @ + lit + @ 309: super338 = lit @ + lit + @ ;s 310: super339 = lit @ lit * 311: super340 = lit @ lit * lit 312: super341 = i cells lit + @ dup lit @ = 313: super342 = i cells lit + @ dup lit @ = ?branch 314: super343 = lit @ lit lit @ * call 315: super344 = lit @ + dup lit + @ 316: super345 = lit @ + dup lit + @ swap 317: super346 = lit @ + dup lit + @ swap lit 318: super347 = lit @ + dup lit + @ swap lit + 319: super348 = lit @ + dup lit + @ swap lit + @ 320: super349 = lit @ + dup lit + @ swap lit + @ ;s 321: super350 = lit and + 322: super352 = lit @ lit * lit @ 323: super353 = lit @ lit * lit @ * 324: super354 = lit @ lit * lit @ * lit 325: super355 = lit @ lit * lit @ * lit + 326: super356 = lit @ lit * lit @ * lit + ;s 327: super357 = tuck ! 328: super358 = tuck ! lit 329: super359 = tuck ! lit cells 330: super360 = tuck ! lit cells + 331: super361 = tuck ! lit cells + 2! 332: super362 = tuck ! lit cells + 2! ;s 333: super363 = swap lit @ + 334: super364 = swap lit @ + swap 335: super365 = swap lit @ + swap 2@ 336: super366 = swap lit @ + swap 2@ d0= 337: super367 = swap lit @ + swap 2@ d0= ?branch 338: super368 = lit lit @ 339: super369 = lit @ * lit @ lit 340: super370 = lit @ * lit @ lit and 341: super371 = lit @ * lit @ lit and lit 342: super372 = lit @ * lit @ lit and lit @ 343: super373 = lit @ * lit @ lit and lit @ + 344: super374 = lit @ * lit @ lit and lit @ + + 345: super375 = lit @ * lit @ lit and lit @ + + ;s 346: super376 = lit and ;s 347: super377 = dup lit call 348: super378 = over lit @ 349: super379 = dup 0< 350: super380 = >r call 351: super381 = lit * 352: super382 = lit * + 353: super383 = or over lit + 354: super384 = or over lit + call 355: super385 = + call 356: super387 = or swap 357: super388 = or swap lit 358: super389 = r> 2r> 359: super390 = lit @ dup lit @ * 360: super391 = lit @ dup lit @ * + 361: super392 = lit @ dup lit @ * + lit 362: super393 = lit @ dup lit @ * + lit @ 363: super394 = lit @ dup lit @ * + lit @ * 364: super395 = lit @ dup lit @ * + lit @ * lit 365: super396 = lit @ dup lit @ * + lit @ * lit + 366: super397 = lit @ dup lit @ * + lit @ * lit + ;s 367: super398 = over + dup lit 368: super399 = over + dup lit @ 369: super400 = over + dup lit @ = 370: super401 = over + dup lit @ = over 371: super402 = over + dup lit @ = over cells 372: super403 = over + dup lit @ = over cells lit 373: super404 = over + dup lit @ = over cells lit + 374: super405 = over + dup lit @ = over cells lit + @ 375: super406 = over + dup lit @ = over cells lit + @ or 376: super407 = over + dup lit @ = over cells lit + @ or ?branch 377: super408 = lit + 378: super409 = + lit @ lit 379: super410 = lit @ + @ 380: super411 = lit @ + @ ;s 381: super412 = lit @ lit @ and ?branch 382: super413 = lit ! lit lit 383: super414 = lit ! lit lit ! 384: super415 = swap lit @ and 385: super416 = nip swap 386: super417 = nip swap negate 387: super418 = nip swap negate call 388: super419 = swap lit @ and ?branch 389: super420 = lit lit ! lit @ 390: super421 = - lit 391: super422 = - lit cells 392: super423 = - lit cells - 393: super424 = - lit cells - call 394: super425 = lit ! lit lit ! ;s 395: super426 = lit @ dup lit cells 396: super427 = lit @ dup lit cells - 397: super428 = lit @ dup lit cells - @ 398: super429 = lit @ dup lit cells - @ lit 399: super430 = lit @ dup lit cells - @ lit ! 400: super431 = lit @ dup lit cells - @ lit ! dup