−Table of Contents

HSINTRU

Table Of Contents

  • [00010] PRGM HSINTRU
  • [00060] PROC BLINK
  • [00061] PROC MGETS
  • [00062] PROC OSCHAPP
  • [00063] PROC XTRACE

Source Code

HSINTRU.txt 
  1. *DECK HSINTRU 
  2. USETEXT NIPDEF
  3. USETEXT AHEADER 
  4. USETEXT AT
  5. USETEXT ACNB
  6. USETEXT PARAMS
  7. USETEXT PT
  8. USETEXT SUPMSG
  9.  
  10. PRGM HSINTRU; 
  11. STARTIMS; 
  12.  #
  13. *1DC  HSINTRU 
  14. * 
  15. *     1. PROC NAME           AUTHOR              DATE 
  16. *        HSINTRU             L.T.NGUYEN          81/12/07 
  17. * 
  18. *     2. FUNCTIONAL DESCRIPTION 
  19. *        SENT INTR/USR TO APPLICATION 
  20. * 
  21. *     3. METHOD USED
  22. *        SET UP APPLICATION BLOCK HEADER
  23. *        SET UP INTR/USR MESSAGE
  24. *        QUEUE MESSAGE ON APPLICATION-S ACB 
  25. * 
  26. *     4. ENTRY PARAMETERS 
  27. *        PARAMS1 - ACNB ADDRESS 
  28. * 
  29. *     5. EXIT PARAMETERS
  30. *        NONE 
  31. * 
  32. *     6. COMDECKS CALLED AND SYMPL TEXTS USED 
  33. *        NIPDEF 
  34. *        AHEADER
  35. *        AT 
  36. *        PARAMS 
  37. *        PT 
  38. *        SUPMSG 
  39. * 
  40. *     7. ROUTINES CALLED
  41. *        BLINK - LINK DATA BLOCK TO DATA RING 
  42. *        MGETS - ALLOCATE EMPTY BUFFER
  43. *        OSCHAPP - SCHEDULE APPLICATION 
  44. *        XTRACE - TRACE PROCEDURE CALL
  45. * 
  46. *     8. DAYFILE MESSAGES AND OTHER IMPORTANT INFORMATION 
  47. *        THIS IS A SECONDARY OVERLAY CALLED BY HBSTTP.
  48. *        W A R N I N G - THIS PROGRAM CANNOT EXCEED THE SECONDARY 
  49. *CALL OSSIZE
  50. * 
  51.  #
  52. STOPIMS;
  53.  
  54. # 
  55.       EXTERNAL VARIABLES
  56. # 
  57.  
  58.  XREF 
  59.    BEGIN
  60.    PROC BLINK;               # LINK DATA BLOCK TO DATA RING            #
  61.    PROC MGETS;               # ALLOCATE EMTPY BUFFER                   #
  62.    PROC OSCHAPP;             # SCHEDULE APPLICATION                    #
  63.    PROC XTRACE;              # TRACE PROCEDURE CALL                    #
  64.    LABEL RJMAIN;             # RETURN ADDRESS IN OVLCALL               #
  65.    END
  66.  
  67. # 
  68.       INTERNAL VARIABLES
  69. # 
  70.  
  71.       ITEM AN ; 
  72.       ITEM ATAN ; 
  73.       ITEM BUFADDR;          # BUFFER ADDRESS TO HOLD INTR/USR         #
  74.  
  75. #**********************************************************************#
  76.  
  77.       BEGIN 
  78.  
  79.       CONTROL IFEQ DEBUG,1; 
  80.         XTRACE("INTRU") ; 
  81.       CONTROL FI; 
  82.  
  83.       P<ACNB> = PARAMS1 ; 
  84.       AN = ACNBAN[0] ;       # APPLICATION NUMBER                      #
  85.  
  86. #  GET BUFFER TO HOLD INTR/USR                                         #
  87.  
  88.       MGETS(LINTR + BLKHSIZE + ABHSIZE, BUFADDR, TRUE); 
  89.  
  90.  
  91. #  SET UP APPLICATION BLOCK HEADER                                     #
  92.  
  93.       P<AHEADER> = BUFADDR + BLKHSIZE;  # BASE APPLICATION HEADER      #
  94.       ABHABT[0] = APPCMD;    # COMMAND BLOCK                           #
  95.       ABHACT[0] = CT60TRANS ;               # CHARACTER TYPE IS 1      #
  96.       ABHTLC[0] = LINTR  ;   # LENGTH OF INTR/USR                      #
  97.  
  98. #  SET UP INTR/USR                                                     #
  99.  
  100.       P<SUPMSG> = BUFADDR + BLKHSIZE + ABHSIZE; 
  101.       PFCSFC[0] = INTRUSR ;  # SET FUNCTION CODE                       #
  102.       INTRACN[0] = ACNBACN[0] ;# ACN OF INITIALIZED CONNECTION         #
  103.       INTRCHR[0] = ACNBINTR[0] ;   # INTERUPT CHARACTER                #
  104.  
  105.  
  106.  
  107. #  QUEUE MESSAGE ON APPLICATION-S ACB                                  #
  108.  
  109.       ATAN = ATACBA[AN] ; 
  110.       BLINK(BUFADDR,ATAN) ;        # QUEUE MSG ON APPLS-S ACB          #
  111.       OSCHAPP(ATAN) ;          # SCHEDULE APPLICATION                  #
  112.       GOTO RJMAIN;           # RETURN TO CALLING PROGRAM               #
  113.       END 
  114. TERM