mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-25 09:24:19 +00:00
85 lines
2.0 KiB
Plaintext
85 lines
2.0 KiB
Plaintext
pip a:=e:user.plm
|
||
seteof user.plm
|
||
isx
|
||
plm80 user.plm pagewidth(80) 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
|
||
ren user.sym=user1.sym
|
||
ren user.lin=user1.lin
|
||
vax user.lst $$stan
|
||
vax user.sym $$stan
|
||
vax user.lin $$stan
|
||
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 e:user.prl=a:xuser.prl
|
||
pip b:user.prl=a:xuser.prl
|
||
era xuser.*
|
||
pip a:=e:abort.plm
|
||
seteof abort.plm
|
||
isx
|
||
plm80 abort.plm pagewidth(80) 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
|
||
ren abortp.lst=abort.lst
|
||
ren abortp.sym=abort1.sym
|
||
ren abortp.lin=abort1.lin
|
||
vax abortp.lst $$stan
|
||
vax abortp.sym $$stan
|
||
vax abortp.lin $$stan
|
||
pip abort.hex=abort1.hex,abort2.hex
|
||
era abort1.hex
|
||
era abort2.hex
|
||
zero
|
||
genmod abort.hex xabort.prl
|
||
era *.hex
|
||
pip e:abort.prl=a:xabort.prl
|
||
pip b:abort.prl=a:xabort.prl
|
||
era xabort.*
|
||
pip a:=e:mschd.plm
|
||
seteof mschd.plm
|
||
isx
|
||
plm80 mschd.plm pagewidth(80) 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
|
||
ren schedp.lst=mschd.lst
|
||
ren schedp.sym=mschd1.sym
|
||
ren schedp.lin=mschd1.lin
|
||
submit e:prlb3b
|
||
|