X TITLE 'SLREASMC - MéHé-PEACCEMâìEP (éú ðAMñTé)' ASMC0001 * * * ðOCìEäHññ KOPPEKTéPOBKA: äATA 21.07.89 BPEMñ 02.28 * æOKõC ASMC0002 * ASMC0003 * BXOä: R15 - AäPEC TOþKé BXOäA ASMC0004 * R14 - AäPEC BOúBPATA ASMC0005 * R13 - AäPEC OâìACTé COXPAHEHéñ ASMC0006 * R1 - HAþAìøHùê AäPEC ASMC0007 * R0 - äìéHA ASMC0008 * ASMC0009 * BùXOä: R15 - KOä BOúBPATA: 0 - BCE HOPMAìøHO ASMC0010 * 4 - OûéâKA B/B ASMC0011 * ASMC0012 * ìEHéHçPAä éBã çõT OTä. 23 ìATùûKO T: 219-07-07 * ASMC0013 SPACE 2 ASMC0014 MACRO ASMC0015 &COMMAND ### &COD,&TYPE ASMC0016 ORG CMDTAB+X'&COD'*6 ASMC0017 DC CL5'&COMMAND',AL1(&TYPE) ASMC0018 MEND ASMC0019 SPACE 2 ASMC0020 REQU RI,2,RL,3,RT,4 ASMC0021 SPACE 2 ASMC0022 DSA PRINT=NOGEN ASMC0023 MSGBUF DS 18D ASMC0024 RC DS H ASMC0025 DIS1 DS H ASMC0026 DIS2 DS H ASMC0027 LL DS H ASMC0028 L1 DS X ASMC0029 L2 DS X ASMC0030 SPACE 2 ASMC0031 SLREASMC @START BASE=11,RPARM=2,R0=3,PRINT=,ID=* ASMC0032 @LOAD SLBLDMSG ASMC0033 XC RC,RC ASMC0034 SPACE 2 ASMC0035 *********************************************************************** ASMC0036 * * ASMC0037 *********************************************************************** ASMC0038 REASLOOP MVC DIS1,2(RI) ASMC0039 NI DIS1,X'0F' ASMC0040 MVC DIS2,4(RI) ASMC0041 NI DIS2,X'0F' ASMC0042 MVC L2,1(RI) ASMC0043 NI L2,X'0F' ASMC0044 ZIC 1,1(RI) ASMC0045 LA 1,1(1) ASMC0046 STH 1,LL ASMC0047 BCTR 1,0 ASMC0048 SRL 1,4 ASMC0049 STC 1,L1 ASMC0050 * ASMC0051 ZIC RT,0(RI) ASMC0052 MH RT,=H'6' ASMC0053 A RT,TABADR ASMC0054 ZIC 0,5(RT) ASMC0055 BUILDMSG NUM=(0),TAB=FMTTAB,BUF=MSGBUF ASMC0056 @PRINT MSGBUF+4 ASMC0057 IFREG 15,Z,*+12 ASMC0058 MVI RC+1,4 ASMC0059 B END ASMC0060 * ASMC0061 LA 1,2 ASMC0062 CLIB 5(RT),1,NH,NEXTINS ASMC0063 LA 1,4 ASMC0064 CLIB 5(RT),4,NH,NEXTINS ASMC0065 LA 1,6 ASMC0066 * ASMC0067 NEXTINS AR RI,1 ASMC0068 SR RL,1 ASMC0069 BP REASLOOP ASMC0070 SPACE 2 ASMC0071 *********************************************************************** ASMC0072 * úABEPûEHéE PAâOTù é BOúBPAT õðPABìEHéñ * ASMC0073 *********************************************************************** ASMC0074 END @DELETE SLBLDMSG ASMC0075 @RETURN RC= ASMC0076 SPACE 2 ASMC0077 *********************************************************************** ASMC0078 * KOHCTAHTù * ASMC0079 *********************************************************************** ASMC0080 TABADR DC A(CMDTAB) ASMC0081 * ASMC0082 FMTTAB MSGTAB (+S,(' ',14,*),'DC X''',-S,(0(RI),4,X),''''), DC 0 +ASMC0083 (+S,(' ',14,*),(0(RT),5), +ASMC0084 (1(RI),1,X0),-S,',',(1(RI),1,X1)), RR 1 +ASMC0085 (+S,(2(RI),1,X0),(2(RI),3,X1), +ASMC0086 (' ',08,*),(0(RT),5), +ASMC0087 (1(RI),1,X0),-S,',',(DIS1,4,D2),-S,'(',(1(RI),1,X1),',',+ASMC0088 (2(RI),1,X0),')'), RX 2 +ASMC0089 (+S,(2(RI),1,X0),(2(RI),3,X1), +ASMC0090 (' ',08,*),(0(RT),5), +ASMC0091 (1(RI),1,X0),-S,',',(1(RI),1,X1),',',(DIS1,4,D2), +ASMC0092 '(',(2(RI),1,X0),')'), RS 3 +ASMC0093 (+S,(2(RI),1,X0),(2(RI),3,X1), +ASMC0094 (' ',08,*),(0(RT),5), +ASMC0095 (DIS1,4,D2),-S,'(',(2(RI),1,X0),'),X''',(1(RI),2,X), +ASMC0096 ''''), SI 4 +ASMC0097 (+S,(2(RI),1,X0),(2(RI),3,X1),(4(RI),1,X0),(4(RI),3,X1),+ASMC0098 (' ',02,*),(0(RT),5), +ASMC0099 (DIS1,4,D2),-S,'(',(LL,3,D2),',',(2(RI),1,X0),'),', +ASMC0100 (DIS2,4,D2),'(',(4(RI),1,X0),')'), SS1 5 +ASMC0101 (+S,(2(RI),1,X0),(2(RI),3,X1),(4(RI),1,X0),(4(RI),3,X1),+ASMC0102 (' ',02,*),(0(RT),5), +ASMC0103 (DIS1,4,D2),-S,'(',(L1,2,D1),',',(2(RI),1,X0),'),', +ASMC0104 (DIS2,4,D2),'(',(L2,2,D1),',',(4(RI),1,X0),')'), SS2 6 +ASMC0105 PREFIX=(+S,(0(RI),,A),' ',(0(RI),2,X),(1(RI),2,X)) ASMC0106 EJECT ASMC0107 CMDTAB CSECT ASMC0108 DC 256X'404040404000' ASMC0109 * ASMC0110 * PRINT GEN ASMC0111 * TAâìéãA KOMAHä äìñ PEACCEMâìEPA ASMC0112 SPACE 2 ASMC0113 * ### 00 ASMC0114 * ### 01 ASMC0115 * ### 02 ASMC0116 * ### 03 ASMC0117 SPM ### 04,1 ASMC0118 BALR ### 05,1 ASMC0119 BCTR ### 06,1 ASMC0120 BCR ### 07,1 ASMC0121 SSK ### 08,1 ASMC0122 ISK ### 09,1 ASMC0123 SVC ### 0A,1 ASMC0124 * ### 0B ASMC0125 * ### 0C ASMC0126 * ### 0D ASMC0127 * ### 0E ASMC0128 * ### 0F ASMC0129 SPACE 2 ASMC0130 LPR ### 10,1 ASMC0131 LNR ### 11,1 ASMC0132 LTR ### 12,1 ASMC0133 LCR ### 13,1 ASMC0134 NR ### 14,1 ASMC0135 CLR ### 15,1 ASMC0136 OR ### 16,1 ASMC0137 XR ### 17,1 ASMC0138 LR ### 18,1 ASMC0139 CR ### 19,1 ASMC0140 AR ### 1A,1 ASMC0141 SR ### 1B,1 ASMC0142 MR ### 1C,1 ASMC0143 DR ### 1D,1 ASMC0144 ALR ### 1E,1 ASMC0145 SLR ### 1F,1 ASMC0146 SPACE 2 ASMC0147 LPDR ### 20,1 ASMC0148 LNDR ### 21,1 ASMC0149 LTDR ### 22,1 ASMC0150 LCDR ### 23,1 ASMC0151 HDR ### 24,1 ASMC0152 * ### 25 ASMC0153 * ### 26 ASMC0154 * ### 27 ASMC0155 LDR ### 28,1 ASMC0156 CDR ### 29,1 ASMC0157 * ### 2A ASMC0158 SDR ### 2B,1 ASMC0159 MDR ### 2C,1 ASMC0160 DDR ### 2D,1 ASMC0161 AWR ### 2E,1 ASMC0162 SWR ### 2F,1 ASMC0163 SPACE 2 ASMC0164 LPER ### 30,1 ASMC0165 LNER ### 31,1 ASMC0166 LTER ### 32,1 ASMC0167 LCER ### 33,1 ASMC0168 HER ### 34,1 ASMC0169 * ### 35 ASMC0170 * ### 36 ASMC0171 * ### 37 ASMC0172 LER ### 38,1 ASMC0173 CER ### 39,1 ASMC0174 AER ### 3A,1 ASMC0175 SER ### 3B,1 ASMC0176 MER ### 3C,1 ASMC0177 DER ### 3D,1 ASMC0178 AUR ### 3E,1 ASMC0179 SUR ### 3F,1 ASMC0180 SPACE 2 ASMC0181 STH ### 40,2 ASMC0182 LA ### 41,2 ASMC0183 STC ### 42,2 ASMC0184 IC ### 43,2 ASMC0185 EX ### 44,2 ASMC0186 BAL ### 45,2 ASMC0187 BCT ### 46,2 ASMC0188 BC ### 47,2 ASMC0189 LH ### 48,2 ASMC0190 CH ### 49,2 ASMC0191 AH ### 4A,2 ASMC0192 SH ### 4B,2 ASMC0193 MH ### 4C,2 ASMC0194 * ### 4D ASMC0195 CVD ### 4E,2 ASMC0196 CVB ### 4F,2 ASMC0197 SPACE 2 ASMC0198 ST ### 50,2 ASMC0199 * ### 51 ASMC0200 * ### 52 ASMC0201 * ### 53 ASMC0202 N ### 54,2 ASMC0203 CL ### 55,2 ASMC0204 O ### 56,2 ASMC0205 X ### 57,2 ASMC0206 L ### 58,2 ASMC0207 C ### 59,2 ASMC0208 A ### 5A,2 ASMC0209 S ### 5B,2 ASMC0210 M ### 5C,2 ASMC0211 D ### 5D,2 ASMC0212 AL ### 5E,2 ASMC0213 SL ### 5F,2 ASMC0214 SPACE 2 ASMC0215 STD ### 60,2 ASMC0216 * ### 61 ASMC0217 * ### 62 ASMC0218 * ### 63 ASMC0219 * ### 64 ASMC0220 * ### 65 ASMC0221 * ### 66 ASMC0222 * ### 67 ASMC0223 LD ### 68,2 ASMC0224 CD ### 69,2 ASMC0225 AD ### 6A,2 ASMC0226 SD ### 6B,2 ASMC0227 MD ### 6C,2 ASMC0228 DD ### 6D,2 ASMC0229 AW ### 6E,2 ASMC0230 SW ### 6F,2 ASMC0231 SPACE 2 ASMC0232 STE ### 70,2 ASMC0233 * ### 71 ASMC0234 * ### 72 ASMC0235 * ### 73 ASMC0236 * ### 74 ASMC0237 * ### 75 ASMC0238 * ### 76 ASMC0239 * ### 77 ASMC0240 LE ### 78,2 ASMC0241 CE ### 79,2 ASMC0242 AE ### 7A,2 ASMC0243 SE ### 7B,2 ASMC0244 ME ### 7C,2 ASMC0245 DE ### 7D,2 ASMC0246 AU ### 7E,2 ASMC0247 SU ### 7F,2 ASMC0248 SPACE 2 ASMC0249 SSM ### 80,4 ? ? ASMC0250 LPSW ### 82,4 ? ASMC0251 DIAGN ### 83,4 ? äéAçHOCTéKA ASMC0252 WRD ### 84,4 ASMC0253 RDD ### 85,4 ASMC0254 BXH ### 86,3 ASMC0255 BXLE ### 87,3 ASMC0256 SRL ### 88,3 ASMC0257 SLL ### 89,3 ASMC0258 SRA ### 8A,3 ASMC0259 SLA ### 8B,3 ASMC0260 SRDL ### 8C,3 ASMC0261 SLDL ### 8D,3 ASMC0262 SRDA ### 8E,3 ASMC0263 SLDA ### 8F,3 ASMC0264 SPACE 2 ASMC0265 STM ### 90,3 ASMC0266 TM ### 91,4 ASMC0267 MVI ### 92,4 ASMC0268 TS ### 93,4 ? ASMC0269 NI ### 94,4 ASMC0270 CLI ### 95,4 ASMC0271 OI ### 96,4 ASMC0272 XI ### 97,4 ASMC0273 LM ### 98,3 ASMC0274 * ### 99 ASMC0275 * ### 9A ASMC0276 * ### 9B ASMC0277 SIO ### 9C,4 ? ASMC0278 TIO ### 9D,4 ? ASMC0279 HIO ### 9E,4 ? ASMC0280 TCH ### 9F,4 ? ASMC0281 SPACE 2 ASMC0282 * ### D0 ASMC0283 MVN ### D1,5 ASMC0284 MVC ### D2,5 ASMC0285 MVZ ### D3,5 ASMC0286 NC ### D4,5 ASMC0287 CLC ### D5,5 ASMC0288 OC ### D6,5 ASMC0289 XC ### D7,5 ASMC0290 * ### D8 ASMC0291 * ### D9 ASMC0292 * ### DA ASMC0293 * ### DB ASMC0294 TR ### DC,5 ASMC0295 TRT ### DD,5 ASMC0296 ED ### DE,5 ASMC0297 EDMK ### DF,5 ASMC0298 SPACE 2 ASMC0299 * ### F0 ASMC0300 MVO ### F1,6 ASMC0301 PACK ### F2,6 ASMC0302 UNPK ### F3,6 ASMC0303 * ### F4 ASMC0304 * ### F5 ASMC0305 * ### F6 ASMC0306 * ### F7 ASMC0307 ZAP ### F8,6 ASMC0308 CP ### F9,6 ASMC0309 AP ### FA,6 ASMC0310 SP ### FB,6 ASMC0311 MP ### FC,6 ASMC0312 DP ### FD,6 ASMC0313 * ### FE ASMC0314 * ### FF ASMC0315 SPACE 2 ASMC0316 * ASMC0317 * PRINT NOGEN ASMC0318 * ASMC0319 SLREASMC CSECT ASMC0320 @END ASMC0321 * ASMC0322