Table of Contents

CS

Table Of Contents

  • [00009] PRGM CS
  • [00010] CS - COMMUNICATION SUPERVISOR.
  • [00015] COMMUNICATION SUPERVISOR.
  • [00041] PROC CSSDNS
  • [00042] PROC CSTSCT
  • [00043] PROC CSTRCT
  • [00044] PROC CSTDNQ
  • [00045] PROC CSTSNR
  • [00046] PROC LOADREQ
  • [00047] PROC SSACNI
  • [00048] PROC SSCRTR
  • [00049] PROC SSOCOL
  • [00050] PROC SSOEOP
  • [00051] PROC SSSPAT
  • [00052] PROC SSSPES

Source Code

CS.txt 
  1. *DECK     CS
  2. OVERLAY(0,0,OV=6) 
  3. USETEXT  TEXTSS 
  4. USETEXT  TEXTCS 
  5. USETEXT  TXTCTCS
  6. USETEXT  TXTSMCS
  7. USETEXT TXCMDCS 
  8. USETEXT  TXTAPSS
  9. PRGM CS;
  10. # TITLE CS - COMMUNICATION SUPERVISOR.                             #
  11.  
  12.       BEGIN # CS #
  13.       CONTROL PRESET; 
  14. # 
  15. ***   CS - COMMUNICATION SUPERVISOR.
  16. * 
  17. *     A. LIM.    81/10/20.
  18. * 
  19. *     THE FUNCTION OF THE MAIN PROGRAM IS TO LOAD AND EXECUTE THE 
  20. *     INITIALIZATION OVERLAY AND TO BE THE SKELETON FOR THE MAIN (0,0)
  21. *     OVERLAY.
  22. * 
  23. *     PRGM CS 
  24. * 
  25. *     ENTRY   NONE. 
  26. * 
  27. *     EXIT    THERE IS NO EXIT IN THE USUAL SENSE.  THE MAIN PROGRAM
  28. *             TRANSFERS CONTROL TO THE INITIALIZATION OVERLAY, WHICH, 
  29. *             WHEN COMPLETE, TRANSFERS CONTROL TO THE PROGRAM EXECUTION 
  30. *             SEQUENCER (*SSSPES*), WHICH NEVER RETURNS.
  31. # 
  32.  
  33.  
  34.  
  35.  
  36. # 
  37. ****  PROC CS XREF LIST.
  38. # 
  39.       XREF
  40.         BEGIN 
  41.         PROC CSSDNS;         # CS- DISPATCH NPU SUPERVISION SM         #
  42.         PROC CSTSCT;         # CS- SELECT CORRECT TERMINAL             #
  43.         PROC CSTRCT ; 
  44.         PROC CSTDNQ ; 
  45.         PROC CSTSNR;         # CS- START NCF READ REQUEST              #
  46.         PROC LOADREQ;        # MACREL- CALL SYSTEM LOADER VIA PPU      #
  47.         PROC SSACNI;         # SS- CONTROL NETWORK INTERFACE           #
  48.         PROC SSCRTR;         # SS- REMOVE TIMER REQUEST                #
  49.         PROC SSOCOL;         # SS- CONTROL OVERLAY LOADING             #
  50.         PROC SSOEOP;         # SS- EXECUTE OVERLAY PROGRAM             #
  51.         PROC SSSPAT;         # PROCESS ABNORMAL TERMINATION            #
  52.         PROC SSSPES;         # SS- PROGRAM EXECUTION SEQUENCER         #
  53.         END 
  54. # 
  55. ****
  56. # 
  57.  
  58.  
  59.       ARRAY LDREQ [00:00] S(2);        # LOADREQ PARAMETER BLOCK       #
  60.         BEGIN 
  61.         ITEM LDR$NAME   C(00,00,07);                  # OVLY/FILE NAME #
  62.         ITEM LDR$INAM   C(00,00,06) = ["CSLSIT"];     # INIT OVL NAME  #
  63.         ITEM LDR$ZFIL   U(00,36,06) = [0];
  64.         ITEM LDR$RES1   U(00,42,18) = [0];            # UNUSED         #
  65.         ITEM LDR$L1     U(01,00,06) = [O"77"];        # PRIME OVL LEV  #
  66.         ITEM LDR$UNUSED U(01,06,11) = [0];            # L2,N,RES,S,D   #
  67.         ITEM LDR$U      B(01,17,01) = [TRUE];         # LOAD OPTION    #
  68.         ITEM LDR$V      B(01,18,01) = [TRUE];         # OVERLAY LD FLG #
  69.         ITEM LDR$RES2   U(01,19,04) = [0];            # RESERVED       #
  70.         ITEM LDR$E      B(01,23,01) = [TRUE];         # AUTO EXECUTE   #
  71.         ITEM LDR$LWAFWA U(01,24,36) = [0];            # LWA, FWA       #
  72.         END 
  73.  
  74.  
  75.       SSSPAT;                # SET UP AIP TRACE FILE FLUSH UPON ABORT  #
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82. # 
  83. *     CHECK SOURCE OF PROGRAM LOAD.  LOAD AND EXECUTE INITIALIZATION
  84. *     OVERLAY FROM SAME SOURCE. 
  85. # 
  86.       P<LDRINFO> = O"64"; 
  87.       IF NOT LDI$LB[0]
  88.       THEN                             # CS RUNNING FROM A FILE       # 
  89.         BEGIN 
  90.         LDR$NAME[0] = LDI$NAME[0];     # FILE NAME                     #
  91.         LDR$U[0] = FALSE; 
  92.         END 
  93.  
  94.       LOADREQ (LDREQ);       # LOAD AND EXECUTE INITIALIZATION OVERLAY #
  95.  
  96.  
  97. # 
  98. *     THE FOLLOWING SUBROUTINE CALLS ARE NEVER EXECUTED (BECAUSE THERE
  99. *     IS NO RETURN FROM THE *LOADREQ* CALL).  THE CALLS ARE INCLUDED
  100. *     HERE IN ORDER TO FORM THE MAIN (0,0) OVERLAY. 
  101. # 
  102.       SSSPES;                # PROGRAM EXECUTION SEQUENCER             #
  103.  
  104.       SSACNI;                # CONTROL NETWORK INTERFACE               #
  105.  
  106.       SSCRTR;    # REMOVE TIMER REQUEST                                #
  107.  
  108.       CSSDNS;    # DISPATCH NPU SUPERVISION SM                         #
  109.  
  110.       CSTSCT;    # SELECT CORRECT TERMINAL                             #
  111.  
  112.       CSTRCT;                      # RESET CHARACTERISTIC OF TERM      #
  113.  
  114.       CSTDNQ;                      # DISPATCHING NCF DATA              #
  115.  
  116.       CSTSNR;    # START NCF READ REQUEST                              #
  117.  
  118.       SSOCOL;    # CONTROL OVERLAY LOADING                             #
  119.  
  120.       SSOEOP;    # EXECUTE OVERLAY PROGRAM                             #
  121.  
  122.       END  # CS # 
  123.  
  124.       TERM