home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
norge.freeshell.org (192.94.73.8)
/
192.94.73.8.tar
/
192.94.73.8
/
pub
/
computers
/
cpm
/
alphatronic
/
DRIPAK.ZIP
/
CPM_3-0
/
SOURCES
/
CPM3PLM4.SUB
< prev
next >
Wrap
Text File
|
1982-12-31
|
2KB
|
114 lines
;
; ED Generation
;
stat con:=tty:
vax $$as\sd mason.cpm30.sources\ar
vax ed.plm $$stran
vax copyrt.lit $$stran
stat con:=uc1:
seteof ed.plm
seteof copyrt.lit
is14
plm80 ed.plm optimize debug
link mcd80a.obj,ed.obj,plm80.lib to ed.mod
locate ed.mod code(0100h) stacksize(100) map print(ed.tra)
cpm
zero
objcpm ed
era ed
era ed.obj
stat con:=tty:
vax $$as\sd mason.cpm30.listing\ar
vax ed.lst $$stran
vax ed.sym $$stran
vax ed.lin $$stran
stat con:=uc1:
era *.lst
era *.sym
era *.lin
;
; GENCOM, SET, SHOW Generation
;
stat con:=tty:
vax $$as\sd mason.cpm30.sources\ar
vax gencom.plm $$stran
vax show.plm $$stran
vax set.plm $$stran
vax sopt.inc $$stran
vax sopt.dcl $$stran
stat con:=uc1:
seteof gencom.plm
seteof show.plm
seteof set.plm
seteof sopt.inc
seteof sopt.dcl
era gencom
era show
era set
era gencom.obj
era set.obj
era show.obj
;
; Compile GENCOM
;
is14
PLM80 GENCOM.PLM debug optimize PAGEWIDTH(132)
link mcd80a.obj,parse.obj,GENCOM.obj,plm80.lib to gencom.mod
locate gencom.mod code(0100H) stacksize(100) map print(gencom.tra)
cpm
zero
objcpm gencom
era gencom
era gencom.obj
;
; Compile SHOW
;
is14
PLM80 show.PLM debug optimize PAGEWIDTH(132)
link mcd80a.obj,show.obj,plm80.lib to show.mod
locate show.mod code(0100H) stacksize(100) map print(show.tra)
cpm
zero
objcpm show
era show
era show.obj
;
; Compile SET
;
is14
PLM80 set.PLM debug optimize PAGEWIDTH(132)
link mcd80a.obj,parse.obj,set.obj,plm80.lib to set.mod
locate set.mod code(0100H) stacksize(100) map print(set.tra)
cpm
zero
objcpm set
era set
era set.obj
;
; Print out GENCOM,SET,SHOW Modules
;
stat con:=tty:
vax $$as\sd mason.cpm30.listing
vax gencom.lst $$stran
vax gencom.sym $$stran
vax gencom.lin $$stran
vax set.lst $$stran
vax set.sym $$stran
vax set.lin $$stran
vax show.lst $$stran
vax show.sym $$stran
vax show.lin $$stran
stat con:=uc1:
era set.mod
era set.lin
era set.tra
era show.mod
era show.lin
era show.tra
era gencom.mod
era gencom.lin
era gencom.tra
;
; chain next one
sub cpm3plm5