User Tools

Site Tools


cdc:nos2.source:nam5871:hsintru

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
cdc/nos2.source/nam5871/hsintru.txt ยท Last modified: 2023/08/05 17:22 by Site Administrator