Table of Contents

HCONEND

Table Of Contents

  • [00008] PRGM HCONEND
  • [00059] PROC BLINK
  • [00060] PROC OSCHAPP
  • [00061] PROC XTRACE

Source Code

HCONEND.txt 
  1. *DECK HCONEND 
  2. USETEXT AHEADER 
  3. USETEXT AT
  4. USETEXT NIPDEF
  5. USETEXT PARAMS
  6. USETEXT PT
  7. USETEXT SUPMSG
  8. PRGM HCONEND; 
  9. STARTIMS; 
  10.  #
  11. *1DC  HCONEND 
  12. *     1. PROC NAME           AUTHOR              DATE 
  13. *        HCONEND             C. BITTNER          81/12/01 
  14. * 
  15. *     2. FUNCTIONAL DESCRIPTION 
  16. *        FORMAT AND SEND CON/END/N TO APPLICATION 
  17. * 
  18. *     3. METHOD 
  19. *        USE BUFFER FOR CON/END/R 
  20. *        SET UP APPLICATION BLOCK HEADER
  21. *        SET UP CON/END/N TEXT
  22. *        QUEUE MESSAGE ON APPLICATION-S ACB 
  23. * 
  24. *     4. ENTRY PARAMETERS 
  25. *        PARAMS1 - SM BUFFER ADDRESS (CON/END/R)
  26. *        PARAMS2 - APPLICATION NUMBER OF APPL ENDING CONNECTION 
  27. * 
  28. *     5. EXIT PARAMETERS
  29. *        NONE 
  30. * 
  31. *     6. COMDECKS CALLED AND SYMPL TEXTS USED 
  32. *        AHEADER
  33. *        AT 
  34. *        NIPDEF 
  35. *        PARAMS 
  36. *        PT 
  37. *        SUPMSG 
  38. *        OSSIZE 
  39. * 
  40. *     7. ROUTINES AND OVERLAYS CALLED 
  41. *        BLINK - QUEUE MESSAGE ON APPL-S ACB
  42. *        OSCHAPP - SCHEDULE APPLICATION 
  43. *        XTRACE - RECORD PROCEDURE CALL 
  44. * 
  45. *     8. DAYFILE MESSAGES AND OTHER IMPORTANT INFORMATION 
  46. *        THIS IS A SECONDARY OVERLAY CALLED BY HCSTTP.
  47. *        W A R N I N G - THIS PROGRAM CANNOT EXCEED THE SECONDARY 
  48. *CALL OSSIZE
  49. * 
  50.  #
  51. STOPIMS;
  52.  
  53.  
  54. # 
  55.       EXTERNAL VARIABLES
  56. # 
  57.  XREF 
  58.    BEGIN
  59.    PROC BLINK;               # QUEUE MSG ON APPL-S ACB                 #
  60.    PROC OSCHAPP;             # SCHEDULE APPLICATION                    #
  61.    PROC XTRACE;              # RECORD PROCEDURE CALL                   #
  62.    LABEL RJMAIN;             # RETURN ADDRESS IN OVLCALL               #
  63.    END
  64.  
  65. # 
  66.       INTERNAL VARIABLES
  67. # 
  68.       ITEM AN;               # APPLICATION NUMBER                      #
  69.       ITEM BUFADDR;          # SM BUFFER                               #
  70.  
  71. #**********************************************************************#
  72.  
  73.       BEGIN 
  74.  
  75.       CONTROL IFEQ DEBUG,1; 
  76.         XTRACE("HCONE") ; 
  77.       CONTROL FI; 
  78.  
  79. #  SET UP APPLICATION HEADER                                           #
  80.  
  81.       BUFADDR = PARAMS1;  # ADDRESS OF SM BUFFER                       #
  82.       P<AHEADER> = BUFADDR + BLKHSIZE;  # ADDR OF ABH                  #
  83.       ABHTLC[0] = LCONENN;  # TEXT LENGTH                              #
  84.  
  85. #  SET UP CON/END/N MESSAGE  #
  86.  
  87.       P<SUPMSG> = BUFADDR + BLKHSIZE + ABHSIZE;  # BASE SM             #
  88.       RB[0] = TRUE;          # SET NORMAL RESPONSE BIT                 #
  89.       CONLCF[0] = PARAMS5 ; 
  90.       CONNFF[0] = PARAMS8 ; 
  91.  
  92. #  QUEUE CON/END/N ON APPL-S ACB                                       #
  93.  
  94.       AN = PARAMS2;          # APPLICATION NUMBER OF APPL ENDING CONN  #
  95.       BLINK(BUFADDR,ATACBA[AN]);  # QUEUE MSG ON APPL-S ACB            #
  96.       OSCHAPP(ATACBA[AN]);  # SCHEDULE APPLICATION                     #
  97.       GOTO RJMAIN;           # RETURN TO CALLING PROGRAM               #
  98.       END 
  99. TERM