User Tools

Site Tools


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

Deck DCC

5 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.dcc     +++|          IDENT  DCC,DCC
00002  M01S00002.dcc     +++|          TITLE  DCC - CCC COMMUNICATOR.
00003  M01S00003.dcc     +++|*COMMENT  DCC - CCC COMMUNICATOR.
Line S00004 Modification History
M01 (Added by) dcc
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00004  M02S00004.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1984.
00005  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00006  M01S00005.dcc     +++|
00007  M01S00006.dcc     +++|
00008  M01S00007.dcc     +++|          PERIPH
00009  M01S00008.dcc     +++|          BASE   MIXED
00010  M01S00009.dcc     +++|          SST
00011  M01S00010.dcc     +++| QUAL$    EQU    1           DEFINE UNQUALIFIED COMMOM DECKS
00012  M01S00011.dcc     +++|          SPACE  4
00013  M01S00012.dcc     +++|***       DCC - CCC COMMUNICATOR.
00014  M01S00013.dcc     +++|*         L. E. LOVETT       84/04/01.
00015  M01S00014.dcc     +++|          SPACE  4,10
00016  M01S00015.dcc     +++|***       DCC - CCC COMMUNICATOR.
00017  M01S00016.dcc     +++|*
00018  M01S00017.dcc     +++|*         CALL -
00019  M01S00018.dcc     +++|*
00020  M01S00019.dcc     +++|*T IR     18/ *DCC* 1/1, 23/ 0, 18/ ADDR
Figure IR

0171829 ADDR 030404158 0 *DCC* 1

00021  M01S00020.dcc     +++|*
00022  M01S00021.dcc     +++|*         ADDR   - *FET* ADDRESS.
00023  M01S00022.dcc     +++|*
Line S00023 Modification History
M01 (Added by) dcc
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00024  M02S00023.252l678 ---|*T ADDR   7/ 0, 5/ CH, 18/ LWA, 18/FWA, 12/ 0
Figure ADDR

0111229 0FWA304748525359 LWA CH 0

00025  M01S00001.252l678 +++|*T ADDR   6/ 0, 6/ CH, 18/ LWA, 18/FWA, 12/ 0
Figure ADDR

0111229 0FWA304748535459 LWA CH 0

00026  M01S00024.dcc     +++|*T,       42/ 0, 18/ FIRST
Figure

0171829 FIRST 03059 0

00027  M01S00025.dcc     +++|*T,       42/ 0, 18/ IN
Figure

0171829 IN 03059 0

00028  M01S00026.dcc     +++|*T,       42/ 0, 18/ OUT
Figure

0171829 OUT 03059 0

00029  M01S00027.dcc     +++|*T,       42/ 0, 18/ LIMIT
Figure

0171829 LIMIT 03059 0

00030  M01S00028.dcc     +++|*
00031  M01S00029.dcc     +++|*         CH     - CHANNEL NUMBER.
00032  M01S00030.dcc     +++|*         LWA    - *CCC* LAST WORD ADDRESS.
00033  M01S00031.dcc     +++|*         FWA    - *CCC* FIRST WORD ADDRESS.
00034  M01S00032.dcc     +++|          SPACE  4,10
00035  M01S00033.dcc     +++|***       DAYFILE AND ERRLOG MESSAGES
00036  M01S00034.dcc     +++|*
00037  M01S00035.dcc     +++|*         * CCC, CHXX.  DCC - CHANNEL ACTIVE BEFORE FUNCTION.*
00038  M01S00036.dcc     +++|*                CHANNEL XX WAS ALREADY ACTIVE WHEN *DCC* TRIED TO SEND
00039  M01S00037.dcc     +++|*                A FUNCTION CODE TO THE CCC.
00040  M01S00038.dcc     +++|*
00041  M01S00039.dcc     +++|*         * CCC, CHXX.  DCC - NO RESPONSE. CHECK CABLES.*
00042  M01S00040.dcc     +++|*                THERE WAS A FUNCTION TIMEOUT ON THE FIRST ATTEMPT TO
00043  M01S00041.dcc     +++|*                SEND A FUNCTION CODE NNNN TO THE CCC ON CHANNEL XX.
00044  M01S00042.dcc     +++|*
00045  M01S00043.dcc     +++|*         * CCC, CHXX.  DCC - FUNCTION NNNN REJECT.*
00046  M01S00044.dcc     +++|*                THERE WAS A FUNCTION TIMEOUT ON AN ATTEMPT TO SEND
00047  M01S00045.dcc     +++|*                A FUNCTION CODE NNNN TO THE CCC ON CHANNEL XX.
00048  M01S00046.dcc     +++|*
00049  M01S00047.dcc     +++|*         * CCC, CHXX.  DCC - INPUT INCOMPLETE.*
00050  M01S00048.dcc     +++|*                DCC ENCOUNTERED AN INCOMPLETE INPUT ON ATTEMPTING TO
00051  M01S00049.dcc     +++|*                READ DATA FROM THE CCC ON CHANNEL XX.
00052  M01S00050.dcc     +++|*
00053  M01S00051.dcc     +++|*         * CCC, CHXX.  DCC - LOAD ADDRESS ERROR.*
00054  M01S00052.dcc     +++|*                THERE WAS AN CHANNEL HANG ON A LOAD ADDRESS FUNCTION
00055  M01S00053.dcc     +++|*                ATTEMPT ON THE CCC ON CHANNEL XX.
00056  M01S00054.dcc     +++|*
00057  M01S00055.dcc     +++|*         * CCC, CHXX.  DCC - CHANNEL NOT AVAILABLE.*
00058  M01S00056.dcc     +++|*                CHANNEL XX WAS NOT AVAILABLE WHEN DCC ATTEMPTED TO
00059  M01S00057.dcc     +++|*                ACCESS IT TO DUMP THE CCC.
00060  M01S00058.dcc     +++|*
00061  M01S00059.dcc     +++|*         * CCC, CHXX.  DCC - CONSTANT CHANNEL FULL.*
00062  M01S00060.dcc     +++|*                AN ATTEMPT TO CLEAR THE CCC ON CHANNEL XX
00063  M01S00061.dcc     +++|*                TIMED OUT WITH A CHANNEL FULL CONDITION.
00064  M01S00062.dcc     +++|*
00065  M01S00063.dcc     +++|*         * DCC - INCORRECT USER ACCESS.*
00066  M01S00064.dcc     +++|*                USER IS NOT VALIDATED FOR SYSTEM ORIGIN PRIVILEGES
00067  M01S00065.dcc     +++|*                OR SYSTEM IS NOT IN ENGINEERING MODE.
00068  M01S00066.dcc     +++|*
00069  M01S00067.dcc     +++|*         * DCC - INCORRECT ORIGIN TYPE.*
00070  M01S00068.dcc     +++|*                USER MUST BE SYSTEM ORIGIN TO USE DCC AND IS NOT.
00071  M01S00069.dcc     +++|*
00072  M01S00070.dcc     +++|*         * DCC - PARAMETER ADDRESS ERROR.*
00073  M01S00071.dcc     +++|*                THE CCC ADDRESSES PASSED WITH THE CALL TO DCC
00074  M01S00072.dcc     +++|*                ARE NOT IN THE VALID ADDRESS RANGE.
00075  M01S00073.dcc     +++|*
00076  M01S00074.dcc     +++|*         * DCC - LWA+1 OUT OF RANGE.*
00077  M01S00075.dcc     +++|*                THE CCC LAST WORD ADDRESS SPECIFIED IN THE CALL TO
00078  M01S00076.dcc     +++|*                DCC IS BEYOND THE CCC LIMIT ADDRESS.
00079  M01S00077.dcc     +++|*
00080  M01S00078.dcc     +++|*         * DCC - FWA .GE. LWA+1.*
00081  M01S00079.dcc     +++|*                THE SPECIFIED CCC ADDRESSES ARE NOT IN THE CORRECT
00082  M01S00080.dcc     +++|*                RELATIONSHIP. THEY MAY BE REVERSED.
00083  M01S00081.dcc     +++|*
00084  M01S00082.dcc     +++|*         * DCC - INCORRECT REQUEST.*
00085  M01S00083.dcc     +++|*                THE REQUEST SPECIFIED IN THE CALL TO DCC IS INCORRECT.
00086  M01S00084.dcc     +++|*
00087  M01S00085.dcc     +++|*         * DCC - NOT CONTROLWARE CHANNEL.*
00088  M01S00086.dcc     +++|*                THE CHANNEL SPECIFIED IN THE CALL TO DCC IS NOT A
00089  M01S00087.dcc     +++|*                CHANNEL WITH CONTROLWARE.
00090  M01S00088.dcc     +++|*
00091  M01S00089.dcc     +++|*         * DCC - INCORRECT CCC CONTROLWARE TYPE.*
00092  M01S00090.dcc     +++|*                THE CONTROLWARE TYPE ASSOCIATED WITH THE SPECIFIED
00093  M01S00091.dcc     +++|*                CHANNEL IS NOT ONE THAT DCC IS ALLOWED TO DUMP.
00094  M01S00092.dcc     +++|*
00095  M01S00093.dcc     +++|*         * DCC - CIRCULAR BUFFER ADDRESS ERROR.*
00096  M01S00094.dcc     +++|*                ONE OF THE CIRCULAR BUFFER POINTERS *FIRST*, *IN*,
00097  M01S00095.dcc     +++|*                *OUT* OR *LAST* POINTS OUTSIDE THE FIELD LENGTH,
00098  M01S00096.dcc     +++|*                *LAST IS NOT GREATER THAN *FIRST*, OR *IN* OR *OUT*
00099  M01S00097.dcc     +++|*                IS NOT WITHIN THE BUFFER LIMITS.
00100  M01S00098.dcc     +++|*         * DCC - INCOMPLETE *CCC* DUMP.*
00101  M01S00099.dcc     +++|*                THE CM BUFFER SIZE IN THE CALLING PROGRAM WAS NOT
00102  M01S00100.dcc     +++|*                LARGE ENOUGH TO HOLD THE ENTIRE *CCC* MEMORY.
00103  M01S00101.dcc     +++|*
00104  M01S00102.dcc     +++|*         * DCC INCORRECT REQUEST.*
00105  M01S00103.dcc     +++|*                *DCC* WAS NOT CALLED WITH RECALL.
00106  M01S00104.dcc     +++|          SPACE  4,10
00107  M01S00105.dcc     +++|**        COMMON DECKS.
00108  M01S00106.dcc     +++|
00109  M01S00107.dcc     +++|
00110  M01S00108.dcc     +++|*CALL     COMPMAC
00111  M01S00109.dcc     +++|*CALL     COMPCHM
00112  M01S00110.dcc     +++|*CALL     COMSDSL
00113  M01S00111.dcc     +++|*CALL     COMSPIM
00114  M01S00112.dcc     +++|          SPACE  4,10
00115  M01S00113.dcc     +++|**        CHTE - CREATE CHANNEL TABLE ENTRY.
00116  M01S00114.dcc     +++|*
00117  M01S00115.dcc     +++|*
00118  M01S00116.dcc     +++|*         CHTE   CH,ADDRESS
00119  M01S00117.dcc     +++|*
00120  M01S00118.dcc     +++|*         ENTRY  (ADDRESS) = ADDRESS TO INSERT IN CHANNEL TABLE.
00121  M01S00119.dcc     +++|
00122  M01S00120.dcc     +++|
00123  M01S00121.dcc     +++|          PURGMAC CHTE
00124  M01S00122.dcc     +++| CHTE     MACRO  D,B
00125  M01S00123.dcc     +++|          LOCAL  A
00126  M01S00124.dcc     +++| A        EQU    B
00127  M01S00125.dcc     +++| CT_D     RMT
00128  M01S00126.dcc     +++|          CON    A
00129  M01S00127.dcc     +++|          RMT
00130  M01S00128.dcc     +++|          ENDM
00131  M01S00129.dcc     +++| IAN      SPACE  4,10
00132  M01S00130.dcc     +++|**        IAN - REDEFINE IAN WITH 2**5 SET.
00133  M01S00131.dcc     +++|
00134  M01S00132.dcc     +++|
00135  M01S00133.dcc     +++|          CHIN   IAN,7040
00136  M01S00134.dcc     +++|          SPACE  4
00137  M01S00135.dcc     +++|**        ASSEMBLY CONSTANTS.
00138  M01S00136.dcc     +++|
00139  M01S00137.dcc     +++|
00140  M01S00138.dcc     +++| NWC      EQU    100*5/2     CCC WORD COUNT
00141  M01S00139.dcc     +++| EORS     EQU    22          END OF RECORD RETURN STATUS
00142  M01S00140.dcc     +++| FSLA     EQU    500         SELECT CCC LOAD ADDRESS AND LENGTH
00143  M01S00141.dcc     +++| FSRD     EQU    701         SELECT CCC READ MEMORY
00144  M01S00142.dcc     +++| FSMC     EQU    740         SELECT CCC MASTER CLEAR INTERFACE
00145  M01S00143.dcc     +++|          SPACE  4,10
00146  M01S00144.dcc     +++|          SPACE  4
00147  M01S00145.dcc     +++|**        DIRECT LOCATION ASSIGNMENTS.
00148  M01S00146.dcc     +++|
00149  M01S00147.dcc     +++|
00150  M01S00148.dcc     +++| NA       EQU    20 - 21     CCC ADDRESS
00151  M01S00149.dcc     +++| NL       EQU    22 - 23     CCC LIMIT ADDRESS
00152  M01S00150.dcc     +++| NC       EQU    24          CCC WORD COUNT
00153  M01S00151.dcc     +++| WC       EQU    25          BLOCK WORD COUNT
00154  M01S00152.dcc     +++| EB       EQU    27          ERROR BUFFER ADDRESS
00155  M01S00153.dcc     +++| RQ       EQU    30 - 34     REQUEST WORD
00156  M01S00154.dcc     +++| DA       EQU    40 - 44     DATA ADDRESS
00157  M01S00155.dcc     +++| FT       EQU    60 - 61     FIRST
00158  M01S00156.dcc     +++| IN       EQU    62 - 63     IN
00159  M01S00157.dcc     +++| OT       EQU    64 - 65     OUT
00160  M01S00158.dcc     +++| LM       EQU    66 - 67     LIMIT
00161  M01S00159.dcc     +++|          TITLE  MAIN PROGRAM
00162  M01S00160.dcc     +++|**        DCC - MAIN PROGRAM.
00163  M01S00161.dcc     +++|
00164  M01S00162.dcc     +++|
00165  M01S00163.dcc     +++|          ORG    PPFW
00166  M01S00164.dcc     +++| DCC      RJM    PRS         PRESET PROGRAM
00167  M01S00165.dcc     +++|          RJM    DNP         DUMP CCC
00168  M01S00166.dcc     +++|          LDD    RQ+4        SET OPERATION COMPLETE
00169  M01S00167.dcc     +++|          SCN    1
00170  M01S00168.dcc     +++|          LMN    1
00171  M01S00169.dcc     +++|          STD    RQ+4
00172  M01S00170.dcc     +++|          LDD    IR+3        WRITE REQUEST
00173  M01S00171.dcc     +++|          SHN    6
00174  M01S00172.dcc     +++|          ADD    RA
00175  M01S00173.dcc     +++|          SHN    6
00176  M01S00174.dcc     +++|          ADD    IR+4
00177  M01S00175.dcc     +++|          CWD    RQ
Line S00176 Modification History
M01 (Added by) dcc
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00178  M02S00176.252l678 ---|          CHTE   CH,*
Line S00177 Modification History
M01 (Added by) dcc
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00179  M02S00177.252l678 ---|          LDN    CH          DROP CHANNEL
00180  M01S00002.252l678 +++|          LDD    T4          DROP CHANNEL
00181  M01S00178.dcc     +++|          DCHAN
00182  M01S00179.dcc     +++| DPP      MONITOR DPPM
00183  M01S00180.dcc     +++|          LJM    PPR
00184  M01S00181.dcc     +++| DNP      SPACE  4
00185  M01S00182.dcc     +++|**        DNP - DUMP CCC.
00186  M01S00183.dcc     +++|*
00187  M01S00184.dcc     +++|*         THIS ROUTINE IS CALLED TO DUMP *CCC* MEMORY.
00188  M01S00185.dcc     +++|*
00189  M01S00186.dcc     +++|*         ENTRY  (NA, NA+1) = STARTING ADDRESS FOR DUMP.
00190  M01S00187.dcc     +++|*                (IN, IN+1) = INPUT BUFFER IN POINTER.
00191  M01S00188.dcc     +++|*                (NL, NL+1) = ENDING ADDRESS FOR DUMP.
00192  M01S00189.dcc     +++|*                (NC) = DUMP BLOCK *CCC* WORD COUNT.
00193  M01S00190.dcc     +++|*                (IR+3, IR+4) = DUMP *FET* ADDRESS.
00194  M01S00191.dcc     +++|*                (FT, FT+1) = INPUT BUFFER FIRST WORD ADDRESS.
00195  M01S00192.dcc     +++|*                (LM, LM+1) = INPUT BUFFER LIMIT.
00196  M01S00193.dcc     +++|*
00197  M01S00194.dcc     +++|*         EXIT   (RQ+4) = END OF RECORD STATUS (*EORS*) IF
00198  M01S00195.dcc     +++|*                         DUMP IS COMPLETE.
00199  M01S00196.dcc     +++|*
00200  M01S00197.dcc     +++|*         USES   NC, WC, CM - CM+4, DA+3 - DA+4, OT - OT+1.
00201  M01S00198.dcc     +++|*
00202  M01S00199.dcc     +++|*         CALLS  DV5, RNP, WCB.
00203  M01S00200.dcc     +++|
00204  M01S00201.dcc     +++|
00205  M01S00202.dcc     +++| DNP9     LDN    EORS        SET END OF RECORD
00206  M01S00203.dcc     +++|          STD    RQ+4
00207  M01S00204.dcc     +++|
00208  M01S00205.dcc     +++| DNP      SUBR               ENTRY/EXIT
00209  M01S00206.dcc     +++|          LDD    IN          DATA ADDRESS = IN
00210  M01S00207.dcc     +++|          STD    DA+3
00211  M01S00208.dcc     +++|          LDD    IN+1
00212  M01S00209.dcc     +++|          STD    DA+4
00213  M01S00210.dcc     +++| DNP1     LDD    NL          CHECK CCC ADDRESS
00214  M01S00211.dcc     +++|          SBD    NA
00215  M01S00212.dcc     +++|          SHN    14
00216  M01S00213.dcc     +++|          ADD    NL+1
00217  M01S00214.dcc     +++|          SBD    NA+1
00218  M01S00215.dcc     +++|          ZJN    DNP9        IF END OF DUMP
00219  M01S00216.dcc     +++|          SBD    NC
00220  M01S00217.dcc     +++|          PJN    DNP2        IF ENOUGH DATA FOR FULL BLOCK
00221  M01S00218.dcc     +++|          RAD    NC          SET SHORT BLOCK COUNT
00222  M01S00219.dcc     +++| DNP2     RJM    RNP         READ CCC
00223  M01S00220.dcc     +++|          LDD    NC          SET CPU WORD COUNT
00224  M01S00221.dcc     +++|          SHN    1
00225  M01S00222.dcc     +++|          ADN    4
00226  M01S00223.dcc     +++|          RJM    DV5         DIVIDE *PP* WORD COUNT BY FIVE
00227  M01S00224.dcc     +++|          STD    WC          SAVE *CP* WORD COUNT
00228  M01S00225.dcc     +++| DNP3     LDD    IR+3        READ OUT
00229  M01S00226.dcc     +++|          SHN    6
00230  M01S00227.dcc     +++|          ADD    RA
00231  M01S00228.dcc     +++|          SHN    6
00232  M01S00229.dcc     +++|          ADD    IR+4
00233  M01S00230.dcc     +++|          ADN    3
00234  M01S00231.dcc     +++|          CRD    CM
00235  M01S00232.dcc     +++|          LDD    CM+3        SET OUT
00236  M01S00233.dcc     +++|          LPN    37
00237  M01S00234.dcc     +++|          STD    OT
00238  M01S00235.dcc     +++|          SHN    14
00239  M01S00236.dcc     +++|          LMD    CM+4
00240  M01S00237.dcc     +++|          STD    OT+1
00241  M01S00238.dcc     +++|          SHN    -6
00242  M01S00239.dcc     +++|          SBD    FL
00243  M01S00240.dcc     +++|          MJN    DNP5        IF IN BOUNDS
00244  M01S00241.dcc     +++| DNP4     LJM    DNPX        RETURN
00245  M01S00242.dcc     +++|
00246  M01S00243.dcc     +++| DNP5     LDD    OT          CHECK CIRCULAR BUFFER
00247  M01S00244.dcc     +++|          SBD    DA+3
00248  M01S00245.dcc     +++|          SHN    14
00249  M01S00246.dcc     +++|          ADD    OT+1
00250  M01S00247.dcc     +++|          SBD    DA+4
00251  M01S00248.dcc     +++|          SBN    1
00252  M01S00249.dcc     +++|          PJN    DNP6        IF OUT WILL NOT HIT BUFFER LIMIT
00253  M01S00250.dcc     +++|          SHN    6
00254  M01S00251.dcc     +++|          ADD    LM
00255  M01S00252.dcc     +++|          SBD    FT
00256  M01S00253.dcc     +++|          SHN    14
00257  M01S00254.dcc     +++|          ADD    LM+1
00258  M01S00255.dcc     +++|          SBD    FT+1
00259  M01S00256.dcc     +++| DNP6     SBD    WC
00260  M01S00257.dcc     +++|          MJN    DNP7        IF NO ROOM IN BUFFER
00261  M01S00258.dcc     +++|          RJM    WCB         WRITE CIRCULAR BUFFER
00262  M01S00259.dcc     +++|          LJM    DNP1        CONTINUE WITH DUMP
00263  M01S00260.dcc     +++|
00264  M01S00261.dcc     +++| DNP7     LDC    =C+ DCC - INCOMPLETE *CCC* DUMP.+
00265  M01S00262.dcc     +++|          RJM    DFM
00266  M01S00263.dcc     +++|          LJM    DNP9
00267  M01S00264.dcc     +++|
00268  M01S00265.dcc     +++|          TITLE  SUBROUTINES.
00269  M01S00266.dcc     +++| ERR      SPACE  4
00270  M01S00267.dcc     +++|**        ERR - PROCESS ERROR.
00271  M01S00268.dcc     +++|*
00272  M01S00269.dcc     +++|*         ERR DAYFILES AN ERROR MESSAGE AND ABORTS THE JOB.  THE
00273  M01S00270.dcc     +++|*         CHANNEL TO THE *CCC* WILL BE DROPPED IF RESERVED.
00274  M01S00271.dcc     +++|*
00275  M01S00272.dcc     +++|*         ENTRY  (A) = ERROR MESSAGE ADDRESS.
00276  M01S00273.dcc     +++|*                (ERRA) = *LDN 1* IF CHANNEL IS RESERVED.
00277  M01S00003.252l678 +++|*                (T4) = CHANNEL.
00278  M01S00274.dcc     +++|*
00279  M01S00275.dcc     +++|*         EXIT   *PPR* ENTERED.
00280  M01S00276.dcc     +++|*
00281  M01S00277.dcc     +++|*         USES   T1, T7.
00282  M01S00278.dcc     +++|*
00283  M01S00279.dcc     +++|*         CALLS  C2D, DFM, PPR.
00284  M01S00280.dcc     +++|*
00285  M01S00281.dcc     +++|*         MACROS CHTE, DCHAN, MONITOR.
00286  M01S00282.dcc     +++|
00287  M01S00283.dcc     +++|
00288  M01S00284.dcc     +++| ERR      STD    T7          SAVE MESSAGE ADDRESS
00289  M01S00285.dcc     +++| ERRA     LDN    0           CHANNEL RESERVED FLAG
00290  M01S00286.dcc     +++|*         LDN    1           (CHANNEL RESERVED)
00291  M01S00287.dcc     +++|          ZJN    ERR1        IF CHANNEL NOT RESERVED
00292  M01S00288.dcc     +++|          DCN    CH
Line S00289 Modification History
M01 (Added by) dcc
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00293  M02S00289.252l678 ---|          CHTE   CH,*
Line S00290 Modification History
M01 (Added by) dcc
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00294  M02S00290.252l678 ---|          LDN    CH          DROP CHANNEL
00295  M01S00004.252l678 +++|          LDD    T4          DROP CHANNEL
00296  M01S00291.dcc     +++|          DCHAN
00297  M01S00292.dcc     +++| ERR1     CHTE   CH,*
00298  M01S00293.dcc     +++|          LDN    CH          CONVERT CHANNEL NUMBER
00299  M01S00294.dcc     +++|          RJM    C2D         CONVERT OCTAL TO DISPLAY
Line S00295 Modification History
M01 (Added by) dcc
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00300  M02S00295.252l678 ---|          STM    ERRB+4
Line S00296 Modification History
M01 (Added by) dcc
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00301  M02S00296.252l678 ---|          LDC    ERRC
00302  M01S00005.252l678 +++|          STM    ERRB+5
00303  M01S00006.252l678 +++|          LDD    T4
00304  M01S00007.252l678 +++|          LPN    40
00305  M01S00008.252l678 +++|          ZJN    ERR1.1      IF NOT A CONCURRENT CHANNEL
00306  M01S00009.252l678 +++|          LDC    2R C        SET CONCURRENT MESSAGE
00307  M01S00010.252l678 +++|          STM    ERRB+3
00308  M01S00011.252l678 +++| ERR1.1   LDC    ERRC
00309  M01S00297.dcc     +++|          STD    T1
00310  M01S00298.dcc     +++| ERR2     LDI    T7          COPY MESSAGE
00311  M01S00299.dcc     +++|          STI    T1
00312  M01S00300.dcc     +++|          ZJN    ERR3        IF MOVE IS COMPLETE
00313  M01S00301.dcc     +++|          AOD    T7
00314  M01S00302.dcc     +++|          AOD    T1
00315  M01S00303.dcc     +++|          UJN    ERR2        MOVE NEXT WORD OF MESSAGE
00316  M01S00304.dcc     +++|
00317  M01S00305.dcc     +++| ERR3     LDC    ERRB        ISSUE DAYFILE MESSAGE
00318  M01S00306.dcc     +++| ABT      RJM    DFM         DAYFILE ERROR MESSAGE
00319  M01S00307.dcc     +++|          MONITOR ABTM       ABORT JOB
00320  M01S00308.dcc     +++|          LJM    PPR         TERMINATE PROGRAM
00321  M01S00309.dcc     +++|
Line S00310 Modification History
M01 (Added by) dcc
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00322  M02S00310.252l678 ---| ERRB     DATA   H* CCC, CH00. *
00323  M01S00012.252l678 +++| ERRB     DATA   H*  CCC,  CH00. *
00324  M01S00311.dcc     +++| ERRC     BSS    0
00325  M01S00312.dcc     +++| FCN      SPACE  4,10
00326  M01S00313.dcc     +++|**        FCN - CHECK FUNCTION COUPLER.
00327  M01S00314.dcc     +++|*
00328  M01S00315.dcc     +++|*         THIS ROUTINE FUNCTIONS THE EQUIPMENT WITH THE REQUESTED
00329  M01S00316.dcc     +++|*         FUNCTION CODE.  THE FUNCTION WILL BE TIMED OUT TO CHECK
00330  M01S00317.dcc     +++|*         COUPLER RESPONSE.
00331  M01S00318.dcc     +++|*
00332  M01S00319.dcc     +++|*         ENTRY  (A) = FUNCTION CODE.
00333  M01S00320.dcc     +++|*                (FCNA) = 1 IF NOT FIRST FUNCTION REQUEST.
00334  M01S00321.dcc     +++|*
00335  M01S00322.dcc     +++|*         EXIT   FUNCTION ACCEPTED.
00336  M01S00323.dcc     +++|*
00337  M01S00324.dcc     +++|*         ERROR  *ERR* CALLED IF CHANNEL ACTIVE OR TIMEOUT.
00338  M01S00325.dcc     +++|*                (A) = ERROR MESSAGE ADDRESS.
00339  M01S00326.dcc     +++|*
00340  M01S00327.dcc     +++|*         USES   T1, T7.
00341  M01S00328.dcc     +++|*
00342  M01S00329.dcc     +++|*         CALLS  C2D, ERR.
00343  M01S00330.dcc     +++|
00344  M01S00331.dcc     +++|
00345  M01S00332.dcc     +++| FCN4     LDN    1           FLAG FIRST ENTRY TO *FCN* COMPLETED
00346  M01S00333.dcc     +++|          STM    FCNA
00347  M01S00334.dcc     +++|
00348  M01S00335.dcc     +++| FCN      SUBR               ENTRY/EXIT
00349  M01S00336.dcc     +++|          STD    T1
00350  M01S00337.dcc     +++|          AJM    FCN2,CH
00351  M01S00338.dcc     +++|          FAN    CH          FUNCTION COUPLER
00352  M01S00339.dcc     +++|          LCN    0           SET TIMEOUT WAIT COUNT
00353  M01S00340.dcc     +++| FCN1     IJM    FCN4,CH     IF NO FUNCTION TIMEOUT
00354  M01S00341.dcc     +++|          SBN    1
00355  M01S00342.dcc     +++|          NJN    FCN1        IF NOT FUNCTION TIMEOUT
00356  M01S00343.dcc     +++|          LDC    0
00357  M01S00344.dcc     +++|*         LDC    1           (AFTER FIRST FUNCTION)
00358  M01S00345.dcc     +++| FCNA     EQU    *-1
00359  M01S00346.dcc     +++|          ZJN    FCN3        IF FIRST ENTRY
00360  M01S00347.dcc     +++|          LDD    T1          CONVERT FUNCTION
00361  M01S00348.dcc     +++|          STD    T7
00362  M01S00349.dcc     +++|          SHN    -6
00363  M01S00350.dcc     +++|          RJM    C2D         CONVERT OCTAL TO DISPLAY
00364  M01S00351.dcc     +++|          STM    FCNC        *0000 REJECT.*
00365  M01S00352.dcc     +++|          LDD    T7
00366  M01S00353.dcc     +++|          LPN    77
00367  M01S00354.dcc     +++|          RJM    C2D         CONVERT OCTAL TO DISPLAY
00368  M01S00355.dcc     +++|          STM    FCNC+1
00369  M01S00356.dcc     +++|          LDC    FCNB        *FUNCTION 0000 REJECT.*
00370  M01S00357.dcc     +++|          LJM    ERR         PROCESS ERROR
00371  M01S00358.dcc     +++|
00372  M01S00359.dcc     +++| FCN2     LDC    =C* DCC - CHANNEL ACTIVE BEFORE FUNCTION.*
00373  M01S00360.dcc     +++|          LJM    ERR         PROCESS ERROR
00374  M01S00361.dcc     +++|
00375  M01S00362.dcc     +++| FCN3     LDC    =C* DCC - NO RESPONSE, CHECK CABLES.*
00376  M01S00363.dcc     +++|          LJM    ERR
00377  M01S00364.dcc     +++|
00378  M01S00365.dcc     +++|
00379  M01S00366.dcc     +++| FCNB     DATA   H*FUNCTION *
00380  M01S00367.dcc     +++| FCNC     DATA   C*0000 REJECT.*
00381  M01S00368.dcc     +++| RNP      SPACE  4
00382  M01S00369.dcc     +++|**        RNP - READ CCC.
00383  M01S00370.dcc     +++|*
00384  M01S00371.dcc     +++|*         RNP READS A BLOCK OF DATA FROM THE *CCC* INTO
00385  M01S00372.dcc     +++|*         THE *PP* BUFFER.  AN ERROR IS GENERATED IF THE INPUT
00386  M01S00373.dcc     +++|*         IS INCOMPLETE.
00387  M01S00374.dcc     +++|*
00388  M01S00375.dcc     +++|*         ENTRY  (NC) = COUNT OF *CCC* WORDS TO RRAD.
00389  M01S00376.dcc     +++|*                (NA, NA+1) = STARTING ADDRESS OF RRAD.
00390  M01S00377.dcc     +++|*
00391  M01S00378.dcc     +++|*         EXIT   (NA, NA+1) = UPDATED *CCC* ADDRESS.
00392  M01S00379.dcc     +++|*                (PBF) = *PP* BUFFER READ FROM DEVICE.
00393  M01S00380.dcc     +++|*
00394  M01S00381.dcc     +++|*         ERROR  *ERR* CALLED IF READ IS INCOMPLETE.
00395  M01S00382.dcc     +++|*                (A) = ERROR MESSAGE ADDRESS.
00396  M01S00383.dcc     +++|*
00397  M01S00384.dcc     +++|*         USES   NONE.
00398  M01S00385.dcc     +++|*
00399  M01S00386.dcc     +++|*         CALLS  ERR, FCN, SAL, SNA.
00400  M01S00387.dcc     +++|
00401  M01S00388.dcc     +++|
00402  M01S00389.dcc     +++| RNP      SUBR               ENTRY/EXIT
00403  M01S00390.dcc     +++|          RJM    SFL
00404  M01S00391.dcc     +++|          RJM    FCN
00405  M01S00392.dcc     +++|          ACN    CH
00406  M01S00393.dcc     +++|          LDD    NC          READ BLOCK
00407  M01S00394.dcc     +++|          SHN    1
00408  M01S00395.dcc     +++|          IAM    PBF,CH
00409  M01S00396.dcc     +++|          NJN    RNP1        IF INCOMPLETE INPUT
00410  M01S00397.dcc     +++|          DCN    CH
00411  M01S00398.dcc     +++|          LDD    NC          ADVANCE CCC ADDRESS
00412  M01S00399.dcc     +++|          RAD    NA+1
00413  M01S00400.dcc     +++|          SHN    -14
00414  M01S00401.dcc     +++|          RAD    NA
00415  M01S00402.dcc     +++|          UJN    RNPX        RETURN
00416  M01S00403.dcc     +++|
00417  M01S00404.dcc     +++| RNP1     LDC    =C* DCC - INPUT INCOMPLETE.*
00418  M01S00405.dcc     +++|          LJM    ERR         PROCESS ERROR
00419  M01S00406.dcc     +++| SFL      SPACE  4,10
00420  M01S00407.dcc     +++|**        SFL - SET CCC ADDRESS AND LENGTH.
00421  M01S00408.dcc     +++|*
00422  M01S00409.dcc     +++|*         ENTRY  (NC) = LENGTH.
00423  M01S00410.dcc     +++|*                (NA, NA+1) = CCC START ADDRESS.
00424  M01S00411.dcc     +++|*
00425  M01S00412.dcc     +++|*         EXIT   (A) = READ MEMORY FUNCTION.
00426  M01S00413.dcc     +++|*                TO *ERR* IF CHANNEL HUNG.
00427  M01S00414.dcc     +++|*
00428  M01S00415.dcc     +++|*         CALLS  ERR, FCN.
00429  M01S00416.dcc     +++|
00430  M01S00417.dcc     +++|
00431  M01S00418.dcc     +++| SFL      SUBR               ENTRY/EXIT
00432  M01S00419.dcc     +++|          LDC    FSLA
00433  M01S00420.dcc     +++|          ADD    NA
00434  M01S00421.dcc     +++|          RJM    FCN         ISSUE LOAD ADDRESS + UPPER 6 OF ADDRESS
00435  M01S00422.dcc     +++|          ACN    CH
00436  M01S00423.dcc     +++|          LDD    NA+1
00437  M01S00424.dcc     +++|          OAN    CH          OUTPUT LOWER 12 OF ADDRESS
00438  M01S00425.dcc     +++| SFL1     ADN    1
00439  M01S00426.dcc     +++|          MJN    SFL3        IF TIMEOUT
00440  M01S00427.dcc     +++|          IJM    SFL3,CH     IF INACTIVE
00441  M01S00428.dcc     +++|          FJM    SFL1,CH     IF NOT ACCEPTED
00442  M01S00429.dcc     +++|          LDD    NC
00443  M01S00430.dcc     +++|          OAN    CH          OUTPUT LENGTH
00444  M01S00431.dcc     +++| SFL2     ADN    1
00445  M01S00432.dcc     +++|          MJN    SFL3        IF HUNG
00446  M01S00433.dcc     +++|          FJM    SFL2,CH     IF NOT ACCEPTED
00447  M01S00434.dcc     +++|          DCN    CH
00448  M01S00435.dcc     +++|          LDC    FSRD        CCC READ MEMORY FUNCTION CODE
00449  M01S00436.dcc     +++|          UJN    SFLX        RETURN
00450  M01S00437.dcc     +++|
00451  M01S00438.dcc     +++| SFL3     LDC    =C* DCC - LOAD ADDRESS ERROR.*
00452  M01S00439.dcc     +++|          LJM    ERR         PROCESS ERROR
00453  M01S00440.dcc     +++| WCB      SPACE  4
00454  M01S00441.dcc     +++|**        WCB - WRITE CIRCULAR BUFFER.
00455  M01S00442.dcc     +++|*
00456  M01S00443.dcc     +++|*         WCB WRITES THE *PP* BUFFER TO THE *CM* CIRCULAR BUFFER.
00457  M01S00444.dcc     +++|*
00458  M01S00445.dcc     +++|*         ENTRY  (WC) = *CM* WORD COUNT TO WRITE.
00459  M01S00446.dcc     +++|*                (FT, FT+1) = FIRST WORD ADDRESS OF *CM* BUFFER.
00460  M01S00447.dcc     +++|*                (LM, LM+1) = LIMIT OF *CM* BUFFER.
00461  M01S00448.dcc     +++|*                (DA+3, DA+4) = START ADDRESS OF DATA WRITE.
00462  M01S00449.dcc     +++|*                (IR+3, IR+4) = INPUT *FET* ADDRESS.
00463  M01S00450.dcc     +++|*                (PBF) = *PP* BUFFER TO BE WRITTEN.
00464  M01S00451.dcc     +++|*
00465  M01S00452.dcc     +++|*         EXIT   (DA+3, DA+4) = UPDATED BUFFER POINTER.
00466  M01S00453.dcc     +++|*                INPUT *FET* IN POINTER UPDATED AND BUFFER WRITTEN.
00467  M01S00454.dcc     +++|*
00468  M01S00455.dcc     +++|*         USES   T1, T2.
00469  M01S00456.dcc     +++|
00470  M01S00457.dcc     +++|
00471  M01S00458.dcc     +++| WCB4     LDD    IR+3        WRITE IN
00472  M01S00459.dcc     +++|          SHN    6
00473  M01S00460.dcc     +++|          ADD    RA
00474  M01S00461.dcc     +++|          SHN    6
00475  M01S00462.dcc     +++|          ADD    IR+4
00476  M01S00463.dcc     +++|          ADN    2
00477  M01S00464.dcc     +++|          CWD    DA
00478  M01S00465.dcc     +++|
00479  M01S00466.dcc     +++| WCB      SUBR               ENTRY/EXIT
00480  M01S00467.dcc     +++|          LDD    WC          SET FIRST PART WORD COUNT
00481  M01S00468.dcc     +++|          STD    T1
00482  M01S00469.dcc     +++|          LDD    LM          CHECK WORDS TO LIMIT
00483  M01S00470.dcc     +++|          SBD    DA+3
00484  M01S00471.dcc     +++|          SHN    14
00485  M01S00472.dcc     +++|          ADD    LM+1
00486  M01S00473.dcc     +++|          SBD    DA+4
00487  M01S00474.dcc     +++|          SBD    WC
00488  M01S00475.dcc     +++|          PJN    WCB1        IF NOT LESS THAN WORD COUNT
00489  M01S00476.dcc     +++|          RAD    T1          SET FIRST PART WORD COUNT
00490  M01S00477.dcc     +++| WCB1     LDD    DA+3        WRITE FIRST PART
00491  M01S00478.dcc     +++|          SHN    6
00492  M01S00479.dcc     +++|          ADD    RA
00493  M01S00480.dcc     +++|          SHN    6
00494  M01S00481.dcc     +++|          ADD    DA+4
00495  M01S00482.dcc     +++|          CWM    PBF,T1
00496  M01S00483.dcc     +++|          LDD    T1          ADVANCE IN
00497  M01S00484.dcc     +++|          RAD    DA+4
00498  M01S00485.dcc     +++|          SHN    -14
00499  M01S00486.dcc     +++|          RAD    DA+3
00500  M01S00487.dcc     +++|          LMD    LM
00501  M01S00488.dcc     +++|          SHN    14
00502  M01S00489.dcc     +++|          LMD    DA+4
00503  M01S00490.dcc     +++|          LMD    LM+1
00504  M01S00491.dcc     +++|          ZJN    WCB2        IF IN = LIMIT
00505  M01S00492.dcc     +++|          LJM    WCB4        RETURN
00506  M01S00493.dcc     +++|
00507  M01S00494.dcc     +++| WCB2     LDD    WC          SET SECOND PART WORD COUNT
00508  M01S00495.dcc     +++|          SBD    T1
00509  M01S00496.dcc     +++|          STD    T2
00510  M01S00497.dcc     +++|          ZJN    WCB3        IF NO SECOND PART
00511  M01S00498.dcc     +++|          LDD    T1          SET PP BUFFER ADDRESS
00512  M01S00499.dcc     +++|          SHN    2
00513  M01S00500.dcc     +++|          ADD    T1
00514  M01S00501.dcc     +++|          ADC    PBF
00515  M01S00502.dcc     +++|          STM    WCBA
00516  M01S00503.dcc     +++|          LDD    FT          WRITE SECOND PART
00517  M01S00504.dcc     +++|          SHN    6
00518  M01S00505.dcc     +++|          ADD    RA
00519  M01S00506.dcc     +++|          SHN    6
00520  M01S00507.dcc     +++|          ADD    FT+1
00521  M01S00508.dcc     +++|          CWM    **,T2
00522  M01S00509.dcc     +++| WCBA     EQU    *-1
00523  M01S00510.dcc     +++| WCB3     LDD    T2          SET OUT
00524  M01S00511.dcc     +++|          ADD    FT+1
00525  M01S00512.dcc     +++|          STD    DA+4
00526  M01S00513.dcc     +++|          SHN    -14
00527  M01S00514.dcc     +++|          ADD    FT
00528  M01S00515.dcc     +++|          STD    DA+3
00529  M01S00516.dcc     +++|          LJM    WCB4        RETURN
00530  M01S00517.dcc     +++|          SPACE  4
00531  M01S00518.dcc     +++|**        COMMON DECKS.
00532  M01S00519.dcc     +++|
00533  M01S00520.dcc     +++|
00534  M01S00521.dcc     +++|*CALL     COMPC2D
00535  M01S00522.dcc     +++|*CALL     COMPDV5
00536  M01S00523.dcc     +++|          TITLE  INITIALIZATION.
00537  M01S00524.dcc     +++| PRS      SPACE  4
00538  M01S00525.dcc     +++|**        PRS - PRESET PROGRAM.
00539  M01S00526.dcc     +++|
00540  M01S00527.dcc     +++|
00541  M01S00528.dcc     +++| PRS      SUBR               ENTRY/EXIT
00542  M01S00529.dcc     +++|          RJM    CRS         CHECK RECALL STATUS
00543  M01S00530.dcc     +++|          NJN    PRS0        IF RECALL SET
00544  M01S00531.dcc     +++|          LDC    =C* DCC INCORRECT REQUEST.*
00545  M01S00532.dcc     +++|          LJM    ABT
00546  M01S00533.dcc     +++|
00547  M01S00534.dcc     +++| PRS0     RJM    CUA         CHECK USER ACCESS
00548  M01S00535.dcc     +++|          ZJN    PRS1        IF VALID USER
00549  M01S00536.dcc     +++|          LDD    CM
00550  M01S00537.dcc     +++|          ZJN    PRS1        IF ENGINEERING ACCESS ALLOWED
00551  M01S00538.dcc     +++|          LDC    =C* DCC - INCORRECT USER ACCESS.*
00552  M01S00539.dcc     +++|          LJM    ABT         ABORT JOB
00553  M01S00540.dcc     +++|
00554  M01S00541.dcc     +++| PRS1     LDD    CP          CHECK ORIGIN TYPE
00555  M01S00542.dcc     +++|          ADN    JOTW
00556  M01S00543.dcc     +++|          CRD    CM
00557  M01S00544.dcc     +++|          LDD    CM+3
00558  M01S00545.dcc     +++|          LPN    77
00559  M01S00546.dcc     +++|          LMC    SYOT
00560  M01S00547.dcc     +++|          ZJN    PRS2        IF SYSTEM ORIGIN
00561  M01S00548.dcc     +++|          LDC    =C* DCC - INCORRECT ORIGIN TYPE.*
00562  M01S00549.dcc     +++|          LJM    ABT         ABORT
00563  M01S00550.dcc     +++|
00564  M01S00551.dcc     +++| PRS2     LDC    NWC         SET CCC WORD COUNT
00565  M01S00552.dcc     +++|          STD    NC
00566  M01S00553.dcc     +++|          LDD    IR+3        CHECK ADDRESS
00567  M01S00554.dcc     +++|          LPN    37
00568  M01S00555.dcc     +++|          SHN    14
00569  M01S00556.dcc     +++|          ADD    IR+4
00570  M01S00557.dcc     +++|          ADN    5
00571  M01S00558.dcc     +++|          SHN    -6
00572  M01S00559.dcc     +++|          SBD    FL
00573  M01S00560.dcc     +++|          MJN    PRS3        IF ADDRESS IN RANGE
00574  M01S00561.dcc     +++|          LDC    =C* DCC - PARAMETER ADDRESS ERROR.*
00575  M01S00562.dcc     +++|          LJM    ABT         ABORT
00576  M01S00563.dcc     +++|
00577  M01S00564.dcc     +++| PRS3     RJM    SBP         SET BUFFER PARAMETERS
00578  M01S00565.dcc     +++|          LDN    ZERL        CLEAR DATA ADDRESS
00579  M01S00566.dcc     +++|          CRD    DA
00580  M01S00567.dcc     +++|          LDD    IR+3        READ REQUEST
00581  M01S00568.dcc     +++|          LPN    37
00582  M01S00569.dcc     +++|          SHN    6
00583  M01S00570.dcc     +++|          ADD    RA
00584  M01S00571.dcc     +++|          SHN    6
00585  M01S00572.dcc     +++|          ADD    IR+4
00586  M01S00573.dcc     +++|          CRD    RQ
00587  M01S00574.dcc     +++|          LDD    RQ+3        SET CCC FWA
00588  M01S00575.dcc     +++|          STD    NA+1
00589  M01S00576.dcc     +++|          LDD    RQ+2
00590  M01S00577.dcc     +++|          LPN    77
00591  M01S00578.dcc     +++|          STD    NA
00592  M01S00579.dcc     +++|          LDD    RQ+2        SET CCC LWA+1
00593  M01S00580.dcc     +++|          SCN    77
00594  M01S00581.dcc     +++|          SHN    6
00595  M01S00582.dcc     +++|          LMD    RQ+1
00596  M01S00583.dcc     +++|          SHN    6
00597  M01S00584.dcc     +++|          STD    NL+1
00598  M01S00585.dcc     +++|          SHN    -14
00599  M01S00586.dcc     +++|          STD    NL          *CCC* LIMIT ADDRESS
00600  M01S00587.dcc     +++|          SHN    14
00601  M01S00588.dcc     +++|          ADD    NL+1
00602  M01S00589.dcc     +++|          ZJN    PRS4        IF ADDRESS OUT OF RANGE
00603  M01S00590.dcc     +++|          ADC    -0#4001
00604  M01S00591.dcc     +++|          MJN    PRS5        IF IN RANGE
00605  M01S00592.dcc     +++| PRS4     LDC    =C* DCC - LWA+1 OUT OF RANGE.*
00606  M01S00593.dcc     +++|          LJM    ABT         ABORT
00607  M01S00594.dcc     +++|
00608  M01S00595.dcc     +++| PRS5     LDD    NA          CHECK *CCC* ADDRESS
00609  M01S00596.dcc     +++|          SBD    NL
00610  M01S00597.dcc     +++|          SHN    14
00611  M01S00598.dcc     +++|          ADD    NA+1
00612  M01S00599.dcc     +++|          SBD    NL+1
00613  M01S00600.dcc     +++|          MJN    PRS6        IF *LWA+1* GREATER THAN *FWA*
00614  M01S00601.dcc     +++|          LDC    =C* DCC - FWA .GE. LWA+1.*
00615  M01S00602.dcc     +++|          LJM    ABT         ABORT
00616  M01S00603.dcc     +++|
00617  M01S00604.dcc     +++| PRS6     LDD    RQ+4        CHECK *DCC* REQUEST
00618  M01S00605.dcc     +++|          SHN    -1
00619  M01S00606.dcc     +++|          SBN    2
00620  M01S00607.dcc     +++|          MJN    PRS7        IF VALID REQUEST
00621  M01S00608.dcc     +++|          LDC    =C* DCC - INCORRECT REQUEST.*
00622  M01S00609.dcc     +++|          LJM    ABT         ABORT
00623  M01S00610.dcc     +++|
00624  M01S00611.dcc     +++| PRS7     LDD    RQ          SET DATA CHANNEL
Line S00612 Modification History
M01 (Added by) dcc
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00625  M02S00612.252l678 ---|          LPN    37
00626  M01S00013.252l678 +++|          LPN    77
00627  M01S00613.dcc     +++|          STD    T2          SAVE DATA CHANNEL
Line S00614 Modification History
M01 (Added by) dcc
M02 (Updated by) ns2795
Seq #  *Modification Id* Act 
----------------------------+
00628  M02S00614.ns2795  ---|          LDC    CHTP        GET FWA OF CHANNEL TABLES
Line S00615 Modification History
M01 (Added by) dcc
M02 (Updated by) ns2795
Seq #  *Modification Id* Act 
----------------------------+
00629  M02S00615.ns2795  ---|          CRD    CM
Line S00616 Modification History
M01 (Added by) dcc
M02 (Updated by) ns2795
Seq #  *Modification Id* Act 
----------------------------+
00630  M02S00616.ns2795  ---|          LDD    CM+2
Line S00617 Modification History
M01 (Added by) dcc
M02 (Updated by) ns2795
Seq #  *Modification Id* Act 
----------------------------+
00631  M02S00617.ns2795  ---|          LPN    77
Line S00618 Modification History
M01 (Added by) dcc
M02 (Updated by) ns2795
Seq #  *Modification Id* Act 
----------------------------+
00632  M02S00618.ns2795  ---|          RAM    SDCB-1
Line S00619 Modification History
M01 (Added by) dcc
M02 (Updated by) ns2795
Seq #  *Modification Id* Act 
----------------------------+
00633  M02S00619.ns2795  ---|          LDD    CM+3
Line S00620 Modification History
M01 (Added by) dcc
M02 (Updated by) ns2795
Seq #  *Modification Id* Act 
----------------------------+
00634  M02S00620.ns2795  ---|          STM    SDCB
Line S00621 Modification History
M01 (Added by) dcc
M02 (Updated by) ns2795
Seq #  *Modification Id* Act 
----------------------------+
00635  M02S00621.ns2795  ---|          LDN    CTALL       CHANNEL TABLE LENGTH
Line S00622 Modification History
M01 (Added by) dcc
M02 (Updated by) ns2795
Seq #  *Modification Id* Act 
----------------------------+
00636  M02S00622.ns2795  ---|          STD    T1
Line S00623 Modification History
M01 (Added by) dcc
M02 (Updated by) ns2795
Seq #  *Modification Id* Act 
----------------------------+
00637  M02S00623.ns2795  ---|          LDD    CM+2
Line S00624 Modification History
M01 (Added by) dcc
M02 (Updated by) ns2795
Seq #  *Modification Id* Act 
----------------------------+
00638  M02S00624.ns2795  ---|          LPN    77
Line S00625 Modification History
M01 (Added by) dcc
M02 (Updated by) ns2795
Seq #  *Modification Id* Act 
----------------------------+
00639  M02S00625.ns2795  ---|          SHN    14
Line S00626 Modification History
M01 (Added by) dcc
M02 (Updated by) ns2795
Seq #  *Modification Id* Act 
----------------------------+
00640  M02S00626.ns2795  ---|          ADD    CM+3
Line S00627 Modification History
M01 (Added by) dcc
M02 (Updated by) ns2795
Seq #  *Modification Id* Act 
----------------------------+
00641  M02S00627.ns2795  ---|          ADN    CTALL*2     FWA OF CHANNEL CONTROLWARE TABLE
Line S00628 Modification History
M01 (Added by) dcc
M02 (Updated by) ns2795
Seq #  *Modification Id* Act 
----------------------------+
00642  M02S00628.ns2795  ---|          CRM    PBF,T1
Line S00629 Modification History
M01 (Added by) dcc
M02 (Updated by) ns2795
Seq #  *Modification Id* Act 
----------------------------+
00643  M02S00629.ns2795  ---|          LDM    PBF,T2      CHECK CHANNEL CONFIGURATION
Line S00630 Modification History
M01 (Added by) dcc
M02 (Updated by) ns2795
Seq #  *Modification Id* Act 
----------------------------+
00644  M02S00630.ns2795  ---|          LPN    37
Line S00631 Modification History
M01 (Added by) dcc
M02 (Updated by) ns2795
Seq #  *Modification Id* Act 
----------------------------+
00645  M02S00631.ns2795  ---|          NJN    PRS8        IF CONTROLWARE CHANNEL
00646  M01S00001.ns2795  +++|          RJM    SEC         SEARCH FOR EQUIPMENT ON CHANNEL
00647  M01S00002.ns2795  +++|          NJN    PRS8        IF EQUIPMENT FOUND
00648  M01S00632.dcc     +++|          LDC    =C* DCC - NOT CONTROLWARE CHANNEL.*
00649  M01S00633.dcc     +++|          LJM    ABT         ABORT JOB
00650  M01S00634.dcc     +++|
Line S00635 Modification History
M01 (Added by) dcc
M02 (Updated by) ns2795
Seq #  *Modification Id* Act 
----------------------------+
00651  M02S00635.ns2795  ---| PRS8     STD    T1
Line S00636 Modification History
M01 (Added by) dcc
M02 (Updated by) ns2795
Seq #  *Modification Id* Act 
----------------------------+
00652  M02S00636.ns2795  ---|          LDN    0
00653  M01S00003.ns2795  +++| PRS8     LDN    0
00654  M01S00637.dcc     +++|          STD    T3
00655  M01S00638.dcc     +++| PRS9     LDM    PRSB,T3
00656  M01S00639.dcc     +++|          ZJN    PRS10       IF END OF TABLE
Line S00640 Modification History
M01 (Added by) dcc
M02 (Updated by) ns2795
Seq #  *Modification Id* Act 
----------------------------+
00657  M02S00640.ns2795  ---|          LMD    T1
00658  M01S00004.ns2795  +++|          LMD    CM+3        COMPARE DEVICE MNEMONIC
Line S00641 Modification History
M01 (Added by) dcc
M02 (Updated by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
00659  M02S00641.ns2466  ---|          ZJN    PRS11       IF CCC CONTROLLWARE CHANNEL
00660  M01S00001.ns2466  +++|          ZJN    PRS11       IF CCC CONTROLWARE CHANNEL
00661  M01S00642.dcc     +++|          AOD    T3
00662  M01S00643.dcc     +++|          UJN    PRS9        CONTINE SEARCH
00663  M01S00644.dcc     +++|
00664  M01S00645.dcc     +++| PRS10    LDC    =C* DCC - INCORRECT CCC CONTROLWARE TYPE.*
00665  M01S00646.dcc     +++|          LJM    ABT         ABORT JOB
00666  M01S00647.dcc     +++|
Line S00648 Modification History
M01 (Added by) dcc
M02 (Updated by) ns2795
Seq #  *Modification Id* Act 
----------------------------+
00667  M02S00648.ns2795  ---| PRS11    LDD    T2          RESTORE DATA CHANNEL
00668  M01S00005.ns2795  +++| PRS11    LDD    T3          CHECK FOR CMTS
00669  M01S00006.ns2795  +++|          SBN    EMTD
00670  M01S00007.ns2795  +++|          PJN    PRS11.1     IF NOT MT/NT DEVICE TYPE
00671  M01S00008.ns2795  +++|          LDD    CM
00672  M01S00009.ns2795  +++|          LPN    4
00673  M01S00010.ns2795  +++|          ZJN    PRS10       IF NOT 698 (CMTS) EQUIPMENT
00674  M01S00011.ns2795  +++| PRS11.1  LDD    T2          RESTORE DATA CHANNEL
00675  M01S00649.dcc     +++|          RJM    SDC         SET DATA CHANNEL
00676  M01S00650.dcc     +++|          NJN    PRS12       IF CHANNEL AVAILABLE
00677  M01S00651.dcc     +++|          LDC    =C* DCC - CHANNEL NOT AVAILABLE.*
00678  M01S00652.dcc     +++|          LJM    ERR         PROCESS ERROR
00679  M01S00653.dcc     +++|
00680  M01S00654.dcc     +++| PRS12    AOM    ERRA        SET CHANNEL RESERVED
00681  M01S00655.dcc     +++|          DCN    CH
00682  M01S00656.dcc     +++|          RJM    CCC         CLEAR *CCC* COUPLER
00683  M01S00657.dcc     +++|          LJM    PRSX        RETURN
00684  M01S00658.dcc     +++|
Line S00659 Modification History
M01 (Added by) dcc
M02 (Updated by) ns2466
Seq #  *Modification Id* Act 
----------------------------+
00685  M02S00659.ns2466  ---|*     TABLE OF *CCC* CONTROLER TYPES         *
00686  M01S00002.ns2466  +++|**        TABLE OF CCC CONTROLLER TYPES.
00687  M01S00660.dcc     +++|
Line S00661 Modification History
M01 (Added by) dcc
M02 (Updated by) ns2795
Seq #  *Modification Id* Act 
----------------------------+
00688  M02S00661.ns2795  ---| PRSB     CON    M8CW        7990 CCC CONTROLWARE TYPE
Line S00662 Modification History
M01 (Added by) dcc
M02 (Updated by) ns2795
Seq #  *Modification Id* Act 
----------------------------+
00689  M02S00662.ns2795  ---|          CON    CXCW        5870 CCC CONTROLWARE TYPE
Line S00663 Modification History
M01 (Added by) dcc
M02 (Updated by) ns2795
Seq #  *Modification Id* Act 
----------------------------+
00690  M02S00663.ns2795  ---|          CON    CCCW        7165 CCC CONTROLWARE TYPE
Line S00003 Modification History
M01 (Added by) ns2466
M02 (Updated by) ns2795
Seq #  *Modification Id* Act 
----------------------------+
00691  M02S00003.ns2795  ---|          CON    CTCW        698 CCC CONTROLWARE TYPE
00692  M01S00012.ns2795  +++| PRSB     BSS    0
00693  M01S00013.ns2795  +++|          CON    2RMT        698 (CMTS)
00694  M01S00014.ns2795  +++|          CON    2RNT        698 (CMTS)
00695  M01S00015.ns2795  +++| EMTD     EQU    *-PRSB      END OF MT/NT DEVICE TYPES
00696  M01S00016.ns2795  +++|          CON    2RCT        CTS
00697  M01S00017.ns2795  +++|          CON    2RAT        ATS
00698  M01S00018.ns2795  +++|          CON    2RSS        7990
00699  M01S00019.ns2795  +++|          CON    2RLX        5870
00700  M01S00020.ns2795  +++|          CON    2RLY        5970
00701  M01S00021.ns2795  +++|          CON    2RDC        895/7165
00702  M01S00664.dcc     +++|          CON    0           END OF TABLE
00703  M01S00665.dcc     +++| CCC      SPACE  4,20
00704  M01S00666.dcc     +++|**        CCC - CLEAR CCC COUPLER.
00705  M01S00667.dcc     +++|*
00706  M01S00668.dcc     +++|*         CCC ISSUES THE CLEAR COUPLER FUNCTION AND CHECKS CHANNEL
00707  M01S00669.dcc     +++|*         ACTIVITY.  AN ERROR MESSAGE IS RETURNED IF THE FUNCTION
00708  M01S00670.dcc     +++|*         DOES NOT TAKE OR THE CHANNEL REMAINS FULL.
00709  M01S00671.dcc     +++|*
00710  M01S00672.dcc     +++|*         ENTRY  CHANNEL INSTRUCTIONS MODIFIED.
00711  M01S00673.dcc     +++|*
00712  M01S00674.dcc     +++|*         EXIT   CHANNEL DISCONNECTED.
00713  M01S00675.dcc     +++|*
00714  M01S00676.dcc     +++|*         ERROR  *ERR* CALLED IF CHANNEL REMAINS FULL.
00715  M01S00677.dcc     +++|*                (A) = ERROR MESSAGE ADDRESS.
00716  M01S00678.dcc     +++|*
00717  M01S00679.dcc     +++|*         USES   T1.
00718  M01S00680.dcc     +++|*
00719  M01S00681.dcc     +++|*         CALLS  ERR, FCN.
00720  M01S00682.dcc     +++|
00721  M01S00683.dcc     +++|
00722  M01S00684.dcc     +++| CCC      SUBR               ENTRY/EXIT
00723  M01S00685.dcc     +++|          LDC    1000
00724  M01S00686.dcc     +++|          STD    T1
00725  M01S00687.dcc     +++|          ACN    CH
00726  M01S00688.dcc     +++|          EJM    CCC2,CH     IF CHANNEL EMPTY OR INACTIVE
00727  M01S00689.dcc     +++|          IAN    CH
00728  M01S00690.dcc     +++|          DCN    CH
00729  M01S00691.dcc     +++|          ACN    CH
00730  M01S00692.dcc     +++| CCC1     EJM    CCC2,CH     IF CHANNEL EMPTY OR INACTIVE
00731  M01S00693.dcc     +++|          IAN    CH
00732  M01S00694.dcc     +++|          SOD    T1
00733  M01S00695.dcc     +++|          NJN    CCC1        IF NOT CHANNEL FULL TIMEOUT
00734  M01S00696.dcc     +++|          LDC    =C* DCC - CONSTANT CHANNEL FULL.*
00735  M01S00697.dcc     +++|          LJM    ERR         PROCESS ERROR
00736  M01S00698.dcc     +++|
00737  M01S00699.dcc     +++| CCC2     DCN    CH
00738  M01S00700.dcc     +++|          UJN    CCCX        RETURN
00739  M01S00701.dcc     +++| SBP      SPACE  4
00740  M01S00702.dcc     +++|**        SBP - SET BUFFER PARAMETERS.
00741  M01S00703.dcc     +++|*
00742  M01S00704.dcc     +++|*         THIS ROUTINE READS THE *CM* CIRCULAR BUFFER POINTERS.
00743  M01S00705.dcc     +++|*         THE POINTERS ARE CHECKED TO BE WITHIN THE JOB-S FIELD LENGTH
00744  M01S00706.dcc     +++|*         AND IN AND OUT WITHIN THE BUFFER LIMITS.  THE JOB IS
00745  M01S00707.dcc     +++|*         ABORTED IF THESE CONDITIONS ARE NOT MET.
00746  M01S00708.dcc     +++|*
00747  M01S00709.dcc     +++|*         ENTRY  (IR+3, IR+4) = FILE *CM* ADDRESS OF *FET*.
00748  M01S00710.dcc     +++|*
00749  M01S00711.dcc     +++|*         EXIT   (FT, FT+1) = FIRST WORD ADDRESS OF BUFFER.
00750  M01S00712.dcc     +++|*                (IN, IN+1) = INPUT POINTER TO BUFFER.
00751  M01S00713.dcc     +++|*                (OT, OT+1) = OUTPUT POINTER TO BUFFER.
00752  M01S00714.dcc     +++|*                (LM, LM+1) = LIMIT OF BUFFER.
00753  M01S00715.dcc     +++|*
00754  M01S00716.dcc     +++|*         ERROR  *ABT* CALLED IF BUFFER POINTER OUT OF RANGE.
00755  M01S00717.dcc     +++|*                (A) = ERROR MESSAGE ADDRESS.
00756  M01S00718.dcc     +++|*
00757  M01S00719.dcc     +++|*         USES   CM - CM+4.
00758  M01S00720.dcc     +++|*
00759  M01S00721.dcc     +++|*         CALLS  ABT.
00760  M01S00722.dcc     +++|
00761  M01S00723.dcc     +++|
00762  M01S00724.dcc     +++| SBP      SUBR               ENTRY/EXIT
00763  M01S00725.dcc     +++|          LDD    IR+3        READ LIMIT
00764  M01S00726.dcc     +++|          SHN    6
00765  M01S00727.dcc     +++|          ADD    RA
00766  M01S00728.dcc     +++|          SHN    6
00767  M01S00729.dcc     +++|          ADD    IR+4
00768  M01S00730.dcc     +++|          ADN    4           READ LIMIT
00769  M01S00731.dcc     +++|          CRD    LM-3
00770  M01S00732.dcc     +++|          SBN    1           READ OUT
00771  M01S00733.dcc     +++|          CRD    OT-3
00772  M01S00734.dcc     +++|          SBN    1           READ IN
00773  M01S00735.dcc     +++|          CRD    IN-3
00774  M01S00736.dcc     +++|          SBN    1           READ FIRST
00775  M01S00737.dcc     +++|          CRD    CM
00776  M01S00738.dcc     +++|          LDD    LM          SET LIMIT
00777  M01S00739.dcc     +++|          LPN    77
00778  M01S00740.dcc     +++|          STD    LM
00779  M01S00741.dcc     +++|          LDD    CM+4        SET FIRST
00780  M01S00742.dcc     +++|          STD    FT+1
00781  M01S00743.dcc     +++|          LDD    CM+3
00782  M01S00744.dcc     +++|          LPN    77
00783  M01S00745.dcc     +++|          STD    FT
00784  M01S00746.dcc     +++|          SCN    37          CHECK UPPER PART OF ADDRESSES
00785  M01S00747.dcc     +++|          ADD    LM
00786  M01S00748.dcc     +++|          SCN    37
00787  M01S00749.dcc     +++|          ADD    IN
00788  M01S00750.dcc     +++|          SCN    37
00789  M01S00751.dcc     +++|          ADD    OT
00790  M01S00752.dcc     +++|          SCN    37
00791  M01S00753.dcc     +++|          NJN    SBP1
00792  M01S00754.dcc     +++|          LDD    LM          CHECK LIMIT
00793  M01S00755.dcc     +++|          SHN    14
00794  M01S00756.dcc     +++|          ADD    LM+1
00795  M01S00757.dcc     +++|          SBN    1
00796  M01S00758.dcc     +++|          SHN    -6
00797  M01S00759.dcc     +++|          SBD    FL
00798  M01S00760.dcc     +++|          PJN    SBP1        IF LIMIT GREATER THAN *FL*
00799  M01S00761.dcc     +++|          LDD    FT          CHECK FIRST
00800  M01S00762.dcc     +++|          SBD    LM
00801  M01S00763.dcc     +++|          SHN    14
00802  M01S00764.dcc     +++|          ADD    FT+1
00803  M01S00765.dcc     +++|          SBD    LM+1
00804  M01S00766.dcc     +++|          MJN    SBP2        IF FIRST LESS THAN LIMIT
00805  M01S00767.dcc     +++| SBP1     LDC    =C* DCC - CIRCULAR BUFFER ADDRESS ERROR.*
00806  M01S00768.dcc     +++|          LJM    ABT         ABORT JOB
00807  M01S00769.dcc     +++|
00808  M01S00770.dcc     +++| SBP2     LDD    IN          CHECK IN
00809  M01S00771.dcc     +++|          SBD    FT
00810  M01S00772.dcc     +++|          SHN    14
00811  M01S00773.dcc     +++|          ADD    IN+1
00812  M01S00774.dcc     +++|          SBD    FT+1
00813  M01S00775.dcc     +++|          MJN    SBP1        IF IN LESS THAN FIRST
00814  M01S00776.dcc     +++|          LDD    IN
00815  M01S00777.dcc     +++|          SBD    LM
00816  M01S00778.dcc     +++|          SHN    14
00817  M01S00779.dcc     +++|          ADD    IN+1
00818  M01S00780.dcc     +++|          SBD    LM+1
00819  M01S00781.dcc     +++|          PJN    SBP1        IF IN NOT LESS THAN LIMIT
00820  M01S00782.dcc     +++|          LDD    OT          CHECK OUT
00821  M01S00783.dcc     +++|          SBD    FT
00822  M01S00784.dcc     +++|          SHN    14
00823  M01S00785.dcc     +++|          ADD    OT+1
00824  M01S00786.dcc     +++|          SBD    FT+1
00825  M01S00787.dcc     +++|          MJN    SBP1        IF OUT LESS THAN FIRST
00826  M01S00788.dcc     +++|          LDD    OT
00827  M01S00789.dcc     +++|          SBD    LM
00828  M01S00790.dcc     +++|          SHN    14
00829  M01S00791.dcc     +++|          ADD    OT+1
00830  M01S00792.dcc     +++|          SBD    LM+1
00831  M01S00793.dcc     +++|          PJN    SBP1        IF OUT NOT LESS THAN LIMIT
00832  M01S00794.dcc     +++|          LJM    SBPX        RETURN
00833  M01S00795.dcc     +++| SDC      SPACE  4
00834  M01S00796.dcc     +++|**        SDC - SET DATA CHANNEL.
00835  M01S00797.dcc     +++|*
00836  M01S00798.dcc     +++|*         THIS ROUTINE MODIFIES ALL INSTRUCTIONS WHICH CONTAIN A
00837  M01S00799.dcc     +++|*         CHANNEL NUMBER.  THE CHANNEL IS RESERVED.
00838  M01S00800.dcc     +++|*
00839  M01S00801.dcc     +++|*         ENTRY  (A) = CHANNEL NUMBER.
00840  M01S00802.dcc     +++|*
00841  M01S00803.dcc     +++|*         EXIT   (A) = ZERO IF CHANNEL NOT RESERVED.
00842  M01S00804.dcc     +++|*                    = NON-ZERO IF CHANNEL RESERVED.
00843  M01S00014.252l678 +++|*                (T4) = CHANNEL.
00844  M01S00805.dcc     +++|*                CHANNEL INSTRUCTIONS MODIFIED.
00845  M01S00806.dcc     +++|*
Line S00807 Modification History
M01 (Added by) dcc
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00846  M02S00807.252l678 ---|*         USES   CM - CM+4, T1 - T3.
00847  M01S00015.252l678 +++|*         USES   CM - CM+4, T1 - T4.
00848  M01S00808.dcc     +++|*
00849  M01S00809.dcc     +++|*         MACROS MONITOR, PAUSE.
00850  M01S00810.dcc     +++|
00851  M01S00811.dcc     +++|
00852  M01S00812.dcc     +++| SDC      SUBR               ENTRY/EXIT
Line S00813 Modification History
M01 (Added by) dcc
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00853  M02S00813.252l678 ---| SDCA     STD    T1          SET CHANNEL
00854  M01S00016.252l678 +++|          STD    T4
00855  M01S00017.252l678 +++|          LPN    37
00856  M01S00018.252l678 +++|          STD    T1          SET CHANNEL
00857  M01S00814.dcc     +++|          LDC    CTCH        SET CHANNEL TABLE ADDRESS
00858  M01S00815.dcc     +++|          STD    T2
00859  M01S00816.dcc     +++| SDC1     LDI    T2          SET NEXT INSTRUCTION ADDRESS
00860  M01S00817.dcc     +++|          ZJN    SDC2        IF ALL CHANNELS MODIFIED
00861  M01S00818.dcc     +++|          STD    T3
00862  M01S00819.dcc     +++|          LDI    T3
00863  M01S00820.dcc     +++|          SCN    37
00864  M01S00821.dcc     +++|          LMD    T1
00865  M01S00822.dcc     +++|          STI    T3
00866  M01S00823.dcc     +++|          AOD    T2
00867  M01S00824.dcc     +++|          UJN    SDC1        MODIFY NEXT INSTRUCTION
00868  M01S00825.dcc     +++|
00869  M01S00826.dcc     +++| SDC2     LDN    CTALL       CHANNEL TABLE LENGTH
00870  M01S00827.dcc     +++|          STD    T2
00871  M01S00828.dcc     +++|          LDC    0           FWA OF CHANNEL STATUS TABLE
00872  M01S00829.dcc     +++| SDCB     EQU    *-1
00873  M01S00830.dcc     +++|          CRM    PBF,T2
00874  M01S00831.dcc     +++|          LDM    PBF,T1
00875  M01S00832.dcc     +++|          LMC    7777
00876  M01S00833.dcc     +++|          ZJN    SDC6        IF CHANNEL NOT AVAILABLE
Line S00834 Modification History
M01 (Added by) dcc
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00877  M02S00834.252l678 ---|          CHTE   CH,*
Line S00835 Modification History
M01 (Added by) dcc
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00878  M02S00835.252l678 ---| SDC5     LDN    CH          SET CHANNEL NUMBER
00879  M01S00019.252l678 +++| SDC5     LDD    T4          SET CHANNEL NUMBER
00880  M01S00836.dcc     +++|          STD    CM+1
00881  M01S00837.dcc     +++|          MONITOR  CCHM      REQUEST CHANNEL
00882  M01S00838.dcc     +++|          LDD    CM+2
00883  M01S00839.dcc     +++|          NJN    SDC7        IF ASSIGNED
00884  M01S00840.dcc     +++|          LDN    77          DELAY
00885  M01S00841.dcc     +++|          SBN    1
00886  M01S00842.dcc     +++|          NJN    *-1         IF MORE DELAY
00887  M01S00843.dcc     +++|          PAUSE
00888  M01S00844.dcc     +++|          LDD    CM+1
00889  M01S00845.dcc     +++|          ZJN    SDC5        IF NO ERROR FLAGS
00890  M01S00846.dcc     +++| SDC6     LDN    0           RETURN WITH A = 0
00891  M01S00847.dcc     +++| SDC7     LJM    SDCX        RETURN
00892  M01S00022.ns2795  +++| SEC      SPACE  4,15
00893  M01S00023.ns2795  +++|**        SEC - SEARCH FOR EQUIPMENT ON CHANNEL.
00894  M01S00024.ns2795  +++|*
00895  M01S00025.ns2795  +++|*         ENTRY  (T2) = CHANNEL.
00896  M01S00026.ns2795  +++|*
00897  M01S00027.ns2795  +++|*         EXIT   (A) = 0, IF NO EQUIPMENT FOUND.
00898  M01S00028.ns2795  +++|*                (CM - CM+4) = *EQDE* WORD OF EQUIPMENT ON CHANNEL.
00899  M01S00029.ns2795  +++|*
00900  M01S00030.ns2795  +++|*         USES   T3, T5, CM - CM+4.
00901  M01S00031.ns2795  +++|*
00902  M01S00032.ns2795  +++|*         MACROS SFA.
00903  M01S00033.ns2795  +++|
00904  M01S00034.ns2795  +++|
00905  M01S00035.ns2795  +++| SEC      SUBR               ENTRY/EXIT
00906  M01S00036.ns2795  +++|          LDK    ESTP
00907  M01S00037.ns2795  +++|          CRD    CM
00908  M01S00038.ns2795  +++|          LDD    CM+2        LAST EST ORDINAL + 1
00909  M01S00039.ns2795  +++|          STD    T3
00910  M01S00040.ns2795  +++|          LDN    NOPE-1      SET EST ORDINAL
00911  M01S00041.ns2795  +++|          STD    T5
00912  M01S00042.ns2795  +++| SEC1     AOD    T5          CHECK NEXT EST
00913  M01S00043.ns2795  +++|          LMD    T3
00914  M01S00044.ns2795  +++|          ZJN    SECX        IF END OF EST
00915  M01S00045.ns2795  +++|          SFA    EST,T5
00916  M01S00046.ns2795  +++|          ADK    EQDE
00917  M01S00047.ns2795  +++|          CRD    CM
00918  M01S00048.ns2795  +++|          LDD    CM+1        CHECK FIRST CHANNEL
00919  M01S00049.ns2795  +++|          ZJN    SEC2        IF FIRST CHANNEL NOT PRESENT
00920  M01S00050.ns2795  +++|          LPN    77
00921  M01S00051.ns2795  +++|          LMD    T2
00922  M01S00052.ns2795  +++|          ZJN    SEC3        IF FIRST CHANNEL MATCHES
00923  M01S00053.ns2795  +++| SEC2     LDD    CM+2        CHECK SECOND CHANNEL
00924  M01S00054.ns2795  +++|          ZJN    SEC1        IF SECOND CHANNEL NOT PRESENT
00925  M01S00055.ns2795  +++|          LPN    77
00926  M01S00056.ns2795  +++|          LMD    T2
00927  M01S00057.ns2795  +++|          NJN    SEC1        IF SECOND CHANNEL DOES NOT MATCH
00928  M01S00058.ns2795  +++| SEC3     LDN    1           INDICATE SUCCESS
00929  M01S00059.ns2795  +++|          UJN    SECX        RETURN
00930  M01S00848.dcc     +++|          SPACE  4,10
00931  M01S00849.dcc     +++|**        PRESET COMMON DECKS.
00932  M01S00850.dcc     +++|
00933  M01S00851.dcc     +++|
00934  M01S00852.dcc     +++|*CALL COMPCRS
00935  M01S00853.dcc     +++|*CALL     COMPCUA
00936  M01S00854.dcc     +++| CIT      SPACE  4
00937  M01S00855.dcc     +++|**        CIT - CHANNEL INSTRUCTION TABLE.
00938  M01S00856.dcc     +++|
00939  M01S00857.dcc     +++|
00940  M01S00858.dcc     +++|          CHTB   CH
00941  M01S00859.dcc     +++| PBF      SPACE  4
00942  M01S00860.dcc     +++|**        PBF - PPU BUFFER.
00943  M01S00861.dcc     +++|
00944  M01S00862.dcc     +++|
00945  M01S00863.dcc     +++|          USE    BUFFER
00946  M01S00864.dcc     +++|
00947  M01S00865.dcc     +++| PBF      BSS    0           *PP* BUFFER TO READ/WRITE *CCC*
Line S00866 Modification History
M01 (Added by) dcc
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00948  M02S00866.251l664 ---|          ERRNG  7777-PBF-NWC*2  PP OVERFLOW
00949  M01S00001.251l664 +++| PBFL     MAX    NWC*2,CTALL*5
00950  M01S00002.251l664 +++|          ERRNG  7777-PBF-PBFL  PP OVERFLOW
00951  M01S00867.dcc     +++|          SPACE  4,10
00952  M01S00868.dcc     +++|          OVERFLOW
00953  M01S00869.dcc     +++|          END
cdc/nos2.source/opl.opl871/deck/dcc.txt ยท Last modified: by 127.0.0.1