Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11f-bm_tops20_v7_0_atpch1_19 - autopatch/actgen.c08
There are 2 other files named actgen.c08 in the archive. Click here to see a list.
 INS 1/1	;08C1
	; UPD ID= 69, FARK:<5-1-WORKING-SOURCES.UTILITIES>ACTGEN.MAC.4,  29-Dec-82 13:51:11 by WEETON
	;Edit 8 - Force all files to have at least one "ACCOUNT" command.
 INS 91/1	;08C2
	;8	RWW	29-Dec-82	ACTGEN
	;	Force sub-account files to contain at least one "ACCOUNT" command.
	;	20-15613
	;
 REP 98/1	;08C3
	VEDIT==7		;EDIT NUMBER
 WIT
	VEDIT==^D8		;EDIT NUMBER
 INS 47/8	;08C4
	;**;[8]Add two lines and one label at ACCXNF: +1L	RWW	29-DEC-82
		SKIPA			;[8]skip message
	ACCXEF:	HRROI	T1,[ASCIZ/?Empty subaccount files not allowed/]	;[8]message
 REP 31/38	;08C5
	CMDER1:	MOVE T1,INJFN		;MUST HAVE REACHED END OF THIS
 WIT
	;**;[8]Add two lines at CMDER1: +0L	RWW	29-DEC-82
	CMDER1:	SKIPN ACTFLG		;[8]ACCOUNT SEEN BEFORE THIS ENTRY?
		JRST ACCXEF		;[8]NO, WRITE MESSAGE, RETURN TO ACTGEN> LEVEL
		MOVE T1,INJFN		;MUST HAVE REACHED END OF THIS
 SUM 6985