.ENABLE SUBSTITUTION
.ASK MPL RSX11M PLUS SYSTEM (USE FCSFSL)
.DISABLE LOWERCASE
.ASKS MOD MODULE OR ALL
.ENABLE LOWERCASE
.IF MOD = "DISA" .OR .IF MOD = "ALL" MAC DISA,DISA/-SP=LB:[1,1]EXEMC/ML,SY:'<UIC>'DISPRE,DISASM
.IF MOD = "DISD" .OR .IF MOD = "ALL" MAC DISD,DISD/-SP=DISPRE,DISDMP
.IF MOD = "DISC" .OR .IF MOD = "ALL" MAC DISC,DISC/-SP=DISPRE,DISCMD
.IF MOD = "DISU" .OR .IF MOD = "ALL" MAC DISU,DISU/-SP=DISPRE,DISUTL
.IF MOD = "DISI" .OR .IF MOD = "ALL" MAC DISI,DISI/-SP=DISPRE,DISIOR
.IF MOD = "DISS" .OR .IF MOD = "ALL" MAC DISS,DISS/-SP=DISPRE,DISSYM
.IF MOD = "GCML" .OR .IF MOD = "ALL" MAC GCML,GCML/-SP=GCMD,GCML
PIP *.LST/PU/NM,*.OBJ
.OPEN DISTKB.CMD
.DATA DISASM/-FP/CP,DISASM/-SP=DISA,DISC,DISD,DISU,DISI,GCML,DISS
.DATA /
.DATA STACK=256
.IFT MPL .DATA SUPLIB=FCSFSL:SV
.DATA ASG=SY:1
.DATA ASG=SY:2
.DATA ASG=SY:5
.DATA ASG=TI:6
.DATA GBLDEF=PAGSIZ:64
.DATA TASK=...DSA
.DATA //
.CLOSE
TKB @DISTKB
PIP DISTKB.CMD/PU/NM,DISASM.TSK,.MAP
