Table of Contents

KHOPMSG

Table Of Contents

  • [00005] PROC KHOPMSG(MSGFWA)
  • [00019] PROC DAYTIME
  • [00020] PROC MGETS
  • [00021] PROC MRELS
  • [00022] PROC XTRACE

Source Code

KHOPMSG.txt 
  1. *DECK KHOPMSG 
  2. USETEXT NIPDEF
  3. USETEXT DISTAIL 
  4. USETEXT KDIS
  5.  PROC KHOPMSG(MSGFWA);       # ISSUE K DISPLAY HOP MESSAGE             #
  6.  
  7.  STARTIMS;
  8.  STOPIMS; 
  9.  
  10. # 
  11.       FORMAL PARAMETERS 
  12. # 
  13.       ITEM MSGFWA;           # FWA OF HOP ALERT MESSAGE                #
  14. # 
  15.       EXTERNAL REFERENCES 
  16. # 
  17.       XREF
  18.         BEGIN 
  19.         PROC DAYTIME;        # GET TIME OF DAY                         #
  20.         PROC MGETS;          # GET BUFFER                              #
  21.         PROC MRELS;          # RELEASE BUFFER                          #
  22.         PROC XTRACE;         # TRACE CALL                              #
  23.         END 
  24. # 
  25.       INTERNAL VARIABLES
  26. # 
  27.       ITEM BUFADDR;          # FWA OF HOP MESSAGE BUFFER               #
  28.       ITEM TIMEOFDAY;        # TIME OF DAY IN DISPLAY CODE             #
  29.  
  30.       DEF L$HOPMSG   #7#;    # LENGTH OF HOP MESSAGE                   #
  31.       BASED ARRAY HOPMSG [0:0] S(L$HOPMSG); 
  32.         BEGIN                # HOP MESSAGE FORMAT                      #
  33.         ITEM HOPMS$MSG  C(00,00,60);
  34.         ITEM HOPMS$TIME U(00,00,60); # TIME OF DAY HH.MM.SS            #
  35.         ITEM HOPMS$TEXT C(01,00,50); # HOP MESSAGE TEXT                #
  36.         ITEM HOPMS$KPTR U(06,00,60); # K DISPLAY POINTER WORD          #
  37.         END 
  38.  
  39.       BASED ARRAY MSGBLK [0:0] S(5);
  40.         BEGIN                # HOP MESSAGE                             #
  41.         ITEM MSGTEXT    C(00,00,50);
  42.         END 
  43.  
  44.       CONTROL EJECT;
  45.  
  46.       BEGIN # KHOPMSG # 
  47.  
  48.  
  49.       CONTROL IFEQ DEBUG,1; 
  50.       XTRACE("KHOPM");       # TRACE CALL                              #
  51.       CONTROL FI; 
  52.  
  53.       DAYTIME(TIMEOFDAY);    # GET TIME OF DAY                         #
  54.       P<MSGBLK> = MSGFWA;    # FWA OF HOP ALERT MESSAGE                #
  55.       MGETS(L$HOPMSG+BLKHSIZE,BUFADDR,TRUE); # BUFFER FOR HOP MSG      #
  56.       P<HOPMSG> = BUFADDR+BLKHSIZE; # FWA OF HOP MESSAGE TO DISPLAY    #
  57.       HOPMS$TIME[0] = TIMEOFDAY; # SET TIME STAMP                      #
  58.       HOPMS$TEXT[0] = MSGTEXT[0]; # SET HOP MESSAGE TEXT               #
  59.       KDTLHOPM[0] = HOPMS$MSG[0]; # DISPLAY HOP MESSAGE                #
  60.       MRELS(BUFADDR); # RELEASE HOP MESSAGE BUFFER                     #
  61.  
  62.       IF NOT KDVW[0]
  63.       THEN                   # K DISPLAY NOT BEING VIEWED              #
  64.         KDALERT[0] = TRUE;   # SET OPERATOR ALERT FLAG                 #
  65.  
  66.       RETURN; 
  67.       END # KHOPMSG # 
  68.       TERM