Trailing-Edge
-
PDP-10 Archives
-
bb-y390o-bm_tops20_v41_atpch_20
-
autopatch/cobst.c13
There are 10 other files named cobst.c13 in the archive. Click here to see a list.
INS 33/1 ;13C1
;04-Apr-85 MJC [1145] Fix edit 1127. Allow a LINK and GO of a
; COBOL program with overlays.
INS 43/2 ;13C2
HRROI T1,.GTPRG ;[1145] GET USER PROGRAM NAME
GETTAB T1, ;[1145]
JRST MPRTNH ;[1145] PRE 6.03
HRROI T2,.GTRFN ;[1145] GET PROGRAM'S RUN FILENAME
GETTAB T1, ;[1145]
JRST MPRTNH ;[1145] PRE 6.03
CAME T1,T2 ;[1145] ARE BOTH THE SAME?
CAMN T2,['LINK'] ;[1145] NO, RUN FROM LINK?
TRNA ;[1145] YES, GET WHERE PROG
JRST MPRTNH ;[1145] THIS IS A LINK AND GO
;[1145] SKIP GETTING INFO ON LINK
SUM 63290