mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-27 02:14:19 +00:00
Upload
Digital Research
This commit is contained in:
71
MPM OPERATING SYSTEMS/MPM II/MPM II SOURCE/UTIL5/PRLB3.OLD
Normal file
71
MPM OPERATING SYSTEMS/MPM II/MPM II SOURCE/UTIL5/PRLB3.OLD
Normal file
@@ -0,0 +1,71 @@
|
||||
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
|
||||
|
||||
Reference in New Issue
Block a user