.;.MODULE BASE3,RELEASE=V05,VERSION=15,COMMENT=<Build Distributed Monitors and others>
.;
.;
.; Version 14 was on 5.6 build disk from Stuart.
.;
.; Version 15 doesn't try to copy the nonexistent LD*.MAP's.
.; - 21-OCT-1996, Tim Shoppa
.;
	TIME
	.ENABLE GLOBAL
	SET ERROR NONE

	.IFNDF $LIST .ASK $LIST Are listings being produced
	.SETS LISTS "NOLIST"
	.IFT $LIST .SETS LISTS "LIST"

	COPY SRC:SYSGEN.COM *.*
	.IF <EXSTAT> EQ <SUCCES> .GOTO AI2
	;
	;Error copying SRC:SYSGEN.COM to *.*
	.RETURN

	.;BUILD RT11AI.SYS
.AI2:
	@SYSGEN 'LISTS' NOQ SRC:AI F 
	
	COPY (AI.CND,AI.TBL) SRC:
	.IF <EXSTAT> EQ <SUCCES> .GOTO AI7
	;
	;Error copying (AI.CND,AI.TBL) to '$SRC':
	.GOTO AI99	
.AI7:	
	.;Build the monitor
	$@AI.MON
	.IF <EXSTAT> EQ <SUCCES> .GOTO AI9
	;
	;Error running AI.MON
.AI9:
	RENAME BIN:RT11SB.SYG BIN:RT11AI.SYG
	.IF <EXSTAT> EQ <SUCCES> .GOTO AI99
	;
	;Error renaming BIN:RT11SB.SYG BIN:RT11AI.SYG

.AI99:
	.;BUILD RT11PI.SYS
.ZI2:
	@SYSGEN 'LISTS' NOQ SRC:PCAI F 
	
	COPY (PCAI.CND,PCAI.TBL) SRC:
	.IF <EXSTAT> EQ <SUCCES> .GOTO ZI7
	;
	;Error copying (PCAI.CND,PCAI.TBL) to '$SRC':
	.GOTO 4
.ZI7:
	.;Build the monitor
	$@PCAI.MON
	.IF <EXSTAT> EQ <SUCCES> .GOTO ZI9
	;
	;Error running PCAI.MON
.ZI9:
	RENAME BIN:RT11FB.SYG BIN:RT11PI.SYG
	.IF <EXSTAT> EQ <SUCCES> .GOTO 4
	;
	;Error renaming BIN:RT11FB.SYG BIN:RT11PI.SYG



	.;BUILD SB AND FB 
.4:
	@SYSGEN 'LISTS' NOQ SRC:SBFB F 
	
	COPY (SBFB.CND,SBFB.TBL) SRC:
	.IF <EXSTAT> EQ <SUCCES> .GOTO 10
	;
	;Error copying (SBFB.CND,SBFB.TBL) to '$SRC':
	.GOTO 16
.10:	
	.;Build the monitors
	$@SBFB.MON
	.IF <EXSTAT> EQ <SUCCES> .GOTO 15
	;
	;Error running SBFB.MON

.15:
	.;Build the handlers
	$@SBFB.DEV
	.IF <EXSTAT> EQ <SUCCES> .GOTO 16
	;
	;Error running SBFB.DEV

.16:

	.;BUILD XM AND XB MONITOR AND HANDLERS
.X4:
	@SYSGEN 'LISTS' NOQ SRC:XBXM F 
	
	COPY (XBXM.CND,XBXM.TBL) SRC:
	.IF <EXSTAT> EQ <SUCCES> .GOTO X10
	;
	;Error copying (XBXM.CND,XBXM.TBL) to '$SRC':
	.GOTO X16
.X10:	
	.;Build the monitors
	$@XBXM.MON
	.IF <EXSTAT> EQ <SUCCES> .GOTO X15
	;
	;Error running XBXM.MON

.X15:
	.;Build the handlers
	$@XBXM.DEV
	.IF <EXSTAT> EQ <SUCCES> .GOTO X16
	;
	;Error running XBXM.DEV

	.;BUILD ZM AND ZB MONITOR AND HANDLERS
.X16:
	@SYSGEN 'LISTS' NOQ SRC:ZBZM F 
	
	COPY (ZBZM.CND,ZBZM.TBL) SRC:
	.IF <EXSTAT> EQ <SUCCES> .GOTO Z20
	;
	;Error copying (ZBZM.CND,ZBZM.TBL) to '$SRC':
	.GOTO H05
.Z20:	
	.;Build the monitors
	$@ZBZM.MON
	.IF <EXSTAT> EQ <SUCCES> .GOTO Z30
	;
	;Error running ZBZM.MON

.Z30:
	.; Since for now the ZBZM handlers are exactly the same as the 
	.; XM/XB handlers, do not build them.
!	.;Build the handlers
!	$@ZBZM.DEV
!	.IF <EXSTAT> EQ <SUCCES> .GOTO H05
!	;
!	;Error running ZBZM.DEV

.H05:	.;BUILD THE HARDWARE MAGTAPE HANDLERS
	@SYSGEN 'LISTS' NOQ SRC:HD F 
	
	COPY (HD.CND,HD.TBL) SRC:
	.IF <EXSTAT> EQ <SUCCES> .GOTO H10
	;
	;Error copying (HD.CND,HD.TBL) to '$SRC':
	.GOTO H30
.H10:
	.;BUILD THE HANDLERS
	$@HD.DEV
	.IF <EXSTAT> EQ <SUCCES> .GOTO H30
	;
	;ERROR RUNNING HD.DEV

.H30:

!	.;Build RT11BL.SYS
!	@SYSGEN 'LISTS' NOQ SRC:BL F
!
!	COPY (BL.CND,BL.TBL) SRC:
!	.IF <EXSTAT> EQ <SUCCES> .GOTO 195
!	;
!	;Error copying (BL.CND,BL.TBL) to SRC:
!	.GOTO 1955
!.195:
!	.;Build the monitor
!	$@BL.MON
!	.IF <EXSTAT> EQ <SUCCES> .GOTO 1955
!	;
!	;Error running BL.MON
!.1955:

	RENAME/SYS BIN:*.SYG BIN:*.SYS
	.IF <EXSTAT> EQ <SUCCES> .GOTO 20
	;
	;Error renaming BIN:*.SYG to BIN:*.SYS
	.GOTO 40
.20:	
	.;Put the monitor maps on BIN
	COPY MAP:(RT11XM,RT11ZM,RT11FB,RT11SB).MAP BIN:
	.IF <EXSTAT> EQ <SUCCES> .GOTO 30
	;
	;Error copying MAP:(RT11XM,RT11ZM,RT11FB,RT11SB).MAP to BIN:

.30:
!	.;Put the LD maps on MAP					;015
!	COPY LST:LD(,X).MAP MAP:					;015
!	.IF <EXSTAT> EQ <SUCCES> .GOTO 40				;015
!	;								;015
!	;Error copying LST:LD(,X).MAP to MAP:				;015

.40:
!	.;Put the LD maps on BIN					;015
!	COPY MAP:LD(,X).MAP BIN:					;015
!	.IF <EXSTAT> EQ <SUCCES> .GOTO 50				;015
!	;								;015
!	;Error copying MAP:LD(,X).MAP to BIN:				;015

.50:
	TIME
	.EXIT