Trailing-Edge
-
PDP-10 Archives
-
bb-kl11i-bm_tops20_v7_0_atpch_1-22
-
autopatch/cobver.c10
There are 4 other files named cobver.c10 in the archive. Click here to see a list.
REP 11/1 ;10C1
COPYRIGHT (C) 1979, 1983, 1984 BY DIGITAL EQUIPMENT CORPORATION
WIT
COPYRIGHT (C) 1979, 1983, 1984, 1985 BY DIGITAL EQUIPMENT CORPORATION
REP 15/1 ;10C2
CBLEDT==1544 ;EDIT LEVEL
WIT
CBLEDT==1556 ;EDIT LEVEL
REP 26/1 ;10C3
LBLEDT==1130 ;EDIT LEVEL
WIT
LBLEDT==1133 ;EDIT LEVEL
INS 8/4 ;10C4
;.AUTOPATCH 10
;
;.EDIT 1556 Remove code to ignore a period inside SEARCH ... WHEN and
;; and add nodes to DTREE to catch the period.
; MJC,22-JAN-85,SPR:NONE
; A:SRC COBOLD,DTREE,COBVER
;
;.EDIT 1555 Flush CRF sort buffers before closing the temp files
; MJC,12-JAN-85,SPR:20-19273
; A:SRC SRTCRF,COBVER
;
;.EDIT 1554 Allow STOP RUN to followed by and END-XXX scope terminator
; MJC,03-JAN-85,SPR:20-20474
; A:SRC DTREE,COBVER
;
;.EDIT 1553 Fix edit 1541. Redo PA823. to pop nodes from the node stack
;; to perform the wrap-up actions for END-XXX scope terms.
; MJC,31-DEC-84,SPR:20-19930
; A:SRC COBOLD,DTREE,IMPURE,DIAGS,COBVER
;
;.EDIT 1552 Change a PUSHJ to a PJRST so the routine returns
;; properly
; KWS,16-NOV-84,SPR:20-19789
; A:SRC SRTCRF,COBVER
;
;.EDIT 1551 Cause COBOL to generate IFIW's in its argument
;; blocks.
; KWS,26-OCT-84,SPR:NONE
; A:SRC IPCGEN,COBVER
;
;.EDIT 1550 Clear flags on literals in SETOPN.
; KWS,26-OCT-84,SPR:10-34905
; A:SRC CMNGEN,COBVER
;
;.EDIT 1547 Make DEC extension warnings print at the
;; end of the source listings
; KWS,18-OCT-84,SPR:10-34907
; A:SRC DIAGS,COBVER
;
;.EDIT 1546 Fix move of literal 000.0 to PIC 999V9.
; KWS,3-OCT-84,SPR:20-20327
; A:SRC MOVGEN
;
;.EDIT 1545 Fix Report CODE SIXBIT conversion factor
; MJC,19-SEP-84,SPR:NONE
; A:SRC RPWGEN
;.ENDA
INS 7/14 ;10C5
;.AUTOPATCH 10
;
;.EDIT 1133 Make OPEN use long form GTJFN on file-not-found so that the
;; file is opened on the right device.
; MJC,03-JAN-85,SPR:20-20518
; A:SRC CBLIO
;
;.EDIT 1132 Pass an ASCIZ string to RMS rather than an ASCII
;; string (It works better)
; KWS,17-OCT-84,SPR:20-19780
; A:SRC RMSIO
;.EDIT 1131 Fix OPEN I-O filename. so that it doesn't do SMU.
; KWS,15-OCT-84,SPR:20-20390
; A:SRC CBLIO
;
;.ENDA
REP 14/14 ;10C6
;;.EDIT 1127 Tops-10 version 12b only
WIT
;.EDIT 1127 Tops-10 version 12b only
SUM 161949