TITLE 'AMDSYS03 - SYSM FORMAT APPENDAGE *00001000 ' 00002000 AMDSYS03 CSECT , 0001 00003000 @PROLOG ST @14,12(,@13) 0001 00004000 STM @00,@12,20(@13) 0001 00005000 BALR @07,0 0001 00006000 @PSTART LA @11,4095(,@07) 0001 00007000 USING @PSTART,@07 0001 00008000 USING @PSTART+4095,@11 0001 00009000 USING @DATD,WORKPTR COMPILER WORK AREA 00010000 * PREG=REG1; /* SAVE PARM PTR IN PREG */ 00011000 LR PREG,REG1 0118 00012000 * WORKPTR=WKAPTR; /* SET UP COMPILER WORK AREA */ 00013000 L WORKPTR,WKAPTR(,PREG) 0119 00014000 * GEN; 0120 00015000 * 0120 00016000 * /* GENERATE REMAINING LINKAGE CONVENTIONS */ 00017000 ST @13,@SA00001+4 00018000 LA @15,@SA00001 00019000 ST @15,8(0,@13) 00020000 LR @13,@15 00021000 * /*****************************************************************/ 00022000 * /* */ 00023000 * /* LOOP TO TEST EID OF CURRENT RECORD TO DETERMINE WHICH ROUTINE */ 00024000 * /* SHOULD FORMAT */ 00025000 * /* */ 00026000 * /*****************************************************************/ 00027000 * 0121 00028000 * DO I=1 TO 18; 0121 00029000 LA I,1 0121 00030000 @DL00121 DS 0H 0122 00031000 * IF RTNEID(I)=EID THEN 0122 00032000 LR @12,I 0122 00033000 SLA @12,3 0122 00034000 L @06,EIDPTR(,PREG) 0122 00035000 LA @04,RTNEID-8(@12) 0122 00036000 CLC 0(2,@04),EID(@06) 0122 00037000 BNE @RF00122 0122 00038000 * DO; 0123 00039000 * GO TO RTNADDR(I); /* MATCH ON EID - PICK UP 0124 00040000 * ASSOCIATED ADDRESS AND BRANCH 00041000 * TO ROUTINE */ 00042000 L @12,RTNADDR-8(@12) 0124 00043000 BR @12 0124 00044000 * END; 0125 00045000 * END; /* END LOOP TO TEST EID VALUE */ 00046000 * 0126 00047000 @RF00122 AL I,@CF00046 0126 00048000 C I,@CF00323 0126 00049000 BNH @DL00121 0126 00050000 * /*****************************************************************/ 00051000 * /* */ 00052000 * /* FALL OUT MEANS INVALID EID - SET RETURN CODE 8 AND EXIT */ 00053000 * /* */ 00054000 * /*****************************************************************/ 00055000 * 0127 00056000 *SETRET8: 0127 00057000 * REG15=8; 0127 00058000 SETRET8 LA REG15,8 0127 00059000 * RETURN; 0128 00060000 @EL00001 L @13,4(,@13) 0128 00061000 @EF00001 DS 0H 0128 00062000 @ER00001 L @14,12(,@13) 0128 00063000 LM @00,@12,20(@13) 0128 00064000 BR @14 0128 00065000 *IORTN: 0129 00066000 * REG3=ADDR(IO); /* POINT TO I/O SECTION OF 0129 00067000 * AMDPRTAB */ 00068000 * 0129 00069000 IORTN LA REG3,IO(,AEDITCBR) 0129 00070000 * /*****************************************************************/ 00071000 * /* */ 00072000 * /* BRANCH HERE TO TEST IF RECORD SHOULD BE FORMATTED, FIRST TEST */ 00073000 * /* CHECK FOR ALL SYSM RECORDS OR ALL OF EITHER I/O OR SIO RECORDS*/ 00074000 * /* BEING PRINTER */ 00075000 * /* */ 00076000 * /*****************************************************************/ 00077000 * 0130 00078000 *FMTTEST: 0130 00079000 * IF SYSM='1'B|ALL='1'B THEN 0130 00080000 FMTTEST TM SYSM(AEDITCBR),B'00010000' 0130 00081000 BO @RT00130 0130 00082000 TM ALL(REG3),B'10000000' 0130 00083000 BNO @RF00130 0130 00084000 @RT00130 DS 0H 0131 00085000 *TESTERR1: 0131 00086000 * DO; /* VERIFY THAT RECORD IS OK 0131 00087000 * BEFORE BRANCH TO PATTERN 0131 00088000 * SELECTION */ 00089000 * 0131 00090000 TESTERR1 DS 0H 0132 00091000 * /*************************************************************/ 00092000 * /* */ 00093000 * /* IF RECORD CONTAINS ERROR CODE, DUMP IN HEX */ 00094000 * /* */ 00095000 * /*************************************************************/ 00096000 * 0132 00097000 * IF DATA(1:2)='EEEE'X THEN 0132 00098000 L @12,DATAPTR(,PREG) 0132 00099000 CLC DATA(2,@12),@CB00606 0132 00100000 BNE @RF00132 0132 00101000 *CALLHEX: 0133 00102000 * DO; 0133 00103000 CALLHEX DS 0H 0134 00104000 * REG15=12; /* INDICATE HEX DUMP ROUTINE */ 00105000 LA REG15,12 0134 00106000 * RETURN; /* RECORD TO BE PRINTED IN HEX */ 00107000 B @EL00001 0135 00108000 * END CALLHEX; 0136 00109000 * ELSE 0137 00110000 * GO TO IOSPLIT; /* GO SELECT APPROPRIATE FORMAT 00111000 * PATTERN */ 00112000 * END TESTERR1; 0138 00113000 * 0138 00114000 * /*****************************************************************/ 00115000 * /* */ 00116000 * /* NOT ALL OF THIS TYPE OF RECORD BEING PRINTED, CHECK FOR */ 00117000 * /* SELECTION BY PARTICULAR */ 00118000 * /* */ 00119000 * /*****************************************************************/ 00120000 * 0139 00121000 * IF SELECT='0'B THEN 0139 00122000 @RF00130 TM SELECT(REG3),B'01000000' 0139 00123000 BZ @RT00139 0139 00124000 * GO TO SETRET8; /* NO SELECTION AT ALL - RETURN 00125000 * WITH CODE 8 FOR NO PRINTING */ 00126000 * IF DATA(1:2)='EEEE'X THEN /* VERIFY RECORD IS CLEAN BEFORE 00127000 * DEVICE SEARCH */ 00128000 L @12,DATAPTR(,PREG) 0141 00129000 CLC DATA(2,@12),@CB00606 0141 00130000 BE @RT00141 0141 00131000 * GO TO CALLHEX; /* IN CASE OF BAD RECORD, ASSUME 00132000 * NOT SELECTED AND SET RETURN 0142 00133000 * CODE 8 */ 00134000 * 0142 00135000 * /*****************************************************************/ 00136000 * /* */ 00137000 * /* THE FOLLOWING ROUTINE SEARCHES DEVICE ADDR TABLE, ADDRESSED BY*/ 00138000 * /* THE DEVSRCH1 INCLUDE AND REG3. THE IDENTIFIER IODEV IS USED AS*/ 00139000 * /* A SEARCH ARGUMENT. */ 00140000 * /* */ 00141000 * /*****************************************************************/ 00142000 * 0143 00143000 * DO I=1 TO 50; /* LOOP THROUGH ALL ENTRIES IN 0143 00144000 * DEV ADDR TABLE */ 00145000 * 0143 00146000 LA I,1 0143 00147000 @DL00143 DS 0H 0144 00148000 * /***************************************************************/ 00149000 * /* */ 00150000 * /* IF TABLE ENTRY IS BLANK, MEANS END OF ADDRESSES AND SEARCH */ 00151000 * /* HAS FAILED */ 00152000 * /* */ 00153000 * /***************************************************************/ 00154000 * 0144 00155000 * IF DEVTAB(I)=' ' THEN 0144 00156000 LR @12,I 0144 00157000 ALR @12,@12 0144 00158000 ST @12,@TF00001 0144 00159000 ALR @12,REG3 0144 00160000 CLC DEVTAB-2(2,@12),@CC00611 0144 00161000 BE @RT00144 0144 00162000 * GOTO SETRET8; 0145 00163000 * IF DEVTAB(I)=IODEVA THEN 0146 00164000 L @12,DATAPTR(,PREG) 0146 00165000 LR @06,REG3 0146 00166000 AL @06,@TF00001 0146 00167000 CLC DEVTAB-2(2,@06),IODEVA(@12) 0146 00168000 BE @RT00146 0146 00169000 * GOTO EXIT; 0147 00170000 * END; 0148 00171000 * 0148 00172000 AL I,@CF00046 0148 00173000 C I,@CF00104 0148 00174000 BNH @DL00143 0148 00175000 * /*****************************************************************/ 00176000 * /* */ 00177000 * /* FALL OUT MEANS NOT FOUND */ 00178000 * /* */ 00179000 * /*****************************************************************/ 00180000 * 0149 00181000 * GOTO SETRET8; 0149 00182000 B SETRET8 0149 00183000 *EXIT: 0150 00184000 * ; /* EXIT TO NSI, SEARCH SUCCESSFUL*/ 00185000 * 0150 00186000 EXIT DS 0H 0151 00187000 * /*****************************************************************/ 00188000 * /* */ 00189000 * /* TEST EID AGAIN TO DETERMINE TYPE IO RECORD BEING PROCESSED: */ 00190000 * /* FIRST STEP IN SELECTING PROPER FORMAT PATTERN */ 00191000 * /* */ 00192000 * /*****************************************************************/ 00193000 * 0151 00194000 *IOSPLIT: 0151 00195000 * IF EID=IMDMIO2 THEN 0151 00196000 IOSPLIT L @12,EIDPTR(,PREG) 0151 00197000 CLC EID(2,@12),@CB00210 0151 00198000 BNE @RF00151 0151 00199000 * DO; 0152 00200000 * LABPT=ADDR(IOLAB); /* POINT TO IO LABELS */ 00201000 L @12,ABDPLPTR(,PREG) 0153 00202000 LA @06,IOLAB 0153 00203000 ST @06,LABPT(,@12) 0153 00204000 * GOTO IODATA; 0154 00205000 B IODATA 0154 00206000 * END; 0155 00207000 * IF EID=IMDMEOS /* EOS EVENT */ 00208000 * THEN 0156 00209000 @RF00151 L @12,EIDPTR(,PREG) 0156 00210000 CLC EID(2,@12),@CB00224 0156 00211000 BNE @RF00156 0156 00212000 * LABPT=ADDR(EOSLAB); /* POINT TO EOS LABELS */ 00213000 L @12,ABDPLPTR(,PREG) 0157 00214000 LA @06,EOSLAB 0157 00215000 ST @06,LABPT(,@12) 0157 00216000 * ELSE 0158 00217000 * LABPT=ADDR(PCILAB); /* POINT TO PCI LABELS */ 00218000 B @RC00156 0158 00219000 @RF00156 L @12,ABDPLPTR(,PREG) 0158 00220000 LA @06,PCILAB 0158 00221000 ST @06,LABPT(,@12) 0158 00222000 *IODATA: 0159 00223000 * IF IOSENSE=ASTERR /* EBCIDIC DATA */ 00224000 * THEN 0159 00225000 @RC00156 DS 0H 0159 00226000 IODATA L @12,DATAPTR(,PREG) 0159 00227000 CLC IOSENSE(2,@12),@CC00339 0159 00228000 BNE @RF00159 0159 00229000 * DO; 0160 00230000 * REG0=ADDR(IOERRF1); /* POINT TO EBCIDIC FMT */ 00231000 LA REG0,IOERRF1 0161 00232000 * GO TO FORMAT; 0162 00233000 B FORMAT 0162 00234000 * END; 0163 00235000 * IF IOTCB=UNAVAL /* EBCIDIC DATA */ 00236000 * THEN 0164 00237000 @RF00159 L @12,DATAPTR(,PREG) 0164 00238000 CLC IOTCB(4,@12),@CC00343 0164 00239000 BNE @RF00164 0164 00240000 * DO; 0165 00241000 * REG0=ADDR(IOERRF0); /* POINT TO EBCIDIC FMT */ 00242000 LA REG0,IOERRF0 0166 00243000 * GO TO FORMAT; 0167 00244000 B FORMAT 0167 00245000 * END; 0168 00246000 * IF IOSENSE=NOTAPP THEN 0169 00247000 @RF00164 L @12,DATAPTR(,PREG) 0169 00248000 CLC IOSENSE(2,@12),@CC00341 0169 00249000 BNE @RF00169 0169 00250000 * DO; /* N/ IN SENSE */ 00251000 * REG1=ABDPLPTR; /* ABDUMP PARM LIST */ 00252000 L @12,ABDPLPTR(,PREG) 0171 00253000 LR REG1,@12 0171 00254000 * DATAPT=ADDR(NOTAPP); /* N/A INTO SENSE */ 00255000 LA @06,@CC00341 0172 00256000 ST @06,DATAPT(,@12) 0172 00257000 * REG0=ADDR(IOSNSNA); /* FMTPTRN ADDR */ 00258000 LA REG0,IOSNSNA 0173 00259000 * CALL AMDPRFMT; /* FORMAT SENSE */ 00260000 L @15,ADPLFRMT(,@12) 0174 00261000 BALR @14,@15 0174 00262000 * END; 0175 00263000 * ELSE 0176 00264000 * DO; /* SENSE */ 00265000 B @RC00169 0176 00266000 @RF00169 DS 0H 0177 00267000 * REG1=ABDPLPTR; /* ABDUMP PARM LIST */ 00268000 L @12,ABDPLPTR(,PREG) 0177 00269000 LR REG1,@12 0177 00270000 * DATAPT=ADDR(IOSENSE); /* SENSE */ 00271000 L @06,DATAPTR(,PREG) 0178 00272000 LA @06,IOSENSE(,@06) 0178 00273000 ST @06,DATAPT(,@12) 0178 00274000 * REG0=ADDR(IOSNSOK); /* FMTPTRN ADDR */ 00275000 LA REG0,IOSNSOK 0179 00276000 * CALL AMDPRFMT; /* FORMAT SENSE */ 00277000 L @15,ADPLFRMT(,@12) 0180 00278000 BALR @14,@15 0180 00279000 * END; 0181 00280000 * IF IOASCB=ASTERR THEN 0182 00281000 @RC00169 L @12,DATAPTR(,PREG) 0182 00282000 CLC IOASCB(4,@12),@CC00339 0182 00283000 BNE @RF00182 0182 00284000 * DO; /* **** IN ASCB ? */ 00285000 * IF IOTCB=ASTERR THEN /* **** IN TCB TOO ? */ 00286000 CLC IOTCB(4,@12),@CC00339 0184 00287000 BNE @RF00184 0184 00288000 * REG0=ADDR(IOERRF2); /* USE THIS FORMAT */ 00289000 LA REG0,IOERRF2 0185 00290000 * ELSE 0186 00291000 * DO; 0186 00292000 B @RC00184 0186 00293000 @RF00184 DS 0H 0187 00294000 * DATAPT=ADDR(IOTCB); /* POINT AT TCB ADDR IN RECORD */ 00295000 L @12,ABDPLPTR(,PREG) 0187 00296000 L @06,DATAPTR(,PREG) 0187 00297000 LA @04,IOTCB(,@06) 0187 00298000 ST @04,DATAPT(,@12) 0187 00299000 * REG1=ABDPLPTR; /* PARM LIST */ 00300000 LR REG1,@12 0188 00301000 * IF IOTCB=NOTAPP THEN /* N/A IN TCB */ 00302000 CLC IOTCB(4,@06),@CC00341 0189 00303000 BNE @RF00189 0189 00304000 * REG0=ADDR(IOTCBNA); /* POINT TO RIGHT FORMAT */ 00305000 LA REG0,IOTCBNA 0190 00306000 * ELSE 0191 00307000 * REG0=ADDR(IOTCBOK); /* NORMAL TCB ADDR */ 00308000 B @RC00189 0191 00309000 @RF00189 LA REG0,IOTCBOK 0191 00310000 * CALL AMDPRFMT; /* CALL FORMAT ROUTINE */ 00311000 @RC00189 L @12,ABDPLPTR(,PREG) 0192 00312000 L @15,ADPLFRMT(,@12) 0192 00313000 BALR @14,@15 0192 00314000 * REG0=ADDR(IOERRF3); /* **** ONLY IN ASCB */ 00315000 LA REG0,IOERRF3 0193 00316000 * END; 0194 00317000 * GO TO FORMAT; 0195 00318000 B FORMAT 0195 00319000 * END; 0196 00320000 * IF IOTCB=ASTERR THEN /* **** ONLY IN TCB ? */ 00321000 @RF00182 L @12,DATAPTR(,PREG) 0197 00322000 CLC IOTCB(4,@12),@CC00339 0197 00323000 BNE @RF00197 0197 00324000 * REG0=ADDR(IOERRF4); /* USE THIS FORMAT */ 00325000 LA REG0,IOERRF4 0198 00326000 * ELSE 0199 00327000 * DO; 0199 00328000 B @RC00197 0199 00329000 @RF00197 DS 0H 0200 00330000 * DATAPT=ADDR(IOTCB); /* POINT AT TCB ADDR IN RECORD */ 00331000 L @12,ABDPLPTR(,PREG) 0200 00332000 L @06,DATAPTR(,PREG) 0200 00333000 LA @04,IOTCB(,@06) 0200 00334000 ST @04,DATAPT(,@12) 0200 00335000 * REG1=ABDPLPTR; /* PARM LIST */ 00336000 LR REG1,@12 0201 00337000 * IF IOTCB=NOTAPP THEN /* N/A IN TCB */ 00338000 CLC IOTCB(4,@06),@CC00341 0202 00339000 BNE @RF00202 0202 00340000 * REG0=ADDR(IOTCBNA); /* POINT TO RIGHT FORMAT */ 00341000 LA REG0,IOTCBNA 0203 00342000 * ELSE 0204 00343000 * REG0=ADDR(IOTCBOK); /* NORMAL TCB ADDR */ 00344000 B @RC00202 0204 00345000 @RF00202 LA REG0,IOTCBOK 0204 00346000 * CALL AMDPRFMT; /* CALL FORMAT ROUTINE */ 00347000 @RC00202 L @12,ABDPLPTR(,PREG) 0205 00348000 L @15,ADPLFRMT(,@12) 0205 00349000 BALR @14,@15 0205 00350000 * REG0=ADDR(IOF); /* POINT TO STND FORMAT */ 00351000 LA REG0,IOF 0206 00352000 * END; 0207 00353000 * 0207 00354000 * /*****************************************************************/ 00355000 * /* */ 00356000 * /* CALL AMDPRFMT, PASS FMTPATRN ADDR IN REG0, AND EXIT */ 00357000 * /* */ 00358000 * /*****************************************************************/ 00359000 * 0208 00360000 *FORMAT: 0208 00361000 * DATAPT=DATAPTR; /* POINT TO DATA */ 00362000 @RC00197 DS 0H 0208 00363000 FORMAT L @12,ABDPLPTR(,PREG) 0208 00364000 L @06,DATAPTR(,PREG) 0208 00365000 ST @06,DATAPT(,@12) 0208 00366000 * REG1=ABDPLPTR; /* POINT R1 TO EXIT LIST */ 00367000 LR REG1,@12 0209 00368000 * CALL AMDPRFMT; /* CALL REENTRANT FORMAT RTN */ 00369000 L @15,ADPLFRMT(,@12) 0210 00370000 BALR @14,@15 0210 00371000 *EXITRTN: 0211 00372000 * REG15=4; /* SET RETURN CODE TO PRINT A 0211 00373000 * LINE WITH NO RECALL OF 0211 00374000 * AMDSYS03 */ 00375000 EXITRTN LA REG15,4 0211 00376000 * RETURN; /* RETURN TO CALLER , AMDPRAPP OR 00377000 * IGCOFO5A */ 00378000 B @EL00001 0212 00379000 */* POINT TO SIO SECTION IN AMDPRTAB */ 00380000 * 0213 00381000 *SIORTN: 0213 00382000 * REG3=ADDR(SIF); /* POINT TO SIO PARMS IN AMDPRTAB*/ 00383000 SIORTN LA REG3,SIF(,AEDITCBR) 0213 00384000 */* BRANCH HERE TO TEST IF RECORD SHOULD BE FORMATTED, FIRST 0214 00385000 * TEST CHECK FOR ALL SYSM RECORDS OR SIO 0214 00386000 * RECORDS BEING PRINTER */ 00387000 * 0214 00388000 * IF SYSM='1'B|ALL='1'B THEN 0214 00389000 TM SYSM(AEDITCBR),B'00010000' 0214 00390000 BO @RT00214 0214 00391000 TM ALL(REG3),B'10000000' 0214 00392000 BNO @RF00214 0214 00393000 @RT00214 DS 0H 0215 00394000 *TESTERR2: 0215 00395000 * DO; /* VERIFY THAT RECORD IS OK 0215 00396000 * BEFORE BRANCH TO PATTERN 0215 00397000 * SELECTION */ 00398000 * 0215 00399000 TESTERR2 DS 0H 0216 00400000 * /*************************************************************/ 00401000 * /* */ 00402000 * /* IF RECORD CONTAINS ERROR CODE, DUMP IN HEX */ 00403000 * /* */ 00404000 * /*************************************************************/ 00405000 * 0216 00406000 * IF DATA(1:2)='EEEE'X THEN 0216 00407000 L @12,DATAPTR(,PREG) 0216 00408000 CLC DATA(2,@12),@CB00606 0216 00409000 BE @RT00216 0216 00410000 * GO TO CALLHEX; 0217 00411000 * ELSE 0218 00412000 * GO TO SIOFMT; /* GO SELECT APPROPRIATE FORMAT 00413000 * PATTERN */ 00414000 B SIOFMT 0218 00415000 * END TESTERR2; 0219 00416000 * 0219 00417000 * /*****************************************************************/ 00418000 * /* */ 00419000 * /* NOT ALL OF THIS TYPE OF RECORD BEING PRINTED, CHECK FOR */ 00420000 * /* SELECTION BY PARTICULAR */ 00421000 * /* */ 00422000 * /*****************************************************************/ 00423000 * 0220 00424000 * IF SELECT='0'B THEN 0220 00425000 @RF00214 TM SELECT(REG3),B'01000000' 0220 00426000 BZ @RT00220 0220 00427000 * GO TO SETRET8; /* NO SELECTION AT ALL - RETURN 00428000 * WITH CODE 8 FOR NO PRINTING */ 00429000 * IF DATA(1:2)='EEEE'X THEN /* VERIFY RECORD IS CLEAN BEFORE 00430000 * DEVICE SEARCH */ 00431000 L @12,DATAPTR(,PREG) 0222 00432000 CLC DATA(2,@12),@CB00606 0222 00433000 BE @RT00222 0222 00434000 * GO TO CALLHEX; /* IN CASE OF BAD RECORD, ASSUME 00435000 * NOT SELECTED AND SET RETURN 0223 00436000 * CODE 8 */ 00437000 * 0223 00438000 * /*****************************************************************/ 00439000 * /* */ 00440000 * /* THIS ROUTINE SEARCHES THE DEVICE ADDRESS TABLE, ADDRESSED BY */ 00441000 * /* THE DEVSRCH1 INCLUDE AND REG3. THE IDENTIFIER SIODEV IS USED */ 00442000 * /* AS SEARCH ARGUMENT. */ 00443000 * /* */ 00444000 * /*****************************************************************/ 00445000 * 0224 00446000 * DO I=1 TO 50; /* LOOP THROUGH ALL ENTRIES IN 0224 00447000 * DEVICE ADDRESS TABLE */ 00448000 * 0224 00449000 LA I,1 0224 00450000 @DL00224 DS 0H 0225 00451000 * /***************************************************************/ 00452000 * /* */ 00453000 * /* IF TABLE ENTRY IS BLANK, MEANS END OF ADDRESSES AND SEARCH */ 00454000 * /* HASFAILED */ 00455000 * /* */ 00456000 * /***************************************************************/ 00457000 * 0225 00458000 * IF DEVTAB(I)=' ' THEN 0225 00459000 LR @12,I 0225 00460000 ALR @12,@12 0225 00461000 ST @12,@TF00001 0225 00462000 ALR @12,REG3 0225 00463000 CLC DEVTAB-2(2,@12),@CC00611 0225 00464000 BE @RT00225 0225 00465000 * GOTO SETRET8; 0226 00466000 * IF DEVTAB(I)=SIODEVA THEN 0227 00467000 L @12,DATAPTR(,PREG) 0227 00468000 LR @06,REG3 0227 00469000 AL @06,@TF00001 0227 00470000 CLC DEVTAB-2(2,@06),SIODEVA(@12) 0227 00471000 BE @RT00227 0227 00472000 * GOTO EXIT1; 0228 00473000 * END; /* LOOP TO INCREMENT TO NEST 0229 00474000 * DEVICE */ 00475000 AL I,@CF00046 0229 00476000 C I,@CF00104 0229 00477000 BNH @DL00224 0229 00478000 */* FALL OUT MEANS NOT FOUND */ 00479000 * 0230 00480000 * GOTO SETRET8; /* EXIT TO NSI, SEARCH SUCCESSFUL*/ 00481000 B SETRET8 0230 00482000 *EXIT1: 0231 00483000 * ; 0231 00484000 EXIT1 DS 0H 0232 00485000 *SIOFMT: 0232 00486000 * IF SIOCPA=ASTERR THEN 0232 00487000 SIOFMT L @12,DATAPTR(,PREG) 0232 00488000 CLC SIOCPA(4,@12),@CC00339 0232 00489000 BNE @RF00232 0232 00490000 * DO; 0233 00491000 * REG0=ADDR(SIOERRF2); /* **** ERROR FORMAT */ 00492000 LA REG0,SIOERRF2 0234 00493000 * GO TO FORMAT; /* FORMAT LINE */ 00494000 B FORMAT 0235 00495000 * END; 0236 00496000 * IF SIOCPA=UNAVAL THEN 0237 00497000 @RF00232 L @12,DATAPTR(,PREG) 0237 00498000 CLC SIOCPA(4,@12),@CC00343 0237 00499000 BNE @RF00237 0237 00500000 * REG0=ADDR(SIOERRF); /* POINT TO ERROR SIO FMT */ 00501000 LA REG0,SIOERRF 0238 00502000 * ELSE 0239 00503000 * DO; 0239 00504000 B @RC00237 0239 00505000 @RF00237 DS 0H 0240 00506000 * RFY 0240 00507000 * N RSTD; 0240 00508000 * N=SIOCC1; /* GET ILC AND CC FROM RECORD */ 00509000 L @12,DATAPTR(,PREG) 0241 00510000 ICM N,12,SIOCC1(@12) 0241 00511000 SRA N,16 0241 00512000 * SLL(N,18); /* SHIFT OUT ILC */ 00513000 SLL N,18 0242 00514000 * SRL(N,22); /* MOVE CC BACK TO NEXT BYTE */ 00515000 SRL N,22 0243 00516000 * SIOCC1=N; /* PUT BACK IN RECORD (+1 BYTE) 00517000 * TO EDIT */ 00518000 STCM N,3,SIOCC1(@12) 0244 00519000 * RFY 0245 00520000 * N UNRSTD; 0245 00521000 * REG0=ADDR(SIOF); /* POINT TO STND FORMAT */ 00522000 LA REG0,SIOF 0246 00523000 * END; 0247 00524000 * GOTO FORMAT; /* EXIT RTN */ 00525000 B FORMAT 0248 00526000 */* POINT TO IO SECTION IN AMDPRTAB */ 00527000 * 0249 00528000 *UIORTN: 0249 00529000 * REG3=ADDR(IO); /* POINT TO IO PARMS IN AMDPRTAB */ 00530000 UIORTN LA REG3,IO(,AEDITCBR) 0249 00531000 */* BRANCH HERE TO TEST IF RECORD SHOULD BE FORMATTED, FIRST 0250 00532000 * TEST CHECK FOR ALL SYSM RECORDS OR ALL UIO RECORDS BEING PRINTED */ 00533000 * 0250 00534000 * IF SYSM='1'B|ALL='1'B THEN 0250 00535000 TM SYSM(AEDITCBR),B'00010000' 0250 00536000 BO @RT00250 0250 00537000 TM ALL(REG3),B'10000000' 0250 00538000 BNO @RF00250 0250 00539000 @RT00250 DS 0H 0251 00540000 *TESTERR3: 0251 00541000 * DO; /* VERIFY THAT RECORD IS OK 0251 00542000 * BEFORE BRANCH TO PATTERN 0251 00543000 * SELECTION */ 00544000 * 0251 00545000 TESTERR3 DS 0H 0252 00546000 * /*************************************************************/ 00547000 * /* */ 00548000 * /* IF RECORD CONTAINS ERROR CODE, DUMP IN HEX */ 00549000 * /* */ 00550000 * /*************************************************************/ 00551000 * 0252 00552000 * IF DATA(1:2)='EEEE'X THEN 0252 00553000 L @12,DATAPTR(,PREG) 0252 00554000 CLC DATA(2,@12),@CB00606 0252 00555000 BE @RT00252 0252 00556000 * GO TO CALLHEX; 0253 00557000 * ELSE 0254 00558000 * GO TO UIOFMT; /* GO SELECT APPROPRIATE FORMAT 00559000 * PATTERN */ 00560000 B UIOFMT 0254 00561000 * END TESTERR3; 0255 00562000 * 0255 00563000 * /*****************************************************************/ 00564000 * /* */ 00565000 * /* NOT ALL OF THIS TYPE OF RECORD BEING PRINTED, CHECK FOR */ 00566000 * /* SELECTION BY PARTICULAR */ 00567000 * /* */ 00568000 * /*****************************************************************/ 00569000 * 0256 00570000 * IF SELECT='0'B THEN 0256 00571000 @RF00250 TM SELECT(REG3),B'01000000' 0256 00572000 BZ @RT00256 0256 00573000 * GO TO SETRET8; /* NO SELECTION AT ALL - RETURN 00574000 * WITH CODE 8 FOR NO PRINTING */ 00575000 * IF DATA(1:2)='EEEE'X THEN /* VERIFY RECORD IS CLEAN BEFORE 00576000 * DEVICE SEARCH */ 00577000 L @12,DATAPTR(,PREG) 0258 00578000 CLC DATA(2,@12),@CB00606 0258 00579000 BE @RT00258 0258 00580000 * GO TO CALLHEX; /* IN CASE OF BAD RECORD, ASSUME 00581000 * NOT SELECTED AND SET RETURN 0259 00582000 * CODE 8 */ 00583000 * 0259 00584000 * /*****************************************************************/ 00585000 * /* */ 00586000 * /* THE DEVSRCH ROUTINE SEARCHES THE DEVICE ADDRESS TABLE */ 00587000 * /* ADDRESSED BY THE DEVSRCH1 TABLE AND REG3. THE IDENTIFIER */ 00588000 * /* UIODEV IS USED AS A SEARCH ARGUMENT. */ 00589000 * /* */ 00590000 * /*****************************************************************/ 00591000 * 0260 00592000 * DO I=1 TO 50; /* LOOP THROUGH ALL ENTRIES IN 0260 00593000 * DEVICE ADDR TABLE */ 00594000 LA I,1 0260 00595000 @DL00260 DS 0H 0261 00596000 */* IF TABLE ENTRY IS BLANK , MEANS END OF ADDRESSES AND SEARCH HAS 00597000 * FAILED */ 00598000 * 0261 00599000 * IF DEVTAB(I)=' ' THEN 0261 00600000 LR @12,I 0261 00601000 ALR @12,@12 0261 00602000 ST @12,@TF00001 0261 00603000 ALR @12,REG3 0261 00604000 CLC DEVTAB-2(2,@12),@CC00611 0261 00605000 BE @RT00261 0261 00606000 * GOTO SETRET8; 0262 00607000 * IF DEVTAB(I)=UIODEVA THEN 0263 00608000 L @12,DATAPTR(,PREG) 0263 00609000 LR @06,REG3 0263 00610000 AL @06,@TF00001 0263 00611000 CLC DEVTAB-2(2,@06),UIODEVA(@12) 0263 00612000 BE @RT00263 0263 00613000 * GOTO EXIT2; 0264 00614000 * END; /* LOOP TO INCREMENT TO NEXT 0265 00615000 * DEVICE */ 00616000 * 0265 00617000 AL I,@CF00046 0265 00618000 C I,@CF00104 0265 00619000 BNH @DL00260 0265 00620000 * /*****************************************************************/ 00621000 * /* */ 00622000 * /* FALL OUT MEANS NOT FOUND */ 00623000 * /* */ 00624000 * /*****************************************************************/ 00625000 * 0266 00626000 * GOTO SETRET8; /* EXIT TO NSI, SEARCH SUCCESSFUL*/ 00627000 B SETRET8 0266 00628000 *EXIT2: 0267 00629000 * ; 0267 00630000 EXIT2 DS 0H 0268 00631000 *UIOFMT: 0268 00632000 * REG0=ADDR(UIOF); /* POINT TO UIO FMTPATRN */ 00633000 UIOFMT LA REG0,UIOF 0268 00634000 * GOTO FORMAT; /* EXIT RTN */ 00635000 B FORMAT 0269 00636000 * 0270 00637000 * /*****************************************************************/ 00638000 * /* */ 00639000 * /* TEST FOR NOT FORMATING ALL SYSM RECORDS AND NOT DSP - IF SO, */ 00640000 * /* BRANCH TO SET CODE 8 SO THAT RECORD IS NOT PRINTED */ 00641000 * /* */ 00642000 * /*****************************************************************/ 00643000 * 0270 00644000 *DSPRTN: 0270 00645000 * IF SYSM='0'B&DSP='0'B THEN 0270 00646000 DSPRTN TM SYSM(AEDITCBR),B'01010000' 0270 00647000 BZ @RT00270 0270 00648000 * GO TO SETRET8; 0271 00649000 * 0271 00650000 * /*****************************************************************/ 00651000 * /* */ 00652000 * /* IF RECORD CONTAINS ERROR INDICATOR, BRANCH TO DUMP RECORD IN */ 00653000 * /* HEX FORMAT */ 00654000 * /* */ 00655000 * /*****************************************************************/ 00656000 * 0272 00657000 * IF DATA(1:2)='EEEE'X THEN 0272 00658000 @RF00270 L @12,DATAPTR(,PREG) 0272 00659000 CLC DATA(2,@12),@CB00606 0272 00660000 BE @RT00272 0272 00661000 * GO TO CALLHEX; 0273 00662000 * IF EID=IMDMDSP4 /* SVC EXIT DISPATCH EVENT */ 00663000 * THEN 0274 00664000 L @12,EIDPTR(,PREG) 0274 00665000 CLC EID(2,@12),@CB00239 0274 00666000 BNE @RF00274 0274 00667000 * LABPT=ADDR(SDSPLAB); 0275 00668000 L @12,ABDPLPTR(,PREG) 0275 00669000 LA @06,SDSPLAB 0275 00670000 ST @06,LABPT(,@12) 0275 00671000 * IF EID=IMDMDSP2 /* LSR EVENT */ 00672000 * THEN 0276 00673000 @RF00274 L @12,EIDPTR(,PREG) 0276 00674000 CLC EID(2,@12),@CB00236 0276 00675000 BNE @RF00276 0276 00676000 * LABPT=ADDR(LSRLAB); 0277 00677000 L @12,ABDPLPTR(,PREG) 0277 00678000 LA @06,LSRLAB 0277 00679000 ST @06,LABPT(,@12) 0277 00680000 * ELSE 0278 00681000 * LABPT=ADDR(DSPLAB); 0278 00682000 B @RC00276 0278 00683000 @RF00276 L @12,ABDPLPTR(,PREG) 0278 00684000 LA @06,DSPLAB 0278 00685000 ST @06,LABPT(,@12) 0278 00686000 * IF DSPTCB=NOTAPP /* NO TCB IN LSR */ 00687000 * THEN 0279 00688000 @RC00276 L @12,DATAPTR(,PREG) 0279 00689000 CLC DSPTCB(4,@12),@CC00341 0279 00690000 BNE @RF00279 0279 00691000 * DO; 0280 00692000 * IF DSPR15=ASTERR /* REGISTER ERROR */ 00693000 * THEN 0281 00694000 CLC DSPR15(4,@12),@CC00339 0281 00695000 BNE @RF00281 0281 00696000 * REG0=ADDR(DSPELSR); 0282 00697000 LA REG0,DSPELSR 0282 00698000 * ELSE 0283 00699000 * REG0=ADDR(DSPLSRF); /* POINT TO EBCIDIC FMTPATRN */ 00700000 B @RC00281 0283 00701000 @RF00281 LA REG0,DSPLSRF 0283 00702000 * END; 0284 00703000 * ELSE 0285 00704000 * DO; 0285 00705000 B @RC00279 0285 00706000 @RF00279 DS 0H 0286 00707000 * IF DSPR15=ASTERR /* REGISTER ERROR */ 00708000 * THEN 0286 00709000 L @12,DATAPTR(,PREG) 0286 00710000 CLC DSPR15(4,@12),@CC00339 0286 00711000 BNE @RF00286 0286 00712000 * REG0=ADDR(DSPERRF); 0287 00713000 LA REG0,DSPERRF 0287 00714000 * ELSE 0288 00715000 * REG0=ADDR(DSPF); /* POINT TO STD DSP FMT */ 00716000 B @RC00286 0288 00717000 @RF00286 LA REG0,DSPF 0288 00718000 * END; 0289 00719000 * GOTO FORMAT; 0290 00720000 B FORMAT 0290 00721000 *SRBRTN: 0291 00722000 * IF SYSM='0'B&DSP='0'B THEN 0291 00723000 SRBRTN TM SYSM(AEDITCBR),B'01010000' 0291 00724000 BZ @RT00291 0291 00725000 * GO TO SETRET8; 0292 00726000 * 0292 00727000 * /*****************************************************************/ 00728000 * /* */ 00729000 * /* IF RECORD CONTAINS ERROR INDICATOR, BRANCH TO DUMP RECORD IN */ 00730000 * /* HEX FORMAT */ 00731000 * /* */ 00732000 * /*****************************************************************/ 00733000 * 0293 00734000 * IF DATA(1:2)='EEEE'X THEN 0293 00735000 @RF00291 L @12,DATAPTR(,PREG) 0293 00736000 CLC DATA(2,@12),@CB00606 0293 00737000 BE @RT00293 0293 00738000 * GO TO CALLHEX; 0294 00739000 * IF SRBSRB=NOTAPP THEN 0295 00740000 CLC SRBSRB(4,@12),@CC00341 0295 00741000 BNE @RF00295 0295 00742000 * DO; 0296 00743000 * LABPT=ADDR(SRBSLAB); /* POINT TO GLOBAL SRB FMT */ 00744000 L @12,ABDPLPTR(,PREG) 0297 00745000 LA @06,SRBSLAB 0297 00746000 ST @06,LABPT(,@12) 0297 00747000 * REG0=ADDR(SRBSUPF); /* POINT TO FMT FOR SUSPENDED SRB*/ 00748000 LA REG0,SRBSUPF 0298 00749000 * GOTO FORMAT; 0299 00750000 B FORMAT 0299 00751000 * END; 0300 00752000 * IF SRBTYPE='G' THEN 0301 00753000 @RF00295 L @12,DATAPTR(,PREG) 0301 00754000 CLI SRBTYPE(@12),C'G' 0301 00755000 BNE @RF00301 0301 00756000 * LABPT=ADDR(GLOBLAB); /* POINT TO GLOBAL SRB FMT */ 00757000 L @12,ABDPLPTR(,PREG) 0302 00758000 LA @06,GLOBLAB 0302 00759000 ST @06,LABPT(,@12) 0302 00760000 * ELSE 0303 00761000 * LABPT=ADDR(LOCLAB); /* POINT TO LOCAL SRB FMT */ 00762000 B @RC00301 0303 00763000 @RF00301 L @12,ABDPLPTR(,PREG) 0303 00764000 LA @06,LOCLAB 0303 00765000 ST @06,LABPT(,@12) 0303 00766000 * IF SRBR15=ASTERR THEN /* ERROR FORMAT @YM01892*/ 00767000 @RC00301 L @12,DATAPTR(,PREG) 0304 00768000 CLC SRBR15(4,@12),@CC00339 0304 00769000 BNE @RF00304 0304 00770000 * REG0=ADDR(SRBERRF); /* YES @YM01892*/ 00771000 LA REG0,SRBERRF 0305 00772000 * ELSE 0306 00773000 * REG0=ADDR(SRBF); /* NORMAL @YM01892*/ 00774000 B @RC00304 0306 00775000 @RF00304 LA REG0,SRBF 0306 00776000 * GOTO FORMAT; 0307 00777000 B FORMAT 0307 00778000 * 0308 00779000 * /*****************************************************************/ 00780000 * /* */ 00781000 * /* TEST FOR FORMATING ALL SYSM RECORDS OR ALL SVC RECORDS */ 00782000 * /* */ 00783000 * /*****************************************************************/ 00784000 * 0308 00785000 *SVCRTN: 0308 00786000 * IF SYSM='1'B|ALLV='1'B THEN 0308 00787000 SVCRTN TM SYSM(AEDITCBR),B'00010000' 0308 00788000 BO @RT00308 0308 00789000 TM ALLV(AEDITCBR),B'10000000' 0308 00790000 BNO @RF00308 0308 00791000 @RT00308 DS 0H 0309 00792000 *TSTSVCER: 0309 00793000 * DO; /* IF SO, TEST FOR ERROR RECORD */ 00794000 * 0309 00795000 TSTSVCER DS 0H 0310 00796000 * /*************************************************************/ 00797000 * /* */ 00798000 * /* TEST FOR ERROR INDICATOR, IN WHICH CASE DUMP RECORD IF HEX*/ 00799000 * /* FORMAT */ 00800000 * /* */ 00801000 * /*************************************************************/ 00802000 * 0310 00803000 * IF DATA(1:2)='EEEE'X THEN 0310 00804000 L @12,DATAPTR(,PREG) 0310 00805000 CLC DATA(2,@12),@CB00606 0310 00806000 BE @RT00310 0310 00807000 * GO TO CALLHEX; 0311 00808000 * ELSE 0312 00809000 * GO TO SVCSELPT; /* NOT ERROR RECORD - GO FORMAT */ 00810000 B SVCSELPT 0312 00811000 * END TSTSVCER; 0313 00812000 * 0313 00813000 * /*****************************************************************/ 00814000 * /* */ 00815000 * /* TEST FOR SELECTIVE PRINTING OF SVC RECORDS, IF NOT, SET RETURN*/ 00816000 * /* CODE 8 SO THAT RECORD IS NOT PRINTED */ 00817000 * /* */ 00818000 * /*****************************************************************/ 00819000 * 0314 00820000 * IF SELV='0'B THEN 0314 00821000 @RF00308 TM SELV(AEDITCBR),B'01000000' 0314 00822000 BZ @RT00314 0314 00823000 * GO TO SETRET8; /* BRANCH TO EXIT WITH CODE 8 */ 00824000 * 0315 00825000 * /*****************************************************************/ 00826000 * /* */ 00827000 * /* VERIFY THAT RECORD IS NOT ERROR RECORD BEFORE ENTERING */ 00828000 * /* SELECTION PROCESS */ 00829000 * /* */ 00830000 * /*****************************************************************/ 00831000 * 0316 00832000 * IF DATA(1:2)='EEEE'X THEN 0316 00833000 L @12,DATAPTR(,PREG) 0316 00834000 CLC DATA(2,@12),@CB00606 0316 00835000 BE @RT00316 0316 00836000 * GO TO CALLHEX; /* DUMP ERROR RECORD IN HEX - 0317 00837000 * CAN-T RELIE ON SVC NUMBER */ 00838000 * 0318 00839000 * /*****************************************************************/ 00840000 * /* */ 00841000 * /* SVC SELECTION SUBROUTINE */ 00842000 * /* */ 00843000 * /*****************************************************************/ 00844000 * 0318 00845000 * RFY 0318 00846000 * N RSTD; /* N IS REG 4 */ 00847000 * N=255-SVCCODE; /* SVCNUMB BASE ON DATA POINTER 00848000 * SO THAT IT IS INTERRUPT CODE 00849000 * OF OLD PSW */ 00850000 * 0319 00851000 LA N,255 0319 00852000 ICM @12,12,SVCCODE(@12) 0319 00853000 SRA @12,16 0319 00854000 SLR N,@12 0319 00855000 * /*****************************************************************/ 00856000 * /* */ 00857000 * /* LOOP TO COMPUTE 2 EXP 255-SVCNUMB, WHICH GIVES MASK TO AND */ 00858000 * /* WITH SVC SELECTIVITY INDICATORS */ 00859000 * /* */ 00860000 * /*****************************************************************/ 00861000 * 0320 00862000 * DO I=8 TO 1 BY-1; /* LOOP FOR RIGHT TO LEFT IN 8 0320 00863000 * WORD AREA REQUIRED TO HOLD 0320 00864000 * RESULT */ 00865000 LA I,8 0320 00866000 @DL00320 DS 0H 0321 00867000 * IF N=<31&N=>0 THEN /* TEST FOR N IN WHICH SHIFT CAN 00868000 * HANDLE POWER */ 00869000 C N,@CF00036 0321 00870000 BH @RF00321 0321 00871000 LTR N,N 0321 00872000 BM @RF00321 0321 00873000 * DO; /* IN THIS CASE, */ 00874000 * REG3=1; /* START WITH 2 EXP 0 */ 00875000 LA REG3,1 0323 00876000 * GEN(SLL REG3,0(N)); /* COMPUTE 2 EXP N */ 00877000 SLL REG3,0(N) 00878000 * END; 0325 00879000 * ELSE 0326 00880000 * REG3=0; /* OTHERWISE CLEAR WORD IN RESULT*/ 00881000 B @RC00321 0326 00882000 @RF00321 SLR REG3,REG3 0326 00883000 * TWOEXPN(I)=REG3; /* STORE WORD OF RESULT */ 00884000 @RC00321 LR @12,I 0327 00885000 SLA @12,2 0327 00886000 ST REG3,TWOEXPN-4(@12) 0327 00887000 * N=N-32; /* REDUCE EXPONENT BY 1 WORD */ 00888000 SL N,@CF00092 0328 00889000 * END; /* END 2 EXP N COMPUTATION */ 00890000 BCTR I,0 0329 00891000 LTR I,I 0329 00892000 BP @DL00320 0329 00893000 * RFY 0330 00894000 * N UNRSTD; 0330 00895000 * SVCIND=SVCIND&SVCNUMBR; /* AND CURRENT SVC MASK WITH 0331 00896000 * SELECTION STRING */ 00897000 * 0331 00898000 NC SVCIND(32),SVCNUMBR(AEDITCBR) 0331 00899000 * /*****************************************************************/ 00900000 * /* */ 00901000 * /* LOOP THROUGH WORDS OF RESULT - RESULT ZERO MEANS CURRENT */ 00902000 * /* RECORD NOT TO BE FORMATED, ONE BIT WILL ON IF RECORD IS TO BE */ 00903000 * /* PRINTED */ 00904000 * /* */ 00905000 * /*****************************************************************/ 00906000 * 0332 00907000 * DO I=8 TO 1 BY-1; 0332 00908000 LA I,8 0332 00909000 @DL00332 DS 0H 0333 00910000 * IF TWOEXPN(I)^=0 THEN /* TEST WORD FOR NOT ZERO */ 00911000 LR @12,I 0333 00912000 SLA @12,2 0333 00913000 L @12,TWOEXPN-4(@12) 0333 00914000 LTR @12,@12 0333 00915000 BNZ @RT00333 0333 00916000 * GO TO SVCSELPT; /* FOUND BIT ON GO SELECT PATTERN 00917000 * FOR FORMATING RECORD */ 00918000 * END; 0335 00919000 * 0335 00920000 BCTR I,0 0335 00921000 LTR I,I 0335 00922000 BP @DL00332 0335 00923000 * /*****************************************************************/ 00924000 * /* */ 00925000 * /* FALL OUT MEANS SVC NOT TO BE PRINTED - SET CODE 8 AND RETURN */ 00926000 * /* TO AMDPRAPP */ 00927000 * /* */ 00928000 * /*****************************************************************/ 00929000 * 0336 00930000 * GO TO SETRET8; 0336 00931000 B SETRET8 0336 00932000 *SVCSELPT: 0337 00933000 * REG0=ADDR(SVCF); 0337 00934000 SVCSELPT LA REG0,SVCF 0337 00935000 * GO TO FORMAT; /* GO FORMAT RECORD */ 00936000 B FORMAT 0338 00937000 * 0339 00938000 * /*****************************************************************/ 00939000 * /* */ 00940000 * /* TEST FOR NOT FORMATING ALL SYSM RECORDS AND NOT EXTERNAL INT */ 00941000 * /* RECORDS, IN WHICH CASE SET RETURN CODE 8 SO THE RECORD IS NOT */ 00942000 * /* PRINTED */ 00943000 * /* */ 00944000 * /*****************************************************************/ 00945000 * 0339 00946000 *EXTRTN: 0339 00947000 * IF SYSM='0'B&EXT='0'B THEN 0339 00948000 EXTRTN TM SYSM(AEDITCBR),B'10010000' 0339 00949000 BZ @RT00339 0339 00950000 * GO TO SETRET8; 0340 00951000 * 0340 00952000 * /*****************************************************************/ 00953000 * /* */ 00954000 * /* TEST FOR ERROR RECORD */ 00955000 * /* */ 00956000 * /*****************************************************************/ 00957000 * 0341 00958000 *TSTEXTER: 0341 00959000 * IF DATA(1:2)='EEEE'X THEN 0341 00960000 @RF00339 DS 0H 0341 00961000 TSTEXTER L @12,DATAPTR(,PREG) 0341 00962000 CLC DATA(2,@12),@CB00606 0341 00963000 BE @RT00341 0341 00964000 * GO TO CALLHEX; /* GO DUMP RECORD IN HEX */ 00965000 * IF EXTTCB=NOTAPP THEN 0343 00966000 CLC EXTTCB(4,@12),@CC00341 0343 00967000 BNE @RF00343 0343 00968000 * REG0=ADDR(EXTERRF); /* EBCIDIC TCB FMT */ 00969000 LA REG0,EXTERRF 0344 00970000 * ELSE 0345 00971000 * REG0=ADDR(EXTSTDF); /* STND EXT FMT */ 00972000 B @RC00343 0345 00973000 @RF00343 LA REG0,EXTSTDF 0345 00974000 * DATAPT=DATAPTR; 0346 00975000 @RC00343 L @12,ABDPLPTR(,PREG) 0346 00976000 L @06,DATAPTR(,PREG) 0346 00977000 ST @06,DATAPT(,@12) 0346 00978000 * REG1=ABDPLPTR; /* POINT TO EXIT LIST */ 00979000 LR REG1,@12 0347 00980000 * CALL AMDPRFMT; /* CALL REENTRANT FMT RTN */ 00981000 L @15,ADPLFRMT(,@12) 0348 00982000 BALR @14,@15 0348 00983000 * IF EXTINT=CCINT THEN 0349 00984000 L @12,DATAPTR(,PREG) 0349 00985000 CLC EXTINT(2,@12),@CB00345 0349 00986000 BNE @RF00349 0349 00987000 * DO; /* CLK COMPARATOR */ 00988000 * IF EXTVAR=ASTERR|EXTVAR=UNAVAL/* EBCIDIC DATA */ 00989000 * THEN 0351 00990000 CLC EXTVAR(4,@12),@CC00339 0351 00991000 BE @RT00351 0351 00992000 CLC EXTVAR(4,@12),@CC00343 0351 00993000 BNE @RF00351 0351 00994000 @RT00351 DS 0H 0352 00995000 * REG0=ADDR(EXTCCERF); /* EBCIDIC EXT FMT */ 00996000 LA REG0,EXTCCERF 0352 00997000 * ELSE 0353 00998000 * REG0=ADDR(EXTCCF); /* STD EXT FMT */ 00999000 B @RC00351 0353 01000000 @RF00351 LA REG0,EXTCCF 0353 01001000 *EXTEXIT: 0354 01002000 * DATAPT=ADDR(EXTVAR); /* UPDATE DATA PTR */ 01003000 @RC00351 DS 0H 0354 01004000 EXTEXIT L @12,ABDPLPTR(,PREG) 0354 01005000 L @06,DATAPTR(,PREG) 0354 01006000 LA @06,EXTVAR(,@06) 0354 01007000 ST @06,DATAPT(,@12) 0354 01008000 * REG1=ABDPLPTR; /* POINT TO EXIT LIST */ 01009000 LR REG1,@12 0355 01010000 * CALL AMDPRFMT; /* CALL FORMATING RTN */ 01011000 L @15,ADPLFRMT(,@12) 0356 01012000 BALR @14,@15 0356 01013000 * GOTO EXITRTN; /* EXIT */ 01014000 B EXITRTN 0357 01015000 * END; 0358 01016000 * IF EXTINT(1:2)=SIGPINT /* SIGNAL PROCESSOR INTERRUPT */ 01017000 * THEN 0359 01018000 @RF00349 L @12,DATAPTR(,PREG) 0359 01019000 CLI EXTINT(@12),X'12' 0359 01020000 BNE @RF00359 0359 01021000 * DO; 0360 01022000 * IF EXTVAR=ASTERR THEN 0361 01023000 CLC EXTVAR(4,@12),@CC00339 0361 01024000 BNE @RF00361 0361 01025000 * REG0=ADDR(EXTSGPEF); 0362 01026000 LA REG0,EXTSGPEF 0362 01027000 * ELSE 0363 01028000 * REG0=ADDR(EXTSGPF); /* STND EXT VAR FLD FMT */ 01029000 B @RC00361 0363 01030000 @RF00361 LA REG0,EXTSGPF 0363 01031000 * GOTO EXTEXIT; /* GOTO FORMAT */ 01032000 B EXTEXIT 0364 01033000 * END; 0365 01034000 * GO TO EXITRTN; /* GO REQUEST LINE BE PRINTED */ 01035000 B EXITRTN 0366 01036000 * 0367 01037000 */* TEST FOR ALL SYSM RECORDS OR ALL PI RECORDS BEING PRINTED */ 01038000 * 0367 01039000 *PIRTN: 0367 01040000 * IF SYSM='1'B|ALLP='1'B THEN 0367 01041000 PIRTN TM SYSM(AEDITCBR),B'00010000' 0367 01042000 BO @RT00367 0367 01043000 TM ALLP(AEDITCBR),B'10000000' 0367 01044000 BNO @RF00367 0367 01045000 @RT00367 DS 0H 0368 01046000 *TSTPIER: 0368 01047000 * DO; /* IN THIS CASE, TEST FOR ERROR 01048000 * RECORD */ 01049000 * 0368 01050000 TSTPIER DS 0H 0369 01051000 * /*************************************************************/ 01052000 * /* */ 01053000 * /* TEST FOR ERROR RECORD INDICATOR */ 01054000 * /* */ 01055000 * /*************************************************************/ 01056000 * 0369 01057000 * IF DATA(1:2)='EEEE'X THEN 0369 01058000 L @12,DATAPTR(,PREG) 0369 01059000 CLC DATA(2,@12),@CB00606 0369 01060000 BE @RT00369 0369 01061000 * GO TO CALLHEX; /* DUMP ERROR RECORD IN HEX */ 01062000 * ELSE 0371 01063000 * GO TO SELPIPAT; /* IF RECORD IS CLEAN GO SELECT 01064000 * APPROPRIATE FORMAT PATTERN */ 01065000 B SELPIPAT 0371 01066000 * END TSTPIER; 0372 01067000 * 0372 01068000 * /*****************************************************************/ 01069000 * /* */ 01070000 * /* TEST FOR NOT FORMATING PI EVENTS */ 01071000 * /* */ 01072000 * /*****************************************************************/ 01073000 * 0373 01074000 * IF SELP='0'B THEN 0373 01075000 @RF00367 TM SELP(AEDITCBR),B'01000000' 0373 01076000 BZ @RT00373 0373 01077000 * GO TO SETRET8; /* IF SO, GO SET RETURN CODE 8 SO 01078000 * THAT RECORD IS NOT PRINTED */ 01079000 * 0374 01080000 * /*****************************************************************/ 01081000 * /* */ 01082000 * /* BEFORE ENTERING SELECTION PROCESS, VERIFY RECORD IS CLEAN */ 01083000 * /* */ 01084000 * /*****************************************************************/ 01085000 * 0375 01086000 * IF DATA(1:2)='EEEE'X THEN 0375 01087000 L @12,DATAPTR(,PREG) 0375 01088000 CLC DATA(2,@12),@CB00606 0375 01089000 BE @RT00375 0375 01090000 * GO TO CALLHEX; /* IF ERROR RECORD, GO DUMP IT IN 01091000 * HEX FORMAT */ 01092000 * 0376 01093000 * /*****************************************************************/ 01094000 * /* */ 01095000 * /* DETERMINE IF PICODES 17, 18, OR 19 HAVE BEEN SELECTED */ 01096000 * /* */ 01097000 * /*****************************************************************/ 01098000 * 0377 01099000 * RFY 0377 01100000 * N RSTD; 0377 01101000 * IF INTCODE=17 THEN /* 17 INTERRUPT CODE */ 01102000 CLC INTCODE(2,@12),@CH00658 0378 01103000 BNE @RF00378 0378 01104000 * IF PICODEA='80'X THEN /* FORMATTING THIS INTERRUPT 0379 01105000 * CODE? */ 01106000 CLI PICODEA(AEDITCBR),X'80' 0379 01107000 BE @RT00379 0379 01108000 * GOTO SELPIPAT; /* GO TO FORMAT RECORD */ 01109000 * ELSE 0381 01110000 * GOTO SETRET8; /* SKIP RECORD */ 01111000 B SETRET8 0381 01112000 * IF INTCODE=18 THEN /* 18 INTERRUPT CODE */ 01113000 @RF00378 L @12,DATAPTR(,PREG) 0382 01114000 CLC INTCODE(2,@12),@CH00323 0382 01115000 BNE @RF00382 0382 01116000 * IF PICODEA='40'X THEN /* FORMATTING THIS INTERRUPT 0383 01117000 * CODE? */ 01118000 CLI PICODEA(AEDITCBR),X'40' 0383 01119000 BE @RT00383 0383 01120000 * GOTO SELPIPAT; /* GO TO FORMAT RECORD */ 01121000 * ELSE 0385 01122000 * GOTO SETRET8; /* SKIP RECORD */ 01123000 B SETRET8 0385 01124000 * IF INTCODE=19 THEN /* 19 INTERRUPT CODE */ 01125000 @RF00382 L @12,DATAPTR(,PREG) 0386 01126000 CLC INTCODE(2,@12),@CH00595 0386 01127000 BNE @RF00386 0386 01128000 * IF PICODEA='20'X THEN /* FORMATTING THIS INTERRUPT 0387 01129000 * CODE? */ 01130000 CLI PICODEA(AEDITCBR),X'20' 0387 01131000 BE @RT00387 0387 01132000 * GOTO SELPIPAT; /* GO TO FORMAT RECORD */ 01133000 * ELSE 0389 01134000 * GOTO SETRET8; /* SKIP RECORD */ 01135000 * 0389 01136000 B SETRET8 0389 01137000 * /*****************************************************************/ 01138000 * /* */ 01139000 * /* COMPUTE 2 EXP (16 - INT CODE) TO USE AS MASK WITH PI */ 01140000 * /* SELECTIVITY FLAGS */ 01141000 * /* */ 01142000 * /*****************************************************************/ 01143000 * 0390 01144000 *COMPPMSK: 0390 01145000 * REG3=16-INTCODE; /* GET PI INT CODE */ 01146000 @RF00386 DS 0H 0390 01147000 COMPPMSK L @12,DATAPTR(,PREG) 0390 01148000 LA REG3,16 0390 01149000 SLR @06,@06 0390 01150000 ICM @06,3,INTCODE(@12) 0390 01151000 SLR REG3,@06 0390 01152000 * N=1; /* GET CONSTANT TO RAISE TO POWER*/ 01153000 LA N,1 0391 01154000 * GEN(SLL N,0(REG3)); /* COMPUTE 2 EXP (16 - INT CODE) */ 01155000 SLL N,0(REG3) 01156000 * SHFTIND=N; /* STORE RESULT */ 01157000 ST N,SHFTIND 0393 01158000 * RFY 0394 01159000 * N UNRSTD; 0394 01160000 * 0394 01161000 * /*****************************************************************/ 01162000 * /* */ 01163000 * /* BRANCH HERE TO MAKE PI SELECTION - AND SELECTION MASK WITH PI */ 01164000 * /* STRING IN AMDPRTAB */ 01165000 * /* */ 01166000 * /*****************************************************************/ 01167000 * 0395 01168000 *TESTSTNG: 0395 01169000 * PIIND=PIIND&PICODES; 0395 01170000 TESTSTNG NC PIIND(2),PICODES(AEDITCBR) 0395 01171000 * IF PIIND='0000'X THEN /* IF RESULT IS ZERO, */ 01172000 CLC PIIND(2),@CB00214 0396 01173000 BE @RT00396 0396 01174000 * GO TO SETRET8; /* THIS RECORD IS NOT TO BE 0397 01175000 * FORMATED, GO SET CODE 8 AND 0397 01176000 * RETURN TO AMDPRAPP */ 01177000 *SELPIPAT: 0398 01178000 * IF PITCB=NOTAPP THEN /* N/A IN TCB ? */ 01179000 SELPIPAT L @12,DATAPTR(,PREG) 0398 01180000 CLC PITCB(4,@12),@CC00341 0398 01181000 BNE @RF00398 0398 01182000 * REG0=ADDR(PGMERRF); /* USE THIS FORMAT */ 01183000 LA REG0,PGMERRF 0399 01184000 * ELSE 0400 01185000 * REG0=ADDR(PGMF); /* POINT TO PGM SYS FMTPTRN */ 01186000 B @RC00398 0400 01187000 @RF00398 LA REG0,PGMF 0400 01188000 * GO TO FORMAT; /* RTN CALLS FORMAT RTN */ 01189000 B FORMAT 0401 01190000 *RNIORTN: 0402 01191000 * IF SYSM='0'B& /* ALL EVENTS FORMATTED? */ 01192000 * RNIO='0'B THEN /* RNIO EVENTS FORMATTED? */ 01193000 RNIORTN TM SYSM(AEDITCBR),B'00011000' 0402 01194000 BZ @RT00402 0402 01195000 * GOTO SETRET8; /* NO, THEN SKIP RECORD */ 01196000 * 0403 01197000 * /*****************************************************************/ 01198000 * /* */ 01199000 * /* ERROR RECORD ? BRANCH TO DUMP IN HEX */ 01200000 * /* */ 01201000 * /*****************************************************************/ 01202000 * 0404 01203000 * IF DATA(1:2)='EEEE'X THEN 0404 01204000 @RF00402 L @12,DATAPTR(,PREG) 0404 01205000 CLC DATA(2,@12),@CB00606 0404 01206000 BE @RT00404 0404 01207000 * GOTO CALLHEX; 0405 01208000 * IF RNIOBTU(1:4)=ASTERR /* ERROR IN BTU FLD */ 01209000 * THEN 0406 01210000 CLC RNIOBTU(4,@12),@CC00339 0406 01211000 BNE @RF00406 0406 01212000 * DO; 0407 01213000 * IF RNIOASCB=ASTERR /* ASCB ERROR */ 01214000 * THEN 0408 01215000 CLC RNIOASCB(4,@12),@CC00339 0408 01216000 BNE @RF00408 0408 01217000 * REG0=ADDR(RNIOERR2); 0409 01218000 LA REG0,RNIOERR2 0409 01219000 * ELSE 0410 01220000 * REG0=ADDR(RNIOERRF); /* POINT TO ERR FMT */ 01221000 B @RC00408 0410 01222000 @RF00408 LA REG0,RNIOERRF 0410 01223000 * END; 0411 01224000 * ELSE 0412 01225000 * DO; 0412 01226000 B @RC00406 0412 01227000 @RF00406 DS 0H 0413 01228000 * IF RNIOASCB=ASTERR THEN /* ASCB ERROR @ZM30923*/ 01229000 L @12,DATAPTR(,PREG) 0413 01230000 CLC RNIOASCB(4,@12),@CC00339 0413 01231000 BNE @RF00413 0413 01232000 * IF RNIOR0=0 THEN /* @Z40KI3O*/ 01233000 ICM @06,15,RNIOR0(@12) 0414 01234000 BNZ @RF00414 0414 01235000 * REG0=ADDR(BTU00E); /* @Z40KI3O*/ 01236000 LA REG0,BTU00E 0415 01237000 * ELSE 0416 01238000 * IF RNIOR0>=20 THEN /* @Z40KI3O*/ 01239000 B @RC00414 0416 01240000 @RF00414 L @12,DATAPTR(,PREG) 0416 01241000 CLC RNIOR0(4,@12),@CF00130 0416 01242000 BL @RF00416 0416 01243000 * REG0=ADDR(BTU20E); /* @Y30AI3P*/ 01244000 LA REG0,BTU20E 0417 01245000 * ELSE 0418 01246000 * REG0=BTUEPTR(RNIOR0); /* @Z40KI3O*/ 01247000 B @RC00416 0418 01248000 @RF00416 L @12,DATAPTR(,PREG) 0418 01249000 ICM @06,15,RNIOR0(@12) 0418 01250000 SLL @06,2 0418 01251000 L REG0,BTUEPTR-4(@06) 0418 01252000 * ELSE 0419 01253000 * IF RNIOR0=0 THEN /* @Z40KI3O*/ 01254000 B @RC00413 0419 01255000 @RF00413 L @12,DATAPTR(,PREG) 0419 01256000 ICM @06,15,RNIOR0(@12) 0419 01257000 BNZ @RF00419 0419 01258000 * REG0=ADDR(BTU00); /* @Z40KI3O*/ 01259000 LA REG0,BTU00 0420 01260000 * ELSE 0421 01261000 * IF RNIOR0>=20 THEN /* @Z40KI3O*/ 01262000 B @RC00419 0421 01263000 @RF00419 L @12,DATAPTR(,PREG) 0421 01264000 CLC RNIOR0(4,@12),@CF00130 0421 01265000 BL @RF00421 0421 01266000 * REG0=ADDR(BTU20); /* @Y30AI3P*/ 01267000 LA REG0,BTU20 0422 01268000 * ELSE 0423 01269000 * REG0=BTUPTR(RNIOR0); /* @Z40KI3O*/ 01270000 B @RC00421 0423 01271000 @RF00421 L @12,DATAPTR(,PREG) 0423 01272000 ICM @06,15,RNIOR0(@12) 0423 01273000 SLL @06,2 0423 01274000 L REG0,BTUPTR-4(@06) 0423 01275000 * END; 0424 01276000 @RC00421 DS 0H 0424 01277000 @RC00419 DS 0H 0424 01278000 @RC00413 DS 0H 0425 01279000 * IF EID=IMDMTP2 /* EVENT BTU OUT? @YM01487*/ 01280000 * THEN 0425 01281000 @RC00406 L @12,EIDPTR(,PREG) 0425 01282000 CLC EID(2,@12),@CB00232 0425 01283000 BNE @RF00425 0425 01284000 * LABPT=ADDR(OUTLAB); /* FORMAT WITH OUT LABEL */ 01285000 L @12,ABDPLPTR(,PREG) 0426 01286000 LA @06,OUTLAB 0426 01287000 ST @06,LABPT(,@12) 0426 01288000 * ELSE 0427 01289000 * LABPT=ADDR(INLAB); /* FORMAT WITH IN LABEL */ 01290000 B @RC00425 0427 01291000 @RF00425 L @12,ABDPLPTR(,PREG) 0427 01292000 LA @06,INLAB 0427 01293000 ST @06,LABPT(,@12) 0427 01294000 * GOTO FORMAT; /* RTN WHICH FORMATS RECORD */ 01295000 B FORMAT 0428 01296000 *SRMRTN: 0429 01297000 * IF SYSM='0'B& /* SELECT ALL EVENTS ? */ 01298000 * SRM='0'B THEN /* SELECT SRM EVENTS ? */ 01299000 SRMRTN TM SYSM(AEDITCBR),B'00010100' 0429 01300000 BZ @RT00429 0429 01301000 * GOTO SETRET8; /* NO, THEN SKIP RECORD */ 01302000 * 0430 01303000 * /*****************************************************************/ 01304000 * /* */ 01305000 * /* IF RECORD CONTAINS ERROR INDICATOR, BRANCH TO DUMP RECORD IN */ 01306000 * /* HEX FORMAT */ 01307000 * /* */ 01308000 * /*****************************************************************/ 01309000 * 0431 01310000 * IF DATA(1:2)='EEEE'X THEN 0431 01311000 @RF00429 L @12,DATAPTR(,PREG) 0431 01312000 CLC DATA(2,@12),@CB00606 0431 01313000 BE @RT00431 0431 01314000 * GO TO CALLHEX; 0432 01315000 * IF SRMASCB=ASTERR /* ASCB CONTAINS ASTERISKS */ 01316000 * THEN 0433 01317000 CLC SRMASCB(4,@12),@CC00339 0433 01318000 BNE @RF00433 0433 01319000 * REG0=ADDR(SRMERRF); /* ERROR FMT */ 01320000 LA REG0,SRMERRF 0434 01321000 * ELSE 0435 01322000 * REG0=ADDR(SRMF); /* STND SRM FMT */ 01323000 B @RC00433 0435 01324000 @RF00433 LA REG0,SRMF 0435 01325000 * GOTO FORMAT; /* GO FORMAT RECORD */ 01326000 B FORMAT 0436 01327000 *RRRTN: 0437 01328000 * IF SYSM='0'B& /* SELECT ALL EVENTS */ 01329000 * RR='0'B THEN /* SELECT RECOVERY RTN EVENTS */ 01330000 RRRTN TM SYSM(AEDITCBR),B'00010010' 0437 01331000 BZ @RT00437 0437 01332000 * GOTO SETRET8; /* NO, THEN SKIP RECORD */ 01333000 * 0438 01334000 * /*****************************************************************/ 01335000 * /* */ 01336000 * /* IF ERROR RECORD, DUMP IN HEX */ 01337000 * /* */ 01338000 * /*****************************************************************/ 01339000 * 0439 01340000 * IF DATA(1:2)='EEEE'X THEN 0439 01341000 @RF00437 L @12,DATAPTR(,PREG) 0439 01342000 CLC DATA(2,@12),@CB00606 0439 01343000 BE @RT00439 0439 01344000 * GOTO CALLHEX; 0440 01345000 * IF EID=IMDMSTAE THEN 0441 01346000 L @12,EIDPTR(,PREG) 0441 01347000 CLC EID(2,@12),@CB00226 0441 01348000 BE @RT00441 0441 01349000 * GO TO STAERTN; /* TEST FOR STAE */ 01350000 * 0442 01351000 * /*****************************************************************/ 01352000 * /* */ 01353000 * /* THIS RTN FORMATS FRR EVENTS */ 01354000 * /* */ 01355000 * /*****************************************************************/ 01356000 * 0443 01357000 *FRRRTN: 0443 01358000 * IF FRRPSW(1:4)=ASTERR THEN 0443 01359000 FRRRTN L @12,DATAPTR(,PREG) 0443 01360000 CLC FRRPSW(4,@12),@CC00339 0443 01361000 BNE @RF00443 0443 01362000 * DO; /* ERROR IN RTCA FLDS */ 01363000 * REG0=ADDR(FRRERRF); /* POINT TO ERR EBCIDIC FMT */ 01364000 LA REG0,FRRERRF 0445 01365000 * GOTO FORMAT; 0446 01366000 B FORMAT 0446 01367000 * END; 0447 01368000 * IF FRRETRY=NOTAPP /* RETRY NOT APP */ 01369000 * THEN 0448 01370000 @RF00443 L @12,DATAPTR(,PREG) 0448 01371000 CLC FRRETRY(4,@12),@CC00341 0448 01372000 BNE @RF00448 0448 01373000 * REG0=ADDR(FRRNAF); /* NOT APP RET FMT */ 01374000 LA REG0,FRRNAF 0449 01375000 * ELSE 0450 01376000 * REG0=ADDR(FRRSTDF); /* STND FRR FMT */ 01377000 B @RC00448 0450 01378000 @RF00448 LA REG0,FRRSTDF 0450 01379000 * DATAPT=ADDR(FRRETRY); /* SET UP DATA PTR */ 01380000 @RC00448 L @12,ABDPLPTR(,PREG) 0451 01381000 L @06,DATAPTR(,PREG) 0451 01382000 LA @06,FRRETRY(,@06) 0451 01383000 ST @06,DATAPT(,@12) 0451 01384000 * REG1=ABDPLPTR; /* POINT TO EXIT LIST */ 01385000 LR REG1,@12 0452 01386000 * CALL AMDPRFMT; /* CALL FORMATTING RTN */ 01387000 L @15,ADPLFRMT(,@12) 0453 01388000 BALR @14,@15 0453 01389000 * IF FRRASCB=ASTERR /* ASCB ERROR */ 01390000 * THEN 0454 01391000 L @12,DATAPTR(,PREG) 0454 01392000 CLC FRRASCB(4,@12),@CC00339 0454 01393000 BNE @RF00454 0454 01394000 * REG0=ADDR(FRRERR1); 0455 01395000 LA REG0,FRRERR1 0455 01396000 * ELSE 0456 01397000 * REG0=ADDR(FRRF); /* FORMAT STND PART OF REC */ 01398000 B @RC00454 0456 01399000 @RF00454 LA REG0,FRRF 0456 01400000 * GOTO FORMAT; 0457 01401000 B FORMAT 0457 01402000 *STAERTN: 0458 01403000 * IF STAEPSW=UNAVAL /* RTCA DATA HAS U/A */ 01404000 * THEN 0458 01405000 STAERTN L @12,DATAPTR(,PREG) 0458 01406000 CLC STAEPSW(4,@12),@CC00343 0458 01407000 BNE @RF00458 0458 01408000 * DO; 0459 01409000 * REG0=ADDR(STAR10F); /* WHEN R1=0 FORMAT */ 01410000 LA REG0,STAR10F 0460 01411000 * GOTO FORMAT; /* FORMAT RECORD */ 01412000 B FORMAT 0461 01413000 * END; 0462 01414000 * IF RTCAPTR>0 /* COMPLEMENTED RTCA */ 01415000 * THEN 0463 01416000 @RF00458 L @12,DATAPTR(,PREG) 0463 01417000 ICM @06,15,RTCAPTR(@12) 0463 01418000 BNP @RF00463 0463 01419000 * DO; /* ESTAE TYPE FORMATTING */ 01420000 * 0464 01421000 * /*************************************************************/ 01422000 * /* */ 01423000 * /* FORMAT ESTAE RECORD */ 01424000 * /* */ 01425000 * /*************************************************************/ 01426000 * 0465 01427000 * IF STAEPSW(1:4)=ASTERR /* ERROR IN PSW FLD */ 01428000 * THEN 0465 01429000 CLC STAEPSW(4,@12),@CC00339 0465 01430000 BNE @RF00465 0465 01431000 * DO; 0466 01432000 * REG0=ADDR(ESTAERF); /* ERROR ESTAE FMT */ 01433000 LA REG0,ESTAERF 0467 01434000 * GOTO FORMAT; 0468 01435000 B FORMAT 0468 01436000 * END; 0469 01437000 * IF STARTYA=NOTAPP /* RETRY FLD HAS N/A */ 01438000 * THEN 0470 01439000 @RF00465 L @12,DATAPTR(,PREG) 0470 01440000 CLC STARTYA(4,@12),@CC00341 0470 01441000 BNE @RF00470 0470 01442000 * REG0=ADDR(ESTANAF); /* POINT TO N/A FMT ESTAE */ 01443000 LA REG0,ESTANAF 0471 01444000 * ELSE 0472 01445000 * REG0=ADDR(ESTASTDF); /* POINT TO STD FMT ESTAE */ 01446000 B @RC00470 0472 01447000 @RF00470 LA REG0,ESTASTDF 0472 01448000 * GOTO FORMAT; /* FMT NON-ERROR ESTAE FMT */ 01449000 B FORMAT 0473 01450000 * END; 0474 01451000 * IF STAEPSW(1:4)=ASTERR THEN 0475 01452000 @RF00463 L @12,DATAPTR(,PREG) 0475 01453000 CLC STAEPSW(4,@12),@CC00339 0475 01454000 BNE @RF00475 0475 01455000 * REG0=ADDR(STAEERF); /* ERROR STAE FMT */ 01456000 LA REG0,STAEERF 0476 01457000 * ELSE 0477 01458000 * REG0=ADDR(STAF); /* REGULAR STAE FMT */ 01459000 B @RC00475 0477 01460000 @RF00475 LA REG0,STAF 0477 01461000 * DATAPT=DATAPTR; 0478 01462000 @RC00475 L @12,ABDPLPTR(,PREG) 0478 01463000 L @06,DATAPTR(,PREG) 0478 01464000 ST @06,DATAPT(,@12) 0478 01465000 * REG1=ABDPLPTR; 0479 01466000 LR REG1,@12 0479 01467000 * CALL AMDPRFMT; 0480 01468000 L @15,ADPLFRMT(,@12) 0480 01469000 BALR @14,@15 0480 01470000 * IF STARTYA=NOTAPP THEN 0481 01471000 L @12,DATAPTR(,PREG) 0481 01472000 CLC STARTYA(4,@12),@CC00341 0481 01473000 BNE @RF00481 0481 01474000 * REG0=ADDR(STANAF); /* POINT TO N/A FMT STAE */ 01475000 LA REG0,STANAF 0482 01476000 * ELSE 0483 01477000 * REG0=ADDR(STASTDF); /* POINT TO STD FMT STAE */ 01478000 B @RC00481 0483 01479000 @RF00481 LA REG0,STASTDF 0483 01480000 * DATAPT=ADDR(STARTYA); 0484 01481000 @RC00481 L @12,ABDPLPTR(,PREG) 0484 01482000 L @06,DATAPTR(,PREG) 0484 01483000 LA @06,STARTYA(,@06) 0484 01484000 ST @06,DATAPT(,@12) 0484 01485000 * REG1=ABDPLPTR; 0485 01486000 LR REG1,@12 0485 01487000 * CALL AMDPRFMT; 0486 01488000 L @15,ADPLFRMT(,@12) 0486 01489000 BALR @14,@15 0486 01490000 * GOTO EXITRTN; 0487 01491000 B EXITRTN 0487 01492000 * END AMDSYS03 0488 01493000 * 0488 01494000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01495000 */*%INCLUDE SYSLIB (AMDPRTAB) */ 01496000 */*%INCLUDE SYSLIB (IHAABDPL) */ 01497000 */*%INCLUDE SYSLIB (IMDMEDIT) */ 01498000 * 0488 01499000 * ; 0488 01500000 @DATA DS 0H 01501000 @CH00658 DC H'17' 01502000 @CH00595 DC H'19' 01503000 @DATD DSECT 01504000 DS 0F 01505000 @SA00001 DS 18F 01506000 @TF00001 DS F 01507000 AMDSYS03 CSECT 01508000 DS 0F 01509000 @CF00046 DC F'1' 01510000 @CF00323 DC F'18' 01511000 @CH00323 EQU @CF00323+2 01512000 @CF00130 DC F'20' 01513000 @CF00036 DC F'31' 01514000 @CF00092 DC F'32' 01515000 @CF00104 DC F'50' 01516000 @DATD DSECT 01517000 DS 0D 01518000 WKAREA DS CL36 01519000 ORG WKAREA 01520000 TWOEXPN DS 8F 01521000 SHFTIND DS CL4 01522000 ORG SHFTIND 01523000 @NM00004 DS CL2 01524000 PIIND DS CL2 01525000 ORG WKAREA+36 01526000 AMDSYS03 CSECT 01527000 DS 0F 01528000 @SIZDATD DC AL1(0) 01529000 DC AL3(@ENDDATD-@DATD) 01530000 DS 0D 01531000 @CC00339 DC C'****' 01532000 @CC00341 DC C'N/A ' 01533000 @CC00343 DC C'U/A ' 01534000 @CC00611 DC C' ' 01535000 @CB00210 DC X'5200' 01536000 @CB00214 DC X'0000' 01537000 @CB00224 DC X'5101' 01538000 @CB00226 DC X'4002' 01539000 @CB00232 DC X'8200' 01540000 @CB00236 DC X'0002' 01541000 @CB00239 DC X'0004' 01542000 @CB00345 DC X'1004' 01543000 @CB00606 DC X'EEEE' 01544000 S03PTCH DC CL200'S03PTCH' 01545000 ROUTSEL DS CL8 01546000 ORG ROUTSEL+0 01547000 RTNEID DC X'5201' 01548000 DS CL2 01549000 RTNADDR DC AL4(UIORTN) 01550000 ORG ROUTSEL+8 01551000 ORG ROUTSEL+8 01552000 DC X'5200' 01553000 DS CL2 01554000 DC AL4(IORTN) 01555000 ORG ROUTSEL+16 01556000 ORG ROUTSEL+16 01557000 DC X'2100' 01558000 DS CL2 01559000 DC AL4(IORTN) 01560000 ORG ROUTSEL+24 01561000 ORG ROUTSEL+24 01562000 DC X'5100' 01563000 DS CL2 01564000 DC AL4(SIORTN) 01565000 ORG ROUTSEL+32 01566000 ORG ROUTSEL+32 01567000 DC X'5101' 01568000 DS CL2 01569000 DC AL4(IORTN) 01570000 ORG ROUTSEL+40 01571000 ORG ROUTSEL+40 01572000 DC X'0001' 01573000 DS CL2 01574000 DC AL4(SRBRTN) 01575000 ORG ROUTSEL+48 01576000 ORG ROUTSEL+48 01577000 DC X'0002' 01578000 DS CL2 01579000 DC AL4(DSPRTN) 01580000 ORG ROUTSEL+56 01581000 ORG ROUTSEL+56 01582000 DC X'0003' 01583000 DS CL2 01584000 DC AL4(DSPRTN) 01585000 ORG ROUTSEL+64 01586000 ORG ROUTSEL+64 01587000 DC X'0004' 01588000 DS CL2 01589000 DC AL4(DSPRTN) 01590000 ORG ROUTSEL+72 01591000 ORG ROUTSEL+72 01592000 DC X'1000' 01593000 DS CL2 01594000 DC AL4(SVCRTN) 01595000 ORG ROUTSEL+80 01596000 ORG ROUTSEL+80 01597000 DC X'6101' 01598000 DS CL2 01599000 DC AL4(PIRTN) 01600000 ORG ROUTSEL+88 01601000 ORG ROUTSEL+88 01602000 DC X'6200' 01603000 DS CL2 01604000 DC AL4(PIRTN) 01605000 ORG ROUTSEL+96 01606000 ORG ROUTSEL+96 01607000 DC X'8100' 01608000 DS CL2 01609000 DC AL4(RNIORTN) 01610000 ORG ROUTSEL+104 01611000 ORG ROUTSEL+104 01612000 DC X'8200' 01613000 DS CL2 01614000 DC AL4(RNIORTN) 01615000 ORG ROUTSEL+112 01616000 ORG ROUTSEL+112 01617000 DC X'6201' 01618000 DS CL2 01619000 DC AL4(EXTRTN) 01620000 ORG ROUTSEL+120 01621000 ORG ROUTSEL+120 01622000 DC X'4001' 01623000 DS CL2 01624000 DC AL4(SRMRTN) 01625000 ORG ROUTSEL+128 01626000 ORG ROUTSEL+128 01627000 DC X'4002' 01628000 DS CL2 01629000 DC AL4(RRRTN) 01630000 ORG ROUTSEL+136 01631000 ORG ROUTSEL+136 01632000 DC X'4003' 01633000 DS CL2 01634000 DC AL4(RRRTN) 01635000 ORG ROUTSEL+144 01636000 BTUPTR DC AL4(BTU01) 01637000 DC AL4(BTU02) 01638000 DC AL4(BTU03) 01639000 DC AL4(BTU04) 01640000 DC AL4(BTU05) 01641000 DC AL4(BTU06) 01642000 DC AL4(BTU07) 01643000 DC AL4(BTU08) 01644000 DC AL4(BTU09) 01645000 DC AL4(BTU10) 01646000 DC AL4(BTU11) 01647000 DC AL4(BTU12) 01648000 DC AL4(BTU13) 01649000 DC AL4(BTU14) 01650000 DC AL4(BTU15) 01651000 DC AL4(BTU16) 01652000 DC AL4(BTU17) 01653000 DC AL4(BTU18) 01654000 DC AL4(BTU19) 01655000 BTUEPTR DC AL4(BTU01E) 01656000 DC AL4(BTU02E) 01657000 DC AL4(BTU03E) 01658000 DC AL4(BTU04E) 01659000 DC AL4(BTU05E) 01660000 DC AL4(BTU06E) 01661000 DC AL4(BTU07E) 01662000 DC AL4(BTU08E) 01663000 DC AL4(BTU09E) 01664000 DC AL4(BTU10E) 01665000 DC AL4(BTU11E) 01666000 DC AL4(BTU12E) 01667000 DC AL4(BTU13E) 01668000 DC AL4(BTU14E) 01669000 DC AL4(BTU15E) 01670000 DC AL4(BTU16E) 01671000 DC AL4(BTU17E) 01672000 DC AL4(BTU18E) 01673000 DC AL4(BTU19E) 01674000 AMDSYS03 CSECT 01675000 *** FORMAT FOR ERROR IO FORMAT 01676000 IOERRF0 FMTPTRN (LBL),3,,0 LABEL 01677000 FMTPTRN (LBL,LBLP,DTAC,DTA,DTAE),4,4,5,10,IOGENLAB ASCB 01678000 FMTPTRN (LBL,DTAC,DTA),3,2,20,24 CPU 01679000 FMTPTRN (LBL,DTAC,DTA),3,4,30,34 PSW 01680000 FMTPTRN (DTAC,DTA),,4,,43 PSW 01681000 FMTPTRN (LBL,DTAC,DTA,DTAE),3,4,53,57 TCB 01682000 FMTPTRN (LBL,DTAC,DTA),3,4,81,85 CSW @YM01892 01683000 FMTPTRN (DTAC,DTA),,4,,94 CSW 01684000 FMTPTRN (LBL,DTAC,DTA,DTAE),3,2,104,108 SENSE 01685000 FMTPTRN (LBL,DTAC,DTA),7,2,67,75 DEV ADD 01686000 FMTPTRN (DTAP,DTAC,DTA,DTAE),,2,,109,,SLASHA,LAST /A IN SENSE 01687000 IOERRF1 FMTPTRN (LBL),3,,0 LABEL 01688000 FMTPTRN (LBL,LBLP,DTAC,DTA,DTAE),4,4,5,10,IOGENLAB ASCB 01689000 FMTPTRN (LBL,DTAC,DTA),3,2,20,24 CPU 01690000 FMTPTRN (LBL,DTAC,DTA),3,4,30,34 PSW 01691000 FMTPTRN (DTAC,DTA),,4,,43 PSW 01692000 FMTPTRN (LBL,DTAC,DTA,DTAE),3,4,53,57 TCB 01693000 FMTPTRN (LBL,DTAC,DTA),3,4,81,85 CSW @YM01892 01694000 FMTPTRN (DTAC,DTA),,4,,94 CSW 01695000 FMTPTRN (LBL,DTAC,DTA,DTAE),3,2,104,108 SENSE 01696000 FMTPTRN (LBL,DTAC,DTA),7,2,67,75,,,LAST DEV ADD 01697000 IOERRF2 FMTPTRN (LBL),3,,0 LABEL 01698000 FMTPTRN (LBL,LBLP,DTAC,DTA,DTAE),4,4,5,10,IOGENLAB ASCB 01699000 FMTPTRN (LBL,DTAC,DTA),3,2,20,24 CPU 01700000 FMTPTRN (LBL,DTAC,DTA),3,4,30,34 PSW 01701000 FMTPTRN (DTAC,DTA),,4,,43 PSW 01702000 FMTPTRN (LBL,DTAC,DTA,DTAE),3,4,53,57 TCB 01703000 FMTPTRN (LBL,DTAC,DTA),3,4,81,85 CSW @YM01892 01704000 FMTPTRN (DTAC,DTA),,4,,94 CSW 01705000 FMTPTRN (LBL,DTAC,DTA),3,2,104,75 SKIP SENSE 01706000 FMTPTRN (LBL,DTAC,DTA),7,2,67,75,,,LAST DEV ADD 01707000 IOERRF3 FMTPTRN (LBL),3,,0 LABEL 01708000 FMTPTRN (LBL,LBLP,DTAC,DTA,DTAE),4,4,5,10,IOGENLAB ASCB 01709000 FMTPTRN (LBL,DTAC,DTA),3,2,20,24 CPU 01710000 FMTPTRN (LBL,DTAC,DTA),3,4,30,34 PSW 01711000 FMTPTRN (DTAC,DTA),,4,,43 PSW 01712000 FMTPTRN (LBL,DTAC,DTA),3,4,53,94 SKIP TCB,LABEL ONLY 01713000 FMTPTRN (LBL,DTAC,DTA),3,4,81,85 CSW @YM01892 01714000 FMTPTRN (DTAC,DTA),,4,,94 CSW 01715000 FMTPTRN (LBL,DTAC,DTA),3,2,104,75 SKIP SENSE 01716000 FMTPTRN (LBL,DTAC,DTA),7,2,67,75,,,LAST DEV ADD 01717000 IOERRF4 FMTPTRN (LBL),3,,0 LABEL 01718000 FMTPTRN (LBL,LBLP,DTAC,DTA),4,4,5,10,IOGENLAB ASCB 01719000 FMTPTRN (LBL,DTAC,DTA),3,2,20,24 CPU 01720000 FMTPTRN (LBL,DTAC,DTA),3,4,30,34 PSW 01721000 FMTPTRN (DTAC,DTA),,4,,43 PSW 01722000 FMTPTRN (LBL,DTAC,DTA,DTAE),3,4,53,94 SKIP TCB, LABEL ONLY 01723000 FMTPTRN (LBL,DTAC,DTA),3,4,81,85 CSW @YM01892 01724000 FMTPTRN (DTAC,DTA),,4,,94 CSW 01725000 FMTPTRN (LBL,DTAC,DTA),3,2,104,75 SKIP SENSE 01726000 FMTPTRN (LBL,DTAC,DTA),7,2,67,75,,,LAST DEV ADD 01727000 *** FORMAT FOR SIO RECORD 01728000 SIOF FMTPTRN (LBL,LBLP),3,,0,,SIOLAB LABEL 01729000 FMTPTRN (LBL,DTAC,DTA),4,4,5,10 ASCB 01730000 FMTPTRN (LBL,DTAC,DTA),3,2,20,24 CPU 01731000 FMTPTRN (LBL,DTAC,DTA),3,4,30,34 CPA 01732000 FMTPTRN (DTAC,DTA),,4,,43 CPA 01733000 FMTPTRN (LBL,DTAC,DTA),2,1,94,96 CC 01734000 FMTPTRN (LBL,DTAC,DTA),1,1,96,75 SKIP BYTE AND BLANK ILC 01735000 FMTPTRN (LBL,DTAC,DTA),7,2,67,75 DEV ADD 01736000 FMTPTRN (LBL,DTAC,DTA),3,4,53,57 CAW 01737000 FMTPTRN (LBL,DTAC,DTA),6,2,81,88,,,LAST STATUS 01738000 SIOERRF FMTPTRN (LBL,LBLP),3,,0,,SIOLAB LABEL 01739000 FMTPTRN (LBL,DTAC,DTAE,DTA),4,4,5,10 ASCB 01740000 FMTPTRN (LBL,DTAC,DTA),3,2,20,24 CPU 01741000 FMTPTRN (LBL,DTAC,DTAE,DTA),3,8,30,34 CPA 01742000 FMTPTRN (LBL,DTAC,DTA,DTAE),3,1,94,97 CC 01743000 FMTPTRN (DTA,DTAC),,1,,75 SKIP A BYTE 01744000 FMTPTRN (LBL,DTAC,DTA),7,2,67,75 DEV ADD 01745000 FMTPTRN (LBL,DTAC,DTA),3,4,53,57 CAW 01746000 FMTPTRN (LBL,DTAC,DTA),6,2,81,88 STATUS 01747000 FMTPTRN (DTAE,DTAP,DTAC,DTA),,2,,98,,SLASHA,LAST '/A' IN CC 01748000 SIOERRF2 FMTPTRN (LBL,LBLP),3,,0,,SIOLAB LABEL 01749000 FMTPTRN (LBL,DTAC,DTAE,DTA),4,4,5,10 ASCB 01750000 FMTPTRN (LBL,DTAC,DTA),3,2,20,24 CPU 01751000 FMTPTRN (LBL,DTAC,DTAE,DTA),3,8,30,34 CPA 01752000 FMTPTRN (LBL,DTAC,DTA,DTAE),3,1,94,97 CC 01753000 FMTPTRN (DTA,DTAC),,1,,75 SKIP A BYTE 01754000 FMTPTRN (LBL,DTAC,DTA),7,2,67,75 DEV ADD 01755000 FMTPTRN (LBL,DTAC,DTA),3,4,53,57 CAW 01756000 FMTPTRN (LBL,DTAC,DTA),6,2,81,88,,,LAST STATUS 01757000 *** FORMAT FOR UIO RECORD. 01758000 UIOF FMTPTRN (LBLP,LBL),3,,0,,UIOLAB LABEL 01759000 FMTPTRN (LBL,DTAC,DTA,DTAE),4,4,5,10 ASCB 01760000 FMTPTRN (LBL,DTAC,DTA),3,2,20,24 CPU 01761000 FMTPTRN (LBL,DTAC,DTA),3,4,30,34 PSW 01762000 FMTPTRN (DTAC,DTA),,4,,43 PSW 01763000 FMTPTRN (LBL,DTAC,DTA),3,4,67,71 CSW 01764000 FMTPTRN (DTAC,DTA),,4,,80 CSW 01765000 FMTPTRN (DTA,DTAE,DTAC),,2,,61 SKIP 2 BYTES OF DATA 01766000 FMTPTRN (LBL,DTAC,DTA),7,2,53,61,,,LAST DEVICE ADDR 01767000 *** FORMAT FOR IO RECORD 01768000 IOTCBNA FMTPTRN (DTA,DTAC,DTAE),,4,,57,,,LAST N/A OR **** TCB 01769000 IOTCBOK FMTPTRN (DTA,DTAC),,4,,57,,,LAST TCB 01770000 IOSNSNA FMTPTRN (DTA,DTAC,DTAE),,3,,108,,,LAST N/A SENSE 01771000 IOSNSOK FMTPTRN (DTA,DTAC),,2,,108,,,LAST SENSE 01772000 IOF FMTPTRN (LBL),3,,0 LABEL 01773000 FMTPTRN (LBL,LBLP,DTAC,DTA),4,4,5,10,IOGENLAB ASCB 01774000 FMTPTRN (LBL,DTAC,DTA),3,2,20,24 CPU 01775000 FMTPTRN (LBL,DTAC,DTA),3,4,30,34 PSW 01776000 FMTPTRN (DTAC,DTA),,4,,43 PSW 01777000 FMTPTRN (LBL,DTAC,DTA),3,4,53,94 SKIP TCB, LABEL ONLY 01778000 FMTPTRN (LBL,DTAC,DTA),3,4,81,85 CSW @YM04519 01779000 FMTPTRN (DTAC,DTA),,4,,94 CSW 01780000 FMTPTRN (DTAE,DTAC,DTA,LBL),3,2,104,75 SENSE @YM04519 01781000 FMTPTRN (LBL,DTAC,DTA),7,2,67,75,,,LAST DEV ADD 01782000 EXTERRF FMTPTRN (LBLP,LBL),3,,0,,EXTLAB LABEL 01783000 FMTPTRN (LBL,DTAC,DTA),4,4,5,10 ASCB 01784000 FMTPTRN (LBL,DTAC,DTA),3,2,20,24 CPU 01785000 FMTPTRN (LBL,DTAC,DTA),3,4,30,34 PSW 01786000 FMTPTRN (DTAC,DTA),,4,,43 PSW 01787000 FMTPTRN (LBL,DTAC,DTA,DTAE),3,4,53,57,,,LAST TCB 01788000 EXTSTDF FMTPTRN (LBLP,LBL),3,,0,,EXTLAB LABEL 01789000 FMTPTRN (LBL,DTAC,DTA),4,4,5,10 ASCB 01790000 FMTPTRN (LBL,DTAC,DTA),3,2,20,24 CPU 01791000 FMTPTRN (LBL,DTAC,DTA),3,4,30,34 PSW 01792000 FMTPTRN (DTAC,DTA),,4,,43 PSW 01793000 FMTPTRN (LBL,DTAC,DTA),3,4,53,57,,,LAST TCB 01794000 EXTCCERF FMTPTRN (LBLP,LBL,DTA,DTAC,DTAE),7,4,67,75,CLKCLAB,,LAST 01795000 EXTCCF FMTPTRN (LBLP,LBL,DTA,DTAC),7,4,67,75,CLKCLAB,,LAST 01796000 EXTSGPEF FMTPTRN (LBLP,LBL,DTA,DTAC,DTAE),7,2,67,75,SIGPLAB,,LAST 01797000 EXTSGPF FMTPTRN (LBLP,LBL,DTA,DTAC),7,2,67,75,SIGPLAB,,LAST 01798000 SVCF FMTPTRN (LBLP,LBL),3,,0,,SVCLAB LABEL 01799000 FMTPTRN (LBL,DTAC,DTA),4,4,5,10 ASCB 01800000 FMTPTRN (LBL,DTAC,DTA),3,2,20,24 CPU 01801000 FMTPTRN (LBL,DTAC,DTA),3,4,30,34 PSW 01802000 FMTPTRN (DTAC,DTA),,4,,43 PSW 01803000 FMTPTRN (LBL,DTAC,DTA),3,4,53,57 TCB 01804000 FMTPTRN (LBL,DTAC,DTA),3,4,67,71 R15 01805000 FMTPTRN (LBL,DTAC,DTA),2,4,81,84 RO 01806000 FMTPTRN (LBL,DTAC,DTA),2,4,94,97,,,LAST R1 01807000 PGMF FMTPTRN (LBL,LBLP),2,,0,,PILAB LABEL 01808000 FMTPTRN (LBL,DTA,DTAC),4,4,5,10 ASCB 01809000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24 CPU 01810000 FMTPTRN (LBL,DTA,DTAC),3,4,30,34 PSW 01811000 FMTPTRN (DTAC,DTA),,4,,43 PSW 01812000 FMTPTRN (LBL,DTA,DTAC),3,4,53,57 TCB 01813000 FMTPTRN (LBL,DTA,DTAC),3,4,67,71 /* VPA @YM06815 */ 01814000 FMTPTRN (LBL,DTA,DTAC),3,4,81,85 /* R15 @YM06815 */ 01815000 FMTPTRN (LBL,DTA,DTAC),2,4,95,98,,,LAST /* R1 @YM06815 */ 01816000 PGMERRF FMTPTRN (LBL,LBLP),2,,0,,PILAB LABEL 01817000 FMTPTRN (LBL,DTA,DTAC),4,4,5,10 ASCB 01818000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24 CPU 01819000 FMTPTRN (LBL,DTA,DTAC),3,4,30,34 PSW 01820000 FMTPTRN (DTAC,DTA),,4,,43 PSW 01821000 FMTPTRN (LBL,DTA,DTAC,DTAE),3,4,53,57 TCB 01822000 FMTPTRN (LBL,DTA,DTAC),3,4,67,71 /* VPA @YM06815 */ 01823000 FMTPTRN (LBL,DTA,DTAC),3,4,81,85 /* R15 @YM06815 */ 01824000 FMTPTRN (LBL,DTA,DTAC),2,4,95,98,,,LAST /* R1 @YM06815 */ 01825000 * RNIO BTU HAS ASTERISKS 01826000 RNIOERRF FMTPTRN (LBL,DTA,DTAC),9,4,0,10 /* HEADER AND ASCB @Z40KI3O*/ 01827000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24 /* CPU @Z40KI3O*/ 01828000 FMTPTRN (LBL,DTA,DTAC,DTAE),7,14,43,51,,,LAST /*BTU@Z40KI3O*/ 01829000 * RNIO ASCB AND BTU HAVE ASTERISKS 01830000 RNIOERR2 FMTPTRN (LBL,DTA,DTAC,DTAE),9,4,0,10 /* HDR & ASCB @Z40KI3O*/ 01831000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24 /* CPU @Z40KI3O*/ 01832000 FMTPTRN (LBL,DTA,DTAC,DTAE),7,14,43,51,,,LAST /*BTU@Z40KI3O*/ 01833000 * RNIO ASCB HAS **** AND 00 BYTES OF BTU DATA 01834000 BTU00E FMTPTRN (LBL,DTA,DTAC,DTAE),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 01835000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 01836000 FMTPTRN (LBL),7,,43,,,,LAST /* BTU @Z40KI3O*/ 01837000 * RNIO NORMAL WITH 00 BYTES OF BTU DATA 01838000 BTU00 FMTPTRN (LBL,DTA,DTAC),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 01839000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 01840000 FMTPTRN (LBL),7,,43,,,,LAST /* BTU @Z40KI3O*/ 01841000 * RNIO ASCB HAS **** AND 01 BYTES OF BTU DATA 01842000 BTU01E FMTPTRN (LBL,DTA,DTAC,DTAE),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 01843000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 01844000 FMTPTRN (LBL,DTA,DTAC),7,1,43,51,,,LAST /* BTU @Z40KI3O*/ 01845000 * RNIO NORMAL WITH 01 BYTES OF BTU DATA 01846000 BTU01 FMTPTRN (LBL,DTA,DTAC),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 01847000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 01848000 FMTPTRN (LBL,DTA,DTAC),7,1,43,51,,,LAST /* BTU @Z40KI3O*/ 01849000 * RNIO ASCB HAS **** AND 02 BYTES OF BTU DATA 01850000 BTU02E FMTPTRN (LBL,DTA,DTAC,DTAE),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 01851000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 01852000 FMTPTRN (LBL,DTA,DTAC),7,2,43,51,,,LAST /* BTU @Z40KI3O*/ 01853000 * RNIO NORMAL WITH 02 BYTES OF BTU DATA 01854000 BTU02 FMTPTRN (LBL,DTA,DTAC),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 01855000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 01856000 FMTPTRN (LBL,DTA,DTAC),7,2,43,51,,,LAST /* BTU @Z40KI3O*/ 01857000 * RNIO ASCB HAS **** AND 03 BYTES OF BTU DATA 01858000 BTU03E FMTPTRN (LBL,DTA,DTAC,DTAE),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 01859000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 01860000 FMTPTRN (LBL,DTA,DTAC),7,3,43,51,,,LAST /* BTU @Z40KI3O*/ 01861000 * RNIO NORMAL WITH 03 BYTES OF BTU DATA 01862000 BTU03 FMTPTRN (LBL,DTA,DTAC),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 01863000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 01864000 FMTPTRN (LBL,DTA,DTAC),7,3,43,51,,,LAST /* BTU @Z40KI3O*/ 01865000 * RNIO ASCB HAS **** AND 04 BYTES OF BTU DATA 01866000 BTU04E FMTPTRN (LBL,DTA,DTAC,DTAE),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 01867000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 01868000 FMTPTRN (LBL,DTA,DTAC),7,4,43,51,,,LAST /* BTU @Z40KI3O*/ 01869000 * RNIO NORMAL WITH 04 BYTES OF BTU DATA 01870000 BTU04 FMTPTRN (LBL,DTA,DTAC),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 01871000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 01872000 FMTPTRN (LBL,DTA,DTAC),7,4,43,51,,,LAST /* BTU @Z40KI3O*/ 01873000 * RNIO ASCB HAS **** AND 05 BYTES OF BTU DATA 01874000 BTU05E FMTPTRN (LBL,DTA,DTAC,DTAE),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 01875000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 01876000 FMTPTRN (LBL,DTA,DTAC),7,4,43,51,,, /* BTU @Z40KI3O*/ 01877000 FMTPTRN (DTA,DTAC),,1,,60,,,LAST /* @Z40KI3O*/ 01878000 * RNIO NORMAL WITH 05 BYTES OF BTU DATA 01879000 BTU05 FMTPTRN (LBL,DTA,DTAC),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 01880000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 01881000 FMTPTRN (LBL,DTA,DTAC),7,4,43,51,,, /* BTU @Z40KI3O*/ 01882000 FMTPTRN (DTA,DTAC),,1,,60,,,LAST /* @Z40KI3O*/ 01883000 * RNIO ASCB HAS **** AND 06 BYTES OF BTU DATA 01884000 BTU06E FMTPTRN (LBL,DTA,DTAC,DTAE),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 01885000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 01886000 FMTPTRN (LBL,DTA,DTAC),7,4,43,51,,, /* BTU @Z40KI3O*/ 01887000 FMTPTRN (DTA,DTAC),,2,,60,,,LAST /* @Z40KI3O*/ 01888000 * RNIO NORMAL WITH 06 BYTES OF BTU DATA 01889000 BTU06 FMTPTRN (LBL,DTA,DTAC),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 01890000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 01891000 FMTPTRN (LBL,DTA,DTAC),7,4,43,51,,, /* BTU @Z40KI3O*/ 01892000 FMTPTRN (DTA,DTAC),,2,,60,,,LAST /* @Z40KI3O*/ 01893000 * RNIO ASCB HAS **** AND 07 BYTES OF BTU DATA 01894000 BTU07E FMTPTRN (LBL,DTA,DTAC,DTAE),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 01895000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 01896000 FMTPTRN (LBL,DTA,DTAC),7,4,43,51,,, /* BTU @Z40KI3O*/ 01897000 FMTPTRN (DTA,DTAC),,3,,60,,,LAST /* @Z40KI3O*/ 01898000 * RNIO NORMAL WITH 07 BYTES OF BTU DATA 01899000 BTU07 FMTPTRN (LBL,DTA,DTAC),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 01900000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 01901000 FMTPTRN (LBL,DTA,DTAC),7,4,43,51,,, /* BTU @Z40KI3O*/ 01902000 FMTPTRN (DTA,DTAC),,3,,60,,,LAST /* @Z40KI3O*/ 01903000 * RNIO ASCB HAS **** AND 08 BYTES OF BTU DATA 01904000 BTU08E FMTPTRN (LBL,DTA,DTAC,DTAE),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 01905000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 01906000 FMTPTRN (LBL,DTA,DTAC),7,4,43,51,,, /* BTU @Z40KI3O*/ 01907000 FMTPTRN (DTA,DTAC),,4,,60,,,LAST /* @Z40KI3O*/ 01908000 * RNIO NORMAL WITH 08 BYTES OF BTU DATA 01909000 BTU08 FMTPTRN (LBL,DTA,DTAC),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 01910000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 01911000 FMTPTRN (LBL,DTA,DTAC),7,4,43,51,,, /* BTU @Z40KI3O*/ 01912000 FMTPTRN (DTA,DTAC),,4,,60,,,LAST /* @Z40KI3O*/ 01913000 * RNIO ASCB HAS **** AND 09 BYTES OF BTU DATA 01914000 BTU09E FMTPTRN (LBL,DTA,DTAC,DTAE),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 01915000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 01916000 FMTPTRN (LBL,DTA,DTAC),7,4,43,51,,, /* BTU @Z40KI3O*/ 01917000 FMTPTRN (DTA,DTAC),,4,,60,,, /* @Z40KI3O*/ 01918000 FMTPTRN (DTA,DTAC),,1,,69,,,LAST /* @Z40KI3O*/ 01919000 * RNIO NORMAL WITH 09 BYTES OF BTU DATA 01920000 BTU09 FMTPTRN (LBL,DTA,DTAC),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 01921000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 01922000 FMTPTRN (LBL,DTA,DTAC),7,4,43,51,,, /* BTU @Z40KI3O*/ 01923000 FMTPTRN (DTA,DTAC),,4,,60,,, /* @Z40KI3O*/ 01924000 FMTPTRN (DTA,DTAC),,1,,69,,,LAST /* @Z40KI3O*/ 01925000 * RNIO ASCB HAS **** AND 10 BYTES OF BTU DATA @Z40KI3O 01926000 BTU10E FMTPTRN (LBL,DTA,DTAC,DTAE),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 01927000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 01928000 FMTPTRN (LBL,DTA,DTAC),7,4,43,51,,, /* BTU @Z40KI3O*/ 01929000 FMTPTRN (DTA,DTAC),,4,,60,,, /* @Z40KI3O*/ 01930000 FMTPTRN (DTA,DTAC),,2,,69,,,LAST /* @Z40KI3O*/ 01931000 * RNIO NORMAL WITH 10 BYTES OF BTU DATA @Z40KI3O 01932000 BTU10 FMTPTRN (LBL,DTA,DTAC),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 01933000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 01934000 FMTPTRN (LBL,DTA,DTAC),7,4,43,51,,, /* BTU @Z40KI3O*/ 01935000 FMTPTRN (DTA,DTAC),,4,,60,,, /* @Z40KI3O*/ 01936000 FMTPTRN (DTA,DTAC),,2,,69,,,LAST /* @Z40KI3O*/ 01937000 * RNIO ASCB HAS **** AND 11 BYTES OF BTU DATA @Z40KI3O 01938000 BTU11E FMTPTRN (LBL,DTA,DTAC,DTAE),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 01939000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 01940000 FMTPTRN (LBL,DTA,DTAC),7,4,43,51,,, /* BTU @Z40KI3O*/ 01941000 FMTPTRN (DTA,DTAC),,4,,60,,, /* @Z40KI3O*/ 01942000 FMTPTRN (DTA,DTAC),,3,,69,,,LAST /* @Z40KI3O*/ 01943000 * RNIO NORMAL WITH 11 BYTES OF BTU DATA @Z40KI3O 01944000 BTU11 FMTPTRN (LBL,DTA,DTAC),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 01945000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 01946000 FMTPTRN (LBL,DTA,DTAC),7,4,43,51,,, /* BTU @Z40KI3O*/ 01947000 FMTPTRN (DTA,DTAC),,4,,60,,, /* @Z40KI3O*/ 01948000 FMTPTRN (DTA,DTAC),,3,,69,,,LAST /* @Z40KI3O*/ 01949000 * RNIO ASCB HAS **** AND 12 BYTES OF BTU DATA @Z40KI3O 01950000 BTU12E FMTPTRN (LBL,DTA,DTAC,DTAE),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 01951000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 01952000 FMTPTRN (LBL,DTA,DTAC),7,4,43,51,,, /* BTU @Z40KI3O*/ 01953000 FMTPTRN (DTA,DTAC),,4,,60,,, /* @Z40KI3O*/ 01954000 FMTPTRN (DTA,DTAC),,4,,69,,,LAST /* @Z40KI3O*/ 01955000 * RNIO NORMAL WITH 12 BYTES OF BTU DATA @Z40KI3O 01956000 BTU12 FMTPTRN (LBL,DTA,DTAC),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 01957000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 01958000 FMTPTRN (LBL,DTA,DTAC),7,4,43,51,,, /* BTU @Z40KI3O*/ 01959000 FMTPTRN (DTA,DTAC),,4,,60,,, /* @Z40KI3O*/ 01960000 FMTPTRN (DTA,DTAC),,4,,69,,,LAST /* @Z40KI3O*/ 01961000 * RNIO ASCB HAS **** AND 13 BYTES OF BTU DATA @Z40KI3O 01962000 BTU13E FMTPTRN (LBL,DTA,DTAC,DTAE),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 01963000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 01964000 FMTPTRN (LBL,DTA,DTAC),7,4,43,51,,, /* BTU @Z40KI3O*/ 01965000 FMTPTRN (DTA,DTAC),,4,,60,,, /* @Z40KI3O*/ 01966000 FMTPTRN (DTA,DTAC),,4,,69,,, /* @Z40KI3O*/ 01967000 FMTPTRN (DTA,DTAC),,1,,78,,,LAST /* @Z40KI3O*/ 01968000 * RNIO NORMAL WITH 13 BYTES OF BTU DATA @Z40KI3O 01969000 BTU13 FMTPTRN (LBL,DTA,DTAC),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 01970000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 01971000 FMTPTRN (LBL,DTA,DTAC),7,4,43,51,,, /* BTU @Z40KI3O*/ 01972000 FMTPTRN (DTA,DTAC),,4,,60,,, /* @Z40KI3O*/ 01973000 FMTPTRN (DTA,DTAC),,4,,69,,, /* @Z40KI3O*/ 01974000 FMTPTRN (DTA,DTAC),,1,,78,,,LAST /* @Z40KI3O*/ 01975000 * RNIO ASCB HAS **** AND 14 BYTES OF BTU DATA @Z40KI3O 01976000 BTU14E FMTPTRN (LBL,DTA,DTAC,DTAE),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 01977000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 01978000 FMTPTRN (LBL,DTA,DTAC),7,4,43,51,,, /* BTU @Z40KI3O*/ 01979000 FMTPTRN (DTA,DTAC),,4,,60,,, /* @Z40KI3O*/ 01980000 FMTPTRN (DTA,DTAC),,4,,69,,, /* @Z40KI3O*/ 01981000 FMTPTRN (DTA,DTAC),,2,,78,,,LAST /* @Z40KI3O*/ 01982000 * RNIO NORMAL WITH 14 BYTES OF BTU DATA @Z40KI3O 01983000 BTU14 FMTPTRN (LBL,DTA,DTAC),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 01984000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 01985000 FMTPTRN (LBL,DTA,DTAC),7,4,43,51,,, /* BTU @Z40KI3O*/ 01986000 FMTPTRN (DTA,DTAC),,4,,60,,, /* @Z40KI3O*/ 01987000 FMTPTRN (DTA,DTAC),,4,,69,,, /* @Z40KI3O*/ 01988000 FMTPTRN (DTA,DTAC),,2,,78,,,LAST /* @Z40KI3O*/ 01989000 * RNIO ASCB HAS **** AND 15 BYTES OF BTU DATA @Z40KI3O 01990000 BTU15E FMTPTRN (LBL,DTA,DTAC,DTAE),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 01991000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 01992000 FMTPTRN (LBL,DTA,DTAC),7,4,43,51,,, /* BTU @Z40KI3O*/ 01993000 FMTPTRN (DTA,DTAC),,4,,60,,, /* @Z40KI3O*/ 01994000 FMTPTRN (DTA,DTAC),,4,,69,,, /* @Z40KI3O*/ 01995000 FMTPTRN (DTA,DTAC),,3,,78,,,LAST /* @Z40KI3O*/ 01996000 * RNIO NORMAL WITH 15 BYTES OF BTU DATA @Z40KI3O 01997000 BTU15 FMTPTRN (LBL,DTA,DTAC),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 01998000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 01999000 FMTPTRN (LBL,DTA,DTAC),7,4,43,51,,, /* BTU @Z40KI3O*/ 02000000 FMTPTRN (DTA,DTAC),,4,,60,,, /* @Z40KI3O*/ 02001000 FMTPTRN (DTA,DTAC),,4,,69,,, /* @Z40KI3O*/ 02002000 FMTPTRN (DTA,DTAC),,3,,78,,,LAST /* @Z40KI3O*/ 02003000 * RNIO ASCB HAS **** AND 16 BYTES OF BTU DATA @Z40KI3O 02004000 BTU16E FMTPTRN (LBL,DTA,DTAC,DTAE),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 02005000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 02006000 FMTPTRN (LBL,DTA,DTAC),7,4,43,51,,, /* BTU @Z40KI3O*/ 02007000 FMTPTRN (DTA,DTAC),,4,,60,,, /* @Z40KI3O*/ 02008000 FMTPTRN (DTA,DTAC),,4,,69,,, /* @Z40KI3O*/ 02009000 FMTPTRN (DTA,DTAC),,4,,78,,,LAST /* @Z40KI3O*/ 02010000 * RNIO NORMAL WITH 16 BYTES OF BTU DATA @Z40KI3O 02011000 BTU16 FMTPTRN (LBL,DTA,DTAC),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 02012000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 02013000 FMTPTRN (LBL,DTA,DTAC),7,4,43,51,,, /* BTU @Z40KI3O*/ 02014000 FMTPTRN (DTA,DTAC),,4,,60,,, /* @Z40KI3O*/ 02015000 FMTPTRN (DTA,DTAC),,4,,69,,, /* @Z40KI3O*/ 02016000 FMTPTRN (DTA,DTAC),,4,,78,,,LAST /* @Z40KI3O*/ 02017000 * RNIO ASCB HAS **** AND 17 BYTES OF BTU DATA @Z40KI3O 02018000 BTU17E FMTPTRN (LBL,DTA,DTAC,DTAE),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 02019000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 02020000 FMTPTRN (LBL,DTA,DTAC),7,4,43,51,,, /* BTU @Z40KI3O*/ 02021000 FMTPTRN (DTA,DTAC),,4,,60,,, /* @Z40KI3O*/ 02022000 FMTPTRN (DTA,DTAC),,4,,69,,, /* @Z40KI3O*/ 02023000 FMTPTRN (DTA,DTAC),,4,,78,,, /* @Z40KI3O*/ 02024000 FMTPTRN (DTA,DTAC),,1,,87,,,LAST /* @Z40KI3O*/ 02025000 * RNIO NORMAL WITH 17 BYTES OF BTU DATA @Z40KI3O 02026000 BTU17 FMTPTRN (LBL,DTA,DTAC),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 02027000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 02028000 FMTPTRN (LBL,DTA,DTAC),7,4,43,51,,, /* BTU @Z40KI3O*/ 02029000 FMTPTRN (DTA,DTAC),,4,,60,,, /* @Z40KI3O*/ 02030000 FMTPTRN (DTA,DTAC),,4,,69,,, /* @Z40KI3O*/ 02031000 FMTPTRN (DTA,DTAC),,4,,78,,, /* @Z40KI3O*/ 02032000 FMTPTRN (DTA,DTAC),,1,,87,,,LAST /* @Z40KI3O*/ 02033000 * RNIO ASCB HAS **** AND 18 BYTES OF BTU DATA @Z40KI3O 02034000 BTU18E FMTPTRN (LBL,DTA,DTAC,DTAE),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 02035000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 02036000 FMTPTRN (LBL,DTA,DTAC),7,4,43,51,,, /* BTU @Z40KI3O*/ 02037000 FMTPTRN (DTA,DTAC),,4,,60,,, /* @Z40KI3O*/ 02038000 FMTPTRN (DTA,DTAC),,4,,69,,, /* @Z40KI3O*/ 02039000 FMTPTRN (DTA,DTAC),,4,,78,,, /* @Z40KI3O*/ 02040000 FMTPTRN (DTA,DTAC),,2,,87,,,LAST /* @Z40KI3O*/ 02041000 * RNIO NORMAL WITH 18 BYTES OF BTU DATA @Z40KI3O 02042000 BTU18 FMTPTRN (LBL,DTA,DTAC),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 02043000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 02044000 FMTPTRN (LBL,DTA,DTAC),7,4,43,51,,, /* BTU @Z40KI3O*/ 02045000 FMTPTRN (DTA,DTAC),,4,,60,,, /* @Z40KI3O*/ 02046000 FMTPTRN (DTA,DTAC),,4,,69,,, /* @Z40KI3O*/ 02047000 FMTPTRN (DTA,DTAC),,4,,78,,, /* @Z40KI3O*/ 02048000 FMTPTRN (DTA,DTAC),,2,,87,,,LAST /* @Z40KI3O*/ 02049000 * RNIO ASCB HAS **** AND 19 BYTES OF BTU DATA @Z40KI3O 02050000 BTU19E FMTPTRN (LBL,DTA,DTAC,DTAE),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 02051000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 02052000 FMTPTRN (LBL,DTA,DTAC),7,4,43,51,,, /* BTU @Z40KI3O*/ 02053000 FMTPTRN (DTA,DTAC),,4,,60,,, /* @Z40KI3O*/ 02054000 FMTPTRN (DTA,DTAC),,4,,69,,, /* @Z40KI3O*/ 02055000 FMTPTRN (DTA,DTAC),,4,,78,,, /* @Z40KI3O*/ 02056000 FMTPTRN (DTA,DTAC),,3,,87,,,LAST /* @Z40KI3O*/ 02057000 * RNIO NORMAL WITH 19 BYTES OF BTU DATA @Z40KI3O 02058000 BTU19 FMTPTRN (LBL,DTA,DTAC),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 02059000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 02060000 FMTPTRN (LBL,DTA,DTAC),7,4,43,51,,, /* BTU @Z40KI3O*/ 02061000 FMTPTRN (DTA,DTAC),,4,,60,,, /* @Z40KI3O*/ 02062000 FMTPTRN (DTA,DTAC),,4,,69,,, /* @Z40KI3O*/ 02063000 FMTPTRN (DTA,DTAC),,4,,78,,, /* @Z40KI3O*/ 02064000 FMTPTRN (DTA,DTAC),,3,,87,,,LAST /* @Z40KI3O*/ 02065000 * RNIO ASCB HAS **** AND 20 BYTES OF BTU DATA @Z40KI3O 02066000 BTU20E FMTPTRN (LBL,DTA,DTAC,DTAE),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 02067000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 02068000 FMTPTRN (LBL,DTA,DTAC),7,4,43,51,,, /* BTU @Z40KI3O*/ 02069000 FMTPTRN (DTA,DTAC),,4,,60,,, /* @Z40KI3O*/ 02070000 FMTPTRN (DTA,DTAC),,4,,69,,, /* @Z40KI3O*/ 02071000 FMTPTRN (DTA,DTAC),,4,,78,,, /* @Z40KI3O*/ 02072000 FMTPTRN (DTA,DTAC),,4,,87,,,LAST /* @Z40KI3O*/ 02073000 * RNIO NORMAL WITH 20 BYTES OF BTU DATA @Z40KI3O 02074000 BTU20 FMTPTRN (LBL,DTA,DTAC),9,4,0,10,,, /*HDR&ASCB @Z40KI3O*/ 02075000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24,,, /* CPUID @Z40KI3O*/ 02076000 FMTPTRN (LBL,DTA,DTAC),7,4,43,51,,, /* BTU @Z40KI3O*/ 02077000 FMTPTRN (DTA,DTAC),,4,,60,,, /* @Z40KI3O*/ 02078000 FMTPTRN (DTA,DTAC),,4,,69,,, /* @Z40KI3O*/ 02079000 FMTPTRN (DTA,DTAC),,4,,78,,, /* @Z40KI3O*/ 02080000 FMTPTRN (DTA,DTAC),,4,,87,,,LAST /* @Z40KI3O*/ 02081000 SRMF FMTPTRN (LBL,LBLP),3,,0,,SRMLAB LABEL 02082000 FMTPTRN (LBL,DTAC,DTA),4,4,5,10 ASCB 02083000 FMTPTRN (LBL,DTAC,DTA),3,2,20,24 CPU 02084000 FMTPTRN (LBL,DTAC,DTA),3,4,30,34 R15 02085000 FMTPTRN (LBL,DTAC,DTA),2,4,44,47 R0 02086000 FMTPTRN (LBL,DTAC,DTA),2,4,57,60,,,LAST R1 02087000 SRMERRF FMTPTRN (LBL,LBLP),3,,0,,SRMLAB LABEL 02088000 FMTPTRN (LBL,DTAC,DTA,DTAE),4,4,5,10 ASCB 02089000 FMTPTRN (LBL,DTAC,DTA),3,2,20,24 CPU 02090000 FMTPTRN (LBL,DTAC,DTA),3,4,30,34 R15 02091000 FMTPTRN (LBL,DTAC,DTA),2,4,44,47 R0 02092000 FMTPTRN (LBL,DTAC,DTA),2,4,57,60,,,LAST R1 02093000 DSPF FMTPTRN (LBL),4,,0 LABEL 02094000 FMTPTRN (LBL,LBLP,DTAC,DTA),4,4,5,10,DSPGNLAB ASCB 02095000 FMTPTRN (LBL,DTAC,DTA),3,2,20,24 CPU 02096000 FMTPTRN (LBL,DTAC,DTA),3,4,30,34 PSW 02097000 FMTPTRN (DTAC,DTA),,4,,43 PSW 02098000 FMTPTRN (LBL,DTAC,DTA),3,4,53,57 TCB 02099000 FMTPTRN (LBL,DTAC,DTA),3,4,67,71 R15 02100000 FMTPTRN (LBL,DTAC,DTA),2,4,81,84 R0 02101000 FMTPTRN (LBL,DTAC,DTA),2,4,94,97,,,LAST R1 02102000 DSPLSRF FMTPTRN (LBL),4,,0 LABEL 02103000 FMTPTRN (LBL,LBLP,DTAC,DTA),4,4,5,10,DSPGNLAB ASCB 02104000 FMTPTRN (LBL,DTAC,DTA),3,2,20,24 CPU 02105000 FMTPTRN (LBL,DTAC,DTA),3,4,30,34 PSW 02106000 FMTPTRN (DTAC,DTA),,4,,43 PSW 02107000 FMTPTRN (LBL,DTAC,DTA,DTAE),3,4,53,57 TCB 02108000 FMTPTRN (LBL,DTAC,DTA),3,4,67,71 R15 02109000 FMTPTRN (LBL,DTAC,DTA),2,4,81,84 R0 02110000 FMTPTRN (LBL,DTAC,DTA),2,4,94,97,,,LAST R1 02111000 DSPERRF FMTPTRN (LBL),4,,0 LABEL 02112000 FMTPTRN (LBL,LBLP,DTAC,DTA),4,4,5,10,DSPGNLAB ASCB 02113000 FMTPTRN (LBL,DTAC,DTA),3,2,20,24 CPU 02114000 FMTPTRN (LBL,DTAC,DTA),3,4,30,34 PSW 02115000 FMTPTRN (DTAC,DTA),,4,,43 PSW 02116000 FMTPTRN (LBL,DTAC,DTA),3,4,53,57 TCB 02117000 FMTPTRN (LBL,DTAC,DTA,DTAE),3,4,67,71 R15 02118000 FMTPTRN (LBL,DTAC,DTA,DTAE),2,4,81,84 R0 02119000 FMTPTRN (LBL,DTAC,DTA,DTAE),2,4,94,97,,,LAST R1 02120000 DSPELSR FMTPTRN (LBL),4,,0 LABEL 02121000 FMTPTRN (LBL,LBLP,DTAC,DTA),4,4,5,10,DSPGNLAB ASCB 02122000 FMTPTRN (LBL,DTAC,DTA),3,2,20,24 CPU 02123000 FMTPTRN (LBL,DTAC,DTA),3,4,30,34 PSW 02124000 FMTPTRN (DTAC,DTA),,4,,43 PSW 02125000 FMTPTRN (LBL,DTAC,DTA,DTAE),3,4,53,57 TCB 02126000 FMTPTRN (LBL,DTAC,DTA,DTAE),3,4,67,71 R15 02127000 FMTPTRN (LBL,DTAC,DTA,DTAE),2,4,81,84 R0 02128000 FMTPTRN (LBL,DTAC,DTA,DTAE),2,4,94,97,,,LAST R1 02129000 SRBSUPF FMTPTRN (LBL),3,,0 LABEL 02130000 FMTPTRN (LBL,DTA,DTAC),4,4,5,10, ASCB 02131000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24 CPU 02132000 FMTPTRN (LBL,DTA,DTAC),3,4,30,34 PSW 02133000 FMTPTRN (DTAC,DTA),,4,,43 PSW 02134000 FMTPTRN (LBL,DTA,DTAC),3,4,67,71 R15 02135000 FMTPTRN (LBL,DTA,DTAC,DTAE),3,4,53,57 SRB =N/A 02136000 FMTPTRN (LBL,DTA,DTAC),2,4,81,84 R1 02137000 FMTPTRN (LBL),4,,94,,,,LAST TYPE 02138000 SRBF FMTPTRN (LBL),6,,99 G OR L 02139000 FMTPTRN (LBL,LBLP),3,,0,,SRBSLAB LABEL 02140000 FMTPTRN (LBL,DTAC,DTA),4,4,5,10 ASCB 02141000 FMTPTRN (LBL,DTAC,DTA),3,2,20,24 CPU 02142000 FMTPTRN (LBL,DTAC,DTA),3,4,30,34 PSW 02143000 FMTPTRN (DTAC,DTA),,4,,43 PSW 02144000 FMTPTRN (LBL,DTAC,DTA),3,4,67,71 R15 02145000 FMTPTRN (LBL,DTAC,DTA),3,4,53,57 SRB 02146000 FMTPTRN (LBL,DTAC,DTA),2,4,81,84 R1 02147000 FMTPTRN (LBL),4,,94,,,,LAST TYPE 02148000 SRBERRF FMTPTRN (LBL),6,,99 G OR L @YM01892 02149000 FMTPTRN (LBL,LBLP),3,,0,,SRBSLAB LABEL @YM01892 02150000 FMTPTRN (LBL,DTAC,DTA),4,4,5,10 ASCB @YM01892 02151000 FMTPTRN (LBL,DTAC,DTA),3,2,20,24 CPU @YM01892 02152000 FMTPTRN (LBL,DTAC,DTA),3,4,30,34 PSW @YM01892 02153000 FMTPTRN (DTAC,DTA),,4,,43 PSW @YM01892 02154000 FMTPTRN (LBL,DTAC,DTA,DTAE),3,4,67,71 R15 @YM01892 02155000 FMTPTRN (LBL,DTAC,DTA,DTAE),3,4,53,57 SRB @YM01892 02156000 FMTPTRN (LBL,DTAC,DTA,DTAE),2,4,81,84 R1 @YM01892 02157000 FMTPTRN (LBL),4,,94,,,,LAST TYPE @YM01892 02158000 FRRERRF FMTPTRN (LBL,LBLP),3,,0,,FRRLAB FRR **** FMT 02159000 FMTPTRN (LBL,DTA,DTAC,DTAE),4,4,5,10 ASCB 02160000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24 CPUID 02161000 FMTPTRN (LBL,DTAE,DTA,DTAC),3,8,30,34 PSW 02162000 FMTPTRN (LBL,DTA,DTAC,DTAE),2,4,54,57 CC 02163000 FMTPTRN (LBL,DTA,DTAC,DTAE),4,4,67,72 ERRT 02164000 FMTPTRN (LBL,DTA,DTAC,DTAE),3,2,82,86 FLAGS 02165000 FMTPTRN (LBL,DTA,DTAC,DTAE),2,1,94,97 RC 02166000 FMTPTRN (LBL,DTA,DTAC,DTAE),5,4,101,107,,,LAST RETRY 02167000 STAEERF FMTPTRN (LBLP,LBL),4,,0,,STAELAB STAE ERROR FMT 02168000 FMTPTRN (LBL,DTA,DTAC),4,4,5,10 ASCB 02169000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24 CPU 02170000 FMTPTRN (LBL,DTA,DTAC,DTAE),3,8,30,34 PSW 02171000 FMTPTRN (LBL,DTA,DTAC,DTAE),2,4,54,57 CC 02172000 FMTPTRN (LBL,DTA,DTAC,DTAE),3,3,67,71 FLAGS 02173000 FMTPTRN (LBL,DTA,DTAC),2,1,79,82,,,LAST RC 02174000 STAF FMTPTRN (LBLP,LBL),4,,0,,STAELAB STAE STANDARD FMT 02175000 FMTPTRN (LBL,DTA,DTAC),4,4,5,10 ASCB 02176000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24 CPU 02177000 FMTPTRN (LBL,DTA,DTAC),3,4,30,34 PSW 02178000 FMTPTRN (DTA,DTAC),,4,,43 PSW 02179000 FMTPTRN (LBL,DTA,DTAC),2,4,54,57 CC 02180000 FMTPTRN (LBL,DTA,DTAC,DTAE),3,3,67,71 FLAGS 02181000 FMTPTRN (LBL,DTA,DTAC),2,1,79,82,,,LAST RC 02182000 STANAF FMTPTRN (LBLP,LBL,DTAC,DTA,DTAE),5,4,86,92,STA2LAB EBCDC RTRY 02183000 FMTPTRN (LBL,DTAC,DTA),4,4,102,107,,,LAST RTCA 02184000 STASTDF FMTPTRN (LBLP,LBL,DTAC,DTA),5,4,86,92,STA2LAB HEXRETRY ADDR 02185000 FMTPTRN (LBL,DTAC,DTA),4,4,102,107,,,LAST RTCA 02186000 STAR10F FMTPTRN (LBLP,LBL),4,,0,,STAELAB RTCA DATA IS U/A 02187000 FMTPTRN (LBL,DTA,DTAC),4,4,5,10 ASCB 02188000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24 CPU 02189000 FMTPTRN (LBL,DTA,DTAC,DTAE),3,8,30,34 PSW EBCIDIC PSW 02190000 FMTPTRN (LBL,DTA,DTAC,DTAE),2,4,54,57 CC EBCIDIC 02191000 FMTPTRN (LBL,DTA,DTAC,DTAE),3,3,67,71 FLG EBCIDID 02192000 FMTPTRN (LBL,DTA,DTAC),2,1,79,82 RC HEX 02193000 FMTPTRN (LBL,DTA,DTAC),5,4,86,92 RETRY HEX 02194000 FMTPTRN (LBL,DTA,DTAC),4,4,102,107,,,LAST RTCA HEX 02195000 ESTAERF FMTPTRN (LBLP,LBL),4,,0,,STAELAB ESTAE ERROR FMT 02196000 FMTPTRN (LBL,DTA,DTAC),4,4,5,10 ASCB 02197000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24 CPU 02198000 FMTPTRN (LBL,DTA,DTAC,DTAE),3,8,30,34 PSW EBCIDIC PSW 02199000 FMTPTRN (LBL,DTA,DTAC,DTAE),2,4,54,57 CC EBCIDIC 02200000 FMTPTRN (LBL,DTA,DTAC,DTAE),3,3,67,71 FLG EBCIDIC 02201000 FMTPTRN (LBL,DTA,DTAC,DTAE),2,1,79,82 RC EB 02202000 FMTPTRN (LBL,DTA,DTAC,DTAE),5,4,86,92 RETRY 02203000 FMTPTRN (LBL,DTA,DTAC),4,4,102,107,,,LAST RTCA 02204000 ESTANAF FMTPTRN (LBLP,LBL),4,,0,,STAELAB N/A ESTAE FMT 02205000 FMTPTRN (LBL,DTA,DTAC),4,4,5,10 ASCB 02206000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24 CPUID 02207000 FMTPTRN (LBL,DTA,DTAC),3,4,30,34 PSW 02208000 FMTPTRN (DTA,DTAC),,4,,43 PSW 02209000 FMTPTRN (LBL,DTA,DTAC),2,4,54,57 COMPLETION CODE 02210000 FMTPTRN (LBL,DTA,DTAC),3,3,67,71 FLG 02211000 FMTPTRN (LBL,DTA,DTAC),2,1,79,82 RETURN CODE 02212000 FMTPTRN (LBL,DTA,DTAC,DTAE),5,4,86,92 RETRY IS N/A 02213000 FMTPTRN (LBL,DTA,DTAC),4,4,105,110,,,LAST RTCA 02214000 ESTASTDF FMTPTRN (LBLP,LBL),4,,0,,STAELAB ESTAE FMT 02215000 FMTPTRN (LBL,DTA,DTAC),4,4,5,10 ASCB 02216000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24 CPUID 02217000 FMTPTRN (LBL,DTA,DTAC),3,4,30,34 PSW 02218000 FMTPTRN (DTA,DTAC),,4,,43 PSW 02219000 FMTPTRN (LBL,DTA,DTAC),2,4,54,57 COMPLETION CODE 02220000 FMTPTRN (LBL,DTA,DTAC),3,3,67,71 FLG 02221000 FMTPTRN (LBL,DTA,DTAC),2,1,79,82 RETURN CODE 02222000 FMTPTRN (LBL,DTA,DTAC),5,4,86,92 RETRY IS HEX ADDR 02223000 FMTPTRN (LBL,DTA,DTAC),4,4,105,110,,,LAST RTCA 02224000 FRRNAF FMTPTRN (LBL,LBLP,DTA,DTAC,DTAE),5,4,101,108,RETLAB,,LAST 02225000 FRRSTDF FMTPTRN (LBL,LBLP,DTA,DTAC),5,4,101,108,RETLAB,,LAST 02226000 FRRF FMTPTRN (LBL,LBLP),3,,0,,FRRLAB FRR STND FMT 02227000 FMTPTRN (LBL,DTA,DTAC),4,4,5,10 ASCB 02228000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24 CPUID 02229000 FMTPTRN (LBL,DTA,DTAC),3,4,30,34 PSW 02230000 FMTPTRN (DTA,DTAC),,4,,43 PSW 02231000 FMTPTRN (LBL,DTA,DTAC),2,4,54,57 CC 02232000 FMTPTRN (LBL,DTA,DTAC),4,4,67,72 ERRT 02233000 FMTPTRN (LBL,DTA,DTAC),3,2,82,86 FLAGS 02234000 FMTPTRN (LBL,DTA,DTAC),2,1,94,97,,,LAST RC 02235000 FRRERR1 FMTPTRN (LBL,LBLP),3,,0,,FRRLAB FRR STND FMT 02236000 FMTPTRN (LBL,DTA,DTAC,DTAE),4,4,5,10 ASCB 02237000 FMTPTRN (LBL,DTA,DTAC),3,2,20,24 CPUID 02238000 FMTPTRN (LBL,DTA,DTAC),3,4,30,34 PSW 02239000 FMTPTRN (DTA,DTAC),,4,,43 PSW 02240000 FMTPTRN (LBL,DTA,DTAC),2,4,54,57 CC 02241000 FMTPTRN (LBL,DTA,DTAC),4,4,67,72 ERRT 02242000 FMTPTRN (LBL,DTA,DTAC),3,2,82,86 FLAGS 02243000 FMTPTRN (LBL,DTA,DTAC),2,1,94,97,,,LAST RC 02244000 UIOLAB DC C'UIOASCBCPUPSWCSWDEV ADD' 02245000 IOLAB DC C'IO ' 02246000 PCILAB DC C'PCI' 02247000 EOSLAB DC C'EOS' 02248000 IOGENLAB DC C'ASCBCPUPSWTCBCSWSNSDEV ADD' 02249000 SIOLAB DC C'SIOASCBCPUCPACC DEV ADDCAWSTATUS' 02250000 EXTLAB DC C'EXTASCBCPUPSWTCBR15R1' 02251000 CLKCLAB DC C'TQE TCB' 02252000 SIGPLAB DC C'INT CPU' 02253000 SVCLAB DC C'SVCASCBCPUPSWTCBR15R0R1' 02254000 PILAB DC C'PIASCBCPUPSWTCBVPAR15R1' /* @YM06815 */ 02255000 OUTLAB DC C'RNIO ASCBCPU OUTR0' /* @Z40KI3O*/ 02256000 INLAB DC C'RNIO ASCBCPU INR0' /* @Z40KI3O*/ 02257000 SRMLAB DC C'SRMASCBCPUR15R0R1' 02258000 SDSPLAB DC C'SDSP' 02259000 LSRLAB DC C'LSR ' 02260000 DSPLAB DC C'DSP ' 02261000 DSPGNLAB DC C'ASCBCPUPSWTCBR15R0R1' 02262000 SRBSLAB DC C'SRBASCBCPUPSWR15SRBR1TYPE SUSPENDED' 02263000 GLOBLAB DC C'GLOBAL' 02264000 LOCLAB DC C'LOCAL ' 02265000 FRRLAB DC C'FRRASCBCPUPSWCCERRTFLGRCRETRY' 02266000 RETLAB DC C'RETRY' 02267000 STAELAB DC C'STAEASCBCPUPSWCCFLGRCRETRYRTCA' 02268000 STA2LAB DC C'RETRYRTCA' 02269000 SLASHA DC C'/A' 02270000 DTAE EQU 32 02271000 DTAC EQU 16 02272000 DTAP EQU 8 02273000 DTA EQU 4 02274000 LBLP EQU 2 02275000 LBL EQU 1 02276000 @DATD DSECT 02277000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 02278000 @ENDDATD EQU * 02279000 AMDSYS03 CSECT 02280000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 02281000 @01 EQU 01 02282000 @02 EQU 02 02283000 @03 EQU 03 02284000 @04 EQU 04 02285000 @05 EQU 05 02286000 @06 EQU 06 02287000 @07 EQU 07 02288000 @08 EQU 08 02289000 @09 EQU 09 02290000 @10 EQU 10 02291000 @11 EQU 11 02292000 @12 EQU 12 02293000 @13 EQU 13 02294000 @14 EQU 14 02295000 @15 EQU 15 02296000 AEDITCBR EQU @09 02297000 REG0 EQU @00 02298000 REG1 EQU @01 02299000 I EQU @05 02300000 REG3 EQU @03 02301000 WORKPTR EQU @10 02302000 PREG EQU @08 02303000 N EQU @04 02304000 REG15 EQU @15 02305000 ENTRY S03PTCH 02306000 AMDPRTAB EQU 0 02307000 DEBGFLGS EQU AMDPRTAB+8 02308000 PTHFLGS1 EQU DEBGFLGS 02309000 PTHFLGS2 EQU DEBGFLGS+1 02310000 INRFCFGS EQU DEBGFLGS+2 02311000 IOFLGS EQU DEBGFLGS+3 02312000 STARTIME EQU AMDPRTAB+40 02313000 STOPTIME EQU AMDPRTAB+52 02314000 NAMES EQU AMDPRTAB+64 02315000 ADS EQU AMDPRTAB+104 02316000 AADS EQU ADS 02317000 SIF EQU AMDPRTAB+124 02318000 SIOFLGS EQU SIF 02319000 DVADS1 EQU AMDPRTAB+128 02320000 IO EQU AMDPRTAB+228 02321000 IOFLGS2 EQU IO 02322000 DVADS2 EQU AMDPRTAB+232 02323000 VCF EQU AMDPRTAB+332 02324000 SVCFLGS EQU VCF 02325000 ALLV EQU SVCFLGS 02326000 SELV EQU SVCFLGS 02327000 SVCNUMS EQU AMDPRTAB+336 02328000 USR EQU AMDPRTAB+368 02329000 USRFLGS EQU USR 02330000 USRTAB EQU AMDPRTAB+372 02331000 PI EQU AMDPRTAB+452 02332000 PIFLGS EQU PI 02333000 ALLP EQU PIFLGS 02334000 SELP EQU PIFLGS 02335000 PGMNGEN EQU AMDPRTAB+456 02336000 PICODES EQU PGMNGEN 02337000 PICODEA EQU PGMNGEN+2 02338000 GENFLAGS EQU PGMNGEN+3 02339000 EXT EQU GENFLAGS 02340000 DSP EQU GENFLAGS 02341000 SYSM EQU GENFLAGS 02342000 RNIO EQU GENFLAGS 02343000 SRM EQU GENFLAGS 02344000 RR EQU GENFLAGS 02345000 GENFLGS1 EQU AMDPRTAB+460 02346000 ESTARTME EQU AMDPRTAB+500 02347000 ESTOPTME EQU AMDPRTAB+509 02348000 ABDPL EQU 0 02349000 ADPLFLAG EQU ABDPL+7 02350000 ADPLFRMT EQU ABDPL+24 02351000 ADPLFMT1 EQU ABDPL+44 02352000 ADPLFMT2 EQU ABDPL+48 02353000 IOSIOTAB EQU 0 02354000 @NM00003 EQU IOSIOTAB 02355000 ALL EQU @NM00003 02356000 SELECT EQU @NM00003 02357000 DEVTAB EQU IOSIOTAB+4 02358000 EID EQU 0 02359000 DATA EQU 0 02360000 AMDPRFMT EQU 0 02361000 PLIST EQU 0 02362000 EIDPTR EQU PLIST+12 02363000 DATAPTR EQU PLIST+16 02364000 WKAPTR EQU PLIST+24 02365000 SNAPARM EQU PLIST+28 02366000 DSPREC EQU 0 02367000 DSPTCB EQU DSPREC+14 02368000 DSPR15 EQU DSPREC+18 02369000 SRBREC EQU 0 02370000 SRBR15 EQU SRBREC+14 02371000 SRBSRB EQU SRBREC+18 02372000 SRBTYPE EQU SRBREC+26 02373000 PIREC EQU 0 02374000 PIOPSW EQU PIREC+6 02375000 PIINT EQU PIOPSW+2 02376000 PITCB EQU PIREC+14 02377000 EXTREC EQU 0 02378000 EXTPSW EQU EXTREC+6 02379000 EXTINT EQU EXTPSW+2 02380000 EXTTCB EQU EXTREC+14 02381000 EXTVAR EQU EXTREC+18 02382000 SVCREC EQU 0 02383000 SVCPSW EQU SVCREC+6 02384000 SVCINT EQU SVCPSW+2 02385000 IOREC EQU 0 02386000 IOASCB EQU IOREC 02387000 IOTCB EQU IOREC+14 02388000 IODEV EQU IOREC+26 02389000 IOSENSE EQU IODEV 02390000 IODEVA EQU IODEV+2 02391000 SIOREC EQU 0 02392000 SIOCPA EQU SIOREC+6 02393000 SIODEV EQU SIOREC+14 02394000 SIOCC EQU SIODEV 02395000 SIODEVA EQU SIODEV+2 02396000 UIOREC EQU 0 02397000 UIODEV EQU UIOREC+22 02398000 UIODEVA EQU UIODEV+2 02399000 RNIOREC EQU 0 02400000 RNIOASCB EQU RNIOREC 02401000 RNIOBTU EQU RNIOREC+6 02402000 RNIOR0 EQU RNIOREC+26 02403000 SRMREC EQU 0 02404000 SRMASCB EQU SRMREC 02405000 FRRREC EQU 0 02406000 FRRASCB EQU FRRREC 02407000 FRRPSW EQU FRRREC+6 02408000 FRRFLG2 EQU FRRREC+22 02409000 FRRETRY EQU FRRREC+25 02410000 STAEREC EQU 0 02411000 STAEPSW EQU STAEREC+6 02412000 STARF EQU STAEREC+18 02413000 STAFLGS EQU STARF 02414000 STARTYCA EQU STAEREC+22 02415000 STARTYA EQU STARTYCA 02416000 STARTCA EQU STARTYCA+4 02417000 PRECM EQU 0 02418000 ABDPLPTR EQU SNAPARM 02419000 SVCIND EQU TWOEXPN 02420000 SVCNUMBR EQU SVCNUMS 02421000 LABPT EQU ADPLFMT1 02422000 DATAPT EQU ADPLFMT2 02423000 SVCCODE EQU SVCINT 02424000 SIOCC1 EQU SIOCC 02425000 RTCAPTR EQU STARTCA 02426000 INTCODE EQU PIINT 02427000 * START UNREFERENCED COMPONENTS 02428000 PRECPUID EQU PRECM+4 02429000 PREASCB EQU PRECM 02430000 STARCDE EQU STARF+3 02431000 STAACF2 EQU STAFLGS+2 02432000 STAMCHD EQU STAFLGS+1 02433000 STAERRA EQU STAFLGS 02434000 STAECC EQU STAEREC+14 02435000 @NM00016 EQU STAEREC 02436000 FRRRC EQU FRRFLG2+2 02437000 FRRACF EQU FRRFLG2+1 02438000 FRRMCHD EQU FRRFLG2 02439000 FRRFLG1 EQU FRRREC+18 02440000 FRRCC EQU FRRREC+14 02441000 FRRCPU EQU FRRREC+4 02442000 SRMROR1 EQU SRMREC+10 02443000 SRMR15 EQU SRMREC+6 02444000 SRMCPUID EQU SRMREC+4 02445000 RNIOCPU EQU RNIOREC+4 02446000 @NM00015 EQU UIODEV 02447000 UIOCSW EQU UIOREC+14 02448000 UIOPSW EQU UIOREC+6 02449000 UIOCPUID EQU UIOREC+4 02450000 UIOASCB EQU UIOREC 02451000 SIOSTS EQU SIOREC+22 02452000 SIOCAW EQU SIOREC+18 02453000 SIOCPUID EQU SIOREC+4 02454000 SIOASCB EQU SIOREC 02455000 IOCSW EQU IOREC+18 02456000 IOPSW EQU IOREC+6 02457000 IOCPUID EQU IOREC+4 02458000 SVCROR1 EQU SVCREC+22 02459000 SVCR15 EQU SVCREC+18 02460000 SVCTCB EQU SVCREC+14 02461000 @NM00014 EQU SVCPSW+4 02462000 @NM00013 EQU SVCPSW 02463000 @NM00012 EQU SVCREC 02464000 @NM00011 EQU EXTPSW+4 02465000 @NM00010 EQU EXTPSW 02466000 @NM00009 EQU EXTREC 02467000 PIR1 EQU PIREC+26 02468000 PIR15 EQU PIREC+22 02469000 PIVPA EQU PIREC+18 02470000 @NM00008 EQU PIOPSW+4 02471000 @NM00007 EQU PIOPSW 02472000 PICPUID EQU PIREC+4 02473000 PIASCB EQU PIREC 02474000 SRBR1 EQU SRBREC+22 02475000 SRBPSW EQU SRBREC+6 02476000 @NM00006 EQU SRBREC 02477000 DSPROR1 EQU DSPREC+22 02478000 DSPPSW EQU DSPREC+6 02479000 @NM00005 EQU DSPREC 02480000 FMTPTR EQU PLIST+20 02481000 OPTS EQU PLIST+8 02482000 OUTBUF EQU PLIST+4 02483000 INREC EQU PLIST 02484000 RESBIT EQU @NM00003 02485000 ADPLEXT EQU ABDPL+52 02486000 ADPLCOM4 EQU ABDPL+40 02487000 ADPLCOM3 EQU ABDPL+36 02488000 ADPLCOM2 EQU ABDPL+32 02489000 ADPLCOM1 EQU ABDPL+28 02490000 ADPLMEMA EQU ABDPL+20 02491000 ADPLCVT EQU ABDPL+16 02492000 ADPLPRNT EQU ABDPL+12 02493000 ADPLBUF EQU ABDPL+8 02494000 @NM00002 EQU ADPLFLAG 02495000 ADPLSYTM EQU ADPLFLAG 02496000 ADPLSNPR EQU ADPLFLAG 02497000 ADPLSBPL EQU ABDPL+6 02498000 ADPLASID EQU ABDPL+4 02499000 ADPLTCB EQU ABDPL 02500000 RESERVED EQU AMDPRTAB+522 02501000 CVTTZONE EQU AMDPRTAB+518 02502000 ESPSEC EQU ESTOPTME+7 02503000 ESPMIN EQU ESTOPTME+5 02504000 ESPHR EQU ESTOPTME+3 02505000 ESPDAY EQU ESTOPTME 02506000 ESSEC EQU ESTARTME+7 02507000 ESMIN EQU ESTARTME+5 02508000 ESHR EQU ESTARTME+3 02509000 ESDAY EQU ESTARTME 02510000 ADTSBUF EQU AMDPRTAB+496 02511000 OFSTDATA EQU AMDPRTAB+494 02512000 OFSTEID EQU AMDPRTAB+492 02513000 AFRMAD EQU AMDPRTAB+488 02514000 REENTWKA EQU AMDPRTAB+484 02515000 PRFMTADD EQU AMDPRTAB+480 02516000 AEIOCT EQU AMDPRTAB+476 02517000 EXITADDR EQU AMDPRTAB+472 02518000 EXITNM EQU AMDPRTAB+464 02519000 RECDLL EQU AMDPRTAB+461 02520000 @NM00001 EQU GENFLGS1 02521000 FIRSTHSW EQU GENFLGS1 02522000 TSFOUND EQU GENFLGS1 02523000 EOFINPRO EQU GENFLGS1 02524000 TS EQU GENFLGS1 02525000 EOF EQU GENFLAGS 02526000 SYS EQU GENFLAGS 02527000 Q EQU PI+1 02528000 P01R EQU PIFLGS 02529000 USRNGTAB EQU USRTAB 02530000 O EQU USR+1 02531000 N01R EQU USRFLGS 02532000 SELU EQU USRFLGS 02533000 ALLU EQU USRFLGS 02534000 M EQU VCF+1 02535000 L EQU SVCFLGS 02536000 IODVADS EQU DVADS2 02537000 K01RES EQU IO+1 02538000 JJ EQU IOFLGS2 02539000 SELI EQU IOFLGS2 02540000 ALLI EQU IOFLGS2 02541000 SIODVADS EQU DVADS1 02542000 II EQU SIF+1 02543000 H EQU SIOFLGS 02544000 NOEQU EQU SIOFLGS 02545000 EQUIV EQU SIOFLGS 02546000 SELS EQU SIOFLGS 02547000 ALLS EQU SIOFLGS 02548000 ASCBADDR EQU AADS 02549000 JOBNAMES EQU NAMES 02550000 DAY2 EQU STOPTIME+10 02551000 F EQU STOPTIME+8 02552000 TIME2 EQU STOPTIME 02553000 DAY EQU STARTIME+10 02554000 D EQU STARTIME+8 02555000 TIME EQU STARTIME 02556000 DDNAME EQU AMDPRTAB+32 02557000 USEREXIT EQU AMDPRTAB+24 02558000 GTFWDPTR EQU AMDPRTAB+20 02559000 C EQU DEBGFLGS+4 02560000 B EQU IOFLGS 02561000 GETEOF EQU IOFLGS 02562000 DMDFMT EQU INRFCFGS 02563000 EDITSTOP EQU INRFCFGS 02564000 EXTTRC EQU INRFCFGS 02565000 RET EQU INRFCFGS 02566000 FMT EQU INRFCFGS 02567000 SPIE EQU INRFCFGS 02568000 TERM EQU INRFCFGS 02569000 FLMODE EQU INRFCFGS 02570000 REMAIN EQU PTHFLGS2 02571000 APP EQU PTHFLGS2 02572000 REXT EQU PTHFLGS1 02573000 FRM EQU PTHFLGS1 02574000 FLT EQU PTHFLGS1 02575000 HEX EQU PTHFLGS1 02576000 CON EQU PTHFLGS1 02577000 GET EQU PTHFLGS1 02578000 SCN EQU PTHFLGS1 02579000 ROOT EQU PTHFLGS1 02580000 CURREC EQU AMDPRTAB+4 02581000 AFMG EQU AMDPRTAB 02582000 * END UNREFERENCED COMPONENTS 02583000 @RF00132 EQU IOSPLIT 02584000 @RT00139 EQU SETRET8 02585000 @RT00141 EQU CALLHEX 02586000 @RT00144 EQU SETRET8 02587000 @RT00146 EQU EXIT 02588000 @RC00184 EQU FORMAT 02589000 @RT00216 EQU CALLHEX 02590000 @RF00216 EQU SIOFMT 02591000 @RT00220 EQU SETRET8 02592000 @RT00222 EQU CALLHEX 02593000 @RT00225 EQU SETRET8 02594000 @RT00227 EQU EXIT1 02595000 @RC00237 EQU FORMAT 02596000 @RT00252 EQU CALLHEX 02597000 @RF00252 EQU UIOFMT 02598000 @RT00256 EQU SETRET8 02599000 @RT00258 EQU CALLHEX 02600000 @RT00261 EQU SETRET8 02601000 @RT00263 EQU EXIT2 02602000 @RT00270 EQU SETRET8 02603000 @RT00272 EQU CALLHEX 02604000 @RC00279 EQU FORMAT 02605000 @RC00286 EQU FORMAT 02606000 @RT00291 EQU SETRET8 02607000 @RT00293 EQU CALLHEX 02608000 @RC00304 EQU FORMAT 02609000 @RT00310 EQU CALLHEX 02610000 @RF00310 EQU SVCSELPT 02611000 @RT00314 EQU SETRET8 02612000 @RT00316 EQU CALLHEX 02613000 @RT00333 EQU SVCSELPT 02614000 @RT00339 EQU SETRET8 02615000 @RT00341 EQU CALLHEX 02616000 @RC00361 EQU EXTEXIT 02617000 @RF00359 EQU EXITRTN 02618000 @RT00369 EQU CALLHEX 02619000 @RF00369 EQU SELPIPAT 02620000 @RT00373 EQU SETRET8 02621000 @RT00375 EQU CALLHEX 02622000 @RT00379 EQU SELPIPAT 02623000 @RF00379 EQU SETRET8 02624000 @RT00383 EQU SELPIPAT 02625000 @RF00383 EQU SETRET8 02626000 @RT00387 EQU SELPIPAT 02627000 @RF00387 EQU SETRET8 02628000 @RT00396 EQU SETRET8 02629000 @RC00398 EQU FORMAT 02630000 @RT00402 EQU SETRET8 02631000 @RT00404 EQU CALLHEX 02632000 @RC00408 EQU @RC00406 02633000 @RC00416 EQU @RC00413 02634000 @RC00414 EQU @RC00413 02635000 @RC00425 EQU FORMAT 02636000 @RT00429 EQU SETRET8 02637000 @RT00431 EQU CALLHEX 02638000 @RC00433 EQU FORMAT 02639000 @RT00437 EQU SETRET8 02640000 @RT00439 EQU CALLHEX 02641000 @RT00441 EQU STAERTN 02642000 @RC00454 EQU FORMAT 02643000 @RC00470 EQU FORMAT 02644000 @RC00281 EQU @RC00279 02645000 @ENDDATA EQU * 02646000 END AMDSYS03,(C'PLS0933',0701,77255) 02647000