; BUILD FILE FOR MATLIB
;
.ENABLE SUBSTITUTION
.SETS NULL ""
.ASK X DO YOU WANT TO REASSEMBLE ALL MODULES
.IFF X .GOTO 20
ASN NL:=LS:
.ASK X DO YOU WANT A LISTING
.IFT X ASN SY:=LS:
MAC CROSS,LS:CROSS=CROSS 
MAC CROSSD,LS:CROSSD=CROSSD 
MAC DOT,LS:DOT=DOT 
MAC DOTD,LS:DOTD=DOTD 
MAC IDENT,LS:IDENT=IDENT
MAC IDENTD,LS:IDENTD=IDENTD
MAC MABT,LS:MABT=MABT
MAC MABTD,LS:MABTD=MABTD
MAC MADD,LS:MADD=MADD
MAC MADDD,LS:MADDD=MADDD
MAC MATB,LS:MATB=MATB
MAC MATBD,LS:MATBD=MATBD
MAC MCLR,LS:MCLR=MCLR
MAC MCLRD,LS:MCLRD=MCLRD
MAC MCOM,LS:MCOM=MCOM
MAC MCOMD,LS:MCOMD=MCOMD
MAC MMOV,LS:MMOV=MMOV
MAC MMOVD,LS:MMOVD=MMOVD
MAC MMUL,LS:MMUL=MMUL
MAC MMULD,LS:MMULD=MMULD
MAC MSCL,LS:MSCL=MSCL
MAC MSCLD,LS:MSCLD=MSCLD
MAC MSUB,LS:MSUB=MSUB
MAC MSUBD,LS:MSUBD=MSUBD
MAC MTRN,LS:MTRN=MTRN
MAC MTRND,LS:MTRND=MTRND
MAC PROD,LS:PROD=PROD
MAC PRODD,LS:PRODD=PRODD
MAC VADD,LS:VADD=VADD
MAC VADDD,LS:VADDD=VADDD
MAC VCLR,LS:VCLR=VCLR
MAC VCLRD,LS:VCLRD=VCLRD
MAC VCOM,LS:VCOM=VCOM
MAC VCOMD,LS:VCOMD=VCOMD
MAC VMAG,LS:VMAG=VMAG
MAC VMAGD,LS:VMAGD=VMAGD
MAC VMOV,LS:VMOV=VMOV
MAC VMOVD,LS:VMOVD=VMOVD
MAC VSCL,LS:VSCL=VSCL
MAC VSCLD,LS:VSCLD=VSCLD
MAC VSUB,LS:VSUB=VSUB
MAC VSUBD,LS:VSUBD=VSUBD
PIP MATLIB.LST=CROSS.LST
PIP MATLIB.LST/AP=CROSSD.LST
PIP MATLIB.LST/AP=DOT.LST
PIP MATLIB.LST/AP=DOTD.LST
PIP MATLIB.LST/AP=IDENT.LST
PIP MATLIB.LST/AP=IDENTD.LST
PIP MATLIB.LST/AP=MABT.LST
PIP MATLIB.LST/AP=MABTD.LST
PIP MATLIB.LST/AP=MADD.LST
PIP MATLIB.LST/AP=MADDD.LST
PIP MATLIB.LST/AP=MATB.LST
PIP MATLIB.LST/AP=MATBD.LST
PIP MATLIB.LST/AP=MCLR.LST
PIP MATLIB.LST/AP=MCLRD.LST
PIP MATLIB.LST/AP=MCOM.LST
PIP MATLIB.LST/AP=MCOMD.LST
PIP MATLIB.LST/AP=MMOV.LST
PIP MATLIB.LST/AP=MMOVD.LST
PIP MATLIB.LST/AP=MMUL.LST
PIP MATLIB.LST/AP=MMULD.LST
PIP MATLIB.LST/AP=MSCL.LST
PIP MATLIB.LST/AP=MSCLD.LST
PIP MATLIB.LST/AP=MSUB.LST
PIP MATLIB.LST/AP=MSUBD.LST
PIP MATLIB.LST/AP=MTRN.LST
PIP MATLIB.LST/AP=MTRND.LST
PIP MATLIB.LST/AP=PROD.LST
PIP MATLIB.LST/AP=PRODD.LST
PIP MATLIB.LST/AP=VADD.LST
PIP MATLIB.LST/AP=VADDD.LST
PIP MATLIB.LST/AP=VCLR.LST
PIP MATLIB.LST/AP=VCLRD.LST
PIP MATLIB.LST/AP=VCOM.LST
PIP MATLIB.LST/AP=VCOMD.LST
PIP MATLIB.LST/AP=VMAG.LST
PIP MATLIB.LST/AP=VMAGD.LST
PIP MATLIB.LST/AP=VMOV.LST
PIP MATLIB.LST/AP=VMOVD.LST
PIP MATLIB.LST/AP=VSCL.LST
PIP MATLIB.LST/AP=VSCLD.LST
PIP MATLIB.LST/AP=VSUB.LST
PIP MATLIB.LST/AP=VSUBD.LST
PIP CROSS.LST;*,DOT.LST;*,IDENT.LST;*,MABT.LST;*,MADD.LST;*/DE
PIP CROSSD.LST;*,DOTD.LST;*,IDENTD.LST;*,MABTD.LST;*,MADDD.LST;*/DE
PIP MATB.LST;*,MCLR.LST;*,MCOM.LST;*,MMOV.LST;*,MMUL.LST;*/DE
PIP MATBD.LST;*,MCLRD.LST;*,MCOMD.LST;*,MMOVD.LST;*,MMULD.LST;*/DE
PIP MSCL.LST;*,MSUB.LST;*,MTRN.LST;*,PROD.LST;*,VADD.LST;*/DE
PIP MSCLD.LST;*,MSUBD.LST;*,MTRND.LST;*,PRODD.LST;*,VADDD.LST;*/DE
PIP VCLR.LST;*,VCOM.LST;*,VMAG.LST;*,VSCL.LST;*,VMOV.LST;*/DE
PIP VCLRD.LST;*,VCOMD.LST;*,VMAGD.LST;*,VSCLD.LST;*,VMOVD.LST;*/DE
PIP VSUB.LST;*/DE
PIP VSUBD.LST;*/DE
LBR MATLIB/CR=CROSS,CROSSD,DOT,DOTD,IDENT,IDENTD,MABT,MABTD
LBR MATLIB/RP=MADD,MADDD,MATB,MATBD,MCLR,MCLRD,MCOM,MCOMD
LBR MATLIB/RP=MMOV,MMOVD,MMUL,MMULD,MSCL,MSCLD,MSUB,MSUBD,MTRN,MTRND
LBR MATLIB/RP=PROD,PRODD,VADD,VADDD,VCLR,VCLRD,VCOM,VCOMD,VMAG,VMAGD
LBR MATLIB/RP=VMOV,VMOVD,VSCL,VSCLD,VSUB,VSUBD
.GOTO 30
;
.20: .ASK X DO YOU WANT TO ASSEMBLE INDIVIDUAL MODULES
.IFF X .GOTO 30
.25: .ASKS FILE ENTER NAME OF MACRO MODULE
.IF FILE EQ NULL .GOTO 30
.ASK X DO YOU WANT A LISTING
.IFF X .GOTO 70
MAC SY:'FILE','FILE'='FILE'
.GOTO 71
;
.70: MAC SY:'FILE'='FILE'
.71: .ASK A LIBRARY MOD.
.IFF A .GOTO 25
LBR SY:MATLIB/RP=SY:'FILE'.OBJ
PIP SY:'FILE'.OBJ;*/DE
.GOTO 25
;
.30: .ASK X DO YOU WANT AN OBJECT LIBRARY LISTING
.IFT X LBR SY:MATLIB.OLB,SY:MATLIB.LST/FU/LE