Trailing-Edge
-
PDP-10 Archives
-
bb-kl11f-bm_tops20_v7_0_atpch1_19
-
autopatch/dtree.c11
There are 2 other files named dtree.c11 in the archive. Click here to see a list.
INS 4/2 ;11C1
;MJC 4-Apr-85 [1573] Fix edit 1556. Add PD158A for cbl115 error
; on USE ...
;JEH 22-MAR-85 [1564] Fix 'set condition-name' code.
REP 22/4 ;11C2
$ PD117A,PA173.,0,0,0,<PD117B,PD158.,PD120.>
WIT
$ PD117A,PA173.,0,0,0,<PD117B,PD158A,PD120.> ;[1573]
INS 41/5 ;11C3
$ PD158A,PCA7BA,PRIOD.,0,0,0 ;[1573]
REP 30/30 ;11C4
$ PD1023,PA233.,DATAN.,0,0,<PD158.,PD1025>
$ PD1025,DE125.,0,0,0,PD158.
$ PD1026,E.104,USERN.,0,0,<PD158.,PD1025>
WIT
$ PD1023,PA233.,DATAN.,0,0,<PD158A,PD1025> ;[1573]
$ PD1025,DE125.,0,0,0,PD158A ;[1573]
$ PD1026,E.104,USERN.,0,0,<PD158A,PD1025> ;[1573]
REP 4/46 ;11C5
$ PD2000,PCA5.,CONDI.,0,0,<PD2000,PD2001,PD2003>
$ PD2001,0,TO.,0,0,<PD2002,PD2004>
$ PD2002,PA800.,TRUE.,0,0,PD172.
WIT
$ PD2000,PA2.HI,CONDI.,0,0,P2000A ;[1564]
$ P2000A,PD800A,0,1,0,P2000B ;[1564] Scan cond.-name(subs)
$ P2000B,PA21.,0,0,0,<P2000C,PD2001,PD2003> ;[1564] Put operand in genfil
$ P2000C,PCA98.,CONDI.,0,0,PD2000 ;[1564] Put operator in genfil
$ PD2001,0,TO.,0,0,<PD2002,PD2004>
$ PD2002,PA800.,TRUE.,0,0,PD172. ;[1564] Put out op code
SUM 236566