MACRO 00001000
RDVTBL &TYPE 00002000
.* V0496000 - ASSEMBLER ERROR IGU057 (TABLE SIZE TO SMALL) 00003000
GBLA &CHADDR,&CUADDR,&DVADDR 00004000
GBLC &DVTBL0(256),&DVTBL1(256),&DVTBL2(256),&DVTBL3(256) 00005000
GBLC &DVTBL4(256),&DVTBL5(256),&DVTBL6(256),&DVTBL7(256) 00006000
GBLC &DVTBL8(256),&DVTBL9(256),&DVTBLA(256),&DVTBLB(256) 00007000
GBLC &DVTBLC(256),&DVTBLD(256),&DVTBLE(256),&DVTBLF(256) 00008000
GBLC &DVTBL(8),&NAME 00009000
LCLA &COUNT,&INDEX 00010000
LCLC &TEMP,&DUMMY 00011000
&INDEX SETA &CUADDR*16+&DVADDR+1 00012000
AIF ('&TYPE' EQ 'DEF').DEF 00013000
AIF ('&TYPE' EQ 'GEN').GEN 00014000
MNOTE 8,'INVALID RDVTBL MACRO CALL' 00015000
MEXIT 00016000
.* THIS MACRO DEFINES AN ENTRY IN A RCUDVTBL FOR EACH RDEVBLOK 00017000
.DEF ANOP 00018000
AIF (&CHADDR NE 0).DCH1 00019000
&DUMMY SETC '&DVTBL0(&INDEX)' 00019300
AIF ('&DVTBL0(&INDEX)' NE '').ERR1 00019600
&DVTBL0(&INDEX) SETC '&NAME' 00020000
MEXIT 00021000
.DCH1 AIF (&CHADDR NE 1).DCH2 00022000
&DUMMY SETC '&DVTBL1(&INDEX)' 00022300
AIF ('&DVTBL1(&INDEX)' NE '').ERR1 00022600
&DVTBL1(&INDEX) SETC '&NAME' 00023000
MEXIT 00024000
.DCH2 AIF (&CHADDR NE 2).DCH3 00025000
&DUMMY SETC '&DVTBL2(&INDEX)' 00025300
AIF ('&DVTBL2(&INDEX)' NE '').ERR1 00025600
&DVTBL2(&INDEX) SETC '&NAME' 00026000
MEXIT 00027000
.DCH3 AIF (&CHADDR NE 3).DCH4 00028000
&DUMMY SETC '&DVTBL3(&INDEX)' 00028300
AIF ('&DVTBL3(&INDEX)' NE '').ERR1 00028600
&DVTBL3(&INDEX) SETC '&NAME' 00029000
MEXIT 00030000
.DCH4 AIF (&CHADDR NE 4).DCH5 00031000
&DUMMY SETC '&DVTBL4(&INDEX)' 00031300
AIF ('&DVTBL4(&INDEX)' NE '').ERR1 00031600
&DVTBL4(&INDEX) SETC '&NAME' 00032000
MEXIT 00033000
.DCH5 AIF (&CHADDR NE 5).DCH6 00034000
&DUMMY SETC '&DVTBL5(&INDEX)' 00034300
AIF ('&DVTBL5(&INDEX)' NE '').ERR1 00034600
&DVTBL5(&INDEX) SETC '&NAME' 00035000
MEXIT 00036000
.DCH6 AIF (&CHADDR NE 6).DCH7 00037000
&DUMMY SETC '&DVTBL6(&INDEX)' 00037300
AIF ('&DVTBL6(&INDEX)' NE '').ERR1 00037600
&DVTBL6(&INDEX) SETC '&NAME' 00038000
MEXIT 00039000
.DCH7 AIF (&CHADDR NE 7).DCH8 00040000
&DUMMY SETC '&DVTBL7(&INDEX)' 00040300
AIF ('&DVTBL7(&INDEX)' NE '').ERR1 00040600
&DVTBL7(&INDEX) SETC '&NAME' 00041000
MEXIT 00042000
.DCH8 AIF (&CHADDR NE 8).DCH9 00043000
&DUMMY SETC '&DVTBL8(&INDEX)' 00043300
AIF ('&DVTBL8(&INDEX)' NE '').ERR1 00043600
&DVTBL8(&INDEX) SETC '&NAME' 00044000
MEXIT 00045000
.DCH9 AIF (&CHADDR NE 9).DCHA 00046000
&DUMMY SETC '&DVTBL9(&INDEX)' 00046300
AIF ('&DVTBL9(&INDEX)' NE '').ERR1 00046600
&DVTBL9(&INDEX) SETC '&NAME' 00047000
MEXIT 00048000
.DCHA AIF (&CHADDR NE 10).DCHB 00049000
&DUMMY SETC '&DVTBLA(&INDEX)' 00049300
AIF ('&DVTBLA(&INDEX)' NE '').ERR1 00049600
&DVTBLA(&INDEX) SETC '&NAME' 00050000
MEXIT 00051000
.DCHB AIF (&CHADDR NE 11).DCHC 00052000
&DUMMY SETC '&DVTBLB(&INDEX)' 00052300
AIF ('&DVTBLB(&INDEX)' NE '').ERR1 00052600
&DVTBLB(&INDEX) SETC '&NAME' 00053000
MEXIT 00054000
.DCHC AIF (&CHADDR NE 12).DCHD 00055000
&DUMMY SETC '&DVTBLC(&INDEX)' 00055300
AIF ('&DVTBLC(&INDEX)' NE '').ERR1 00055600
&DVTBLC(&INDEX) SETC '&NAME' 00056000
MEXIT 00057000
.DCHD AIF (&CHADDR NE 13).DCHE 00058000
&DUMMY SETC '&DVTBLD(&INDEX)' 00058300
AIF ('&DVTBLD(&INDEX)' NE '').ERR1 00058600
&DVTBLD(&INDEX) SETC '&NAME' 00059000
MEXIT 00060000
.DCHE AIF (&CHADDR NE 14).DCHF 00061000
&DUMMY SETC '&DVTBLE(&INDEX)' 00061300
AIF ('&DVTBLE(&INDEX)' NE '').ERR1 00061600
&DVTBLE(&INDEX) SETC '&NAME' 00062000
MEXIT 00063000
.DCHF ANOP 00064000
&DUMMY SETC '&DVTBLF(&INDEX)' 00064300
AIF ('&DVTBLF(&INDEX)' NE '').ERR1 00064600
&DVTBLF(&INDEX) SETC '&NAME' 00065000
MEXIT 00066000
.ERR1 MNOTE 8,'CONTROL UNIT TABLE FOR &NAME IN USE BY &DUMMY' 00066200
MEXIT 00066400
.* THIS MACRO GENERATES THE RCUDVTBL IN EACH RCUBLOK 00067000
.GEN ANOP 00068000
&COUNT SETA 1 00069000
.GCH0 AIF (&CHADDR NE 0).GCH1 00070000
&TEMP SETC '&DVTBL0(&INDEX)' 00071000
AGO .CONT 00072000
.GCH1 AIF (&CHADDR NE 1).GCH2 00073000
&TEMP SETC '&DVTBL1(&INDEX)' 00074000
AGO .CONT 00075000
.GCH2 AIF (&CHADDR NE 2).GCH3 00076000
&TEMP SETC '&DVTBL2(&INDEX)' 00077000
AGO .CONT 00078000
.GCH3 AIF (&CHADDR NE 3).GCH4 00079000
&TEMP SETC '&DVTBL3(&INDEX)' 00080000
AGO .CONT 00081000
.GCH4 AIF (&CHADDR NE 4).GCH5 00082000
&TEMP SETC '&DVTBL4(&INDEX)' 00083000
AGO .CONT 00084000
.GCH5 AIF (&CHADDR NE 5).GCH6 00085000
&TEMP SETC '&DVTBL5(&INDEX)' 00086000
AGO .CONT 00087000
.GCH6 AIF (&CHADDR NE 6).GCH7 00088000
&TEMP SETC '&DVTBL6(&INDEX)' 00089000
AGO .CONT 00090000
.GCH7 AIF (&CHADDR NE 7).GCH8 00091000
&TEMP SETC '&DVTBL7(&INDEX)' 00092000
AGO .CONT 00093000
.GCH8 AIF (&CHADDR NE 8).GCH9 00094000
&TEMP SETC '&DVTBL8(&INDEX)' 00095000
AGO .CONT 00096000
.GCH9 AIF (&CHADDR NE 9).GCHA 00097000
&TEMP SETC '&DVTBL9(&INDEX)' 00098000
AGO .CONT 00099000
.GCHA AIF (&CHADDR NE 10).GCHB 00100000
&TEMP SETC '&DVTBLA(&INDEX)' 00101000
AGO .CONT 00102000
.GCHB AIF (&CHADDR NE 11).GCHC 00103000
&TEMP SETC '&DVTBLB(&INDEX)' 00104000
AGO .CONT 00105000
.GCHC AIF (&CHADDR NE 12).GCHD 00106000
&TEMP SETC '&DVTBLC(&INDEX)' 00107000
AGO .CONT 00108000
.GCHD AIF (&CHADDR NE 13).GCHE 00109000
&TEMP SETC '&DVTBLD(&INDEX)' 00110000
AGO .CONT 00111000
.GCHE AIF (&CHADDR NE 14).GCHF 00112000
&TEMP SETC '&DVTBLE(&INDEX)' 00113000
AGO .CONT 00114000
.GCHF ANOP 00115000
&TEMP SETC '&DVTBLF(&INDEX)' 00116000
.CONT AIF ('&TEMP' EQ '').SKIP 00117000
&DVTBL(&COUNT) SETC '&TEMP' 00118000
.SKIP ANOP 00119000
&COUNT SETA &COUNT+1 00120000
&INDEX SETA &INDEX+1 00121000
AIF (&COUNT LE 8).GCH0 00122000
MEND 00123000