;.MODULE MDUPMK, VERSION=03, COMMENT= .ENABLE SUBSTITUTION .DISABLE PREFIX .DISABLE QUIET .GOTO START ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; IMPORTANT FOR EDITING MDUPMK.COM ; ; If you are editing MDUPMK.COM, you MUST edit it under RTEM or RT. ; ; KED is different between RTEM/RT and RSX. You will mess up the TECO ; macro in here if you do it under RSX. ; ; Copy MDUPMK.COM into RTEM using /ASCII, and out to RSX using /ASCII ; ; COPY MDUPMK.COM/NAT MDUPMK.COM ;to bring it in to RTEM ; ; COPY MDUPMK.COM MDUPMK.COM/NAT ;to take it to RSX ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; ; ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; REVISION HISTORY ; ; V02 Was on the 5.6 sources. ; ; V03 8-OCT-96 Tim Shoppa ; Remove RTEM-ish references. Now works on actual disks! ; RT11MT is now 5.6 RT11SB, not 5.5 RT11SJ. ; Requires V70 of MDUP (auto-detect MEMTOP) ; Currently expects at least 18 kwords of memory (can ; be shaved some, still) to build the MDUP's. ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; .START: ; ; ; Automation of MDUP process. ; ;*** Enter the binary disk spec and the input and output device. *** ; .ENABLE QUIET .; .ASKS [::"BIN"] INPDEV Device name of built binaries disk: .ASKS [::"DL0"] OUPDEV Output device: .; .DISABLE QUIET ; ;*** Initialize output medium. *** ; .ENABLE QUIET .; .SETS BAD "" .ASK [] YESNO Should 'OUPDEV': be checked for bad blocks .IFT YESNO .SETS BAD "/BAD" $INIT/NOQUERY'BAD' 'OUPDEV': .; .DISABLE QUIET ; ;*** Copy over the binary system to the output device. *** ; .ENABLE QUIET .; $SQUEEZE/OUT:'OUPDEV': 'INPDEV': $COPY 'INPDEV':RT11SB.SYS 'OUPDEV':RT11MT.SYS $COPY 'INPDEV':RTSB.MAP 'OUPDEV':RTMT.MAP $UNP/SYS 'OUPDEV':*.* .OPEN 'OUPDEV':BHALT.TEC .ENABLE DATA @ER/RTMT.MAP/ @_/BHALT / 1C .,.+6X0 @EB/BHALT.COM/ HKA < @N/BHALT/; -5D G0> EX .DISABLE DATA .CLOSE .OPEN 'OUPDEV':BHALT.COM .ENABLE DATA SIPP RT11MT.SYS/A 0 BHALT 240 12704 110000 ^Y .DISABLE DATA .CLOSE .OPEN 'OUPDEV':RT11UP.TEC .ENABLE DATA @ER/RTUP.MAP/ @_/..SLNT/ 1C .,.+6X0 HK @ER/RTUP.MAP/ @_/..INDR/ 1C .,.+6X1 HK @ER/RTUP.MAP/ @_/..UPDA/ 1C .,.+6X2 @EB/RT11UP.COM/ HKA < @N/..SLNT/; -6D G0> EC @EB/RT11UP.COM/ HKA < @N/..INDR/; -6D G1> EC @EB/RT11UP.COM/ HKA < @N/..UPDA/; -6D G2> EX .DISABLE DATA .CLOSE .OPEN 'OUPDEV':RT11UP.COM .ENABLE DATA SIPP RT11UP.SYS/A 0 ..SLNT 1 ^Z ..INDR 1 ^Z ..UPDA ;A 125 120 104 101 124 105 ^Y .DISABLE DATA .CLOSE .; .DISABLE QUIET ; ;*** Create the first part of the MDUP process as 'OUPDEV':STRTFB.COM *** ; .ENABLE QUIET .; $RENAME 'OUPDEV':STRTFB.COM 'OUPDEV':STRTFB.ORG .OPEN 'OUPDEV':STRTFB.COM .ENABLE DATA $RENAME STRTFB.COM STRTFB.DUP $RENAME STRTFB.ORG STRTFB.COM ! $RENAME MM.SYS MM.FSM $RENAME MS.SYS MS.FSM $RENAME MT.SYS MT.FSM $RENAME MU.SYS MU.FSM ! $RENAME MMHD.SYS MM.SYS $RENAME MSHD.SYS MS.SYS $RENAME MTHD.SYS MT.SYS $RENAME MUHD.SYS MU.SYS ! $MUNG BHALT $@BHALT ! $COPY RT11FB.SYS RT11UP.SYS $COPY RTFB.MAP RTUP.MAP $MUNG RT11UP $@RT11UP ! $RUN SIPP DL.SYS 0 176 0 0 ^Y ^C $RUN SIPP DM.SYS 0 176 0 0 ^Y ^C $RUN SIPP DU.SYS 0 176 0 0 ^Y ^C $RUN SIPP MM.SYS 0 176 0 0 ^Y ^C $RUN SIPP MT.SYS 0 176 0 0 ^Y ^C $RUN SIPP MS.SYS 0 176 0 0 ^Y ^C $RUN SIPP MU.SYS 0 176 0 0 ^Y ^C $RUN SIPP RK.SYS 0 176 0 0 ^Y ^C ! $SET VM BASE=1600 $SET VM SIZE=400 $BOOT RT11MT .DISABLE DATA .CLOSE .; .DISABLE QUIET ; ;*** Create the second part of the MDUP process as 'OUPDEV':STRTSB.COM *** ; .ENABLE QUIET .; $RENAME 'OUPDEV':STRTSB.COM 'OUPDEV':STRTSB.ORG .OPEN 'OUPDEV':STRTSB.COM .ENABLE DATA ! $RENAME STRTSB.COM STRTSB.DUP $RENAME STRTSB.ORG STRTSB.COM ! $SET USR NOSWAP ! $REMOVE MM $REMOVE MS $REMOVE MT $REMOVE MU $LOAD DL,DM,DU $LOAD RK,VM $TYPE MDUP.TXT .DISABLE DATA .CLOSE .; .DISABLE QUIET ; ;*** Create instructions for non-automated section. ; .ENABLE QUIET .; .OPEN 'OUPDEV':MDUP.TXT .ENABLE DATA 1). Install and load one of the magtape handlers, Mx. where Mx represents: MM MS MT MU 2). RUN MDUP *MDUP.Mx=/H This will build MDUP.Mx. 3). Unload and remove Mx. 4). Repeat steps 1-3 until all handlers have been used. 5). To build MDUP.AI, type the following commands: INSTALL MU LOAD MU $@MDUPAI.COM UNLOAD MU REMOVE MU This will build MDUP.AI. The apparent errors in executing MDUPAI.COM should be ignored. 6). To build MDUP.UP, type the following commands: INSTALL MU LOAD MU $@MDUPU.COM UNLOAD MU REMOVE MU This will build MDUP.UP. The apparent errors in executing MDUPU.COM should be ignored. 7). The MDUP.AI, MDUP.UP, MDUP.MU, MDUP.MS, MDUP.MT, and MDUP.MM files you just created should now be copied to the binary distribution. .DISABLE DATA .CLOSE .; .DISABLE QUIET ; ;*** Make the output device bootable with RT11FB. *** ; .ENABLE QUIET .; $COPY/BOOT 'OUPDEV':RT11FB.SYS 'OUPDEV': .; .DISABLE QUIET ; ; End of automation of MDUP process. ; .ENABLE QUIET .;