X TITLE 'ASM2CL - ASM2 é IEWL B OäHOM ûAçE' M2CL0001 * * * ðOCìEäHññ KOPPEKTéPOBKA: äATA 11.04.89 BPEMñ 04.21 * æOKõC M2CL0002 * PARM='[<ðAPAMETPù ASM2>/<ðAPAMETPù IEWL>] M2CL0003 * ìEHéHçPAä éBã çõT OTä. 23 ìATùûKO T: 219-07-07 * M2CL0004 SPACE 2 M2CL0005 DSA PRINT=NOGEN M2CL0006 ASMPARML DS H M2CL0007 ASMPARM DS CL100 M2CL0008 * M2CL0009 IEWPARML DS H M2CL0010 IEWPARM DS CL100 M2CL0011 SPACE 2 M2CL0012 ASM2CL @START BASE=11,RPARM=2,PRINT=,ID=* M2CL0013 SPACE 2 M2CL0014 *********************************************************************** M2CL0015 * AHAìéú ðAPAMETPOB * M2CL0016 *********************************************************************** M2CL0017 CLEAR ASMPARML,IEWPARML M2CL0018 * M2CL0019 L 2,0(2) M2CL0020 LA 3,2(2) 3 - AäPEC CTPOKé M2CL0021 LH 2,0(2) 2 - äìéHA M2CL0022 * M2CL0023 LTR 5,2 M2CL0024 BZ CALLASM M2CL0025 LR 4,3 M2CL0026 GETSLASH CLIB 0(4),C'/',E,SLASH M2CL0027 LA 4,1(4) M2CL0028 BCT 5,GETSLASH M2CL0029 * M2CL0030 SLASH SR 4,3 4 - äìéHA PARM äìñ ASM M2CL0031 STH 4,ASMPARML M2CL0032 MVC ASMPARM,0(3) M2CL0033 * M2CL0034 SR 2,4 Oâý. äìéHA - PARM ASM M2CL0035 BNP CALLASM M2CL0036 BCTR 2,0 - 1 M2CL0037 LA 3,1(4,3) 3 - AäPEC PARM LKED M2CL0038 STH 2,IEWPARML M2CL0039 MVC IEWPARM,0(3) M2CL0040 SPACE 2 M2CL0041 *********************************************************************** M2CL0042 * BùúOB ACCEMâìEPA * M2CL0043 *********************************************************************** M2CL0044 CALLASM STADR ASMPARML,ASMPLIST M2CL0045 LA 1,ASMPLIST M2CL0046 LINK EP=IUM90 M2CL0047 CHB 15,=H'4',H,END M2CL0048 SPACE 2 M2CL0049 *********************************************************************** M2CL0050 * BùúOB PEäAKTOPA * M2CL0051 *********************************************************************** M2CL0052 STADR IEWPARML,IEWPLIST M2CL0053 LA 1,IEWPLIST M2CL0054 LINK EP=IEWL M2CL0055 SPACE 2 M2CL0056 *********************************************************************** M2CL0057 * úABEPûEHéE PAâOTù é BOúBPAT õðPABìEHéñ * M2CL0058 *********************************************************************** M2CL0059 END @RETURN RC=(15) M2CL0060 SPACE 2 M2CL0061 *********************************************************************** M2CL0062 * KOHCTAHTù * M2CL0063 *********************************************************************** M2CL0064 ASMPLIST DS F - AäPEC PARM M2CL0065 DC X'80',AL3(ASMDDTAB) - AäPEC TAâìéãù DD M2CL0066 * M2CL0067 ASMDDTAB DC Y(ASMDDTL) M2CL0068 DC CL8'SYSOBJ' M2CL0069 DC 2XL8'0' M2CL0070 DC CL8'ASMLIB' M2CL0071 DC CL8'ASMIN' M2CL0072 DC CL8'ASMPRINT' M2CL0073 DC CL8'ASMPUNCH' M2CL0074 DC CL8'ASMUT1' M2CL0075 DC CL8'ASMTERM' M2CL0076 DC CL8'ASMEDECK' M2CL0077 ASMDDTL EQU *-ASMDDTAB M2CL0078 SPACE 2 M2CL0079 IEWPLIST DS F - AäPEC PARM M2CL0080 DC X'80',AL3(IEWDDTAB) - AäPEC TAâìéãù DD M2CL0081 * M2CL0082 IEWDDTAB DC Y(IEWDDTL) M2CL0083 DC CL8'SYSOBJ' M2CL0084 DC XL8'0' M2CL0085 DC CL8'IEWLMOD' M2CL0086 DC CL8'IEWLIB' M2CL0087 DC XL8'0' M2CL0088 DC CL8'IEWPRINT' M2CL0089 DC XL8'0' M2CL0090 DC CL8'IEWUT1' M2CL0091 DC 3XL8'0' M2CL0092 DC CL8'IEWTERM' M2CL0093 IEWDDTL EQU *-IEWDDTAB M2CL0094 SPACE 2 M2CL0095 @END M2CL0096 * M2CL0097