Trailing-Edge
-
PDP-10 Archives
-
bb-kl11c-bm_tops20_v6_1_atpch1_16
-
autopatch/ctree.c16
There are 11 other files named ctree.c16 in the archive. Click here to see a list.
REP 3/1 ;16C1
SUBTTL DATA DIVISION SYNTAX TREE W.NEELY/CAM/SEB
WIT
SUBTTL DATA DIVISION SYNTAX TREE W.NEELY/CAM/SEB/MEM
REP 11/1 ;16C2
COPYRIGHT (C) 1974, 1983, 1986 BY DIGITAL EQUIPMENT CORPORATION
WIT
COPYRIGHT (C) 1974, 1983, 1984, 1986 BY DIGITAL EQUIPMENT CORPORATION
REP 26/1 ;16C3
;V13*****************
;MJC 15-JAN-86 [1626] Loop on RECORD CONTAINS n <junk>.
;JEH 28-MAR-85 [1570] Parse and process reference mod. fields
; for fields which may be subscripted.
WIT
;.VERSION 13
;.EDIT 1641 USER name should be treated the same as a DATA name when
; parsing an index.
; MEM,6-JAN-87,SPR:20-21465
;.EDIT 1637 Call DA64. when file name is seen instead of a report name
; so that RPWRDL is set up for when it is used at D27MCY+15.
; MEM,17-DEC-86,SPR:20-21481
; A:SRC CTREE,COBVER
;
REP 41/3 ;16C4
$ DD59E.,E.395,0,0,0,DD49. ;[1626]Improper clause
WIT
$ DD59E.,E.395,0,0,0,DD59.
REP 24/7 ;16C5
$ DD205S,0,0,0,0,<DD206.,DD206E,DD207.>
$ DD206.,DA64.,RPNAM.,0,0,<DD40.,DD209.> ;[174] REP-NAM: INIT RD
$ DD206E,DA64E.,USERN.,0,0,DD206.
WIT
$ DD205S,0,0,0,0,<DD206.,DD206E,DD206F,DD207.> ;[1637]
$ DD206.,DA64.,RPNAM.,0,0,<DD40.,DD209.> ;[174] REP-NAM: INIT RD
$ DD206E,DA64E.,USERN.,0,0,DD206.
$ DD206F,DA64E.,FILEN.,0,0,DD206. ;[1637]
REP 17/20 ;16C6
$ DD815.,DA225.,0,0,0,<DD810.,DD812.,DD816.,DD817I,DD814.> ;[1570]
WIT
$ DD815.,DA225.,0,0,0,<DD810.,DD812.,DD816.,DD814.>
REP 25/20 ;16C7
$ DD817G,0,0,0,0,<DD810.,DD812.,DD816.,DD817H>
$ DD817H,E.251,0,0,0,DD816.
;[1570] scan reference modifiers
$ DD817I,DA232.,COLON.,0,0,<DD817J,DD817K,DD817L> ;[1570]stored offset as sub
$ DD817J,DA233.,INTGR.,0,0,<DD817K,DD817L> ;[1570]found length
$ DD817K,DA234.,RPREN.,0,0,DD512. ;[1570]end of modification
$ DD817L,E.849,0,0,0,DD801. ;[1570]unexpected format
WIT
$ DD817G,0,0,0,0,<DD810.,DD812.,DD816.,DD817I,DD817H> ;[1641]
$ DD817H,E.251,0,0,0,DD816.
$ DD817I,E.251,USERN.,0,0,DD817J ;[1641]
$ DD817J,DA220.,0,0,0,DD817. ;[1641] USERN same as DATAN
SUM 169557