ibm:vm370-lib:macro:rdvtbl.macro_src
Table of Contents
RDVTBL Source
References
- Fixes Applied : 0
- This Source Date : Friday, December 8, 1978
- Last Fix ID : [Unmodified]
Source Listing
- RDVTBL.MACRO.txt
- 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
ibm/vm370-lib/macro/rdvtbl.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator