Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - cobolf.c09
There is 1 other file named cobolf.c09 in the archive. Click here to see a list.
 INS 22/1	;09C1
	;V12B****************
	;JEH	11-MAY-84	[1523] Put 'SUBPROGRAM' on listing files
 REP 11/35	;09C2
		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 1882