.Enable Substitution
;
; Building MDDRV Package on '<Date>' at '<Time>'
;
;
; Assembling MDDRV
;
Delete/Nowarnings Mddrv.Obj;*,.Lst;*
Macro Lb:[1,5]Rsxmc/Pass:1,Sy:'<Direct>'Mddrv/List
.If <Exstat> <> <Succes> .Goto Abort
;
; Assembling MDTAB
;
Delete/Nowarnings Mdtab.Obj;*,.Lst;*
Macro Lb:[1,5]Exemc/Library,Rsxmc/Pass:1,Sy:'<Direct>'Mdtab/List
.If <Exstat> <> <Succes> .Goto Abort
;
; Linking MDDRV driver
;
.Open Mddrv.Tmp
.Enable Data
Mddrv/-Hd/-Mm,Mddrv/Ma,Mddrv=
Mddrv
Mdtab
Lb:[1,5]Prvlib/Lb/Ss
Lb:[1,5]Pos.Stb/Ss
Lb:[1,5]Exelib/Lb/Ss
/
Stack=0
Par=Gen:120000:40000
//
.Disable Data
.Close
Delete/Nowarnings Mddrv.Tsk;*,.Map;*,.Stb;*
Delete/Nowarnings Lb:[Zzsys]Mddrv.*;*
Link @Mddrv.Tmp
.Setn Exstat <Exstat>
Delete Mddrv.Tmp;*
.If Exstat <> <Succes> .Goto Abort
Copy Mddrv.Tsk,.Stb Lb:[Zzsys]
;
; Assembling MDLOAD loader task
;
Delete/Nowarnings Mdload.Obj;*,.Lst;*
Macro Mdload/List
.If <Exstat> <> <Succes> .Goto Abort
;
; Linking MDLOAD loader task
;
.Open Mddrv.Tmp
.Enable Data
Mdload/-Fp,Mdload=Mdload
/
Clstr=Possum,Posres:Ro
Gbldef=Tt$Efn:5
Gbldef=Tt$Lun:5
Gbldef=Wc$Lun:0
//
.Disable Data
.Close
Delete/Nowarnings Mdload.Tsk;*,.Map;*
Delete/Nowarnings Lb:[Zzprodcl]Mdload.Tsk;*
Link @Mddrv.Tmp
.Setn Exstat <Exstat>
Delete Mddrv.Tmp;*
.If Exstat <> <Succes> .Goto Abort
Copy Mdload.Tsk Lb:[Zzprodcl]
;
; Assembling MDUNLOAD unloader task
;
Delete/Nowarnings Mdunload.Obj;*,.Lst;*
Macro Mdunload/List
.If <Exstat> <> <Succes> .Goto Abort
;
; Linking MDUNLOAD unloader task
;
.Open Mddrv.Tmp
.Enable Data
Mdunload/-Fp,Mdunload=Mdunload
/
Clstr=Possum,Posres:Ro
Gbldef=Tt$Efn:5
Gbldef=Tt$Lun:5
Gbldef=Wc$Lun:0
//
.Disable Data
.Close
Delete/Nowarnings Mdunload.Tsk;*,.Map;*
Delete/Nowarnings Lb:[Zzprodcl]Mdunload.Tsk;*
Link @Mddrv.Tmp
.Setn Exstat <Exstat>
Delete Mddrv.Tmp;*
.If Exstat <> <Succes> .Goto Abort
Copy Mdunload.Tsk Lb:[Zzprodcl]
.Done:
;
; End of MDDRV build on '<Date>' at '<Time>'
;
.Enable Quiet
.Exit
.Abort:
;
; Error detected, build aborting.....
;
.Goto Done
