.;.MODULE BINKIT.COM V05,20,<Generates binary kit build files>
.;.V20 - allows MS1 (1-tape MS: boot) builds
.GoTo Build
.CopyRi:
.Data #2 !
.Data #2 ! Copyright (c) 1998 by Mentec, Inc., Nashua, NH.
.Data #2 ! All rights reserved
.Data #2 !
.Data #2 ! This software is furnished under a license for use only on a
.Data #2 ! single computer system and  may  be  copied  only  with  the
.Data #2 ! inclusion of the above copyright notice.  This software,  or
.Data #2 ! any other copies thereof, may not be provided  or  otherwise
.Data #2 ! made available to any other person except for  use  on  such
.Data #2 ! system and to one who agrees to these license  terms.  Title
.Data #2 ! to  and  ownership of the software shall at all times remain
.Data #2 ! in Mentec, Inc.
.Data #2 !
.Data #2 ! The information in this document is subject to change without
.Data #2 ! notice and should not be construed as a commitment by Digital
.Data #2 ! Equipment Corporation, or Mentec, Inc.
.Data #2 !
.Data #2 ! Digital and Mentec  assume  no  responsibility for the use or
.Data #2 ! reliability of its software on equipment which is not supplied
.Data #2 ! by Digital  or Mentec,  and listed  in the  Software  Product
.Data #2 ! Description.
.Data #2 !
	.Return

.; To use:
.; Set Kmon Ind
.; @BINKIT device[ dir][ test]
.;
.; device is the distribution device the command file is to be built for.
.;
.; dir if present generates kit maps
.; If dir is present it is used as the device on which to write the kit maps
.;
.; If test is present logical disks are created for the kit devices rather
.; than directly on "real" disks.  These logical disks are created on the
.; KIT: device.  If test is specified as NO, no testing will be performed.
.;
.; If test is specified as YES, another two devices must be specified,
.; STD: which is a single volume "standard" against which the contents
.; of the binary kit is to be tested, and TST: a scratch volume which
.; will be used to contain all the the files in a the logical disks.
.; Sorted directories of STD and TST will be taken and these two files
.; will be compared with the differences appearing in BIN.DIF on DK:.

.FilChk:
	.TestFile 'CkFile'
	.If <FilErr> = 1 .Return	; ok, found it
	.If <FilErr> <> 230 .GoTo UnkErr ; odd error
;?BINKIT-F-File not found DK:'CkFile'
	.Exit <Severe>

.UnkErr:;?BINKIT-F-Testfile DK:'CkFile' gave unexpected error code - '<FilErr>'
	.Exit <Severe>

.UnkTyp:;?BINKIT-F-Media type specified not supported - 'KitDev'
	.Exit <Severe>

.BadVol:;?BINKIT-F-Not able to find 'VolNam' record in 'BinVol'
	.Exit <Severe>

.Build:	.Disable Octal
	.Enable	Escape
	.SetS BinVol "BINVOL.DAT"	; file with binary volume map
	.SetS BinFil "BINKIT.DAT"	; file with binary file map
	.SetN CtCMax 20			; number of copies between ^Cs
	.SetF NoQues			; assume interactive operation
	.SetF DoTest			; assume no testing
	.SetF DoLogi			; assume no logical disks
	.SetF DoDir			; assume no kit maps
	.SeTF MagTap			; Assume not building magtape kit
	.SetS CkFile BinVol		; is volume definition file avail.?
	.GoSub FilChk			; no return on error
	.SetS CkFile BinFil		; is the file definition file avail.?
	.GoSub FilChk			; no return on error
	.If P3 <> "" .SetT DoLogi	; non-blank third arg means logical
	.If P2 <> "" .SetT DoDir	; non-blank second arg means kitmaps
	.If P1 = "" .GoTo 5$		; no kit type specified
	.Disable LowerCase
	.SetS KitDev P1			; assign uppercased P1 to KitDev
	.SetS TempS P3			; assign uppercased P3 to TempS
	.Enable LowerCase
	.If TempS = "YES" .SetT DoTest
	.SetT NoQues			; else ask no questions
.5$:	.IfT NoQues .GoTo 30$
;	Type <ESC> for help
.10$:	.Disable LowerCase
	.AskS KitDev What media is to be used for the kit?
	.Enable LowerCase
	.IfF <Escape> .GoTo 30$		; help not requested
.20$:;	The possible media are:
.;ADD	RX01 RX02 RX50 RL01 RL02 RK05 MT MS MU RC25 MS1 ___
;	RX01 RX02 RX50 RL01 RL02 RK05 MT MS MU RC25 MS1
	.IfT NoQues .GoTo UnkTyp
	.GoTo 10$
.30$:	.IfT NoQues .GoTo 40$
	.Ask DoDir Do you want kit maps
	.IfF DoDir .GoTo 40$
	.AskS P2 Device name for kitmaps to go to?

.40$:
	.SetF KitMT			; assume not Magtape
	.SETF KITMU			; Assume not TK50
	.SetF Kit1VL			; assume not single volume
	.SetF KitMVL			; assume not multi volume
	.SetS TempS ""			; assume no match
					.; FOpt "" format with no option
					.; FOpt "~" no formatting
					.; FOpt "/___" format with option
					.;	SetT	SetS	SetS	SetS
					.;	Flag	KitVol	VolSiz	FOpt
	.If KitDev = "MT"	.SetS TempS	"KitMT 	VolMT	-1	~"
	.If KitDev = "MS"	.SetS TempS	"KitMT 	VolMT	-1	~"
	.If KitDev = "MS1"	.SetS TempS	"KitMT 	VolMU	-1	~"
	.If KitDev = "RC25"	.SetS TempS	"Kit1VL	Vol1VL	50902	~"
	.If KitDev = "RL01"	.SetS TempS	"Kit1VL	Vol1VL	10240	~"
	.If KitDev = "RL02"	.SetS TempS	"Kit1VL	Vol1VL	20480	~"
	.If KitDev = "RX01"	.SetS TempS	"KitMVL	VolRX1	494	/Sin"
	.If KitDev = "RX02"	.SetS TempS	"KitMVL	VolRX2	988	"
	.If KitDev = "RX50"	.SetS TempS	"KitMVL	VolRX5	800	~"
	.If KitDev = "MU"	.SetS TempS	"Kit1VL	VolMU	-1	~"
	.If KitDev = "RK05"	.SetS TempS	"KitMVL	VolRK5	4800	"
.;ADD	.If KitDev = "____"	.SetS TempS	"Kit___	Vol___	vol_size formatting"
	.If TempS = "" .GoTo 20$	; no match
	.SetS	SegOpt	""
	.If KitDev = "RX01" .Or .If KitDev = "RX02" .SetS SegOpt "/Seg:1"
	.If KitDev = "RX50" .SetS SegOpt "/Seg:1"
	.If KitDev = "MU" .Or .If KitDev = "MT" .SetT MagTap
	.If KitDev = "MS" .Or .If KitDev = "MS1" .SetT MagTap
	.Parse TempS "	" Flag KitVol VolSiz FOpt
	.SetS VolNam "$'KitDev'"	; volume record in BINVOL.DAT
	.SetS TempS "'KitDev'B.COM"	; assume use kitname+B
	.IfT DoLogi .SetS TempS "'KitDev'BL.COM" ; use kitname+BL
	.IfT DoTest .SetS TempS "'KitDev'BX.COM" ; use kitname+BX
	.SetT 'Flag'			; set Kit___ true
	.Open #2 'TempS'
	.GoSub CopyRi			; include copyright statement
.Data #2 ! 'TempS' command file used to build binary kits
.Data #2 ! Created on '<Date>' at '<Time>'
.Data #2 !
	.IfT MagTap .Data #2 ! NOTE: Files must be in this order for successful booting.
	.IfT MagTap .Data #2 !       Do not change the order of the files.
	.IfT MagTap .Data #2 !
	.SetS Option "/Pro/Ver"		;Assume not creating magtape kit
	.IfT MagTap .SetS Option "/Pos:-1"
	.SetS OutDsk "Kit"
.Data #2 Load Bin,Kit
	.IfF DoLogi .GoTo NoLog1
	.SetS OutDsk "LD7"
.Data #2 Load 'OutDsk'
	.SetS QOpt "No"
	.SetF Format
.IfT DoTest .Data #2 Ini/Que Tst:
	.GoTo NoForm
.NoLog1:.SetS QOpt ""			; assume no formatting
	.SetF Format			; assume no formatting
	.If FOpt = "~" .GoTo NoForm	; no formatting
	.SetS QOpt "No"			; formatting
	.SetT Format			; formatting
.NoForm:
	.OpenR #0 'BinVol'
	.Read #0 KitBuf			; read .MODULE and ignore it
	.SetN CurVol 1			; start with first volume
	.SetN A1 1			; at first record
	.SetN Z1 32767.			; and go to last record
	.SetN CtCCnt 0			; start ^C count at 0
.VolLp1:
	.Read #0 KitBuf			; get a volume description
	.IfT <EOF> .GoTo BadVol		; can't find volume record
	.SetS TempS KitBuf[1:1]		; get first char of buffer
	.If TempS = ";" .GoTo VolLp1	; skip comments
	.If TempS <> "$" .GoTo VolLp1	; look for volume delimiter records
	.Parse KitBuf "	" VolId Rem
	.If VolNam <> VolId .GoTo VolLp1 ; if not a match, keep looking

.VolLup:
	.Read #0 KitBuf			; get a volume description
	.SetS TempS KitBuf[1:1]		; get first char of buffer
	.If TempS = ";" .GoTo VolLup	; skip comments
	.If TempS = "$" .GoTo Done	; volume delimiter record is "EOF"
	.Parse KitBuf "	" VolId Owner Boot BotDev
	.IfT <EOF> .GoTo Done		; all done
	.IfNDF A'CurVol' .GoTo Empty	; Empty (fileless) volume
	.If CtCCnt = 0 .GoTo FmtTst	; put in a ^C before format/init
	.Data #2 ^C
	.SetN CtCCnt 0
.FmtTst:.IfF Format .GoTo NoFmt		; format only for RX01/RX02
	.Data #2 Form'FOpt'/Que 'OutDsk':
.NoFmt:	.IfT DoLogi .Data #2 Cre Kit:'KitDev''CurVol'.Dsk/Alloc:'VolSiz'
	.IfT DoLogi .Data #2 Mou LD7: Kit:'KitDev''CurVol'
	.IfF MagTap .Data #2 Ini/'QOpt'Que/Vol/Bad'SegOpt' 'OutDsk':
	.IfT MagTap .Data #2 Ini/'QOpt'Que/Vol/File:Bin:'Boot' 'OutDsk':
	.Data #2 'VolId'
	.Data #2 'Owner'
	.OpenR #1 'BinFil'
	.Read #1 FilBuf			; read .MODULE and ignore it
	.SetN RcdNum 1			; start record counter
	.FilLup:
	    .Read #1 FilBuf		; read a file description
	    .IfT <EOF> .GoTo FilLpX	; at EOF try another volume
	    .SetS TempS FilBuf[1:1]	; get first char of buffer
	    .If TempS = ";" .GoTo FilLup ; skip comments
	    .Inc RcdNum			; update record number
	    .If A'CurVol' > RcdNum .GoTo FilLup ; skip to first interesting
.;ADD	    .Parse FilBuf "	" File Vol1VL VolRX1 VolRX2 VolRX5 VolMT VOLMU VOLRK5 Vol___ Rem
	    .Parse FilBuf "	" File Vol1VL VolRX1 VolRX2 VolRX5 VolMT VOLMU VOLRK5 Rem
	    .SetS VolTmp 'KitVol'	; copy into string variable
	    .SetN VolNum 'VolTmp'	; what volume is this to go on?
	    .If VolNum <> CurVol .GoTo Skip ; not this one
	    .Copy01:
		.SetS TempS File[1:1]	; get first char of file name
		.If TempS <> " " .GoTo Copy02 ; if no leading spaces, done
		.Test File
		.SetS File File[2:'<StrLen>'] ; else drop leading space
		.GoTo Copy01		; try for another space

	.Copy02:
	    .Data #2 Cop Bin:'File' 'OutDsk':'Option'
	    .Inc CtCCnt
	    .If CtCCnt <> CtCMax .GoTo Skip
	    .Data #2 ^C
	    .SetN CtCCnt 0
        .Skip:
	    .IfT Kit1VL .GoTo FilLup	; no-optimize for 1 volume kits
	    .If CurVol <> 1 .GoTo FilLp2 ; limits set if not volume 1
	    .IfNDF A'VolNum' .SetN A'VolNum' RcdNum ; set lower limit
	    .If VolNum <> 1 .SetN Z'VolNum' RcdNum ; set upper limit
	.FilLp2:
	    .If Z'CurVol' > RcdNum .GoTo FilLup ; more to do
.FilLpX:
	.If Boot = "" .GoTo NoBoot	; write a boot if requested
	.IfT MagTap .GoTo NoBoot	; Boot written with Init command
	.Data #2 Cop/Bo:'BotDev' 'OutDsk':'Boot' 'OutDsk':
	.GoTo NoBoot
.Empty:	;?BINKIT-W-Empty volume 'CurVol'
.NoBoot:
	.IfF DoDir .GoTo NoDir
	.Data #2 Dir/Vol/Out:'P2':'KitDev''CurVol'.Dir 'OutDsk':
.NoDir:	.IfT DoTest .Data #2 Cop 'OutDsk':*.*/Sys/NOREP Tst:
	.Close #1			; close binary-file file
	.Inc CurVol			; update current volume number
	.GoTo VolLup			; try for another volume record

.Done:	.IfF DoTest .GoTo Done2
	.Data #2 Dir/Out:Tst.Dir Tst:/Sort:Nam/Col:1/Bri
	.Data #2 Dir/Out:Std.Dir Std:/Sort:Nam/Col:1/Bri
	.Data #2 Dif/Out:Bin.Dif (Std,Tst).Dir
.Done2:	.Data #2 Unload Bin,Kit
	.IfF DoLogi .GoTo Done3
	.Data #2 Unload 'OutDsk'
.Done3:	.Close #0
	.Close #1
	.Close #2
	.Exit