SYSSLEEP TITLE '- Sleep 60 seconds' * ------------------------------------------------------- * | (c) Copyright Roger Lacroix 1992 | * | | * | Designed, developed and programmed by Roger Lacroix | * |-----------------------------------------------------| * | Sleep Program Routine | * |-----------------------------------------------------| * | register usage within routine | * | |----------input from calling rtn | * | ||---------modified/initialized | * | |||--------output to called rtns | * | ||||-------returned to calling rtn | * | r0 | * | i r r1 i-parm (pgm name) r-pgm addr | * | m r2 program name pointer | * | r3 | * | r4 | * | r5 | * | r6 | * | r7 | * | r8 | * | r9 | * | r10 | * | r11 | * | m r12 routine base register | * | imor r13 save area | * | i r14 i-return addr | * | i r15 i-entry addr | * |-----------------------------------------------------| * | This routine may be called from any program. It | * | will verify if the indicated program is loaded into | * | storage. If found (via MVS control blocks), the | * | address is returned to the caller. | * ------------------------------------------------------- SPACE 2 SYSSLEEP CSECT SAVE (14,12),,'SYSSLEEP V1.0.0 &SYSDATE &SYSTIME' LR R12,R15 USING SYSSLEEP,R12 LR R15,R13 old save area LA R13,SYSSLEEP@S new save area ST R13,8(,R15) new pointer ST R15,4(,R13) old pointer SPACE 1 L R2,0(R1) point to pgm id SPACE 1 STIMER WAIT,BINTVL=STIME SPACE 2 SYSSLEEP900 EQU * L R13,4(,R13) back a save area SAVE (1) save program entry point RETURN (14,12),T,RC=(15) DROP R12 SPACE 1 TITLE 'Constants, etc.' SYSSLEEP@S DC 18F'0' save area STIME DC F'6000' sleep for 60 seconds * ------------------------------------------------------- * | Literal pool | * ------------------------------------------------------- SPACE 1 LTORG , SPACE 1 * ------------------------------------------------------- * | Dsects, etc. | * ------------------------------------------------------- SPACE 1 PUSH PRINT PRINT NOGEN SPACE 1 REGEQU PRINT=NO,CONDCODE=NO SPACE 1 POP PRINT END ,