( Create a new opcode table for the B=B+B opcode ) HEX CREATE NEWB 42502 , B423D , 20422 , 5304 , 1000 , ( If the current opcode is B=B+B then return a ) ( pointer to the new opcode table and a true flag ) ( otherwise return a false flag and let the ) ( assembler handle the opcode ) : B+B " B=B+B" S= IF NEWB -1 ELSE 0 THEN ; : ASSEMBLE ( Clear dictionary from HERE to PAD ) HERE PAD OVER - 0 NFILL ( Don't clear any string at PAD but clear beyond the ) ( string to the curent top of the data stack. Make ) ( sure if PAD has garbage we don't destroy memory! ) PAD 2+ DUP C@ 2* + 2+ SP@ 2DUP < IF OVER - 0 NFILL ELSE 2DROP THEN ( set RAM location which will make the assembler exercise ) ( new opcode handler. Invoke Assembler. Reset RAM ) ( location in case B+B is purged. ) ['] B+B 2FC79 ! ASSEMBLE 0 2FC79 ! ;