( This file creates a simple turnkey demonstration of circle drawing
   routine. )

OFF PRINTLOAD

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

 cload egam "             egam loaded " ." crlf

: dy1 10000 0 do loop ;
: dly 10 0 do dy1 loop ;
: centr 10 0 do crlf loop 24 ;
 fload smith



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

 : MYPROGRAM  norm centr 24 spcs
           " This uses CIRCLE to draw a Smith chart" ." crlf 5 spcs
           "         for EGA Graphics only" ;


: BOOT  ( bootstrap)
  INITIO myprogram dly ENTRYPOINT EXEC dly norm 
        centr 
       "   This can be run from UCC2.COM by FLOADing the file SMITH" ." crlf
			quit  ;

1000 ( 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)

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

QUIT