🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.lang.asm370
Article #285

Unknown repsonse from HNDINT of console device

#285
From: SR010504
Date: Thu, 18 Jan 1990 18:57
64 lines
4160 bytes
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
Technical Details
Message-ID: <9001181911.AA15982@lilac.berkeley.edu>
Path: arc1-ca.pugleaf.net!utzoo!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!tut.cis.ohio-state.edu!ucbvax!YSUB.BITNET!SR010504

Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!utzoo!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!tut.cis.ohio-state.edu!ucbvax!YSUB.BITNET!SR010504
From: SR010504@YSUB.BITNET
Newsgroups: comp.lang.asm370
Subject: Unknown repsonse from HNDINT of console device
Message-ID: <9001181911.AA15982@lilac.berkeley.edu>
Date: 18 Jan 90 18:57:44 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Reply-To: IBM 370 Assembly Programming Discussion List <ASM370%UCF1VM.bitnet@lilac.berkeley.edu>
Distribution: inet
Organization: The Internet
Lines: 64