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