; create DDTZ27 from the sources using M80 and L80
XSUB
M80 =DDTZ27
M80 =DDTDISA
M80 =CCINSTAL
L80 CCINSTAL,CCINSTAL/N/E
ERA CCINSTAL.REL
L80 /P:0,DDTDISA,DDTZ27,DDTZERO/N/E
N
L80 /P:100,DDTDISA,DDTZ27,DDTONE/N/E
ERA DDTDISA.REL
ERA DDTZ27.REL
DDT CCINSTAL.COM
IDDTZERO.COM
R100
D203,204
IDDTONE.COM
R19E1
G0
GO
SAVE 29 DDTZNEW.COM
ERA DDTONE.COM
ERA DDTZERO.COM
ERA CCINSTAL.COM
; done DDTZNEW.COM is the new DDTZ27.COM
