Lines Matching +full:0 +full:x30000
37 int fcode_impl_count = 0;
55 if ((token) && (token < 0x10)) {
104 header(env, name, strlen(name), 0);
122 env->interpretting = 0;
128 env->interpretting = 0;
151 ASSERT((which < 3) && (which >= 0));
155 if (direction >= 0) {
159 PUSH(DS, 0);
196 branch_common(env, offset, 0, 1);
204 branch_common(env, offset, 1, 0);
235 *strptr++ = 0;
242 *strptr = 0;
260 if (len <= 0 || len > 64 || cptr[-2] != '\0')
265 for (p = name; *p != '\0'; p++)
292 *strptr-- = 0;
322 for (count = 0; count < len; count++) {
330 len = 0;
331 *strptr = 0;
338 header(env, namebuff, len, 0);
339 env->table[token].flags = 0;
364 token_common(env, 0, 0);
382 PUSH(DS, 0);
442 return (0);
444 if (header[0] != 0xf1 && header[0] != 0xfd) {
445 log_message(MSG_ERROR, "%s: '%s' header[0] is 0x%02x not"
446 " 0xf1/0xfd\n", func_name, fname, header[0]);
447 return (0);
454 return (0);
474 int past_eob = 0;
501 env->level = 0;
507 env->fcode_buffer[0], env->fcode_buffer[1]);
535 ((env->state && (entry->flags & IMMEDIATE) == 0)) ?
545 ((entry->flags & IMMEDIATE) == 0)) {
592 if (env->state == 0) {
594 env->table[env->last_token].flags = 0;
617 *len = 0;
625 make_common_access(env, 0, 0, 1,
634 PUSH(DS, 0);
635 make_common_access(env, 0, 0, 1,
644 make_common_access(env, 0, 0, 1,
655 make_common_access(env, 0, 0, 1, env->instance_mode,
664 PUSH(DS, 0);
665 make_common_access(env, 0, 0, 2, env->instance_mode,
706 fstack_t immediate = 0;
743 branch_common(env, offset, 2, 0);
751 PUSH(DS, 0);
757 COMPILE_TOKEN(env->table[0x46].apf); /* Hack for now... */
770 branch_common(env, offset, 0, 1);
778 PUSH(DS, 0x30000);
810 lo = 0;
811 hi = 0;
830 if (TOS == 0) {
835 len = 0;
849 rlen = 0;
871 header(env, name, len, 0);
880 #if 0
881 env->interpretting = 0;
885 forth_abort(env, "Unimplemented FCODE token: 0x%x\n", env->last_fcode);
905 P1275(0x000, DEFINER, "end0", end0);
906 P1275(0x010, DEFINER, "b(lit)", blit);
907 P1275(0x011, DEFINER, "b(')", btick);
908 P1275(0x012, DEFINER, "b(\")", bquote);
909 P1275(0x013, DEFINER, "bbranch", bbranch);
910 P1275(0x014, DEFINER, "b?branch", bqbranch);
911 P1275(0x015, DEFINER, "b(loop)", bloop);
912 P1275(0x016, DEFINER, "b(+loop)", bplusloop);
913 P1275(0x017, DEFINER, "b(do)", bdo);
914 P1275(0x018, DEFINER, "b(?do)", bqdo);
915 P1275(0x01b, DEFINER, "b(leave)", bleave);
916 P1275(0x01c, DEFINER, "b(of)", bof);
918 P1275(0x087, 0, "fcode-revision", fcode_revision);
920 P1275(0x08b, 0, "alloc-mem", alloc_mem);
921 P1275(0x08c, 0, "free-mem", free_mem);
923 P1275(0x0a4, 0, "-1", minus_one);
924 P1275(0x0a5, 0, "0", zero);
925 P1275(0x0a6, 0, "1", one);
926 P1275(0x0a7, 0, "2", two);
927 P1275(0x0a8, 0, "3", three);
929 P1275(0x0ae, 0, "aligned", aligned);
930 P1275(0x0b1, DEFINER, "b(<mark)", bmark);
931 P1275(0x0b2, DEFINER, "b(>resolve)", bresolve);
932 FCODE(0x0b3, 0, "set-token-table", fc_historical);
933 FCODE(0x0b4, 0, "set-table", fc_historical);
934 P1275(0x0b5, 0, "new-token", new_token);
935 P1275(0x0b6, 0, "named-token", named_token);
936 P1275(0x0b7, DEFINER, "b(:)", bcolon);
937 P1275(0x0b8, DEFINER, "b(value)", bvalue);
938 P1275(0x0b9, DEFINER, "b(variable)", bvariable);
939 P1275(0x0ba, DEFINER, "b(constant)", bconstant);
940 P1275(0x0bb, DEFINER, "b(create)", bcreate);
941 P1275(0x0bc, DEFINER, "b(defer)", bdefer);
942 P1275(0x0bd, 0, "b(buffer:)", bbuffer_colon);
943 P1275(0x0be, 0, "b(field)", bfield);
944 FCODE(0x0bf, 0, "b(code)", fc_historical);
945 P1275(0x0c0, IMMEDIATE, "instance", instance);
947 P1275(0x0c2, DEFINER, "b(;)", semi);
948 P1275(0x0c3, DEFINER, "b(to)", bto);
949 P1275(0x0c4, DEFINER, "b(case)", bcase);
950 P1275(0x0c5, DEFINER, "b(endcase)", bendcase);
951 P1275(0x0c6, DEFINER, "b(endof)", bendof);
953 P1275(0x0ca, 0, "external-token", external_token);
954 P1275(0x0cc, 0, "offset16", offset16);
955 P1275(0x0cd, 0, "evaluate", evaluate);
957 P1275(0x0da, 0, "get-token", get_token);
958 P1275(0x0db, 0, "set-token", set_token);
960 P1275(0x0f0, 0, "start0", start0);
961 P1275(0x0f1, 0, "start1", start1);
962 P1275(0x0f2, 0, "start2", start2);
963 P1275(0x0f3, 0, "start4", start4);
965 P1275(0x0fd, 0, "version1", version1);
966 FCODE(0x0fe, 0, "4-byte-id", fc_historical);
968 P1275(0x0ff, 0, "end1", end1);
971 FCODE(0x101, 0, "old-dma-alloc", fc_historical);
973 FCODE(0x104, 0, "memmap", fc_historical);
974 FCODE(0x105, 0, "free-virtual", fc_unimplemented);
976 FCODE(0x106, 0, ">physical", fc_historical);
978 FCODE(0x10f, 0, "my-params", fc_historical);
980 P1275(0x11b, 0, "parse-2int", parse_two_int);
982 FCODE(0x122, 0, "memory-test-suite", fc_unimplemented);
983 FCODE(0x123, 0, "group-code", fc_historical);
984 FCODE(0x124, 0, "mask", fc_unimplemented);
986 FCODE(0x130, 0, "map-low", fc_unimplemented);
987 FCODE(0x131, 0, "sbus-intr>cpu", fc_unimplemented);
989 FCODE(0x170, 0, "fb1-draw-character", fc_historical);
990 FCODE(0x171, 0, "fb1-reset-screen", fc_historical);
991 FCODE(0x172, 0, "fb1-toggle-cursor", fc_historical);
992 FCODE(0x173, 0, "fb1-erase-screen", fc_historical);
993 FCODE(0x174, 0, "fb1-blink-screen", fc_historical);
994 FCODE(0x175, 0, "fb1-invert-screen", fc_historical);
995 FCODE(0x176, 0, "fb1-insert-characters", fc_historical);
996 FCODE(0x177, 0, "fb1-delete-characters", fc_historical);
997 FCODE(0x178, 0, "fb1-insert-lines", fc_historical);
998 FCODE(0x179, 0, "fb1-delete-lines", fc_historical);
999 FCODE(0x17a, 0, "fb1-draw-logo", fc_historical);
1000 FCODE(0x17b, 0, "fb1-install", fc_historical);
1001 FCODE(0x17c, 0, "fb1-slide-up", fc_historical);
1003 FCODE(0x190, 0, "VME-bus Support", fc_obsolete);
1004 FCODE(0x191, 0, "VME-bus Support", fc_obsolete);
1005 FCODE(0x192, 0, "VME-bus Support", fc_obsolete);
1006 FCODE(0x193, 0, "VME-bus Support", fc_obsolete);
1007 FCODE(0x194, 0, "VME-bus Support", fc_obsolete);
1008 FCODE(0x195, 0, "VME-bus Support", fc_obsolete);
1009 FCODE(0x196, 0, "VME-bus Support", fc_obsolete);
1011 FCODE(0x1a0, 0, "return-buffer", fc_historical);
1012 FCODE(0x1a1, 0, "xmit-packet", fc_historical);
1013 FCODE(0x1a2, 0, "poll-packet", fc_historical);
1015 FCODE(0x210, 0, "processor-type", fc_historical);
1016 FCODE(0x211, 0, "firmware-version", fc_historical);
1017 FCODE(0x212, 0, "fcode-version", fc_historical);
1019 FCODE(0x214, 0, "(is-user-word)", is_user_word);
1020 FCODE(0x215, 0, "suspend-fcode", fc_unimplemented);
1022 FCODE(0x229, 0, "adr-mask", fc_historical);
1024 FCODE(0x238, 0, "probe", fc_historical);
1025 FCODE(0x239, 0, "probe-virtual", fc_historical);
1027 P1275(0x23e, 0, "byte-load", byte_load);
1029 P1275(0x240, 0, "left-parse-string", left_parse_string);
1030 FORTH(0, "fcode-buffer", fcode_buffer_addr);