MACRO 00700019 &NAME TRLIST &ROUTE=,&TRID=,&TEXT=NO,&INQDISP=,&DEMOD10=,&DEMOD11=, X01400021 &GDU= 01700021 GBLA &IECNDGP(100) 02100019 .* IECNDGP(1) NO OF BYTES COUNTER 02800019 .* IECNDGP(2) COUNTER FOR NUMBER OF ASLIST MACROS 03500019 .* IECNDGP(3) COUNTER FOR NUMBER OF DEULIST MACROS 04200019 .* IECNDGP(4) NORMAL GUIDENCE 04900019 .* IECNDGP(5) TRID SEQUENCE COUNTER 05600019 GBLA &IECPCTS 21094 05800021 GBLB &IECSW(9),&IECTXT,&IECSEQ(10),&IECSWW(2),&IECCL,&IECAS 06000021 .* IECSWW(2) INDICATES NO CTRGROUP MACRO 21094 06200021 .* IECCL INDICATES CTRLIST MACRO IS CODED 21094 06400021 .* IECAS INDICATES ASLIST MACRO CODED 21094 06600021 .* IECSW(1) INDICATES CORE SIZE 07000019 .* IECSW(4) INDICATES NOT FIRST MACRO 07700019 .* IECSEQ(4) SEQUENCE INDICATOR 08400019 GBLB &IECDE,&IECINDS,&IECIN,&IECM10,&IECM11,&IECSQ(7) 08600021 .* IECDE INDICATES DEULIST MACRO CODED 08650021 .* IECIN INDICATES INQUIRY DISPLAY IN SYSTEM 08700021 .* IECINDS INDICATES INQUIRY DISPLAY FOR TRANSACTION 08750021 .* IECM10 INDICATES MODULUS 10 CHECKING 08800021 .* IECM11 INDICATES MODULUS 11 CHECKING 08850021 GBLB &IECGYES,&IECGDL 08900021 .* IECGYES INDICATES GDU=YES CODED IN TRLIST MACRO 08950021 .* IECGDL ON INDICATES NOT FIRST GDULIST MACRO IN TRANS 09000021 LCLA &A,&SV 09100019 LCLB &NCODE,&SW(7) 09800019 .* SW(1) ROUTE=DISK 10500019 .* SW(2) ROUTE=CPU 11200019 .* SW(3) ROUTE=LOG 11900019 .* SW(4) ROUTE=NULL 12600019 .* SW(5) ROUTE=ABSEXP AS ADDR 13300019 .* SW(7) ROUTE=NULL OR ABSEXP 14000019 LCLC &CHAR 14700019 ACTR 500 15400019 &IECM10 SETB 0 15420021 &IECM11 SETB 0 15440021 &IECINDS SETB 0 15460021 &IECCL SETB 0 21094 15500021 &IECDE SETB 0 21094 15600021 &IECAS SETB 0 21094 15700021 &IECSW(5) SETB 0 16100019 &IECTXT SETB 0 16800019 &IECNDGP(2) SETA 0 17500019 &IECNDGP(3) SETA 0 18200019 AIF (&IECSW(4)).BY 18900019 &IECNDGP(5) SETA 0 19600019 &IECSEQ(4) SETB 1 20300019 .BY AIF (&IECSEQ(1) AND &IECSEQ(2) AND &IECSEQ(4) X21000021 AND NOT&IECSEQ(6)).SEQOK 21700019 &NCODE SETB 1 22400019 MNOTE 12,'MACRO SEQUENCE ERROR' 23100019 .SEQOK AIF ('&NAME' NE '').NMOK 23800019 &NCODE SETB 1 24500019 MNOTE 12,'NAME FIELD REQUIRED' 25200019 .NMOK AIF (T'&ROUTE EQ 'O').RTOK 25900021 .RTTYPOK ANOP 28700019 &A SETA &A+1 29400019 AIF ('&ROUTE(&A)' EQ 'DISK' OR '&ROUTE(&A)' EQ 'LOG' OR '&ROUTE(&A)' X30100019 EQ 'CPU' OR '&ROUTE(&A)' EQ 'NULL').A123 30800019 AIF (T'&ROUTE(&A) EQ 'N' OR T'&ROUTE(&A) EQ 'O').A123 31500019 &NCODE SETB 1 32200019 MNOTE 12,'ROUTE=&ROUTE(&A) INVALID' 32900019 .A123 AIF (&A LT 3).RTTYPOK 33600019 &A SETA 0 34300019 AIF (&NCODE).RTOK 35000019 .AX4 ANOP 35700019 &A SETA &A+1 36400019 AIF (&SW(1)).NXT1 37100019 &SW(1) SETB ('&ROUTE(&A)' EQ 'DISK') 37800019 .NXT1 AIF (&SW(2)).NXT2 38500019 &SW(2) SETB ('&ROUTE(&A)' EQ 'CPU') 39200019 .NXT2 AIF (&SW(3)).NXT3 39900019 &SW(3) SETB ('&ROUTE(&A)' EQ 'LOG') 40600019 .NXT3 AIF (&SW(4)).NXT4 41300019 &SW(4) SETB ('&ROUTE(&A)' EQ 'NULL') 42000019 .NXT4 AIF (&SW(5)).NXT5 42700019 &SW(5) SETB (T'&ROUTE(&A) EQ 'N') 43400019 &SV SETA &A 44100019 .NXT5 AIF (&A NE 3).AX4 44800019 AIF (NOT &SW(1) OR NOT &SW(2)).OK 45500019 &NCODE SETB 1 46200019 MNOTE 12,'MUTUALLY EXCLUSIVE OPERANDS=DISK AND CPU CODED' 46900019 .OK ANOP 21094 47200021 AIF (&SW(4) OR &SW(5)).OK1 21094 47500021 AGO .MSGSW 21094 47800021 .OK1 ANOP 21094 48100021 AIF (&IECSW(1)).MSGSW 21094 48400021 &NCODE SETB 1 49000019 MNOTE 12,'MESSAGE SWITCHING VALID ONLY IF CORE=32' 49700019 .MSGSW AIF (NOT &SW(5)).CKMRE 50400019 &A SETA &ROUTE(&SV) 51100019 AIF (&A GE 128 AND &A LE 227).CKMRE 51800019 AIF (&A GE 0 AND &A LE 99).A128 52500019 &NCODE SETB 1 53200019 MNOTE 12,'AREA STATION ADDRESS=&A NOT IN ALLOWED RANGE' 53900019 .A128 ANOP 54600019 &A SETA &A+X'80' 55300019 .CKMRE AIF (&SW(1) OR &SW(2) OR &SW(3) OR &SW(4) OR &SW(5)).RTOK 56000019 &NCODE SETB 1 56700019 MNOTE 12,'ROUTE=&ROUTE INVALID' 57400019 .RTOK AIF ('&TEXT' EQ 'YES' OR '&TEXT' EQ 'NO').TXTOK 58100019 MNOTE 3,'TEXT=&TEXT INCORRECTLY CODED DEFAULT ASSUMED' 58800019 .TXTOK ANOP 59500019 &IECTXT SETB ('&TEXT' EQ 'YES') 60200019 AIF (NOT &IECTXT).CKTRID 60900019 AIF (&IECSW(1)).CKT 21094 61000021 MNOTE 3,'TEXT=YES VALID ONLY IF CORE=32' 21094 61100021 &IECTXT SETB 0 21094 61200021 .CKT ANOP 21094 61300021 AIF (&SW(4) OR &SW(5)).CKTRID 61600019 MNOTE 3,'TEXT=YES INVALID UNLESS MESSAGE SWITCHING INDICATED' 62300019 &IECTXT SETB 0 63000019 .CKTRID AIF (T'&TRID EQ 'N').CKRNG1 63700019 &NCODE SETB 1 64400019 &CHAR SETC T'&TRID 65100019 MNOTE 12,'REQUIRED OPERAND=TRID TYPE ATTRIBUTE=&CHAR IMPROPER' 65800019 AGO .CKGEN 66500019 .CKRNG3 AIF (&SV EQ 0 AND NOT &IECGYES).INQD 66600021 AIF (&IECGYES).CKRNG4 66700021 &IECNDGP(5) SETA 0 66800021 &IECGYES SETB 1 66900021 .CKRNG4 AIF (&SV GT &IECNDGP(5) AND &SV LE 99).INQD 67000021 AGO .CKRNG5 67100021 .CKRNG1 ANOP 67200019 &SV SETA &TRID 67900019 AIF (T'&GDU EQ 'O' OR '&GDU' EQ 'NO').CKRNG2 68600021 AIF ('&GDU' EQ 'YES').CKRNG3 68800021 MNOTE 3,'GDU OPERAND INVALID,OPERAND IGNORED' 69000021 .CKRNG2 ANOP 69200021 AIF (&SV EQ 0 AND NOT &IECSW(4)).INQD 69400021 AIF (&SV GT &IECNDGP(5) AND &SV LE 159).INQD 69600021 .CKRNG5 ANOP 69800021 &NCODE SETB 1 70000019 MNOTE 12,'TRID=&TRID NOT IN ALLOWED RANGE OR IS OUT OF SEQ' 70700019 .INQD ANOP 71400021 AIF (T'&INQDISP EQ 'O').CKGEN 71410021 AIF ('&INQDISP' EQ 'YES' OR '&INQDISP' EQ 'NO').CKCORE 71420021 MNOTE 3,'INQDISP OPERAND CODED INCORRECT,DEFAULT ASSUMED' 71430021 .CKCORE ANOP 71440021 AIF ('&INQDISP' NE 'YES').CKGEN 71450021 AIF (&IECSW(1)).CKGEN1 71460021 &NCODE SETB 1 71470021 MNOTE 12,'INQDISP CAN NOT BE CODED UNLESS CORE=32 IN CONFIGUR X71480021 MACRO' 71490021 .CKGEN1 ANOP 71500021 &IECINDS SETB 1 71510021 AIF (&IECIN).CKGEN1A 71520021 &NCODE SETB 1 71530021 MNOTE 12,'INQDISP CAN NOT BE CODED UNLESS INQDISP=YES IN X71540021 CONFIGUR MACRO' 71550021 AGO .CKGEN 71560021 .CKGEN1A ANOP 71570021 AIF (&IECSW(1)).CKGEN2 71580021 &NCODE SETB 1 71590021 MNOTE 12,'ROUTE=DISK CAN NOT BE CODED WHEN INQDISP=YES IS X71600021 CODED' 71610021 AGO .CKGEN 71620021 .CKGEN1B ANOP 71630021 &SW(2) SETB 1 71640021 .CKGEN ANOP 71650021 AIF (T'&DEMOD10 EQ 'O').MOD11 71660021 AIF ('&DEMOD10' EQ 'YES' OR '&DEMOD10' EQ 'NO').CKCORE1 71670021 MNOTE 3,'DEMOD10 OPERAND CODED INCORRECT,DEFAULT ASSUMED' 71680021 .CKCORE1 ANOP 71690021 AIF ('&DEMOD10' NE 'YES').MOD11 71700021 AIF (&IECSW(1)).CKGEN2 71710021 &NCODE SETB 1 71720021 MNOTE 12,'DEMOD10 OPERAND CAN NOT BE CODED UNLESS CORE=32 IN X71730021 CONFIGUR MACRO' 71740021 AGO .MOD11 71750021 .CKGEN2 ANOP 71760021 &IECM10 SETB 1 71770021 .MOD11 ANOP 71780021 AIF (T'&DEMOD11 EQ 'O').CKGEN3 71790021 AIF ('&DEMOD11' EQ 'YES' OR '&DEMOD11' EQ 'NO').CKCORE3 71800021 MNOTE 3,'DEMOD11 OPERAND CODED INCORRECT,DEFAULT ASSUMED' 71810021 .CKCORE3 ANOP 71820021 AIF ('&DEMOD11' NE 'YES').CKGEN3 71830021 AIF (&IECSW(1)).CKGEN4 71840021 &NCODE SETB 1 71850021 MNOTE 12,'DEMOD11 OPERAND CAN NOT BE CODED UNLESS CORE=32 IN X71860021 CONFIGUR MACRO' 71870021 AGO .CKGEN3 71880021 .CKGEN4 ANOP 71890021 &IECM11 SETB 1 71900021 .CKGEN3 ANOP 71910021 AIF ('&DEMOD10' NE 'YES').CKGEN5 71920021 AIF ('&DEMOD11' NE 'YES').CKGEN5 71930021 &NCODE SETB 1 71940021 MNOTE 12,'DEMOD10 AND DEMOD11 OPERANDS MUTUALLY EXCLUSIVE' 71950021 .CKGEN5 ANOP 71960021 AIF (NOT &NCODE).GENCODE 71970021 MNOTE 12,'TEXT GENERATION SUPRESSED' 72100019 AGO .SET 72800019 .GENCODE AIF (&IECSW(4)).SKIP1 73500019 AIF (NOT &IECSW(9)).NOPC 21094 73570021 AIF (&IECSWW(2)).NOPC 21094 73640021 &IECSWW(2) SETB 1 21094 73710021 DC AL2(61440) 21094 73780021 IECCTRGR EQU * 21094 73850021 IECSCHED EQU * 21094 73920021 DC AL2(12288) 21094 73990021 &IECNDGP(1) SETA &IECNDGP(1)+2*&IECPCTS+8 74060021 .NOPC ANOP 21094 74130021 AIF (NOT &IECSQ(6)).NOPC1 74140021 DC X'00' END OF GDU TRANSLATE TABLE 74150021 &IECNDGP(1) SETA &IECNDGP(1)+1 74160021 .NOPC1 ANOP 74170021 SPACE 1 74200019 * TRANSACTION TABLES 74900019 SPACE 1 75600019 IECFTRLA EQU * 76300019 .SKIP1 ANOP 77000019 AIF (NOT &IECSW(4) OR &IECSW(8)).NODC 77700019 DC YL1(&IECNDGP(4)) END OF LIST BYTE FOR PRECEDING TRNS 78400019 .NODC ANOP 79100019 &SW(7) SETB (&SW(4) OR &SW(5)) 79800019 &NAME EQU * 80500019 DC B'&SW(7)&SW(3)&SW(1)&SW(2)&IECTXT.000' ROUTE BYTE 81200019 .NOSET DC YL1(&SV) TRANSACTION IDENTIFIER 81900019 AIF (&SW(5)).CKSWS 82600019 &A SETA 0 83300019 .CKSWS DC YL1(&A) AREA STATION ADDRESS OR NULL 84000019 &A SETA 0 85400021 AIF ('&INQDISP' NE 'YES').SET4 85450021 &IECINDS SETB 1 85500021 &A SETA 4 85550021 .SET4 ANOP 85600021 AIF (NOT &IECM10).SET5 85650021 &A SETA &A+32 85700021 .SET5 ANOP 85750021 AIF (NOT &IECM11).SET6 85800021 &A SETA &A+64 85850021 .SET6 ANOP 85900021 DC YL1(&A) 85950021 &IECNDGP(1) SETA &IECNDGP(1)+5 21094 86000021 &IECNDGP(5) SETA &TRID 86100019 .SET ANOP 86800019 &IECNDGP(4) SETA 0 RESET FOR FOLLOWING MACROS 87500019 &IECSW(4) SETB 1 88200019 &IECSW(8) SETB 0 88900019 .MEND MEND 89600019