Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - backrs.c09
There is 1 other file named backrs.c09 in the archive. Click here to see a list.
 REP 1/1	;09C1
		TITLE	BACKRS -- MODULE TO DO THE WORK FOR BACKUP -- %4A(514)
		SUBTTL	FRANK NATOLI/FJN/PFC/KCM/JEF/MEB/CLRH/VLR/CGN/WMG/DC/BPK/MS/BAH/EDS	13-Apr-83
 WIT
		TITLE	BACKRS -- MODULE TO DO THE WORK FOR BACKUP -- %4A(521)
		SUBTTL	FRANK NATOLI/FJN/PFC/KCM/JEF/MEB/CLRH/VLR/CGN/WMG/DC/BPK/MS/BAH/EDS	25-Jul-84
 REP 6/1	;09C2
	DECEVR==514		;EDIT NUMBER
 WIT
	DECEVR==521		;EDIT NUMBER
 INS 35/10	;09C3
	;**;[520] @ SUSDF + 1L, Insert 1L, BAH, 3-Jul-84
	LSTFOP:	BLOCK	.FOMAX	;[520] FILOP. BLOCK FOR LISTING FILE

 REP 24/32	;09C4
	CLSUF2:	SETZ	T1,		;[307] USE T1 AS FLAG
		CLOSE	F.LIST,		;CLOSE LISTING FILE		[176]
		PUSH	P,S.LENT##+.RBPPN  ;[361] SAVE THE PATH
		LOOKUP	F.LIST,S.LENT## ;DO LOOKUP
		  SETO	T1,		;[307] MUST BE OUTPUT-ONLY DEVICE
		POP	P,S.LENT##+.RBPPN  ;[361] RESTORE THE PATH
		ENTER	F.LIST,S.LENT##	;RE-ENTER
		  JRST	LSTERR		;OUCH!
		SKIPL	T1		;[307] SKIP USETI IF LOOKUP FAILS
		USETI	F.LIST,-1	;POSITION TO APPEND TO FILE
		POPJ	P,		;THAT'S ALL
 WIT
	;**;[520] Replace routine CLSUF2, BAH, 3-Jul-84
	CLSUF2:	HRLI	T1,F.LIST	;[520] CHANNEL NUMBER OF LISTING FILE
		HRRI	T1,.FOURB	;[520] CHECKPOINT FUNCTION
		MOVEM	T1,LSTFOP+.FOFNC;[520] FIRST WORD OF FILOP BLOCK
		MOVEI	T1,S.LENT##	;[520] LOOKUP/ENTER BLOCK ADDRESS
		MOVEM	T1,LSTFOP+.FOLEB;[520]
		MOVE	T1,[.FOMAX,,LSTFOP] ;[520]
		FILOP.	T1,
		  JRST	LSTERR		;[520] REPORT THE ERROR
		POPJ	P,		;[520] RETURN
 REP 23/48	;09C5
		JRST	RSTRE2		;[426]
 WIT
	;**;[515] @ RSTREC + 20L, Replace 1L, BAH, 20-Jun-84
		JRST	[PUSHJ P,LSTXXX	;[515] YES, LIST IT AND
			 JRST  RSTREC]  ;[515] CONTINUE
 REP 33/48	;09C6

	RSTRE2:	PUSHJ	P,LSTXXX	;[426] LIST IT
		PUSHJ	P,LABSTS	;[426] CHECK LABEL TYPE
		JRST	RSTREC		;[426]

	;Make sure that the tape is being read using the same label
	;type that it was written with.  If it is not, give an error
	;message and wait for the user to type GO.
	;
	LABSTS:	MOVE	T1,TAPLBL##	;[426] GET THE LABEL TYPE 
		CAMN	T1,S$LBLT(MH)	;[426] IS CURRENT LABEL TYPE = SAVE LABEL TYPE?
		POPJ	P,		;[426] YES, RETURN 
		HRL	T1,S$LBLT(MH)	;[433] MOVE THE SAVE LABEL TYPE IN LH
		HRLZI	T2,LABCTE	;[433] SET UP AOBJN FOR TABLE SEARCH
	LABST1:	CAMN	T1,LABCTB(T2)	;[433] DO WE HAVE A MATCH?
		POPJ	P,		;[433] YES. DON'T COMPLAIN ABOUT THE MISMATCH
		AOBJN	T2,LABST1	;[433] LOOP THRU THE TABLE, REPORT IF NO MATCH
		OUTSTR	[ASCIZ/
	%BKPDLT Tape being read /]	;[426]
		MOVE	T1,LABTBL(T1)	;[426] GET THE POINTER FOR THE TABLE
		OUTSTR	@T1		;[426] 
		OUTSTR	[ASCIZ /was written /]	;[426]
		MOVE	T1,S$LBLT(MH)	;[426] SAVED LABEL
		MOVE	T1,LABTBL(T1)	;[426] GET THE POINTER FOR THE TABLE
		OUTSTR	@T1		;[426] 
		OUTSTR	CRLF		;[426]
		OPER$	(TGC,errors may occur type "GO" to continue..)
		PUSHJ	P,TYI		;[426] WAIT FOR GO
		POPJ	P,		;[426] 

	;The following table contains all label types as defined by
	;the .TFLBL function of the TAPOP. UUO.
	;
	LABTBL:	EXP	[ASCIZ /BYPASS /]				;[426]
		EXP	[ASCIZ /using ANSI labels /  ]			;[426]
		EXP	[ASCIZ /using ANSI labels and user labels /  ]	;[426]
		EXP	[ASCIZ /using IBM labels /  ]			;[426]
		EXP	[ASCIZ /using IBM labels and user labels /  ]	;[426]
		EXP	[ASCIZ /using leading tape mark /  ]		;[426]
		EXP	[ASCIZ /using NONSTANDARD labels /  ]		;[426]
		EXP	[ASCIZ /unlabeled /  ]				;[426]
		EXP	[ASCIZ /using DEC COBOL ASCII labels /  ]	;[426]
		EXP	[ASCIZ /using DEC COBOL SIXBIT labels /  ]	;[426]
		EXP	[ASCIZ /USER-EOT /  ]				;[426]


	;The following table contains all combinations of label types which are legal.
	;T1 contains the save label type in its LH and the current label type in its RH.
	;The routine LABSTS then does a table search for an equivalence.  Tapes written
	;by BACKUP before GALAXY 4.1 are written in BYPASS (label type 0) by definition.

	LABCTB:	.TFLBP,,.TFLNL		;[433] BYPASS,,UNLABELLED
		.TFLBP,,.TFLNV		;[433] BYPASS,,USER-EOT
		.TFLNL,,.TFLBP		;[433] UNLABELLED,,BYPASS
		.TFLNL,,.TFLNV		;[433] UNLABELLED,,USER-EOT
		.TFLNV,,.TFLBP		;[433] USER-EOT,,BYPASS
		.TFLNV,,.TFLNL		;[433] USER-EOT,,UNLABELLED
	LABCTE==LABCTB-.		;[433] Negative length of table
 WIT
	;**;[515] Delete routines RSTRE2 and LABSTS, BAH, 20-Jun-84
 INS 58/60	;09C7
	;**;[521] @ RSTUST + 5L, Insert 1L, BAH, 25-Jul-84
		WAIT	FILE,		;[521] WAIT FOR DISK ACTIVITY TO SETTLE DOWN
 SUM 184757