.ENABLE SUBSTITUTION
.SETF LIST
.IF P2 EQ "LIST" .SETT LIST
.OPEN 'P1'.ASM
.IFF LIST .DATA 'P1'=ACCPRE/PA:1,[1,1]EXEMC/ML,-
.IFT LIST .DATA 'P1','P1'/-SP=ACCPRE/PA:1,[1,1]EXEMC/ML,-
.DATA [200,200]RSXMC/PA:1,SY:'<UIC>''P1'
.CLOSE
MAC @'P1'.ASM
PIP 'P1'.ASM;*/DE
