Retro1.org codex

User Tools

Site Tools

Trace: • NS$STR
cdc:nos2.source:nam5871:ns_str

Table of Contents

NS$STR

Table Of Contents

  • [00007] PROC NS$STR(ERRCODE)
  • [00008] NS$STR - PROCESS HOP/START.
  • [00012] PROCESS HOP/START.
  • [00047] PROC NS$DBG
  • [00053] PROC MOVEOK
  • [00054] PROC NETPUT
  • [00055] FUNC NS$FEC U
  • [00056] PROC REQTSB

Source Code

NS$STR.txt 
  1. *DECK NS$STR
  2. USETEXT COM$NS
  3. USETEXT ERR$NS
  4. USETEXT KDS$NS
  5. USETEXT PFC$NS
  6. USETEXT SMB$NS
  7.       PROC NS$STR(ERRCODE);  # PROCESS HOP/START                       #
  8. # TITLE NS$STR - PROCESS HOP/START.                                    #
  9.  
  10.       BEGIN    # NS$STR # 
  11. # 
  12. **    NS$STR - PROCESS HOP/START. 
  13. * 
  14. *     J.C. LEE    1981
  15. * 
  16. *     THIS ROUTINE PROCESSES HOP/START. 
  17. * 
  18. *     PROC NS$STR(ERRCODE)
  19. * 
  20. *     ENTRY:  
  21. *       NONE. 
  22. * 
  23. *     EXIT: 
  24. *       ERRCODE.
  25. * 
  26. *     METHOD: 
  27. *       IF K-DISPLAY ASSIGNED, FLAG ERRCODE AND EXIT. 
  28. *       SEND HELP DISPLAY TO K-DISPLAY RIGHT SCREEN.
  29. *       ALLOCATE 1-WORD TSB FOR PAGE-WAIT BUFFER. 
  30. *       INITIALIZE HEADER WORD OF PAGE-WAIT BUFFER. 
  31. *       SET PAGE-WAIT MODE TO FALSE.
  32. *       SET K-DISPLAY-LINE-COUNT TO 0.
  33. *       SET IGNORE-ALERT TO FALSE.
  34. *       SET HISTORY-DISPLAY-ASSIGNED TO TRUE. 
  35. *       SET INPUT-ALLOW-FLAG TO FALSE.
  36. *       SEND THE LAST PAGE OF HISTORY TO K-DISPLAY. 
  37. *       SEND "READY.." TO K-DISPLAY WITH END-OF-HOP 
  38. *       -RESPONSE FLAG SET. 
  39. * 
  40. # 
  41.  
  42.       ITEM ERRCODE    U;     # ERROR CODE                              #
  43.  
  44.       $BEGIN
  45.       XREF
  46.         BEGIN 
  47.         PROC NS$DBG;         # TRACE PROC CALL                         #
  48.         END 
  49.       $END
  50.  
  51.       XREF
  52.         BEGIN 
  53.         PROC MOVEOK;         # ALLOW MOVE ON TABLE                     #
  54.         PROC NETPUT;         # SEND MESSAGE TO NAM                     #
  55.         FUNC NS$FEC U;       # FORMAT ERROR CODE                       #
  56.         PROC REQTSB;         # REQUEST TSB                             #
  57.         END 
  58.  
  59.       ITEM TSBADDR    U;     # TSB FWA                                 #
  60.       ITEM TSBN       U;     # TSB NUMBER                              #
  61.       ARRAY ABH [0:0] S(1);  # APPLICATION BLK HDR FOR HOP/DIS/SM      #
  62.         BEGIN 
  63.         ITEM ABH$ABT    U(00,00,06) = [APPCMD];     # BLOCK TYPE       #
  64.         ITEM ABH$ADR    U(00,06,12) = [0];          # CONNECTION NUMBER#
  65.         ITEM ABH$ABN    U(00,18,18) = [0];          # APP BLOCK NUMBER #
  66.         ITEM ABH$ACT    U(00,36,04) = [CT60TRANS];  # CHAR TYPE        #
  67.         ITEM ABH$DBC    U(00,40,08) = [0];          # DATA BLK CLARIFIR#
  68.         ITEM ABH$TLC    U(00,48,12) = [116];        # SIZE OF SUP MSG  #
  69.         END 
  70.       ARRAY SM$HELP [0:0] S(116);  # HOP/DIS SM TO SEND HELP DISPLAY   #
  71.         BEGIN 
  72.         ITEM SM$HELPPS  U(000,00,16) = [HOPDIS]; # PFC/SFC VALUE       #
  73.         ITEM SM$HELPZ1  U(000,16,42) = [0]; 
  74.         ITEM SM$HELPRS  B(000,58,01) = [TRUE];   # RIGHT SCREEN DISPLAY#
  75.         ITEM SM$HELPIA  B(000,59,01) = [FALSE];  # INPUT ALLOWED FLAG  #
  76.  
  77.         ITEM SM$HELPL01 C(001,00,21) = [" "];    # DISPLAY HEADER LINE #
  78.         ITEM SM$HELPM01 C(003,06,15) = ["NS COMMAND LIST"]; 
  79.         ITEM SM$HELPN01 C(004,36,22) = [" "];    # DISPLAY HEADER LINE #
  80.         ITEM SM$HELPE01 U(006,48,12) = [0];      # LINE TERMINATOR     #
  81.  
  82.         ITEM SM$HELPM02 C(007,00,58) = [" "];    # BLANK LINE          #
  83.         ITEM SM$HELPE02 U(012,48,12) = [0];      # LINE TERMINATOR     #
  84.  
  85.         ITEM SM$HELPL03 C(013,00,28) = ["FI,NP=NN,NL=FF,UN=UU,PW=PP. "];
  86.         ITEM SM$HELPM03 C(015,48,28) = ["CHANGE THE NPU LOAD FILE FOR"];
  87.         ITEM SM$HELPN03 C(018,36,02) = [" "]; 
  88.         ITEM SM$HELPE03 U(018,48,12) = [0];      # LINE TERMINATOR     #
  89.  
  90.         ITEM SM$HELPL04 C(019,00,31) = [" "];    # LINE 4              #
  91.         ITEM SM$HELPM04 C(022,06,27) = ["NPU NAMED NN TO FILE FF    "]; 
  92.         ITEM SM$HELPE04 U(024,48,12) = [0];      # LINE TERMINATOR     #
  93.  
  94.         ITEM SM$HELPL05 C(025,00,31) = [" "];    # LINE 5              #
  95.         ITEM SM$HELPM05 C(028,06,27) = ["UNDER USER NAME UU AND     "]; 
  96.         ITEM SM$HELPE05 U(030,48,12) = [0];      # LINE TERMINATOR     #
  97.  
  98.         ITEM SM$HELPM06 C(031,00,31) = [" "];    # LINE 6              #
  99.         ITEM SM$HELPN06 C(034,06,27) = ["PASSWORD PP.               "]; 
  100.         ITEM SM$HELPE06 U(036,48,12) = [0];      # LINE TERMINATOR     #
  101.  
  102.         ITEM SM$HELPM07 C(037,00,29) = ["HI."];  # LINE 7              #
  103.         ITEM SM$HELPN07 C(039,54,29) = ["DISPLAY LAST PAGE OF RECENT"]; 
  104.         ITEM SM$HELPE07 U(042,48,12) = [0];      # LINE TERMINATOR     #
  105.  
  106.         ITEM SM$HELPM08 C(043,00,31) = [" "];    # LINE 8              #
  107.         ITEM SM$HELPN08 C(046,06,27) = ["ACTIVITY BUFFER. "]; 
  108.         ITEM SM$HELPE08 U(048,48,12) = [0];      # LINE TERMINATOR     #
  109.  
  110.         ITEM SM$HELPM09 C(049,00,29) = ["HI,ALL."];  # LINE 9          #
  111.         ITEM SM$HELPN09 C(051,54,29) = ["DISPLAY ALL AVAILABLE PAGES"]; 
  112.         ITEM SM$HELPE09 U(054,48,12) = [0];      # LINE TERMINATOR     #
  113.  
  114.         ITEM SM$HELPM10 C(055,00,31) = [" "];    # LINE 10             #
  115.         ITEM SM$HELPN10 C(058,06,27) = ["OF HISTORY BUFFER."];
  116.         ITEM SM$HELPF10 U(060,48,12) = [0];      # LINE TERMINATOR     #
  117.  
  118.         ITEM SM$HELPM11 C(061,00,29) = ["NO."];  # LINE 11             #
  119.         ITEM SM$HELPN11 C(063,54,29) = ["USED AFTER AN FI COMMAND TO"]; 
  120.         ITEM SM$HELPE11 U(066,48,12) = [0];      # LINE TERMINATOR     #
  121.  
  122.         ITEM SM$HELPM12 C(067,00,31) = [" "];    # LINE 12             #
  123.         ITEM SM$HELPN12 C(070,06,27) = ["REVERT BACK TO THE DEFAULT "]; 
  124.         ITEM SM$HELPE12 U(072,48,12) = [0];      # LINE TERMINATOR     #
  125.  
  126.         ITEM SM$HELPM13 C(073,00,31) = [" "];    # LINE 13             #
  127.         ITEM SM$HELPN13 C(076,06,27) = ["NPU LOAD FILE.  "];
  128.         ITEM SM$HELPE13 U(078,48,12) = [0];      # LINE TERMINATOR     #
  129.  
  130.         ITEM SM$HELPM14 C(079,00,29) = ["ST,NP=NN."];  # LINE 14       #
  131.         ITEM SM$HELPN14 C(081,54,29) = ["REQUEST CURRENT LOAD STATUS"]; 
  132.         ITEM SM$HELPE14 U(084,48,12) = [0];      # LINE TERMINATOR     #
  133.  
  134.         ITEM SM$HELPM15 C(085,00,31) = [" "];    # LINE 15             #
  135.         ITEM SM$HELPN15 C(088,06,27) = ["OF THE NPU NAMED NN "];
  136.         ITEM SM$HELPE15 U(090,48,12) = [0];      # LINE TERMINATOR     #
  137.  
  138.         ITEM SM$HELPM16 C(091,00,31) = [" "];    # LINE 16             #
  139.         ITEM SM$HELPN16 C(094,06,27) = ["RELATIVE TO THIS NS."];
  140.         ITEM SM$HELPE16 U(096,48,12) = [0];      # LINE TERMINATOR     #
  141.  
  142.         ITEM SM$HELPM17 C(097,00,29) = ["ST,NPS."];  # LINE 17         #
  143.         ITEM SM$HELPN17 C(099,54,29) = ["REQUEST STATUS OF ALL NPUS "]; 
  144.         ITEM SM$HELPE17 U(102,48,12) = [0];      # LINE TERMINATOR     #
  145.  
  146.         ITEM SM$HELPM18 C(103,00,31) = [" "];    # LINE 18             #
  147.         ITEM SM$HELPN18 C(106,06,27) = ["RELATIVE TO THIS NS."];
  148.         ITEM SM$HELPE18 U(108,48,12) = [0];      # LINE TERMINATOR     #
  149.  
  150.         ITEM SM$HELPM19 C(109,00,29) = ["*"];    # LINE 19             #
  151.         ITEM SM$HELPN19 C(111,54,29) = ["RETURN TO NAM MODE."]; 
  152.         ITEM SM$HELPE19 U(114,48,12) = [0];      # LINE TERMINATOR     #
  153.  
  154.         ITEM SM$HELPLWD U(115,00,60) = [0];      # ZERO WORD AT END    #
  155.         END 
  156.  
  157. CONTROL EJECT;
  158.  
  159.       $BEGIN
  160.       NS$DBG("STR");         # TRACE CALL                              #
  161.       $END
  162.  
  163.       IF NOT DCW$F$ASS[0] 
  164.       THEN                   # K DISPLAY NOT ASSIGNED                  #
  165.         BEGIN 
  166.         NETPUT(ABH,SM$HELP); # SEND HELP DISPLAY TO RIGHT SCREEN       #
  167.         MAX$PW = HOPLPL[0];            # SAVE THE LEFT AND RIGHT       #
  168.         MAX$RPW = HOPRPL[0];           #   PAGE LENGTHS                #
  169.         DCW$WORD[0] = 0;
  170.         REQTSB(PWB$HDRL,TSBADDR,TSBN); # ALLOCATE PAGE WAIT BUFFER     #
  171.         P<PWB$BUFFER> = TSBADDR;
  172.         PWB$HDRWD[0] = 0;    # INITIALIZE HEADER WORD OF PAGE WAIT BUFF#
  173.         PWB$ID[0] = PWB$IDENT;
  174.         PWB$WC[0] = PWB$HDRL; 
  175.         DCW$PWBTSB[0] = TSBN;# SAVE TSBN OF PWB  #
  176.         MOVEOK(TSBN);        # ALLOW MOVE ON PAGE WAIT BUFFER          #
  177.  
  178.         REQTSB(KDB$HDRL,TSBADDR,TSBN); # ALLOCATE K DISPLAY BUFFER     #
  179.         P<KDS$BUFFER> = TSBADDR;
  180.         KDB$HDRWD[0] = 0;    # INITIALIZE HDR WORD OF K-DISPLAY BUFF   #
  181.         KDB$ID[0] = KDB$IDENT;
  182.         KDB$WC[0] = KDB$HDRL; 
  183.         DCW$KDBTSB[0] = TSBN; 
  184.         MOVEOK(TSBN); # ALLOW KDB TO MOVE                              #
  185.         END 
  186.  
  187.       ELSE # NAM ERROR, HOP/START NOT ALLOWED AT THIS STATE            #
  188.         ERRCODE = NS$FEC(EC"ERR$SM", SMEC"HSM$HOPSM");
  189.  
  190.       RETURN; 
  191.       END # NS$STR  # 
  192.       TERM
cdc/nos2.source/nam5871/ns_str.txt · Last modified: 2023/08/05 17:22 by Site Administrator