Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-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