( 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