User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:valnet

Deck VALNET

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.valnet  +++|          IDENT  VALNET,FET,VALNET
00002  M01S00002.valnet  +++|          ABS
00003  M01S00003.valnet  +++|          SYSCOM B1
00004  M01S00004.valnet  +++|          SST
00005  M01S00005.valnet  +++|*COMMENT  VALNET - VALIDATE TERMINAL DESCRIPTION FILE.
Line S00006 Modification History
M01 (Added by) valnet
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1972.
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.valnet  +++|          TITLE  VALNET - VALIDATE TERMINAL NETWORK DESCRIPTION FILE.
00009  M01S00008.valnet  +++| VALNET   SPACE  4
00010  M01S00009.valnet  +++|***       VALNET - VALIDATE TERMINAL NETWORK DESCRIPTION FILE.
00011  M01S00010.valnet  +++|*         J.C. BOHNHOFF. 72/09/09.
00012  M01S00011.valnet  +++| VALNET   SPACE  4
00013  M01S00012.valnet  +++|***              VALNET READS A TERMINAL NETWORK DESCRIPTION WRITTEN
00014  M01S00013.valnet  +++|*         AS A SERIES OF DIRECTIVES DEFINED BY THE COMMON DECK
00015  M01S00014.valnet  +++|*         *COMCRTN*. ERRORS IN NETWORK DESCRIPTION ARE DIAGNOSED AND
00016  M01S00015.valnet  +++|*         ERROR MESSAGES ARE PLACED ON A LIST FILE. IF NO ERRORS ARE
00017  M01S00016.valnet  +++|*         ENCOUNTERED, NO LISTING IS PRODUCED.
00018  M01S00017.valnet  +++|          SPACE  4
00019  M01S00018.valnet  +++|***              CONTROL CARD CALL.
00020  M01S00019.valnet  +++|*
00021  M01S00020.valnet  +++|*         VALNET(P1,P2,P3)
00022  M01S00021.valnet  +++|*
00023  M01S00022.valnet  +++|*         WHERE PI MAY BE -
00024  M01S00023.valnet  +++|*
00025  M01S00024.valnet  +++|*         P      TERMINAL NETWORK DESCRIPTION FILE NAME.
00026  M01S00025.valnet  +++|*                P           FILE *COMPILE*.
00027  M01S00026.valnet  +++|*                P=FN        FILE *FN*.
00028  M01S00027.valnet  +++|*                ABSENT      FILE *NETWXX*.
00029  M01S00028.valnet  +++|*                            XX = MACHINE ID.
00030  M01S00029.valnet  +++|*
00031  M01S00030.valnet  +++|*         L      FILE TO RECEIVE LIST OF ERRORS.
00032  M01S00031.valnet  +++|*                L           FILE *LIST*
00033  M01S00032.valnet  +++|*                L=FN        FILE *FN*.
00034  M01S00033.valnet  +++|*                L=0         NO LIST.
00035  M01S00034.valnet  +++|*                ABSENT      FILE *OUTPUT*.
00036  M01S00035.valnet  +++|*
00037  M01S00036.valnet  +++|*         NR     DO NOT REWIND DESCRIPTION FILE BEFORE READING.
00038  M01S00037.valnet  +++|*                NR          DO NOT REWIND.
00039  M01S00038.valnet  +++|*                ABSENT      REWIND FIRST.
00040  M01S00039.valnet  +++|          SPACE  4
00041  M01S00040.valnet  +++|***              LISTABLE OUTPUT.
00042  M01S00041.valnet  +++|*         EACH ERROR ENCOUNTERED PRODUCES 2 LINES OF LISTING. THE
00043  M01S00042.valnet  +++|*         LINES CONSIST OF -
00044  M01S00043.valnet  +++|*                1) THE INPUT LINE CONTAINING THE ERROR.
00045  M01S00044.valnet  +++|*                   SYNTACTICAL ERRORS CAUSE THE LINE CONTAINING THE
00046  M01S00045.valnet  +++|*                   ERROR TO BE LISTED. HOWEVER, FOR LOGICAL ERRORS
00047  M01S00046.valnet  +++|*                   (E.G. NOT DEFINING MULTIPLEXOR CHANNEL OR DEFINING
00048  M01S00047.valnet  +++|*                   DUPLICATE POLLING CODES) THE CARD CURRENTLY IN THE
00049  M01S00048.valnet  +++|*                   BUFFER IS LISTED SINCE THIS TYPE OF ERROR IS NOT
00050  M01S00049.valnet  +++|*                   DETECTED UNTIL IT IS CERTAIN THAT THE LAST STATEMENT
00051  M01S00050.valnet  +++|*                   IS COMPLETE. THE CARD LISTED IN THIS CASE IS THE
00052  M01S00051.valnet  +++|*                   CARD AFTER THE BAD CARD IF THERE IS ONLY ONE
00053  M01S00052.valnet  +++|*                   DESCRIPTION PER CARD. ERRORS THAT PERTAIN TO
00054  M01S00053.valnet  +++|*                   DUPLICATE POLLING CODES, POLLED/NON-POLLED TERMINALS
00055  M01S00054.valnet  +++|*                   ON THE SAME LINE, AND MORE THAN ONE NON-POLLED
00056  M01S00055.valnet  +++|*                   TERMINAL ON A LINE CONTAIN A CARD NUMBER OF A
00057  M01S00056.valnet  +++|*                   PREVIOUSLY DEFINED TERMINAL THAT CAUSED THE ERROR
00058  M01S00057.valnet  +++|*                   TO BE DETECTED. IF ONLY ONE DESCRIPTION IS GIVEN ON
00059  M01S00058.valnet  +++|*                   EACH CARD, THIS CARD NUMBER WILL BE CORRECT,
00060  M01S00059.valnet  +++|*                   OTHERWISE IT WILL BE ONE LESS THAN THE CORRECT
00061  M01S00060.valnet  +++|*                   NUMBER.
00062  M01S00061.valnet  +++|*                2) CARD NUMBER OF OFFENDING CARD.
00063  M01S00062.valnet  +++|*                   THIS IS SUBJECT TO THE SAME EXCEPTIONS AS NOTED
00064  M01S00063.valnet  +++|*                   ABOVE IN ITEM 1.
00065  M01S00064.valnet  +++|*                3) A DIAGNOSTIC MESSAGE EXPLAINING THE ERROR.
00066  M01S00065.valnet  +++|*
00067  M01S00066.valnet  +++|*         LIST LINES ARE FORMATTED FOR PRINTING ON A 72 COLUMN DEVICE
00068  M01S00067.valnet  +++|*         EXCEPT FOR THOSE INPUT LINES THAT EXCEED THIS LENGTH.
00069  M01S00068.valnet  +++|          SPACE  4
00070  M01S00069.valnet  +++|***              DAYFILE MESSAGES ISSUED.
00071  M01S00070.valnet  +++|*
00072  M01S00071.valnet  +++|*         * NO DESCRIPTIONS FOUND.*
00073  M01S00072.valnet  +++|*                NO MUX/TERMINAL DESCRIPTIONS WERE FOUND ON THE
00074  M01S00073.valnet  +++|*                DESCRIPTION RECORD.
00075  M01S00074.valnet  +++|*         * FILE NAME CONFLICT.*
00076  M01S00075.valnet  +++|*                THE *P* FILE NAME IS THE SAME AS THE *L* FILE NAME.
00077  M01S00076.valnet  +++|*         * TERMINAL DESCRIPTION ERRORS.*
00078  M01S00077.valnet  +++|*                ERRORS WERE FOUND IN THE TERMINAL DESCRIPTIONS.
00079  M01S00078.valnet  +++|*                CONSULT LISTING FOR DIAGNOSTIC MESSAGES.
00080  M01S00079.valnet  +++|*         * VALNET ARGUMENT ERROR.*
00081  M01S00080.valnet  +++|*                THE VALNET CONTROL CARD CONTAINS UNKNOWN OR
00082  M01S00081.valnet  +++|*                INCORRECTLY USED ARGUMENTS.
00083  M01S00082.valnet  +++|*         * VALNET COMPLETE.*
00084  M01S00083.valnet  +++|*                ALL DESCRIPTIONS HAVE BEEN VALIDATED AS CORRECT.
00085  M01S00084.valnet  +++|*         * TABLE OVERFLOW.*
00086  M01S00085.valnet  +++|*                NOT ENOUGH STORAGE WAS AVAILABLE TO HOLD ALL TERMINAL
00087  M01S00086.valnet  +++|*                DESCRIPTION TABLE ENTRIES. RERUN WITH GREATER FIELD
00088  M01S00087.valnet  +++|*                LENGTH.
00089  M01S00088.valnet  +++|          TITLE  SYMBOL DEFINITIONS.
Line S00089 Modification History
M01 (Added by) valnet
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00090  M02S00089.ns22000 ---|*         SYMBOL DEFINITIONS.
Line S00090 Modification History
M01 (Added by) valnet
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00091  M02S00090.ns22000 ---|
Line S00091 Modification History
M01 (Added by) valnet
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00092  M02S00091.ns22000 ---|
00093  M01S00001.ns22000 +++| BUFFERS  SPACE  4,10
00094  M01S00092.valnet  +++|*         BUFFER SIZES.
00095  M01S00093.valnet  +++|
00096  M01S00094.valnet  +++| PBUFL    EQU    1001B       DESCRIPTION FILE
00097  M01S00095.valnet  +++| OBUFL    EQU    401B        LIST FILE
00098  M01S00096.valnet  +++|          LIST   X
00099  M01S00097.valnet  +++|*CALL,COMSNET
Line S00098 Modification History
M01 (Added by) valnet
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00100  M02S00098.ns22000 ---|*CALL     COMSREM            INTERACTIVE SUBSYSTEM PARAMETERS
00101  M01S00099.valnet  +++|          LIST   -X
00102  M01S00100.valnet  +++|          TITLE  MACRO DEFINITIONS.
00103  M01S00101.valnet  +++|*         SYSTEM MACRO DEFINITIONS.
00104  M01S00102.valnet  +++|
00105  M01S00103.valnet  +++|
00106  M01S00104.valnet  +++|*CALL     COMCMAC
00107  M01S00105.valnet  +++|*CALL     COMCCMD
00108  M01S00106.valnet  +++|*CALL,COMCMTM
00109  M01S00107.valnet  +++|          TITLE  FET AND TABLE DEFINITIONS.
00110  M01S00108.valnet  +++|*         FET DEFINITIONS.
00111  M01S00109.valnet  +++|
00112  M01S00110.valnet  +++|
00113  M01S00111.valnet  +++|          ORG    101B
00114  M01S00112.valnet  +++|
00115  M01S00113.valnet  +++| FET      BSS    0
00116  M01S00114.valnet  +++|
00117  M01S00115.valnet  +++| P        BSS    0           DESCRIPTION FILE
00118  M01S00116.valnet  +++| NETWXX   FILEC  PBUF,PBUFL,(FET=8)
00119  M01S00117.valnet  +++|
00120  M01S00118.valnet  +++| O        BSS    0           LIST FILE
00121  M01S00119.valnet  +++| OUTPUT   FILEC  OBUF,OBUFL,(FET=8)
00122  M01S00120.valnet  +++|          SPACE  4
00123  M01S00121.valnet  +++|**        MANAGED TABLE DEFINITION.
00124  M01S00122.valnet  +++|
00125  M01S00123.valnet  +++|
00126  M01S00124.valnet  +++|**        TTED - TABLE OF TERMINAL DESCRIPTIONS.
00127  M01S00125.valnet  +++|*         TWO WORDS PER ENTRY IN FORMAT -
00128  M01S00126.valnet  +++|*
00129  M01S00127.valnet  +++|*T TTED   6/ CH,3/EQ,12/  PN,12/ ,24/  PC,3/IS
Figure TTED

023262729IS PC 3038395051535459 PNEQ CH

00130  M01S00128.valnet  +++|*T        60/  CARD
Figure

029 CARD3059 CARD

00131  M01S00129.valnet  +++|*
00132  M01S00130.valnet  +++|*         WHERE -
00133  M01S00131.valnet  +++|*                CH= MUX CHANNEL.
00134  M01S00132.valnet  +++|*                EQ= MUX EQUIPMENT.
00135  M01S00133.valnet  +++|*                PN= PORT NUMBER.
00136  M01S00134.valnet  +++|*                PC= POLLING CODE.
00137  M01S00135.valnet  +++|*                IS= INITIAL ON/OFF STATUS.
00138  M01S00136.valnet  +++|*                CARD= CARD NUMBER.
00139  M01S00137.valnet  +++|
00140  M01S00138.valnet  +++|
00141  M01S00139.valnet  +++| TTED     TABLE  2
Line S00140 Modification History
M01 (Added by) valnet
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00142  M02S00140.ns22000 ---|
Line S00141 Modification History
M01 (Added by) valnet
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00143  M02S00141.ns22000 ---|*         THE SYMBOL, *ABMA*,IS INCLUDED ONLY TO ALLOW ASSEMBLY OF
Line S00142 Modification History
M01 (Added by) valnet
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00144  M02S00142.ns22000 ---|*         *VALNET*.  IT ACTUALLY OCCURS WITHIN THE BODY OF *IAFEX*
Line S00143 Modification History
M01 (Added by) valnet
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00145  M02S00143.ns22000 ---|*         INITIALIZATION AND IS ALTERED BY *COMCRTN*.
Line S00144 Modification History
M01 (Added by) valnet
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00146  M02S00144.ns22000 ---|
Line S00145 Modification History
M01 (Added by) valnet
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00147  M02S00145.ns22000 ---| ABMA     CON    0           ADDITIONAL PLT WORDS FOR HIGH SPEED LINES
00148  M01S00146.valnet  +++|          TITLE  MAIN PROGRAM.
00149  M01S00147.valnet  +++|*         MAIN PROGRAM.
00150  M01S00148.valnet  +++|
00151  M01S00149.valnet  +++|
00152  M01S00150.valnet  +++| VALNET   RJ     PRS         PRESET PROGRAM
00153  M01S00151.valnet  +++|          RJ     RTN         READ TERMINAL DESCRIPTIONS
00154  M01S00152.valnet  +++|          SX2    =C* NO DESCRIPTIONS FOUND.*
00155  M01S00153.valnet  +++|          ZR     X4,VAL1     IF NO DESCRIPTIONS PROCESSED
00156  M01S00154.valnet  +++|          SX2    =C* VALNET COMPLETE.*
00157  M01S00155.valnet  +++|          ZR     X1,VAL2     IF NO ERRORS
00158  M01S00156.valnet  +++|          RJ     CDD         CONVERT ERROR COUNT
00159  M01S00157.valnet  +++|          SA6    VALC        STORE ERROR COUNT
00160  M01S00158.valnet  +++|          RJ     CEP         CHECK END OF PAGE
00161  M01S00159.valnet  +++|          WRITEW O,VALA,B1   DOUBLE SPACE
00162  M01S00160.valnet  +++|          WRITEW O,VALB,VALBL WRITE ERROR COUNT
00163  M01S00161.valnet  +++|          WRITER O           END OUTPUT RECORD
00164  M01S00162.valnet  +++|          SX2    =C* TERMINAL DESCRIPTION ERRORS.*
00165  M01S00163.valnet  +++| VAL1     MESSAGE X2
00166  M01S00164.valnet  +++|          ABORT
00167  M01S00165.valnet  +++|
00168  M01S00166.valnet  +++| VAL2     MESSAGE X2         ISSUE COMPLETION MESSAGE
00169  M01S00167.valnet  +++|          ENDRUN
00170  M01S00168.valnet  +++|
00171  M01S00169.valnet  +++| LN       CON    LINP        CURRENT LINE NUMBER ON LIST PAGE
00172  M01S00170.valnet  +++| PG       CON    1           CURRENT LIST PAGE
00173  M01S00171.valnet  +++| VALA     DIS    ,*0 *
00174  M01S00172.valnet  +++| VALB     DATA   10H        //
00175  M01S00173.valnet  +++| VALC     CON    0           ERROR COUNT
00176  M01S00174.valnet  +++|          DATA   20H ERRORS ENCOUNTERED.
00177  M01S00175.valnet  +++|          CON    0
00178  M01S00176.valnet  +++| VALBL    EQU    *-VALB
00179  M01S00177.valnet  +++| CEP      TITLE  SUBROUTINES.
00180  M01S00178.valnet  +++|**        CEP - CHECK END OF LISTING PAGE.
00181  M01S00179.valnet  +++|*
00182  M01S00180.valnet  +++|*         ENTRY  NONE.
00183  M01S00181.valnet  +++|*
00184  M01S00182.valnet  +++|*         EXIT   NONE.
00185  M01S00183.valnet  +++|*
00186  M01S00184.valnet  +++|*         USES   B - 7.
00187  M01S00185.valnet  +++|*                A - 1,6.
00188  M01S00186.valnet  +++|*                X - 1,6,7.
00189  M01S00187.valnet  +++|*
00190  M01S00188.valnet  +++|*         CALLS  CDD,SYS=,WTW.
00191  M01S00189.valnet  +++|
00192  M01S00190.valnet  +++|
00193  M01S00191.valnet  +++| CEP1     SA7    LN          STORE UPDATED LINE COUNT
00194  M01S00192.valnet  +++|
00195  M01S00193.valnet  +++| CEP      SUBR               ENTRY/EXIT
00196  M01S00194.valnet  +++|          SA1    LN          ADVANCE LINE COUNT
00197  M01S00195.valnet  +++|          SB7    X1-LINP     CHECK END OF PAGE
00198  M01S00196.valnet  +++|          SX7    X1+3
00199  M01S00197.valnet  +++|          NG     B7,CEP1     IF NOT END OF PAGE
00200  M01S00198.valnet  +++|          SA1    PG          CONVERT PAGE NUMBER
00201  M01S00199.valnet  +++|          RJ     CDD
00202  M01S00200.valnet  +++|          SA1    CEPE        MERGE *PAGE*
00203  M01S00201.valnet  +++|          BX6    X1-X6
00204  M01S00202.valnet  +++|          SA6    CEPD
00205  M01S00203.valnet  +++|          CLOCK  CEPC        SET TIME
00206  M01S00204.valnet  +++|          WRITEW O,CEPA,CEPAL WRITE PAGE HEADER
00207  M01S00205.valnet  +++|          SA1    PG          ADVANCE PAGE NUMBER
00208  M01S00206.valnet  +++|          SX7    4           RESET LINE COUNT
00209  M01S00207.valnet  +++|          SX6    X1+B1
00210  M01S00208.valnet  +++|          SA6    A1
00211  M01S00209.valnet  +++|          JP     CEP1
00212  M01S00210.valnet  +++|
00213  M01S00211.valnet  +++| CEPA     DATA   10H1
00214  M01S00212.valnet  +++|          DATA   30HTERMINAL DESCRIPTION ERRORS.
00215  M01S00213.valnet  +++| CEPB     CON    0           DATE
00216  M01S00214.valnet  +++| CEPC     CON    0           TIME
00217  M01S00215.valnet  +++| CEPD     CON    0           PAGE
00218  M01S00216.valnet  +++|          CON    0
00219  M01S00217.valnet  +++|          DIS    ,*0 *
00220  M01S00218.valnet  +++| CEPAL    EQU    *-CEPA
00221  M01S00219.valnet  +++| CEPE     CON    5LPAGE &5L
00222  M01S00220.valnet  +++| MEP      SPACE  4
00223  M01S00221.valnet  +++|**        MEP - PARTIAL SEARCH OF MANAGED TABLE.
00224  M01S00222.valnet  +++|*
00225  M01S00223.valnet  +++|*         ENTRY  (X6)= ENTRY FOR SEARCH.
00226  M01S00224.valnet  +++|*                (X0)= MASK.
00227  M01S00225.valnet  +++|*                (X2)= SEARCH LIMIT.
00228  M01S00226.valnet  +++|*                (X7)= STARTING ENTRY ORDINAL FOR SEARCH.
00229  M01S00227.valnet  +++|*                (B7)= WORDS PER ENTRY.
00230  M01S00228.valnet  +++|*                (A0)= TABLE NUMBER.
00231  M01S00229.valnet  +++|*
00232  M01S00230.valnet  +++|*         EXIT   (X2)= ENTRY IF FOUND, ELSE ZERO.
00233  M01S00231.valnet  +++|*                (A2)= ADDRESS OF ENTRY.
00234  M01S00232.valnet  +++|*
00235  M01S00233.valnet  +++|*         USES   B - NONE.
00236  M01S00234.valnet  +++|*                A - 1,2,6.
00237  M01S00235.valnet  +++|*                X - 1,2,3,4,7.
00238  M01S00236.valnet  +++|*
00239  M01S00237.valnet  +++|*         CALLS  NONE.
00240  M01S00238.valnet  +++|
00241  M01S00239.valnet  +++|
00242  M01S00240.valnet  +++| MEP1     BX4    X0*X2
00243  M01S00241.valnet  +++|          SA1    A1+B7       READ NEXT ENTRY
00244  M01S00242.valnet  +++|          NO
00245  M01S00243.valnet  +++|          BX2    X6-X1
00246  M01S00244.valnet  +++|          NZ     X4,MEP1     LOOP TO MATCH
00247  M01S00245.valnet  +++|          SX4    A1-B7       CHECK ENTRY FOUND
00248  M01S00246.valnet  +++|          BX2    X4-X3
00249  M01S00247.valnet  +++|          ZR     X2,MEP2     IF NOT FOUND
00250  M01S00248.valnet  +++|          SA2    X4+         RETURN ENTRY
00251  M01S00249.valnet  +++| MEP2     SA7    A6+         RESTORE (LWA+1)
00252  M01S00250.valnet  +++|
00253  M01S00251.valnet  +++| MEP      PS                 ENTRY/EXIT
00254  M01S00252.valnet  +++|          SA1    FTAB+A0     SET SEARCH PARAMETERS
00255  M01S00253.valnet  +++|          IX7    X1+X7
00256  M01S00254.valnet  +++|          IX3    X1+X2       SET SEARCH KEY IN LWA+1
00257  M01S00255.valnet  +++|          SA2    X3          SAVE (LWA+1)
00258  M01S00256.valnet  +++|          SA6    X3
00259  M01S00257.valnet  +++|          SA1    X7          READ FIRST ENTRY
00260  M01S00258.valnet  +++|          LX7    X2
00261  M01S00259.valnet  +++|          BX2    X6-X1
00262  M01S00260.valnet  +++|          EQ     MEP1
00263  M01S00261.valnet  +++| RTN      SPACE  4
00264  M01S00262.valnet  +++|**        RTN - READ TERMINAL DESCRIPTIONS.
00265  M01S00263.valnet  +++|*
00266  M01S00264.valnet  +++|*         ENTRY  NONE.
00267  M01S00265.valnet  +++|*
00268  M01S00266.valnet  +++|*         EXIT   (X1)= ERROR COUNT.
00269  M01S00267.valnet  +++|*                (X4)= 0 IF NO CARDS PROCESSED.
00270  M01S00268.valnet  +++|*
00271  M01S00269.valnet  +++|*         USES   B - 7.
00272  M01S00270.valnet  +++|*                A - 0,1,2,3,6,7.
00273  M01S00271.valnet  +++|*                X - 0,1,2,3,4,5,6,7.
00274  M01S00272.valnet  +++|*
00275  M01S00273.valnet  +++|*         CALLS  ATD,CEP,WTW,WTS,CDD,WTC,ADW,MEP.
00276  M01S00274.valnet  +++|
00277  M01S00275.valnet  +++|
00278  M01S00276.valnet  +++| RTN12    SA1    RTNF        RETURN ERROR COUNT
00279  M01S00277.valnet  +++|
00280  M01S00278.valnet  +++| RTN      SUBR               ENTRY/EXIT
00281  M01S00279.valnet  +++| RTN1     SX5    P           SET FET ADDRESS
00282  M01S00280.valnet  +++|          SA0    PTRN        SET TABLE POINTER ADDRESS
00283  M01S00281.valnet  +++|          RJ     ATD         ASSEMBLE DESCRIPTION
00284  M01S00282.valnet  +++|          NZ     X1,RTN10    IF ERROR
00285  M01S00283.valnet  +++|
00286  M01S00284.valnet  +++|*         ENTER DESCRIPTION INTO TABLE.
00287  M01S00285.valnet  +++|
00288  M01S00286.valnet  +++|          SA1    /COMCRTN/PN. PN,PL
00289  M01S00287.valnet  +++|          SA2    /COMCRTN/CH. CH
00290  M01S00288.valnet  +++|          SA3    /COMCRTN/EQ. EQ
00291  M01S00289.valnet  +++|          UX1,B7 X1          X1=PN,B7=PL
00292  M01S00290.valnet  +++|          UX2    X2          CH
00293  M01S00291.valnet  +++|          LX1    39-0        PN
00294  M01S00292.valnet  +++|          UX3    X3          EQ
00295  M01S00293.valnet  +++|          LX2    54-0        CH
00296  M01S00294.valnet  +++|          LX3    51-0        EQ
00297  M01S00295.valnet  +++|          BX6    X1+X2       PN+CH
00298  M01S00296.valnet  +++|          SA1    /COMCRTN/PC. PC
00299  M01S00297.valnet  +++|          BX7    X6+X3       (PN+CH)+EQ
00300  M01S00298.valnet  +++|          LX1    3-0         PC
00301  M01S00299.valnet  +++|          SA3    /COMCRTN/IS. IS
00302  M01S00300.valnet  +++|          BX6    X1+X3       PC+IS
00303  M01S00301.valnet  +++|          ADDWRD TTED,X6+X7  ENTER WORD 0
00304  M01S00302.valnet  +++|          SA5    /COMCRTN/CC ENTER WORD 1
00305  M01S00303.valnet  +++|          SB6    X3          SAVE POSITION OF FIRST PORT ENTRY
00306  M01S00304.valnet  +++|          BX0    X1          SAVE WORD 0
00307  M01S00305.valnet  +++|          SX5    X5-1
00308  M01S00306.valnet  +++|          SB5    X3          INITIALIZE LAST PORT POSITION
00309  M01S00307.valnet  +++|          ADDWRD TTED,X5
00310  M01S00308.valnet  +++| RTN2     ZR     B7,RTN3     IF NO (MORE) PORTS
00311  M01S00309.valnet  +++|          SX1    B1          ADVANCE PORT NUMBER
00312  M01S00310.valnet  +++|          SB7    B7-B1       DECREMENT PORT COUNT
00313  M01S00311.valnet  +++|          LX1    39-0
00314  M01S00312.valnet  +++|          IX0    X0+X1
00315  M01S00313.valnet  +++|          ADDWRD TTED,X0     ENTER WORD 0
00316  M01S00314.valnet  +++|          SB5    X3          UPDATE LAST PORT POSITION
00317  M01S00315.valnet  +++|          ADDWRD TTED,X5     ENTER WORD 1
00318  M01S00316.valnet  +++|          JP     RTN2        LOOP FOR ALL PORTS
00319  M01S00317.valnet  +++|
00320  M01S00318.valnet  +++|*         CHECK DESCRIPTION.
00321  M01S00319.valnet  +++|
00322  M01S00320.valnet  +++| RTN3     SA0    TTED        SET TABLE NUMBER
00323  M01S00321.valnet  +++|          SB7    C.TTED      SET ENTRY SIZE
00324  M01S00322.valnet  +++|          BX7    X7-X7       SET SEARCH START
00325  M01S00323.valnet  +++|          SX5    B6-B1       SET SEARCH LIMIT AT FIRST PORT
00326  M01S00324.valnet  +++|          BX6    X0
00327  M01S00325.valnet  +++|          MX0    -39         SET SEARCH MASK FOR CH,EQ,PN
00328  M01S00326.valnet  +++| RTN4     SX2    X5          SET SEARCH LIMIT
00329  M01S00327.valnet  +++|          RJ     MEP         SEARCH TABLE
00330  M01S00328.valnet  +++|          NZ     X2,RTN5     IF MATCH
00331  M01S00329.valnet  +++|          EQ     B5,B6,RTN1  IF FIRST PORT CHECKED
00332  M01S00330.valnet  +++|          SA1    F.TTED      CHECK NEXT PORT
00333  M01S00331.valnet  +++|          SX1    X1-1
00334  M01S00332.valnet  +++|          SB5    B5-B7       DECREMENT PORT POSITION
00335  M01S00333.valnet  +++|          SA1    X1+B5
00336  M01S00334.valnet  +++|          BX6    X1
00337  M01S00335.valnet  +++|          JP     RTN4
00338  M01S00336.valnet  +++|
00339  M01S00337.valnet  +++|*         CHECK DUPLICATE POLLING CODE.
00340  M01S00338.valnet  +++|
00341  M01S00339.valnet  +++| RTN5     SA4    /COMCRTN/PC. CHECK THIS TERMINAL POLLED
00342  M01S00340.valnet  +++|          ZR     X4,RTN6     IF NOT POLLED
00343  M01S00341.valnet  +++|          SA1    RTNG
00344  M01S00342.valnet  +++|          BX7    X2-X6
00345  M01S00343.valnet  +++|          BX7    X1*X7
00346  M01S00344.valnet  +++|          NZ     X7,RTN6     IF DIFFERENT POLLING CODE
00347  M01S00345.valnet  +++|          LX2    59-0
00348  M01S00346.valnet  +++|          NG     X2,RTN6     IF BOTH TERMINALS ARE OFF
00349  M01S00347.valnet  +++|          SA1    A2+B1       READ CARD NUMBER OF FIRST TERMINAL
00350  M01S00348.valnet  +++|          RJ     CDD         CONVERT
00351  M01S00349.valnet  +++|          SX6    1R &1R.     INSERT PERIOD
00352  M01S00350.valnet  +++|          LX6    54-0
00353  M01S00351.valnet  +++|          AX6    X6,B2
00354  M01S00352.valnet  +++|          BX7    X4-X6
00355  M01S00353.valnet  +++|          SA7    RTNI
00356  M01S00354.valnet  +++|          SX2    RTNH        LIST ERROR
00357  M01S00355.valnet  +++|          JP     RTN11
00358  M01S00356.valnet  +++|
00359  M01S00357.valnet  +++|*         CHECK POLLED AND NON-POLLED ON SAME LINE.
00360  M01S00358.valnet  +++|
00361  M01S00359.valnet  +++| RTN6     MX7    -24
00362  M01S00360.valnet  +++|          AX2    3
00363  M01S00361.valnet  +++|          BX7    -X7*X2
00364  M01S00362.valnet  +++|          BX2    X4+X7
00365  M01S00363.valnet  +++|          ZR     X2,RTN8     IF BOTH TERMINALS ARE NON-POLLED
00366  M01S00364.valnet  +++|          ZR     X7,RTN7     IF FIRST TERMINAL NON-POLLED
00367  M01S00365.valnet  +++|          NZ     X4,RTN9     IF BOTH TERMINALS ARE POLLED
00368  M01S00366.valnet  +++| RTN7     SA1    A2+1        READ CARD NUMBER OF FIRST TERMINAL
00369  M01S00367.valnet  +++|          RJ     CDD         CONVERT
00370  M01S00368.valnet  +++|          SX6    1R &1R.     INSERT PERIOD
00371  M01S00369.valnet  +++|          LX6    54-0
00372  M01S00370.valnet  +++|          AX6    X6,B2
00373  M01S00371.valnet  +++|          BX7    X4-X6
00374  M01S00372.valnet  +++|          LX7    -6
00375  M01S00373.valnet  +++|          SA7    RTNK
00376  M01S00374.valnet  +++|          SX2    RTNJ        LIST ERROR
00377  M01S00375.valnet  +++|          JP     RTN11
00378  M01S00376.valnet  +++|
00379  M01S00377.valnet  +++|*         PROCESS MULTIPLE NON-POLLED TERMINALS ON SAME LINE.
00380  M01S00378.valnet  +++|
00381  M01S00379.valnet  +++| RTN8     SA3    /COMCRTN/TT.
00382  M01S00380.valnet  +++|          SA2    A2+B1       READ CARD NUMBER OF FIRST TERMINAL
00383  M01S00381.valnet  +++|          LX3    59-11
00384  M01S00382.valnet  +++|          NG     X3,RTN9     IF TRANSACTION TERMINAL
00385  M01S00383.valnet  +++|          RJ     CDD         CONVERT
00386  M01S00384.valnet  +++|          SX6    1R &1R.     INSERT PERIOD
00387  M01S00385.valnet  +++|          LX6    54-0
00388  M01S00386.valnet  +++|          AX6    X6,B2
00389  M01S00387.valnet  +++|          BX7    X4-X6
00390  M01S00388.valnet  +++|          SA7    RTNM
00391  M01S00389.valnet  +++|          SX2    RTNL        LIST ERROR
00392  M01S00390.valnet  +++|          JP     RTN11
00393  M01S00391.valnet  +++|
00394  M01S00392.valnet  +++|*         ADVANCE SEARCH.
00395  M01S00393.valnet  +++|
00396  M01S00394.valnet  +++| RTN9     SA1    F.TTED      SET SEARCH START AFTER CURRENT ENTRY
00397  M01S00395.valnet  +++|          SX7    A2+B7
00398  M01S00396.valnet  +++|          IX7    X7-X1
00399  M01S00397.valnet  +++|          JP     RTN4
00400  M01S00398.valnet  +++|
00401  M01S00399.valnet  +++|*         LIST ERROR.
00402  M01S00400.valnet  +++|
00403  M01S00401.valnet  +++| RTN10    ZR     X4,RTNX     IF NO CARDS PROCESSED - RETURN
00404  M01S00402.valnet  +++|          NG     X4,RTN12    IF EOR/EOF
00405  M01S00403.valnet  +++| RTN11    SX5    X2          SAVE ERROR MESSAGE ADDRESS
00406  M01S00404.valnet  +++|          RJ     CEP         CHECK END OF PAGE
00407  M01S00405.valnet  +++|          WRITEW O,RTNA,B1   WRITE LINE PREFIX
00408  M01S00406.valnet  +++|          WRITES O,/COMCRTN/CD,90 WRITE INPUT CARD
00409  M01S00407.valnet  +++|          SA1    /COMCRTN/CC CONVERT CARD NUMBER
00410  M01S00408.valnet  +++|          RJ     CDD
00411  M01S00409.valnet  +++|          SA1    RTNB        INSERT *CARD*
00412  M01S00410.valnet  +++|          BX6    X1-X6
00413  M01S00411.valnet  +++|          SA6    RTND
00414  M01S00412.valnet  +++|          WRITEW O,RTNC,B1+B1 WRITE ERROR PREFIX
00415  M01S00413.valnet  +++|          WRITEC O,X5        WRITE ERROR MESSAGE
00416  M01S00414.valnet  +++|          WRITEW O,RTNE,B1   SPACE ONE LINE
00417  M01S00415.valnet  +++|          SA1    RTNF        ADVANCE ERROR COUNT
00418  M01S00416.valnet  +++|          SX6    X1+B1
00419  M01S00417.valnet  +++|          SA6    A1
00420  M01S00418.valnet  +++|          JP     RTN1        CONTINUE
00421  M01S00419.valnet  +++|
00422  M01S00420.valnet  +++| RTNA     DATA   10H
00423  M01S00421.valnet  +++| RTNB     CON    5LCARD &5L
00424  M01S00422.valnet  +++| RTNC     DATA   10H
00425  M01S00423.valnet  +++| RTND     CON    0
00426  M01S00424.valnet  +++| RTNE     DIS    ,* *
00427  M01S00425.valnet  +++| RTNF     CON    0
00428  M01S00426.valnet  +++| RTNG     VFD    6/0,3/0,12/0,12/0,24/-0,3/-0
00429  M01S00427.valnet  +++| RTNH     DATA   40H POLLING CODE DUPLICATES THAT OF CARD
00430  M01S00428.valnet  +++| RTNI     CON    0,0
00431  M01S00429.valnet  +++| RTNJ     DATA   40H POLLED TERMINAL ON SAME LINE AS NON-POL
00432  M01S00430.valnet  +++|          DATA   20HLED TERMINAL ON CARD
00433  M01S00431.valnet  +++| RTNK     CON    0,0
00434  M01S00432.valnet  +++| RTNL     DATA   50H NON-POLLED TERMINAL ON SAME LINE AS THAT OF CARD
00435  M01S00433.valnet  +++| RTNM     CON    0,0
00436  M01S00434.valnet  +++| TOV      SPACE  4
00437  M01S00435.valnet  +++|**        TOV - PROCESS TABLE OVERFLOW.
00438  M01S00436.valnet  +++|*
00439  M01S00437.valnet  +++|*         ENTRY  NONE.
00440  M01S00438.valnet  +++|*
00441  M01S00439.valnet  +++|*         EXIT   NONE.
00442  M01S00440.valnet  +++|*
00443  M01S00441.valnet  +++|*         USES   NONE.
00444  M01S00442.valnet  +++|*
00445  M01S00443.valnet  +++|*         CALLS  SYS=.
00446  M01S00444.valnet  +++|
00447  M01S00445.valnet  +++|
00448  M01S00446.valnet  +++| TOV      BSS    0           ENTRY
00449  M01S00447.valnet  +++|          MESSAGE (=C* TABLE OVERFLOW.*)
00450  M01S00448.valnet  +++|          ABORT
00451  M01S00449.valnet  +++| SYS      SPACE  4
00452  M01S00450.valnet  +++|*         SYSTEM COMMON DECKS.
00453  M01S00451.valnet  +++|
00454  M01S00452.valnet  +++|
00455  M01S00453.valnet  +++|          LIST   X
00456  M01S00454.valnet  +++|*CALL     COMCRTN
00457  M01S00455.valnet  +++|          LIST   -X
00458  M01S00456.valnet  +++|*CALL     COMCSYS
00459  M01S00457.valnet  +++|*CALL     COMCCIO
00460  M01S00458.valnet  +++|*CALL     COMCRDW
00461  M01S00459.valnet  +++|*CALL     COMCRDS
00462  M01S00460.valnet  +++|*CALL     COMCWTS
00463  M01S00461.valnet  +++|*CALL     COMCWTW
00464  M01S00462.valnet  +++|*CALL     COMCWTC
00465  M01S00463.valnet  +++|*CALL     COMCDXB
00466  M01S00464.valnet  +++|*CALL     COMCCDD
00467  M01S00465.valnet  +++|*CALL,COMCMTP
00468  M01S00466.valnet  +++|*CALL,COMCMVE
00469  M01S00467.valnet  +++|          TITLE  BUFFERS
00470  M01S00468.valnet  +++|*         BUFFERS.
00471  M01S00469.valnet  +++|
00472  M01S00470.valnet  +++|
00473  M01S00471.valnet  +++|          USE    BUFFERS
00474  M01S00472.valnet  +++| PTRN     VFD    30/1200,30/TTRN TERMINAL NAME TABLE POINTER
00475  M01S00473.valnet  +++| BUFFERS  BSS    0
00476  M01S00474.valnet  +++| PBUF     BSS    PBUFL       DESCRIPTION FILE
00477  M01S00475.valnet  +++| OBUF     BSS    OBUFL       LIST FILE
00478  M01S00476.valnet  +++| TTRN     BSS    1200        KTS TERMINAL NAME TABLE
00479  M01S00477.valnet  +++| MEML     BSS    5           LOW TABLE LIMIT
00480  M01S00478.valnet  +++|          USE    *
00481  M01S00479.valnet  +++| PRS      TITLE  PRESET.
00482  M01S00480.valnet  +++|**        PRS - PRESET VALNET.
00483  M01S00481.valnet  +++|*
00484  M01S00482.valnet  +++|*         ENTRY  NONE.
00485  M01S00483.valnet  +++|*
00486  M01S00484.valnet  +++|*         EXIT   NONE.
00487  M01S00485.valnet  +++|*
00488  M01S00486.valnet  +++|*         USES   B - 4,5.
00489  M01S00487.valnet  +++|*                A - 1,2,4,7.
00490  M01S00488.valnet  +++|*                X - 1,2,4,6,7.
00491  M01S00489.valnet  +++|*
00492  M01S00490.valnet  +++|*         CALLS  ARG,SYS=.
00493  M01S00491.valnet  +++|
00494  M01S00492.valnet  +++|
00495  M01S00493.valnet  +++|          ORG    BUFFERS
00496  M01S00494.valnet  +++|
00497  M01S00495.valnet  +++| PRS      SUBR               ENTRY/EXIT
00498  M01S00496.valnet  +++|          SB1    1           SET CONSTANT 1
00499  M01S00497.valnet  +++|          MACHID PRSB        GENERATE DEFAULT NETWORK FILE NAME
00500  M01S00498.valnet  +++|          SA1    PRSB
00501  M01S00499.valnet  +++|          SA2    P
00502  M01S00500.valnet  +++|          MX0    12
00503  M01S00501.valnet  +++|          LX1    24
00504  M01S00502.valnet  +++|          LX0    -24
00505  M01S00503.valnet  +++|          BX6    -X0*X2
00506  M01S00504.valnet  +++|          BX6    X6+X1
00507  M01S00505.valnet  +++|          SA6    A2
00508  M01S00506.valnet  +++|          SA1    ACTR        PROCESS CONTROL CARD ARGUMENTS
00509  M01S00507.valnet  +++|          SB4    X1+
00510  M01S00508.valnet  +++|          SA4    ARGR
00511  M01S00509.valnet  +++|          SB5    TARG
00512  M01S00510.valnet  +++|          RJ     ARG
00513  M01S00511.valnet  +++|          SX2    =C* VALNET ARGUMENT ERROR.*
00514  M01S00512.valnet  +++|          ZR     X1,PRS2     IF NO ERROR
00515  M01S00513.valnet  +++| PRS1     MESSAGE X2         ISSUE DAYFILE MESSAGE
00516  M01S00514.valnet  +++|          ABORT
00517  M01S00515.valnet  +++| PRS2     SA1    P           CHECK FILE NAME CONFLICT
00518  M01S00516.valnet  +++|          SA2    O
00519  M01S00517.valnet  +++|          MX0    42
00520  M01S00518.valnet  +++|          BX6    X1-X2
00521  M01S00519.valnet  +++|          SX2    =C* FILE NAME CONFLICT.*
00522  M01S00520.valnet  +++|          BX7    X0*X6
00523  M01S00521.valnet  +++|          ZR     X7,PRS1     IF P=L
00524  M01S00522.valnet  +++|          SX6    A0          SET HIGH TABLE LIMIT
00525  M01S00523.valnet  +++|          SA6    F.TEND
00526  M01S00524.valnet  +++|          DATE   CEPB        GET DATE
00527  M01S00525.valnet  +++|          SA1    PRSA        SET FET POINTER
00528  M01S00526.valnet  +++|          BX6    X1
00529  M01S00527.valnet  +++|          SA6    B1+B1
00530  M01S00528.valnet  +++|          SA1    NR          CHECK REWIND NEEDED
00531  M01S00529.valnet  +++|          NZ     X1,PRSX     RETURN - IF NO REWIND
00532  M01S00530.valnet  +++|          REWIND P,R         REWIND DESCRIPTION FILE
00533  M01S00531.valnet  +++|          JP     PRSX        RETURN
00534  M01S00532.valnet  +++|
00535  M01S00533.valnet  +++| PRSA     CON    0LOUTPUT+O
00536  M01S00534.valnet  +++| PRSB     BSSZ   1           MACHINE ID RECEIVING AREA
00537  M01S00535.valnet  +++| TARG     SPACE  4
00538  M01S00536.valnet  +++|*         TARG - CONTROL CARD ARGUMENT TABLE.
00539  M01S00537.valnet  +++|
00540  M01S00538.valnet  +++|
00541  M01S00539.valnet  +++| TARG     BSS    0
00542  M01S00540.valnet  +++| P        ARG    PAS,P
00543  M01S00541.valnet  +++| L        ARG    LAS,O,400B
00544  M01S00542.valnet  +++| NR       ARG    -NAS,NR
00545  M01S00543.valnet  +++|          CON    0
00546  M01S00544.valnet  +++|
00547  M01S00545.valnet  +++| PAS      CON    0LCOMPILE+3
00548  M01S00546.valnet  +++| LAS      CON    0LLIST+3
00549  M01S00547.valnet  +++| NAS      CON    1
00550  M01S00548.valnet  +++| NR       CON    0           *NO REWIND* FLAG (=0 IF REWIND)
00551  M01S00549.valnet  +++|          SPACE  4
00552  M01S00550.valnet  +++|*         PRESET COMMON DECKS.
00553  M01S00551.valnet  +++|
00554  M01S00552.valnet  +++|*CALL     COMCARG
00555  M01S00553.valnet  +++|*CALL     COMCCPM
00556  M01S00554.valnet  +++|
00557  M01S00555.valnet  +++|          END
cdc/nos2.source/opl.opl871/deck/valnet.txt · Last modified: by 127.0.0.1