JONESFORTH VERSION 45 12565 CELLS REMAINING OK 1 .s 1 2 .s 1 2 + .s 3 . 3 .s : foo . ; 3 23 . 23 WORDS foo go p n s SHOW-PAGENO PAGENO-- PAGENO++ CHECK-PAGENO PAGENO #PAGES show-page factor-out show-file c lose-file read-file show-buf clrscr gohome '\e' '2' 'J' 'H' '[' bufsize buf disassemble hi disassemble disassemble description-col search&print-CFA foo dump-dword .length&name .word .length&name .word-nam e .word-length word-name .address .dword @.dword-little @.dword .word .byte .s TICK .word foo WELCOME INLINE (INLINE) RDTSC RDTSC POP PUSH EDI ESI EBP ESP EBX EDX ECX EAX ;CODE NEXT PERROR READ-FILE CLOSE -FILE CREATE-FILE OPEN-FILE R/W R/O MORECORE BRK UNUSED GET-BRK BYE ENVIRON ARGV ARGC CSTRING STRLEN Z " PRINT-STACK-TRACE ABORT THROW CATCH EXCEPTION-MARKER ['] :NONAME SEE CFA> ENDCASE ENDOF OF CASE DUMP FORGET WORDS ?IMMEDIATE ?HIDDEN ID. +TO TO VALUE VARIABLE CELLS ALLOT CONSTANT ." S" C, ALIGN ALIGNED DEPTH WITHIN ? U. . .R U.R UWIDTH .S U. HEX DECIMAL SPACES PICK TUCK NIP ( UNLESS REPEAT WHILE AGAIN UNTIL BEGIN ELSE THEN IF RECURSE [COMPILE] '.' '-' '0' 'A' '"' ')' '(' ';' ':' LITERAL NOT FALSE TRUE NEGATE SPACE CR BL '\n' MOD / SYSCALL0 SYSCALL1 SYSCALL2 SYSCALL3 EXECUTE CHAR INTERPRET QUIT TELL LIT STRING 0BRANCH BRANCH ' HIDE HIDDEN IMMEDIATE ; : ] [ , CREATE >DFA >CFA FIND NUMBER WORD EMIT KEY DSP ! DSP@ RDROP RSP! RSP@ R> >R O_NONBLOCK O_APPEND O_TRUNC O_EXCL O_CREAT O_RDWR O_WRONLY O_RDONLY SYS_B RK SYS_CREAT SYS_WRITE SYS_READ SYS_CLOSE SYS_OPEN SYS_EXIT F_LENMASK F_HIDDEN F_IMMED DOCOL R0 VERSIO N BASE S0 LATEST HERE STATE CMOVE C@C! C@ C! -! +! @ ! LIT EXIT INVERT XOR OR AND 0>= 0<= 0> 0< 0<> 0= >= <= > < <> = /MOD * - + 4- 4+ 1- 1+ ?DUP 2SWAP 2DUP 2DROP -ROT ROT OVER DUP SWAP DROP SEE foo : foo . ; SEE go : go PAGENO ! CHECK-PAGENO s ; n 1