era b:*.lst
era b:*.lin
era b:*.sym
era b:*.bak
isdd
plm80 :f1:drst.plm pagewidth(80) debug
cpm
pip lst:=b:drst.lst
pip lst:=nul:[p]
era b:drst.lst
isdd
link :f1:drst.obj,:f1:x0100,plm80.lib to :f1:drst1.mod
locate :f1:drst1.mod code(0100H) stacksize(48)
era b:drst1.mod
objhex :f1:drst1 to :f1:drst1.hex
link :f1:drst.obj,:f1:x0200,plm80.lib to :f1:drst2.mod
locate :f1:drst2.mod code(0200H) stacksize(48)
era b:drst2.mod
objhex :f1:drst2 to :f1:drst2.hex
era b:drst2
cpm
objcpm b:drst1
era b:drst*.
era b:drst1.com
pip b:drst.hex=b:drst1.hex,b:drst2.hex
era b:drst1.hex
era b:drst2.hex
genmod b:drst.hex b:dskreset.prl 
era b:*.hex
pip lst:=b:drst1.sym[pt8]
pip lst:=b:drst1.lin[pt8]
pip lst:=nul:[p]
era b:*.lst
era b:*.lin
era b:*.sym
era b:*.bak
isdd
plm80 :f1:era.plm pagewidth(80) debug
cpm
pip lst:=b:era.lst
pip lst:=nul:[p]
era b:era.lst
isdd
link :f1:era.obj,:f1:x0100,plm80.lib to :f1:era1.mod
locate :f1:era1.mod code(0100H) stacksize(48)
era b:era1.mod
objhex :f1:era1 to :f1:era1.hex
link :f1:era.obj,:f1:x0200,plm80.lib to :f1:era2.mod
locate :f1:era2.mod code(0200H) stacksize(48)
era b:era2.mod
objhex :f1:era2 to :f1:era2.hex
era b:era2
cpm
objcpm b:era1
era b:era*.
era b:era1.com
pip b:era.hex=b:era1.hex,b:era2.hex
era b:era1.hex
era b:era2.hex
genmod b:era.hex b:era.prl 
era b:*.hex
pip lst:=b:era1.sym[pt8]
pip lst:=b:era1.lin[pt8]
pip lst:=nul:[p]
sub prl3
