.;BASE2.COM
.;BUILD THE TOOLS:  MACRO, LINK, LIBR, IND, CREF, MONMRG, STRIP
.;
	TIME
	.;Put all binaries on the SYSTEM disk.

	SET ERROR WARNING

.;
.;	set the JSX and VBGTO in MACRO and JSX in CREF
.;

	.OPEN BASE.TMP
	.DATA RUN SRC:SIPP
	.DATA SRC:MACRO.SAV/A
	.DATA 0
	.DATA 4
	.DATA 000220
	.DATA ^Y
	.DATA SRC:CREF.SAV/A
	.DATA 0
	.DATA 4
	.DATA 000220
	.DATA ^Y
	.DATA ^C
	.CLOSE
	$@BASE.TMP
	.IF <EXSTAT> EQ <SUCCES> .GOTO 30
	;
	;Error SIPPing SRC:(MACRO,CREF).SAV
	.STOP
.30:
	COPY SRC:(MACRO.SAV,CREF.SAV) SY:
	.IF <EXSTAT> EQ <SUCCES> .GOTO 40
	;
	;ERROR COPYING SRC:(MACRO.SAV,CREF.SAV) TO SY:
	.STOP
.40:
	.GOSUB BLDLCO	.;BUILD LIBCOM

	ASSIGN '$BIN' BIN

	;Build SYSTEM.MLB
	.GOSUB SYSTEM

	;Build EDTL.MLB
	.GOSUB EDTL

	ASSIGN SY: BIN

	.SETN PASS 0
.LOOP:
	.SETT SAME

	.GOSUB LSYMAC

	.IF PASS EQ 0 .GOTO L5:

	RUN SRC:LIBCOM SYSMAC.SML,SYSMAC.OLD
.L4:
	.IF <EXSTAT> EQ <WARNIN> .GOTO L5
	.IF <EXSTAT> EQ <SUCCES> .GOTO L43
	;
	;ERROR RUNNING LIBCOM
	.STOP
.L43:
	.SETF REASM
	.GOTO L10

.L5:	.SETF SAME
	.SETT REASM
.L10:
	 COPY SYSMAC.SML SYSMAC.OLD 
	.IF <EXSTAT> EQ <SUCCES> .GOTO L11 
	; 
	;ERROR COPYING SYSMAC.SML TO SYSMAC.OLD 
	.STOP
.L11:

	.IFT REASM .GOSUB ASYLIB
	
	.GOSUB LSYLIB

	.IF PASS EQ 0 .GOTO L20

	RUN SRC:LIBCOM SYSLIB.OBJ,SYSLIB.OLD
	.IF <EXSTAT> EQ <WARNIN> .SETF SAME
	.IF <EXSTAT> EQ <SUCCES> .GOTO L20
	;
	;ERROR RUNNING LIBCOM
	.STOP
.L20:
	COPY SY:SYSLIB.OBJ SY:SYSLIB.OLD
	.IF <EXSTAT> EQ <SUCCES> .GOTO L22
	;
	;ERROR COPYING SY:SYSLIB.OBJ SY:SYSLIB.OLD
	.STOP
.L22:
	.IFT REASM .GOSUB ASMLNK

	.IFT REASM .GOSUB ASMLIB
	.GOSUB LNKLNK
	
	.IF PASS EQ 0 .GOTO L30
	RUN SRC:BINCOM LINK.SAV,LINK.OLD
	.IF <EXSTAT> EQ <WARNIN> .SETF SAME
	.IF <EXSTAT> EQ <SUCCES> .GOTO L30
	;
	;ERROR RUNNING BINCOM
	.STOP
.L30:
	COPY LINK.SAV LINK.OLD
	.IF <EXSTAT> EQ <SUCCES> .GOTO L31
	;
	;ERROR COPYING LINK.SAV TO LINK.OLD
	.STOP
.L31:
	.GOSUB LNKLIB

	.IF PASS EQ 0 .GOTO L40
	RUN SRC:BINCOM LIBR.SAV,LIBR.OLD
	.IF <EXSTAT> EQ <WARNIN> .SETF SAME
	.IF <EXSTAT> EQ <SUCCES> .GOTO L40
	;
	;ERROR RUNNING BINCOM
	.STOP
.L40:
	COPY LIBR.SAV LIBR.OLD
	.IF <EXSTAT> EQ <SUCCES> .GOTO L41
	;
	;ERROR COPYING LIBR.SAV LIBR.OLD
	.STOP
.L41:
	.INC PASS
	.IF PASS EQ 1 .OR .IFF SAME .GOTO LOOP
	;
	;Number of passes = 'PASS'
	;

	COPY/SETDATE (MACRO,LINK,LIBR,CREF).SAV '$BIN':
	.IF <EXSTAT> EQ <SUCCES> .GOTO 63
	;
	;Error copying (MACRO,LINK,LIBR,CREF).SAV to '$BIN':
	.STOP
.63:
	COPY (SYSMAC.SML,SYSLIB.OBJ) '$BIN':
	.IF <EXSTAT> EQ <SUCCES> .GOTO 631
	;
	;Error copying (SYSMAC.SML,SYSLIB.OBJ) to '$BIN':
	.STOP
.631:
	TIME

	;Build ULBLIB.OBJ and ULBMAC.MLB
	.GOSUB ULBLIB

	;Build STRIP.SAV
	.GOSUB BLDSTP

	;Build MONMRG.SAV
	.GOSUB BLDMRG

	COPY (STRIP,MONMRG).SAV '$BIN':
	.IF <EXSTAT> EQ <SUCCES> .GOTO 632
	;
	;Error copying (STRIP,MONMRG).SAV to '$BIN':
	.STOP
.632:
	ASSIGN '$BIN' BIN

	COPY OBJ:ULBLIB.OBJ SRC:
	.IF <EXSTAT> EQ <SUCCES> .GOTO 64
	;
	;Error copying OBJ:ULBLIB.OBJ to SRC:
	.STOP

.64:
	COPY BIN:ULBMAC.MLB SRC:
	.IF <EXSTAT> EQ <SUCCES> .GOTO 65
	;
	;Error copying BIN:ULBMAC.MLB to SRC:
	.STOP

.65:
	;Now build IND
	.GOSUB BLDIND
	.GOSUB ASMIND
	.GOSUB LNKIND

	.EXIT

.BLDSTP:
	.;BUILD STRIP
	$@SRC:STRIP
	.IF <EXSTAT> EQ <SUCCES> .RETURN
	;
	;ERROR BUILDING STRIP
	.STOP

.BLDMRG:
	.;BUILD MONMRG
	$@SRC:MONMRG
	.IF <EXSTAT> EQ <SUCCES> .RETURN
	;
	;ERROR BUILDING MONMRG
	.STOP

.BLDLCO:
	.;BUILD LIBCOM
	$@SRC:LIBCOM
	.IF <EXSTAT> EQ <SUCCES> .RETURN
	;
	;ERROR BUILDING LIBCOM
	.STOP

.ASYLIB:
	.;ASSEMBLE SYSLIB
	$@SRC:ASYLIB
	.IF <EXSTAT> EQ <SUCCES> .RETURN
	;
	;ERROR ASSEMBLING SYSLIB
	.STOP

.LSYLIB:
	.;BUILD SYSLIB
	$@SRC:LSYLIB
	.IF <EXSTAT> EQ <SUCCES> .RETURN
	;
	;ERROR BUILDING SYSLIB
	.STOP

.LSYMAC:
	$@SRC:SYSMAC
	.IF <EXSTAT> EQ <SUCCES> .RETURN
	;
	;Error building SYSMAC.SML
	.STOP

.ASMLNK:
	.;ASSEMBLE LINK AND BUILD LINK LIBRARY

	$@SRC:ALINK
	.IF <EXSTAT> EQ <SUCCES> .RETURN
	;
	;Error assembling Link
	.STOP

.ASMLIB:
	.;ASSEMBLE LIBR

	$@SRC:ALIBR
	.IF <EXSTAT> EQ <SUCCES> .RETURN
	;
	;Error assembling Libr
	.STOP

.ASMIND:
	.;ASSEMBLE IND

	$@SRC:AIND
	.IF <EXSTAT> EQ <SUCCES> .RETURN
	;
	;Error assembling IND
	.STOP

.LNKLNK:
	.;LINK LINK

	$@SRC:LLINK
	.IF <EXSTAT> EQ <SUCCES> .RETURN
	;
	;Error Linking Link
	.STOP

.LNKLIB:
	.;LINK LIBR
	$@SRC:LLIBR
	.IF <EXSTAT> EQ <SUCCES> .RETURN
	;
	;Error Linking Libr
	.STOP

.LNKIND:
	.;LINK IND

	$@SRC:LIND
	.IF <EXSTAT> EQ <SUCCES> .RETURN
	;
	;Error Linking IND
	.STOP

.BLDIND:
	.;Build the IND library

	$@SRC:AINDLB
	.IF <EXSTAT> EQ <SUCCES> .GOTO BLD10
	;
	;Error building INDMLB
	.STOP
.BLD10: 
	$@SRC:NV2ASM
	.IF <EXSTAT> EQ <SUCCES> .GOTO BLD20
	;
	;Error running NV2ASM
	.STOP
.BLD20:
	$@SRC:NV2OLB
	.IF <EXSTAT> EQ <SUCCES> .RETURN
	;
	;Error running NV2OLB
	.STOP

.ULBLIB:
	.;Build ULBLIB.OBJ

	$@SRC:AULB
	.IF <EXSTAT> EQ <SUCCES> .GOTO ULB10
	;
	;Error assembling ULBLIB
	.STOP

.ULB10:
	$@SRC:LULB
	.IF <EXSTAT> EQ <SUCCES> .GOTO ULB20
	;
	;Error building ULBLIB.OBJ
	.STOP

.ULB20:
	Library/Macro/Create '$BIN':ULBMAC.MLB SRC:ULBMAC.MAC
	.IF <EXSTAT> EQ <SUCCES> .RETURN
	;
	;Error building ULBMAC.MLB
	.STOP

.SYSTEM:
	.;Build SYSTEM.MLB

	$@SRC:SYSTEM
	.IF <EXSTAT> EQ <SUCCES> .RETURN
	;
	;Error building SYSTEM.MLB
	.STOP

.EDTL:
	.;Build EDTL.MLB

	$@SRC:EDTL
	.IF <EXSTAT> EQ <SUCCES> .RETURN
	;
	;Error building EDTL.MLB
	.STOP