Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
cobst.c12
There are no other files named cobst.c12 in the archive.
REP 10/1 ;12C1
;COPYRIGHT (C) 1976, 1981 BY DIGITAL EQUIPMENT CORPORATION
WIT
;COPYRIGHT (C) 1976, 1981, 1985 BY DIGITAL EQUIPMENT CORPORATION
INS 30/1 ;12C2
;04-Apr-85 MJC [1145] Fix edit 1127. Allow a LINK and GO of a
; COBOL program with overlays.
INS 43/2 ;12C3
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 211442