( This is a simple floating point demonstration
   ** NOTE ** we do not have to link FPPAT into GVALESC here
  because we are using UCC2.COM which " recognises" floating point
  values. -- anyways -- GVALESC is not contained in KERNEL2.IMG , so it 
   couldn't be linked to anything)



OFF PRINTLOAD

	iload kernel2.img   " kernel2.img loaded" ." crlf

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

 " transc2" LOAD      " TRANSC2 Loaded" ." CRLF

fload sin

( define a constant that is the def adr of the last word)
LAST @ DUPB@ + 2+ @ CONST ENTRYPOINT

 : MYPROGRAM  crlf  5 spcs
           " This is a demonstration UCC-4th PROGRAM" ." crlf 5 spcs
           "         of stand-alone floating point " ." ;


: BOOT  ( bootstrap)
  INITIO myprogram crlf crlf ENTRYPOINT EXEC QUIT ;

100 ( 128)  CONST SYSIZE    ( stack space for program)
'' SYSIZE BLOCK SYSTK ( define stack)

 100H
 CODE GOFORTH
  HEAD @ SWAP GETLOC SWAP ORG JMP, HEAD !
  ( That patched the startup jump into the given location)

  SP '' SYSTK '' SYSIZE + LXI, ( set SP)
  H '' SYSTK LXI,  '' CSP SHLD, ( set CSP)

  :ENTER BOOT  ( enter forth and execute user bootstrap)
; 

STATUS ( print code size)

        " SINE.COM" SAVE
" COM file written\13 10\" ."

 QUIT