pip a:=user.plm[g8]
seteof user.plm
isx
plm80 user.plm nolist debug
era user.plm
link user.obj,x0100,plm80.lib to user1.mod
locate user1.mod code(0100H) stacksize(100)
era user1.mod
objhex user1 to user1.hex
link user.obj,x0200,plm80.lib to user2.mod
locate user2.mod code(0200H) stacksize(100)
era user2.mod
objhex user2 to user2.hex
era user2
cpm
objcpm user1
era user1.com
pip user.hex=user1.hex,user2.hex
era user1.hex
era user2.hex
zero
genmod user.hex xuser.prl 
era *.hex
pip a:=abort.plm[g8]
seteof abort.plm
isx
plm80 abort.plm nolist debug
era abort.plm
link abort.obj,x0100,plm80.lib to abort1.mod
locate abort1.mod code(0100H) stacksize(100)
era abort1.mod
objhex abort1 to abort1.hex
link abort.obj,x0200,plm80.lib to abort2.mod
locate abort2.mod code(0200H) stacksize(100)
era abort2.mod
objhex abort2 to abort2.hex
era abort2
cpm
objcpm abort1
era abort1.com
pip abort.hex=abort1.hex,abort2.hex
era abort1.hex
era abort2.hex
zero
genmod abort.hex xabort.prl 
era *.hex
pip a:=mschd.plm[g8]
seteof mschd.plm
isx
plm80 mschd.plm nolist debug
era mschd.plm
link mschd.obj,x0100,plm80.lib to mschd1.mod
locate mschd1.mod code(0100H) stacksize(100)
era mschd1.mod
objhex mschd1 to mschd1.hex
link mschd.obj,x0200,plm80.lib to mschd2.mod
locate mschd2.mod code(0200H) stacksize(100)
era mschd2.mod
objhex mschd2 to mschd2.hex
era mschd2
cpm
objcpm mschd1
era mschd1.com
pip mschd.hex=mschd1.hex,mschd2.hex
era mschd1.hex
era mschd2.hex
zero
genmod mschd.hex xmschd.prl 
era *.hex
sub prlb4