![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to tokens.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Qemu by Fabrice Bellard] / qemu / roms / SLOF / slof / fs / fcode|
Return to tokens.fs CVS log | Up to [Qemu by Fabrice Bellard] / qemu / roms / SLOF / slof / fs / fcode |
1.1 ! root 1: \ ***************************************************************************** ! 2: \ * Copyright (c) 2004, 2008 IBM Corporation ! 3: \ * All rights reserved. ! 4: \ * This program and the accompanying materials ! 5: \ * are made available under the terms of the BSD License ! 6: \ * which accompanies this distribution, and is available at ! 7: \ * http://www.opensource.org/licenses/bsd-license.php ! 8: \ * ! 9: \ * Contributors: ! 10: \ * IBM Corporation - initial implementation ! 11: \ ****************************************************************************/ ! 12: ! 13: : fc-abort ." FCode called abort: IP " get-ip . ( ." STACK: " .s ) depth dup 0< IF abort THEN . rdepth . cr abort ; ! 14: : fc-0 ." 0(lit): STACK ( S: " depth . ." R: " rdepth . ." ): " depth 0> IF .s THEN 0 ; ! 15: : fc-1 ." 1(lit): STACK ( S: " depth . ." R: " rdepth . ." ): " depth 0> IF .s THEN 1 ; ! 16: ! 17: : parse-1hex 1 hex-decode-unit ; ! 18: ! 19: ! 20: : reset-token-table ! 21: FFF 0 DO ['] ferror 0 i set-token LOOP ! 22: ; ! 23: ! 24: reset-token-table ! 25: ! 26: ' end0 0 00 set-token ! 27: ! 28: \ 01...0F beginning code of 2-byte FCode sequences ! 29: ! 30: \ ' ferror 1 08 set-token ! 31: \ ' ferror 1 09 set-token ! 32: \ ' ferror 1 0a set-token ! 33: \ ' ferror 1 0b set-token ! 34: \ ' ferror 1 0c set-token ! 35: \ ' ferror 1 0d set-token ! 36: \ ' ferror 1 0e set-token ! 37: \ ' ferror 1 0f set-token ! 38: ! 39: ' b(lit) 1 10 set-token ! 40: ! 41: ' b(') 1 11 set-token ! 42: ' b(") 1 12 set-token ! 43: ' bbranch 1 13 set-token ! 44: ' b?branch 1 14 set-token ! 45: ' b(loop) 1 15 set-token ! 46: ' b(+loop) 1 16 set-token ! 47: ' b(do) 1 17 set-token ! 48: ' b(?do) 1 18 set-token ! 49: ' i 0 19 set-token ! 50: ' j 0 1A set-token ! 51: ' b(leave) 1 1B set-token ! 52: ' b(of) 1 1C set-token ! 53: ' execute 0 1D set-token ! 54: ' + 0 1E set-token ! 55: ' - 0 1F set-token ! 56: ' * 0 20 set-token ! 57: ' / 0 21 set-token ! 58: ' mod 0 22 set-token ! 59: ' and 0 23 set-token ! 60: ' or 0 24 set-token ! 61: ' xor 0 25 set-token ! 62: ' invert 0 26 set-token ! 63: ' lshift 0 27 set-token ! 64: ' rshift 0 28 set-token ! 65: ' >>a 0 29 set-token ! 66: ' /mod 0 2A set-token ! 67: ' u/mod 0 2B set-token ! 68: ' negate 0 2C set-token ! 69: ' abs 0 2D set-token ! 70: ' min 0 2E set-token ! 71: ' max 0 2F set-token ! 72: ' >r 0 30 set-token ! 73: ' r> 0 31 set-token ! 74: ' r@ 0 32 set-token ! 75: ' exit 0 33 set-token ! 76: ' 0= 0 34 set-token ! 77: ' 0<> 0 35 set-token ! 78: ' 0< 0 36 set-token ! 79: ' 0<= 0 37 set-token ! 80: ' 0> 0 38 set-token ! 81: ' 0>= 0 39 set-token ! 82: ' < 0 3A set-token ! 83: ' > 0 3B set-token ! 84: ' = 0 3C set-token ! 85: ' <> 0 3D set-token ! 86: ' u> 0 3E set-token ! 87: ' u<= 0 3F set-token ! 88: ' u< 0 40 set-token ! 89: ' u>= 0 41 set-token ! 90: ' >= 0 42 set-token ! 91: ' <= 0 43 set-token ! 92: ' between 0 44 set-token ! 93: ' within 0 45 set-token ! 94: ' DROP 0 46 set-token ! 95: ' DUP 0 47 set-token ! 96: ' OVER 0 48 set-token ! 97: ' SWAP 0 49 set-token ! 98: ' ROT 0 4A set-token ! 99: ' -ROT 0 4B set-token ! 100: ' TUCK 0 4C set-token ! 101: ' nip 0 4D set-token ! 102: ' pick 0 4E set-token ! 103: ' roll 0 4F set-token ! 104: ' ?dup 0 50 set-token ! 105: ' depth 0 51 set-token ! 106: ' 2drop 0 52 set-token ! 107: ' 2dup 0 53 set-token ! 108: ' 2over 0 54 set-token ! 109: ' 2swap 0 55 set-token ! 110: ' 2rot 0 56 set-token ! 111: ' 2/ 0 57 set-token ! 112: ' u2/ 0 58 set-token ! 113: ' 2* 0 59 set-token ! 114: ' /c 0 5A set-token ! 115: ' /w 0 5B set-token ! 116: ' /l 0 5C set-token ! 117: ' /n 0 5D set-token ! 118: ' ca+ 0 5E set-token ! 119: ' wa+ 0 5F set-token ! 120: ' la+ 0 60 set-token ! 121: ' na+ 0 61 set-token ! 122: ' char+ 0 62 set-token ! 123: ' wa1+ 0 63 set-token ! 124: ' la1+ 0 64 set-token ! 125: ' cell+ 0 65 set-token ! 126: ' chars 0 66 set-token ! 127: ' /w* 0 67 set-token ! 128: ' /l* 0 68 set-token ! 129: ' cells 0 69 set-token ! 130: ' on 0 6A set-token ! 131: ' off 0 6B set-token ! 132: ' +! 0 6C set-token ! 133: ' @ 0 6D set-token ! 134: ' l@ 0 6E set-token ! 135: ' w@ 0 6F set-token ! 136: ' <w@ 0 70 set-token ! 137: ' c@ 0 71 set-token ! 138: ' ! 0 72 set-token ! 139: ' l! 0 73 set-token ! 140: ' w! 0 74 set-token ! 141: ' c! 0 75 set-token ! 142: ' 2@ 0 76 set-token ! 143: ' 2! 0 77 set-token ! 144: ' move 0 78 set-token ! 145: ' fill 0 79 set-token ! 146: ' comp 0 7A set-token ! 147: ' noop 0 7B set-token ! 148: ' lwsplit 0 7C set-token ! 149: ' wljoin 0 7D set-token ! 150: ' lbsplit 0 7E set-token ! 151: ' bljoin 0 7F set-token ! 152: ' wbflip 0 80 set-token ! 153: ' upc 0 81 set-token ! 154: ' lcc 0 82 set-token ! 155: ' pack 0 83 set-token ! 156: ' count 0 84 set-token ! 157: ' body> 0 85 set-token ! 158: ' >body 0 86 set-token ! 159: ' fcode-revision 0 87 set-token ! 160: ' span 0 88 set-token ! 161: ' unloop 0 89 set-token ! 162: ' expect 0 8A set-token ! 163: ' alloc-mem 0 8B set-token \ alloc-mem ! 164: ' free-mem 0 8C set-token \ free-mem ! 165: ' key? 0 8D set-token ! 166: ' key 0 8E set-token ! 167: ' emit 0 8F set-token ! 168: ' type 0 90 set-token ! 169: ' cr 0 91 set-token \ should be (cr but terminal support is not ! 170: \ available ! 171: ' cr 0 92 set-token ! 172: \ ' #out 0 93 set-token ! 173: \ ' #line 0 94 set-token ! 174: ' hold 0 95 set-token ! 175: ' <# 0 96 set-token ! 176: ' u#> 0 97 set-token ! 177: ' sign 0 98 set-token ! 178: ' u# 0 99 set-token ! 179: ' u#s 0 9A set-token ! 180: ' u. 0 9B set-token ! 181: ' u.r 0 9C set-token ! 182: ' . 0 9D set-token ! 183: ' .r 0 9E set-token ! 184: ' .s 0 9F set-token ! 185: ' base 0 A0 set-token ! 186: \ ' convert 0 A1 set-token ! 187: ' $number 0 A2 set-token ! 188: ' digit 0 A3 set-token ! 189: ' -1 0 A4 set-token ! 190: ' 0 0 A5 set-token ! 191: ' 1 0 A6 set-token ! 192: ' 2 0 A7 set-token ! 193: ' 3 0 A8 set-token ! 194: ' bl 0 A9 set-token ! 195: ' bs 0 AA set-token ! 196: ' bell 0 AB set-token ! 197: ' bounds 0 AC set-token ! 198: ' here 0 AD set-token ! 199: ' aligned 0 AE set-token ! 200: ' wbsplit 0 AF set-token ! 201: ' bwjoin 0 B0 set-token ! 202: ' b(<mark) 1 B1 set-token ! 203: ' b(>resolve) 1 B2 set-token ! 204: \ ' ferror 0 B3 set-token ! 205: \ ' ferror 0 B4 set-token ! 206: ' new-token 0 B5 set-token ! 207: ' named-token 0 B6 set-token ! 208: \ fcode-debug? IF ! 209: ' b(:) 1 B7 set-token ! 210: \ ELSE ! 211: \ ' b(:) 1 B7 set-token ! 212: \ THEN ! 213: ' b(value) 1 B8 set-token ! 214: ' b(variable) 1 B9 set-token ! 215: ' b(constant) 1 BA set-token ! 216: ' b(create) 1 BB set-token ! 217: ' b(defer) 1 BC set-token ! 218: ' b(buffer:) 1 BD set-token ! 219: ' b(field) 1 BE set-token ! 220: \ ' ferror 0 BF set-token ! 221: ' INSTANCE 0 C0 set-token ! 222: \ ' noop 1 C0 set-token ! 223: \ ' ferror 0 C1 set-token ! 224: \ fcode-debug? IF ! 225: ' b(;) 1 C2 set-token ! 226: \ ELSE ! 227: \ ' b(;) 1 C2 set-token ! 228: \ THEN ! 229: ' b(to) 1 C3 set-token ! 230: ' b(case) 1 C4 set-token ! 231: ' b(endcase) 1 C5 set-token ! 232: ' b(endof) 1 C6 set-token ! 233: ' # 0 C7 set-token ! 234: ' #s 0 C8 set-token ! 235: ' #> 0 C9 set-token ! 236: ' external-token 0 CA set-token ! 237: ' $find 0 CB set-token ! 238: ' offset16 0 CC set-token ! 239: ' evaluate 0 CD set-token ! 240: \ 0 CE reserved ! 241: \ 0 CF reserved ! 242: ' c, 0 D0 set-token ! 243: ' w, 0 D1 set-token ! 244: ' l, 0 D2 set-token ! 245: ' , 0 D3 set-token ! 246: ' um* 0 D4 set-token ! 247: ' um/mod 0 D5 set-token ! 248: \ 0 D6 reserved ! 249: \ 0 D7 reserved ! 250: ' d+ 0 D8 set-token ! 251: ' d- 0 D9 set-token ! 252: ' get-token 0 DA set-token ! 253: ' set-token 0 DB set-token ! 254: ' state 0 DC set-token \ possibly broken ! 255: ' compile, 0 DD set-token ! 256: ' behavior 0 DE set-token ! 257: ! 258: ' start0 0 F0 set-token ! 259: ' start1 0 F1 set-token ! 260: ' start2 0 F2 set-token ! 261: ' start4 0 F3 set-token ! 262: ! 263: ' ferror 0 FC set-token ! 264: ' version1 0 FD set-token ! 265: ! 266: \ ' 4-byte-id 0 FE set-token \ Historical ! 267: ' end1 0 FF set-token ! 268: ! 269: \ ' dma-alloc 0 101 set-token ! 270: ' my-address 0 102 set-token ! 271: ' my-space 0 103 set-token ! 272: ' property 0 110 set-token ! 273: ' encode-int 0 111 set-token ! 274: ' encode+ 0 112 set-token ! 275: ' encode-phys 0 113 set-token ! 276: ' encode-string 0 114 set-token ! 277: ' encode-bytes 0 115 set-token ! 278: ' reg 0 116 set-token ! 279: ' model 0 119 set-token ! 280: ' device-type 0 11A set-token ! 281: ' parse-2int 0 11B set-token ! 282: ' is-install 0 11C set-token ! 283: ' is-remove 0 11D set-token ! 284: ' is-selftest 0 11E set-token ! 285: ' new-device 0 11F set-token ! 286: ' diagnostic-mode? 0 120 set-token ! 287: ' memory-test-suite 0 122 set-token ! 288: ' mask 0 124 set-token ! 289: ' get-msecs 0 125 set-token ! 290: ' ms 0 126 set-token ! 291: ' finish-device 0 127 set-token ! 292: ' decode-phys 0 128 set-token ! 293: ' #lines 0 150 set-token ! 294: ' #columns 0 151 set-token ! 295: ' line# 0 152 set-token ! 296: ' column# 0 153 set-token ! 297: ' inverse? 0 154 set-token ! 298: ' inverse-screen? 0 155 set-token ! 299: ! 300: ' draw-character 0 157 set-token ! 301: ' reset-screen 0 158 set-token ! 302: ' toggle-cursor 0 159 set-token ! 303: ' erase-screen 0 15A set-token ! 304: ' blink-screen 0 15B set-token ! 305: ' invert-screen 0 15C set-token ! 306: ' insert-characters 0 15D set-token ! 307: ' delete-characters 0 15E set-token ! 308: ' insert-lines 0 15F set-token ! 309: ' delete-lines 0 160 set-token ! 310: ' draw-logo 0 161 set-token ! 311: ' frame-buffer-adr 0 162 set-token ! 312: ' screen-height 0 163 set-token ! 313: ' screen-width 0 164 set-token ! 314: ' window-top 0 165 set-token ! 315: ' window-left 0 166 set-token ! 316: ! 317: ' default-font 0 16A set-token ! 318: ' set-font 0 16B set-token ! 319: ' char-height 0 16C set-token ! 320: ' char-width 0 16D set-token ! 321: ' >font 0 16E set-token ! 322: ' fontbytes 0 16F set-token ! 323: ! 324: ' fb8-install 0 18B set-token ! 325: ! 326: ' device-name 0 201 set-token ! 327: ' my-args 0 202 set-token ! 328: ' my-self 0 203 set-token ! 329: ' find-package 0 204 set-token ! 330: ' open-package 0 205 set-token ! 331: ' close-package 0 206 set-token ! 332: ' find-method 0 207 set-token ! 333: ' call-package 0 208 set-token ! 334: ' $call-parent 0 209 set-token ! 335: ' my-parent 0 20A set-token ! 336: ' ihandle>phandle 0 20B set-token ! 337: ' my-unit 0 20D set-token ! 338: ' $call-method 0 20E set-token ! 339: ' $open-package 0 20F set-token ! 340: ' (is-user-word) 0 214 set-token ! 341: ' suspend-fcode 0 215 set-token ! 342: \ ' abort 0 216 set-token ! 343: ' fc-abort 0 216 set-token ! 344: ' catch 0 217 set-token ! 345: ' throw 0 218 set-token ! 346: ' get-my-property 0 21A set-token ! 347: ' decode-int 0 21B set-token ! 348: ' decode-string 0 21C set-token ! 349: ' get-inherited-property 0 21D set-token ! 350: ' delete-property 0 21E set-token ! 351: ' get-package-property 0 21F set-token ! 352: ' cpeek 0 220 set-token ! 353: ' wpeek 0 221 set-token ! 354: ' lpeek 0 222 set-token ! 355: ' cpoke 0 223 set-token ! 356: ' wpoke 0 224 set-token ! 357: ' lpoke 0 225 set-token ! 358: ' lwflip 0 226 set-token ! 359: ' lbflip 0 227 set-token ! 360: ' lbflips 0 228 set-token ! 361: ' rx@ 0 22E set-token ! 362: ' rx! 0 22F set-token ! 363: ' rb@ 0 230 set-token ! 364: ' rb! 0 231 set-token ! 365: ' rw@ 0 232 set-token ! 366: ' rw! 0 233 set-token ! 367: ' rl@ 0 234 set-token ! 368: ' rl! 0 235 set-token ! 369: ' wbflips 0 236 set-token ! 370: ' lwflips 0 237 set-token ! 371: \ ' probe 0 238 set-token ! 372: \ ' probe-virtual 0 239 set-token ! 373: \ 0 23A reserved ! 374: ' child 0 23B set-token ! 375: ' peer 0 23C set-token ! 376: ' next-property 0 23D set-token ! 377: ' byte-load 0 23E set-token ! 378: ' set-args 0 23F set-token ! 379: ' left-parse-string 0 240 set-token ! 380: ' bxjoin 0 241 set-token ! 381: ' <l@ 0 242 set-token ! 382: ' lxjoin 0 243 set-token ! 383: ' wxjoin 0 244 set-token ! 384: ' x, 0 245 set-token ! 385: ' x@ 0 246 set-token ! 386: ' x! 0 247 set-token ! 387: ' /x 0 248 set-token ! 388: ' /x* 0 249 set-token ! 389: ' xa+ 0 24A set-token ! 390: ' xa1+ 0 24B set-token ! 391: ' xbflip 0 24C set-token ! 392: ' xbflips 0 24D set-token ! 393: ' xbsplit 0 24E set-token ! 394: ' xlflip 0 24F set-token ! 395: ' xlflips 0 250 set-token ! 396: ' xlsplit 0 251 set-token ! 397: ' xwflip 0 252 set-token ! 398: ' xwflips 0 253 set-token ! 399: ' xwsplit 0 254 set-token ! 400: \ 0 254 RESERVED FCODES ! 401: \ ... ! 402: \ 0 5FF RESERVED FCODES ! 403: ! 404: \ 0 600 VENDOR FCODES ! 405: \ ... ! 406: \ 0 7FF VENDOR FCODES ! 407: ! 408: \ 0 800 LOCAL FCODES ! 409: \ ... ! 410: \ 0 FFF LOCAL FCODES ! 411:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.