Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11f-bm_tops20_v7_0_atpch1_19 - autopatch/cobolf.c08
There are 2 other files named cobolf.c08 in the archive. Click here to see a list.
 REP 1/1	;08C1
	; UPD ID= 1309 on 7/1/83 at 12:35 PM by HOFFMAN                         
 WIT
	; UPD ID= 1605 on 5/15/84 at 1:48 PM by HOFFMAN                         
 INS 30/1	;08C2
	;V13*****************
	;JEH	30-APR-84	[1523] Print 'SUBPROGRAM' instead of 'SUB' on listing
 REP 10/35	;08C3
		MOVE	TA,[POINT 6,[SIXBIT "SUB"]]
		SKIPN	SLASHJ##	;FORCE START ADDR (IE NOT A SUBPROG)?
		SKIPN	SUBPRG##	;NO, IS THIS A SUBPROGRAM?
		SKIPA	TA,[POINT 6,[SIXBIT "PROGRAM"]]	;NO
		PUSHJ	PP,SPACIT	;YES, PUT "S U B " BEFORE "P R O G R A M"

		PUSHJ	PP,SPACIT
 WIT
		MOVE	TA,[POINT 6,[SIXBIT "SUBPROGRAM"]]	;[1523]
		SKIPN	SLASHJ##	;FORCE START ADDR (IE NOT A SUBPROG)?
		SKIPN	SUBPRG##	;NO, IS THIS A SUBPROGRAM?
		MOVE	TA,[POINT 6,[SIXBIT "PROGRAM"]]	;[1523] NO
		PUSHJ	PP,SPACIT	;[1523] PRINT IT

 SUM 63601