ibm:vm370-lib:macro:riogen.macro_src
Table of Contents
RIOGEN Source
References
- Fixes Applied : 1
- This Source Date : Friday, December 8, 1978
- Last Fix ID : [R10074DK]
Source Listing
- RIOGEN.MACRO.txt
- MACRO 00001000
- RIOGEN &CONS=,&ALTCONS=,&SRF= 00002500
- .* THIS MACRO GENERATES THE DMKRIOCT AND REAL PRINTER AND PUNCH TABLES 00003000
- GBLA &RCHCNT,&RCUCNT,&RDVCNT,&RPRTCNT,&RPUNCNT,&RRDRCNT 00004000
- GBLA &RPCCNT 00004500
- GBLC &CHTBL(16),&RPRNTRS(32),&RPUNCHS(32) 00005000
- GBLC &RREADRS(32) 00006000
- GBLC &RPCCU(16) @V2D3931 00006500
- LCLA &INDEX,&SRFCNT,&ALTCNT 00007150
- SPACE 00008000
- ENTRY DMKRIOCT 00009000
- SPACE 00010000
- DMKRIOCT DS 0D 00011000
- &INDEX SETA 1 00012000
- &ALTCNT SETA N'&ALTCONS 00012100
- &SRFCNT SETA N'&SRF 00012150
- .LOOP ANOP 00013000
- AIF ('&CHTBL(&INDEX)' EQ '').SKIP 00014000
- DC AL2(&CHTBL(&INDEX)-DMKRIOCH) 00015000
- AGO .CONT 00016000
- .SKIP ANOP 00017000
- DC H'-1' 00018000
- .CONT ANOP 00019000
- &INDEX SETA &INDEX+1 00020000
- AIF (&INDEX LE 16).LOOP 00021000
- SPACE 2 00022000
- ENTRY DMKRIOCC,DMKRIOUC,DMKRIODC 00023000
- SPACE 00024000
- DMKRIOCC DC H'&RCHCNT' 00025000
- DMKRIOUC DC H'&RCUCNT' 00026000
- DMKRIODC DC H'&RDVCNT' 00027000
- SPACE 2 00028000
- ENTRY DMKRIOCN 00029000
- SPACE 00030000
- DMKRIOCN DS 0F 00031000
- DC AL2((RDV&CONS-DMKRIODV)/8),XL2'&CONS' 00032000
- DC F'&ALTCNT' 00032100
- &INDEX SETA 1 00033000
- .LALTC AIF (&INDEX GT N'&ALTCONS).RPRT 00033500
- DC AL2((RDV&ALTCONS(&INDEX)-DMKRIODV)/8) 00034000
- DC XL2'&ALTCONS(&INDEX)' 00034500
- &INDEX SETA &INDEX+1 00035000
- AGO .LALTC 00035500
- .RPRT ANOP 00037000
- SPACE 2 00038000
- ENTRY DMKRIOPR 00039000
- SPACE 00040000
- DMKRIOPR DC F'&RPRTCNT' 00041000
- &INDEX SETA 1 00042000
- .LPRT ANOP 00043000
- AIF (&INDEX GT &RPRTCNT).RPUN 00044000
- DC AL2((RDV&RPRNTRS(&INDEX)-DMKRIODV)/8) 00045300
- DC XL2'&RPRNTRS(&INDEX)' 00045700
- &INDEX SETA &INDEX+1 00046000
- AGO .LPRT 00047000
- .RPUN ANOP 00048000
- SPACE 2 00049000
- ENTRY DMKRIOPU 00050000
- SPACE 00051000
- DMKRIOPU DC F'&RPUNCNT' 00052000
- &INDEX SETA 1 00053000
- .LPUN ANOP 00054000
- AIF (&INDEX GT &RPUNCNT).RRDR 00055000
- DC AL2((RDV&RPUNCHS(&INDEX)-DMKRIODV)/8) 00056300
- DC XL2'&RPUNCHS(&INDEX)' 00056700
- &INDEX SETA &INDEX+1 00057000
- AGO .LPUN 00058000
- .RRDR ANOP 00059000
- SPACE 2 00060000
- ENTRY DMKRIORD 00061000
- SPACE 00062000
- DMKRIORD DC F'&RRDRCNT' 00063000
- &INDEX SETA 1 00064000
- .LRDR ANOP 00065000
- AIF (&INDEX GT &RRDRCNT).PCCU 00066100
- DC AL2((RDV&RREADRS(&INDEX)-DMKRIODV)/8) 00067300
- DC XL2'&RREADRS(&INDEX)' 00067700
- &INDEX SETA &INDEX+1 00068000
- AGO .LRDR 00069000
- .PCCU ANOP 00069300
- SPACE 2 00069400
- ENTRY DMKRIORN 00069500
- SPACE 00069600
- DMKRIORN DC F'&RPCCNT' 00069700
- &INDEX SETA 1 00069800
- .LPCC AIF (&INDEX GT &RPCCNT).SRF 00069950
- DC AL2((RDV&RPCCU(&INDEX)-DMKRIODV)/8) 00070030
- DC XL2'&RPCCU(&INDEX)' 00070070
- &INDEX SETA &INDEX+1 00070100
- AGO .LPCC 00070120
- .SRF ANOP 00070140
- SPACE 2 00070160
- ENTRY DMKRIOSF 00070180
- SPACE 00070200
- DMKRIOSF DS 0F 00070222
- DC F'&SRFCNT' 00070240
- &INDEX SETA 1 00070245
- .LSRF AIF (&INDEX GT N'&SRF).MEND 00070250
- DC AL2((RDV&SRF(&INDEX)-DMKRIODV)/8) 00070255
- DC XL2'&SRF(&INDEX)' 00070260
- &INDEX SETA &INDEX+1 00070265
- AGO .LSRF 00070270
- .MEND ANOP 00070300
- EJECT 00070310
- COPY NETWORK @V2D3931 00070410
- EJECT 00071000
- COPY DEVTYPES 00072000
- EJECT 00073000
- COPY RBLOKS 00074000
- AIF (N'&SRF GT 32).ERR1 00074100
- MEXIT 00074200
- .ERR1 MNOTE 0,'MORE THAN 32 SRF DEVICES SPECIFIED' 00074300
- MEND 00075000
ibm/vm370-lib/macro/riogen.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator