SR010504@YSUB.BITNET (01/19/90)
Hi, Can anyone tell me exactly why the following code would produce the samp le session below? Ready; T=0.01/0.01 13:27:33 load intr4 (start Execution begins... SET HNDINT q t <-------- I had to enter something (but no WAITD is coded) SET HNDINT <-------- A second copy? IN ROUTINE AFTER SET HNDINT CLR HNDINT EXITING Ready; T=0.02/0.06 13:28:56 TIME IS 13:28:57 EST THURSDAY 01/18/90 CONNECT= 01:23:55 VIRTCPU= 000:03.03 TOTCPU= 000:05.40 Ready; T=0.01/0.01 13:28:57 An answer to this strange situation would be greatly appreciated. P.S. I'll get back with you soon Amit. Latter! ....Kev -------------------------------Cut Here--------------------------------- *********NONREENTRANT CODE********************************************* TESINT10 INTR CSECT TESINT20 PRINT OFF TESINT30 REGEQU TESINT40 PRINT ON TESINT50 USING *,R12 TESINT60 STM R0,R14,CALLENV TESINT70 ********** *********** *********** *********** TESINT80 HNDINT SET,(CONS,ROUTINE,009,ASAP) TESINT90 WRTERM 'SET HNDINT' TESINT10 WRTERM 'AFTER SET HNDINT' TESINT20 HNDINT CLR,(CONS) TESINT40 WRTERM 'CLR HNDINT' TESINT50 ********** *********** *********** *********** TESINT70 EXIT EQU * TESINT80 WRTERM 'EXITING' TESINT00 XR R15,R15 TESINT10 LM R0,R14,CALLENV TESINT20 BR R14 TESINT30 *********************************************************************** TESINT40 ROUTINE EQU * TESINT50 USING *,R12 TESINT60 USING *,R15 TESINT70 STM R0,R14,CALLENV1 TESINT80 LR R12,R15 TESINT90 DROP R15 TESINT00 ********** *********** *********** *********** TESINT10 WRTERM 'IN ROUTINE' TESINT20 ********** *********** *********** *********** TESINT40 XR R15,R15 TESINT50 LM R0,R14,CALLENV1 TESINT60 BR R14 TESINT70 *********************************************************************** TESINT80 CALLENV DS 15F TESINT90 CALLENV1 DS 15F TESINT00 END TESINT10