Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-bb
-
ctree.c05
There are 2 other files named ctree.c05 in the archive. Click here to see a list.
REP 10/1 ;05C1
;COPYRIGHT (C) 1974, 1981 BY DIGITAL EQUIPMENT CORPORATION
WIT
;COPYRIGHT (C) 1974, 1981, 1982 BY DIGITAL EQUIPMENT CORPORATION
INS 21/1 ;05C2
;V12B*******************
;SMI 03-DEC-82 [1436] 68274 Fix PA1050 ill. inst. when in COMM. SEC.
;RJD 24-MAY-82 [1356] Allow qualification in DATA RECORDS ARE clause
REP 46/3 ;05C3
$ DD70.,DA18.,USERN.,0,0,<DD72.,DD70.,DD40.,DD42.>
$ DD71.,E.17,0,0,0,DD39.
$ DD70C.,DA18.,DATAN.,0,0,<DD72.,DD70.,DD40.,DD42.>
WIT
$ DD70.,DA18.,USERN.,0,0,<DD70D.,DD72.,DD70.,DD70C.,DD40.,DD42.> ;[1356] Insert node for OF
$ DD71.,E.17,0,0,0,DD39.
$ DD70C.,DA18.,DATAN.,0,0,<DD70D.,DD72.,DD70.,DD40.,DD42.> ;[1356] Check for OF or IN
$ DD70D.,0,OF.,0,0,<DD70E.,DD70F.> ;[1356] Here if 0F or IN
$ DD70E.,DA18A.,FILEN.,0,0,<DD72.,DD70.,DD40.,DD42.> ;[1356] Current filename used?
$ DD70F.,E.13,0,0,0,DD39. ;[1356] No filename given
REP 44/16 ;05C4
$68 DD422.,DA124.,DEPTH.,0,0,DD439.
WIT
$68 DD422.,DA124B,DEPTH.,0,0,DD439. ;[1436]
SUM 25003