( FILE: UCC1-BUILD)

( This file builds UCC1.COM from KERNEL.IMG. 
  You ** MUST ** use the file UCC0.COM to ILOAD kernel.img otherwise
  you will get a phase error -- or a system which doesn't work
  You can alter the files you choose to add to the kernel. -- at the
  moment the DOS shell and DEBUG utilities are added)


OFF PRINTLOAD

LAST @ " -- LAST" ." .H 5 spcs
HEAD @ " -- HEAD" ." .H 5 spcs 
HEAD @ BASE @ - " -- (HEAD - BASE)" ." .H 5 spcs

 " kernel0.img" gimage  " kernel0.img loaded" ." crlf

LAST @ " -- LAST" ." .H 5 spcs
HEAD @ " -- HEAD" ." .H 5 spcs 
HEAD @ BASE @ - " -- (HEAD - BASE)" ." .H 5 spcs 

    " D62.4TH"    LOAD    " D62.4TH LOADED"  ."   CRLF

cload egam    "                             egam    loaded" ." crlf 
 ctload dos    "                            dos     loaded" ." crlf
 ctload t      "                            t       loaded" ." crlf
fload dosxtra2 "                           dosxtra2 loaded" ." crlf
fload tm       "                            tm      loaded" ." crlf
fload ccp2     "                            ccp2    loaded" ." crlf

: bye norm quit ;
: dbox 5 insrt 3 xtrct swap egabox ; ( this is a an entry to egabox)
                                     ( which puts variables in order)
					( X Y Color )
synonym dpix egadot
synonym d4pix eganib

22 block pad1  ( added as scratchpads for MAKECOM and QUICKCOM)
22 block pad2

(
       fload omit
       CRLF " Deleting rarely used symbols" ."
      CRLF " Ignore 'Not Found' messages..." ."
      LAST @ ( used to calculate space saved by omit)
       OMITINIT ( initialize for OMIT)
       " OMITFILE" LOAD ( remove little used dictionary entries)
       LAST @ SWAP - CRLF " OMIT reclaimed " ." . "  bytes" ." CRLF 
)

  ( remove the two brackets if you want to play with OMIT)

" extrn1" map

: BOOT
  INITIO
  logo

  ICLI ICOM CLI QUIT ;

1000 BLOCK SYSTK
1000 CONST SYSIZE 

 100H ( place for power up jump)
     " 7STINIT2" LOAD    " 7STINIT2 LOADED"  ."   CRLF
LUM @ DUP " -- LUM" ." .H 5 spcs PATCH INITLUM 
GETLOC DUP " SYSLAST" ." .H 5 spcs PATCH SYSLAST  

( Attach cross dictionary to system)

LAST @  HEAD @  OLDLAST @ LAST @ - OVER OVER + HEAD !  MOVE 

GETLOC DUP " INITHEAD" ." .H 5 spcs  PATCH INITHEAD ( INITIAL VALUE) 

    " UCC1.COM"   SAVE    " UCC1.COM SAVED"    ."   CRLF

STATUS
( HEAD @ BASE @ - " -- (HEAD - BASE)" ." .H 5 CRLF )
UNCROSS
DS

quit