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:cns.plm
|
||
seteof cns.plm
|
||
isx
|
||
plm80 cns.plm pagewidth(80) debug
|
||
era cns.plm
|
||
link cns.obj,x0100,plm80.lib to cns1.mod
|
||
locate cns1.mod code(0100H) stacksize(100)
|
||
era cns1.mod
|
||
objhex cns1 to cns1.hex
|
||
link cns.obj,x0200,plm80.lib to cns2.mod
|
||
locate cns2.mod code(0200H) stacksize(100)
|
||
era cns2.mod
|
||
objhex cns2 to cns2.hex
|
||
era cns2
|
||
cpm
|
||
objcpm cns1
|
||
ren console.lst=cns.lst
|
||
ren console.lin=cns1.lin
|
||
ren console.sym=cns1.sym
|
||
vax console.lst $$stan
|
||
vax console.sym $$stan
|
||
vax console.lin $$stan
|
||
era cns1.com
|
||
pip cns.hex=cns1.hex,cns2.hex
|
||
era cns1.hex
|
||
era cns2.hex
|
||
zero
|
||
genmod cns.hex xcns.prl
|
||
era *.hex
|
||
pip e:console.prl=a:xcns.prl
|
||
pip b:console.prl=a:xcns.prl
|
||
era xcns.prl
|
||
pip a:=e:drst.plm
|
||
seteof drst.plm
|
||
isx
|
||
plm80 drst.plm pagewidth(80) debug
|
||
era drst.plm
|
||
link drst.obj,x0100,plm80.lib to drst1.mod
|
||
locate drst1.mod code(0100H) stacksize(100)
|
||
era drst1.mod
|
||
objhex drst1 to drst1.hex
|
||
link drst.obj,x0200,plm80.lib to drst2.mod
|
||
locate drst2.mod code(0200H) stacksize(100)
|
||
era drst2.mod
|
||
objhex drst2 to drst2.hex
|
||
era drst2
|
||
cpm
|
||
objcpm drst1
|
||
ren dskreset.lst=drst.lst
|
||
ren dskreset.lin=drst1.lin
|
||
ren dskreset.sym=drst1.sym
|
||
vax dskreset.lst $$stan
|
||
vax dskreset.sym $$stan
|
||
vax dskreset.lin $$stan
|
||
era drst1.com
|
||
pip drst.hex=drst1.hex,drst2.hex
|
||
era drst1.hex
|
||
era drst2.hex
|
||
zero
|
||
genmod drst.hex xdrst.prl
|
||
era *.hex
|
||
pip e:dskreset.prl=a:xdrst.prl
|
||
pip b:dskreset.prl=a:xdrst.prl
|
||
era xdrst.*
|
||
pip a:=e:print.plm
|
||
seteof print.plm
|
||
isx
|
||
plm80 print.plm pagewidth(80) debug
|
||
era print.plm
|
||
link print.obj,x0100,plm80.lib to print1.mod
|
||
locate print1.mod code(0100H) stacksize(100)
|
||
era print1.mod
|
||
objhex print1 to print1.hex
|
||
link print.obj,x0200,plm80.lib to print2.mod
|
||
locate print2.mod code(0200H) stacksize(100)
|
||
era print2.mod
|
||
objhex print2 to print2.hex
|
||
era print2
|
||
cpm
|
||
objcpm print1
|
||
ren printer.lst=print.lst
|
||
ren printer.lin=print1.lin
|
||
ren printer.sym=print1.sym
|
||
submit e:prlb1b
|
||
|