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