TITLE 'D C,K HANDLER-LOAD 1 ' 00001000 IEE10110 CSECT , 0001 00002000 @PROLOG BALR @12,0 0001 00003000 @PSTART DS 0H 0001 00004000 USING @PSTART,@12 0001 00005000 * REG14SAV = R14; /*SAVE RETURN REGISTER */ 00006000 LA @15,CHASM(,R2) 0025 00007000 ST R14,REG14SAV(,@15) 0025 00008000 *RESPECIFY (R14) UNRESTRICTED; 0026 00009000 * R3 = R1 ; /*BASE XSA */ 00010000 LR R3,R1 0027 00011000 * REG0PARM = 0 ; /*PUT RECEIVING CONSOLE ID IN */ 00012000 SR @04,@04 0028 00013000 ST @04,@TF00001 0028 00014000 MVC REG0PARM(4,@15),@TF00001 0028 00015000 * CONID = CHCNID ; /* WORD TO BE PUT IN REG 0 */ 00016000 MVC CONID(1,@15),CHCNID(R2) 0029 00017000 */*SET UP TO ISSUE CONTROL LINE */ 00018000 */*%CLSETUP: P BUILD CONTROL LINE AND SVC 35 PARAMETER LIST */ 0030 00019000 * WTOPARM = CNTRLINE ; /*MOVE CONTROL LINE INFO INTO 0030 00020000 * PARAMETER LIST */ 00021000 MVI WTOPARM+43(@15),C' ' 0030 00022000 MVC WTOPARM+44(39,@15),WTOPARM+43(@15) 0030 00023000 MVC WTOPARM(43,@15),CNTRLINE 0030 00024000 * GEN(TIME DEC); /*ISSUE TIME MACRO */ 00025000 TIME DEC 00026000 * TIME2 = R0 ; /*TIME IN PACKED FORM */ 00027000 LA @04,CHASM(,R2) 0032 00028000 LA @04,TIME1(,@04) 0032 00029000 ST R0,TIME2(,@04) 0032 00030000 */* GENERATE STATEMENT CHANGED FOR PLS/2 COMPILER ME Y01958*/ 00031000 * GEN (UNPK CHASM-CSCBWORK+TIME1(7,R2),CHASM-CSCBWORK+TIME1(4,R2)); 00032000 UNPK CHASM-CSCBWORK+TIME1(7,R2),CHASM-CSCBWORK+TIME1(4,R2) 00033000 * HH = HRS ; /*PUT */ 00034000 LA @04,CHASM(,R2) 0034 00035000 LA @15,TEXT(,@04) 0034 00036000 MVC HH(2,@15),HRS(@04) 0034 00037000 * MM = MIN ; /* TIME STAMP IN */ 00038000 MVC MM(2,@15),MIN(@04) 0035 00039000 * SS = SEC ; /* PARAMETER LIST */ 00040000 MVC SS(2,@15),SEC(@04) 0036 00041000 * WTOPARM(CNTRLLEN+7)=CHARID; /*PUT AREA ID IN PARAMETER LIST */ 00042000 LH @15,CNTRLLEN 0037 00043000 ALR @15,@04 0037 00044000 MVC WTOPARM+6(1,@15),CHARID(R2) 0037 00045000 * R0 = REG0PARM; /*SET UP REG 0 */ 00046000 MVC @TF00001(4),REG0PARM(@04) 0038 00047000 L R0,@TF00001 0038 00048000 * R1 = ADDR(WTOPARM); /*POINT REG 1 TO PARAMETER LIST */ 00049000 LA R1,WTOPARM(,@04) 0039 00050000 */*%CLMLWTO: S SVC 35: ISSUE MLWTO FOR CONTROL LINE */ 0040 00051000 * GEN (SVC 35); /* ISSUE MLWTO FOR CONTROL LINE */ 00052000 SVC 35 00053000 */*%SAVID: P SAVE MLWTO ID */ 0041 00054000 * TEMPARM = R1 ; /*SAVE MLWTO ID, USING WORK AREA */ 00055000 LA @04,CHASM(,R2) 0041 00056000 ST R1,@TF00001 0041 00057000 MVC TEMPARM(4,@04),@TF00001 0041 00058000 * MLWTO = TEMMLWTO; /* TO AVOID COMPILER TEMPORARY */ 00059000 MVC MLWTO(3,@04),TEMMLWTO(@04) 0042 00060000 */*ISSUE DATA LINES */ 00061000 * MSGPOINT = ADDR(WTOP1) ; /*INITIALIZE MSG POINTER */ 00062000 LA MSGPOINT,WTOP1 0043 00063000 * DO I=1 TO 12 ; /*LOOP TO ISSUE LINES */ 00064000 LA I,1 0044 00065000 @DL00044 DS 0H 0045 00066000 */* BUILD PARAMETER LIST IN CSCB */ 00067000 */*%DLSETUP: P BUILD PARAMETER LIST FOR ONE DATA LINE */ 0045 00068000 * PARMLEN = LENGTH(I) + 4 ; /*LENGTH OF MSG + FIRST WORD */ 00069000 LA @04,CHASM(,R2) 0045 00070000 LR @15,I 0045 00071000 AR @15,@15 0045 00072000 LH @15,LENGTH-2(@15) 0045 00073000 LA @14,4 0045 00074000 AR @14,@15 0045 00075000 STH @14,PARMLEN(,@04) 0045 00076000 * LEN = LENGTH(I); /*LENGTH OF MSG FOR MOVE */ 00077000 LR LEN,@15 0046 00078000 * TEXT(1:LEN) = MSGPOINT->WTOP2; /* MOVE TEXT IN */ 00079000 LR @15,LEN 0047 00080000 BCTR @15,0 0047 00081000 EX @15,@SM00357 0047 00082000 * TEXT(LEN+1:LEN+8) = CODES ; /*DESCRIPTOR, ROUTING CODES */ 00083000 LR @15,@04 0048 00084000 ALR @15,LEN 0048 00085000 MVC TEXT(8,@15),CODES 0048 00086000 * TEXT(LEN+5) = '20'X ; /*INDICATE DATA LINE */ 00087000 LR @15,@04 0049 00088000 ALR @15,LEN 0049 00089000 MVI TEXT+4(@15),X'20' 0049 00090000 * R1 = ADDR(WTOPARM) ; /*POINT REG 1 TO PARAMETER LIST */ 00091000 LA R1,WTOPARM(,@04) 0050 00092000 * R0 = REG0PARM ; /*SET UP REG 0 */ 00093000 MVC @TF00001(4),REG0PARM(@04) 0051 00094000 L R0,@TF00001 0051 00095000 */*%DLMLWTO: S SVC 35: ISSUE MLWTO FOR ONE DATA LINE */ 0052 00096000 * GEN (SVC 35) ; /*ISSUE SVC 35 FOR MLWTO */ 00097000 SVC 35 00098000 *RESPECIFY (R15) RESTRICTED; 0053 00099000 */*TSTCAN: D (YES,QUIT,NO,) HAS DISPLAY BEEN CANCELLED */ 0054 00100000 *IF R15 ^= 0 THEN GO TO QUIT; /* IF DISPLAY CANCELED,EXIT */ 00101000 LTR R15,R15 0054 00102000 BNZ @RT00054 0054 00103000 *RESPECIFY (R15) UNRESTRICTED; 0056 00104000 * MSGPOINT = MSGPOINT + LENGTH(I) ; /*UPDATE MSG POINTER */ 00105000 LR @04,I 0057 00106000 AR @04,@04 0057 00107000 AH MSGPOINT,LENGTH-2(@04) 0057 00108000 */*%TSTDONE: D (YES,%DLSETUP,NO,%EXIT)MORE DATA LINES FOR THIS LOAD */ 00109000 * END; /*END OF DO LOOP */ 00110000 AH I,@CH00048 0058 00111000 CH I,@CH00277 0058 00112000 BNH @DL00044 0058 00113000 */*%EXIT: R IEE11110 */ 0059 00114000 * XAX(5) = '1' ; /* CHANGE XCTL NAME TO SECOND LOAD */ 00115000 MVI XAX+4(R3),C'1' 0059 00116000 *RESPECIFY (R15) RESTRICTED; 0060 00117000 *OUT: R15 = R3; /*POINT REG 15 TO XCTL PARAMETER LIST */ 00118000 OUT LR R15,R3 0061 00119000 * GEN ( XCTL SF=(E,(15)) ); /*XCTL */ 00120000 XCTL SF=(E,(15)) 00121000 *RESPECIFY (R15) UNRESTRICTED; 0063 00122000 */*QUIT: R IEE00110 */ 0064 00123000 *QUIT: XAX(4:5)='00'; /*CHANGE XCTL NAME TO SVC 110 ROUTER */ 00124000 QUIT MVC XAX+3(2,R3),@CC00354 0064 00125000 *R14 = REG14SAV; 0065 00126000 LA @04,CHASM(,R2) 0065 00127000 L R14,REG14SAV(,@04) 0065 00128000 *GO TO OUT; 0066 00129000 B OUT 0066 00130000 */*IEE10110: END */ 0067 00131000 * END 0067 00132000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 00133000 */*%INCLUDE SYSLIB (IEECHAIN) * 00134000 */*%INCLUDE SYSLIB (IEEXSA ) * 00135000 *; 0067 00136000 @EL00001 DS 0H 0067 00137000 @EF00001 DS 0H 0067 00138000 @ER00001 BR @14 0067 00139000 @DATA DS 0H 00140000 @CH00048 DC H'1' 00141000 @CH00277 DC H'12' 00142000 @SM00357 MVC TEXT(0,@04),WTOP2(MSGPOINT) 00143000 DS 0F 00144000 @TF00001 DS F 00145000 DS 0F 00146000 DS 0D 00147000 @CC00354 DC C'00' 00148000 CNTRLINE DS CL43 00149000 ORG CNTRLINE 00150000 CNTRLLEN DC H'35' 00151000 FLAGS DC X'E040' 00152000 TITLE DS CL31 00153000 ORG TITLE 00154000 MSGID DC CL10'IEE162I ' 00155000 TIMESTMP DS CL8 00156000 ORG TIMESTMP 00157000 HHI DS CL2 00158000 PER1 DC CL1'.' 00159000 MMI DS CL2 00160000 PER2 DC CL1'.' 00161000 SSI DS CL2 00162000 ORG TITLE+18 00163000 REST DC CL13' K COMMAND' 00164000 ORG CNTRLINE+35 00165000 CODES DS CL8 00166000 ORG CODES 00167000 DESCOD DC X'0980' 00168000 ROUCOD DC X'0000' 00169000 LINTYP DC X'8000' 00170000 AREAID DS CL1 00171000 MULINE DC AL1(1) 00172000 ORG CNTRLINE+43 00173000 DS CL3 00174000 WTOP1 DS CL557 00175000 ORG WTOP1 00176000 LINE01 DC CL58'K D,N NUMBER MESSAGE LINES UNTIL DELETION REC00177000 QUESTED' 00178000 LINE02 DC CL46' ,N,HOLD NUMBER MESSAGE LINES ALL THE TIME' 00179000 LINE03 DC CL50' ,F MOVE STATUS DISPLAY FORWARD ONE FRAME' 00180000 LINE04 DC CL49' ,H HOLD DYNAMIC DISPLAY - DO NOT UPDATE' 00181000 LINE05 DC CL35' ,U UPDATE DYNAMIC DISPLAY' 00182000 LINE06 DC CL46' ,PFK DISPLAY PROGRAM FUNCTION KEY LINE' 00183000 LINE07 DC CL59'K E,SEG ERASE MESSAGE LINES SPECIFIED IN SEG=NC00184000 N OPTION' 00185000 LINE08 DC CL51' ,NN,NN ERASE MESSAGE LINE NN OR NN THROUGH NNC00186000 ' 00187000 LINE09 DC CL35' ,F ERASE FLAGGED MESSAGES' 00188000 LINE10 DC CL45' ,D ERASE OUT-OF-LINE STATUS DISPLAY' 00189000 LINE11 DC CL39' ,N ERASE MESSAGE LINE NUMBERS' 00190000 LINE12 DC CL44' ,PFK ERASE PROGRAM FUNCTION KEY LINE' 00191000 ORG WTOP1+557 00192000 DS CL1 00193000 LENGTH DC H'58' 00194000 DC H'46' 00195000 DC H'50' 00196000 DC H'49' 00197000 DC H'35' 00198000 DC H'46' 00199000 DC H'59' 00200000 DC H'51' 00201000 DC H'35' 00202000 DC H'45' 00203000 DC H'39' 00204000 DC H'44' 00205000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00206000 @01 EQU 01 00207000 @02 EQU 02 00208000 @03 EQU 03 00209000 @04 EQU 04 00210000 @05 EQU 05 00211000 @06 EQU 06 00212000 @07 EQU 07 00213000 @08 EQU 08 00214000 @09 EQU 09 00215000 @10 EQU 10 00216000 @11 EQU 11 00217000 @12 EQU 12 00218000 @13 EQU 13 00219000 @14 EQU 14 00220000 @15 EQU 15 00221000 R0 EQU @00 00222000 R1 EQU @01 00223000 R2 EQU @02 00224000 R3 EQU @03 00225000 MSGPOINT EQU @05 00226000 I EQU @06 00227000 LEN EQU @07 00228000 R14 EQU @14 00229000 R15 EQU @15 00230000 CHAIN EQU 0 00231000 CHFLG EQU CHAIN+4 00232000 CHSTS EQU CHFLG+2 00233000 CHACT EQU CHFLG+3 00234000 CHKEY EQU CHAIN+8 00235000 CHPKE EQU CHAIN+28 00236000 CHTJID EQU CHAIN+30 00237000 CHACT1 EQU CHAIN+35 00238000 CHASM EQU CHAIN+40 00239000 CHCIBP EQU CHASM+4 00240000 CHRGNSZ EQU CHASM+8 00241000 CHSHORT EQU CHASM+24 00242000 CHSWT EQU CHSHORT 00243000 XSAMAP EQU 0 00244000 XASVRB EQU XSAMAP 00245000 XSA EQU XASVRB 00246000 XAX EQU XASVRB+8 00247000 @NM00005 EQU XASVRB+16 00248000 @NM00006 EQU XASVRB+20 00249000 XAS EQU XASVRB+32 00250000 EEXSAS01 EQU 0 00251000 EEXSAS02 EQU 0 00252000 XASDS EQU EEXSAS02+2 00253000 @NM00011 EQU EEXSAS02+4 00254000 EEXSAS03 EQU 0 00255000 XAXMASK EQU EEXSAS03 00256000 CSCBWORK EQU 0 00257000 REG14SAV EQU CSCBWORK 00258000 REG0PARM EQU CSCBWORK+4 00259000 MLWTO EQU REG0PARM 00260000 CONID EQU REG0PARM+3 00261000 TEMPARM EQU CSCBWORK+8 00262000 TEMMLWTO EQU TEMPARM+1 00263000 TIME1 EQU CSCBWORK+12 00264000 HRS EQU TIME1 00265000 MIN EQU TIME1+2 00266000 SEC EQU TIME1+4 00267000 WTOPARM EQU CSCBWORK+20 00268000 PARMLEN EQU WTOPARM 00269000 TEXT EQU WTOPARM+4 00270000 TIME2 EQU 0 00271000 DUMTITLE EQU 0 00272000 DTIME EQU DUMTITLE+10 00273000 HH EQU DTIME 00274000 MM EQU DTIME+3 00275000 SS EQU DTIME+6 00276000 WTOP2 EQU 0 00277000 CHAINS01 EQU CHASM 00278000 CHTYPE EQU CHAINS01+124 00279000 CHTRSTAT EQU CHAINS01+125 00280000 CHCNID EQU CHAINS01+126 00281000 CHARID EQU CHAINS01+127 00282000 CHCSYSO EQU CHAINS01+134 00283000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00284000 CHLAST EQU CHAINS01+136 00285000 CHSPA EQU CHAINS01+135 00286000 CHUSERID EQU CHCSYSO 00287000 CHJB EQU CHCSYSO 00288000 CHDUMP EQU CHCSYSO 00289000 CHQUE EQU CHCSYSO 00290000 CHHOLD EQU CHCSYSO 00291000 CHOUT EQU CHCSYSO 00292000 CHINN EQU CHCSYSO 00293000 CHALL EQU CHCSYSO 00294000 CHINC EQU CHAINS01+132 00295000 CHPEND EQU CHAINS01+128 00296000 @NM00004 EQU CHTRSTAT 00297000 CHTSL EQU CHTRSTAT 00298000 CHTS EQU CHTRSTAT 00299000 CHINITL EQU CHTRSTAT 00300000 CHINIT EQU CHTRSTAT 00301000 CHJOBSL EQU CHTRSTAT 00302000 CHJOBS EQU CHTRSTAT 00303000 CHDEF EQU CHTYPE 00304000 CHHIAR EQU CHTYPE 00305000 CHARSV29 EQU CHTYPE 00306000 CHARSV28 EQU CHTYPE 00307000 CHARSV27 EQU CHTYPE 00308000 CHARSV26 EQU CHTYPE 00309000 CHARSV25 EQU CHTYPE 00310000 CHDSTAT EQU CHTYPE 00311000 CHBUF EQU CHAINS01 00312000 @NM00015 EQU DTIME+5 00313000 @NM00014 EQU DTIME+2 00314000 DMSGID EQU DUMTITLE 00315000 MCSFLAGS EQU WTOPARM+2 00316000 STC EQU TIME1+6 00317000 HIGH EQU TEMPARM 00318000 XAXSACB EQU EEXSAS03+4 00319000 XAXUTME EQU EEXSAS03+2 00320000 XAXFREE EQU EEXSAS03+1 00321000 @NM00013 EQU XAXMASK 00322000 XAXTSL EQU XAXMASK 00323000 XAXTS EQU XAXMASK 00324000 @NM00012 EQU XAXMASK 00325000 XAXJOBSL EQU XAXMASK 00326000 XAXJOBS EQU XAXMASK 00327000 XASOPTR EQU @NM00011+1 00328000 XASTSAVE EQU @NM00011 00329000 XASPLS3 EQU EEXSAS02+3 00330000 @NM00010 EQU XASDS 00331000 XASSDS5 EQU XASDS 00332000 XASSDS4 EQU XASDS 00333000 XASSDS3 EQU XASDS 00334000 XASSDS2 EQU XASDS 00335000 XASSDS EQU XASDS 00336000 XASDID EQU EEXSAS02+1 00337000 XASCID EQU EEXSAS02 00338000 @NM00009 EQU EEXSAS01+44 00339000 XAT EQU EEXSAS01+20 00340000 XAF EQU EEXSAS01+12 00341000 XAI EQU EEXSAS01+4 00342000 XAH EQU EEXSAS01 00343000 XASAVSTD EQU XSAMAP+64 00344000 XASAVLOC EQU XSAMAP+48 00345000 @NM00008 EQU XASVRB+44 00346000 XAA EQU XASVRB+42 00347000 @NM00007 EQU XASVRB+41 00348000 XAU EQU XASVRB+40 00349000 XAV EQU XASVRB+24 00350000 XAL EQU @NM00006+1 00351000 XAN EQU @NM00006 00352000 XAR EQU @NM00005+1 00353000 XAE EQU @NM00005 00354000 XAD EQU XSA+4 00355000 XAP EQU XSA 00356000 CHARSV16 EQU CHSHORT+108 00357000 CHARSV15 EQU CHSHORT+104 00358000 CHJSCBVS EQU CHSHORT+100 00359000 CHUSCVS EQU CHSHORT+96 00360000 @NM00003 EQU CHSHORT+92 00361000 @NM00002 EQU CHSHORT+88 00362000 CHSQA EQU CHSHORT+52 00363000 CHQPA EQU CHSHORT+16 00364000 CHJCL EQU CHSHORT+12 00365000 CHSPC EQU CHSHORT+8 00366000 CHSPB EQU CHSHORT+4 00367000 CHTCB EQU CHSHORT+1 00368000 CHARSV23 EQU CHSWT 00369000 CHARSV22 EQU CHSWT 00370000 CHARSV21 EQU CHSWT 00371000 CHAC EQU CHSWT 00372000 CHPSF EQU CHSWT 00373000 CHPSD EQU CHSWT 00374000 CHJCT EQU CHSWT 00375000 CHARSV20 EQU CHSWT 00376000 CHCECB EQU CHASM+20 00377000 CHECB EQU CHASM+16 00378000 CHRGNAD EQU CHASM+12 00379000 CHARSV18 EQU CHRGNSZ+1 00380000 CHRPRTY EQU CHRGNSZ 00381000 @NM00001 EQU CHCIBP 00382000 CHEND EQU CHCIBP 00383000 CHECBP EQU CHASM 00384000 CHDER EQU CHAIN+36 00385000 CHARSV10 EQU CHACT1 00386000 CHARSV09 EQU CHACT1 00387000 CHARSV08 EQU CHACT1 00388000 CHARSV07 EQU CHACT1 00389000 CHARSV06 EQU CHACT1 00390000 CHARSV05 EQU CHACT1 00391000 CHARSV04 EQU CHACT1 00392000 CHRDWTR EQU CHACT1 00393000 CHARSV30 EQU CHAIN+34 00394000 CHQID EQU CHAIN+32 00395000 CHASID EQU CHTJID 00396000 CHUCMP EQU CHAIN+29 00397000 CHTRKID EQU CHPKE 00398000 CHCIBCTR EQU CHAIN+27 00399000 CHUNIT EQU CHAIN+24 00400000 CHCLS EQU CHAIN+16 00401000 CHPARM EQU CHKEY 00402000 CHIFY EQU CHACT 00403000 CHAIFX EQU CHACT 00404000 CHCLD EQU CHACT 00405000 CHCL EQU CHACT 00406000 CHDSI EQU CHACT 00407000 CHDISC EQU CHACT 00408000 CHTERM EQU CHACT 00409000 CHSWAP EQU CHACT 00410000 CHABTERM EQU CHSTS 00411000 CHFC EQU CHSTS 00412000 CHDL EQU CHSTS 00413000 CHAD EQU CHSTS 00414000 CHQSPC EQU CHSTS 00415000 CHSOUT EQU CHSTS 00416000 CHSYS EQU CHSTS 00417000 CHAP EQU CHSTS 00418000 CHSZE EQU CHFLG+1 00419000 CHVCD EQU CHFLG 00420000 CHPTR EQU CHAIN 00421000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 00422000 @RT00054 EQU QUIT 00423000 @ENDDATA EQU * 00424000 END IEE10110,(C'PL/S-II',0402,73187) 00425000