MACRO 00001000 &N DMSLNU &T,&V,&LAST 00002000 LCLA &DP,&I,&NRG,&STAT(2),&LLIM(2),&RLIM(2),&LL,&RL,&MAX,&J 00003000 LCLA &K 00004000 LCLB &STRT,&TB 00005000 LCLC &C,&S(10) 00006000 &MAX SETA 5 00007000 AIF ('&V'(1,1) NE '(').ONE 00008000 &I SETA 1 00009000 &DP SETA 1 00010000 &NRG SETA 1 00011000 &STRT SETB 1 00012000 .LOOP ANOP 00013000 &I SETA &I+1 00014000 AIF (&I GT K'&V).PERR 00015000 &C SETC '&V'(&I,1) 00016000 AIF ('&C' EQ '(').LP 00017000 AIF ('&C' EQ ')').RP 00018000 AIF ('&C' EQ ',').CM 00019000 AIF (NOT &STRT).LOOP 00020000 &STRT SETB 0 00021000 &STAT(&NRG) SETA 1 00022000 &LLIM(&NRG) SETA &I 00023000 AGO .LOOP 00024000 .LP ANOP 00025000 &DP SETA &DP+1 00026000 AIF (NOT &STRT).LOOP 00027000 &STRT SETB 0 00028000 &STAT(&NRG) SETA 2 00029000 &LLIM(&NRG) SETA &I+1 00030000 AGO .LOOP 00031000 .CM ANOP 00032000 AIF (&DP NE 1).LOOP 00033000 &RLIM(&NRG) SETA &I-&STAT(&NRG) 00034000 &NRG SETA &NRG+1 00035000 AIF (&NRG GT 2).PERR 00036000 &STRT SETB 1 00037000 AGO .LOOP 00038000 .RP ANOP 00039000 &DP SETA &DP-1 00040000 AIF (&DP GT 0).LOOP 00041000 AIF (&I NE K'&V).PERR 00042000 &RLIM(&NRG) SETA &I-&STAT(&NRG) 00043000 &TB SETB ((&NRG EQ 1) AND (&STAT(1) EQ 1)) 00044000 &STAT(1) SETA &STAT(1)+&TB 00045000 &I SETA 0 00046000 .LUP2 ANOP 00047000 &I SETA &I+1 00048000 AIF (&I GT &NRG).NZ 00049000 &LL SETA &LLIM(&I) 00050000 &RL SETA &RLIM(&I) 00051000 AIF (&RL-&LL+1 LE 8*&MAX).NOMSG 00052000 MNOTE 8,'DMSLNU020E PARENTHESIZED (VALUE,LENGTH) FOLLOWING ''&*00053000 T'' CANNOT HAVE SUB-ARGUMENT > 8*&MAX CHARACTERS' 00054000 &RL SETA &LL+8*&MAX-1 00055000 .NOMSG ANOP 00056000 &J SETA (&I-1)*&MAX 00057000 &K SETA 8 00058000 .LUP3 ANOP 00059000 &J SETA &J+1 00060000 AIF (&LL+8 LE &RL).KOK 00061000 &K SETA &RL-&LL+1 00062000 .KOK ANOP 00063000 &S(&J) SETC '&V'(&LL,&K) 00064000 &LL SETA &LL+8 00065000 AIF (&LL LE &RL).LUP3 00066000 AGO .LUP2 00067000 .NZ ANOP 00068000 &N DMSLNZ &T,&LAST,&STAT(1), *00069000 &S(1).&S(2).&S(3).&S(4).&S(5), *00070000 &STAT(2), *00071000 &S(6).&S(7).&S(8).&S(9).&S(10) 00072000 MEXIT 00073000 .ONE ANOP 00074000 &N DMSLNZ &T,&LAST,1,&V,0, 00075000 MEXIT 00076000 .PERR ANOP 00077000 MNOTE 8,'DMSLNU021E SUB-ARGUMENT OF ''SUB'' FOLLOWING ''&T'' B*00078000 EGINS WITH ILLEGAL PARENTHESIS' 00079000 MEND 00080000