1\ Generate something that looks like FCode generated by a Very Custom Tokenizer 2 3 4fcode-version1 5 6headers 7hex 8 9F[ 10 \ If we want to test this against the previous release, 11 \ we can't do this: 341 emit-fcode 12 \ Instead, we have to do it in two parts: 13 14 03 emit-byte 41 emit-byte \ 0341 = "Simple" Vendor-specific FCode" 15 ]F 16-1 17dup 0> if 18F[ 19 \ Likewise here 369 emit-fcode 20 03 emit-byte 69 emit-byte \ 0369 = "double(lit)" 21 ff emit-byte 22 ff emit-byte 23 ff emit-byte 24 ff emit-byte 25 00 emit-byte 26 00 emit-byte 27 00 emit-byte 28 00 emit-byte 29 ]F 30then 31dup 0= if 32F[ 33 \ Here, too 369 emit-fcode 34 03 emit-byte 69 emit-byte \ 0369 = "double(lit)" 35 ff emit-byte 36 ff emit-byte 37 ff emit-byte 38 f0 emit-byte 39 00 emit-byte 40 00 emit-byte 41 00 emit-byte 42 00 emit-byte 43 ]F 44then 45 460< if 47F[ 48 \ Last one 369 emit-fcode 49 03 emit-byte 69 emit-byte \ 0369 = "double(lit)" 50 de emit-byte 51 fe emit-byte 52 ca emit-byte 53 8e emit-byte 54 be emit-byte 55 ef emit-byte 56 fe emit-byte 57 ce emit-byte 58 ]F 59then 60constant moochie 61 62fcode-end 63