.; Copy a master pack to a skeleton pack .; .; B. Z. Lederman .; .ENABLE SUBSTITUTION .IFNINS ...BRU INS $BRU .ASKS DEV Input disk .PARSE DEV ":" D1 D2 D3 .SETS IN D1+":" .ASKS DEV Output disk .PARSE DEV ":" D1 D2 D3 .SETS OUT D1+":" .ASK DVLP Development UICs .; .; First copy UIC's which are always copied and initialize pack .; BRU /MOUNTED/noini/ufd 'IN'[1,54] 'OUT' .IF NE 1 .GOTO ABORT BRU /MOUNTED/NOINITIALIZE/UFD/NEW_VERSION 'IN'[11,10]RSXMC.MAC 'OUT' .IF NE 1 .GOTO ABORT BRU /MOUNTED/NOINITIALIZE/UFD/NEW_VERSION 'IN'[20,15]*.TSK 'OUT' .IF NE 1 .GOTO ABORT PIP 'OUT'[0,0]/FO='IN'[0,0]RSX11.SYS .IF NE 1 .GOTO ABORT .OPENR #1 COPY.LIS .IF <> .GOTO NOLIS .GOSUB REDLIS .GOTO SINGLE .NOLIS: ; Could not find file COPY.LIS which has the list of UIC's to copy .SINGLE: .IFF DVLP .GOTO END .OPENR #1 DEVELOP.LIS .IF <> .GOTO NODEV .GOSUB REDLIS .GOTO END .NODEV: ; Could not find file DEVELOP.LIS which has the list of UIC's .END: .EXIT .; .; We come here if an error has occured during BRU .; .ABORT: ; ; An error occured copying from 'IN' to 'OUT' ; .EXIT .; .; This subroutine reads a .LIS file on unit #1 .; .REDLIS: .READ #1 A .IFT .GOTO RET .; .; Determine if the line is a comment .; .TEST A "!" .IF EQ 1 .GOTO REDLIS .PARSE A " " B C BRU /MOUNTED/NOINITIALIZE/UFD/NEW_VERSION 'IN''B'*.* 'OUT' .IF NE 1 .GOTO ABORT .GOTO REDLIS .RET: .CLOSE #1 .RETURN