Retro1.org codex

User Tools

Site Tools

Trace: • HPNPDRL
cdc:nos2.source:nam5871:hpnpdrl

Table of Contents

HPNPDRL

Table Of Contents

Source Code

HPNPDRL.txt 
  1. *DECK HPNPDRL 
  2. USETEXT NIPDEF
  3. USETEXT AHEADER 
  4. USETEXT AT
  5. USETEXT DRHDR 
  6. USETEXT ACB 
  7. USETEXT PT
  8. USETEXT SUPMSG
  9.  PRGM HPNPDRL ; 
  10. STARTIMS; 
  11.  #
  12. *1DC  HPNPDRL 
  13. * 
  14. *     1. PROC NAME           AUTHOR              DATE 
  15. *        HPNPDRL             L. T. NGUYEN        82/08/09 
  16. * 
  17. *     2. FUNCTIONAL DESCRIPTION 
  18. *        FORM HOP/REL AND SEND IT TO EACH EXISTING APPLICATION. 
  19. * 
  20. *     3. METHOD USED
  21. *        LOOP THROUGH THE AT TO FIND NON-ZERO ACB POINTER AND 
  22. *        THEN FORM HOP/REL. 
  23. * 
  24. *     4. ENTRY PARAMETERS 
  25. *        NONE 
  26. * 
  27. *     5. EXIT PARAMETERS
  28. *        NONE 
  29. * 
  30. *     6. COMDECKS CALLED AND SYMPL TEXTS USED 
  31. *        NIPDEF     AHEADER     AT
  32. *        ACB     PT     SUPMSG
  33. * 
  34. *     7. ROUTINES AND OVERLAYS CALLED 
  35. *        BLINK - LINK MESSAGE TO DATA RING
  36. *        MGETS - GET BUFFER 
  37. *        OSCHAPP - SCHEDULE APPLICATION 
  38. * 
  39. *     8. DAYFILE MESSAGES AND OTHER IMPORTANT INFORMATION 
  40. *        THIS IS A PRIMARY OVERLAY CALLED BY HPPUT. 
  41. * 
  42. *        W A R N I N G - THIS PROGRAM CANNOT EXCEED THE PRIMARY 
  43. *CALL OPSIZE
  44. * 
  45. * 
  46.  #
  47. STOPIMS;
  48.  
  49.  
  50.       ITEM BUFADDR ;                   # BUFFER ADDRESS OF SM          #
  51.       ITEM I ;
  52.  
  53.       XREF PROC BLINK ;                # LINKING SM TO APPL.           #
  54.       XREF PROC MGETS ;                # GET BUFFER FOR SM             #
  55.       XREF PROC OSCHAPP ;              # SCHEDULE APPLICATION          #
  56.       XREF LABEL RJMAIN ;              # RETURN ENTRY                  #
  57.  
  58.       BEGIN                            # HPNPDRL                       #
  59.  
  60. # 
  61.       LOOP THROUGH THE AT TO FIND NON-ZERO ACB AND SEND TO IT 
  62. # 
  63.       FOR I = NVFAN STEP 1 WHILE I LQ ATHAN[0]
  64.       DO
  65.         BEGIN 
  66.         P<ACB> = ATACBA[I] ;           # ACB POINTER                   #
  67.         IF P<ACB> NQ 0
  68.             AND ( ACBANAME[0] EQ "NVF"
  69.                   OR ACBANAME[0] EQ "CS" )
  70.         THEN
  71.           BEGIN                        # NON-ZERO ACB                  #
  72.           MGETS(LHOPREL + BLKHSIZE + ABHSIZE,BUFADDR,TRUE) ;
  73.  
  74.           P<AHEADER> = BUFADDR + BLKHSIZE ; 
  75.           ABHABT[0] = APPCMD ;
  76.           ABHACT[0] = CT60TRANS ; 
  77.           ABHTLC[0] = LHOPREL ; 
  78.  
  79.           P<SUPMSG> = BUFADDR + BLKHSIZE + ABHSIZE ;
  80.           PFCSFC[0] = HOPREL ;
  81.  
  82.           BLINK(BUFADDR,P<ACB>) ; 
  83.           OSCHAPP(P<ACB>) ; 
  84.  
  85.           END                          # NON-ZERO ACB                  #
  86.  
  87.         END 
  88.  
  89.       GOTO RJMAIN ; 
  90.       END                              # HPNPDRL                       #
  91.  
  92. TERM. 
  93.  
cdc/nos2.source/nam5871/hpnpdrl.txt · Last modified: 2023/08/05 17:22 by Site Administrator