Table of Contents

NETLOG

Table Of Contents

  • [00007] PROC NETLOG(ADDR, SIZE, FORMAT)
  • [00049] PROC NP$DBG
  • [00050] PROC NP$ERR
  • [00051] PROC NP$SN
  • [00066] ENTRY PROC QTLOG(ADDR,SIZE,FORMAT)

Source Code

NETLOG.txt 
  1. *DECK NETLOG
  2. USETEXT AIPDEF
  3. USETEXT NP$DB 
  4. USETEXT NP$NWL
  5. USETEXT NP$MODE 
  6. USETEXT NP$STAT 
  7. PROC NETLOG(ADDR, SIZE, FORMAT);  # LOG MSG TO DEBUG LOG FILE          #
  8. *IF DEF,IMS 
  9.  #
  10. *1DC  NETLOG
  11. * 
  12. *     1. PROC NAME           AUTHOR              DATE 
  13. *        NETLOG              P.C.TAM             80/03/05 
  14. * 
  15. *     2. FUNCTIONAL DESCRIPTION.
  16. *        THIS ROUTINE IS CALLED TO LOG MESSAGES INTO THE DEBUG LOG FILE 
  17. * 
  18. *     3. METHOD USED
  19. *        CALLS NP$DBG WITH LOC$TA SET TO ADDR, DB$SIZE TO SIZE, AND 
  20. *        DB$FORMAT TO FORMAT. 
  21. * 
  22. *     4. ENTRY PARAMETERS 
  23. *        ADDR                ADDRESS OF TEXT TO BE LOGGED 
  24. *        SIZE                SIZE OF THE MESSAGE
  25. *        FORMAT              1 FOR FORMATTED MESSAGE
  26. *                            0 FOR UNFORMATTED MESSAGE
  27. * 
  28. *     5. EXIT PARAMETERS
  29. *        NONE 
  30. * 
  31. *     6. COMDECKS AND SYMPL TEXTS 
  32. *        AIPDEF    NP$DB
  33. * 
  34. *     7. ROUTINES CALLED
  35. *        NP$DBG              LOG DEBUG FILE 
  36. *        NP$ERR              ABORT WITH ERROR MESSAGES
  37. * 
  38. *     8. DAYFILE MESSAGES 
  39. *        NONE 
  40. * 
  41.  #
  42. *ENDIF
  43. *CALL NP$CRT
  44. # 
  45.       ROUTINES CALLED 
  46. # 
  47.       XREF
  48.         BEGIN 
  49.         PROC NP$DBG;         # WRITE MSG TO DEBUG LOG FILE             #
  50.         PROC NP$ERR;         # ABORT WITH ERROR MESSAGES               #
  51.         PROC NP$SN ;
  52.         END 
  53. # 
  54.       INPUT PARAMETERS
  55. # 
  56.       ITEM
  57.         ADDR,                # ADDRESS OF TEXT TO BE LOGGED            #
  58.         SIZE,                # SIZE OF TEXT BLOCK                      #
  59.         FORMAT;              # FORMAT FLAG                             #
  60. # 
  61.       INTERNAL PARAMETERS 
  62. # 
  63. # ******************************************************************** #
  64.       BEGIN 
  65.  
  66.       ENTRY PROC QTLOG(ADDR,SIZE,FORMAT);  # QTRM ENTRY POINT          #
  67.  
  68.         NP$SN(TYPE"LOG") ;
  69. *IF DEF,DEBUG 
  70.  
  71.       IF ACCEPTED 
  72.       THEN
  73.         BEGIN                # APPLICATION NETS ON ALREADY             #
  74.         LOC$TA = LOC(ADDR) ;
  75.         DB$SIZE = SIZE;      # SIZE OF TEXT MESSAGE                    #
  76.         DB$FORMAT = FORMAT;  # FORMAT FLAG                             #
  77.         DB$OP = OP$LOG;      # NETLOG CALL                             #
  78.         P<CALLADR> = LOC(NETLOG);# LOCATION OF THE CALL                #
  79.         DB$CALL = CALLADDR[0];
  80.         NP$DBG; 
  81.         END 
  82.       ELSE
  83.         NP$ERR("35");        # NETLOG WITHOUT NETON                    #
  84.  
  85. *ENDIF
  86.       END 
  87. TERM