PDP-10 Archive: 10,5676/teco/filcom.mic from steco_19840320_1er

Trailing-Edge - PDP-10 Archives - steco_19840320_1er_E35 - 10,5676/teco/filcom.mic

There are 3 other files named filcom.mic in the archive. Click here to see a list.

;MIC FILE TO FILCOM TWO DISK AREAS  --  RDH  --  16-OCT-76
.SILENCE
.GOTO START
;CALL IS:
;
;	.DO FILCOM DVPTH-P,DVPTH-S,FILES,COM-SWTS
;
;WHERE "DVPTH-P" IS THE PRIMARY DIRECTORY TO BE COMPARED AGAINST
;"DVPTH-S" WHICH IS THE SECONDARY DIRECTORY PATH. BOTH "DVPTH-P"
;AND "DVPTH-S" ARE OF THE FORM "DEV:[PATH]".NOTE THAT THE
;PATH SPECIFICATION MUST BE FULL AND EXPLICIT - "[,]" WILL
;NOT WORK. NO WILDCARDING MAY APPEAR IN THE DEVICE OR PATH SPECS.
;LOGICAL DEVICE NAMES WILL NOT WORK.
;
;"FILES" IS THE FILENAME AND EXTENSION SPECIFICATION, WITH FULL
;WILDCARDING ALLOWED. IF MORE THAN ONE SET OF "FILES" IS DESIRED
;THEN EACH SET MUST BE CONCATENATED WITH EITHER THE "+" OPERATOR
;OR WITH DOUBLE SINGLE-QUOTED CONCATENATION OPERATORS SUCH AS
;<SINGLEQUOTE><SINGLEQUOTE>NOT<SINGLEQUOTE><SINGLEQUOTE>.
;
;FOR EXAMPLE:
;
;	.DO FILCOM DSKB:[1,2],DSKZ:[3,4,SFD],*.MAC+*.REL
;
;OR
;
;	.DO FILCOM DSKB:[1,2],DSKZ:[3,4,SFD],*.MAC''OR''*.REL
;
START::
.REVIVE
.DIRECT FILCOM.MMC=/INDIRECT 'A'C
.SILENCE
.R DEC:TECO
*EBFILCOM.MMC^[^[
*<-1-^N;A>^[^[
*BJ<S[^[;.-1UA^[S]^[QA,.XQQA,.K0LS:^[GQ^[>^[^[
*BJ<S'A^[;XQ0LI*DSK:='D ^[L-2CI,'B^[KGQ>^[^[
*BJI.NOERROR
*.REVIVE
*.R PUB:FILCOM
*^[ZJI.;MIC EXIT
*^[^[EX^[^[
.DO FILCOM.MMC
.DELETE FILCOM.MMC,FILCOM.BAK