mac b:ddt1asm $$+s
pip lst:=b:ddt1asm.prn[lt8]
pip lst:=nul:[p]
era b:ddt1asm.prn
era b:ddt1asm0.hex
ren b:ddt1asm0.hex=b:ddt1asm.hex
mac b:ddt1asm $$pzsz+r
era b:ddt1asm1.hex
ren b:ddt1asm1.hex=b:ddt1asm.hex
mac b:ddt2mon $$+s
pip lst:=b:ddt2mon.prn[lt8]
pip lst:=nul:[p]
era b:ddt2mon.prn
era b:ddt2mon0.hex
ren b:ddt2mon0.hex=b:ddt2mon.hex
mac b:ddt2mon $$pzsz+r
era b:ddt2mon1.hex
ren b:ddt2mon1.hex=b:ddt2mon.hex
pip b:relddt0.hex=b:ddt1asm0.hex[i],b:ddt2mon0.hex[h]
era b:ddt1asm0.hex
era b:ddt2mon0.hex
pip b:relddt1.hex=b:ddt1asm1.hex[i],b:ddt2mon1.hex[h]
era b:ddt1asm1.hex
era b:ddt2mon1.hex
pip b:relddt.hex=b:relddt0.hex,b:relddt1.hex
era b:relddt0.hex
era b:relddt1.hex
genmod b:relddt.hex b:relddt.com
era b:relddt.hex
genhex b:relddt 100
era b:relddt0.hex
ren b:relddt0.hex=b:relddt.hex
genhex b:relddt 200
era b:relddt.com
era b:relddt1.hex
ren b:relddt1.hex=b:relddt.hex
mac b:ddt0mov $$+s
pip lst:=b:ddt0mov.prn[lt8]
pip lst:=nul:[p]
era b:ddt0mov.prn
era b:ddt0mov0.hex
ren b:ddt0mov0.hex=b:ddt0mov.hex
mac b:ddt0mov $$pzsz+r
era b:ddt0mov1.hex
ren b:ddt0mov1.hex=b:ddt0mov.hex
pip b:relddt0.hex=b:relddt0.hex[i],b:ddt0mov0.hex[h]
era b:ddt0mov0.hex
pip b:relddt1.hex=b:relddt1.hex[i],b:ddt0mov1.hex[h]
era b:ddt0mov1.hex
pip b:relddt.hex=b:relddt0.hex,b:relddt1.hex
era b:relddt0.hex
era b:relddt1.hex
genmod b:relddt.hex b:rdt.prl $$z1500
era b:relddt.hex
sub asmgen