( Patch Assembler B=B+B opcode   PPC V12N2P10   85MAY04 )
(                 # of errors reporting  85JUN09 )

BASE @ HEX

: DEC. ( n -- ) BASE @ SWAP DECIMAL . BASE ! ; ( Display n in base 10 )

: HASH [ EEF00 , ] ;
: +BASE [ E9900 , ] ;
: ERRCOUNT 11D +BASE ;
: ?PASS=1 [ EC9F0 , ] ;
: DONE 19 +BASE ;

CREATE NEWB 42502 , B423D , 20422 , 5304 , 1000 ,
CREATE NEWEND 45328 , 444E , 20202 , 0 , 0 , ( NEWEND opcode class 40 )

: oPRORT ( opcode group -- [len] )
  CASE
    28 OF ?PASS=1 IF 0 ELSE ERRCOUNT @ CR DEC. ." error(s) "
          THEN -1 DONE ! ENDOF ( group 40: END )
  ENDCASE ;

: oPARRT 2DUP " B=B+B" S= IF 2DROP NEWB -1 ELSE
              " END" S= IF NEWEND -1 ELSE 0 THEN THEN ;

: ASSEMBLE
  TIME
  HERE PAD OVER - 0 NFILL
  PAD 2+ DUP C@ 2* + 2+ SP@ 2DUP <
  IF OVER - 0 NFILL ELSE 2DROP THEN 
  ['] oPARRT 2FC79 ! ['] oPRORT 2FC7E ! ASSEMBLE
  2FC79 A 0 NFILL TIME X<>Y F- F. " BEEP" BASICX ;

BASE !