MACRO 00600000 &PHASEID CONTENTS &DUMMY 01200000 .* 01800000 .* CHANGES TO RELEASE 3 01850000 .* CHANGES TO RELEASE 2 01900000 .* CHANGES TO RELEASE 1 01950000 .* 02000000 .* GENERATES A BRANCH TABLE IN IFNX4E TO THE ROUTINES 02050000 .* CONTAINED IN IFNX4E 02100000 GBLC &X0(26) 02400000 GBLC &X1(26) 03000000 GBLC &X2(26) 03600000 GBLC &X3(26) 04200000 GBLC &X4(26) 04800000 GBLC &X5(26) 05400000 GBLC &X6(26) 06000000 GBLC &X7(26) 06600000 GBLC &X8(26) 07200000 GBLC &X9(26) 07800000 GBLC &XA(26) 08400000 GBLC &XB(26) 09000000 GBLC &XC(26) 09600000 GBLC &XD(26) 10200000 GBLC &XE(26) 10800000 GBLC &XF(26) 11400000 .* 12000000 LCLA &I 12600000 .* 13200000 AIF (K'&PHASEID EQ 0).ERR1 13800000 .* 14400000 &PHASEID DS 0H START OF BRANCH TABLE 15000000 USING &PHASEID,R12 15600000 .* 16200000 AIF ('&X0(1)' EQ '&PHASEID').X0 16800000 AIF ('&X1(1)' EQ '&PHASEID').X1 17400000 AIF ('&X2(1)' EQ '&PHASEID').X2 18000000 AIF ('&X3(1)' EQ '&PHASEID').X3 18600000 AIF ('&X4(1)' EQ '&PHASEID').X4 19200000 AIF ('&X5(1)' EQ '&PHASEID').X5 19800000 AIF ('&X6(1)' EQ '&PHASEID').X6 20400000 AIF ('&X7(1)' EQ '&PHASEID').X7 21000000 AIF ('&X8(1)' EQ '&PHASEID').X8 21600000 AIF ('&X9(1)' EQ '&PHASEID').X9 22200000 AIF ('&XA(1)' EQ '&PHASEID').XA 22800000 AIF ('&XB(1)' EQ '&PHASEID').XB 23400000 AIF ('&XC(1)' EQ '&PHASEID').XC 24000000 AIF ('&XD(1)' EQ '&PHASEID').XD 24600000 AIF ('&XE(1)' EQ '&PHASEID').XE 25200000 AIF ('&XF(1)' EQ '&PHASEID').XF 25800000 .* 26400000 AGO .ERR4 27000000 .* 27600000 .X0 AIF (&I GT 24).END 28200000 &I SETA &I+1 28800000 AIF ('&X0(&I+1)' EQ '').END 29400000 B &X0(&I+1) 30000000 AGO .X0 30600000 .* 31200000 .X1 AIF (&I GT 24).END 31800000 &I SETA &I+1 32400000 AIF ('&X1(&I+1)' EQ '').END 33000000 B &X1(&I+1) 33600000 AGO .X1 34200000 .* 34800000 .X2 AIF (&I GT 24).END 35400000 &I SETA &I+1 36000000 AIF ('&X2(&I+1)' EQ '').END 36600000 B &X2(&I+1) 37200000 AGO .X2 37800000 .* 38400000 .X3 AIF (&I GT 24).END 39000000 &I SETA &I+1 39600000 AIF ('&X3(&I+1)' EQ '').END 40200000 B &X3(&I+1) 40800000 AGO .X3 41400000 .* 42000000 .X4 AIF (&I GT 24).END 42600000 &I SETA &I+1 43200000 AIF ('&X4(&I+1)' EQ '').END 43800000 B &X4(&I+1) 44400000 AGO .X4 45000000 .* 45600000 .X5 AIF (&I GT 24).END 46200000 &I SETA &I+1 46800000 AIF ('&X5(&I+1)' EQ '').END 47400000 B &X5(&I+1) 48000000 AGO .X5 48600000 .* 49200000 .X6 AIF (&I GT 24).END 49800000 &I SETA &I+1 50400000 AIF ('&X6(&I+1)' EQ '').END 51000000 B &X6(&I+1) 51600000 AGO .X6 52200000 .* 52800000 .X7 AIF (&I GT 24).END 53400000 &I SETA &I+1 54000000 AIF ('&X7(&I+1)' EQ '').END 54600000 B &X7(&I+1) 55200000 AGO .X7 55800000 .* 56400000 .X8 AIF (&I GT 24).END 57000000 &I SETA &I+1 57600000 AIF ('&X8(&I+1)' EQ '').END 58200000 B &X8(&I+1) 58800000 AGO .X8 59400000 .* 60000000 .X9 AIF (&I GT 24).END 60600000 &I SETA &I+1 61200000 AIF ('&X9(&I+1)' EQ '').END 61800000 B &X9(&I+1) 62400000 AGO .X9 63000000 .* 63600000 .XA AIF (&I GT 24).END 64200000 &I SETA &I+1 64800000 AIF ('&XA(&I+1)' EQ '').END 65400000 B &XA(&I+1) 66000000 AGO .XA 66600000 .* 67200000 .XB AIF (&I GT 24).END 67800000 &I SETA &I+1 68400000 AIF ('&XB(&I+1)' EQ '').END 69000000 B &XB(&I+1) 69600000 AGO .XB 70200000 .* 70800000 .XC AIF (&I GT 24).END 71400000 &I SETA &I+1 72000000 AIF ('&XC(&I+1)' EQ '').END 72600000 B &XC(&I+1) 73200000 AGO .XC 73800000 .* 74400000 .XD AIF (&I GT 24).END 75000000 &I SETA &I+1 75600000 AIF ('&XD(&I+1)' EQ '').END 76200000 B &XD(&I+1) 76800000 AGO .XD 77400000 .* 78000000 .XE AIF (&I GT 24).END 78600000 &I SETA &I+1 79200000 AIF ('&XE(&I+1)' EQ '').END 79800000 B &XE(&I+1) 80400000 AGO .XE 81000000 .* 81600000 .XF AIF (&I GT 24).END 82200000 &I SETA &I+1 82800000 AIF ('&XF(&I+1)' EQ '').END 83400000 B &XF(&I+1) 84000000 AGO .XF 84600000 .* 85200000 .ERR1 MNOTE 8,'INVALID OR NO PHASEID FURNISHED.' 85800000 MEXIT 86400000 .ERR4 MNOTE 8,'UNDEFINED PHASEID.' 87000000 .END DROP R12 87600000 AIF (&I NE 0).MEND 88200000 .ERR5 MNOTE 4,'NO ROUTINE NAME DEFINED FOR PHASE.' 88800000 .MEND MEND 89400000