TITLE 'SET TOD CLOCK--MODULE IEE6603D *00001000 ' 00002000 IEE6603D CSECT , 0001 00003000 IGC6603D DS 0H 0001 00004000 ENTRY IGC6603D 00005000 @MAINENT DS 0H 0001 00006000 USING *,@15 0001 00007000 B @PROLOG 0001 00008000 DC AL2(@EP00001-@MAINENT) 00009000 DC AL1(16) 0001 00010000 DC C'IEE6603D 73.228' 0001 00011000 DROP @15 00012000 @PROLOG BALR @10,0 0001 00013000 @PSTART DS 0H 0001 00014000 USING @PSTART,@10 0001 00015000 AH @15,4(,@15) 0001 00016000 BR @15 0001 00017000 @EP00001 DS 0H 0002 00018000 * 0050 00019000 */********************************************************************/ 00020000 */* */ 00021000 */* SET CSECT CODE IN XSA FOR IEE0603D ESTAE ERROR EXIT. ESTABLISH */ 00022000 */* ADDRESSABILITY FOR THE TOD CLOCK WORKAREA, AND SAVE THE */ 00023000 */* CALLER'S RETURN ADDRESS. */ 00024000 */* */ 00025000 */********************************************************************/ 00026000 * 0050 00027000 * CSECTCDE='C0'X; 0050 00028000 MVI CSECTCDE(XSAPTR),X'C0' 0050 00029000 * TCWAPTR=TPCTCWA; 0051 00030000 L @15,CVTPTR 0051 00031000 L @15,TPCPTR(,@15) 0051 00032000 L TCWAPTR,TPCTCWA(,@15) 0051 00033000 * RESPECIFY 0052 00034000 * TCWA BASED(TCWAPTR); 0052 00035000 * RETSAVE=REG14; 0053 00036000 * 0053 00037000 LR RETSAVE,REG14 0053 00038000 */********************************************************************/ 00039000 */* */ 00040000 */* FIX THE ROUTINE TO BE INVOKED BY THE IPC. */ 00041000 */* */ 00042000 */********************************************************************/ 00043000 * 0054 00044000 * RESPECIFY 0054 00045000 * (REG0, 0054 00046000 * REG1, 0054 00047000 * REG15)RESTRICTED; 0054 00048000 * REG1=ADDR(DELTA7); /* GET PTR TO START OF SIGP'D TO 00049000 * ROUTINE */ 00050000 LA REG1,DELTA7 0055 00051000 * REG15=ADDR(DEL7END); /* GET PTR TO END OF SIGP'D TO 0056 00052000 * ROUTINE */ 00053000 LA REG15,DEL7END 0056 00054000 * REG0=ADDR(XSAECB); /* GET ECB ADDRESS */ 00055000 LA REG0,XSAECB(,XSAPTR) 0057 00056000 * XSAECB=0; /* CLEAR ECB */ 00057000 SR @12,@12 0058 00058000 ST @12,XSAECB(,XSAPTR) 0058 00059000 * GENERATE CODE(PGFIX R,A=(1),EA=(15),ECB=(0),LONG=N); 0059 00060000 PGFIX R,A=(1),EA=(15),ECB=(0),LONG=N 00061000 * RESPECIFY 0060 00062000 * (REG0, 0060 00063000 * REG1, 0060 00064000 * REG15)UNRESTRICTED; 0060 00065000 * 0060 00066000 */********************************************************************/ 00067000 */* */ 00068000 */* TEST FOR SPECIFICATION OF THE CLOCK PARAMETER. */ 00069000 */* */ 00070000 */********************************************************************/ 00071000 * 0061 00072000 * IF CLOCK='1'B THEN 0061 00073000 * 0061 00074000 TM CLOCK(XSAPTR),B'00000001' 0061 00075000 BNO @RF00061 0061 00076000 */********************************************************************/ 00077000 */* */ 00078000 */* IF IT WAS SPECIFIED, UNPACK THE SPECIFIED VALUE. */ 00079000 */* */ 00080000 */********************************************************************/ 00081000 * 0062 00082000 * UNPK(TCWAWRK1(1:6),PKTIME(1:4)); 0062 00083000 UNPK TCWAWRK1(6,TCWAPTR),PKTIME(4,XSAPTR) 0062 00084000 * ELSE 0063 00085000 * 0063 00086000 */********************************************************************/ 00087000 */* */ 00088000 */* IF IT WAS NOT SPECIFIED, TEST FOR MESSAGE IEA888A. */ 00089000 */* */ 00090000 */********************************************************************/ 00091000 * 0063 00092000 * IF TCGXXX^='1'B THEN 0063 00093000 * 0063 00094000 B @RC00061 0063 00095000 @RF00061 TM TCGXXX(TCWAPTR),B'10000000' 0063 00096000 BO @RF00063 0063 00097000 */********************************************************************/ 00098000 */* */ 00099000 */* IF MESSAGE IEA888A IS NOT OUTSTANDING, DEFAULT THE TIME TO */ 00100000 */* 00.00.00. */ 00101000 */* */ 00102000 */********************************************************************/ 00103000 * 0064 00104000 * TCWAWRK1(1:6)=DAYSTART; 0064 00105000 MVC TCWAWRK1(6,TCWAPTR),DAYSTART 0064 00106000 * ELSE 0065 00107000 * 0065 00108000 */********************************************************************/ 00109000 */* */ 00110000 */* IF IT IS OUTSTANDING, UNPACK THE TIME DISPLAYED IN IT. */ 00111000 */* */ 00112000 */********************************************************************/ 00113000 * 0065 00114000 * UNPK(TCWAWRK1(1:6),TCWAPGT(1:4)); 0065 00115000 * 0065 00116000 B @RC00063 0065 00117000 @RF00063 UNPK TCWAWRK1(6,TCWAPTR),TCWAPGT(4,TCWAPTR) 0065 00118000 */********************************************************************/ 00119000 */* */ 00120000 */* CONVERT SECONDS TO PACKED DECIMAL AND THEN TO BINARY. */ 00121000 */* */ 00122000 */********************************************************************/ 00123000 * 0066 00124000 * PACK(TCWAWRK2,TCWAWRK1(5:6)); 0066 00125000 @RC00063 DS 0H 0066 00126000 @RC00061 PACK TCWAWRK2(8,TCWAPTR),TCWAWRK1+4(2,TCWAPTR) 0066 00127000 * CVB(SECONDS,TCWAWRK2); 0067 00128000 * 0067 00129000 CVB SECONDS,TCWAWRK2(,TCWAPTR) 0067 00130000 */********************************************************************/ 00131000 */* */ 00132000 */* MULTIPLY SECONDS ELAPSED SINCE THE LAST MINUTE BY THE NUMBER OF */ 00133000 */* MICROSECONDS PER SECOND GIVING MICROSECONDS ELAPSED SINCE THE */ 00134000 */* LAST MINUTE. */ 00135000 */* */ 00136000 */********************************************************************/ 00137000 * 0068 00138000 * MICSECS=SECONDS*MICSSEC; 0068 00139000 * 0068 00140000 LR @01,SECONDS 0068 00141000 M @00,MICSSEC 0068 00142000 LR MICSECS,@01 0068 00143000 */********************************************************************/ 00144000 */* */ 00145000 */* CONVERT MINUTES TO PACKED DECIMAL AND THEN TO BINARY. */ 00146000 */* */ 00147000 */********************************************************************/ 00148000 * 0069 00149000 * PACK(TCWAWRK2,TCWAWRK1(3:4)); 0069 00150000 PACK TCWAWRK2(8,TCWAPTR),TCWAWRK1+2(2,TCWAPTR) 0069 00151000 * CVB(MINUTES,TCWAWRK2); 0070 00152000 * 0070 00153000 CVB MINUTES,TCWAWRK2(,TCWAPTR) 0070 00154000 */********************************************************************/ 00155000 */* */ 00156000 */* CONVERT HOURS TO PACKED DECIMAL AND THEN TO BINARY. */ 00157000 */* */ 00158000 */********************************************************************/ 00159000 * 0071 00160000 * PACK(TCWAWRK2,TCWAWRK1(1:2)); 0071 00161000 PACK TCWAWRK2(8,TCWAPTR),TCWAWRK1(2,TCWAPTR) 0071 00162000 * CVB(HOURS,TCWAWRK2); 0072 00163000 * 0072 00164000 CVB HOURS,TCWAWRK2(,TCWAPTR) 0072 00165000 */********************************************************************/ 00166000 */* */ 00167000 */* MULTIPLY HOURS ELAPSED SINCE LAST MIDNIGHT BY THE NUMBER OF MIN- */ 00168000 */* UTES PER HOUR AND ADD TO MINUTES ELAPSED SINCE LAST HOUR GIVING */ 00169000 */* MINUTES ELAPSED SINCE LAST MIDNIGHT. */ 00170000 */* */ 00171000 */********************************************************************/ 00172000 * 0073 00173000 * MINUTES=(HOURS*MINSHOUR)+MINUTES; 0073 00174000 * 0073 00175000 LR @15,HOURS 0073 00176000 MH @15,MINSHOUR 0073 00177000 AR MINUTES,@15 0073 00178000 */********************************************************************/ 00179000 */* */ 00180000 */* TEST FOR SPECIFICATION OF THE DATE PARAMETER. */ 00181000 */* */ 00182000 */********************************************************************/ 00183000 * 0074 00184000 * IF DATE='1'B THEN 0074 00185000 * 0074 00186000 TM DATE(XSAPTR),B'00000010' 0074 00187000 BNO @RF00074 0074 00188000 */********************************************************************/ 00189000 */* */ 00190000 */* IF IT WAS SPECIFIED, UNPACK THE SPECIFIED VALUE. */ 00191000 */* */ 00192000 */********************************************************************/ 00193000 * 0075 00194000 * UNPK(TCWAWRK1(1:5),PKDATE(2:4)); 0075 00195000 UNPK TCWAWRK1(5,TCWAPTR),PKDATE+1(3,XSAPTR) 0075 00196000 * ELSE 0076 00197000 * 0076 00198000 */********************************************************************/ 00199000 */* */ 00200000 */* IF IT WAS NOT SPECIFIED, UNPACK THE PREVIOUSLY USED VALUE. */ 00201000 */* */ 00202000 */********************************************************************/ 00203000 * 0076 00204000 * UNPK(TCWAWRK1(1:5),TCWAPGD(2:4)); 0076 00205000 * 0076 00206000 B @RC00074 0076 00207000 @RF00074 UNPK TCWAWRK1(5,TCWAPTR),TCWAPGD+1(3,TCWAPTR) 0076 00208000 */********************************************************************/ 00209000 */* */ 00210000 */* CONVERT DAYS TO PACKED DECIMAL AND THEN TO BINARY. */ 00211000 */* */ 00212000 */********************************************************************/ 00213000 * 0077 00214000 * PACK(TCWAWRK2,TCWAWRK1(3:5)); 0077 00215000 @RC00074 PACK TCWAWRK2(8,TCWAPTR),TCWAWRK1+2(3,TCWAPTR) 0077 00216000 * CVB(DAYS,TCWAWRK2); 0078 00217000 * 0078 00218000 CVB DAYS,TCWAWRK2(,TCWAPTR) 0078 00219000 */********************************************************************/ 00220000 */* */ 00221000 */* MAKE DAYS ZERO ORIGIN. */ 00222000 */* */ 00223000 */********************************************************************/ 00224000 * 0079 00225000 * DAYS=DAYS-1; 0079 00226000 * 0079 00227000 BCTR DAYS,0 0079 00228000 */********************************************************************/ 00229000 */* */ 00230000 */* CONVERT YEARS TO PACKED DECIMAL AND THEN TO BINARY. */ 00231000 */* */ 00232000 */********************************************************************/ 00233000 * 0080 00234000 * PACK(TCWAWRK2,TCWAWRK1(1:2)); 0080 00235000 PACK TCWAWRK2(8,TCWAPTR),TCWAWRK1(2,TCWAPTR) 0080 00236000 * CVB(YEARS,TCWAWRK2); 0081 00237000 * 0081 00238000 CVB YEARS,TCWAWRK2(,TCWAPTR) 0081 00239000 */********************************************************************/ 00240000 */* */ 00241000 */* THE FOLLOWING FORMULA IS EQUIVALENT TO (YEARS*365.25)-.25, DIS- */ 00242000 */* CARDING ANY FRACTIONAL PART OF THE RESULT. THIS FORMULA GIVES */ 00243000 */* THE CORRECT NUMBER OF DAYS ELAPSED FOR FULL YEARS PASSED SINCE */ 00244000 */* THE EPOCH BECAUSE IN IT, THE SURPLUS .25 DAYS PER YEAR MINUS THE */ 00245000 */* .25 DAYS WILL NOT ACCUMULATE TO A FULL DAY FOR THE FIRST TIME */ 00246000 */* UNTIL 5 YEARS HAS PASSED SINCE THE BEGINNING OF THE EPOCH--THAT */ 00247000 */* IS UNTIL 1904 ( THE FIRST LEAP YEAR AFTER THE EPOCH) HAS PASSED. */ 00248000 */* */ 00249000 */* WHEN 1904 HAS PASSED (AND IT IS 1905), THE ACCUMULATION IS 1 DAY */ 00250000 */* (1.25-.25=1). FROM THAT POINT ON, 1 DAY ACCUMULATES FOR EVERY */ 00251000 */* FOUR YEARS (EG. 2.25-.25 AFTER 1908, 3.25-.25 AFTER 1912, ETC.). */ 00252000 */* FOR ANY YEARS IN BETWEEN, THE ACCUMULATION IS SOME INTEGER PLUS */ 00253000 */* .00 TO .75 MINUS THE CONSTANT .25 DAYS, AND IS DISCARDED. */ 00254000 */* */ 00255000 */********************************************************************/ 00256000 * 0082 00257000 * DAYS=(((YEARS*DAYS4YRS)-1)/4)+DAYS; 0082 00258000 * 0082 00259000 LR @00,YEARS 0082 00260000 MH @00,DAYS4YRS 0082 00261000 BCTR @00,0 0082 00262000 SRDA @00,32 0082 00263000 D @00,@CF00097 0082 00264000 AR DAYS,@01 0082 00265000 */********************************************************************/ 00266000 */* */ 00267000 */* MULTIPLY DAYS ELAPSED SINCE THE EPOCH BY THE NO. OF MINUTES PER */ 00268000 */* DAY AND ADD TO MINUTES ELAPSED SINCE LAST MIDNIGHT GIVING MINUTES*/ 00269000 */* ELAPSED SINCE EPOCH. */ 00270000 */* */ 00271000 */********************************************************************/ 00272000 * 0083 00273000 * MINUTES=(DAYS*MINSDAY)+MINUTES; 0083 00274000 * 0083 00275000 LR @15,DAYS 0083 00276000 MH @15,MINSDAY 0083 00277000 AR MINUTES,@15 0083 00278000 */********************************************************************/ 00279000 */* */ 00280000 */* MULTIPLY MINUTES ELAPSED SINCE EPOCH BY MICROSECONDS PER MINUTE */ 00281000 */* AND ADD IN MICROSECONDS GIVING MICROSECONDS ELAPSED SINCE EPOCH. */ 00282000 */* */ 00283000 */********************************************************************/ 00284000 * 0084 00285000 * RESPECIFY 0084 00286000 * (TMICSECL, 0084 00287000 * TMICSECR)RESTRICTED; 0084 00288000 * TMICSECR=MINUTES; 0085 00289000 LR TMICSECR,MINUTES 0085 00290000 * GENERATE CODE REFS(TMICSECL,MICSMIN)(M TMICSECL,MICSMIN); 0086 00291000 M TMICSECL,MICSMIN 00292000 * TMICSECR=TMICSECR+MICSECS; 0087 00293000 * 0087 00294000 ALR TMICSECR,MICSECS 0087 00295000 */********************************************************************/ 00296000 */* */ 00297000 */* TEST THE ADDITION FOR A CARRY OUT OF THE LOW ORDER WORD. */ 00298000 */* */ 00299000 */********************************************************************/ 00300000 * 0088 00301000 * BC(12,MICSTOCU); 0088 00302000 * 0088 00303000 BC 12,MICSTOCU 0088 00304000 */********************************************************************/ 00305000 */* */ 00306000 */* IF THERE IS A CARRY, ADD 1 TO THE HIGH ORDER WORD. */ 00307000 */* */ 00308000 */********************************************************************/ 00309000 * 0089 00310000 * TMICSECL=TMICSECL+1; 0089 00311000 * 0089 00312000 AL TMICSECL,@CF00105 0089 00313000 */********************************************************************/ 00314000 */* */ 00315000 */* SHIFT BIT 63, WHICH REPRESENTS 1 MICROSECOND, TO BIT 51, WHICH */ 00316000 */* REPRESENTS 1 MICROSECOND IN THE TOD CLOCK. */ 00317000 */* */ 00318000 */********************************************************************/ 00319000 * 0090 00320000 *MICSTOCU: 0090 00321000 * SLDL(TMICSECL,12); 0090 00322000 * 0090 00323000 MICSTOCU SLDL TMICSECL,12 0090 00324000 */********************************************************************/ 00325000 */* */ 00326000 */* TEST FOR SPECIFICATION OF THE GMT PARAMETER. */ 00327000 */* */ 00328000 */********************************************************************/ 00329000 * 0091 00330000 * IF GMT^='1'B THEN 0091 00331000 * 0091 00332000 TM GMT(XSAPTR),B'00000100' 0091 00333000 BO @RF00091 0091 00334000 */********************************************************************/ 00335000 */* */ 00336000 */* IF IT IS NOT SPECIFIED, A LOCAL VALUE WAS ENTERED, SO SUBTRACT */ 00337000 */* THE TIME ZONE CONSTANT FROM THE CALCULATED TOD CLOCK VALUE TO */ 00338000 */* OBTAIN A GMT VALUE WITH WHICH TO SET THE CLOCK. */ 00339000 */* */ 00340000 */********************************************************************/ 00341000 * 0092 00342000 * TMICSECL=TMICSECL-CVTTZ; 0092 00343000 * 0092 00344000 L @15,CVTPTR 0092 00345000 SL TMICSECL,CVTTZ(,@15) 0092 00346000 */********************************************************************/ 00347000 */* */ 00348000 */* STORE THE CALCULATED TOD CLOCK VALUE. */ 00349000 */* */ 00350000 */********************************************************************/ 00351000 * 0093 00352000 * STM(TMICSECL,TMICSECR,TCWACVAL); 0093 00353000 @RF00091 STM TMICSECL,TMICSECR,TCWACVAL(TCWAPTR) 0093 00354000 * RESPECIFY 0094 00355000 * (REG0, 0094 00356000 * REG1, 0094 00357000 * REG11, 0094 00358000 * REG12, 0094 00359000 * REG15)RESTRICTED; 0094 00360000 * 0094 00361000 */********************************************************************/ 00362000 */* */ 00363000 */* WAIT ON PAGE FIX. */ 00364000 */* */ 00365000 */********************************************************************/ 00366000 * 0095 00367000 * REG1=ADDR(XSAECB); 0095 00368000 LA REG1,XSAECB(,XSAPTR) 0095 00369000 * GENERATE CODE REFS(REG1)(WAIT 1,ECB=(1)); 0096 00370000 * 0096 00371000 WAIT 1,ECB=(1) 00372000 */********************************************************************/ 00373000 */* */ 00374000 */* TELL THE OPERATOR TO DEPRESS THE TOD CLOCK SECURITY SWITCH AT */ 00375000 */* THE MOMENT THAT THE TIME THAT WAS ENTERED OCCURS. THEN WAIT FOR */ 00376000 */* HIM TO INDICATE THAT HE HAS RECEIVED THE MESSAGE. */ 00377000 */* */ 00378000 */********************************************************************/ 00379000 * 0097 00380000 * REG11=ADDR(TCWATXT); /* GET REPLY ADDRESS */ 00381000 LA REG11,TCWATXT(,TCWAPTR) 0097 00382000 * REG12=ADDR(XSAECB); /* GET ECB ADDRESS */ 00383000 LA REG12,XSAECB(,XSAPTR) 0098 00384000 * XSAECB=0; /* CLEAR ECB */ 00385000 SR @03,@03 0099 00386000 ST @03,XSAECB(,XSAPTR) 0099 00387000 * GENERATE CODE; 0100 00388000 WTOR 'IEA903A DEPRESS TOD CLOCK SECURITY SWITCH WHEN ENTERED TT00389000 IME OCCURS',(11),40,(12),ROUTCDE=(1), **00390000 MCSFLAG=(NOTIME),DESC=(2) 00391000 * REG1=ADDR(XSAECB); /* GET ECB ADDRESS */ 00392000 LA REG1,XSAECB(,XSAPTR) 0101 00393000 * GENERATE CODE REFS(REG1)(WAIT 1,ECB=(1)); 0102 00394000 * 0102 00395000 WAIT 1,ECB=(1) 00396000 */********************************************************************/ 00397000 */* */ 00398000 */* TEST FOR UNI-PROCESSOR. IF STRICTLY UNI-PROCESSOR, GET THE */ 00399000 */* DISPATCHER LOCK, AND BRANCH AND LINK TO THE ROUTINE THAT WILL */ 00400000 */* SET TOD CLOCK. IF NOT, INVOKE THE ROUTINE VIA INTER-PROCESSOR */ 00401000 */* COMMUNICATIONS. */ 00402000 */* */ 00403000 */********************************************************************/ 00404000 * 0103 00405000 * IF CSDMP='0'B THEN 0103 00406000 L @03,CVTPTR 0103 00407000 L @03,CVTCSD(,@03) 0103 00408000 TM CSDMP(@03),B'10000000' 0103 00409000 BNZ @RF00103 0103 00410000 * DO; 0104 00411000 * RESPECIFY 0105 00412000 * (REG13)RESTRICTED; 0105 00413000 * REG15=ADDR(DELTA7); /* GET ENTRY POINT ADDRESS */ 00414000 LA REG15,DELTA7 0106 00415000 * REG1=TCWAPTR; /* GET TOD CLOCK WORKAREA ADDRESS*/ 00416000 LR REG1,TCWAPTR 0107 00417000 * GENERATE CODE REFS(REG15,PSALITA)SETS(REG14); 0108 00418000 * /* 00419000 SETLOCK OBTAIN,TYPE=DISP,MODE=UNCOND, **00420000 RELATED=('DISABLE FOR CPUT LOOP',(IEE6603D,(NONE))) 00421000 BALR REG14,REG15 BRANCH TO SET TOD CLOCK 00422000 SETLOCK RELEASE,TYPE=DISP, **00423000 RELATED=('DISABLE FOR CPUT LOOP',(IEE6603D,(NONE))) */ 00424000 * RESPECIFY 0109 00425000 * (REG13)UNRESTRICTED; 0109 00426000 * END; 0110 00427000 * ELSE 0111 00428000 * 0111 00429000 */********************************************************************/ 00430000 */* */ 00431000 */* SET UP INTERFACE FOR IPC. */ 00432000 */* */ 00433000 */********************************************************************/ 00434000 * 0111 00435000 * DO; 0111 00436000 B @RC00103 0111 00437000 @RF00103 DS 0H 0112 00438000 * REG11=TCWAPTR; /* ADDR TCWA TO REG 11 */ 00439000 LR REG11,TCWAPTR 0112 00440000 * REG1=EVAL(TCWAPTR+LENGTH(TCWA))->TCWAPCCA;/* ADDRESS OF PCCA 00441000 * TO REG 1 */ 00442000 LA @03,112 0113 00443000 AR @03,TCWAPTR 0113 00444000 L REG1,TCWAPCCA(,@03) 0113 00445000 * REG12=ADDR(DELTA7); /* ENTRY POINT ADDR TO REG 12 */ 00446000 * 0114 00447000 LA REG12,DELTA7 0114 00448000 */********************************************************************/ 00449000 */* */ 00450000 */* ISSUE A SIGP TO GET A TOD CLOCK SET WITH THE CORRECT GMT. */ 00451000 */* */ 00452000 */********************************************************************/ 00453000 * 0115 00454000 * GENERATE CODE REFS(CVTIPCRI,CVT) 0115 00455000 * (RISGNL SERIAL,CPU=(1),EP=(12),PARM=(11)); 0115 00456000 RISGNL SERIAL,CPU=(1),EP=(12),PARM=(11) 00457000 * END; 0116 00458000 * 0116 00459000 */********************************************************************/ 00460000 */* */ 00461000 */* FREE THE FIXED PAGE. */ 00462000 */* */ 00463000 */********************************************************************/ 00464000 * 0117 00465000 * REG1=ADDR(DELTA7); /* GET PTR TO START OF SIGP'D TO 00466000 * ROUTINE */ 00467000 @RC00103 LA REG1,DELTA7 0117 00468000 * REG15=ADDR(DEL7END); /* GET PTR TO END OF SIGP'D TO 0118 00469000 * ROUTINE */ 00470000 LA REG15,DEL7END 0118 00471000 * GENERATE CODE(PGFREE R,A=(1),EA=(15)); 0119 00472000 * 0119 00473000 PGFREE R,A=(1),EA=(15) 00474000 */********************************************************************/ 00475000 */* */ 00476000 */* RESTORE THE CALLER'S RETURN ADDRESS TO THE RETURN REGISTER. */ 00477000 */* */ 00478000 */********************************************************************/ 00479000 * 0120 00480000 * REG14=RETSAVE; 0120 00481000 LR REG14,RETSAVE 0120 00482000 * RESPECIFY 0121 00483000 * (REG11, 0121 00484000 * REG12, 0121 00485000 * TMICSECL, 0121 00486000 * TMICSECR)UNRESTRICTED; 0121 00487000 * 0121 00488000 */********************************************************************/ 00489000 */* */ 00490000 */* SET CSECT ID FIELD OF XSA TO 0 TO INDICATE THAT IEE6603D IS NO */ 00491000 */* LONGER IN CONTROL. RETURN TO IEE0603D. */ 00492000 */* */ 00493000 */********************************************************************/ 00494000 * 0122 00495000 * CSECTCDE='00'X; 0122 00496000 MVI CSECTCDE(XSAPTR),X'00' 0122 00497000 * RETURN; 0123 00498000 @EL00001 DS 0H 0123 00499000 @EF00001 DS 0H 0123 00500000 @ER00001 BR @14 0123 00501000 * 0124 00502000 */********************************************************************/ 00503000 */* */ 00504000 */* THIS ROUTINE IS INVOKED VIA THE IPC. IT ATTEMPTS TO SET THE TOD */ 00505000 */* CLOCK WITH THE VALUE PASSED TO IT. */ 00506000 */* */ 00507000 */********************************************************************/ 00508000 * 0124 00509000 * RESPECIFY 0124 00510000 * TCWA BASED(REG1); /* REG1 NOW POINTING TO TCWA */ 00511000 * 0124 00512000 */********************************************************************/ 00513000 */* */ 00514000 */* TURN OF THE TOD CLOCK SYNCHRONIZATION BIT IN CONTROL REG 0 SO */ 00515000 */* THAT THE CLOCK WILL NOT STOP WHEN IT IS SET. THEN INITIALIZE */ 00516000 */* THE 1 MINUTE TIME-OUT LOOP. */ 00517000 */* */ 00518000 */********************************************************************/ 00519000 * 0125 00520000 * GENERATE CODE REFS(REG15)(USING *,REG15 ADDRESSABILITY FOR CODE); 00521000 USING *,REG15 ADDRESSABILITY FOR CODE 00522000 *DELTA7: 0126 00523000 * GENERATE CODE REFS(REG1)SETS(TCWACTL) 0126 00524000 * (STCTL 0,0,TCWACTL(REG1) SAVE CONTROL REG 0); 0126 00525000 DELTA7 STCTL 0,0,TCWACTL(REG1) SAVE CONTROL REG 0 00526000 * TCSTOP='0'B; /* TURN OFF SYNCHRONIZATION BIT */ 00527000 NI TCSTOP(REG1),B'11011111' 0127 00528000 * GENERATE CODE REFS(TCWACTL,REG1)SETS(TCWAA1,TCWAA2); 0128 00529000 * 0128 00530000 LCTL 0,0,TCWACTL(REG1) RESTORE CONTROL REG 0 00531000 STPT TCWAA1(REG1) STORE STARTING TIME VALUE 00532000 STPT TCWAA2(REG1) STORE ENDING TIME VALUE 00533000 */********************************************************************/ 00534000 */* */ 00535000 */* TURN ON THE TOD CLOCK NOT SET INDICATOR. */ 00536000 */* */ 00537000 */********************************************************************/ 00538000 * 0129 00539000 * TCGNSET='1'B; 0129 00540000 * 0129 00541000 OI TCGNSET(REG1),B'00001000' 0129 00542000 */********************************************************************/ 00543000 */* */ 00544000 */* LOOP ON A SET CLOCK INSTRUCTION UNTIL THE OPERATOR DEPRESSES THE */ 00545000 */* SECURITY SWITCH ALLOWING THE CLOCK TO BE SET, OR THE ALLOTTED */ 00546000 */* TIME INTERVAL EXPIRES. */ 00547000 */* */ 00548000 */********************************************************************/ 00549000 * 0130 00550000 * DO WHILE TCWAA1L-TCWAA2L