Retro1.org codex

User Tools

Site Tools

Trace: • TXTCTCS
cdc:nos2.source:nam5871:txtctcs

Table of Contents

TXTCTCS

Table Of Contents

  • [00002] PROC TXTCTCS
  • [00003] TXTCTCS - TERMINAL CONFIGURATION SYMPL TEXT FOR CS.
  • [00007] TERMINAL CONFIGURATION SYMPL TEXT FOR CS.

Source Code

TXTCTCS.txt 
  1. *DECK     TXTCTCS 
  2. PROC TXTCTCS; 
  3. # TITLE TXTCTCS - TERMINAL CONFIGURATION SYMPL TEXT FOR CS.  #
  4.  
  5.       BEGIN  # TXTCTCS #
  6. # 
  7. ***   TXTCTCS - TERMINAL CONFIGURATION SYMPL TEXT FOR CS. 
  8. * 
  9. *     D. G. DEPEW.           81/08/18.
  10. * 
  11. *     THIS PROC GENERATES A SYMPL TEXT FOR COMPILING THE CS TERMINAL
  12. *     CONFIGURATION ROUTINES.  IT CONTAINS DEFINITIONS OF SYMBOLS,
  13. *     ITEMS, ARRAYS AND COMMON BLOCKS USED FOR TERMINAL CONFIGURATION 
  14. *     PROCESSING AND NCF I/O. 
  15. * 
  16. *     PROC TXTCTCS
  17. # 
  18.  
  19.       CONTROL STEXT;
  20.  
  21.       DEF LRHDRL$    #3#;    #LINE RECORD HEADER LENGTH                #
  22.       DEF TEHDRL$    #2#;    #TERMINAL ENTRY HEADER LENGTH             #
  23.       DEF DEHDRL$    #2#;    #DEVICE ENTRY HEADER LENGTH               #
  24.       DEF CTENQL$    #5#;    #CNF/TE/N LENGTH IN OUTGOING TRAFFIC Q    #
  25.       DEF CTEAQL$    #3#;    #CNF/TE/A LENGTH IN OUTGOING TRAFFIC Q    #
  26.       DEF RLIMAX$    #9#;    #RLI UPPER BOUND-- ALLOWS 10 LINE RECORDS #
  27.       DEF RLMAX$    #10#;    #READLIST UPPER BOUND-- 10 RECS + ZERO WD #
  28.       DEF NFSIZ$     #7#;    #FET TOTAL SIZE-- L FIELD = NFSIZ$ - 5    #
  29.       DEF NBLIM$   #256#;    #CIO BUFFER UPPER BOUND = 4 PRUS + 1 WORD #
  30.  
  31.  
  32.       COMMON NCFIO; 
  33.       BEGIN  # NCFIO #
  34.  
  35. # 
  36. ***   LINEREC - NCF LINE RECORD LINE PORTION FORMAT.
  37. * 
  38. *     LINEREC IS A TEMPLATE FOR THAT PART OF A LINE RECORD (THE FIRST 
  39. *     THREE WORDS) THAT CONTAINS LINE RELATED INFORMATION.
  40. * 
  41. *     THE FOLLOWING IS THE FORMAT OF THE LINE INFORMATION PORTION OF
  42. *     THE LINE RECORD.  AGAIN, THIS PORTION IS THREE WORDS LONG.
  43. * 
  44. *                 1         2         3         4         5 
  45. *       012345678901234567890123456789012345678901234567890123456789
  46. *TEXT 
  47. *T,42/ID,18/
  48. *T,40/ ,8/GC,12/WC
  49. *T,42/NAME,1/A,1/ ,8/NID,8/PORT 
  50. *ENDTEXT
  51. # 
  52.  
  53.       BASED ARRAY LINEREC [00:00] S(1); 
  54.         BEGIN 
  55. # 
  56. ****
  57. # 
  58.         ITEM LR$ID      C(00,00,07);  #LINE RECORD ID = *LNREC  *      #
  59.         ITEM LR$GC      U(01,40,08);  #GROUP COUNT                     #
  60.         ITEM LR$WC      U(01,48,12);  #LINE REC LENGTH EXCLUDING ID WD #
  61.         ITEM LR$NAME    C(02,00,07);  #LINE OR GROUP NAME              #
  62.         ITEM LR$AUTO    U(02,42,01);  #AUTOREC FLAG - 1=AUTO, 0=FIXED  #
  63.         ITEM LR$NID     U(02,44,08);  #OWNING NPU NODE ID              #
  64.         ITEM LR$PORT    U(02,52,08);  #PORT NUMBER                     #
  65. # 
  66. ****
  67. # 
  68.         END 
  69.  
  70.  
  71.  
  72.  
  73. # 
  74. ***   TRMINFO - NCF LINE RECORD TERMINAL PORTION FORMAT.
  75. * 
  76. *     TRMINFO IS A TEMPLATE FOR THOSE PARTS OF A LINE RECORD THAT 
  77. *     CONTAIN TERMINAL RELATED INFORMATION.  SEE NDL REFERENCE MANUAL.
  78. * 
  79. *     THE FOLLOWING IS THE FORMAT OF THE TERMINAL INFORMATION PORTION 
  80. *     OF THE LINE RECORD.  EACH ENTRY IS TWO WORD LONG. 
  81. * 
  82. *                 1         2         3         4         5 
  83. *       012345678901234567890123456789012345678901234567890123456789
  84. *TEXT 
  85. *T,18/ID,30/ ,12/WC 
  86. *T,4/TIP,4/STP,4/TSD,4/CST,8/A1,6/TC,30/
  87. *ENDTEXT
  88. # 
  89.  
  90.       BASED ARRAY TRMINFO [00:00] S(1); 
  91.         BEGIN 
  92. # 
  93. ****
  94. # 
  95.         ITEM TE$ID      C(00,00,03);  #TERMINAL INFO ID = *TRM*        #
  96.         ITEM TE$WC      U(00,48,12);  #TERM INFO LENGTH INCL DEVICES   #
  97.         ITEM TE$TIP     U(01,00,04);  #TIP TYPE                        #
  98.         ITEM TE$STIP    U(01,04,04);  #SUB-TIP TYPE                    #
  99.         ITEM TE$TSPD    U(01,08,04);  #TERMINAL SPEED                  #
  100.         ITEM TE$CSET    U(01,12,04);  #CODE SET                        #
  101.         ITEM TE$A1      U(01,16,08);  #ADDRESS ONE                     #
  102.         ITEM TE$TC      U(01,24,06);  #TERMINAL CLASS                  #
  103. # 
  104. ****
  105. # 
  106.         END 
  107.  
  108.  
  109.  
  110.  
  111. # 
  112. *** 
  113. *E
  114. ***   DEVNTRY - NCF LINE RECORD DEVICE PORTION FORMAT.
  115. * 
  116. *     DEVNTRY IS A TEMPLATE FOR THOSE PARTS OF A LINE RECORD THAT 
  117. *     CONTAIN DEVICE RELATED INFORMATION.  SEE NDL REFERENCE MANUAL.
  118. * 
  119. *     THE FOLLOWING IS THE FORMAT OF THE DEVICE INFORMATION PORTION OF
  120. *     THE LINE RECORD.  THIS IS A VARIABLE LENGTH ENTRY.  THE LENGTH
  121. *     DEPENDS ON THE NUMBER OF FN/FV PAIRS IN THE ENTRY.
  122. * 
  123. *               1         2         3         4         5 
  124. *       012345678901234567890123456789012345678901234567890123456789
  125. *TEXT 
  126. *T,WORD,18/ID,30/ ,12/WC
  127. *T,42/NAME,10/ ,8/FNFV
  128. *T,8/A2,8/DT,6/ ,1/C,1/I,36/FNFV-PAIRS--->
  129. *T,60/FNFV-PAIRS--->
  130. *ENDTEXT
  131. # 
  132.  
  133.       BASED ARRAY DEVNTRY [00:00] S(1); 
  134.         BEGIN 
  135. # 
  136. ****
  137. # 
  138.         ITEM DE$WORD    U(00,00,60);  #WHOLE WORD FOR MOVING FNFV PAIRS#
  139.         ITEM DE$ID      C(00,00,03);  #DEVICE ENTRY ID = *DEV*         #
  140.         ITEM DE$WC      U(00,48,12);  #DEVICE ENTRY LENGTH INCL FN/FV-S#
  141.         ITEM DE$NAME    C(01,00,07);  #DEVICE/TERMINAL NAME            #
  142.         ITEM DE$SUFFIX  U(01,30,12);  #PORT SUFFIX FOR GROUPED LINES   #
  143.         ITEM DE$FNFV    U(01,52,08);  #NUMBER OF FN/FV PAIRS           #
  144.         ITEM DE$A2DT    U(02,00,16);  #A2/DT COMBINED                  #
  145.         ITEM DE$A2      U(02,00,08);  #ADDRESS TWO                     #
  146.         ITEM DE$DT      U(02,08,08);  #DEVICE TYPE                     #
  147.         ITEM DE$CONFIG  B(02,22,01);  #DEVICE ALREADY CONFIGURED FLAG  #
  148.         ITEM DE$ISTAT   U(02,23,01);  #INITIAL STATUS OF DEVICE        #
  149. # 
  150. ****
  151. # 
  152.         END 
  153.  
  154.       ITEM NRDEV;            #NUM DEVS ACTUALLY CONFIGURED PER CNF/TE/R#
  155.  
  156.  
  157.  
  158.  
  159. # 
  160. *** 
  161. *E
  162. ***   READLIST AND RLI - NCF READ LIST AND READ LIST INDEX. 
  163. * 
  164. *     RLI CONTAINS THE RELATIVE PRU ADDRESSES OF ALL LINE RECORDS 
  165. *     CURRENTLY BEING READ AND POINTERS (THE LINE RECORD INDEX ENTRY
  166. *     ORDINALS) BACK TO THE CORRESPONDING NCF READ REQUEST QUEUE
  167. *     ENTRIES.  THE BACK POINTERS ARE REQUIRED BECAUSE RLI IS SORTED
  168. *     INTO ASCENDING RELATIVE PRU ADDRESS ORDER (FOR MORE EFFICIENT I/O)
  169. *     PRIOR TO ISSUEING THE READLS FUNCTION.
  170. * 
  171. *     READLIST IS THE ACTUAL READ LIST USED BY THE CIO READLS FUNCTION. 
  172. *     IT CONTAINS ONLY THE RELATIVE PRU ADDRESSES IN SORTED ORDER.  IT
  173. *     IS REQUIRED BECAUSE NOS WILL NOT NECESSARILY PRESERVE THE LINE
  174. *     RECORD INDEX ENTRY ORDINALS.
  175. # 
  176.  
  177.       ARRAY RLI [0:RLIMAX$] S(1); 
  178.         BEGIN 
  179.         ITEM RLI$RPA    U(00,00,30);  #RELATIVE PRU ADDRESS            #
  180.         ITEM RLI$LRIORD U(00,30,30);  #LINE RECORD INDEX ENTRY ORDINAL #
  181.         END 
  182.  
  183.       ARRAY READLIST [0:RLMAX$] S(1); 
  184.         ITEM RL$RPA     U(00,00,60);  #RELATIVE PRU ADDRESS            #
  185.  
  186.       ITEM RLCOUNT;          #NUMBER OF LINE RECS TO BE READ THIS TIME #
  187.       ITEM RLIORD;           #RLI NTRY CORRES TO LINREC BEING DEBLOCKED#
  188.  
  189.  
  190.  
  191.  
  192. # 
  193. ***   NCFFET AND NCFBUF - FET AND CIRCULAR BUFFER FOR THE NCF.
  194. * 
  195. *     THE NCF FET AND CIRCULAR BUFFER ARE DEFINED IN A GLOBAL LABELLED
  196. *     COMMON AREA BECAUSE THE NCF IS USED (READ) BY BOTH THE CONFIGURE
  197. *     TERMINAL ROUTINES AND BY THE INITIALIZATION ROUTINES.  THESE
  198. *     ARRAYS ARE COMPILED INTO A TEXT.  HENCE, ALL PRESETTING MUST BE 
  199. *     DONE AT INITIALIZATION TIME.
  200. # 
  201.  
  202.       ARRAY NCFFET [00:00] S(NFSIZ$); 
  203.         BEGIN 
  204.         ITEM NF$WORD    U(00,00,60);  #FIRST WORD OF FET               #
  205.         ITEM NF$LFN     C(00,00,03);  #FILE NAME--WILL BE *NCF*        #
  206.         ITEM NF$ZERO    U(00,18,24);  #                                #
  207.         ITEM NF$LNAT    U(00,42,08);  #COMB LEVEL NR AND ABN TERM CODE #
  208.         ITEM NF$CODE    U(00,50,10);  #CIO FUNCTION CODE               #
  209.         ITEM NF$CBIT    B(00,59,01);  #I/O COMPLETE BIT                #
  210.         ITEM NF$WORD1   U(01,00,60);  #WORD ONE OF FET                 #
  211.         ITEM NF$R       B(01,12,01);  #RANDOM ACCESS FLAG              #
  212.         ITEM NF$L       U(01,36,06);  #FET LENGTH IN EXCESS OF 5 WORDS #
  213.         ITEM NF$FIRST   U(01,42,18);  #ADDRESS OF FIRST WORD OF BUFFER #
  214.         ITEM NF$IN      U(02,00,60);  #NEXT DATA IN POINTER            #
  215.         ITEM NF$OUT     U(03,00,60);  #NEXT DATA OUT POINTER           #
  216.         ITEM NF$WORD4   U(04,00,60);  #WORD FOUR OF FET                #
  217.         ITEM NF$LIMIT   U(04,42,18);  #LAST WORD ADDRESS +1 OF BUFFER  #
  218.         ITEM NF$LA      U(05,00,60);  #LIST ADDRESS(STORED AS WHOLE WD)#
  219.         ITEM NF$WORD6   U(06,00,60);  #WORD SIX OF FET                 #
  220.         ITEM NF$RR      U(06,31,29);  #RANDOM REQUEST RELATIVE PRU ADDR#
  221.         END 
  222.  
  223.       ARRAY NCFBUF [00:NBLIM$] S(1);
  224.         ITEM NB$WORD    U(00,00,60);  #WHOLE WORD IS ALL THAT IS NEEDED#
  225.  
  226.       END  # NCFIO #
  227.  
  228.       END  # TXTCTCS #
  229.  
  230.       TERM
cdc/nos2.source/nam5871/txtctcs.txt · Last modified: 2023/08/05 17:23 by Site Administrator