PDP-10 Archive: autopatch/foropn.c18 from bb-l014r-bm_tops20_v6_1_atpch

Trailing-Edge - PDP-10 Archives - bb-l014r-bm_tops20_v6_1_atpch_18 - autopatch/foropn.c18

There are 2 other files named foropn.c18 in the archive. Click here to see a list.

 DEL 48/36	;18C1
		MOVE	T1,DATGEN	;SET DEFAULT GENERATION
		MOVEM	T1,GEN(D)
 INS 47/55	;18C2
		MOVE	T5,GEN(D)	;[5037] SAVE WHAT'S THERE
 REP 51/55	;18C3


		SETZM	TATBLK		;CLEAR THE TEMP ATRIBUTE BLOCK
 WIT
		JUMPN	T5,CLRBLK	;[5037] IF NULL, WE HAVE TO CHECK
		MOVE	T1,DATGEN	;[5037] TO SEE IF WE GOT
		CAMN	T1,GEN(D)	;[5037] AN IMPLICIT ZERO;
		 SETZM	GEN(D)		;[5037] NULL GENERATION IF IMPLICIT

	CLRBLK:	SETZM	TATBLK		;[5037] CLEAR THE TEMP ATRIBUTE BLOCK
 INS 64/56	;18C4
		SKIPN	GEN(D)		;[5037] IF NULL, DON'T HAVE
		 POPJ	P,		;[5037] TO BOTHER
 REP 10/69	;18C5
	DOGTJF:	MOVE	T1,GJBTS	;Get JFN bits to set
 WIT
	DOGTJF:	MOVE	T1,[POINT 7,%TXTBF]	;[5037] POINT TO BUFFER
		PUSHJ	P,FNSCLR	;[5037] CLEAR BUFFER
		PUSHJ	P,FNOJFN	;[5037] GET FILE SPEC
		MOVE	T1,GJBTS	;Get JFN bits to set
 REP 18/69	;18C6
		SETZ	T2,		;NO STRING
 WIT
		HRROI	T2,%TXTBF	;[5037] AC2 POINTS TO FILE STRING
 SUM 87492