[comp.lang.asm370] Unknown repsonse from HNDINT of console device

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