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