( FILE: UCC2-BUILD)
  ( This file will add double precision, floating point,
    and transcendental functions to UCC1.COM 
    ---- it will ask you for a name to save the file under
            ---- the name UCC2.COM is suggested )

OFF PRINTLOAD

" DOUBLE2" LOAD     " DOUBLE2 Loaded" ." CRLF 
" FPOINT2" LOAD      " FPOINT2 Loaded" ." CRLF

 " FPEVAL" LAST @ FIND IFTRUE ( do next only if f.p. loaded)
  ( patch numeric evaluator for fp eval)
  CODE FPPAT ( stradr -- stradr 0
          or   stradr -- fphi fplo 1 1 )
    ( scan for period) H POP, H PUSH, D M MOV, D INR, E 0 MVI,
    REPEAT D DCR, WHILENZ
      H INX, A M MOV, "." CPI, IFZ E 1 MVI, THEN
    ENDWHILE
    D PUSH, :ENTER IF ( found period)
      DUP FPEVAL IF ( not fp) ,DROP 0 ELSE ROT DROP 1 1 THEN
    ELSE
      0
    THEN ;
   ' FPPAT GVALESC ! ( link into numeric eval)
 ENDIF ( end of conditional compile for f.p. )

 " transc2" LOAD      " TRANSC2 Loaded" ." CRLF


" extrn2" map

STATUS DS

" ATTACH2" LOAD ( save a com file)
quit