Trailing-Edge
-
PDP-10 Archives
-
bb-kl11f-bm_tops20_v7_0_atpch1_19
-
autopatch/cobolg.c12
There are 2 other files named cobolg.c12 in the archive. Click here to see a list.
REP 11/1 ;12C1
COPYRIGHT (C) 1974, 1983, 1984 BY DIGITAL EQUIPMENT CORPORATION
WIT
COPYRIGHT (C) 1974, 1983, 1984, 1985 BY DIGITAL EQUIPMENT CORPORATION
INS 33/1 ;12C2
;MJC 24-JUL-85 [1606] RESET FNOLST SO ERROR COUNT PRINTS IN LST FILE
REP 3/18 ;12C3
CNTOUT: PUSHJ PP,TTYON## ; TURN ON TTY TO GET SUMMARY LINE [266]
WIT
CNTOUT: SKIPLE LSTJFN## ;[1606]SEE IF WE HAVE A LST FILE JFN
SWOFF FNOLST ;[1606]OH WE DO. THEN TURN NO LIST OFF.
PUSHJ PP,TTYON## ; TURN ON TTY TO GET SUMMARY LINE [266]
SUM 97239