Files
Digital-Research-Source-Code/MPM OPERATING SYSTEMS/MPM I/MPM I SOURCE/01/prl4.sub
Sepp J Morris 31738079c4 Upload
Digital Research
2020-11-06 18:50:37 +01:00

1 line
1.4 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

era b:*.lst
era b:*.lin
era b:*.sym
era b:*.bak
isdd
plm80 :f1:prlcm.plm pagewidth(80) debug
cpm
pip lst:=b:prlcm.lst
pip lst:=nul:[p]
era b:prlcm.lst
isdd
link :f1:prlcm.obj,:f1:x0100,plm80.lib to :f1:prlcm1.mod
locate :f1:prlcm1.mod code(0100H) stacksize(48)
era b:prlcm1.mod
objhex :f1:prlcm1 to :f1:prlcm1.hex
link :f1:prlcm.obj,:f1:x0200,plm80.lib to :f1:prlcm2.mod
locate :f1:prlcm2.mod code(0200H) stacksize(48)
era b:prlcm2.mod
objhex :f1:prlcm2 to :f1:prlcm2.hex
era b:prlcm2
cpm
objcpm b:prlcm1
era b:prlcm*.
era b:prlcm1.com
pip b:prlcm.hex=b:prlcm1.hex,b:prlcm2.hex
era b:prlcm1.hex
era b:prlcm2.hex
genmod b:prlcm.hex b:prlcom.prl
era b:*.hex
pip lst:=b:prlcm1.sym[pt8]
pip lst:=b:prlcm1.lin[pt8]
pip lst:=nul:[p]
era b:*.lst
era b:*.lin
era b:*.sym
era b:*.bak
isdd
plm80 :f1:ren.plm pagewidth(80) debug
cpm
pip lst:=b:ren.lst
pip lst:=nul:[p]
era b:ren.lst
isdd
link :f1:ren.obj,:f1:x0100,plm80.lib to :f1:ren1.mod
locate :f1:ren1.mod code(0100H) stacksize(48)
era b:ren1.mod
objhex :f1:ren1 to :f1:ren1.hex
link :f1:ren.obj,:f1:x0200,plm80.lib to :f1:ren2.mod
locate :f1:ren2.mod code(0200H) stacksize(48)
era b:ren2.mod
objhex :f1:ren2 to :f1:ren2.hex
era b:ren2
cpm
objcpm b:ren1
era b:ren*.
era b:ren1.com
pip b:ren.hex=b:ren1.hex,b:ren2.hex
era b:ren1.hex
era b:ren2.hex
genmod b:ren.hex b:ren.prl
era b:*.hex
pip lst:=b:ren1.sym[pt8]
pip lst:=b:ren1.lin[pt8]
pip lst:=nul:[p]
sub prl5