MACRO 00050000 &NAME CTRSCHED &SCHED 00100000 GBLA &IECCTOT,&IECPCTN 00150000 GBLA &IECNDGP(100),&IECSCNO 00200000 .* IECNDGP(1) NUMBER OF BYTES COUNTER 00250000 .* IECSCNO HIGHEST SCHEDULE REFFERRED TO IN CTRGROUPS 00300000 GBLB &IECSEQ(10),&IECSW(9) 00350000 .* IECSEQ(9) SEQUENCE INDICATOR 00400000 LCLA &A,&B,&C,&D 00450000 LCLB &NOCODE 00500000 LCLC &CHAR 00550000 AIF (&IECSW(9)).SEQCHK 00600000 MNOTE 12,'CTRSCHED MACRO NOT VALID BECAUSE PC=YES NOT CODED INX00650000 CONFIGUR MACRO' 00700000 MEXIT 00750000 .SEQCHK ANOP 00800000 AIF (&IECSEQ(1) AND &IECSEQ(2) AND &IECSEQ(3) AND &IECSEQ(7) X00850000 AND &IECSEQ(8) AND NOT&IECSEQ(9) AND NOT&IECSEQ(4)).RRR 00900000 .SSS ANOP 00950000 &NOCODE SETB 1 01000000 MNOTE 12,'MACRO SEQUENCE ERROR' 01050000 AGO .YYY 01100000 .RRR ANOP 01150000 AIF (&IECSEQ(5) OR &IECSEQ(6)).SSS 01200000 .YYY ANOP 01250000 AIF (&IECCTOT EQ &IECPCTN).CONT 01300000 &NOCODE SETB 1 01350000 MNOTE 12,'HIGH COUNTERS FOR SOME AREA STATIONS HAVE NOT BEEN X01400000 DEFINED BY CTRGROUP MACROS' 01450000 MNOTE 12,'ALL HIGHCTR OPERANDS OF ASCTR MACROS MUST BE X01500000 ACCURATE' 01550000 &A SETA N'&SYSLIST 01600000 AIF (&A GE &IECSCNO).CONT1 01650000 MNOTE 12,'SOME SCHEDULES DEFINED IN CTRGROUP MACROS ARE NOT X01700000 DEFINED BY CTRSCHED MACRO' 01750000 &NOCODE SETB 1 01800000 .CONT1 ANOP 01850000 .CONT ANOP 01900000 AIF (N'&SYSLIST LE 15 AND N'&SYSLIST GE 1).OPCHK 01950000 &NOCODE SETB 1 02000000 MNOTE 12,'NUMBER OF SCHED OPERANDS IS NOT IN RANGE OF 1 TO 15' 02050000 .OPCHK ANOP 02100000 &A SETA N'&SYSLIST 02150000 .LOOP1 ANOP 02200000 &B SETA &B+1 02250000 AIF (&B GT &A).VAL 02300000 AIF (T'&SYSLIST(&B) EQ 'N').LOOP1 02350000 &CHAR SETC T'&SYSLIST(&B) 02400000 &NOCODE SETB 1 02450000 MNOTE 12,'SCHED OPERAND HAS INVALID TYPE ATTRIBUTE = &CHAR' 02500000 AGO .LOOP1 02550000 .VAL ANOP 02600000 &A SETA N'&SYSLIST 02650000 &B SETA 0 02700000 .VAL1 ANOP 02750000 &B SETA &B+1 02800000 AIF (&B GT &A).DEFINE 02850000 AIF ('&SYSLIST(&B)' GE '1' AND '&SYSLIST(&B)' LE '2047').VAL1 02900000 &NOCODE SETB 1 02950000 MNOTE 12,'SCHED OPERAND=&SYSLIST(&B) NOT BETWEEN 1 AND 2047' 03000000 AGO .VAL1 03050000 .DEFINE ANOP 03100000 AIF (&NOCODE).NOGEN 03150000 &A SETA N'&SYSLIST 03200000 &IECNDGP(1) SETA &IECNDGP(1)+2*&A 03250000 SPACE 1 03300000 SPACE 1 03350000 * SCHEDULE TABLE 03400000 SPACE 1 03450000 SPACE 1 03500000 IECSCHED EQU * 03550000 &B SETA 0 03600000 .LOOP2 ANOP 03650000 &B SETA &B+1 03700000 &C SETA 0 03750000 &C SETA &SYSLIST(&B) 03800000 &D SETA 2048-&C 03850000 AIF (&B EQ &A).LASTENT 03900000 .YES ANOP 03950000 AIF (&B EQ 3 OR &B EQ 6 OR &B EQ 9 OR &B EQ 12 OR &B EQ 15).X04000000 SETBIT 04050000 .HIGHBIT ANOP 04100000 &D SETA &D+32768 04150000 DC AL2(&D) 04200000 AGO .LOOP2 04250000 .SETBIT ANOP 04300000 &D SETA &D+8192 04350000 AGO .HIGHBIT 04400000 .LASTENT ANOP 04450000 AIF (&B EQ 3 OR &B EQ 6 OR &B EQ 9 OR &B EQ 12 OR &B EQ 15).X04500000 HIGHB 04550000 AGO .AFTER 04600000 .HIGHB ANOP 04650000 &D SETA &D+8192 04700000 .AFTER ANOP 04750000 &D SETA &D+49152 04800000 DC AL2(&D) 04850000 &IECSEQ(9) SETB 1 04900000 AGO .MEND 04950000 .NOGEN ANOP 05000000 MNOTE 12,'TEXT GENERATION SUPPRESSED' 05050000 .MEND MEND 05100000