X TITLE 'SLBLDMSG - ðPOçPAMMA ðOCTPOEHéñ COOâýEHéê' DMSG0001 * * * ðOCìEäHññ KOPPEKTéPOBKA: äATA 01.04.88 BPEMñ 23.24 * æOKõC DMSG0002 * DMSG0003 * XAPAKTEPéCTéKé: RENT,REFR DMSG0004 * DMSG0005 * TOþKA BXOäA: SLBLDMSG - 0 DMSG0006 * ðPé úAäAHéé COOâýEHéñ ðO HOMEPõ HE MOöET BùúùBATøCñ ðO LINK ! DMSG0007 * DMSG0008 * MAKPOKOMAHäù: HET DMSG0009 * DMSG0010 * BXOä: R0 - HOMEP COOâýEHéñ éìé AäPEC COOâýEHéñ B äOðOìH. æOPME DMSG0011 * R1 - AäPEC âõæEPA äìñ COOâýEHéñ, BùPOBHEHHOçO HA D (L=MAX+8) DMSG0012 * R15 - AäPEC TAâìéãù COOâýEHéê (MK MSGTAB) ( ECìé ðO HOMEPõ ) DMSG0013 * R14 - AäPEC BOúBPATA DMSG0014 * R13 - AäPEC OâìACTé COXPAHEHéñ DMSG0015 * DMSG0016 * BùXOä: R15 - KOä BOúBPATA : 0 - COOâýEHéE ðOCTPOEHO DMSG0017 * 4 - ðPEBùûEHéE äìéHù (OâPEúAHO) DMSG0018 * 8 - COOâýEHéñ HET B TAâìéãE DMSG0019 * R0 - äìéHA COOâýEHéñ (âEú äECKPéðTOPA) DMSG0020 * R1 - COäEPöéMOE HE éúMEHñETCñ (AäPEC âõæEPA) DMSG0021 * A TAKöE COOâýEHéE B âõæEPE DMSG0022 * DMSG0023 * ìEHéHçPAä éBã çõT OTä. 07 ìATùûKO T: 310-98-12 DMSG0024 SPACE 2 DMSG0025 RNUM EQU 0 HOMEP COOâýEHéñ DMSG0026 RBUF EQU 1 AäPEC âõæEPA DMSG0027 RLEN EQU 2 äìéHA ðOäCTPOKé DMSG0028 RIN EQU 3 AäPEC BXOäHOçO ðOìñ DMSG0029 RCT EQU 4 DMSG0030 W1 EQU 4 DMSG0031 ROUT EQU 5 AäPEC B âõæEPE DMSG0032 RBAL EQU 6 äìñ BAL DMSG0033 RDISP EQU 7 CMEýEHéE OðéCAHéñ COOâýEHéñ DMSG0034 RDESC EQU 7 AäPEC K. O. ðOäCTPOKé DMSG0035 RLB EQU 8 OCTATOK âAêT DMSG0036 RRET EQU 9 AäPEC BOúBPATA éú BCTABKé DMSG0037 BASE EQU 10 âAúOBùê PEçéCTP DMSG0038 * EQU 11 DMSG0039 RTAB EQU 12 AäPEC TAâìéãù COOâýEHéê DMSG0040 RSAVE EQU 13 DMSG0041 W2 EQU 14 DMSG0042 RC EQU 15 DMSG0043 W3 EQU 15 DMSG0044 EJECT DMSG0045 USING MSGTAB,RTAB DMSG0046 USING BUFDSECT,RBUF DMSG0047 USING DESCDC,RDESC DMSG0048 USING INDSECT,RIN DMSG0049 USING OUTDSECT,ROUT DMSG0050 SPACE 2 DMSG0051 MSGTAB DSECT * TAâìéãA COOâýEHéê * DMSG0052 MSGMIN DS H 0 HOMEP ðEPBOçO COOâýEHéñ DMSG0053 MSGMAX DS H 2 HOMEP ðOCìEäHEçO COOâýEHéñ DMSG0054 MSGBUFL DS H 4 äìéHA âõæEPA COOâýEHééñ DMSG0055 DS H ?? 8 PEúEPB DMSG0056 MSGDPREF DS H 12 CMEýEHéE OðéCAHéñ ðPEæéKCA DMSG0057 MSGDTAIL DS H 16 CMEýEHéE OðéCAHéñ XBOCTA DMSG0058 MSGDFST EQU * CMEýEHéE OðéCAHéñ ðEPBOçO COOâýEHééñ DMSG0059 SPACE 2 DMSG0060 BUFDSECT DSECT * BùXOäHOê âõæEP * DMSG0061 WORK DS 0D - ðOìE éCðOìøúõETCñ KOMAHäOê CVD DMSG0062 BUF DS 0C DMSG0063 BLKDESCR DS F äECKPéðTOP âìOKA DMSG0064 RECDESCR DS F äECKPéðTOP úAðéCé DMSG0065 TEXT DS C TEKCT ðEPEMEHHOê äìéHù DMSG0066 SPACE 2 DMSG0067 DESCDC DSECT * OðéCAHéE ðOäCTPOKé * DMSG0068 LENBYTE DS X ðOCìEäHéE 7 âéT - äìéHA BùXOäHOçO ðOìñ DMSG0069 ENDBIT EQU X'80' - ðPéúHAK ðOCìEäHEê ðOäCTPOKé DMSG0070 DESCBYTE DS X âAêT æìAöKOB DMSG0071 BITLEFT EQU X'80' - ðPéöATø BìEBO DMSG0072 BITSPACE EQU X'40' - BCTABéTø 1 ðPOâEì DMSG0073 BITVARL EQU X'20' - ðEPEMEHHAñ äìéHA DMSG0074 BITEDIT EQU X'10' - PEäAKTéPOBAHéE DMSG0075 SCONSTA DS SL2 S - AäPEC BXOäHOçO ðOìñ DMSG0076 SPACE 2 DMSG0077 INDSECT DSECT DMSG0078 INBYTE DS C DMSG0079 SPACE DMSG0080 OUTDSECT DSECT DMSG0081 OUTBYTE DS C DMSG0082 EJECT DMSG0083 SLBLDMSG CSECT DMSG0084 STM 1,15,12(13) DMSG0085 BALR BASE,0 úAçPõúKA âAúù DMSG0086 USING *,BASE DMSG0087 * DMSG0088 LR RTAB,15 R12 - AäPEC TAâìéãù COOâýEHéê DMSG0089 LA ROUT,8(RBUF) AäPEC HAþAìA COOâýEHéñ B âõæEPE DMSG0090 * DMSG0091 LTR RNUM,RNUM äAH HOMEP COOâýEHéñ ? DMSG0092 BNM ENTRYT äA -> DMSG0093 SPACE 2 DMSG0094 *********************************************************************** DMSG0095 * B R0 - AäPEC COOâýEHéñ * DMSG0096 *********************************************************************** DMSG0097 ENTRY1 LCR RTAB,RNUM ðEPEçPõúéTø AäPEC B R12 DMSG0098 LR RDISP,RTAB é B R7 DMSG0099 LA RLB,4095 äìéHõ HE ðPOBEPñEM DMSG0100 XR RNUM,RNUM ?? DMSG0101 BCTR RNUM,0 CäEìATø 'HOMEP' MAKCéMAìøHùM OTPéã. DMSG0102 BAL RBAL,BLDLINE$ ðOûìé CTPOéTø DMSG0103 B ZERORC HA HOPMAìøHùê BOúBPAT DMSG0104 SPACE 2 DMSG0105 *********************************************************************** DMSG0106 * B R0 - HOMEP COOâýEHéñ * DMSG0107 *********************************************************************** DMSG0108 ENTRYT LH RLB,MSGBUFL äìéHA âõæEPA DMSG0109 * DMSG0110 LH RDISP,MSGDPREF CMEý. OðéCAHéñ ðPEæéKCA DMSG0111 BAL RBAL,BLDLINE OâPAâOTKA ðPEæéKCA DMSG0112 * DMSG0113 CH RNUM,MSGMAX HOMEP HE âOìøûE MAX ? DMSG0114 BH ERR1 DMSG0115 * DMSG0116 LR RDISP,RNUM DMSG0117 SH RDISP,MSGMIN BùþECTø HOMEP ðEPBOçO DMSG0118 BM ERR1 MEHøûE ðEPBOçO -> DMSG0119 AR RDISP,RDISP *2 DMSG0120 LH RDISP,MSGDFST(RDISP) CMEýEHéE OðéCAHéñ OCH. þACTé DMSG0121 LTR RDISP,RDISP 0 ? DMSG0122 BZ ERR1 COOâýEHéE ðPOðõýEHO -> DMSG0123 BAL RBAL,BLDLINE OâPAâOTKA OCH. þACTé DMSG0124 * DMSG0125 LH RDISP,MSGDTAIL CMEý. OðéCAHéñ XBOCTA DMSG0126 BAL RBAL,BLDLINE OâPAâOTKA æéKC. þ. B KOHãE DMSG0127 ZERORC XR RC,RC DMSG0128 ** DMSG0129 BLDDESCR XC BUF(8),BUF ðOCTPOEHéE äECKPéðTOPA âìOKA é úAðéCé DMSG0130 SR ROUT,RBUF äìéHA COOâýEHéñ +8 DMSG0131 STH ROUT,BUF äECKPéðTOP âìOKA DMSG0132 SH ROUT,=H'4' DMSG0133 STH ROUT,BUF+4 äECKPéðTOP úAðéCé DMSG0134 SH ROUT,=H'4' DMSG0135 LR 0,ROUT A äìéHõ úAðéCé BEPHEM B R0 DMSG0136 LM 2,14,16(13) BOCCTAHOBìEHéE PEçéCTPOB ++ DMSG0137 BR 14 BOúBPAT DMSG0138 EJECT DMSG0139 *********************************************************************** DMSG0140 * BùðOìHEHéE OâýéX äEêCTBéê äìñ ðOäCTPOKé * DMSG0141 *********************************************************************** DMSG0142 * R7-CMEýEHéE A.K.,R6-BOúBPAT,R5-AäPEC B âõæEPE DMSG0143 BLDLINE LTR RDISP,RDISP DMSG0144 BZR RBAL DMSG0145 AR RDISP,RTAB AäPEC 1 KOHCTAHTù; TEðEPø RDISP=RDESC DMSG0146 BLDLINE$ XR RRET,RRET DMSG0147 * DMSG0148 BLDLINE1 TM DESCBYTE,BITLEFT HAäO ìé BùâPATø ðPOâEìù CìEBA ? DMSG0149 BZ BLDLINE2 DMSG0150 BCTR ROUT,0 DMSG0151 CLI OUTBYTE,C' ' <-! DMSG0152 BNE *+12 >-! ! DMSG0153 LA RLB,1(RLB) ! ! DMSG0154 BCT ROUT,*-12 ! >-! DMSG0155 LA ROUT,1(ROUT) <-! DMSG0156 * DMSG0157 BLDLINE2 LTR RLB,RLB ??? DMSG0158 BNP BLDLINE3 ??? DMSG0159 TM DESCBYTE,BITSPACE BCTABéTø 1 ðPOâEì ? DMSG0160 BZ BLDLINE3 DMSG0161 MVI OUTBYTE,C' ' DMSG0162 LA ROUT,1(ROUT) DMSG0163 SPACE 2 DMSG0164 *********************************************************************** DMSG0165 * úAçPõúKA B PEçéCTPù AäPECA é äìéHù * DMSG0166 *********************************************************************** DMSG0167 BLDLINE3 L RLEN,0(RDESC) KOHCTAHTA OðéCAHéñ üìEMEHTA DMSG0168 LR RIN,RLEN DMSG0169 LR RCT,RLEN DMSG0170 * DMSG0171 SLL RLEN,1 DMSG0172 SRL RLEN,25 RLEN - äìéHA ðOìñ DMSG0173 N RIN,=X'00000FFF' RIN - CMEýEHéE DMSG0174 * DMSG0175 SRL RCT,10 DMSG0176 N RCT,=X'0000003C' RCT - HOMEP â. PEç. *4 DMSG0177 LTR RCT,RCT 0 ? DMSG0178 BZ *+8 DMSG0179 L RCT,8(RSAVE,RCT) úAçP. úHAþEHéE â. PEç. ++ DMSG0180 LA RCT,0(RCT) DMSG0181 AR RIN,RCT RIN - AäPEC éCX. ðOìñ DMSG0182 * DMSG0183 IC RCT,DESCBYTE DMSG0184 SLL RCT,28 DMSG0185 SRL RCT,27 RCT - KOä TéðA ðOäCTPOKé DMSG0186 EJECT DMSG0187 *********************************************************************** DMSG0188 * KOHTPOìø ðEPEðOìHEHéñ âõæEPA * DMSG0189 *********************************************************************** DMSG0190 CH RCT,=H'12' DMSG0191 BNL TESTLEN 12-... - ðPOCTAñ ðPOBEPKA äìéHù DMSG0192 * DMSG0193 CH RCT,=H'2' DMSG0194 BH SELECTF 4-10 - âEú ðPOBEPKé äìéHù DMSG0195 * 0,2: DMSG0196 TM DESCBYTE,BITVARL ðEPEMEHHAñ äìéHA ? DMSG0197 BZ TESTLEN DMSG0198 IC RLEN,INBYTE äOCTATø äìéHõ DMSG0199 LA RIN,1(RIN) ðPOäBéHõTø BX. AäPEC DMSG0200 LTR RCT,RCT CHAR ? DMSG0201 BZ TESTLEN DMSG0202 AR RLEN,RLEN äìéHA * 2 DMSG0203 * DMSG0204 TESTLEN LTR RLEN,RLEN ??? DMSG0205 BZ NEXTSUBS ??? DMSG0206 SR RLB,RLEN RLB <- OCTATOK âAêT DMSG0207 BNM SELECTF > 0 - ðOPñäOK DMSG0208 AR RLB,RLEN BOCCTAHOBéTø RLB DMSG0209 LTR RLEN,RLB äìéHA - BCE, þTO OCTAìOCø DMSG0210 BNP NEXTSUBS - < 0 - õXOäéM DMSG0211 XR RLB,RLB OCTATOK = 0 DMSG0212 SPACE 2 DMSG0213 *********************************************************************** DMSG0214 * BùâOP ðð OâPAâOTKé ðOäCTPOKé * DMSG0215 *********************************************************************** DMSG0216 SELECTF XR W3,W3 DMSG0217 LH RCT,SELTAB(RCT) DMSG0218 B SELTAB(RCT) DMSG0219 SELTAB DC AL2(CHAR-SELTAB) 0 C DMSG0220 DC AL2(HEX-SELTAB) 1 H DMSG0221 DC AL2(PACKED-SELTAB) 2 P DMSG0222 DC AL2(JUMP-SELTAB) 3 ðEPEXOä DMSG0223 DC AL2(TAB-SELTAB) 4 = (TAâõìñãéñ) DMSG0224 DC AL2(1) 5 PEúEPB DMSG0225 DC AL2(OWNNUMB-SELTAB) 6 * DMSG0226 DC AL2(BIT-SELTAB) 7 B DMSG0227 * DMSG0228 DC AL2(DECIMAL1-SELTAB) 8 D1 DMSG0229 DC AL2(DECIMAL2-SELTAB) 9 D2 DMSG0230 DC AL2(DECIMAL4-SELTAB) 10 D4 DMSG0231 DC AL2(DISPDEC-SELTAB) 11 DD DMSG0232 DC AL2(DISPHEX-SELTAB) 12 DX DMSG0233 DC AL2(ADRESS-SELTAB) 13 A DMSG0234 DC AL2(FILL-SELTAB) 14 FILL DMSG0235 DC AL2(BIT-SELTAB) 15 B DMSG0236 SPACE 2 DMSG0237 *********************************************************************** DMSG0238 * ðEPEXOä , ðEPEXOä C BOúBPATOM * DMSG0239 *********************************************************************** DMSG0240 JUMP TM LENBYTE,ENDBIT ðOCìEäHéê ü-T ? DMSG0241 BO JUMP1 äA - âEú BOúBPATA DMSG0242 LA RRET,4(RDESC) DMSG0243 JUMP1 LR RDESC,RIN DMSG0244 B BLDLINE1 DMSG0245 SPACE 2 DMSG0246 *********************************************************************** DMSG0247 * úAðOìHEHéE ðOìñ CéMBOìOM * DMSG0248 *********************************************************************** DMSG0249 FILL MVC OUTBYTE,INBYTE ðEPEHOC 1 CéMBOìA DMSG0250 LA ROUT,OUTBYTE+1 CìEä. BùX. âAêT DMSG0251 BCT RLEN,FILL ðOKA HE KOHþéTCñ RLEN DMSG0252 B NEXTSUBS DMSG0253 SPACE 2 DMSG0254 *********************************************************************** DMSG0255 * õCTAHOBKA ðOúéãéé B âõæEPE * DMSG0256 *********************************************************************** DMSG0257 TAB AR RLB,ROUT RLB - ðOCìEäHéê â. âõæEPA + 1 DMSG0258 LA ROUT,TEXT(RIN) HOBùê AäPEC B âõæEPE DMSG0259 SR RLB,ROUT HOBOE úHAþEHéE OCT. âAêT DMSG0260 B NEXTSUBS DMSG0261 SPACE 2 DMSG0262 *********************************************************************** DMSG0263 * CMEýEHéE ûECTHAäãATEPéþHOE * DMSG0264 *********************************************************************** DMSG0265 DISPHEX LH RIN,SCONSTA DMSG0266 N RIN,=X'00000FFF' BùäEìéTø CMEýEHéE DMSG0267 SPACE 2 DMSG0268 *********************************************************************** DMSG0269 * AäPEC * DMSG0270 *********************************************************************** DMSG0271 ADRESS ST RIN,WORK DMSG0272 LA RIN,WORK+4 RIN - CìEä. úA ðOìEM âAêT DMSG0273 ADRESS1 LA W1,1(RLEN) W1:=L+1 DMSG0274 SRL W1,1 L+1/2 HAãEìO DMSG0275 SR RIN,W1 RIN - âAêT, C KOTOPOçO HAþHEM DMSG0276 LA W1,1 DMSG0277 NR W1,RLEN DMSG0278 BNZ HEX1 - äìéHA HEþETHAñ DMSG0279 B HEX0 þETHAñ DMSG0280 SPACE 2 DMSG0281 *********************************************************************** DMSG0282 * ûECTHAäãATEPéþHOE ðOìE * DMSG0283 *********************************************************************** DMSG0284 HEX DS 0H DMSG0285 HEXA TM DESCBYTE,BITEDIT HAþATø C 1 ðOìõâAêTA ? DMSG0286 BO HEX1 DMSG0287 HEX0 IC W3,INBYTE DMSG0288 SRL W3,4 DMSG0289 IC W3,HEXTAB(W3) DMSG0290 STC W3,OUTBYTE DMSG0291 LA ROUT,OUTBYTE+1 DMSG0292 BCT RLEN,HEX1 DMSG0293 B NEXTSUBS DMSG0294 HEX1 IC W3,INBYTE DMSG0295 N W3,=F'15' DMSG0296 IC W3,HEXTAB(W3) DMSG0297 STC W3,OUTBYTE DMSG0298 LA ROUT,OUTBYTE+1 DMSG0299 LA RIN,INBYTE+1 DMSG0300 BCT RLEN,HEX0 DMSG0301 B NEXTSUBS DMSG0302 SPACE 2 DMSG0303 *********************************************************************** DMSG0304 * CMEýEHéE äECñTéþHOE * DMSG0305 *********************************************************************** DMSG0306 DISPDEC LH W3,SCONSTA úAçPõúéTø S-KOHCTAHTõ DMSG0307 N W3,=X'00000FFF' BùäEìéTø CMEýEHéE DMSG0308 B DECIMALA DMSG0309 SPACE 2 DMSG0310 *********************************************************************** DMSG0311 * äECñTéþHOE ðOìE * DMSG0312 *********************************************************************** DMSG0313 DECIMAL1 IC W3,INBYTE *** äECñT. - 1 âAêT *** DMSG0314 B DECIMALA DMSG0315 DECIMAL2 LH W3,INBYTE *** äECñT. - H *** DMSG0316 B DECIMALA DMSG0317 DECIMAL4 L W3,INBYTE *** äECñT. - F *** DMSG0318 B DECIMALA DMSG0319 * DMSG0320 OWNNUMB LR W3,RNUM *** HOMEP COOâýEHéñ *** DMSG0321 * DMSG0322 DECIMALA CVD W3,WORK DMSG0323 LA RIN,WORK RIN - AäPEC BX. õðAK. ðOìñ DMSG0324 LA W2,7 W2 = LI-1 DMSG0325 LR W1,RLEN DMSG0326 BCTR W1,0 DMSG0327 SLL W1,4 DMSG0328 OR W1,W2 W1 - MACKA äìñ UNPK DMSG0329 B EXUNPK DMSG0330 * DMSG0331 PACKED LA W2,7 *** õðAKOBAHHOE ðOìE *** DMSG0332 NR W2,RLEN W2 = LI-1 DMSG0333 PACKED2 LA W1,X'78' DMSG0334 NR RLEN,W1 RLEN, DMSG0335 LR W1,RLEN W1 = DMSG0336 SLL W1,1 DMSG0337 OR W1,W2 W1 - MACKA äìñ UNPK DMSG0338 SRL RLEN,3 DMSG0339 LA RLEN,1(RLEN) RLEN = LO DMSG0340 * DMSG0341 SR RLB,RLEN KOHTPOìø äìéHù õðAK. DMSG0342 BNM EXUNPK DMSG0343 AR RLEN,RLB DMSG0344 XR RLB,RLB DMSG0345 LTR RLEN,RLEN DMSG0346 BNP NEXTSUBS DMSG0347 SLL RLEN,3 DMSG0348 B PACKED2 DMSG0349 * DMSG0350 EXUNPK EX W1,UNPK PACðAKOBAìé DMSG0351 LA W3,OUTBYTE(RLEN) DMSG0352 BCTR W3,0 W3 <- AäPEC ðOCìEä. CéMBOìA DMSG0353 TM 0(W3),X'30' úHAK '-' ? DMSG0354 BNM OINUM DMSG0355 * DMSG0356 MVI OUTBYTE,C'-' DMSG0357 LA ROUT,1(ROUT) DMSG0358 BCT RLEN,OINUM DMSG0359 B NEXTSUBS - BCEçO 1 âAêT, ðOûEì HA '-' DMSG0360 OINUM OI 0(W3),X'F0' éCðP. ðOCìEäHéê âAêT HA ãéæPõ DMSG0361 * DMSG0362 LTR W2,W2 HA BXOäE BCEçO 1 âAêT ? DMSG0363 BZ CNTNN2 DMSG0364 CLIZERO CLI INBYTE,0 BX. âAêT HõìEBOê ? DMSG0365 BNE CNTNN1 DMSG0366 LA RIN,INBYTE+1 DMSG0367 BCT W2,CLIZERO õMEHøû. Cþ. HEHõìEBùX BX. âAêT DMSG0368 B CNTNN2 - OCTAìCñ 1 DMSG0369 * DMSG0370 CNTNN1 AR W2,W2 W2 - K-BO HEHõìEBùX BùX. âAêT DMSG0371 TM INBYTE,X'F0' 1 ðOìõâAêT BX. âAêTA =0 ? DMSG0372 BNZ *+6 DMSG0373 BCTR W2,0 BùX. âAêT EýE HA 1 MEHøûE DMSG0374 * DMSG0375 CNTNN2 LA W2,1(W2) W2 - KOì-BO úHAþAýéX ãéæP DMSG0376 SR W2,RLEN W2 - (-KOì-BO HEúHAþ. HõìEê) DMSG0377 BZ NEXTSUBA - BìEúìO 1:1 DMSG0378 BP STARS - þéCìO HE BìEúAET DMSG0379 * DMSG0380 TM DESCBYTE,BITEDIT TPEâõETCñ ðOäABìEHéE 0 ? DMSG0381 BZ NEXTSUBA DMSG0382 LCR W2,W2 W2 - CO úH. + DMSG0383 LR W1,ROUT DMSG0384 EDITDEC MVI 0(W1),C' ' DMSG0385 LA W1,1(W1) DMSG0386 BCT W2,EDITDEC DMSG0387 B NEXTSUBA DMSG0388 * DMSG0389 UNPK UNPK OUTBYTE,INBYTE DMSG0390 SPACE 2 DMSG0391 *********************************************************************** DMSG0392 * úAðOìHEHéE ðOìñ '*' * DMSG0393 *********************************************************************** DMSG0394 STARS MVI OUTBYTE,C'*' DMSG0395 LA ROUT,OUTBYTE+1 DMSG0396 BCT RLEN,STARS DMSG0397 B NEXTSUBS DMSG0398 SPACE 2 DMSG0399 *********************************************************************** DMSG0400 * CéMBOìøHOE ðOìE * DMSG0401 *********************************************************************** DMSG0402 CHAR DS 0H DMSG0403 CHARF BCTR RLEN,0 KOä äìéHù DMSG0404 EX RLEN,MVCSUBST ðEPEHOC ðOäCTPOKé DMSG0405 TM DESCBYTE,BITEDIT ðEPEKOäéPOBATø ? DMSG0406 BZ *+8 DMSG0407 EX RLEN,TRCHAR DMSG0408 LA ROUT,OUTBYTE+1(RLEN) õBEìéþéTø AäPEC B BùX âõæEPE DMSG0409 B NEXTSUBS DMSG0410 * DMSG0411 MVCSUBST MVC OUTBYTE,INBYTE DMSG0412 TRCHAR TR OUTBYTE,TRTAB DMSG0413 SPACE 2 DMSG0414 *********************************************************************** DMSG0415 * âéTOBOE ðOìE * DMSG0416 *********************************************************************** DMSG0417 BIT LA W3,128 HAþAìøHAñ úAçPõúKA MACKé DMSG0418 IC W1,DESCBYTE DMSG0419 SLL W1,26 DMSG0420 SRL W1,29 R15 <- HOMEP HAþAìøHOçO âéTA DMSG0421 LTR W1,W1 DMSG0422 BZ BITTM DMSG0423 SRL W3,1 B ãéKìE äBéçAEM MACKõ DMSG0424 BCT W1,*-4 DMSG0425 BITTM EX W3,TESTBIT ðPOBEPéTø âéT DMSG0426 BO BITMVI1 DMSG0427 MVI OUTBYTE,C'0' DMSG0428 B *+8 DMSG0429 BITMVI1 MVI OUTBYTE,C'1' DMSG0430 LA ROUT,OUTBYTE+1 ðPOäBéHõTø BùX. AäPEC DMSG0431 SRA W3,1 CäBéHõTø âéT MACKé DMSG0432 BNZ *+12 OH HE ðPOðAì ? DMSG0433 LA W3,128 úAçPõúéM HOBùê âéT DMSG0434 LA RIN,INBYTE+1 é ðPOäBéHEM BX. AäPEC DMSG0435 BCT RLEN,BITTM DMSG0436 B NEXTSUBS DMSG0437 * DMSG0438 TESTBIT TM INBYTE,0 DMSG0439 SPACE 2 DMSG0440 *********************************************************************** DMSG0441 * BùâOP CìEäõàýEê ðOäCTPOKé * DMSG0442 *********************************************************************** DMSG0443 NEXTSUBA AR ROUT,RLEN DMSG0444 NEXTSUBS TM LENBYTE,ENDBIT ðOäCTPOKA ðOCìEäHññ ? DMSG0445 BO *+12 DMSG0446 LA RDESC,4(RDESC) DMSG0447 B BLDLINE1 DMSG0448 * DMSG0449 LTR RDESC,RRET AäPEC BOúBPATA éú BCTABKé DMSG0450 BZR RBAL 0 - KOHEã DMSG0451 B BLDLINE$ DMSG0452 SPACE 2 DMSG0453 *********************************************************************** DMSG0454 * COOâýEHéñ Oâ OûéâKE * DMSG0455 *********************************************************************** DMSG0456 ERR1 MVC TEXT(13),=C' BLDMSG:ER.#:' DMSG0457 CVD 0,WORK DMSG0458 OI WORK+7,X'0F' DMSG0459 UNPK WORK+21(7),WORK(8) HOMEP B 0 PEçéCTPE DMSG0460 LA RC,4 RC:=4 DMSG0461 LA ROUT,WORK+28 AäP. KOHãA COOâýEHéñ +1 DMSG0462 B BLDDESCR DMSG0463 SPACE 2 DMSG0464 HEXTAB DC C'0123456789ABCDEF' DMSG0465 LTORG DMSG0466 * DMSG0467 TRTAB DS 0C TAâìéãA ðEPEKOäéPOBKé CéMBOìOB DMSG0468 DC 64X'4B' 00-3F DMSG0469 DC X'40',10X'4B',X'4B4C4D4E4F' 40-4F DMSG0470 DC X'50',9X'4B',X'5A5B5C5D5E5F' 50-5F DMSG0471 DC X'6061',8X'4B',X'6A6B6C6D6E6F' 60-6F DMSG0472 DC 10X'4B',X'7A7B7C7D7E7F' 70-7F DMSG0473 DC X'BBC1C2C3C4C5C6C7C8C9BC4BBEBF4BCB' 80-8F DMSG0474 DC X'CCD1D2D3D4D5D6D7D8D9D2D3D4C84BDC' 90-9F DMSG0475 DC X'DD4BE2E3E4E5E6E7E8E94B4BE34BECC2' A0-AF DMSG0476 DC X'EEEFFAFBFCFDFEB7B84BBABBBC4BBEBF' B0-BF DMSG0477 DC X'4BC1C2C3C4C5C6C7C8C94BCBCD4BCE4B' C0-CF DMSG0478 DC X'4BD1D2D3D4D5D6D7D8D94B4BDCDD4B4B' D0-DF DMSG0479 DC X'E04BE2E3E4E5E6E7E8E94BEBEC4BEEEF' E0-EF DMSG0480 DC X'F0F1F2F3F4F5F6F7F8F9FAFBFCFDFE4B' F0-FF DMSG0481 * 0 1 2 3 4 5 6 7 8 9 A B C D E F B7,E1,8F? DMSG0482 END DMSG0483 * DMSG0484 * DMSG0485 * DMSG0486 * DMSG0487 * DMSG0488 * DMSG0489 * DMSG0490 * DMSG0491 * DMSG0492 * DMSG0493 * DMSG0494 * DMSG0495 * DMSG0496 * DMSG0497 * DMSG0498 * DMSG0499 * DMSG0500