TITLE 'ICGDSMSG MSC TABLE CREATE PRINT MODULE *00001000 ' 00002000 ICGDSMSG CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ICGDSMSG 77.067' 0001 00008000 DROP @15 00009000 @PROLOG STM @14,@12,12(@13) 0001 00010000 BALR @12,0 0001 00011000 @PSTART DS 0H 0001 00012000 USING @PSTART,@12 0001 00013000 L @00,@SIZDATD 0001 00014000 GETMAIN R,LV=(0) 00015000 LR @11,@01 0001 00016000 USING @DATD,@11 0001 00017000 ST @13,@SA00001+4 0001 00018000 LM @00,@01,20(@13) 0001 00019000 ST @11,8(,@13) 0001 00020000 LR @13,@11 0001 00021000 XC @ZTEMPS(@ZLEN),@ZTEMPS 00022000 * 0084 00023000 */********************************************************** @Y30LB12*/ 00024000 */* @Y30LB12*/ 00025000 */* ICGDSMSG (MAINLINE) @XD00153*/ 00026000 */* @Y30LB12*/ 00027000 */* IF SYSPRINT IS NOT OPEN, SET RETURN CODE OF @XD00153*/ 00028000 */* AND RETURN TO CALLER. OTHERWISE, CHECK TO @Y30LB12*/ 00029000 */* WHETHER HEADING IS REQUIRED, AND, IF REQUIRED,@Y30LB12*/ 00030000 */* PRINT IT. DETERMINE THE TYPE OF MESSAGE TO @Y30LB12*/ 00031000 */* AND PRINT IT. RETURN TO CALLING MODULE. @Y30LB12*/ 00032000 */* @Y30LB12*/ 00033000 */********************************************************** @Y30LB12*/ 00034000 * 0084 00035000 * DCBPTR=ADDR(DCBPRINT); /* SET DCB OVERLAY @Y30LB12*/ 00036000 LA @10,DCBPRINT(,R4) 0084 00037000 ST @10,DCBPTR(,R4) 0084 00038000 * IF DCBOFOPN='0'B /* SYSPRINT NOT OPEN @Y30LB12*/ 00039000 * THEN /* @Y30LB12*/ 00040000 TM DCBOFOPN+40(@10),B'00010000' 0085 00041000 BNZ @RF00085 0085 00042000 * DO; /* @Y30LB12*/ 00043000 * RETCODE=RETCOD16; /* SET RETURN CODE @YD00113*/ 00044000 MVC RETCODE(2,R4),@CH00162 0087 00045000 * RETURN; /* RETURN TO CALLER @Y30LB12*/ 00046000 @EL00001 L @13,4(,@13) 0088 00047000 @EF00001 L @00,@SIZDATD 0088 00048000 LR @01,@11 0088 00049000 FREEMAIN R,LV=(0),A=(1) 00050000 @ER00001 LM @14,@12,12(@13) 0088 00051000 BR @14 0088 00052000 * END; /* @Y30LB12*/ 00053000 * ELSE 0090 00054000 * ; /* SYSPRINT IS OPEN @Y30LB12*/ 00055000 * 0090 00056000 @RF00085 DS 0H 0091 00057000 * /*****************************************************************/ 00058000 * /* */ 00059000 * /* *********************************************** @Y30LB12*/ 00060000 * /* INITIALIZATION - ESTABLISH ADDRESSABILITY OF @Y30LB12*/ 00061000 * /* SYNAD ROUTINE FOR SYSPRINT BY MESSAGE WRITER. @Y30LB12*/ 00062000 * /* TEST IF HEADING LINE REQUIRED BY CHANNEL 9 @Y30LB12*/ 00063000 * /* INDICATOR, BY CHANNEL 12 INDICATOR, OR BY @Y30LB12*/ 00064000 * /* MAXIMUM LINE PER PAGE HAVING BEEN REACHED. @Y30LB12*/ 00065000 * /* *********************************************** @Y30LB12*/ 00066000 * /* */ 00067000 * /*****************************************************************/ 00068000 * 0091 00069000 * SVSYNAD=DCBSYNA; /* ICGDSINT SYNAD @ZA16131*/ 00070000 L @10,DCBPTR(,R4) 0091 00071000 LA @05,52 0091 00072000 ALR @05,@10 0091 00073000 MVC SVSYNAD(3),DCBSYNA(@05) 0091 00074000 * DCBSYNA=ADDR(MSGWTO); /* ICGDSMSG SYNAD @ZA16131*/ 00075000 LA @02,MSGWTO 0092 00076000 ST @02,@TF00001 0092 00077000 MVC DCBSYNA(3,@05),@TF00001+1 0092 00078000 * IF DCBIFPCT^='00'B|LINECT<=LINECTR/* @YM32179*/ 00079000 * THEN /* @Y30LB12*/ 00080000 TM DCBIFPCT+40(@10),B'00110000' 0093 00081000 BNZ @RT00093 0093 00082000 LH @10,LINECT(,R4) 0093 00083000 CH @10,LINECTR(,R4) 0093 00084000 BH @RF00093 0093 00085000 @RT00093 DS 0H 0094 00086000 * CALL PRNTHEAD; /* TO PRINT HEADING @Y30LB12*/ 00087000 BAL @14,PRNTHEAD 0094 00088000 * ELSE 0095 00089000 * ; /* @Y30LB12*/ 00090000 @RF00093 DS 0H 0096 00091000 * 0096 00092000 * /*****************************************************************/ 00093000 * /* */ 00094000 * /* ************************************************ @Y30LB12*/ 00095000 * /* DEPENDING ON THE BIT SETTINGS IN THE 'SPECLMSG' @XD00153*/ 00096000 * /* FLAGS IN THE STRUCTURE 'MESSAGES', ONE OF THE @XD00153*/ 00097000 * /* FOLLOWING OPERATIONS SHOULD BE PERFORMED: @XD00153*/ 00098000 * /* PRNTCARD = '1'B - MOVE THE CARD IMAGE JUST @XD00153*/ 00099000 * /* OR PUNCHED FROM THE BUFFER @XD00153*/ 00100000 * /* 'INPUT' AND PRINT IT. @XD00153*/ 00101000 * /* PRNTBUF2 = '1'B - PRINT THE MESSAGE DIRECTLY @XD00153*/ 00102000 * /* FROM 'OUTBUF2' @XD00153*/ 00103000 * /* MSGNO ^= 0 - PRINT MESSAGE TEXT FROM THIS @XD00153*/ 00104000 * /* THIS MODULE @XD00153*/ 00105000 * /* ************************************************ @Y30LB12*/ 00106000 * /* */ 00107000 * /*****************************************************************/ 00108000 * 0096 00109000 * IF PRNTCARD='1'B /* IF CARD IMAGE SW @Y30LB12*/ 00110000 * THEN /* @Y30LB12*/ 00111000 TM PRNTCARD(R4),B'00010000' 0096 00112000 BNO @RF00096 0096 00113000 * DO; /* @Y30LB12*/ 00114000 * OUTBUF(21:100)=INBUF(1:80); /* MOVE IMAGE @Y30LB12*/ 00115000 MVC OUTBUF+20(80,R4),INBUF(R4) 0098 00116000 * PRNTCARD='0'B; /* RESET PRINT CARD @Y30LB12*/ 00117000 NI PRNTCARD(R4),B'11101111' 0099 00118000 * R3=ADDR(OUTBUF); /* POINT TO BUFFER @Y30LB12*/ 00119000 LA R3,OUTBUF(,R4) 0100 00120000 * CALL PRINTMS; /* PRINT CARD IMAGE @Y30LB12*/ 00121000 BAL @14,PRINTMS 0101 00122000 * END; /* @Y30LB12*/ 00123000 * ELSE 0103 00124000 * ; /* @Y30LB12*/ 00125000 * 0103 00126000 @RF00096 DS 0H 0104 00127000 * /*****************************************************************/ 00128000 * /* */ 00129000 * /* *********************************************** @Y30LB12*/ 00130000 * /* PRINT MESSAGES WHOSE TEXT IS SET UP IN OTHER @Y30LB12*/ 00131000 * /* MODULES. PRINT SYNAD MESSAGE HERE. @Y30LB12*/ 00132000 * /* *********************************************** @Y30LB12*/ 00133000 * /* */ 00134000 * /*****************************************************************/ 00135000 * 0104 00136000 * IF PRNTBUF2='1'B /* IF MSG IN BUFFER, @Y30LB12*/ 00137000 * THEN /* @Y30LB12*/ 00138000 TM PRNTBUF2(R4),B'00000001' 0104 00139000 BNO @RF00104 0104 00140000 * DO; /* @Y30LB12*/ 00141000 * R3=ADDR(OUTBUF2); /* POINT AT BUFFER @Y30LB12*/ 00142000 LA R3,OUTBUF2(,R4) 0106 00143000 * CALL PRINTMS; /* TO PRINT MESSAGE @Y30LB12*/ 00144000 BAL @14,PRINTMS 0107 00145000 * PRNTBUF2='0'B; /* RESET PRNT SWITCH @Y30LB12*/ 00146000 NI PRNTBUF2(R4),B'11111110' 0108 00147000 * OUTBUF2=OUTBUF; /* CLEAR BUFFER2 @Y30LB12*/ 00148000 MVC OUTBUF2(121,R4),OUTBUF(R4) 0109 00149000 * END; /* @Y30LB12*/ 00150000 * ELSE 0111 00151000 * ; /* @Y30LB12*/ 00152000 * 0111 00153000 @RF00104 DS 0H 0112 00154000 * /*****************************************************************/ 00155000 * /* */ 00156000 * /* *********************************************** @Y30LB12*/ 00157000 * /* THIS ROUTINE CHECKS FOR A MESSAGE NUMBER @Y30LB12*/ 00158000 * /* PASSED BY A CALLING ROUTINE. NO MATCH ON @Y30LB12*/ 00159000 * /* MESSAGE NUMBER, PRINT A BLANK LINE. @Y30LB12*/ 00160000 * /* *********************************************** @Y30LB12*/ 00161000 * /* */ 00162000 * /*****************************************************************/ 00163000 * 0112 00164000 * IF MSGNO^=0 /* IF THERE IS A MESSAGE @Y30LB12*/ 00165000 * THEN /* NUMBER, INDEX INTO MSGS 0112 00166000 * @Y30LB12*/ 00167000 LH @10,MSGNO(,R4) 0112 00168000 LTR @10,@10 0112 00169000 BZ @RF00112 0112 00170000 * DO; /* TO LOCATE PROPER MESSAGE 0113 00171000 * @Y30LB12*/ 00172000 * 0113 00173000 * /*************************************************************/ 00174000 * /* */ 00175000 * /* ***************************************** @YD00113*/ 00176000 * /* LOCATE IN THE 'MSGLOKUP' TABLE THE @YD00113*/ 00177000 * /* ENTRY CORRESPONDING TO THE VALUE PASSED @YD00113*/ 00178000 * /* IN 'MSGNO'. USE THE DISPLACEMENT OF @YD00113*/ 00179000 * /* THAT ENTRY IN THE TABLE TO LOCATE THE @YD00113*/ 00180000 * /* ADDRESS OF THE MESSAGE TEXT IN THE @YD00113*/ 00181000 * /* SECOND TABLE 'MSGPTR'. MOVE 121 @YD00113*/ 00182000 * /* CHARACTERS OF MESSAGE TEXT BEGINNING AT @YD00113*/ 00183000 * /* THE ADDRESS IN 'MSGPTR' TO 'OUTBUF2'. @YD00113*/ 00184000 * /* MOVE THE NUMBER OF CHARACTERS THAT @YD00113*/ 00185000 * /* ACTUALLY ARE CONTAINED IN THE MESSAGE @YD00113*/ 00186000 * /* AS INDICATED BY THE THIRD TABLE 'MSGLEN' @YD00113*/ 00187000 * /* FROM OUTBUF2 TO OUTBUF. THE MESSAGE IS @YD00113*/ 00188000 * /* PRINTED FROM OUTBUF. @YD00113*/ 00189000 * /* IF THERE IS NO MATCH ON MESSAGE NUMBER, @YD00113*/ 00190000 * /* A BLANK LINE WILL BE PRINTED. @YD00113*/ 00191000 * /* ***************************************** @YD00113*/ 00192000 * /* */ 00193000 * /*************************************************************/ 00194000 * 0114 00195000 * DO I=1 TO DIM(MSGLOKUP); /* @Y30LB12*/ 00196000 LA I,1 0114 00197000 @DL00114 DS 0H 0115 00198000 * IF MSGNO=MSGLOKUP(I) /* @Y30LB12*/ 00199000 * THEN /* @Y30LB12*/ 00200000 LR @10,I 0115 00201000 ALR @10,@10 0115 00202000 LH @05,MSGNO(,R4) 0115 00203000 CH @05,MSGLOKUP-2(@10) 0115 00204000 BNE @RF00115 0115 00205000 * DO; /* @Y30LB12*/ 00206000 * MSGNO=I; /* @Y30LB12*/ 00207000 STH I,MSGNO(,R4) 0117 00208000 * R3=MSGPTR(MSGNO); /* @Y30LB12*/ 00209000 LH @10,MSGNO(,R4) 0118 00210000 SLA @10,2 0118 00211000 L R3,MSGPTR-4(@10) 0118 00212000 * GEN(MVC OUTBUF2(121,R4),0(R3));/* @Y30LB12*/ 00213000 MVC OUTBUF2(121,R4),0(R3) 00214000 * OUTBUF(1:MSGLEN(MSGNO))=OUTBUF2;/* @Y30LB12*/ 00215000 LH @10,MSGNO(,R4) 0120 00216000 ALR @10,@10 0120 00217000 LH @10,MSGLEN-2(@10) 0120 00218000 BCTR @10,0 0120 00219000 EX @10,@SM00906 0120 00220000 * END; /* @Y30LB12*/ 00221000 * ELSE 0122 00222000 * ; /* @Y30LB12*/ 00223000 @RF00115 DS 0H 0123 00224000 * END; /* @Y30LB12*/ 00225000 AH I,@CH00042 0123 00226000 CH I,@CH00588 0123 00227000 BNH @DL00114 0123 00228000 * R3=ADDR(OUTBUF); /* @Y30LB12*/ 00229000 LA R3,OUTBUF(,R4) 0124 00230000 * CALL PRINTMS; /* DIRECT, NOT FROM BUFFER 0125 00231000 * @Y30LB12*/ 00232000 BAL @14,PRINTMS 0125 00233000 * OUTBUF2(1:121)=OUTBUF(1:121);/* @Y30LB12*/ 00234000 MVC OUTBUF2(121,R4),OUTBUF(R4) 0126 00235000 * MSGNO=0; /* SET MESSAGE NUMBER TO 0 0127 00236000 * @Y30LB12*/ 00237000 * 0127 00238000 SLR @10,@10 0127 00239000 STH @10,MSGNO(,R4) 0127 00240000 * /*************************************************************/ 00241000 * /* */ 00242000 * /* ***************************************** @YD00113*/ 00243000 * /* IF THE MESSAGE NUMBER IS FOR ONE OF THE @YD00113*/ 00244000 * /* 'END OF PHASE' MESSAGES (ICG103I, @YD00113*/ 00245000 * /* ICG104I, ICG105I, ICG106I, OR ICG107I), @YD00113*/ 00246000 * /* CALL THE PROCEDURE 'PUTPHASE' TO WRITE @YD00113*/ 00247000 * /* MESSAGES ICG109I AND ICG110I AS NEEDED. @YD00113*/ 00248000 * /* ***************************************** @YD00113*/ 00249000 * /* */ 00250000 * /*************************************************************/ 00251000 * 0128 00252000 * IF ENDPHASE='1'B /* @Y30LB12*/ 00253000 * THEN /* @Y30LB12*/ 00254000 TM ENDPHASE(R4),B'00000100' 0128 00255000 BNO @RF00128 0128 00256000 * CALL PUTPHASE; /* @Y30LB12*/ 00257000 BAL @14,PUTPHASE 0129 00258000 * ELSE 0130 00259000 * ; /* @Y30LB12*/ 00260000 @RF00128 DS 0H 0131 00261000 * END; /* @Y30LB12*/ 00262000 * ELSE 0132 00263000 * ; /* MESSAGE NUMBER IS 0 @YD00113*/ 00264000 * 0132 00265000 @RF00112 DS 0H 0133 00266000 * /*****************************************************************/ 00267000 * /* */ 00268000 * /* *********************************************** @YD00113*/ 00269000 * /* RESTORE THE SYNAD ADDRESS THAT WAS IN EFFECT @YD00113*/ 00270000 * /* WHEN THE MESSAGE DATA SET WAS OPENED IN THE @YD00113*/ 00271000 * /* MODULE ICGDSINT AND RETURN TO THE CALLER. @YD00113*/ 00272000 * /* *********************************************** @YD00113*/ 00273000 * /* */ 00274000 * /*****************************************************************/ 00275000 * 0133 00276000 *DIDPRINT: 0133 00277000 * DCBPTR=ADDR(DCBPRINT); /* SET DCB OVERLAY @Y30LB12*/ 00278000 DIDPRINT LA @10,DCBPRINT(,R4) 0133 00279000 ST @10,DCBPTR(,R4) 0133 00280000 * DCBSYNA=SVSYNAD; /* RESTORE SYNAD ADR @Y30LB12*/ 00281000 MVC DCBSYNA+52(3,@10),SVSYNAD 0134 00282000 * RETURN; /* RETURN TO CALLER @Y30LB12*/ 00283000 B @EL00001 0135 00284000 * 0136 00285000 */********************************************************** @Y30LB12*/ 00286000 */* @YD00113*/ 00287000 */* PROCEDURE NAME - PUTPHASE @YD00113*/ 00288000 */* @YD00113*/ 00289000 */* FUNCTION - THIS PROCEDURE IS CALLED WHEN THE 'ENDPHASE' @YD00113*/ 00290000 */* SWITCH IS 1, AFTER MESSAGES ICG103I, ICG104I, @YD00113*/ 00291000 */* ICG105I, ICG106I, OR ICG107I HAS BEEN @YD00113*/ 00292000 */* PRINTED. THE NUMBER OF WARNING MESSAGES AND @YD00113*/ 00293000 */* THE NUMBER OF TERMINATING MESSAGES THAT HAVE @YD00113*/ 00294000 */* BEEN ISSUED IN THE PHASE IS CONVERTED TO @YD00113*/ 00295000 */* PRINTABLE DATA, AND THE HIGHEST RETURN CODE @YD00113*/ 00296000 */* CALCULATED AND CONVERTED TO PRINTABLE @YD00113*/ 00297000 */* FORM. @YD00113*/ 00298000 */* @YD00113*/ 00299000 */* IF THE LAST PREVIOUS MESSAGE WAS ICG107I, @YD00113*/ 00300000 */* (NEEDEOJ=1), PRINTING OF MESSAGE ICG109I IS @YD00113*/ 00301000 */* SUPPRESSED. OTHERWISE BOTH ICG109I AND @YD00113*/ 00302000 */* ICG110I ARE PRINTED. @YD00113*/ 00303000 */* @YD00113*/ 00304000 */********************************************************** @Y30LB12*/ 00305000 * 0136 00306000 *PUTPHASE: 0136 00307000 * PROCEDURE; /* @Y30LB12*/ 00308000 PUTPHASE STM @14,@12,@SA00002 0136 00309000 * ENDPHASE='0'B; /* SET END-PHASE SWITCH OFF 0137 00310000 * @Y30LB12*/ 00311000 * 0137 00312000 NI ENDPHASE(R4),B'11111011' 0137 00313000 * /*****************************************************************/ 00314000 * /* */ 00315000 * /* *********************************************** @YD00113*/ 00316000 * /* IF ANY WARNING MESSAGES WERE ISSUED IN THE @YD00113*/ 00317000 * /* PHASE JUST COMPLETED, CONVERT THE NUMBER OF @YD00113*/ 00318000 * /* WARNING MESSAGES ISSUED TO A PRINTABLE FOUR- @YD00113*/ 00319000 * /* DIGIT NUMBER. AND RESET THE NUMBER OF WARNING @YD00113*/ 00320000 * /* MESSAGES TO ZERO. IF THE CURRENT RETURN CODE @YD00113*/ 00321000 * /* IS ZERO, SET IT TO 4. @YD00113*/ 00322000 * /* *********************************************** @YD00113*/ 00323000 * /* */ 00324000 * /*****************************************************************/ 00325000 * 0138 00326000 * IF WARNING^=0 /* ANY WARNING MESSAGES @YD00113*/ 00327000 * THEN /* @YD00113*/ 00328000 LH @10,WARNING(,R4) 0138 00329000 LTR @10,@10 0138 00330000 BZ @RF00138 0138 00331000 * DO; /* @YD00113*/ 00332000 * PACKWORK=PACKCLR; /* @YD00113*/ 00333000 MVC PACKWORK(8),@CB00857 0140 00334000 * GENERATE; 0141 00335000 * /*@Y30LB12*/ 00336000 * NOTE ADDRESSIBILITY USING BASE REGISTER OF GOTTEN CSECT COMTAB 00337000 LH 6,WARNING(R4) 00338000 CVD 6,PACKWORK 00339000 UNPK WARN(4,R4),PACKWORK+5(3) 00340000 OI WARN+3(R4),X'F0' 00341000 * WARNING=0; /* WARNING MSG COUNT @YD00113*/ 00342000 SLR @10,@10 0142 00343000 STH @10,WARNING(,R4) 0142 00344000 * IF RETCODE=RETCODE0 /* @YD00113*/ 00345000 * THEN /* @YD00113*/ 00346000 CH @10,RETCODE(,R4) 0143 00347000 BNE @RF00143 0143 00348000 * RETCODE=RETCODE4; /* @YD00113*/ 00349000 MVC RETCODE(2,R4),@CH00068 0144 00350000 * ELSE 0145 00351000 * ; /* @Y30LB12*/ 00352000 @RF00143 DS 0H 0146 00353000 * END; /* @Y30LB12*/ 00354000 * 0146 00355000 * /*****************************************************************/ 00356000 * /* */ 00357000 * /* ********************************************* @YD00113*/ 00358000 * /* IF NO WARNING ERRORS WERE PRINTED IN THE @YD00113*/ 00359000 * /* PHASE, SET THE NUMBER OF WARNING MESSAGES @YD00113*/ 00360000 * /* FOR THE PRINT LINE TO PRINTABLE ZEROS @YD00113*/ 00361000 * /* ********************************************* @YD00113*/ 00362000 * /* */ 00363000 * /*****************************************************************/ 00364000 * 0147 00365000 * ELSE /* @YD00113*/ 00366000 * WARN=ZEROCNT; /* COUNT OF 0 @Y30LB12*/ 00367000 * 0147 00368000 B @RC00138 0147 00369000 @RF00138 MVC WARN(4,R4),@CC00876 0147 00370000 * /*****************************************************************/ 00371000 * /* */ 00372000 * /* *********************************************** @YD00113*/ 00373000 * /* IF ANY TERMINATING MESSAGES WERE ISSUED IN @YD00113*/ 00374000 * /* THE PHASE JUST COMPLETED, CONVERT THE NUMBER @YD00113*/ 00375000 * /* TERMINATING MESSAGES TO A PRINTABLE 4-DIGIT @YD00113*/ 00376000 * /* NUMBER AND RESET THE COUNTER TO ZERO. IF THE @YD00113*/ 00377000 * /* CURRENT RETURN CODE IS LESS THAN 8, SET IT TO @YD00113*/ 00378000 * /* EIGHT. @YD00113*/ 00379000 * /* *********************************************** @YD00113*/ 00380000 * /* */ 00381000 * /*****************************************************************/ 00382000 * 0148 00383000 * IF TERMINAT^=0 /* @Y30LB12*/ 00384000 * THEN /* @Y30LB12*/ 00385000 @RC00138 LH @10,TERMINAT(,R4) 0148 00386000 LTR @10,@10 0148 00387000 BZ @RF00148 0148 00388000 * DO; /* @Y30LB12*/ 00389000 * PACKWORK=PACKCLR; /* @YD00113*/ 00390000 MVC PACKWORK(8),@CB00857 0150 00391000 * GENERATE; 0151 00392000 * /*@Y30LB12*/ 00393000 * NOTE ADDRESSIBILITY USING BASE REGISTER OF GOTTEN CSECT COMTAB 00394000 LH 6,TERMINAT(R4) 00395000 CVD 6,PACKWORK 00396000 UNPK TERM(4,R4),PACKWORK+5(3) 00397000 OI TERM+3(R4),X'F0' 00398000 * TERMINAT=0; /* @Y30LB12*/ 00399000 SLR @10,@10 0152 00400000 STH @10,TERMINAT(,R4) 0152 00401000 * IF RETCODE<=RETCODE8 /* @YD00113*/ 00402000 * THEN /* @Y30LB12*/ 00403000 LA @10,8 0153 00404000 CH @10,RETCODE(,R4) 0153 00405000 BL @RF00153 0153 00406000 * DO; /* @Y30LB12*/ 00407000 * RETCODE=RETCODE8; /* @YD00113*/ 00408000 STH @10,RETCODE(,R4) 0155 00409000 * END; /* @Y30LB12*/ 00410000 * ELSE 0157 00411000 * ; /* @Y30LB12*/ 00412000 @RF00153 DS 0H 0158 00413000 * END; /* @Y30LB12*/ 00414000 * 0158 00415000 * /*****************************************************************/ 00416000 * /* */ 00417000 * /* ********************************************* @YD00113*/ 00418000 * /* IF NO TERMINATING MESSAGES WERE PRINTED IN @YD00113*/ 00419000 * /* THIS PHASE, PRINT ZEROS FOR TERMINATION @YD00113*/ 00420000 * /* COUNT. @YD00113*/ 00421000 * /* ********************************************* @YD00113*/ 00422000 * /* */ 00423000 * /*****************************************************************/ 00424000 * 0159 00425000 * ELSE /* @Y30LB12*/ 00426000 * DO; /* @Y30LB12*/ 00427000 B @RC00148 0159 00428000 @RF00148 DS 0H 0160 00429000 * TERM=ZEROCNT; /* @YD00113*/ 00430000 MVC TERM(4,R4),@CC00876 0160 00431000 * END; /* @Y30LB12*/ 00432000 * 0161 00433000 * /*****************************************************************/ 00434000 * /* */ 00435000 * /* *********************************************** @YM32179*/ 00436000 * /* BEFORE PRINTING MESSAGE ICG109I, CHECK TO SEE @YM32179*/ 00437000 * /* IF SKIP TO A NEW PAGE IS NEEDED. @YM32179*/ 00438000 * /* *********************************************** @YM32179*/ 00439000 * /* */ 00440000 * /*****************************************************************/ 00441000 * 0162 00442000 * IF DCBIFPCT^='00'B|LINECT<=LINECTR/* @YM32179*/ 00443000 * THEN /* @YM32179*/ 00444000 @RC00148 L @10,DCBPTR(,R4) 0162 00445000 TM DCBIFPCT+40(@10),B'00110000' 0162 00446000 BNZ @RT00162 0162 00447000 LH @10,LINECT(,R4) 0162 00448000 CH @10,LINECTR(,R4) 0162 00449000 BH @RF00162 0162 00450000 @RT00162 DS 0H 0163 00451000 * CALL PRNTHEAD; /* @YM32179*/ 00452000 * 0163 00453000 BAL @14,PRNTHEAD 0163 00454000 * /*****************************************************************/ 00455000 * /* */ 00456000 * /* *********************************************** @YM32179*/ 00457000 * /* IF THE END-OF-PHASE MESSAGE IS NOT ICG107I, @YD00113*/ 00458000 * /* PRINT MESSAGE ICG109I TO GIVE WARNING AND @YD00113*/ 00459000 * /* TERMINATING MESSAGE COUNTS FOR THE PHASE @YD00113*/ 00460000 * /* */ 00461000 * /*****************************************************************/ 00462000 * 0164 00463000 * IF NEEDEOJ^='1'B /* @Y30LB12*/ 00464000 * THEN /* @Y30LB12*/ 00465000 @RF00162 TM NEEDEOJ(R4),B'00000010' 0164 00466000 BO @RF00164 0164 00467000 * DO; /* @Y30LB12*/ 00468000 * OUTBUF(1:53)=ICG109I; /* @YD00113*/ 00469000 MVC OUTBUF(53,R4),ICG109I 0166 00470000 * OUTBUF(10:13)=WARN; /* @Y30LB12*/ 00471000 MVC OUTBUF+9(4,R4),WARN(R4) 0167 00472000 * OUTBUF(31:34)=TERM; /* @Y30LB12*/ 00473000 MVC OUTBUF+30(4,R4),TERM(R4) 0168 00474000 * R3=ADDR(OUTBUF); /* @Y30LB12*/ 00475000 LA R3,OUTBUF(,R4) 0169 00476000 * CALL PRINTMS; /* @Y30LB12*/ 00477000 BAL @14,PRINTMS 0170 00478000 * END; /* @Y30LB12*/ 00479000 * ELSE 0172 00480000 * ; /* @Y30LB12*/ 00481000 * 0172 00482000 @RF00164 DS 0H 0173 00483000 * /*****************************************************************/ 00484000 * /* */ 00485000 * /* *********************************************** @YM32179*/ 00486000 * /* BEFORE PRINTING MESSAGE ICG109I, CHECK TO SEE @YM32179*/ 00487000 * /* IF SKIP TO A NEW PAGE IS NEEDED. @YM32179*/ 00488000 * /* *********************************************** @YM32179*/ 00489000 * /* */ 00490000 * /*****************************************************************/ 00491000 * 0173 00492000 * IF DCBIFPCT^='00'B|LINECT<=LINECTR/* @YM32179*/ 00493000 * THEN /* @YM32179*/ 00494000 L @10,DCBPTR(,R4) 0173 00495000 TM DCBIFPCT+40(@10),B'00110000' 0173 00496000 BNZ @RT00173 0173 00497000 LH @10,LINECT(,R4) 0173 00498000 CH @10,LINECTR(,R4) 0173 00499000 BH @RF00173 0173 00500000 @RT00173 DS 0H 0174 00501000 * CALL PRNTHEAD; /* @YM32179*/ 00502000 * 0174 00503000 BAL @14,PRNTHEAD 0174 00504000 * /*****************************************************************/ 00505000 * /* */ 00506000 * /* *********************************************** @YD00113*/ 00507000 * /* CONVERT THE HIGHEST RETURN CODE TO PRINTABLE @YD00113*/ 00508000 * /* *********************************************** @YD00113*/ 00509000 * /* */ 00510000 * /*****************************************************************/ 00511000 * 0175 00512000 * IF RETCODE=RETCODE0 /* @YD00113*/ 00513000 * THEN /* @YD00113*/ 00514000 @RF00173 LH @10,RETCODE(,R4) 0175 00515000 LTR @10,@10 0175 00516000 BNZ @RF00175 0175 00517000 * PRINTRC=PCODE0; /* @YD00113*/ 00518000 MVC PRINTRC(2,R4),@CC00866 0176 00519000 * IF RETCODE=RETCODE4 /* @YXXXXXX*/ 00520000 * THEN /* @YD00113*/ 00521000 @RF00175 CLC RETCODE(2,R4),@CH00068 0177 00522000 BNE @RF00177 0177 00523000 * PRINTRC=PCODE4; /* @YD00113*/ 00524000 MVC PRINTRC(2,R4),@CC00868 0178 00525000 * IF RETCODE=RETCODE8 /* @YD00113*/ 00526000 * THEN /* @YD00113*/ 00527000 @RF00177 CLC RETCODE(2,R4),@CH00040 0179 00528000 BNE @RF00179 0179 00529000 * PRINTRC=PCODE8; /* @YD00113*/ 00530000 MVC PRINTRC(2,R4),@CC00870 0180 00531000 * IF RETCODE=RETCOD12 /* @YD00113*/ 00532000 * THEN /* @YD00113*/ 00533000 @RF00179 CLC RETCODE(2,R4),@CH00128 0181 00534000 BNE @RF00181 0181 00535000 * PRINTRC=PCODE12; /* @YD00113*/ 00536000 MVC PRINTRC(2,R4),@CC00872 0182 00537000 * IF RETCODE=RETCOD16 /* @YD00113*/ 00538000 * THEN /* @YD00113*/ 00539000 @RF00181 CLC RETCODE(2,R4),@CH00162 0183 00540000 BNE @RF00183 0183 00541000 * PRINTRC=PCODE16; /* @YD00113*/ 00542000 * 0184 00543000 MVC PRINTRC(2,R4),@CC00874 0184 00544000 * /*****************************************************************/ 00545000 * /* */ 00546000 * /* *********************************************** @YD00113*/ 00547000 * /* PRINT MESSAGE ICG110I @YD00113*/ 00548000 * /* *********************************************** @YD00113*/ 00549000 * /* */ 00550000 * /*****************************************************************/ 00551000 * 0185 00552000 * OUTBUF(1:33)=ICG110I; /* @YD00113*/ 00553000 @RF00183 MVC OUTBUF(33,R4),ICG110I 0185 00554000 * OUTBUF(34:35)=PRINTRC; /* @Y30LB12*/ 00555000 MVC OUTBUF+33(2,R4),PRINTRC(R4) 0186 00556000 * R3=ADDR(OUTBUF); /* @Y30LB12*/ 00557000 LA R3,OUTBUF(,R4) 0187 00558000 * CALL PRINTMS; /* @Y30LB12*/ 00559000 BAL @14,PRINTMS 0188 00560000 * END PUTPHASE; /* @Y30LB12*/ 00561000 @EL00002 DS 0H 0189 00562000 @EF00002 DS 0H 0189 00563000 @ER00002 LM @14,@12,@SA00002 0189 00564000 BR @14 0189 00565000 * 0190 00566000 */********************************************************** @Y30LB12*/ 00567000 */* @YD00113*/ 00568000 */* PROCEDURE NAME - PRINTMS @YD00113*/ 00569000 */* @YD00113*/ 00570000 */* FUNCTION - PRINT A LINE TO THE MESSAGE DATA SET FROM @YD00113*/ 00571000 */* THE BUFFER POINTED TO BY REGISTER 3 AND @YD00113*/ 00572000 */* CLEAR THE BUFFER 'OUTBUF'. 'OUBUF' MAY OR @YD00113*/ 00573000 */* MAY NOT BE THE BUFFER JUST PRINTED. BUMP @YD00113*/ 00574000 */* THE COUNT OF LINES PRINTED ON THIS PAGE BY 1. @YD00113*/ 00575000 */* @YD00113*/ 00576000 */********************************************************** @Y30LB12*/ 00577000 * 0190 00578000 *PRINTMS: 0190 00579000 * PROCEDURE; /* @Y30LB12*/ 00580000 PRINTMS STM @14,@12,@SA00003 0190 00581000 * R0=R3; /* @Y30LB12*/ 00582000 LR R0,R3 0191 00583000 * R1=ADDR(DCBPRINT); /* @Y30LB12*/ 00584000 LA R1,DCBPRINT(,R4) 0192 00585000 * GEN(PUT (1),(0)); /* @Y30LB12*/ 00586000 PUT (1),(0) 00587000 * OUTBUF(1)='40'X; /* @Y30LB12*/ 00588000 MVI OUTBUF(R4),X'40' 0194 00589000 * GEN(MVC OUTBUF+1(120,R4),OUTBUF(R4));/* @Y30LB12*/ 00590000 MVC OUTBUF+1(120,R4),OUTBUF(R4) 00591000 * LINECTR=LINECTR+1; /* @Y30LB12*/ 00592000 LA @10,1 0196 00593000 AH @10,LINECTR(,R4) 0196 00594000 STH @10,LINECTR(,R4) 0196 00595000 * END PRINTMS; /* @Y30LB12*/ 00596000 @EL00003 DS 0H 0197 00597000 @EF00003 DS 0H 0197 00598000 @ER00003 LM @14,@12,@SA00003 0197 00599000 BR @14 0197 00600000 * 0198 00601000 */********************************************************** @Y30LB12*/ 00602000 */*WRITE MESSAGE TO TERMINAL IF I/O ERROR ON SYSPRINT @Y30LB12*/ 00603000 */********************************************************** @Y30LB12*/ 00604000 * 0198 00605000 *MSGWTO: 0198 00606000 * ; /* @Y30LB12*/ 00607000 MSGWTO DS 0H 0199 00608000 * SAVE14=R14; /* @Y30LB12*/ 00609000 ST R14,SAVE14(,R4) 0199 00610000 * GEN(WTO MF=(E,WTOPRNT2)); /* @Y30LB12*/ 00611000 WTO MF=(E,WTOPRNT2) 00612000 * RETCODE=RETCOD16; /* @YD00113*/ 00613000 MVC RETCODE(2,R4),@CH00162 0201 00614000 * R14=SAVE14; /* @Y30LB12*/ 00615000 L R14,SAVE14(,R4) 0202 00616000 * GEN(BR 14); /* RETURN TO IOS @Y30LB12*/ 00617000 BR 14 00618000 * 0204 00619000 */********************************************************** @Y30LB12*/ 00620000 */* @Y30LB12*/ 00621000 */* PROCEDURE NAME - PRNTHEAD @Y30LB12*/ 00622000 */* @Y30LB12*/ 00623000 */* FUNCTION - PRINT HEADING LINE WHEN LINE COUNTER IS @Y30LB12*/ 00624000 */* EQUAL TO LINE COUNT OR WHEN CHANNEL 12 @Y30LB12*/ 00625000 */* IS SENSED. @Y30LB12*/ 00626000 */* @Y30LB12*/ 00627000 */********************************************************** @Y30LB12*/ 00628000 * 0204 00629000 *PRNTHEAD: 0204 00630000 * PROCEDURE; /* @Y30LB12*/ 00631000 B @PB00004 0204 00632000 PRNTHEAD STM @14,@12,@SA00004 0204 00633000 * OUTBUF(1:121)=HEADING(1:121); /* MOVE HEADING @Y30LB12*/ 00634000 MVC OUTBUF(121,R4),HEADING 0205 00635000 * OUTBUF(105:108)=PAGENO; /* CURRENT PAGE NUM @Y30LB12*/ 00636000 MVC OUTBUF+104(4,R4),PAGENO(R4) 0206 00637000 * PACKWORK=PACKCLR; /* CLEAR WORK AREA @YD00113*/ 00638000 * 0207 00639000 MVC PACKWORK(8),@CB00857 0207 00640000 * /*****************************************************************/ 00641000 * /* */ 00642000 * /* *********************************************** @Y30LB12*/ 00643000 * /* THE FOLLOWING GENERATED CODE PACKS THE FIELD @Y30LB12*/ 00644000 * /* 'PAGENO', INCREMENTS THE PACKED FIELD BY 1, @Y30LB12*/ 00645000 * /* UNPACKS THE RESULT BACK INTO 'PAGENO', AND @Y30LB12*/ 00646000 * /* REMOVES THE SIGN FROM THE LOW-ORDER BYTE. @Y30LB12*/ 00647000 * /* *********************************************** @Y30LB12*/ 00648000 * /* */ 00649000 * /*****************************************************************/ 00650000 * 0208 00651000 * GEN; 0208 00652000 * /*@Y30LB12*/ 00653000 * NOTE ADDRESSIBILITY USING BASE REGISTER OF GOTTEN CSECT COMTAB 00654000 PACK PACKWORK+5(3),PAGENO(4,R4) /*@Y30LB12*/ 00655000 AP PACKWORK+5(3),=X'00001C' /*@Y30LB12*/ 00656000 UNPK PAGENO(4,R4),PACKWORK+5(3) /*@Y30LB12*/ 00657000 OI PAGENO+3(R4),X'F0' /*@Y30LB12*/ 00658000 * LINECTR=0; /* RESET LINE CTR @Y30LB12*/ 00659000 SLR @10,@10 0209 00660000 STH @10,LINECTR(,R4) 0209 00661000 * R3=ADDR(OUTBUF); /* POINT AT BUFFER @Y30LB12*/ 00662000 LA R3,OUTBUF(,R4) 0210 00663000 * CALL PRINTMS; /* TO PRINT HEADING @Y30LB12*/ 00664000 BAL @14,PRINTMS 0211 00665000 * DCBIFPCT='00'B; /* RESET CHAN. FLAGS @Y30LB12*/ 00666000 L @10,DCBPTR(,R4) 0212 00667000 NI DCBIFPCT+40(@10),B'11001111' 0212 00668000 * END PRNTHEAD; /* RET. TO MAINLINE @Y30LB12*/ 00669000 @EL00004 DS 0H 0213 00670000 @EF00004 DS 0H 0213 00671000 @ER00004 LM @14,@12,@SA00004 0213 00672000 BR @14 0213 00673000 @PB00004 DS 0H 0214 00674000 * 0214 00675000 */********************************************************** @Y30LB12*/ 00676000 */* WRITE TO OPERATOR ON I/O ERROR @Y30LB12*/ 00677000 */********************************************************** @Y30LB12*/ 00678000 * 0214 00679000 * GENERATE; 0214 00680000 * 0214 00681000 * /*@Y30LB12*/ 00682000 WTOPRNT2 WTO 'ICG100I I/O ERROR ON SYSPRINT - MSCTC TERMINATED', **00683000 MF=L,ROUTCDE=(2),DESC=(4) /*@Y30LB12*/ 00684000 */********************************************************** @Y30LB12*/ 00685000 */* P A T C H A R E A @Y30LB12*/ 00686000 */********************************************************** @Y30LB12*/ 00687000 * 0215 00688000 * GENERATE; 0215 00689000 * /*@Y30LB12*/ 00690000 PATCHMSG DC 32C'PATCHMSG' /*@Y30LB12*/ 00691000 * END ICGDSMSG /* @Y30LB12*/ 00692000 * 0216 00693000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00694000 */*%INCLUDE SYSLIB (ICGDSMAC) */ 00695000 */*%INCLUDE SYSLIB (IHADCBDF) */ 00696000 */*%INCLUDE SYSLIB (IHADCB ) */ 00697000 * 0216 00698000 * ; 0216 00699000 B @EL00001 0216 00700000 @DATA DS 0H 00701000 @CH00042 DC H'1' 00702000 @CH00068 DC H'4' 00703000 @CH00040 DC H'8' 00704000 @CH00128 DC H'12' 00705000 @CH00162 DC H'16' 00706000 @CH00588 DC H'39' 00707000 @SM00906 MVC OUTBUF(0,R4),OUTBUF2(R4) 00708000 @DATD DSECT 00709000 DS 0F 00710000 @SA00001 DS 18F 00711000 @SA00004 DS 15F 00712000 @SA00003 DS 15F 00713000 @SA00002 DS 15F 00714000 @TF00001 DS F 00715000 @ZTEMPS DS C 00716000 @ZTEMPND EQU * 00717000 @ZLEN EQU @ZTEMPND-@ZTEMPS 00718000 ICGDSMSG CSECT 00719000 DS 0F 00720000 @DATD DSECT 00721000 DS 0D 00722000 PACKWORK DS CL8 00723000 SVSYNAD DS CL3 00724000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00725000 @ENDDATD EQU * 00726000 ICGDSMSG CSECT 00727000 DS 0F 00728000 @SIZDATD DC AL1(0) 00729000 DC AL3(@ENDDATD-@DATD) 00730000 DS 0D 00731000 @CC00876 DC C'0000' 00732000 @CC00866 EQU @CC00876 00733000 @CC00868 DC C'04' 00734000 @CC00870 DC C'08' 00735000 @CC00872 DC C'12' 00736000 @CC00874 DC C'16' 00737000 @CB00857 DC X'0000000000000000' 00738000 M101 DC CL47' ICG101I ''LINES'' OPTION ERROR - DEFAULT TAKEN' 00739000 M102 DC CL46' ICG102I ''PAGE'' OPTION ERROR - DEFAULT TAKEN' 00740000 M103 DC CL35' ICG103I INITIALIZE PHASE COMPLETED' 00741000 M104 DC CL29' ICG104I SCAN PHASE COMPLETED' 00742000 M105 DC CL32' ICG105I ANALYZE PHASE COMPLETED' 00743000 M106 DC CL30' ICG106I BUILD PHASE COMPLETED' 00744000 M107 DC CL38' ICG107I END OF JOB - MSC TABLE CREATE' 00745000 M200 DC CL29' ICG200I UNABLE TO OPEN SYSIN' 00746000 M202 DC CL35' ICG202I CONTROL STATEMENT IGNORED' 00747000 M203 DC CL37' ICG203I SYNTAX ERROR IN CONTINUATION' 00748000 M204 DC CL29' ICG204I INVALID COMMAND WORD' 00749000 M205 DC CL31' ICG205I DUPLICATE COMMAND WORD' 00750000 M207 DC CL40' ICG207I CONTINUATION INTO END-OF-DATA' 00751000 M208 DC CL42' ICG208I INVALID CONTINUATION OF STATEMENT' 00752000 M209 DC CL44' ICG209I EXPECTED, BUT DID NOT FIND, KEYWORD' 00753000 M210 DC CL32' ICG210I UNDEFINED KEYWORD FOUND' 00754000 M211 DC CL47' ICG211I EXPECTED, BUT DID NOT FIND, PARAMETER' 00755000 M212 DC CL34' ICG212I UNDEFINED PARAMETER FOUND' 00756000 M213 DC CL55' ICG213I CPUCONFG STATEMENT EXCLUSIVE KEYWORDS CONFC00757000 LICT' 00758000 M215 DC CL55' ICG215I CREATE STATEMENT EXCLUSIVE PARAMETERS CONFC00759000 LICT' 00760000 M216 DC CL43' ICG216I REQUIRED CREATE PARAMETER MISSING' 00761000 M217 DC CL44' ICG217I EXPECTED LOADMAP EXITNAME NOT FOUND' 00762000 M218 DC CL34' ICG218I LOADMAP EXITNAME TOO LONG' 00763000 M224 DC CL50' ICG224I MAXIMUM NUMBER OF SUPPORTED CPUS EXCEEDED' 00764000 M230 DC CL35' ICG230I SA/CI PREVIOUSLY SPECIFIED' 00765000 M243 DC CL49' ICG243I TWO SA IDENTIFICATIONS MUST BE DIFFERENT' 00766000 M246 DC CL66' ICG246I DASD CONTROLLER PREVIOUSLY SPECIFIED WITH C00767000 ONE MATCHING SA' 00768000 M249 DC CL53' ICG249I EXCEEDED SUPPORTED NUMBER OF ALTERNATE PATC00769000 HS' 00770000 M300 DC CL42' ICG300I MISSING REQUIRED STATEMENT CREATE' 00771000 M333 DC CL37' ICG333I SA 0 MUST INTERFACE TO SDG 0' 00772000 M334 DC CL43' ICG334I NO ALTERNATE SA PATH TO MSC TABLES' 00773000 M335 DC CL32' ICG335I MSF 0 MUST BE SPECIFIED' 00774000 M338 DC CL43' ICG338I SDG 0 MUST BE SPECIFIED WITH LCU 0' 00775000 M341 DC CL42' ICG341I SA 1 MUST HAVE PATH TO MSC TABLES' 00776000 M401 DC CL65' ICG401I WARNING - NOT USING CURRENT LEVEL OF MSC TC00777000 ABLES AS INPUT' 00778000 M402 DC CL67' ICG402I UNABLE TO OPEN SYSPUNCH. OUTPUT LISTED IN C00779000 MESSAGE DATA SET' 00780000 M404 DC CL56' ICG404I INPUT PACK DOES NOT VERIFY - MSCTC TERMINAC00781000 TED.' 00782000 M405 DC CL65' ICG405I SUSPEND LONG INDICATION MISSING - VOLUMES C00783000 MAY BE MOUNTED' 00784000 M411 DC CL61' ICG411I TABLE ID DOES NOT MATCH A TABLE PRODUCED BC00785000 Y ICGDSB10' 00786000 HEADING DC CL121'1 MSC TABLE CREATE (VS2) C00787000 PAGE' 00788000 ICG109I DC CL53' ICG109I XXXX WARNING ERRORS, XXXX TERMINATING ERROC00789000 RS' 00790000 ICG110I DC CL33' ICG110I HIGHEST RETURN CODE WAS ' 00791000 DS CL1 00792000 MSGLOKUP DC H'101' 00793000 DC H'102' 00794000 DC H'103' 00795000 DC H'104' 00796000 DC H'105' 00797000 DC H'106' 00798000 DC H'107' 00799000 DC H'200' 00800000 DC H'202' 00801000 DC H'203' 00802000 DC H'204' 00803000 DC H'205' 00804000 DC H'207' 00805000 DC H'208' 00806000 DC H'209' 00807000 DC H'210' 00808000 DC H'211' 00809000 DC H'212' 00810000 DC H'213' 00811000 DC H'215' 00812000 DC H'216' 00813000 DC H'217' 00814000 DC H'218' 00815000 DC H'224' 00816000 DC H'230' 00817000 DC H'243' 00818000 DC H'246' 00819000 DC H'249' 00820000 DC H'300' 00821000 DC H'333' 00822000 DC H'334' 00823000 DC H'335' 00824000 DC H'338' 00825000 DC H'341' 00826000 DC H'401' 00827000 DC H'402' 00828000 DC H'404' 00829000 DC H'405' 00830000 DC H'411' 00831000 MSGPTR DC AL4(M101) 00832000 DC AL4(M102) 00833000 DC AL4(M103) 00834000 DC AL4(M104) 00835000 DC AL4(M105) 00836000 DC AL4(M106) 00837000 DC AL4(M107) 00838000 DC AL4(M200) 00839000 DC AL4(M202) 00840000 DC AL4(M203) 00841000 DC AL4(M204) 00842000 DC AL4(M205) 00843000 DC AL4(M207) 00844000 DC AL4(M208) 00845000 DC AL4(M209) 00846000 DC AL4(M210) 00847000 DC AL4(M211) 00848000 DC AL4(M212) 00849000 DC AL4(M213) 00850000 DC AL4(M215) 00851000 DC AL4(M216) 00852000 DC AL4(M217) 00853000 DC AL4(M218) 00854000 DC AL4(M224) 00855000 DC AL4(M230) 00856000 DC AL4(M243) 00857000 DC AL4(M246) 00858000 DC AL4(M249) 00859000 DC AL4(M300) 00860000 DC AL4(M333) 00861000 DC AL4(M334) 00862000 DC AL4(M335) 00863000 DC AL4(M338) 00864000 DC AL4(M341) 00865000 DC AL4(M401) 00866000 DC AL4(M402) 00867000 DC AL4(M404) 00868000 DC AL4(M405) 00869000 DC AL4(M411) 00870000 MSGLEN DC AL2(47) 00871000 DC AL2(46) 00872000 DC AL2(35) 00873000 DC AL2(29) 00874000 DC AL2(32) 00875000 DC AL2(30) 00876000 DC AL2(38) 00877000 DC AL2(29) 00878000 DC AL2(35) 00879000 DC AL2(37) 00880000 DC AL2(29) 00881000 DC AL2(31) 00882000 DC AL2(40) 00883000 DC AL2(42) 00884000 DC AL2(44) 00885000 DC AL2(32) 00886000 DC AL2(47) 00887000 DC AL2(34) 00888000 DC AL2(55) 00889000 DC AL2(55) 00890000 DC AL2(43) 00891000 DC AL2(44) 00892000 DC AL2(34) 00893000 DC AL2(50) 00894000 DC AL2(35) 00895000 DC AL2(49) 00896000 DC AL2(66) 00897000 DC AL2(53) 00898000 DC AL2(42) 00899000 DC AL2(37) 00900000 DC AL2(43) 00901000 DC AL2(32) 00902000 DC AL2(43) 00903000 DC AL2(42) 00904000 DC AL2(65) 00905000 DC AL2(67) 00906000 DC AL2(56) 00907000 DC AL2(65) 00908000 DC AL2(61) 00909000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00910000 @01 EQU 01 00911000 @02 EQU 02 00912000 @03 EQU 03 00913000 @04 EQU 04 00914000 @05 EQU 05 00915000 @06 EQU 06 00916000 @07 EQU 07 00917000 @08 EQU 08 00918000 @09 EQU 09 00919000 @10 EQU 10 00920000 @11 EQU 11 00921000 @12 EQU 12 00922000 @13 EQU 13 00923000 @14 EQU 14 00924000 @15 EQU 15 00925000 I EQU @02 00926000 R4 EQU @04 00927000 R0 EQU @00 00928000 R1 EQU @01 00929000 R3 EQU @03 00930000 R14 EQU @14 00931000 COMTAB EQU 0 00932000 READER EQU COMTAB+256 00933000 READFLAG EQU READER+96 00934000 PCHBF EQU READER+99 00935000 INBUF EQU READER+100 00936000 STARTCOL EQU READER+180 00937000 NEXTCOL EQU READER+184 00938000 PRINTER EQU COMTAB+464 00939000 DCBPRINT EQU PRINTER 00940000 PAGENO EQU PRINTER+96 00941000 LINECTR EQU PRINTER+100 00942000 LINECT EQU PRINTER+102 00943000 OUTBUF EQU PRINTER+104 00944000 OUTBUF2 EQU PRINTER+225 00945000 MESSAGES EQU COMTAB+810 00946000 RETCODE EQU MESSAGES 00947000 MSGNO EQU MESSAGES+2 00948000 WARNING EQU MESSAGES+4 00949000 TERMINAT EQU MESSAGES+6 00950000 WARN EQU MESSAGES+8 00951000 TERM EQU MESSAGES+12 00952000 PRINTRC EQU MESSAGES+16 00953000 SPECLMSG EQU MESSAGES+18 00954000 PRNTCARD EQU SPECLMSG 00955000 ENDPHASE EQU SPECLMSG 00956000 NEEDEOJ EQU SPECLMSG 00957000 PRNTBUF2 EQU SPECLMSG 00958000 GENIO EQU COMTAB+832 00959000 DCBPTR EQU GENIO+4 00960000 SAVE14 EQU GENIO+12 00961000 COMPTR2 EQU GENIO+16 00962000 INVOKED EQU COMTAB+856 00963000 SAVEDDS EQU INVOKED+4 00964000 BUILDRSG EQU COMTAB+900 00965000 RSGS EQU BUILDRSG 00966000 RSG EQU RSGS 00967000 RSGABOX EQU RSG 00968000 RSGTODS EQU RSG+7 00969000 LIBRARY EQU COMTAB+1170 00970000 LIBS EQU LIBRARY 00971000 LIB EQU LIBS 00972000 LIBBITS EQU LIB 00973000 PABTABLE EQU COMTAB+1218 00974000 PABDEV EQU PABTABLE 00975000 PABFLAGS EQU PABDEV 00976000 PABREAL EQU PABDEV+1 00977000 PABAADDD EQU PABDEV+2 00978000 DSPAIRS EQU COMTAB+1938 00979000 PHYSTYPE EQU COMTAB+2002 00980000 PHYSFLGS EQU PHYSTYPE 00981000 MERLICEB EQU PHYSFLGS 00982000 CPUASSOC EQU COMTAB+3026 00983000 CPUS EQU CPUASSOC+2 00984000 CPU EQU CPUS 00985000 CPUFLAG1 EQU CPU+6 00986000 OPSYSTYP EQU CPUFLAG1 00987000 CPUFLAG2 EQU CPU+7 00988000 LOWERCON EQU COMTAB+3156 00989000 LOWDSS EQU LOWERCON 00990000 LOWFLGS EQU LOWDSS 00991000 LIBCTL EQU COMTAB+3284 00992000 LIBCTLS EQU LIBCTL 00993000 CREATE EQU COMTAB+3288 00994000 @NM00017 EQU CREATE 00995000 COMTAB2 EQU 0 00996000 DSTORSG EQU COMTAB2 00997000 DSENTRY EQU DSTORSG 00998000 CONFGCON EQU COMTAB2+32 00999000 RSGUCB EQU CONFGCON 01000000 RSGFLAGS EQU RSGUCB 01001000 CONFGUCB EQU COMTAB2+464 01002000 CONFGDEV EQU CONFGUCB 01003000 USEFLAGS EQU CONFGDEV 01004000 ALTPATH1 EQU CONFGDEV+2 01005000 ALTPATH2 EQU CONFGDEV+5 01006000 ALTPATH3 EQU CONFGDEV+8 01007000 IHADCB EQU 0 01008000 IHADCS04 EQU 0 01009000 IHADCS11 EQU 0 01010000 DCBRELB EQU IHADCS11 01011000 DCBREL EQU DCBRELB+1 01012000 DCBBUFCB EQU IHADCS11+4 01013000 DCBDSORG EQU IHADCS11+10 01014000 DCBDSRG1 EQU DCBDSORG 01015000 DCBDSRG2 EQU DCBDSORG+1 01016000 DCBIOBAD EQU IHADCS11+12 01017000 DCBODEB EQU DCBIOBAD 01018000 DCBLNP EQU DCBODEB 01019000 DCBQSLM EQU DCBLNP 01020000 DCBIOBAA EQU DCBODEB+1 01021000 IHADCS50 EQU 0 01022000 DCBSVCXL EQU IHADCS50 01023000 DCBEODAD EQU IHADCS50+4 01024000 DCBBFALN EQU DCBEODAD 01025000 DCBHIARC EQU DCBBFALN 01026000 DCBBFTEK EQU DCBHIARC 01027000 DCBBFT EQU DCBBFTEK 01028000 DCBEXLST EQU IHADCS50+8 01029000 DCBRECFM EQU DCBEXLST 01030000 DCBRECLA EQU DCBRECFM 01031000 IHADCS24 EQU 0 01032000 DCBOFLGS EQU IHADCS24+8 01033000 DCBOFLWR EQU DCBOFLGS 01034000 DCBOFOPN EQU DCBOFLGS 01035000 DCBIFLG EQU IHADCS24+9 01036000 DCBMACR EQU IHADCS24+10 01037000 DCBMACR1 EQU DCBMACR 01038000 DCBMRFE EQU DCBMACR1 01039000 DCBMRGET EQU DCBMRFE 01040000 DCBMRAPG EQU DCBMACR1 01041000 DCBMRRD EQU DCBMRAPG 01042000 DCBMRCI EQU DCBMACR1 01043000 DCBMRMVG EQU DCBMRCI 01044000 DCBMRLCG EQU DCBMACR1 01045000 DCBMRABC EQU DCBMACR1 01046000 DCBMRPT1 EQU DCBMRABC 01047000 DCBMRSBG EQU DCBMRPT1 01048000 DCBMRCRL EQU DCBMACR1 01049000 DCBMRCHK EQU DCBMRCRL 01050000 DCBMRRDX EQU DCBMRCHK 01051000 DCBMRDMG EQU DCBMACR1 01052000 DCBMACR2 EQU DCBMACR+1 01053000 DCBMRPUT EQU DCBMACR2 01054000 DCBMRWRT EQU DCBMACR2 01055000 DCBMRMVP EQU DCBMACR2 01056000 DCBMR5WD EQU DCBMACR2 01057000 DCBMRLDM EQU DCBMR5WD 01058000 DCBMRLCP EQU DCBMRLDM 01059000 DCBMR4WD EQU DCBMACR2 01060000 DCBMRPT2 EQU DCBMR4WD 01061000 DCBMRTMD EQU DCBMRPT2 01062000 DCBMR3WD EQU DCBMACR2 01063000 DCBMRCTL EQU DCBMR3WD 01064000 DCBMRSTK EQU DCBMRCTL 01065000 DCBMR1WD EQU DCBMACR2 01066000 DCBMRSWA EQU DCBMR1WD 01067000 DCBMRDMD EQU DCBMRSWA 01068000 IHADCS25 EQU 0 01069000 DCBMACRF EQU IHADCS25+2 01070000 DCBMACF1 EQU DCBMACRF 01071000 DCBMFFE EQU DCBMACF1 01072000 DCBMFGET EQU DCBMFFE 01073000 DCBMFAPG EQU DCBMACF1 01074000 DCBMFRD EQU DCBMFAPG 01075000 DCBMFCI EQU DCBMACF1 01076000 DCBMFMVG EQU DCBMFCI 01077000 DCBMFLCG EQU DCBMACF1 01078000 DCBMFABC EQU DCBMACF1 01079000 DCBMFPT1 EQU DCBMFABC 01080000 DCBMFSBG EQU DCBMFPT1 01081000 DCBMFCRL EQU DCBMACF1 01082000 DCBMFCHK EQU DCBMFCRL 01083000 DCBMFDMG EQU DCBMACF1 01084000 DCBMACF2 EQU DCBMACRF+1 01085000 DCBMFPUT EQU DCBMACF2 01086000 DCBMFWRT EQU DCBMACF2 01087000 DCBMFMVP EQU DCBMACF2 01088000 DCBMF5WD EQU DCBMACF2 01089000 DCBMFLDM EQU DCBMF5WD 01090000 DCBMFLCP EQU DCBMFLDM 01091000 DCBMF4WD EQU DCBMACF2 01092000 DCBMFPT2 EQU DCBMF4WD 01093000 DCBMFTMD EQU DCBMFPT2 01094000 DCBMF3WD EQU DCBMACF2 01095000 DCBMFCTL EQU DCBMF3WD 01096000 DCBMFSTK EQU DCBMFCTL 01097000 DCBMF1WD EQU DCBMACF2 01098000 DCBMFSWA EQU DCBMF1WD 01099000 DCBMFDMD EQU DCBMFSWA 01100000 DCBDEBAD EQU IHADCS25+4 01101000 DCBIFLGS EQU DCBDEBAD 01102000 DCBIFPCT EQU DCBIFLGS 01103000 IHADCS26 EQU 0 01104000 DCBWRITE EQU IHADCS26 01105000 DCBREAD EQU DCBWRITE 01106000 DCBWRITA EQU DCBREAD+1 01107000 IHADCS27 EQU 0 01108000 DCBGET EQU IHADCS27 01109000 DCBPUT EQU DCBGET 01110000 DCBGETA EQU DCBPUT+1 01111000 IHADCS36 EQU 0 01112000 DCBGERR EQU IHADCS36 01113000 DCBPERR EQU DCBGERR 01114000 DCBCHECK EQU DCBPERR 01115000 DCBOPTCD EQU DCBCHECK 01116000 DCBOPTH EQU DCBOPTCD 01117000 DCBOPTO EQU DCBOPTH 01118000 DCBOPTZ EQU DCBOPTCD 01119000 DCBGERRA EQU DCBCHECK+1 01120000 DCBPERRA EQU DCBGERRA 01121000 DCBSYNAD EQU IHADCS36+4 01122000 DCBSYNA EQU DCBSYNAD+1 01123000 DCBCIND1 EQU IHADCS36+8 01124000 DCBCIND2 EQU IHADCS36+9 01125000 DCBIOBA EQU IHADCS36+16 01126000 DCBCICB EQU DCBIOBA 01127000 IHADCS52 EQU 0 01128000 DCBDIRCT EQU IHADCS52 01129000 DCBQSWS EQU DCBDIRCT 01130000 DCBUSASI EQU DCBQSWS 01131000 DCBQADFS EQU DCBUSASI 01132000 DCBBUFOF EQU DCBDIRCT+1 01133000 IHADCS37 EQU 0 01134000 DCBFLAG1 EQU IHADCS37 01135000 IHADCS38 EQU 0 01136000 DCBEOBR EQU IHADCS38 01137000 DCBPOINT EQU IHADCS38+12 01138000 DCBCNTRL EQU DCBPOINT 01139000 IHADCS40 EQU 0 01140000 DCBEOBAD EQU IHADCS40 01141000 DCBCCCW EQU IHADCS40+4 01142000 DCBRECAD EQU DCBCCCW 01143000 DCBRECBT EQU DCBRECAD 01144000 DCBRCREL EQU DCBRECBT 01145000 @NM00043 EQU IHADCS40+12 01146000 DCBEROPT EQU @NM00043 01147000 SCANBUF EQU 0 01148000 SCANDATA EQU 0 01149000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01150000 DCBEOB EQU IHADCS40+20 01151000 DCBPRECL EQU IHADCS40+18 01152000 @NM00046 EQU IHADCS40+16 01153000 @NM00045 EQU @NM00043+1 01154000 @NM00044 EQU DCBEROPT 01155000 DCBERABE EQU DCBEROPT 01156000 DCBERSKP EQU DCBEROPT 01157000 DCBERACC EQU DCBEROPT 01158000 @NM00042 EQU IHADCS40+10 01159000 @NM00041 EQU IHADCS40+9 01160000 @NM00040 EQU IHADCS40+8 01161000 DCBRECA EQU DCBRECAD+1 01162000 @NM00039 EQU DCBRECBT 01163000 DCBRCFGT EQU DCBRCREL 01164000 DCBRCTRU EQU DCBRCREL 01165000 DCBLCCW EQU DCBEOBAD 01166000 DCBNOTE EQU DCBCNTRL 01167000 DCBLRECL EQU IHADCS38+10 01168000 @NM00038 EQU IHADCS38+8 01169000 DCBEOBW EQU IHADCS38+4 01170000 DCBEOBRA EQU DCBEOBR+1 01171000 DCBNCP EQU DCBEOBR 01172000 @NM00037 EQU DCBFLAG1 01173000 DCBSTFLS EQU DCBFLAG1 01174000 DCBSTQCK EQU DCBFLAG1 01175000 DCBDIRCQ EQU DCBBUFOF 01176000 DCBQSTRU EQU DCBUSASI 01177000 @NM00036 EQU DCBUSASI 01178000 DCBQADF3 EQU DCBQADFS 01179000 DCBQADF2 EQU DCBQADFS 01180000 DCBQADF1 EQU DCBQADFS 01181000 DCBBLBP EQU DCBUSASI 01182000 @NM00035 EQU DCBUSASI 01183000 DCBCICBA EQU DCBCICB+1 01184000 @NM00034 EQU DCBCICB 01185000 DCBOFFSW EQU IHADCS36+15 01186000 DCBOFFSR EQU IHADCS36+14 01187000 DCBWCPL EQU IHADCS36+13 01188000 DCBWCPO EQU IHADCS36+12 01189000 DCBBLKSI EQU IHADCS36+10 01190000 DCBCNQSM EQU DCBCIND2 01191000 DCBCNFEO EQU DCBCIND2 01192000 DCBCNCHS EQU DCBCIND2 01193000 DCBCNBFP EQU DCBCIND2 01194000 DCBCNIOE EQU DCBCIND2 01195000 DCBCNCLO EQU DCBCIND2 01196000 DCBCNWRO EQU DCBCIND2 01197000 DCBCNSTO EQU DCBCIND2 01198000 DCBCNEXB EQU DCBCIND1 01199000 @NM00033 EQU DCBCIND1 01200000 DCBCNBRM EQU DCBCIND1 01201000 @NM00032 EQU DCBCIND1 01202000 DCBCNEVA EQU DCBCIND1 01203000 DCBCNEVB EQU DCBCIND1 01204000 DCBCNSRD EQU DCBCIND1 01205000 DCBCNTOV EQU DCBCIND1 01206000 DCBIOBL EQU DCBSYNAD 01207000 DCBCHCKA EQU DCBPERRA 01208000 @NM00031 EQU DCBOPTCD 01209000 DCBOPTT EQU DCBOPTCD 01210000 DCBSRCHD EQU DCBOPTZ 01211000 DCBOPTQ EQU DCBOPTCD 01212000 DCBBCKPT EQU DCBOPTO 01213000 DCBOPTC EQU DCBOPTCD 01214000 DCBOPTU EQU DCBOPTCD 01215000 DCBOPTW EQU DCBOPTCD 01216000 DCBPUTA EQU DCBGETA 01217000 @NM00030 EQU DCBPUT 01218000 DCBREADA EQU DCBWRITA 01219000 @NM00029 EQU DCBREAD 01220000 DCBDEBA EQU DCBDEBAD+1 01221000 @NM00028 EQU DCBIFLGS 01222000 DCBIFIOE EQU DCBIFLGS 01223000 DCBIFEC EQU DCBIFLGS 01224000 DCBMFSTI EQU DCBMFDMD 01225000 DCBMFAWR EQU DCBMFSTK 01226000 DCBMFUIP EQU DCBMFTMD 01227000 DCBMFIDW EQU DCBMFLCP 01228000 DCBMFWRK EQU DCBMFMVP 01229000 DCBMFRDQ EQU DCBMFWRT 01230000 DCBMFGTQ EQU DCBMFPUT 01231000 DCBMFSTL EQU DCBMACF2 01232000 DCBMFCK EQU DCBMFDMG 01233000 DCBMFRDX EQU DCBMFCHK 01234000 DCBMFDBF EQU DCBMFSBG 01235000 DCBMFRDI EQU DCBMFLCG 01236000 DCBMFRDK EQU DCBMFMVG 01237000 DCBMFWRQ EQU DCBMFRD 01238000 DCBMFPTQ EQU DCBMFGET 01239000 DCBMFECP EQU DCBMACF1 01240000 DCBTIOT EQU IHADCS25 01241000 DCBMRSTI EQU DCBMRDMD 01242000 DCBMRAWR EQU DCBMRSTK 01243000 DCBMRUIP EQU DCBMRTMD 01244000 DCBMRIDW EQU DCBMRLCP 01245000 DCBMRWRK EQU DCBMRMVP 01246000 DCBMRRDQ EQU DCBMRWRT 01247000 DCBMRGTQ EQU DCBMRPUT 01248000 DCBMRSTL EQU DCBMACR2 01249000 DCBMRCK EQU DCBMRDMG 01250000 DCBPGFXA EQU DCBMRRDX 01251000 DCBMRDBF EQU DCBMRSBG 01252000 DCBMRRDI EQU DCBMRLCG 01253000 DCBMRRDK EQU DCBMRMVG 01254000 DCBMRWRQ EQU DCBMRRD 01255000 DCBMRPTQ EQU DCBMRGET 01256000 DCBMRECP EQU DCBMACR1 01257000 @NM00027 EQU DCBIFLG 01258000 DCBIBIOE EQU DCBIFLG 01259000 DCBIBPCT EQU DCBIFLG 01260000 DCBIBEC EQU DCBIFLG 01261000 DCBOFIOF EQU DCBOFLGS 01262000 DCBOFUEX EQU DCBOFLGS 01263000 DCBOFTM EQU DCBOFLGS 01264000 DCBOFPPC EQU DCBOFLGS 01265000 DCBOFEOV EQU DCBOFLGS 01266000 DCBOFLRB EQU DCBOFLGS 01267000 DCBOFIOD EQU DCBOFLWR 01268000 DCBDDNAM EQU IHADCS24 01269000 DCBEXLSA EQU DCBEXLST+1 01270000 DCBRECKL EQU DCBRECFM 01271000 DCBRECCC EQU DCBRECFM 01272000 DCBRECSB EQU DCBRECFM 01273000 DCBRECBR EQU DCBRECFM 01274000 DCBRECTO EQU DCBRECLA 01275000 DCBRECL EQU DCBRECLA 01276000 DCBEODA EQU DCBEODAD+1 01277000 DCBBFA EQU DCBBFTEK 01278000 DCBH0 EQU DCBBFTEK 01279000 DCBBFTKD EQU DCBBFTEK 01280000 DCBBFTE EQU DCBBFT 01281000 DCBBFTKR EQU DCBBFT 01282000 DCBBFTS EQU DCBBFT 01283000 DCBH1 EQU DCBBFTEK 01284000 DCBSVCXA EQU DCBSVCXL+1 01285000 @NM00026 EQU DCBSVCXL 01286000 DCBODEBA EQU DCBIOBAA 01287000 @NM00025 EQU DCBQSLM 01288000 DCBUPDBT EQU DCBQSLM 01289000 DCBUPDCM EQU DCBQSLM 01290000 DCB1DVDS EQU DCBQSLM 01291000 @NM00024 EQU DCBDSRG2 01292000 DCBDSGTR EQU DCBDSRG2 01293000 DCBACBM EQU DCBDSRG2 01294000 @NM00023 EQU DCBDSRG2 01295000 DCBDSGTQ EQU DCBDSRG2 01296000 DCBDSGTX EQU DCBDSRG2 01297000 DCBDSGGS EQU DCBDSRG2 01298000 DCBDSGU EQU DCBDSRG1 01299000 DCBDSGPO EQU DCBDSRG1 01300000 DCBDSGMQ EQU DCBDSRG1 01301000 DCBDSGCQ EQU DCBDSRG1 01302000 DCBDSGCX EQU DCBDSRG1 01303000 DCBDSGDA EQU DCBDSRG1 01304000 DCBDSGPS EQU DCBDSRG1 01305000 DCBDSGIS EQU DCBDSRG1 01306000 DCBBUFL EQU IHADCS11+8 01307000 DCBBUFCA EQU DCBBUFCB+1 01308000 DCBBUFNO EQU DCBBUFCB 01309000 DCBDEVT EQU DCBREL 01310000 DCBKEYLE EQU DCBRELB 01311000 @NM00022 EQU IHADCS04+3 01312000 DCBPRTOV EQU IHADCS04+2 01313000 @NM00021 EQU IHADCS04+1 01314000 DCBPRTSP EQU IHADCS04 01315000 @NM00020 EQU IHADCB 01316000 ALTCH3 EQU ALTPATH3+2 01317000 ALTCI3 EQU ALTPATH3+1 01318000 ALTDS3 EQU ALTPATH3 01319000 ALTCH2 EQU ALTPATH2+2 01320000 ALTCI2 EQU ALTPATH2+1 01321000 ALTDS2 EQU ALTPATH2 01322000 ALTCH1 EQU ALTPATH1+2 01323000 ALTCI1 EQU ALTPATH1+1 01324000 ALTDS1 EQU ALTPATH1 01325000 INDEXRSG EQU CONFGDEV+1 01326000 ICEBERG EQU USEFLAGS 01327000 ITISALTP EQU USEFLAGS 01328000 USECONVR EQU USEFLAGS 01329000 SUPPUNCH EQU USEFLAGS 01330000 USEREAL EQU USEFLAGS 01331000 USEVS EQU USEFLAGS 01332000 USEV EQU USEFLAGS 01333000 USESPEC EQU USEFLAGS 01334000 RSGCUA EQU RSGUCB+8 01335000 RSGCHAN EQU RSGUCB+7 01336000 CPUREFNO EQU RSGUCB+6 01337000 RSGCPUID EQU RSGUCB+1 01338000 @NM00019 EQU RSGFLAGS 01339000 CISPEC EQU RSGFLAGS 01340000 TORSG2 EQU DSENTRY+1 01341000 TORSG1 EQU DSENTRY 01342000 COM2BASE EQU COMTAB+3304 01343000 LRUCLOCK EQU CREATE+11 01344000 VOLSER EQU CREATE+5 01345000 VPAGES EQU CREATE+1 01346000 @NM00018 EQU @NM00017 01347000 PRNTONLY EQU @NM00017 01348000 UPDCREAT EQU @NM00017 01349000 NEWCREAT EQU @NM00017 01350000 CMDCREAT EQU @NM00017 01351000 RW67RGHT EQU LIBCTLS 01352000 RW67LEFT EQU LIBCTLS 01353000 RW45RGHT EQU LIBCTLS 01354000 RW45LEFT EQU LIBCTLS 01355000 RW23RGHT EQU LIBCTLS 01356000 RW23LEFT EQU LIBCTLS 01357000 RW01RGHT EQU LIBCTLS 01358000 RW01LEFT EQU LIBCTLS 01359000 LOWLIB EQU LOWDSS+1 01360000 @NM00016 EQU LOWFLGS 01361000 LOWRGHT EQU LOWFLGS 01362000 LOWLEFT EQU LOWFLGS 01363000 LOWRW67 EQU LOWFLGS 01364000 LOWRW45 EQU LOWFLGS 01365000 LOWRW23 EQU LOWFLGS 01366000 LOWRW01 EQU LOWFLGS 01367000 LOWSPEC EQU LOWFLGS 01368000 ALTMSCIN EQU CPUFLAG2 01369000 @NM00015 EQU CPUFLAG2 01370000 ALTMSGBF EQU CPUFLAG2 01371000 @NM00014 EQU CPUFLAG2 01372000 CPUSPEC EQU CPUFLAG2 01373000 CPUMSCIN EQU CPUFLAG1 01374000 OPJES3 EQU OPSYSTYP 01375000 OPVS2 EQU OPSYSTYP 01376000 OPVS1 EQU OPSYSTYP 01377000 CPUALTFL EQU CPUFLAG1 01378000 CPUTIGHT EQU CPUFLAG1 01379000 @NM00013 EQU CPUFLAG1 01380000 TOMPCPU EQU CPU+5 01381000 CPUID EQU CPU 01382000 CPUNUM EQU CPUASSOC 01383000 SPNRSGNO EQU PHYSTYPE+1 01384000 LGDEVICE EQU PHYSFLGS 01385000 LOGABOX1 EQU PHYSFLGS 01386000 PHYSSSID EQU PHYSFLGS 01387000 PHYSREAL EQU PHYSFLGS 01388000 PHYSICEB EQU MERLICEB 01389000 PHYSMERL EQU MERLICEB 01390000 PHYSDS2 EQU DSPAIRS 01391000 PABDDD EQU PABAADDD 01392000 PABAA EQU PABAADDD 01393000 PABZEROS EQU PABAADDD 01394000 PAB2D EQU PABREAL 01395000 PAB2C EQU PABREAL 01396000 PAB2B EQU PABREAL 01397000 @NM00012 EQU PABREAL 01398000 PAB1D EQU PABREAL 01399000 PAB1C EQU PABREAL 01400000 PAB1B EQU PABREAL 01401000 PABIMPLR EQU PABREAL 01402000 PABBERG2 EQU PABFLAGS 01403000 @NM00011 EQU PABFLAGS 01404000 PABDSMTL EQU PABFLAGS 01405000 PABIBERG EQU PABFLAGS 01406000 @NM00010 EQU PABFLAGS 01407000 PABVOVIR EQU PABFLAGS 01408000 PABEXIST EQU PABFLAGS 01409000 MAPEXIT EQU LIB+4 01410000 LIBMAP EQU LIB+3 01411000 LIBDSMID EQU LIB+2 01412000 LIBSIZE EQU LIB+1 01413000 @NM00009 EQU LIBBITS 01414000 LIBSPEC EQU LIBBITS 01415000 TODS2 EQU RSGTODS+1 01416000 TODS1 EQU RSGTODS 01417000 RSGSLICE EQU RSG+3 01418000 RSGUDEL EQU RSG+2 01419000 RSGLDEL EQU RSG+1 01420000 @NM00008 EQU RSG 01421000 RSGABOX1 EQU RSGABOX 01422000 RSGABOX0 EQU RSGABOX 01423000 RSGSPEC EQU RSG 01424000 SVSYSUT3 EQU SAVEDDS+32 01425000 SVSYSUT2 EQU SAVEDDS+24 01426000 SVSYSUT1 EQU SAVEDDS+16 01427000 SVSYSPCH EQU SAVEDDS+8 01428000 SVSYSIN EQU SAVEDDS 01429000 PARMPTR EQU INVOKED 01430000 BUILDPTR EQU GENIO+20 01431000 EXLST EQU GENIO+8 01432000 @NM00007 EQU DCBPTR+1 01433000 DCBFLAG EQU DCBPTR 01434000 OPENLIST EQU GENIO 01435000 @NM00006 EQU MESSAGES+19 01436000 @NM00005 EQU SPECLMSG 01437000 @NM00004 EQU SPECLMSG 01438000 NEED102 EQU SPECLMSG 01439000 NEED101 EQU SPECLMSG 01440000 @NM00003 EQU READER+206 01441000 SCANLEN EQU READER+204 01442000 SVEODAD EQU READER+200 01443000 SVSYNAD2 EQU READER+196 01444000 SAVENCOL EQU READER+192 01445000 SAVESCOL EQU READER+188 01446000 SSELECT EQU PCHBF 01447000 @NM00002 EQU READER+97 01448000 @NM00001 EQU READFLAG 01449000 LASTPARM EQU READFLAG 01450000 ENDSCAN EQU READFLAG 01451000 PARMBIT EQU READFLAG 01452000 KEYBIT EQU READFLAG 01453000 READTERM EQU READFLAG 01454000 READDCB EQU READER 01455000 PATCH EQU COMTAB 01456000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01457000 @ENDDATA EQU * 01458000 END ICGDSMSG,(C'PLS0021',0603,77067) 01459000