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:
100
MPM OPERATING SYSTEMS/MPM II/MPM II SOURCE/UTIL5/PRLB2.SUB
Normal file
100
MPM OPERATING SYSTEMS/MPM II/MPM II SOURCE/UTIL5/PRLB2.SUB
Normal file
@@ -0,0 +1,100 @@
|
||||
pip a:=e:prlcm.plm
|
||||
seteof prlcm.plm
|
||||
isx
|
||||
plm80 prlcm.plm pagewidth(80) debug
|
||||
era prlcm.plm
|
||||
link prlcm.obj,x0100,plm80.lib to prlcm1.mod
|
||||
locate prlcm1.mod code(0100H) stacksize(100)
|
||||
era prlcm1.mod
|
||||
objhex prlcm1 to prlcm1.hex
|
||||
link prlcm.obj,x0200,plm80.lib to prlcm2.mod
|
||||
locate prlcm2.mod code(0200H) stacksize(100)
|
||||
era prlcm2.mod
|
||||
objhex prlcm2 to prlcm2.hex
|
||||
era prlcm2
|
||||
cpm
|
||||
objcpm prlcm1
|
||||
ren prlcom.lst=prlcm.lst
|
||||
ren prlcom.lin=prlcm1.lin
|
||||
ren prlcom.sym=prlcm1.sym
|
||||
vax prlcom.lst $$stan
|
||||
vax prlcom.sym $$stan
|
||||
vax prlcom.lin $$stan
|
||||
era prlcm1.com
|
||||
pip prlcm.hex=prlcm1.hex,prlcm2.hex
|
||||
era prlcm1.hex
|
||||
era prlcm2.hex
|
||||
zero
|
||||
genmod prlcm.hex xprlcm.prl
|
||||
era *.hex
|
||||
pip e:prlcom.prl=a:xprlcm.prl
|
||||
pip b:prlcom.prl=a:xprlcm.prl
|
||||
pip a:=e:sub.plm
|
||||
seteof sub.plm
|
||||
isx
|
||||
plm80 sub.plm pagewidth(80) debug
|
||||
era sub.plm
|
||||
link sub.obj,x0100,plm80.lib to sub1.mod
|
||||
locate sub1.mod code(0100H) stacksize(100)
|
||||
era sub1.mod
|
||||
objhex sub1 to sub1.hex
|
||||
link sub.obj,x0200,plm80.lib to sub2.mod
|
||||
locate sub2.mod code(0200H) stacksize(100)
|
||||
era sub2.mod
|
||||
objhex sub2 to sub2.hex
|
||||
era sub2
|
||||
cpm
|
||||
objcpm sub1
|
||||
ren submit.lst=sub.lst
|
||||
ren submit.lin=sub1.lin
|
||||
ren submit.sym=sub1.sym
|
||||
vax submit.lst $$stan
|
||||
vax submit.sym $$stan
|
||||
vax submit.lin $$stan
|
||||
era sub1.com
|
||||
pip sub.hex=sub1.hex,sub2.hex
|
||||
era sub1.hex
|
||||
era sub2.hex
|
||||
zero
|
||||
genmod sub.hex xsub.prl
|
||||
era *.hex
|
||||
pip e:submit.prl=a:xsub.prl
|
||||
pip b:submit.prl=a:xsub.prl
|
||||
pip a:=e:tod.plm
|
||||
seteof tod.plm
|
||||
isx
|
||||
plm80 tod.plm pagewidth(80) debug
|
||||
era tod.plm
|
||||
link tod.obj,x0100,plm80.lib to tod1.mod
|
||||
locate tod1.mod code(0100H) stacksize(100)
|
||||
era tod1.mod
|
||||
objhex tod1 to tod1.hex
|
||||
link tod.obj,x0200,plm80.lib to tod2.mod
|
||||
locate tod2.mod code(0200H) stacksize(100)
|
||||
era tod2.mod
|
||||
objhex tod2 to tod2.hex
|
||||
era tod2
|
||||
cpm
|
||||
objcpm tod1
|
||||
ren tod.sym=tod1.sym
|
||||
ren tod.lin=tod1.lin
|
||||
vax tod.lst $$stan
|
||||
vax tod.sym $$stan
|
||||
vax tod.lin $$stan
|
||||
era tod1.com
|
||||
pip tod.hex=tod1.hex,tod2.hex
|
||||
era tod1.hex
|
||||
era tod2.hex
|
||||
zero
|
||||
genmod tod.hex xtod.prl
|
||||
era *.hex
|
||||
pip e:tod.prl=a:xtod.prl
|
||||
pip b:tod.prl=a:xtod.prl
|
||||
era *.lst
|
||||
era *.lin
|
||||
era *.sym
|
||||
era xtod*.*
|
||||
era xsub.prl
|
||||
era xprlcm.*
|
||||
submit e:prlb3
|
||||
|
||||
Reference in New Issue
Block a user