User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:1lc

Deck 1LC

13 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.1lc     +++|          IDENT  1LC,LCW
00002  M01S00002.1lc     +++|          PERIPH
00003  M01S00003.1lc     +++|          BASE   MIXED
00004  M01S00004.1lc     +++|          SST
00005  M01S00005.1lc     +++|          TITLE  1LC - LOAD BUFFER CONTROLWARE.
00006  M01S00006.1lc     +++|*COMMENT  1LC - LOAD BUFFER CONTROLWARE ROUTINE.
Line S00007 Modification History
M01 (Added by) 1lc
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00007.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORPORATION. 1983.
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M01S00008.1lc     +++| 1LC      SPACE  4,10
00010  M01S00009.1lc     +++|*****     1LC - LOAD BUFFER CONTROLWARE.
00011  M01S00010.1lc     +++|*
00012  M01S00011.1lc     +++|*         W. J. SMITH.       79/07/21.
00013  M01S00012.1lc     +++|*         J. L. LARSON.      83/06/14.
00014  M01S00013.1lc     +++|*
00015  M01S00014.1lc     +++|*         DOWNLOAD DISK CONTROLWARE ON SPECIFIED CHANNEL.
00016  M01S00015.1lc     +++| 1LC      SPACE  4,10
00017  M01S00016.1lc     +++|***       *1LC*, IN CONJUNCTION WITH THE CPU PROGRAM *LOADBC, WILL
00018  M01S00017.1lc     +++|*         DOWNLOAD CONTROLWARE TO THE REQUESTED CHANNEL AND
00019  M01S00018.1lc     +++|*         CONTROLLER.
00020  M01S00019.1lc     +++|*
00021  M01S00020.1lc     +++|*         CALL -
00022  M01S00021.1lc     +++|*
00023  M01S00022.1lc     +++|*T,IR     18/ *1LC*,6/ 0,18/ DADDR,18/ LADDR
Figure IR

0171829 LADDR DADDR303536414259 DADDR 0 *1LC*

00024  M01S00023.1lc     +++|*         DADDR  FET ADDRESS FOR CONTROLWARE DUMP.
00025  M01S00024.1lc     +++|*                = 0 IF CONTROLWARE NOT TO BE DUMPED BEFORE RELOAD.
00026  M01S00025.1lc     +++|*         LADDR  FET ADDRESS OF CONTROLWARE TO LOAD.
00027  M01S00026.1lc     +++|*
00028  M01S00027.1lc     +++|*         *LOADBC* USES RECALL MACRO WHEN CALLING *1LC*.
00029  M01S00028.1lc     +++| 1LC      SPACE  4,20
00030  M01S00029.1lc     +++|***       *1LC* IS A PP PROGRAM CALLED BY THE CPU PROGRAM *LOADBC*
00031  M01S00030.1lc     +++|*         TO DOWNLOAD DISK CONTROLWARE ON A SPECIFIED CHANNEL OR TO
00032  M01S00031.1lc     +++|*         DOWNLOAD CONTROL MODULE CONTROLWARE TO A SPECIFIED CONTROL
00033  M01S00032.1lc     +++|*         MODULE.  THE CONTROLWORD AT FET+8 IN *LOADBC* FL CONTAINS
00034  M01S00033.1lc     +++|*         EITHER THE CHANNEL NUMBER OR THE CONTROL MODULE EST ORDINAL
00035  M01S00034.1lc     +++|*         (IN WHICH CASE BIT 2**11 IS SET).
00036  M01S00035.1lc     +++|*         THE CONTROLWARE IS CHECKED FOR ITS VALIDITY, READ FROM FIELD
00037  M01S00036.1lc     +++|*         LENGTH OF *LOADBC* IN SEGMENTS AND DOWNLOADED.  CONTROLLER
00038  M01S00037.1lc     +++|*         IS STATUSED FOR ITS FUNCTIONALITY (GENERAL STATUS OF ZERO
00039  M01S00038.1lc     +++|*         INDICATES CORRECT CHECKSUM) AND A RESPONSE CODE OF ZERO IS
00040  M01S00039.1lc     +++|*         RETURNED IN FET+0 ON A SUCCESSFUL LOAD.  A NON-ZERO RESPONSE
00041  M01S00040.1lc     +++|*         CODE IS RETURNED FOR UNSUCCESSFUL LOADS.
00042  M01S00041.1lc     +++|*         IF A NONZERO DUMP CONTROLWARE FET ADDRESS IS ALSO SPECIFIED,
00043  M01S00042.1lc     +++|*         THE CONTENTS OF THE 7255 ADAPTOR, THE 7155 CONTROLLER (FMD OR
00044  M01S00043.1lc     +++|*         DEMA) OR THE 7165 CONTROLLER WILL BE DUMPED TO THE BUFFER
00045  M01S00044.1lc     +++|*         BEFORE THE RELOAD IS ATTEMPTED.  A ZERO RESPONSE CODE IS
00046  M01S00045.1lc     +++|*         RETURNED TO THE DUMP FET+0 ON A SUCCESSFUL DUMP.
00047  M01S00046.1lc     +++|*         A NON-ZERO RESPONSE CODE IS RETURNED FOR BUFFER ERROR
00048  M01S00047.1lc     +++|*         CONDITIONS, UNSUCCESSFUL DUMPS, AND FOR DUMP REQUESTS OF
00049  M01S00048.1lc     +++|*         CONTROLLERS/ADAPTORS NOT LISTED ABOVE.  THE NUMBER OF THE
00050  M01S00049.1lc     +++|*         CHANNEL THAT WAS USED TO LOAD CONTROLWARE IS RETURNED IN
00051  M01S00050.1lc     +++|*         FET+8, BYTE 0.
00052  M01S00051.1lc     +++| 1LC      SPACE  4,10
00053  M01S00052.1lc     +++|***       DAYFILE MESSAGES.
00054  M01S00053.1lc     +++|*
00055  M01S00054.1lc     +++|*         * FET ADDRESS OUT OF RANGE.* - THE CONTROLWARE DUMP OR
00056  M01S00055.1lc     +++|*         LOAD FET ADDRESS IS .LE. 1 OR EXTENDS PAST FL.
00057  M01S00056.1lc     +++|          SPACE  4,10
00058  M01S00057.1lc     +++|*         MACROS.
00059  M01S00058.1lc     +++|
00060  M01S00059.1lc     +++|
00061  M01S00060.1lc     +++|*CALL     COMPMAC
00062  M01S00061.1lc     +++|*CALL     COMSCPS
00063  M01S00062.1lc     +++|*CALL     COMPCHM
00064  M01S00063.1lc     +++|*CALL     COMSDSL
00065  M01S00064.1lc     +++|*CALL     COMSPIM
00066  M01S00065.1lc     +++|*CALL     COMSSSD
00067  M01S00066.1lc     +++|          SPACE  4,10
00068  M01S00067.1lc     +++|*         ASSEMBLY CONSTANTS.
00069  M01S00068.1lc     +++|
00070  M01S00069.1lc     +++|
00071  M01S00070.1lc     +++| BUFL     EQU    1000        LENGTH OF CONTROLWARE BLOCK
00072  M01S00071.1lc     +++| FCDC     EQU    701         DUMP 7165 CONTROLLER MEMORY
00073  M01S00072.1lc     +++| FCLA     EQU    500         LOAD ADDRESS AND LENGTH (7165 DUMP)
00074  M01S00073.1lc     +++| FCAL     EQU    414         AUTOLOAD FUNCTION CODE
00075  M01S00074.1lc     +++| FCLC     EQU    71          CONTROL MODULE LOAD FROM PP FUNCTION
00076  M01S00075.1lc     +++| FCAR     EQU    67          AUTOLOAD WITH NO DROP OF DRIVE RESERVES
00077  M01S00076.1lc     +++| FCDM     EQU    63          DUMP CONTROLLER MEMORY FUNCTION CODE
00078  M01S00077.1lc     +++| FCMP     EQU    62          MANIPULATE PROCESSOR FUNCTION CODE
00079  M01S00078.1lc     +++| FCST     EQU    12          GENERAL STATUS FUNCTION CODE
00080  M01S00079.1lc     +++| FCOC     EQU    10          OPERATION COMPLETE CODE
00081  M01S00080.1lc     +++| FCCN     EQU    0           CONNECT FUNCTION CODE
00082  M01S00081.1lc     +++|          SPACE  4,10
00083  M01S00082.1lc     +++|*         7155 CONTROLLER DUMP ASSEMBLY CONSTANTS.
00084  M01S00083.1lc     +++|
00085  M01S00084.1lc     +++|
00086  M01S00085.1lc     +++| CTSZ     EQU    8192D       7155 CONTROLLER MEMORY SIZE (16 BIT WORDS)
00087  M01S00086.1lc     +++| CWDB     EQU    32D         CONTROLLER WORDS PER MEMORY DUMP BLOCK
00088  M01S00087.1lc     +++| PBDB     EQU    CWDB*2      PP BYTES PER DUMP BLOCK
00089  M01S00088.1lc     +++| NCBD     EQU    CTSZ/CWDB   NUMBER OF CONTROLLER BLOCKS TO DUMP
00090  M01S00089.1lc     +++|          SPACE  4,10
00091  M01S00090.1lc     +++|*         RESPONSE CODES RETURNED TO LOAD FET+0.
00092  M01S00091.1lc     +++|
00093  M01S00092.1lc     +++|
00094  M01S00093.1lc     +++| RC0      EQU    0           CONTROLWARE LOAD COMPLETE
00095  M01S00094.1lc     +++| RC1      EQU    1           * USER NOT SYSTEM ORIGIN.*
00096  M01S00095.1lc     +++| RC2      EQU    2           * SPECIFIED CHANNEL IS IN USE.*
00097  M01S00096.1lc     +++| RC3      EQU    3           RESERVED BY CPU ROUTINE *LOADBC*
00098  M01S00097.1lc     +++| RC4      EQU    4           RESERVED BY CPU ROUTINE *LOADBC*
00099  M01S00098.1lc     +++| RC5      EQU    5           RESERVED BY CPU ROUTINE *LOADBC*
00100  M01S00099.1lc     +++| RC6      EQU    6           RESERVED BY CPU ROUTINE *LOADBC*
00101  M01S00100.1lc     +++| RC7      EQU    7           RESERVED BY CPU ROUTINE *LOADBC*
00102  M01S00101.1lc     +++| RC10     EQU    10          RESERVED BY CPU ROUTINE *LOADBC*
00103  M01S00102.1lc     +++| RC11     EQU    11          * SYSTEM NOT IN ENGR MODE.*
00104  M01S00103.1lc     +++| RC12     EQU    12          * BUFFER ARGUMENT ERROR.*
00105  M01S00104.1lc     +++| RC13     EQU    13          CDC RESERVED
00106  M01S00105.1lc     +++| RC14     EQU    14          * CONTROLWARE LOAD ALREADY IN PROGRESS.*
00107  M01S00106.1lc     +++| RC15     EQU    15          * NO 77 TABLE IN CONTROLWARE RECORD.*
00108  M01S00107.1lc     +++| RC16     EQU    16          * NO 52 TABLE IN CONTROLWARE RECORD.*
00109  M01S00108.1lc     +++| RC17     EQU    17          * LENGTH IN 52 TABLE .NE. FET.*
00110  M01S00109.1lc     +++| RC20     EQU    20          RESERVED BY CPU ROUTINE *LOADBC*
00111  M01S00110.1lc     +++| RC21     EQU    21          * NOT CONTROL MODULE EST ORDINAL.*
00112  M01S00111.1lc     +++| RC22     EQU    22          CDC RESERVED
00113  M01S00112.1lc     +++| RC23     EQU    23          CDC RESERVED
00114  M01S00113.1lc     +++| RC24     EQU    24          CDC RESERVED
00115  M01S00114.1lc     +++| RC25     EQU    25          CDC RESERVED
00116  M01S00115.1lc     +++| RC26     EQU    26          CDC RESERVED
00117  M01S00116.1lc     +++| RC27     EQU    27          CDC RESERVED
00118  M01S00117.1lc     +++| RC30     EQU    30          * CONTROLLER DID NOT TAKE ALL CONTROLWARE*
00119  M01S00118.1lc     +++| RC31     EQU    31          * GENERAL STATUS  =  NNNN.*
00120  M01S00119.1lc     +++| RC32     EQU    32          * FUNCTION TIMED OUT=NNNN.*
00121  M01S00120.1lc     +++| RC33     EQU    33          * NO GENERAL STATUS RECEIVED.*
00122  M01S00121.1lc     +++| RC34     EQU    34          * CHXX, CONTROLLER RESERVED.*
00123  M01S00122.1lc     +++|          SPACE  4,10
00124  M01S00123.1lc     +++|*         DUMP CONTROLWARE RESPONSE CODES RETURNED TO DUMP FET+0.
00125  M01S00124.1lc     +++|
00126  M01S00125.1lc     +++|
00127  M01S00126.1lc     +++| DR0      EQU    0           * CONTROLLER DUMP COMPLETE.*
00128  M01S00127.1lc     +++| DR1      EQU    1           * DUMP BUFFER ARGUMENT ERROR.*
00129  M01S00128.1lc     +++| DR2      EQU    2           * INSUFFICIENT DUMP BUFFER SPACE.*
00130  M01S00129.1lc     +++| DR3      EQU    3           * NOT CORRECT CONTROLLER TYPE FOR DUMP.*
00131  M01S00130.1lc     +++| DR4      EQU    4           * CONTROLLER DUMP UNSUCCESSFUL.*
00132  M01S00131.1lc     +++|          SPACE  4,10
00133  M01S00132.1lc     +++|*         DIRECT CORE ASSIGNMENTS.
00134  M01S00133.1lc     +++|
00135  M01S00134.1lc     +++|
00136  M01S00135.1lc     +++| BC       EQU    20          BUFFER CONTROLLER CHANNEL NUMBER
00137  M01S00136.1lc     +++| ST       EQU    21          CONTROLLER GENERAL STATUS
00138  M01S00137.1lc     +++| WC       EQU    22          CONTROLWARE CM WORD COUNT
00139  M01S00138.1lc     +++| FN       EQU    23          LAST FUNCTION ISSUED TO CONTROLLER
00140  M01S00001.ns2604  +++| RC       EQU    26          RESPONSE CODE
00141  M01S00002.ns2604  +++| DR       EQU    27          DUMP FET RESPONSE CODE
00142  M01S00139.1lc     +++| DP       EQU    30 - 34     DATA POINTERS (5 LOCATIONS)
00143  M01S00140.1lc     +++| CT       EQU    35          CONTROLWARE TYPE
00144  M01S00141.1lc     +++| CE       EQU    36 - 37     CHANNEL CONTROLWARE ENTRY
00145  M01S00142.1lc     +++| DB       EQU    40 - 44     DUMP FET BUFFER POINTERS
Line S00143 Modification History
M01 (Added by) 1lc
M02 (Updated by) ns2604
Seq #  *Modification Id* Act 
----------------------------+
00146  M02S00143.ns2604  ---| RC       EQU    45          RESPONSE CODE
Line S00144 Modification History
M01 (Added by) 1lc
M02 (Updated by) ns2604
Seq #  *Modification Id* Act 
----------------------------+
00147  M02S00144.ns2604  ---| DR       EQU    46          DUMP FET RESPONSE CODE
00148  M01S00145.1lc     +++| CS       EQU    47          CHANNEL SPECIFIED ON CALL STATUS
00149  M01S00146.1lc     +++| CN       EQU    60 - 64     CM WORD BUFFER
00150  M01S00147.1lc     +++| CO       EQU    65          CONTROL MODULE EST ORDINAL
00151  M01S00148.1lc     +++| EQ       EQU    66          CONTROL MODULE EQUIPMENT NUMBER
00152  M01S00149.1lc     +++| CF       EQU    67          CHANNEL RESERVED BY *1LC* FLAG
00153  M01S00150.1lc     +++|          TITLE  MAIN PROGRAM.
00154  M01S00151.1lc     +++|          ORG    PPFW
00155  M01S00152.1lc     +++| LCW      SPACE  4,10
00156  M01S00153.1lc     +++|**        LCW - LOAD BUFFER CONTROLWARE MAIN PROGRAM.
00157  M01S00154.1lc     +++|
00158  M01S00155.1lc     +++|
00159  M01S00156.1lc     +++| LCW      BSS    0           ENTRY
00160  M01S00157.1lc     +++|          RJM    PRS         PRESET LOAD CONTROLWARE
00161  M01S00158.1lc     +++|          STD    RC
Line S00159 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc7
Seq #  *Modification Id* Act 
----------------------------+
00162  M02S00159.1lc7    ---|          NJP    LCW5        IF ERROR RESPONSE
00163  M01S00001.1lc7    +++|          LMK    RC14
00164  M01S00002.1lc7    +++|          ZJP    LCW5        IF RELOAD ALREADY IN PROGRESS
00165  M01S00003.1lc7    +++|          LMK    RC14
00166  M01S00004.1lc7    +++|          NJN    LCW2.1      IF OTHER ERROR
00167  M01S00160.1lc     +++|          LDD    CO
00168  M01S00161.1lc     +++|          NJN    LCW0        IF CONTROL MODULE SPECIFIED
Line S00162 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00169  M02S00162.1lc5    ---|          RJM    RSC         RESERVE AND STATUS CHANNEL
Line S00163 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00170  M02S00163.1lc5    ---|          NJN    LCW2        IF ERROR RESPONSE
00171  M01S00164.1lc     +++|          RJM    DCT         DUMP CONTROLLER
00172  M01S00165.1lc     +++| LCW0     RJM    LCT         LOAD CONTROLWARE
00173  M01S00166.1lc     +++|          NJN    LCW2        IF ERROR RESPONSE
00174  M01S00167.1lc     +++|          LDD    CS
00175  M01S00168.1lc     +++|          ZJN    LCW1        IF DRIVER CALL
00176  M01S00169.1lc     +++|          LDN    FCOC
00177  M01S00170.1lc     +++|          RJM    FNC
00178  M01S00171.1lc     +++|          NJN    LCW2        IF FUNCTION TIMEOUT
00179  M01S00172.1lc     +++| LCW1     LDD    ST          CHECK STATUS
00180  M01S00173.1lc     +++|          ERRNZ  RC0         CODE DEPENDS ON VALUE
00181  M01S00174.1lc     +++|          ZJN    LCW2        IF NO ERROR
00182  M01S00175.1lc     +++|          LDN    RC31        * GENERAL STATUS  =  NNNN.*
00183  M01S00176.1lc     +++| LCW2     STD    RC
Line S00177 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc7
Seq #  *Modification Id* Act 
----------------------------+
00184  M02S00177.1lc7    ---|          LDD    CS
00185  M01S00005.1lc7    +++| LCW2.1   LDD    CS
00186  M01S00178.1lc     +++|          ZJN    LCW3        IF DRIVER CALL
00187  M01S00179.1lc     +++|          RJM    DCH         DROP CHANNEL ASSIGNMENT
00188  M01S00180.1lc     +++|          UJN    LCW4        CLEAR CHANNEL ENTRY INTERLOCK
00189  M01S00181.1lc     +++|
Line S00182 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc4
Seq #  *Modification Id* Act 
----------------------------+
00190  M02S00182.1lc4    ---| LCW3     LDD    RC
Line S00183 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc4
Seq #  *Modification Id* Act 
----------------------------+
00191  M02S00183.1lc4    ---|          NJN    LCW4        IF ERROR
Line S00184 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc4
Seq #  *Modification Id* Act 
----------------------------+
00192  M02S00184.1lc4    ---|          AOM    CHTI+1*5    CLEAR SYSTEM REQUEST FLAG
00193  M01S00001.1lc4    +++| LCW3     AOM    CHTI+1*5    CLEAR SYSTEM REQUEST FLAG
00194  M01S00185.1lc     +++|          AOM    LCWA        INCREMENT CONTROLLER LOADED COUNT
00195  M01S00186.1lc     +++| LCW4     LDM    CHTI+4
00196  M01S00187.1lc     +++| LCWA     ADN    0
Line S00188 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc4
Seq #  *Modification Id* Act 
----------------------------+
00197  M02S00188.1lc4    ---|*         ADN    1           (SYSTEM REQUEST AND CONTROLWARE LOADED)
00198  M01S00002.1lc4    +++|*         ADN    1           (DRIVER CALL)
00199  M01S00189.1lc     +++|          STM    CHTI+1*5+4
00200  M01S00190.1lc     +++|          RJM    ICE         CLEAR CHANNEL ENTRY INTERLOCK
00201  M01S00191.1lc     +++|          LDD    CM+1
00202  M01S00192.1lc     +++|          NJN    LCW4        IF VERIFY OF LOAD COUNT FAILED
00203  M01S00193.1lc     +++| LCW5     RJM    SDR         SET DUMP FET RESPONSE
00204  M01S00194.1lc     +++|          RJM    GLA         FET LOAD FET ADDRESS
00205  M01S00195.1lc     +++|          CRD    CM          READ LOAD FET+0
00206  M01S00196.1lc     +++|          LDN    ZERL
00207  M01S00197.1lc     +++|          CRD    CN
00208  M01S00198.1lc     +++|          LDD    RC          GET REPLY CODE
00209  M01S00199.1lc     +++|          SHN    1
00210  M01S00200.1lc     +++|          LMN    1           SET COMPLETE BIT
00211  M01S00201.1lc     +++|          STD    CM+4
00212  M01S00202.1lc     +++|          LMN    RC32*2+1
00213  M01S00203.1lc     +++|          NJN    LCW6        IF NOT FUNCTION TIME OUT ERROR
00214  M01S00204.1lc     +++|          LDD    FN
00215  M01S00205.1lc     +++|          UJN    LCW7        RETURN LAST FUNCTION TO FET
00216  M01S00206.1lc     +++|
00217  M01S00207.1lc     +++| LCW6     LDD    ST          RETURN GENERAL STATUS TO FET
00218  M01S00208.1lc     +++| LCW7     STD    CN+4
00219  M01S00209.1lc     +++|          LDD    BC          RETURN CHANNEL NUMBER
00220  M01S00210.1lc     +++|          STD    CN
00221  M01S00211.1lc     +++|          RJM    GLA         GET LOAD FET ADDRESS
00222  M01S00212.1lc     +++|          ADN    8D
00223  M01S00213.1lc     +++|          CWD    CN          WRITE FET+8 RESPONSE DATA
00224  M01S00214.1lc     +++|          SBN    8D
00225  M01S00215.1lc     +++|          CWD    CM          WRITE FET+0 COMPLETION STATUS
00226  M01S00216.1lc     +++|          MONITOR  DPPM      DROP PP
00227  M01S00217.1lc     +++|          LJM    PPR         EXIT TO PP RESIDENT
00228  M01S00218.1lc     +++|          TITLE  SUBROUTINES.
00229  M01S00219.1lc     +++| CCS      SPACE  4,10
00230  M01S00220.1lc     +++|**        CCS - CHECK CONTROLLER STATUS.
00231  M01S00221.1lc     +++|*
00232  M01S00222.1lc     +++|*         EXIT   (A) = 0 IF STATUS RECEIVED.
00233  M01S00223.1lc     +++|*                (A) = *RC22* IF STATUS FUNCTION TIMEOUT.
00234  M01S00224.1lc     +++|*                (A) = *RC23* IF STATUS NOT RECEIVED.
00235  M01S00225.1lc     +++|*                (ST) = STATUS.
00236  M01S00226.1lc     +++|*
00237  M01S00227.1lc     +++|*         CALLS  FNC.
00238  M01S00228.1lc     +++|
00239  M01S00229.1lc     +++|
00240  M01S00001.ns2776  +++| CSS3     EJM    CSS1,CH     IF DATA NOT PRESENT
00241  M01S00002.ns2776  +++|          LDN    1
00242  M01S00003.ns2776  +++|          IAM    ST,CH
00243  M01S00004.ns2776  +++|          DCN    CH
00244  M01S00005.ns2776  +++|          NJN    CSS2        IF NO STATUS RECEIVED
00245  M01S00006.ns2776  +++|
00246  M01S00230.1lc     +++| CCS      SUBR               ENTRY/EXIT
00247  M01S00231.1lc     +++|          LDN    FCST        CHECK STATUS
00248  M01S00232.1lc     +++|          RJM    FNC
00249  M01S00233.1lc     +++|          NJN    CCSX        IF FUNCTION TIMEOUT
00250  M01S00234.1lc     +++|          ACN    CH
Line S00001 Modification History
M01 (Added by) 1lc6
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00251  M02S00001.ns2776  ---| CSS1     SBN    1
Line S00002 Modification History
M01 (Added by) 1lc6
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00252  M02S00002.ns2776  ---|          ZJN    CSS2        IF TIMEOUT WAITING FOR DATA
Line S00003 Modification History
M01 (Added by) 1lc6
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00253  M02S00003.ns2776  ---|          EJM    CSS1,CH     IF DATA NOT PRESENT
Line S00235 Modification History
M01 (Added by) 1lc
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00254  M02S00235.ns2776  ---|          LDN    1
Line S00236 Modification History
M01 (Added by) 1lc
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00255  M02S00236.ns2776  ---|          IAM    ST,CH
Line S00237 Modification History
M01 (Added by) 1lc
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00256  M02S00237.ns2776  ---|          DCN    CH
Line S00238 Modification History
M01 (Added by) 1lc
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00257  M02S00238.ns2776  ---|          ZJN    CCSX        IF STATUS RECEIVED
00258  M01S00007.ns2776  +++|          LDD    HN
00259  M01S00008.ns2776  +++|          STD    T0
00260  M01S00009.ns2776  +++| CSS1     ADN    1
00261  M01S00010.ns2776  +++|          NJN    CSS3        IF NOT TIMEOUT
00262  M01S00011.ns2776  +++|          SOD    T0
00263  M01S00012.ns2776  +++|          NJN    CSS3        IF NOT TIMEOUT
00264  M01S00004.1lc6    +++| CSS2     DCN    CH
00265  M01S00239.1lc     +++|          LDN    RC33        * NO GENERAL STATUS RECEIVED.*
00266  M01S00240.1lc     +++|          UJN    CCSX        RETURN
00267  M01S00241.1lc     +++| DCH      SPACE  4,10
00268  M01S00242.1lc     +++|**        DCH - DROP CHANNEL ASSIGNMENT.
00269  M01S00243.1lc     +++|*
00270  M01S00244.1lc     +++|*         ENTRY  (BC) = CHANNEL NUMBER.
00271  M01S00245.1lc     +++|*                (CF) = 0 IF CHANNEL NOT RESERVED BY *1LC*.
00272  M01S00246.1lc     +++|*
00273  M01S00247.1lc     +++|*         EXIT   (CF) = 0.
00274  M01S00248.1lc     +++|*
00275  M01S00249.1lc     +++|*         MACROS DCHAN.
00276  M01S00250.1lc     +++|
00277  M01S00251.1lc     +++|
00278  M01S00252.1lc     +++| DCH      SUBR               ENTRY/EXIT
00279  M01S00253.1lc     +++|          LDD    CF
00280  M01S00254.1lc     +++|          ZJN    DCHX        IF CHANNEL NOT RESERVED BY *1LC*
00281  M01S00255.1lc     +++|          LDD    BC
00282  M01S00256.1lc     +++|          DCHAN
00283  M01S00257.1lc     +++|*         LDN    0
00284  M01S00258.1lc     +++|          STD    CF
00285  M01S00259.1lc     +++|          UJN    DCHX        RETURN
00286  M01S00260.1lc     +++| DCT      SPACE  4,15
00287  M01S00261.1lc     +++|**        DCT - DUMP CONTROLLER MEMORY.
00288  M01S00262.1lc     +++|*
00289  M01S00263.1lc     +++|*         ENTRY  (CT) = CHANNEL CONTROLWARE ENTRY.
00290  M01S00264.1lc     +++|*                (DB - DB+4) = DUMP FET *IN* POINTER (SET TO *FIRST*).
00291  M01S00265.1lc     +++|*                (DR) = *DR4* (CONTROLLER DUMP UNSUCCESSFUL) STATUS.
00292  M01S00266.1lc     +++|*
00293  M01S00267.1lc     +++|*         EXIT   (DR) = DUMP FET RESPONSE CODE.
00294  M01S00268.1lc     +++|*
00295  M01S00269.1lc     +++|*         USES   T1, T2, T3, T4, CM - CM+4.
00296  M01S00270.1lc     +++|*
00297  M01S00271.1lc     +++|*         CALLS  D7C, FNC, GDA, SDR, WBC.
00298  M01S00272.1lc     +++|
00299  M01S00273.1lc     +++|
00300  M01S00274.1lc     +++| DCT8     RJM    D7C         DUMP 7165 CONTROLLER MEMORY
00301  M01S00275.1lc     +++|          NJN    DCTX        IF DUMP NOT SUCCESSFUL
00302  M01S00276.1lc     +++| DCT9     RJM    GDA         GET DUMP FET ADDRESS
00303  M01S00277.1lc     +++|          ADN    2           UPDATE DUMP FET *IN* POINTER
00304  M01S00278.1lc     +++|          CWD    DB
00305  M01S00279.1lc     +++|          LDN    DR0
00306  M01S00280.1lc     +++| DCT10    STD    DR          SAVE DUMP FET RESPONSE CODE
00307  M01S00281.1lc     +++|
00308  M01S00282.1lc     +++| DCT      SUBR               ENTRY/EXIT
00309  M01S00283.1lc     +++|          RJM    GDA         GET DUMP FET ADDRESS
00310  M01S00284.1lc     +++|          ZJN    DCTX        IF NO DUMP REQUESTED
00311  M01S00285.1lc     +++|          LDN    ZERL        CLEAR MANIPULATE PROCESSOR PARAMETERS
00312  M01S00286.1lc     +++|          CRD    CM
00313  M01S00287.1lc     +++|          LDN    2           SET TO DUMP CONTROLLER MEMORY
00314  M01S00288.1lc     +++|          STD    CM
00315  M01S00289.1lc     +++|          STD    T4          PRESET 8K CONTROLLER TYPE INDEX
00316  M01S00290.1lc     +++|          LDD    CT          CHECK CONTROLWARE TYPE
00317  M01S00291.1lc     +++|          LPN    37
00318  M01S00292.1lc     +++|          LMN    FMCW
00319  M01S00293.1lc     +++|          ZJN    DCT1        IF MA721 CONTROLWARE FOR 7155 FMD
00320  M01S00294.1lc     +++|          LMN    PHCW&FMCW
00321  M01S00295.1lc     +++|          ZJN    DCT1        IF MA722 CONTROLWARE FOR 7155 DEMA
00322  M01S00296.1lc     +++|          LMN    CCCW&PHCW
00323  M01S00297.1lc     +++|          ZJN    DCT8        IF 7165 CONTROLLER
00324  M01S00298.1lc     +++|          LMN    IDCW&CCCW
00325  M01S00299.1lc     +++|          ZJN    DCT0        IF 7255 ADAPTOR
00326  M01S00300.1lc     +++|          LDN    DR3         * NOT CORRECT CONTROLLER TYPE FOR DUMP.*
00327  M01S00301.1lc     +++|          UJN    DCT10       SAVE RESPONSE CODE
00328  M01S00302.1lc     +++|
00329  M01S00303.1lc     +++| DCT0     LDN    40          SET 7255 ADAPTOR MEMORY ADDRESS
00330  M01S00304.1lc     +++|          STD    CM+1
00331  M01S00305.1lc     +++|          SHN    1           SET MEMORY ADDRESS INCREMENT
00332  M01S00306.1lc     +++|          STM    DCTB
00333  M01S00307.1lc     +++|          LDN    1           SET 7255 CONTROLLER TYPE INDEX
00334  M01S00308.1lc     +++|          STD    T4
00335  M01S00309.1lc     +++| DCT1     LDK    NFBT        SET NUMBER OF FULL BUFFERS
00336  M01S00310.1lc     +++|          STD    T2
00337  M01S00311.1lc     +++|          LDK    CWFB        SET CM WORDS IN FULL BUFFER
00338  M01S00312.1lc     +++|          STD    T3
00339  M01S00313.1lc     +++| DCT2     LDK    MXDB        SET NUMBER OF BLOCKS IN FULL BUFFER
00340  M01S00314.1lc     +++|          STD    T1
00341  M01S00315.1lc     +++| DCT3     LDC    DBUF        RESET PP DUMP BUFFER ADDRESS
00342  M01S00316.1lc     +++|          STM    DCTA
00343  M01S00317.1lc     +++| DCT4     LDN    FCMP        INITIATE MANIPULATE PROCESSOR FUNCTION
00344  M01S00318.1lc     +++|          RJM    FNC
00345  M01S00319.1lc     +++| DCT5     NJP    DCTX        IF FUNCTION TIMEOUT
00346  M01S00320.1lc     +++|          ACN    CH
00347  M01S00321.1lc     +++|          LDN    5           TRANSFER PARAMETERS
00348  M01S00322.1lc     +++|          OAM    CM,CH
00349  M01S00323.1lc     +++|          FJM    *,CH        IF CHANNEL FULL
00350  M01S00324.1lc     +++|          DCN    CH
00351  M01S00325.1lc     +++|          NJN    DCT5        IF NOT ALL PARAMETERS TAKEN
00352  M01S00326.1lc     +++|          LDN    FCDM        DUMP CONTROLLER MEMORY
00353  M01S00327.1lc     +++|          RJM    FNC
00354  M01S00328.1lc     +++|          NJN    DCT5        IF FUNCTION TIMEOUT
00355  M01S00329.1lc     +++|          ACN    CH
00356  M01S00330.1lc     +++|          LDD    HN
00357  M01S00331.1lc     +++|          ERRNZ  PBDB-100B   CODE DEPENDS ON VALUE
00358  M01S00332.1lc     +++|          IAM    DBUF,CH     READ CONTROLLER MEMORY DUMP BLOCK
00359  M01S00333.1lc     +++| DCTA     EQU    *-1
00360  M01S00334.1lc     +++|          NJN    DCT5        IF NOT ALL DATA TRANSFERRED
00361  M01S00335.1lc     +++|          LDD    HN          ADVANCE PP DUMP BUFFER ADDRESS
00362  M01S00336.1lc     +++|          RAM    DCTA
00363  M01S00337.1lc     +++|          LDC    CWDB        ADVANCE CONTROLLER MEMORY ADDRESS
00364  M01S00338.1lc     +++| DCTB     EQU    *-1
00365  M01S00339.1lc     +++|*         LDC    100         (ADVANCE 7255 ADAPTOR ADDRESS)
00366  M01S00340.1lc     +++|          RAD    CM+2
00367  M01S00341.1lc     +++|          SHN    21-10
00368  M01S00342.1lc     +++|          PJN    DCT6        IF NOT 8 BIT OVERFLOW
00369  M01S00343.1lc     +++|          STD    CM+2        CLEAR LOWER 8 BITS OF CONTROLLER ADDRESS
00370  M01S00344.1lc     +++|          AOD    CM+1        INCREMENT UPPER 8 BITS OF ADDRESS
00371  M01S00345.1lc     +++| DCT6     SOD    T1
00372  M01S00346.1lc     +++|          NJP    DCT4        IF MORE BLOCKS TO TRANSFER TO BUFFER
00373  M01S00347.1lc     +++|          RJM    WBC         WRITE BUFFER TO CM
00374  M01S00348.1lc     +++|          SOD    T2
00375  M01S00349.1lc     +++|          MJN    DCT7        IF DUMP COMPLETE
00376  M01S00350.1lc     +++|          NJP    DCT2        IF MORE FULL BUFFERS TO DUMP
00377  M01S00351.1lc     +++|          LDK    RPBB        SET REMAINING PARTIAL BUFFER BLOCKS
00378  M01S00352.1lc     +++|          ZJN    DCT7        IF NO PARTIAL BUFFER
00379  M01S00353.1lc     +++|          STD    T1
00380  M01S00354.1lc     +++|          LDK    CWPB        SET CM WORDS IN LAST PARTIAL BUFFER
00381  M01S00355.1lc     +++|          STD    T3
00382  M01S00356.1lc     +++|          LDN    ZERL        CLEAR LAST CM WORD
00383  M01S00357.1lc     +++|          CRM    DBUF+RPBB*PBDB,ON
00384  M01S00358.1lc     +++|          LJM    DCT3        TRANSFER LAST PARTIAL BUFFER
00385  M01S00359.1lc     +++|
00386  M01S00360.1lc     +++| DCT7     LJM    DCT9        UPDATE FET
00387  M01S00361.1lc     +++| D7C      SPACE  4,10
00388  M01S00362.1lc     +++|**        D7C - DUMP 7165 CONTROLLER MEMORY.
00389  M01S00363.1lc     +++|*
00390  M01S00364.1lc     +++|*         ENTRY  (CM+1) = 0.
00391  M01S00365.1lc     +++|*
00392  M01S00366.1lc     +++|*         EXIT   (A) = 0 IF DUMP SUCCESSFUL.
00393  M01S00367.1lc     +++|*
00394  M01S00368.1lc     +++|*         USES   CM+1, T1, T2, T3, T4.
00395  M01S00369.1lc     +++|*
00396  M01S00370.1lc     +++|*         CALLS  FNC, WBC.
00397  M01S00371.1lc     +++|
00398  M01S00372.1lc     +++|
00399  M01S00373.1lc     +++| D7C      SUBR               ENTRY/EXIT
00400  M01S00374.1lc     +++|          LDN    4           SET 7165 CONTROLLER TYPE INDEX
00401  M01S00375.1lc     +++|          STD    T4
00402  M01S00376.1lc     +++|          LDN    NBBD        SET NUMBER OF CONTROLLER BLOCKS TO DUMP
00403  M01S00377.1lc     +++|          STD    T2
00404  M01S00378.1lc     +++|          LDK    CMWF        SET NUMBER OF CM WORDS IN FULL BUFFER
00405  M01S00379.1lc     +++|          STD    T3
00406  M01S00380.1lc     +++|          LDK    CTDB        SET NUMBER OF CONTROLLER WORDS IN BLOCK
00407  M01S00381.1lc     +++|          STD    T1
00408  M01S00382.1lc     +++| D7C1     LDC    FCLA        LOAD ADDRESS AND LENGTH
00409  M01S00383.1lc     +++| D7CA     EQU    *-1
00410  M01S00384.1lc     +++|          RJM    FNC
00411  M01S00385.1lc     +++| D7C2     NJN    D7CX        IF FUNCTION TIMEOUT
00412  M01S00386.1lc     +++|          ACN    CH
00413  M01S00387.1lc     +++|          LDD    CM+1        SEND BOTTOM 12 BITS OF ADDRESS
00414  M01S00388.1lc     +++|          OAN    CH
00415  M01S00389.1lc     +++|          LDD    T1          SEND LENGTH
00416  M01S00390.1lc     +++|          OAN    CH
00417  M01S00391.1lc     +++|          FJM    *,CH
00418  M01S00392.1lc     +++|          DCN    CH
00419  M01S00393.1lc     +++|          LDC    FCDC        ISSUE DIAGNOSTIC READ
00420  M01S00394.1lc     +++|          RJM    FNC
00421  M01S00395.1lc     +++|          NJN    D7CX        IF FUNCTION TIMEOUT
00422  M01S00396.1lc     +++|          ACN    CH
00423  M01S00397.1lc     +++|          LDD    T1
00424  M01S00398.1lc     +++|          SHN    1
00425  M01S00399.1lc     +++|          IAM    DBUF,CH     READ CONTROLLER MEMORY BLOCK
00426  M01S00400.1lc     +++|          NJN    D7C2        IF NOT ALL DATA TRANSFERRED
00427  M01S00401.1lc     +++|          RJM    WBC         WRITE BUFFER TO CM
00428  M01S00402.1lc     +++|          SOD    T2
00429  M01S00403.1lc     +++|          PJN    D7C3        IF DUMP NOT COMPLETE
00430  M01S00404.1lc     +++|          LDN    0
00431  M01S00405.1lc     +++|          LJM    D7CX        RETURN
00432  M01S00406.1lc     +++|
00433  M01S00407.1lc     +++| D7C3     LDC    CTDB        UPDATE CONTROLLER MEMORY ADDRESS
00434  M01S00408.1lc     +++|          RAD    CM+1
00435  M01S00409.1lc     +++|          SHN    -14
00436  M01S00410.1lc     +++|          RAM    D7CA
00437  M01S00411.1lc     +++|          LDD    T2
00438  M01S00412.1lc     +++|          NJN    D7C4        IF MORE FULL BLOCKS TO DUMP
00439  M01S00413.1lc     +++|          LDK    CMWP        SET NUMBER OF CM WORDS IN PARTIAL BLOCK
00440  M01S00414.1lc     +++|          STD    T3
00441  M01S00415.1lc     +++|          LDK    CTPB        SET NUMBER OF PP BYTES IN PARTIAL BLOCK
00442  M01S00416.1lc     +++|          STD    T1
00443  M01S00417.1lc     +++| D7C4     LJM    D7C1        DUMP PARTIAL BLOCK
00444  M01S00418.1lc     +++| FNC      SPACE  4,10
00445  M01S00419.1lc     +++|**        FNC - ISSUE FUNCTION.
00446  M01S00420.1lc     +++|*
00447  M01S00421.1lc     +++|*         ENTRY  (A) = FUNCTION CODE.
00448  M01S00422.1lc     +++|*
00449  M01S00423.1lc     +++|*         EXIT   (A) = 0 IF FUNCTION ACCEPTED.
00450  M01S00424.1lc     +++|*                (A) = *RC22* IF FUNCTION TIMEOUT.
00451  M01S00425.1lc     +++|
00452  M01S00426.1lc     +++|
00453  M01S00427.1lc     +++| FNC3     LDN    0
00454  M01S00428.1lc     +++|
00455  M01S00429.1lc     +++| FNC      SUBR               ENTRY/EXIT
00456  M01S00430.1lc     +++|          STD    FN          SAVE FUNCTION ISSUED
00457  M01S00431.1lc     +++|          IJM    FNC1,CH     IF CONTROLLER READY
00458  M01S00432.1lc     +++|          DCN    CH
00459  M01S00433.1lc     +++| FNC1     FAN    CH
00460  M01S00013.ns2776  +++|          LDD    HN          FUNCTION TIMEOUT OUTER DELAY
00461  M01S00014.ns2776  +++|          STD    T0
00462  M01S00434.1lc     +++| FNC2     ADD    ON
00463  M01S00435.1lc     +++|          IJM    FNC3,CH     IF FUNCTION ACCEPTED
Line S00436 Modification History
M01 (Added by) 1lc
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00464  M02S00436.ns2776  ---|          NJN    FNC2        IF NOT END OF DELAY
00465  M01S00015.ns2776  +++|          NJN    FNC2        IF NOT FUNCTION TIMEOUT
00466  M01S00016.ns2776  +++|          SOD    T0
00467  M01S00017.ns2776  +++|          NJN    FNC2        IF NOT FUNCTION TIMEOUT
00468  M01S00437.1lc     +++|          DCN    CH
00469  M01S00438.1lc     +++|          LDN    RC32        * FUNCTION TIMED OUT=NNNN.*
00470  M01S00439.1lc     +++|          UJN    FNCX        EXIT
00471  M01S00440.1lc     +++| GDA      SPACE  4,10
00472  M01S00441.1lc     +++|**        GDA - GET DUMP FET ADDRESS.
00473  M01S00442.1lc     +++|*
00474  M01S00443.1lc     +++|*         ENTRY  (IR+2 - IR+3) = DUMP FET ADDRESS.
00475  M01S00444.1lc     +++|*
00476  M01S00445.1lc     +++|*         EXIT   (A) = ABSOLUTE DUMP FET ADDRESS.
00477  M01S00446.1lc     +++|*                (A) = 0 IF NO DUMP REQUESTED.
00478  M01S00447.1lc     +++|
00479  M01S00448.1lc     +++|
00480  M01S00449.1lc     +++| GDA      SUBR               ENTRY/EXIT
00481  M01S00450.1lc     +++|          LDD    IR+3        GET DUMP FET ADDRESS
00482  M01S00451.1lc     +++|          SCN    77
00483  M01S00452.1lc     +++|          SHN    6
00484  M01S00453.1lc     +++|          ADD    IR+2
00485  M01S00454.1lc     +++|          ZJN    GDAX        IF NO DUMP REQUESTED
00486  M01S00455.1lc     +++|          ADD    RA
00487  M01S00456.1lc     +++|          SHN    6
00488  M01S00457.1lc     +++|          UJN    GDAX        RETURN
00489  M01S00458.1lc     +++| GLA      SPACE  4,10
00490  M01S00459.1lc     +++|**        GLA - GET LOAD FET ADDRESS.
00491  M01S00460.1lc     +++|*
00492  M01S00461.1lc     +++|*         ENTRY  (IR+3 - IR+4) = LOAD FET ADDRESS.
00493  M01S00462.1lc     +++|*
00494  M01S00463.1lc     +++|*         EXIT   (A) = ABSOLUTE LOAD FET ADDRESS.
00495  M01S00464.1lc     +++|
00496  M01S00465.1lc     +++|
00497  M01S00466.1lc     +++| GLA      SUBR               ENTRY/EXIT
00498  M01S00467.1lc     +++|          LDD    IR+3        GET LOAD FET ADDRESS
00499  M01S00468.1lc     +++|          LPN    37
00500  M01S00469.1lc     +++|          SHN    6
00501  M01S00470.1lc     +++|          ADD    RA
00502  M01S00471.1lc     +++|          SHN    6
00503  M01S00472.1lc     +++|          ADD    IR+4
00504  M01S00473.1lc     +++|          UJN    GLAX        RETURN
00505  M01S00474.1lc     +++| ICE      SPACE  4,10
00506  M01S00475.1lc     +++|**        ICE - INTERLOCK CONTROLWARE LOAD BITS.
00507  M01S00476.1lc     +++|*
00508  M01S00477.1lc     +++|*         ENTRY  (CE - CE+1) = CONTROLWARE LOAD BIT ADDRESS.
00509  M01S00478.1lc     +++|*                (CHTI) = CONTROLWARE INTERLOCK *UTEM* PARAMETERS.
00510  M01S00479.1lc     +++|*
00511  M01S00480.1lc     +++|*         EXIT   (CM+1) = *UTEM* RETURN STATUS.
00512  M01S00481.1lc     +++|*
00513  M01S00482.1lc     +++|*         USES   CM+1, CM+3, CM+4, T1.
00514  M01S00483.1lc     +++|*
00515  M01S00484.1lc     +++|*         MACROS MONITOR.
00516  M01S00485.1lc     +++|
00517  M01S00486.1lc     +++|
00518  M01S00487.1lc     +++| ICE      SUBR               ENTRY/EXIT
00519  M01S00488.1lc     +++|          LDN    2
00520  M01S00489.1lc     +++|          STD    CM+1        SET NUMBER OF *UTEM* PARAMETER WORDS
00521  M01S00490.1lc     +++|          STD    T1
00522  M01S00491.1lc     +++|          LDD    CE          SET CONROLWARE LOAD BIT ADDRESS
00523  M01S00492.1lc     +++|          STD    CM+3
00524  M01S00493.1lc     +++|          LDD    CE+1
00525  M01S00494.1lc     +++|          STD    CM+4
00526  M01S00495.1lc     +++|          LDD    MA
00527  M01S00496.1lc     +++|          CWM    CHTI,T1     SET/CLEAR CONTROLWARE LOAD INTERLOCK
00528  M01S00497.1lc     +++|          MONITOR  UTEM
00529  M01S00498.1lc     +++|          LDD    MA          GET NEW VALUES
00530  M01S00499.1lc     +++|          CRM    CHTI,T1
00531  M01S00500.1lc     +++|          UJN    ICEX        RETURN
00532  M01S00501.1lc     +++|
00533  M01S00502.1lc     +++|
00534  M01S00503.1lc     +++| CHTI     VFD    1/1,5/0,6/2,6/34D,42/0  VERIFY INTERLOCKS
Line S00504 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc2
Seq #  *Modification Id* Act 
----------------------------+
00535  M02S00504.1lc2    ---|*         VFD    1/1,5/0,6/3,6/30D,42/0  VERIFY RELOAD COUNT
00536  M01S00001.1lc2    +++|*         VFD    1/1,5/0,6/4,6/30D,42/0  VERIFY RELOAD COUNT/DRIVER BIT
00537  M01S00505.1lc     +++|
00538  M01S00506.1lc     +++|          VFD    1/0,5/0,6/1,6/34D,42/1  SET LOAD IN PROGRESS
00539  M01S00507.1lc     +++|*         VFD    1/0,5/0,6/5,6/30D,42/0  CLEAR INTERLOCK/SET LOAD COUNT
00540  M01S00508.1lc     +++| ILF      SPACE  4,10
00541  M01S00509.1lc     +++|**        ILF - ISSUE LOAD FUNCTION.
00542  M01S00510.1lc     +++|*
00543  M01S00511.1lc     +++|*         ENTRY  (CO) = 0 IF NOT CONTROL MODULE RELOAD.
00544  M01S00512.1lc     +++|*                (CS) = 0 IF DRIVER CALL.
00545  M01S00513.1lc     +++|*                (EQ) = CONTROL MODULE EQUIPMENT NUMBER.
00546  M01S00514.1lc     +++|*
00547  M01S00515.1lc     +++|*         CALLS  CCS, FNC.
00548  M01S00516.1lc     +++|
00549  M01S00517.1lc     +++|
00550  M01S00518.1lc     +++| ILF2     LDD    CS
00551  M01S00519.1lc     +++| ILFA     ZJN    ILF3        IF DRIVER CALL
00552  M01S00520.1lc     +++|*         PSN                (*FCAR* FUNCTION NOT SUPPORTED)
00553  M01S00521.1lc     +++|          LDC    FCAL&FCAR
00554  M01S00522.1lc     +++| ILF3     LMN    FCAR
00555  M01S00523.1lc     +++| ILF4     RJM    FNC         ISSUE FUNCTION
00556  M01S00524.1lc     +++|
00557  M01S00525.1lc     +++| ILF      SUBR               ENTRY/EXIT
00558  M01S00526.1lc     +++|          LDD    CO
00559  M01S00527.1lc     +++|          ZJN    ILF2        IF NOT CONTROL MODULE RELOAD
00560  M01S00528.1lc     +++| ILF1     LDN    FCCN
00561  M01S00529.1lc     +++|          RJM    FNC         ISSUE CONNECT FUNCTION
00562  M01S00530.1lc     +++|          NJN    ILFX        IF FUNCTION TIMEOUT
00563  M01S00531.1lc     +++|          ACN    CH
00564  M01S00532.1lc     +++|          LDD    EQ          OUTPUT CONTROL MODULE EQUIPMENT NUMBER
00565  M01S00533.1lc     +++|          SHN    3
00566  M01S00534.1lc     +++|          OAN    CH
00567  M01S00535.1lc     +++|          FJM    *,CH        IF CHANNEL FULL
00568  M01S00536.1lc     +++|          DCN    CH
00569  M01S00537.1lc     +++|          RJM    CCS         STATUS CONTROLLER
00570  M01S00538.1lc     +++|          NJN    ILFX        IF ERROR
00571  M01S00539.1lc     +++|          LDD    ST
00572  M01S00540.1lc     +++|          NJN    ILF1        IF GENERAL STATUS NOT ZERO
00573  M01S00541.1lc     +++|          LDN    FCLC
00574  M01S00542.1lc     +++|          UJN    ILF4        ISSUE CONTROLWARE LOAD FROM PP FUNCTION
00575  M01S00543.1lc     +++| LCT      SPACE  4,15
00576  M01S00544.1lc     +++|**        LCT - LOAD CONTROLWARE TO CONTROLLER.
00577  M01S00545.1lc     +++|*
00578  M01S00546.1lc     +++|*         ENTRY  (CS) = CHANNEL SPECIFIED ON CALL STATUS.
00579  M01S00547.1lc     +++|*                (DP+3 - DP+4) = FWA CONTROLWARE RECORD (77 TABLE).
00580  M01S00548.1lc     +++|*                (EQ) = CONTROL MODULE EQUIPMENT NUMBER IF SPECIFIED.
00581  M01S00549.1lc     +++|*                (WC) = CM WORD COUNT OF CONTROLWARE RECORD.
00582  M01S00550.1lc     +++|*
00583  M01S00551.1lc     +++|*         EXIT   (A) = 0 IF LOAD COMPLETE.
Line S00552 Modification History
M01 (Added by) 1lc
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00584  M02S00552.ns2776  ---|*                (A) = *RC20* IF CONTROLLER DID NOT TAKE ALL
00585  M01S00018.ns2776  +++|*                (A) = *RC30* IF CONTROLLER DID NOT TAKE ALL
00586  M01S00553.1lc     +++|*                      CONTROLWARE.
00587  M01S00554.1lc     +++|*                (A) = *RC22* IF FUNCTION TIMEOUT.
00588  M01S00555.1lc     +++|*                (A) = *RC23* IF STATUS NOT RECEIVED.
00589  M01S00556.1lc     +++|*
00590  M01S00557.1lc     +++|*         USES   T1, WC, DP+3 - DP+4.
00591  M01S00558.1lc     +++|*
00592  M01S00559.1lc     +++|*         CALLS  CCS, ILF.
00593  M01S00560.1lc     +++|
00594  M01S00561.1lc     +++|
00595  M01S00562.1lc     +++| LCT4     FJM    *,CH        IF LAST WORD STILL ON CHANNEL
00596  M01S00563.1lc     +++|          DCN    CH
00597  M01S00564.1lc     +++| LCT5     DELAY
00598  M01S00565.1lc     +++|          RJM    CCS         CHECK STATUS
00599  M01S00566.1lc     +++|          NJN    LCTX        IF ERROR
00600  M01S00567.1lc     +++|          LDD    ST
00601  M01S00568.1lc     +++|          SBN    2
00602  M01S00569.1lc     +++|          ZJN    LCT5        IF CONTROLLER BUSY
00603  M01S00570.1lc     +++|          LDN    0
00604  M01S00571.1lc     +++|
00605  M01S00572.1lc     +++| LCT      SUBR               ENTRY/EXIT
00606  M01S00573.1lc     +++|          RJM    ILF         ISSUE LOAD FUNCTION
00607  M01S00574.1lc     +++|          NJN    LCTX        IF FUNCTION TIMEOUT
00608  M01S00575.1lc     +++|          LDD    RA
00609  M01S00576.1lc     +++|          SHN    6
00610  M01S00577.1lc     +++|          RAD    DP+4
00611  M01S00578.1lc     +++|          SHN    -14
00612  M01S00579.1lc     +++|          RAD    DP+3
00613  M01S00580.1lc     +++|          LDD    TH
00614  M01S00581.1lc     +++|          ERRNZ  BUFL-1000   CODE DEPENDS ON VALUE
00615  M01S00582.1lc     +++|          STD    T1
00616  M01S00583.1lc     +++|          ACN    CH          ACTIVATE CHANNEL FOR OUTPUT
00617  M01S00584.1lc     +++| LCT2     LDD    WC          SET BLOCK WORD COUNT
00618  M01S00585.1lc     +++|          ZJN    LCT4        IF END OF CONTROLWARE
00619  M01S00586.1lc     +++|          SBD    T1
00620  M01S00587.1lc     +++|          PJN    LCT3        IF DATA OVERFLOWS BUFFER
00621  M01S00588.1lc     +++|          LDD    WC
00622  M01S00589.1lc     +++|          STD    T1
00623  M01S00590.1lc     +++|          LDN    0
00624  M01S00591.1lc     +++| LCT3     STD    WC
00625  M01S00592.1lc     +++|          LDD    DP+3        SET CONTROLWARE DATA ADDRESS
00626  M01S00593.1lc     +++|          SHN    14
00627  M01S00594.1lc     +++|          ADD    DP+4
00628  M01S00595.1lc     +++|          CRM    BUF,T1      READ BLOCK OF CONTROLWARE
00629  M01S00596.1lc     +++|          STD    DP+4        SAVE NEXT CM ADDRESS FOR CONTROLWARE READ
00630  M01S00597.1lc     +++|          SHN    -14
00631  M01S00598.1lc     +++|          STD    DP+3
00632  M01S00599.1lc     +++|          LDD    T1          OUTPUT BLOCK TO CONTROLLER
00633  M01S00600.1lc     +++|          SHN    2
00634  M01S00601.1lc     +++|          ADD    T1
00635  M01S00602.1lc     +++|          OAM    BUF,CH
00636  M01S00603.1lc     +++|          FJM    *,CH        IF CHANNEL FULL
00637  M01S00604.1lc     +++|          ZJN    LCT2        IF ALL DATA TAKEN
00638  M01S00605.1lc     +++|          LDN    RC30        * CONTROLLER DID NOT TAKE ALL CONTROLWARE*
00639  M01S00606.1lc     +++|          LJM    LCTX        RETURN
00640  M01S00607.1lc     +++| RCT      SPACE  4,10
00641  M01S00608.1lc     +++|**        RCT - READ CHANNEL TABLE.
00642  M01S00609.1lc     +++|*
00643  M01S00610.1lc     +++|*         ENTRY  (A) = CHANNEL NUMBER.
00644  M01S00611.1lc     +++|*
00645  M01S00612.1lc     +++|*         EXIT   (A) = ADDRESS OF CHANNEL RESERVATION TABLE WORD.
00646  M01S00613.1lc     +++|*                (BC) = CHANNEL NUMBER.
00647  M01S00614.1lc     +++|*                (T6) = BYTE ADDRESS OF CHANNEL RESERVATION STATUS.
00648  M01S00615.1lc     +++|*                (CM - CM+4) = CHANNEL RESERVATION TABLE WORD.
00649  M01S00616.1lc     +++|*
00650  M01S00617.1lc     +++|*         USES   T0.
00651  M01S00618.1lc     +++|
00652  M01S00619.1lc     +++|
00653  M01S00620.1lc     +++| RCT      SUBR               ENTRY/EXIT
Line S00621 Modification History
M01 (Added by) 1lc
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00654  M02S00621.252l678 ---|          LPN    37
00655  M01S00001.252l678 +++|          LPN    77
00656  M01S00622.1lc     +++|          STD    BC
00657  M01S00623.1lc     +++|          STD    T6
00658  M01S00624.1lc     +++|          LCN    0
00659  M01S00625.1lc     +++|          STD    T0
00660  M01S00626.1lc     +++|          LDK    CHTP        GET CHANNEL TABLE ADDRESS
00661  M01S00627.1lc     +++|          CRD    CM
00662  M01S00628.1lc     +++| RCT1     AOD    T0
00663  M01S00629.1lc     +++|          LCN    5
00664  M01S00630.1lc     +++|          RAD    T6
00665  M01S00631.1lc     +++|          PJN    RCT1        IF CHANNEL WORD NOT REACHED
00666  M01S00632.1lc     +++|          ADN    CM+5
00667  M01S00633.1lc     +++|          STD    T6
00668  M01S00634.1lc     +++|          LDD    CM+2        READ CHANNEL RESERVATION TABLE
00669  M01S00635.1lc     +++|          SHN    14
00670  M01S00636.1lc     +++|          LMD    CM+3
00671  M01S00637.1lc     +++|          ADD    T0
00672  M01S00638.1lc     +++|          CRD    CM
00673  M01S00639.1lc     +++|          UJN    RCTX        RETURN
Line S00640 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00674  M02S00640.1lc5    ---| RSC      SPACE  4,15
Line S00641 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00675  M02S00641.1lc5    ---|**        RSC - RESERVE AND STATUS CHANNEL.
Line S00642 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00676  M02S00642.1lc5    ---|*
Line S00643 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00677  M02S00643.1lc5    ---|*         ENTRY  (BC) = CHANNEL NUMBER.
Line S00644 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00678  M02S00644.1lc5    ---|*                    = *RC2* IF DOWN CHANNEL IN USE.
Line S00645 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00679  M02S00645.1lc5    ---|*                    = *RC34* IF CONTROLLER RESERVED.
Line S00646 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00680  M02S00646.1lc5    ---|*                (CS) = CHANNEL SPECIFIED ON CALL STATUS.
Line S00647 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00681  M02S00647.1lc5    ---|*
Line S00648 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00682  M02S00648.1lc5    ---|*         EXIT   (A) = 0.
Line S00649 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00683  M02S00649.1lc5    ---|*                (A) = *RC24* IF CONTROLLER RESERVED THROUGH
Line S00650 Modification History
M01 (Added by) 1lc
M02 (Updated by) 252l678
M03 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00684  M03S00650.1lc5    ---|*                      ALTERNATE ACCESS.
Line S00002 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00685  M02S00002.1lc5    ---|*                      ALTERNATE ACCESS OR *RC22* IF FUNCTION
Line S00003 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00686  M02S00003.1lc5    ---|*                      TIMEOUT OCCURED.
Line S00651 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00687  M02S00651.1lc5    ---|*                CHANNEL RESERVED IF NOT SYSTEM REQUEST.
Line S00652 Modification History
M01 (Added by) 1lc
M02 (Updated by) 252l678
M03 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00688  M03S00652.1lc5    ---|*
Line S00653 Modification History
M01 (Added by) 1lc
M02 (Updated by) 252l678
M03 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00689  M03S00653.1lc5    ---|*         ERROR  EXIT TO *LCW4* IF DOWN CHANNEL ALREADY IN USE.
Line S00654 Modification History
M01 (Added by) 1lc
M02 (Updated by) 252l678
M03 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00690  M03S00654.1lc5    ---|*                (RC) = *RC2*.
Line S00655 Modification History
M01 (Added by) 1lc
M02 (Updated by) 252l678
M03 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00691  M03S00655.1lc5    ---|*                CHANNEL NOT RESERVED.
Line S00656 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00692  M02S00656.1lc5    ---|*
Line S00657 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00693  M02S00657.1lc5    ---|*         USES   CM - CM+4.
Line S00658 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00694  M02S00658.1lc5    ---|*
Line S00659 Modification History
M01 (Added by) 1lc
M02 (Updated by) 252l678
M03 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00695  M03S00659.1lc5    ---|*         CALLS  CCS, RCT.
Line S00004 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00696  M02S00004.1lc5    ---|*         CALLS  CCS, FNC, RCT.
Line S00660 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00697  M02S00660.1lc5    ---|*
Line S00661 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00698  M02S00661.1lc5    ---|*         MACROS MONITOR, RCHAN.
Line S00662 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00699  M02S00662.1lc5    ---|
Line S00663 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00700  M02S00663.1lc5    ---|
Line S00664 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00701  M02S00664.1lc5    ---| RSC2     LDD    BC
Line S00665 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00702  M02S00665.1lc5    ---|          RCHAN              RESERVE CHANNEL
Line S00666 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00703  M02S00666.1lc5    ---| RSC3     AOD    CF          SET CHANNEL RESERVED BY *1LC* FLAG
Line S00667 Modification History
M01 (Added by) 1lc
M02 (Updated by) 252l678
M03 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00704  M03S00667.1lc5    ---| RSC4     RJM    CCS         CHECK CONTROLLER STATUS
Line S00005 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00705  M02S00005.1lc5    ---| RSC4     LDD    BC
Line S00006 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00706  M02S00006.1lc5    ---|          LPN    40
Line S00007 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00707  M02S00007.1lc5    ---|          ZJN    RSC4.1      IF NOT A CIO CHANNEL
Line S00008 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00708  M02S00008.1lc5    ---|          LDC    100000      MASTER CLEAR THE CHANNEL
Line S00009 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00709  M02S00009.1lc5    ---|          RJM    FNC
Line S00010 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00710  M02S00010.1lc5    ---|          NJN    RSCX        IF ERROR OCCURRED
Line S00011 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00711  M02S00011.1lc5    ---| RSC4.1   RJM    CCS         CHECK CONTROLLER STATUS
Line S00668 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00712  M02S00668.1lc5    ---|          NJN    RSC5        IF STATUS TIMEOUT OR STATUS NOT RECEIVED
Line S00669 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00713  M02S00669.1lc5    ---|          LDD    ST
Line S00670 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00714  M02S00670.1lc5    ---| RSC5     LPC    2000
Line S00671 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00715  M02S00671.1lc5    ---|          ZJN    RSCX        IF CONTROLLER NOT ALREADY RESERVED
Line S00672 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00716  M02S00672.1lc5    ---|          LDN    RC34        * CHXX, CONTROLLER RESERVED.*
Line S00673 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00717  M02S00673.1lc5    ---|
Line S00674 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00718  M02S00674.1lc5    ---| RSC      SUBR               ENTRY/EXIT
Line S00675 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00719  M02S00675.1lc5    ---|          LDD    CS
Line S00676 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00720  M02S00676.1lc5    ---|          ZJN    RSC4        IF DRIVER CALL
Line S00677 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00721  M02S00677.1lc5    ---|          LDD    BC
Line S00678 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00722  M02S00678.1lc5    ---|          RJM    RCT         READ CHANNEL TABLE
Line S00679 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00723  M02S00679.1lc5    ---|          LDI    T6
Line S00680 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00724  M02S00680.1lc5    ---|          LPN    40
Line S00681 Modification History
M01 (Added by) 1lc
M02 (Updated by) 252l678
M03 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00725  M03S00681.1lc5    ---|          ZJN    RSC2        IF CHANNEL UP
Line S00012 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00726  M02S00012.1lc5    ---|          ZJP    RSC2        IF CHANNEL UP
Line S00682 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00727  M02S00682.1lc5    ---|          LDN    0
Line S00683 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00728  M02S00683.1lc5    ---|          STD    CM+2
Line S00684 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00729  M02S00684.1lc5    ---|          LDD    BC          ASSIGN DOWNED CHANNEL
Line S00685 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00730  M02S00685.1lc5    ---|          STD    CM+1
Line S00686 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00731  M02S00686.1lc5    ---|          MONITOR  CCHM
Line S00687 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00732  M02S00687.1lc5    ---|          LDD    CM+2
Line S00688 Modification History
M01 (Added by) 1lc
M02 (Updated by) 252l678
M03 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00733  M03S00688.1lc5    ---|          NJN    RSC3        IF CHANNEL ASSIGNED
Line S00013 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00734  M02S00013.1lc5    ---|          NJP    RSC3        IF CHANNEL ASSIGNED
Line S00689 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00735  M02S00689.1lc5    ---|          LDN    RC2         * SPECIFIED CHANNEL IS IN USE.*
Line S00690 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00736  M02S00690.1lc5    ---|          UJN    RSCX        RETURN
00737  M01S00691.1lc     +++| SDR      SPACE  4,10
00738  M01S00692.1lc     +++|**        SDR - SET DUMP FET RESPONSE.
00739  M01S00693.1lc     +++|*
00740  M01S00694.1lc     +++|*         ENTRY  (DR) = DUMP FET RESPONSE CODE.
00741  M01S00695.1lc     +++|*                (IR+2 - IR+3) = DUMP FET ADDRESS.
00742  M01S00696.1lc     +++|*
00743  M01S00697.1lc     +++|*         EXIT   (IR+2 - IR+3) = DUMP FET ADDRESS CLEARED.
00744  M01S00698.1lc     +++|*
00745  M01S00699.1lc     +++|*         USES   CM - CM+4.
00746  M01S00700.1lc     +++|*
00747  M01S00701.1lc     +++|*         CALLS  GDA.
00748  M01S00702.1lc     +++|
00749  M01S00703.1lc     +++|
00750  M01S00704.1lc     +++| SDR      SUBR               ENTRY/EXIT
00751  M01S00705.1lc     +++|          RJM    GDA         GET DUMP FET ADDRESS
00752  M01S00706.1lc     +++|          ZJN    SDRX        IF NO DUMP REQUESTED
00753  M01S00707.1lc     +++|          CRD    CM
00754  M01S00708.1lc     +++|          LDD    DR          RETURN RESPONSE CODE
00755  M01S00709.1lc     +++|          SHN    1
00756  M01S00710.1lc     +++|          LMN    1           SET COMPLETE BIT
00757  M01S00711.1lc     +++|          STD    CM+4
00758  M01S00712.1lc     +++|          RJM    GDA
00759  M01S00713.1lc     +++|          CWD    CM
00760  M01S00714.1lc     +++|          LDN    0           CLEAR DUMP FET ADDRESS
00761  M01S00715.1lc     +++|          STD    IR+2
00762  M01S00716.1lc     +++|          LDD    IR+3
00763  M01S00717.1lc     +++|          LPN    77
00764  M01S00718.1lc     +++|          STD    IR+3
00765  M01S00719.1lc     +++|          UJN    SDRX        RETURN
00766  M01S00720.1lc     +++| WBC      SPACE  4,10
00767  M01S00721.1lc     +++|**        WBC - WRITE DUMP BUFFER TO CM.
00768  M01S00722.1lc     +++|*
00769  M01S00723.1lc     +++|*         ENTRY  (T3) = NUMBER OF CM WORDS IN BUFFER BLOCK.
00770  M01S00724.1lc     +++|*                (T4) = CONTROLLER TYPE INDEX IF FIRST BLOCK.
00771  M01S00725.1lc     +++|*                     = 0 IF FIRST BLOCK ALREADY WRITTEN.
00772  M01S00726.1lc     +++|*                (DB+3 - DB+4) = DUMP FET *IN* POINTER.
00773  M01S00727.1lc     +++|*
00774  M01S00728.1lc     +++|*         EXIT   BUFFER BLOCK WRITTEN TO CM.
00775  M01S00729.1lc     +++|*                DUMP FET *IN* POINTER UPDATED.
00776  M01S00730.1lc     +++|
00777  M01S00731.1lc     +++|
00778  M01S00732.1lc     +++| WBC      SUBR               ENTRY/EXIT
00779  M01S00733.1lc     +++|          LDD    T4          SET CONTROLLER TYPE INDEX IN BYTE 0
00780  M01S00734.1lc     +++|          ZJN    WBC1        IF NOT FIRST BLOCK
00781  M01S00735.1lc     +++|          STM    BUF
00782  M01S00736.1lc     +++|          LDN    0           SET FIRST BLOCK WRITTEN
00783  M01S00737.1lc     +++|          STD    T4
00784  M01S00738.1lc     +++| WBC1     LDD    DB+3        WRITE BUFFER TO CM
00785  M01S00739.1lc     +++|          SHN    6
00786  M01S00740.1lc     +++|          ADD    RA
00787  M01S00741.1lc     +++|          SHN    6
00788  M01S00742.1lc     +++|          ADD    DB+4
00789  M01S00743.1lc     +++|          CWM    DBUF,T3
00790  M01S00744.1lc     +++|          LDD    T3          ADVANCE DUMP FET *IN* POINTER
00791  M01S00745.1lc     +++|          RAD    DB+4
00792  M01S00746.1lc     +++|          SHN    -14
00793  M01S00747.1lc     +++|          RAD    DB+3
00794  M01S00748.1lc     +++|          UJN    WBCX        RETURN
00795  M01S00749.1lc     +++|          TITLE  BUFFERS.
00796  M01S00750.1lc     +++|          USE    BUFFERS
00797  M01S00751.1lc     +++|          USE    *
00798  M01S00752.1lc     +++|
00799  M01S00753.1lc     +++|
00800  M01S00754.1lc     +++| BUF      EQU    *           CONTROLWARE LOAD BUFFER
00801  M01S00755.1lc     +++|
00802  M01S00756.1lc     +++|          ERRNG  EPFW-BUF-BUFL  PPU MEMORY OVERFLOW
00803  M01S00757.1lc     +++|
00804  M01S00758.1lc     +++|
00805  M01S00759.1lc     +++| DBUF     EQU    *           CONTROLLER DUMP BUFFER
00806  M01S00760.1lc     +++| DBUFL    EQU    EPFW-DBUF-5 MAXIMUM BUFFER SIZE
00807  M01S00761.1lc     +++|
00808  M01S00762.1lc     +++|*         7155 DUMP BUFFER ASSEMBLY CONSTANTS.
00809  M01S00763.1lc     +++|
00810  M01S00764.1lc     +++| MXDB     EQU    DBUFL/PBDB/5*5  MAXIMUM 7155 DUMP BLOCKS IN PP BUFFER
00811  M01S00765.1lc     +++| NFBT     EQU    NCBD/MXDB   NUMBER OF FULL BUFFERS TO TRANSFER
00812  M01S00766.1lc     +++| RPBB     EQU    NCBD-NFBT*MXDB  REMAINING PARTIAL BUFFER BLOCKS
00813  M01S00767.1lc     +++| CWFB     EQU    MXDB*PBDB/5 CM WORDS IN FULL BUFFER
00814  M01S00768.1lc     +++| PBPB     EQU    RPBB*PBDB+4 PP BYTES IN LAST PARTIAL BUFFER (ROUNDED)
00815  M01S00769.1lc     +++| CWPB     EQU    PBPB/5      CM WORDS IN LAST PARTIAL BUFFER
00816  M01S00770.1lc     +++|
00817  M01S00771.1lc     +++|*         7165 DUMP BUFFER ASSEMBLY CONSTANTS.
00818  M01S00772.1lc     +++|
00819  M01S00773.1lc     +++| PPDB     EQU    DBUFL/12*12 PP BYTES PER FULL DUMP BLOCK
00820  M01S00774.1lc     +++| CCSZ     EQU    40000       7165 CONTROLLER MEMORY SIZE (16 BIT WORDS)
00821  M01S00775.1lc     +++| CTDB     EQU    PPDB/2      CONTROLLER WORDS PER FULL DUMP BLOCK
00822  M01S00776.1lc     +++| NBBD     EQU    CCSZ/CTDB   NUMBER OF CONTROLLER BLOCKS TO DUMP
00823  M01S00777.1lc     +++| CTPB     EQU    CCSZ-NBBD*CTDB  CONTROLLER WORDS IN PARTIAL DUMP BLOCK
00824  M01S00778.1lc     +++| CMWF     EQU    PPDB/5      NUMBER OF CM WORDS PER FULL BLOCK
00825  M01S00779.1lc     +++| CPPB     EQU    CTPB*2+4    PP BYTES PER PARTIAL BLOCK (ROUNDED)
00826  M01S00780.1lc     +++| CMWP     EQU    CPPB/5      NUMBER OF CM WORDS PER PARTIAL BLOCK
00827  M01S00781.1lc     +++| DBSZ     EQU    CMWF*NBBD+CMWP  CM DUMP BUFFER SIZE
00828  M01S00782.1lc     +++|
00829  M01S00783.1lc     +++|
00830  M01S00784.1lc     +++|          OVERFLOW
00831  M01S00785.1lc     +++|          TITLE  PRESET.
00832  M01S00786.1lc     +++| PRS      SPACE  4,20
00833  M01S00787.1lc     +++|**        PRS - PRESET LOAD CONTROLWARE.
00834  M01S00788.1lc     +++|*
00835  M01S00789.1lc     +++|*         ENTRY  (IR+2 - IR+3) = DUMP FET ADDRESS.
00836  M01S00790.1lc     +++|*                (IR+3 - IR+4) = LOAD FET ADDRESS.
00837  M01S00791.1lc     +++|*                (LOAD FET+8) BIT 2**11 = 1 IF BOTTOM 9 BITS =
00838  M01S00792.1lc     +++|*                                         CONTROL MODULE EST ORDINAL.
00839  M01S00793.1lc     +++|*                             BIT 2**10 = 0 IF DRIVER CALL.
00840  M01S00794.1lc     +++|*
00841  M01S00795.1lc     +++|*         EXIT   (A) = ERROR RESPONSE.
00842  M01S00796.1lc     +++|*                (BC) = CHANNEL NUMBER.
00843  M01S00797.1lc     +++|*                (CS) = 0 IF DRIVER CALL.
00844  M01S00798.1lc     +++|*                (CT) = CHANNEL CONTROLWARE TYPE.
00845  M01S00799.1lc     +++|*                (CE - CE+1) = CONTROLWARE LOAD BITS POINTER.
00846  M01S00800.1lc     +++|*                (CHTI) SET FOR CLEAR OF CONTROLWARE TABLE INTERLOCK.
00847  M01S00801.1lc     +++|*                (DB - DB+4) = *IN* POINTER FOR DUMP FET.
00848  M01S00802.1lc     +++|*                (DP+3 - DP+4) = FWA OF CONTROLWARE RECORD (77 TABLE).
00849  M01S00803.1lc     +++|*                (DR) = INITIAL DUMP FET RESPONSE.
00850  M01S00804.1lc     +++|*                (WC) = CM WORD COUNT OF CONTROLWARE RECORD.
00851  M01S00805.1lc     +++|*                IF A CHANNEL WAS SPECIFIED ON THE CALL -
00852  M01S00806.1lc     +++|*                     (CF) = 0.
00853  M01S00807.1lc     +++|*                     (CO) = 0.
00854  M01S00808.1lc     +++|*                IF A CONTROL MODULE WAS SPECIFIED ON THE CALL -
00855  M01S00809.1lc     +++|*                     (CO) = CONTROL MODULE EST ORDINAL.
00856  M01S00810.1lc     +++|*                     (CF) = 1 (CHANNEL RESERVED).
00857  M01S00811.1lc     +++|*                     (EQ) = CONTROL MODULE EQUIPMENT NUMBER.
00858  M01S00812.1lc     +++|*
Line S00813 Modification History
M01 (Added by) 1lc
M02 (Updated by) ns2604
Seq #  *Modification Id* Act 
----------------------------+
00859  M02S00813.ns2604  ---|*         USES   T6, T7, CM - CM+4, CN - CN+4, T0 - T4.
00860  M01S00003.ns2604  +++|*         USES   T6, T7, CM - CM+4, CN - CN+4, DB-2 - DB+7, T0 - T4.
00861  M01S00814.1lc     +++|*
Line S00815 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
00862  M02S00815.1lc5    ---|*         CALLS  DCH, GDA, GLA, ICE, RCT, SCC, SDR, VFP.
00863  M01S00001.1lc5    +++|*         CALLS  DCH, GDA, GLA, ICE, RCT, RSC, SCC, SDR, VFP.
00864  M01S00816.1lc     +++|
00865  M01S00817.1lc     +++|
00866  M01S00818.1lc     +++| PRS18    LDN    RC1         * USER NOT SYSTEM ORIGIN.*
00867  M01S00819.1lc     +++|
00868  M01S00820.1lc     +++| PRS      SUBR               ENTRY/EXIT
00869  M01S00821.1lc     +++|          LDN    DR4         PRESET CONTROLLER DUMP UNSUCCESSFUL STATUS
00870  M01S00822.1lc     +++|          STD    DR
00871  M01S00823.1lc     +++|          LDN    0           INITIALIZE NO CONTROL MODULE EST ORDINAL
00872  M01S00824.1lc     +++|          STD    CO
00873  M01S00825.1lc     +++|          STD    CF          INITIALIZE NO CHANNEL RESERVED
00874  M01S00826.1lc     +++|          LDD    IR+3        VALIDATE CONTROLWARE LOAD FET
00875  M01S00827.1lc     +++|          LPN    77
00876  M01S00828.1lc     +++|          SHN    14
00877  M01S00829.1lc     +++|          ADD    IR+4
00878  M01S00830.1lc     +++|          RJM    VFP
00879  M01S00831.1lc     +++|          NJN    PRS1        IF INVALID BUFFER PARAMETERS
00880  M01S00832.1lc     +++|          LDD    CP
00881  M01S00833.1lc     +++|          ADK    JOTW
00882  M01S00834.1lc     +++|          CRD    CM
00883  M01S00835.1lc     +++|          LDD    CM+3
00884  M01S00836.1lc     +++|          LMK    SYOT
00885  M01S00837.1lc     +++|          NJN    PRS18       IF NOT SYSTEM ORIGIN
00886  M01S00838.1lc     +++|          LDD    MA          GET LOAD FET PARAMETERS
00887  M01S00839.1lc     +++|          ADN    2
00888  M01S00840.1lc     +++|          CRD    DP          *IN* AND *OUT* POINTERS
00889  M01S00841.1lc     +++|          ADN    1
00890  M01S00842.1lc     +++|          CRD    CM          GET FET LENGTH
00891  M01S00843.1lc     +++|          LDD    CM
00892  M01S00844.1lc     +++|          LPN    77
00893  M01S00845.1lc     +++|          SBN    4
00894  M01S00846.1lc     +++|          PJN    PRS2        IF LOAD FET LONG ENOUGH
00895  M01S00847.1lc     +++| PRS1     LDN    RC12        * BUFFER ARGUMENT ERROR.*
00896  M01S00848.1lc     +++|          UJN    PRSX        RETURN
00897  M01S00849.1lc     +++|
00898  M01S00850.1lc     +++| PRS2     LDD    IR+3        VALIDATE CONTROLWARE DUMP FET
00899  M01S00851.1lc     +++|          SCN    77
00900  M01S00852.1lc     +++|          SHN    6
00901  M01S00853.1lc     +++|          LMD    IR+2
00902  M01S00854.1lc     +++|          SHN    6
00903  M01S00855.1lc     +++|          ZJN    PRS4        IF NO CONTROLLER DUMP REQUESTED
00904  M01S00856.1lc     +++|          RJM    VFP
00905  M01S00857.1lc     +++|          NJN    PRS3        IF INVALID BUFFER PARAMETERS
00906  M01S00858.1lc     +++|          LDD    MA          GET DUMP FET PARAMETERS
00907  M01S00859.1lc     +++|          ADN    3
00908  M01S00860.1lc     +++|          CRD    DB+2        *FIRST* AND *LIMIT* POINTERS
00909  M01S00861.1lc     +++|          LDN    ZERL
00910  M01S00862.1lc     +++|          CRD    DB-2
00911  M01S00863.1lc     +++|          RJM    GDA         GET DUMP FET ADDRESS
00912  M01S00864.1lc     +++|          ADN    2           REWIND FET (SET *IN* = *OUT* = *FIRST*)
00913  M01S00865.1lc     +++|          CWD    DB
00914  M01S00866.1lc     +++|          ADN    1
00915  M01S00867.1lc     +++|          CWD    DB
00916  M01S00868.1lc     +++|          LDD    DB+2+3      VERIFY DUMP BUFFER SIZE
00917  M01S00869.1lc     +++|          SBD    DB+2+1
00918  M01S00870.1lc     +++|          SHN    14
00919  M01S00871.1lc     +++|          ADD    DB+2+4
00920  M01S00872.1lc     +++|          SBD    DB+2+2
00921  M01S00873.1lc     +++|          SBK    DBSZ+1      REQUIRED CM DUMP BUFFER SIZE
00922  M01S00874.1lc     +++|          PJN    PRS4        IF DUMP BUFFER LARGE ENOUGH
00923  M01S00875.1lc     +++|          LDN    DR2         * INSUFFICIENT DUMP BUFFER SPACE.*
00924  M01S00876.1lc     +++| PRS3     STD    DR
00925  M01S00877.1lc     +++|          RJM    SDR         SET DUMP FET RESPONSE
00926  M01S00878.1lc     +++| PRS4     LDD    DP+3        LOAD FET *OUT* POINTER
00927  M01S00879.1lc     +++|          SHN    6
00928  M01S00880.1lc     +++|          ADD    RA
00929  M01S00881.1lc     +++|          SHN    6
00930  M01S00882.1lc     +++|          ADD    DP+4
00931  M01S00883.1lc     +++|          CRD    CM
00932  M01S00884.1lc     +++|          LDD    CM
00933  M01S00885.1lc     +++|          LMC    7700
00934  M01S00886.1lc     +++|          ZJN    PRS5        IF 77 TABLE PRESENT
00935  M01S00887.1lc     +++|          LDN    RC15        * NO 77 TABLE IN CONTROLWARE RECORD.*
00936  M01S00888.1lc     +++|          UJN    PRS6        RETURN
00937  M01S00889.1lc     +++|
00938  M01S00890.1lc     +++| PRS5     LDD    DP+3
00939  M01S00891.1lc     +++|          SHN    6
00940  M01S00892.1lc     +++|          ADD    RA
00941  M01S00893.1lc     +++|          SHN    6
00942  M01S00894.1lc     +++|          ADD    DP+4
00943  M01S00895.1lc     +++|          ADD    CM+1        ADD 77 TABLE LENGTH
00944  M01S00896.1lc     +++|          ADN    1
00945  M01S00897.1lc     +++|          CRD    CN          READ EXPECTED 52 TABLE
00946  M01S00898.1lc     +++|          LDD    CN
00947  M01S00899.1lc     +++|          LMC    5200
00948  M01S00900.1lc     +++|          ZJN    PRS7        IF 52 TABLE PRESENT
00949  M01S00901.1lc     +++|          LDN    RC16        * NO 52 TABLE IN CONTROLWARE RECORD.*
00950  M01S00902.1lc     +++| PRS6     LJM    PRSX        RETURN
00951  M01S00903.1lc     +++|
00952  M01S00904.1lc     +++| PRS7     STD    CE+1        CLEAR CHANNEL ENTRY POINTER
00953  M01S00905.1lc     +++|          LDD    DP+3
00954  M01S00906.1lc     +++|          SHN    14
00955  M01S00907.1lc     +++|          ADD    DP+4
00956  M01S00908.1lc     +++|          ADD    CM+1        ADD 77 TABLE LENGTH - 1
00957  M01S00909.1lc     +++|          ADN    2           52 TABLE ADDRESS + LENGTH
00958  M01S00910.1lc     +++|          STD    DP+4        RESET *OUT* POINTER TO FWA CONTROLWARE
00959  M01S00911.1lc     +++|          SHN    -14
00960  M01S00912.1lc     +++|          STD    DP+3
00961  M01S00913.1lc     +++|          LDD    CN+4        LENGTH OF CONTROLWARE
00962  M01S00914.1lc     +++|          SBN    1           ADJUST FOR 52 TABLE
00963  M01S00915.1lc     +++|          STD    WC          CM WORD COUNT OF CONTROLWARE
00964  M01S00916.1lc     +++|          LDD    DP+1        CHECK *IN* - *OUT*
00965  M01S00917.1lc     +++|          SBD    DP+3
00966  M01S00918.1lc     +++|          SHN    14
00967  M01S00919.1lc     +++|          ADD    DP+2
00968  M01S00920.1lc     +++|          SBD    DP+4
00969  M01S00921.1lc     +++|          SBD    WC
00970  M01S00922.1lc     +++|          ZJN    PRS8        IF CORRECT CONTROLWARE LENGTH
00971  M01S00923.1lc     +++|          LDN    RC17        * LENGTH IN 52 TABLE .NE. FET.*
00972  M01S00924.1lc     +++|          UJN    PRS6        RETURN
00973  M01S00925.1lc     +++|
Line S00926 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc7
Seq #  *Modification Id* Act 
----------------------------+
00974  M02S00926.1lc7    ---| PRS8     RJM    GLA         GET LOAD FET ADDRESS
00975  M01S00006.1lc7    +++| PRS8     STD    CO          INITIALIZE CONTROL MODULE INDICATOR
00976  M01S00007.1lc7    +++|          RJM    GLA         GET LOAD FET ADDRESS
00977  M01S00927.1lc     +++|          ADN    10          READ FET+8
00978  M01S00928.1lc     +++|          CRD    CM
00979  M01S00929.1lc     +++|          LDD    CM+4        SET CALL STATUS
00980  M01S00930.1lc     +++|          SHN    0-12
00981  M01S00931.1lc     +++|          LPN    1
00982  M01S00932.1lc     +++|          STD    CS
00983  M01S00933.1lc     +++|          ZJN    PRS9        IF DRIVER CALL
00984  M01S00934.1lc     +++|          LDN    SSTL
00985  M01S00935.1lc     +++|          CRD    T0
00986  M01S00936.1lc     +++|          LDD    T0+3
00987  M01S00937.1lc     +++|          LPN    4
00988  M01S00938.1lc     +++|          ZJN    PRS9        IF ENGINEERING MODE ENABLED
00989  M01S00939.1lc     +++|          LDD    CP
00990  M01S00940.1lc     +++|          ADN    JCIW
Line S00941 Modification History
M01 (Added by) 1lc
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00991  M02S00941.242l642 ---|          CRD    T0          CHECK FOR *MAS* SUBSYSTEM
00992  M01S00001.242l642 +++|          CRD    T0          CHECK FOR *MSE* SUBSYSTEM
00993  M01S00942.1lc     +++|          LDD    T0+2        GET SUBSYSTEM ID
00994  M01S00943.1lc     +++|          LMC    ASSI
Line S00944 Modification History
M01 (Added by) 1lc
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00995  M02S00944.242l642 ---|          ZJN    PRS9        IF CALLER IS *MAS* SUBSYSTEM
00996  M01S00002.242l642 +++|          ZJN    PRS9        IF CALLER IS *MSE* SUBSYSTEM
00997  M01S00945.1lc     +++|          LDN    RC11        * SYSTEM NOT IN ENGR MODE.*
00998  M01S00946.1lc     +++|          UJN    PRS10       RETURN
00999  M01S00947.1lc     +++|
01000  M01S00948.1lc     +++| PRS9     LDD    CM+4
01001  M01S00949.1lc     +++|          SHN    21-13
01002  M01S00950.1lc     +++|          PJN    PRS11       IF CHANNEL SPECIFIED
01003  M01S00951.1lc     +++|          SHN    13-21
01004  M01S00952.1lc     +++|          LPC    777
01005  M01S00953.1lc     +++|          STD    CO          SET CONTROL MODULE EST ORDINAL
01006  M01S00954.1lc     +++|          RJM    SCC         SET CONTROL MODULE CHANNEL
01007  M01S00955.1lc     +++|          ZJN    PRS12       IF NO ERROR
01008  M01S00956.1lc     +++| PRS10    LJM    PRSX        RETURN
01009  M01S00957.1lc     +++|
01010  M01S00958.1lc     +++| PRS11    SHN    13-21
01011  M01S00959.1lc     +++|          RJM    RCT         READ CHANNEL TABLE
01012  M01S00960.1lc     +++|          ADN    2*CTALL     READ CHANNEL CONTROLWARE TABLE
01013  M01S00961.1lc     +++|          CRD    CM
01014  M01S00962.1lc     +++|          STD    CE+1        SAVE CONTROLWARE ENTRY ADDRESS
01015  M01S00963.1lc     +++|          SHN    -14
01016  M01S00964.1lc     +++|          STD    CE
01017  M01S00965.1lc     +++|          LDI    T6
01018  M01S00966.1lc     +++|          STD    CT          SAVE CHANNEL CONTROLWARE ENTRY
01019  M01S00967.1lc     +++|          LDM    PRSA-CM,T6  SET *UTEM* PARAMETERS FOR CHANNEL TABLE
01020  M01S00968.1lc     +++|          STM    CHTI+1
01021  M01S00969.1lc     +++|          STM    CHTI+1*5+1
Line S00002 Modification History
M01 (Added by) 1lc5
M02 (Updated by) 1lc7
Seq #  *Modification Id* Act 
----------------------------+
01022  M02S00002.1lc7    ---|          RJM    RSC         RESERVE AND STATUS CHANNEL
Line S00003 Modification History
M01 (Added by) 1lc5
M02 (Updated by) 1lc7
Seq #  *Modification Id* Act 
----------------------------+
01023  M02S00003.1lc7    ---|          NJN    PRS10       IF ERROR RESPONSE
01024  M01S00970.1lc     +++| PRS12    LDD    CT
01025  M01S00971.1lc     +++|          SHN    0-12
01026  M01S00972.1lc     +++|          STM    CHTI+4
01027  M01S00973.1lc     +++|          SHN    21-0
01028  M01S00974.1lc     +++|          MJN    PRS13       IF LOAD ALREADY IN PROGRESS
01029  M01S00975.1lc     +++|          RJM    ICE         INTERLOCK CONTROLWARE LOAD BITS
01030  M01S00976.1lc     +++|          LDD    CM+1
01031  M01S00977.1lc     +++|          ZJN    PRS14       IF INTERLOCK SET CORRECTLY
01032  M01S00978.1lc     +++| PRS13    RJM    DCH         DROP CHANNEL ASSIGNMENT
01033  M01S00979.1lc     +++|          LDN    RC14        * CONTROLWARE LOAD ALREADY IN PROGRESS.*
01034  M01S00980.1lc     +++|          LJM    PRSX        RETURN
01035  M01S00981.1lc     +++|
01036  M01S00982.1lc     +++| PRS14    LDD    CT          SET PARAMETERS TO CLEAR CHANNEL INTERLOCK
01037  M01S00983.1lc     +++|          SHN    -6
Line S00984 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc2
Seq #  *Modification Id* Act 
----------------------------+
01038  M02S00984.1lc2    ---|          LPN    7
01039  M01S00002.1lc2    +++|          LPN    17
01040  M01S00985.1lc     +++|          STM    CHTI+4
Line S00986 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc2
Seq #  *Modification Id* Act 
----------------------------+
01041  M02S00986.1lc2    ---|          LDC    4003
01042  M01S00003.1lc2    +++|          LDC    4004
01043  M01S00987.1lc     +++|          STM    CHTI
01044  M01S00988.1lc     +++|          LDN    5
01045  M01S00989.1lc     +++|          STM    CHTI+1*5
01046  M01S00990.1lc     +++|          LDC    -400
01047  M01S00991.1lc     +++|          RAM    CHTI+1
01048  M01S00992.1lc     +++|          STM    CHTI+1*5+1
Line S00993 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
01049  M02S00993.1lc5    ---|          LDC    CTCH        INITIALIZE CHANNEL TABLE ADDRESS
Line S00994 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
01050  M02S00994.1lc5    ---|          STD    T1
Line S00014 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
01051  M02S00014.1lc5    ---|          LDD    BC          CLEAR POSSIBLE CCH FLAG
Line S00015 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
01052  M02S00015.1lc5    ---|          LPN    37
Line S00016 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
01053  M02S00016.1lc5    ---|          STD    T3
Line S00995 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
01054  M02S00995.1lc5    ---| PRS15    LDI    T1
Line S00996 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
01055  M02S00996.1lc5    ---|          ZJN    PRS16       IF END OF CHANNEL INSTRUCTIONS
Line S00997 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
01056  M02S00997.1lc5    ---|          STD    T2
Line S00998 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
01057  M02S00998.1lc5    ---|          LDI    T2          GET NEXT CHANNEL INSTRUCTION
Line S00999 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
01058  M02S00999.1lc5    ---|          SCN    37
Line S01000 Modification History
M01 (Added by) 1lc
M02 (Updated by) 252l678
M03 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
01059  M03S01000.1lc5    ---|          LMD    BC
Line S00017 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
01060  M02S00017.1lc5    ---|          LMD    T3
Line S01001 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
01061  M02S01001.1lc5    ---|          STI    T2          INITIALIZE CHANNEL INSTRUCTION
Line S01002 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
01062  M02S01002.1lc5    ---|          AOD    T1
Line S01003 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
01063  M02S01003.1lc5    ---|          UJN    PRS15       LOOP TO CHECK FOR NEXT INSTRUCTION
Line S01004 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
01064  M02S01004.1lc5    ---|
Line S01005 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
01065  M02S01005.1lc5    ---| PRS16    LDD    CT          CHECK CONTROLWARE TYPE
Line S00004 Modification History
M01 (Added by) 1lc5
M02 (Updated by) 1lc7
Seq #  *Modification Id* Act 
----------------------------+
01066  M02S00004.1lc7    ---|          LDD    CT          CHECK CONTROLWARE TYPE
01067  M01S00008.1lc7    +++|          LDD    CO
01068  M01S00009.1lc7    +++|          NJN    PRS15       IF CONTROL MODULE RELOAD
01069  M01S00010.1lc7    +++|          RJM    RSC         RESERVE AND STATUS CHANNEL
01070  M01S00011.1lc7    +++|          NJN    PRS17       IF ERROR
01071  M01S00012.1lc7    +++| PRS15    LDD    CT          CHECK CONTROLWARE TYPE
01072  M01S01006.1lc     +++|          LPN    37
01073  M01S01007.1lc     +++|          SBN    FMCW
01074  M01S01008.1lc     +++|          ZJN    PRS17       IF MA721 (SUPPORTS *FCAR* FUNCTION)
01075  M01S01009.1lc     +++|          SBN    PHCW-FMCW
01076  M01S01010.1lc     +++|          ZJN    PRS17       IF MA722 (SUPPORTS *FCAR* FUNCTION)
01077  M01S00001.ns2454  +++|          SBN    IDCW-PHCW
01078  M01S00002.ns2454  +++|          ZJN    PRS17       IF MA462 (SUPPORTS *FCAR* FUNCTION)
01079  M01S01011.1lc     +++|          LDN    PSNI
01080  M01S01012.1lc     +++|          STM    ILFA
01081  M01S01013.1lc     +++|          LDN    0
01082  M01S01014.1lc     +++| PRS17    LJM    PRSX        RETURN
01083  M01S01015.1lc     +++|
01084  M01S01016.1lc     +++|
01085  M01S01017.1lc     +++| PRSA     BSS    0           TABLE OF RELOAD FLAG BIT POSITIONS
01086  M01S01018.1lc     +++|          CON    58DS6
01087  M01S01019.1lc     +++|          CON    46DS6
01088  M01S01020.1lc     +++|          CON    34DS6
01089  M01S01021.1lc     +++|          CON    22DS6
01090  M01S01022.1lc     +++|          CON    10DS6
01091  M01S01023.1lc     +++|          SPACE  4,10
01092  M01S01024.1lc     +++|*         CHANNEL TABLE.
01093  M01S01025.1lc     +++|
01094  M01S01026.1lc     +++|
01095  M01S01027.1lc     +++|          CHTB   CH
01096  M01S00005.1lc5    +++| SCI      SPACE  4,10
01097  M01S00006.1lc5    +++|**        SCI - SET CHANNEL INSTRUCTIONS.
01098  M01S00007.1lc5    +++|*
01099  M01S00008.1lc5    +++|*         USES   T1, T2, T3.
01100  M01S00009.1lc5    +++|
01101  M01S00010.1lc5    +++|
01102  M01S00011.1lc5    +++| SCI      SUBR               ENTRY/EXIT
01103  M01S00012.1lc5    +++|          LDC    CTCH        INITIALIZE CHANNEL TABLE ADDRESS
01104  M01S00013.1lc5    +++|          STD    T1
01105  M01S00014.1lc5    +++|          LDD    BC          CLEAR POSSIBLE CCH FLAG
01106  M01S00015.1lc5    +++|          LPN    37
01107  M01S00016.1lc5    +++|          STD    T3
01108  M01S00017.1lc5    +++| SCI1     LDI    T1
01109  M01S00018.1lc5    +++|          ZJN    SCIX        IF END OF CHANNEL INSTRUCTIONS
01110  M01S00019.1lc5    +++|          STD    T2
01111  M01S00020.1lc5    +++|          LDI    T2          GET NEXT CHANNEL INSTRUCTION
01112  M01S00021.1lc5    +++|          SCN    37
01113  M01S00022.1lc5    +++|          LMD    T3
01114  M01S00023.1lc5    +++|          STI    T2          INITIALIZE CHANNEL INSTRUCTION
01115  M01S00024.1lc5    +++|          AOD    T1
01116  M01S00025.1lc5    +++|          UJN    SCI1        LOOP TO CHECK FOR NEXT INSTRUCTION
01117  M01S00026.1lc5    +++| RSC      SPACE  4,15
01118  M01S00027.1lc5    +++|**        RSC - RESERVE AND STATUS CHANNEL.
01119  M01S00028.1lc5    +++|*
01120  M01S00029.1lc5    +++|*         ENTRY  (BC) = CHANNEL NUMBER.
01121  M01S00030.1lc5    +++|*                     = *RC2* IF DOWN CHANNEL IN USE.
01122  M01S00031.1lc5    +++|*                     = *RC34* IF CONTROLLER RESERVED.
01123  M01S00032.1lc5    +++|*                (CS) = CHANNEL SPECIFIED ON CALL STATUS.
01124  M01S00033.1lc5    +++|*
01125  M01S00034.1lc5    +++|*         EXIT   (A) = 0.
01126  M01S00035.1lc5    +++|*                (A) = *RC24* IF CONTROLLER RESERVED THROUGH
01127  M01S00036.1lc5    +++|*                      ALTERNATE ACCESS OR *RC22* IF FUNCTION
01128  M01S00037.1lc5    +++|*                      TIMEOUT OCCURED.
01129  M01S00038.1lc5    +++|*                CHANNEL RESERVED IF NOT SYSTEM REQUEST.
01130  M01S00039.1lc5    +++|*
01131  M01S00040.1lc5    +++|*         USES   CM - CM+4.
01132  M01S00041.1lc5    +++|*
01133  M01S00042.1lc5    +++|*         CALLS  CCS, FNC, RCT, SCI.
01134  M01S00043.1lc5    +++|*
01135  M01S00044.1lc5    +++|*         MACROS MONITOR, RCHAN.
01136  M01S00045.1lc5    +++|
01137  M01S00046.1lc5    +++|
01138  M01S00047.1lc5    +++| RSC2     LDD    BC
01139  M01S00048.1lc5    +++|          RCHAN              RESERVE CHANNEL
01140  M01S00049.1lc5    +++| RSC3     AOD    CF          SET CHANNEL RESERVED BY *1LC* FLAG
01141  M01S00050.1lc5    +++| RSC4     RJM    SCI         SET CHANNEL INSTRUCTIONS
01142  M01S00051.1lc5    +++|          LDD    BC
01143  M01S00052.1lc5    +++|          LPN    40
01144  M01S00053.1lc5    +++|          ZJN    RSC5        IF NOT A CIO CHANNEL
01145  M01S00054.1lc5    +++|          LDC    100000      MASTER CLEAR THE CHANNEL
01146  M01S00055.1lc5    +++|          RJM    FNC
01147  M01S00056.1lc5    +++|          NJN    RSCX        IF ERROR OCCURRED
01148  M01S00057.1lc5    +++| RSC5     RJM    CCS         CHECK CONTROLLER STATUS
01149  M01S00058.1lc5    +++|          NJN    RSC6        IF STATUS TIMEOUT OR STATUS NOT RECEIVED
01150  M01S00059.1lc5    +++|          LDD    ST
01151  M01S00060.1lc5    +++| RSC6     LPC    2000
01152  M01S00061.1lc5    +++|          ZJN    RSCX        IF CONTROLLER NOT ALREADY RESERVED
01153  M01S00062.1lc5    +++|          LDN    RC34        * CHXX, CONTROLLER RESERVED.*
01154  M01S00063.1lc5    +++|
01155  M01S00064.1lc5    +++| RSC      SUBR               ENTRY/EXIT
01156  M01S00065.1lc5    +++|          LDD    CS
01157  M01S00066.1lc5    +++|          ZJN    RSC4        IF DRIVER CALL
01158  M01S00067.1lc5    +++|          LDD    BC
01159  M01S00068.1lc5    +++|          RJM    RCT         READ CHANNEL TABLE
01160  M01S00069.1lc5    +++|          LDI    T6
01161  M01S00070.1lc5    +++|          LPN    40
01162  M01S00071.1lc5    +++|          ZJP    RSC2        IF CHANNEL UP
01163  M01S00072.1lc5    +++|          LDN    0
01164  M01S00073.1lc5    +++|          STD    CM+2
01165  M01S00074.1lc5    +++|          LDD    BC          ASSIGN DOWNED CHANNEL
01166  M01S00075.1lc5    +++|          STD    CM+1
01167  M01S00076.1lc5    +++|          MONITOR  CCHM
01168  M01S00077.1lc5    +++|          LDD    CM+2
01169  M01S00078.1lc5    +++|          NJP    RSC3        IF CHANNEL ASSIGNED
01170  M01S00079.1lc5    +++|          LDN    RC2         * SPECIFIED CHANNEL IS IN USE.*
01171  M01S00080.1lc5    +++|          UJN    RSCX        RETURN
01172  M01S01028.1lc     +++| SCC      SPACE  4,15
01173  M01S01029.1lc     +++|**        SCC - SET CONTROL MODULE CHANNEL.
01174  M01S01030.1lc     +++|*
01175  M01S01031.1lc     +++|*         ENTRY  (CO) = CONTROL MODULE EST ORDINAL.
01176  M01S01032.1lc     +++|*                (CS) = 0 IF DRIVER CALL.
01177  M01S01033.1lc     +++|*
01178  M01S01034.1lc     +++|*         EXIT   (A) = ERROR RESPONSE (0 IF NO ERROR).
01179  M01S01035.1lc     +++|*                (BC) = CHANNEL NUMBER.
01180  M01S01036.1lc     +++|*                (CF) .NE. 0 IF CHANNEL RESERVED.
01181  M01S01037.1lc     +++|*                (CT) = CONTROLWARE TYPE.
01182  M01S01038.1lc     +++|*                (EQ) = CONTROL MODULE EQUIPMENT NUMBER.
01183  M01S01039.1lc     +++|*                (CE - CE+1) = ABSOLUTE ADDRESS OF *CM* EST ENTRY.
01184  M01S01040.1lc     +++|*
Line S01041 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc3
Seq #  *Modification Id* Act 
----------------------------+
01185  M02S01041.1lc3    ---|*         USES   CE+1, T5, T6, T7, CM - CM+4, CN - CN+4.
01186  M01S00001.1lc3    +++|*         USES   BC, CF, CT, EQ, T1, CE - CE+1, CM - CM+4, CN - CN+4.
01187  M01S01042.1lc     +++|*
01188  M01S00081.1lc5    +++|*         CALLS  SCI.
01189  M01S00082.1lc5    +++|*
01190  M01S01043.1lc     +++|*         MACROS MONITOR, RCHAN, SFA.
01191  M01S01044.1lc     +++|
01192  M01S01045.1lc     +++|
Line S01046 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc3
Seq #  *Modification Id* Act 
----------------------------+
01193  M02S01046.1lc3    ---| SCC9     LDN    RC21        * NOT CONTROL MODULE EST ORDINAL.*
01194  M01S00002.1lc3    +++| SCC10    LDN    RC21        * NOT CONTROL MODULE EST ORDINAL.*
01195  M01S01047.1lc     +++|
01196  M01S01048.1lc     +++| SCC      SUBR               ENTRY/EXIT
01197  M01S01049.1lc     +++|          SFA    EST,CO      GET EST ENTRY
01198  M01S01050.1lc     +++|          ADK    EQDE
01199  M01S01051.1lc     +++|          CRD    CN
01200  M01S00003.1lc3    +++|          ADN    EQAE-EQDE
01201  M01S00004.1lc3    +++|          CRD    CM
01202  M01S01052.1lc     +++|          STD    CE+1
01203  M01S01053.1lc     +++|          SHN    -14
01204  M01S01054.1lc     +++|          STD    CE
01205  M01S01055.1lc     +++|          LDD    CN+3
Line S01056 Modification History
M01 (Added by) 1lc
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01206  M02S01056.252l678 ---|          LPC    3777
01207  M01S01057.1lc     +++|          LMC    2RCM
Line S01058 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc3
Seq #  *Modification Id* Act 
----------------------------+
01208  M02S01058.1lc3    ---|          NJN    SCC9        IF NOT *CM*
01209  M01S00005.1lc3    +++|          NJN    SCC10       IF NOT CONTROL MODULE
01210  M01S01059.1lc     +++|          LDD    CN+4        SAVE CONTROL MODULE EQUIPMENT NUMBER
01211  M01S01060.1lc     +++|          SHN    -11
01212  M01S01061.1lc     +++|          STD    EQ
Line S01062 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc3
Seq #  *Modification Id* Act 
----------------------------+
01213  M02S01062.1lc3    ---|          LDD    CN+2        SAVE CONTROLWARE TYPE
01214  M01S00006.1lc3    +++|          LDD    CM+2
01215  M01S01063.1lc     +++|          STD    CT
Line S01064 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc3
Seq #  *Modification Id* Act 
----------------------------+
01216  M02S01064.1lc3    ---|          SHN    21-11
Line S01065 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc3
Seq #  *Modification Id* Act 
----------------------------+
01217  M02S01065.1lc3    ---|          MJN    SCC1        IF CHANNEL ACCESS BIT SET (USE CHANNEL 1)
Line S01066 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc3
Seq #  *Modification Id* Act 
----------------------------+
01218  M02S01066.1lc3    ---|          LDN    14          SET SHIFT TO CHANNEL 2
01219  M01S00007.1lc3    +++|          SHN    0-11
01220  M01S00008.1lc3    +++|          LPN    1
01221  M01S00009.1lc3    +++|          LMN    1
01222  M01S01067.1lc     +++|          RAM    SCCA
Line S01068 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc3
Seq #  *Modification Id* Act 
----------------------------+
01223  M02S01068.1lc3    ---| SCC1     LDD    CS
01224  M01S00010.1lc3    +++|          LDD    CS
01225  M01S01069.1lc     +++|          NJN    SCC6        IF NOT DRIVER CALL
01226  M01S01070.1lc     +++|          LDD    CN+1        SET CHANNEL NUMBER
Line S01071 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc3
Seq #  *Modification Id* Act 
----------------------------+
01227  M02S01071.1lc3    ---| SCCA     SHN    0
01228  M01S00011.1lc3    +++|*         LDD    CN+2        (CHANNEL ACCESS BIT CLEAR)
01229  M01S00012.1lc3    +++| SCCA     EQU    *-1
01230  M01S01072.1lc     +++|          LPN    37
01231  M01S01073.1lc     +++| SCC2     STD    BC
01232  M01S01074.1lc     +++|          LDN    0
01233  M01S01075.1lc     +++| SCC3     LJM    SCCX        RETURN
01234  M01S01076.1lc     +++|
Line S01077 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc3
Seq #  *Modification Id* Act 
----------------------------+
01235  M02S01077.1lc3    ---| SCC4     SHN    5-21
01236  M01S00013.1lc3    +++| SCC4     LDI    T1
01237  M01S01078.1lc     +++|          RCHAN              RESERVE CHANNEL
Line S01079 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc5
Seq #  *Modification Id* Act 
----------------------------+
01238  M02S01079.1lc5    ---| SCC5     AOD    CF          SET CHANNEL RESERVED BY *1LC* FLAG
01239  M01S00083.1lc5    +++| SCC5     RJM    SCI         SET CHANNEL INSTRUCTIONS
01240  M01S00084.1lc5    +++|          AOD    CF          SET CHANNEL RESERVED BY *1LC* FLAG
01241  M01S01080.1lc     +++|          LDD    CM+1
01242  M01S01081.1lc     +++|          UJN    SCC2        SET CHANNEL NUMBER
01243  M01S01082.1lc     +++|
Line S01083 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc3
Seq #  *Modification Id* Act 
----------------------------+
01244  M02S01083.1lc3    ---| SCC6     LDD    CN+1
Line S01084 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc3
Seq #  *Modification Id* Act 
----------------------------+
01245  M02S01084.1lc3    ---| SCC7     SHN    21-5
Line S01085 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc3
Seq #  *Modification Id* Act 
----------------------------+
01246  M02S01085.1lc3    ---|          PJN    SCC4        IF CHANNEL NOT DOWN
Line S01086 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc3
Seq #  *Modification Id* Act 
----------------------------+
01247  M02S01086.1lc3    ---|          LPN    77
Line S01087 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc3
Seq #  *Modification Id* Act 
----------------------------+
01248  M02S01087.1lc3    ---|          NJN    SCC7        IF ANOTHER CHANNEL EXISTS
Line S01088 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc3
Seq #  *Modification Id* Act 
----------------------------+
01249  M02S01088.1lc3    ---|          STD    CM+2
Line S01089 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc3
Seq #  *Modification Id* Act 
----------------------------+
01250  M02S01089.1lc3    ---|          LDD    CN+1
Line S01090 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc3
Seq #  *Modification Id* Act 
----------------------------+
01251  M02S01090.1lc3    ---| SCC8     SHN    14
Line S01091 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc3
Seq #  *Modification Id* Act 
----------------------------+
01252  M02S01091.1lc3    ---|          STD    CN+1
Line S01092 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc3
Seq #  *Modification Id* Act 
----------------------------+
01253  M02S01092.1lc3    ---|          SHN    -14
Line S01093 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc3
Seq #  *Modification Id* Act 
----------------------------+
01254  M02S01093.1lc3    ---|          LPN    37          SET DOWNED CHANNEL NUMBER
Line S01094 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc3
Seq #  *Modification Id* Act 
----------------------------+
01255  M02S01094.1lc3    ---|          STD    CM+1
01256  M01S00014.1lc3    +++| SCC6     LDN    CN+1
01257  M01S00015.1lc3    +++|          STD    T1
01258  M01S00016.1lc3    +++| SCC7     LDI    T1
01259  M01S00017.1lc3    +++|          SHN    0-12
01260  M01S00018.1lc3    +++|          LMN    2
01261  M01S00019.1lc3    +++|          ZJN    SCC4        IF CHANNEL ENABLED AND UP
01262  M01S00020.1lc3    +++|          AOD    T1
01263  M01S00021.1lc3    +++|          LMN    CN+3
01264  M01S00022.1lc3    +++|          NJN    SCC7        IF ANOTHER CHANNEL BYTE TO CHECK
01265  M01S00023.1lc3    +++| SCC8     SOD    T1
01266  M01S00024.1lc3    +++|          LMN    CN
01267  M01S00025.1lc3    +++|          NJN    SCC9        IF ANOTHER CHANNEL TO CHECK
01268  M01S00026.1lc3    +++|          LDN    RC2         * SPECIFIED CHANNEL IS IN USE.*
01269  M01S00027.1lc3    +++|          UJN    SCC3        RETURN
01270  M01S00028.1lc3    +++|
01271  M01S00029.1lc3    +++| SCC9     LDI    T1
01272  M01S00030.1lc3    +++|          STD    CM+1
01273  M01S00031.1lc3    +++|          SHN    21-13
01274  M01S00032.1lc3    +++|          PJN    SCC8        IF CHANNEL NOT ENABLED
01275  M01S01095.1lc     +++|          MONITOR  CCHM      ASSIGN DOWNED CHANNEL
01276  M01S01096.1lc     +++|          LDD    CM+2
Line S01097 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc3
Seq #  *Modification Id* Act 
----------------------------+
01277  M02S01097.1lc3    ---|          NJN    SCC5        IF CHANNEL ASSIGNED
Line S01098 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc3
Seq #  *Modification Id* Act 
----------------------------+
01278  M02S01098.1lc3    ---|          LDD    CN+1
Line S01099 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc3
Seq #  *Modification Id* Act 
----------------------------+
01279  M02S01099.1lc3    ---|          NJN    SCC8        IF ANOTHER CHANNEL
Line S01100 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc3
Seq #  *Modification Id* Act 
----------------------------+
01280  M02S01100.1lc3    ---|          LDN    RC2         * SPECIFIED CHANNEL IS IN USE.*
Line S01101 Modification History
M01 (Added by) 1lc
M02 (Updated by) 1lc3
Seq #  *Modification Id* Act 
----------------------------+
01281  M02S01101.1lc3    ---|          UJN    SCC3        RETURN
01282  M01S00033.1lc3    +++|          ZJN    SCC8        IF CHANNEL NOT ASSIGNED
01283  M01S00034.1lc3    +++|          UJP    SCC5        SET CHANNEL ASSIGNED AND RETURN
01284  M01S01102.1lc     +++| VFP      SPACE  4,20
01285  M01S01103.1lc     +++|**        VFP - VALIDATE FET PARAMETERS.
01286  M01S01104.1lc     +++|*
01287  M01S01105.1lc     +++|*         ENTRY  (A) = FET ADDRESS.
01288  M01S01106.1lc     +++|*
01289  M01S01107.1lc     +++|*         EXIT   (A) = 0 IF FET ADDRESS AND BUFFER PARAMETERS VALID.
01290  M01S01108.1lc     +++|*                (A) = *DR1* IF BUFFER PARAMETERS INVALID.
01291  M01S01109.1lc     +++|*                (MB+2) = 12/0, 24/*IN*,  24/*OUT*.
01292  M01S01110.1lc     +++|*                (MB+3) = 1/RANDOM FILE FLAG, 5/0, 6/FET LENGTH,
01293  M01S01111.1lc     +++|*                         24/*FIRST*, 24/*LIMIT*.
01294  M01S01112.1lc     +++|*
01295  M01S01113.1lc     +++|*         ERROR  TO *PPR* AFTER JOB ABORT IF FET ADDRESS INVALID.
01296  M01S01114.1lc     +++|*
01297  M01S01115.1lc     +++|*         USES   CM+1, CM+3, CM+4.
01298  M01S01116.1lc     +++|*
01299  M01S01117.1lc     +++|*         CALLS  DFM.
01300  M01S01118.1lc     +++|*
01301  M01S01119.1lc     +++|*         MACROS MONITOR.
01302  M01S01120.1lc     +++|
01303  M01S01121.1lc     +++|
01304  M01S01122.1lc     +++| VFP1     LDN    DR1         * DUMP BUFFER ARGUMENT ERROR.*
01305  M01S01123.1lc     +++|
01306  M01S01124.1lc     +++| VFP      SUBR               ENTRY/EXIT
Line S01125 Modification History
M01 (Added by) 1lc
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01307  M02S01125.271l716 ---|          STD    CM+2
01308  M01S00001.271l716 +++|          STD    CM+4
01309  M01S01126.1lc     +++|          SHN    -14
Line S01127 Modification History
M01 (Added by) 1lc
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01310  M02S01127.271l716 ---|          STD    CM+1
01311  M01S00002.271l716 +++|          STD    CM+3
01312  M01S01128.1lc     +++|          LDN    3           VALIDATE *FIRST*, *IN*, *OUT*, AND *LIMIT*
Line S01129 Modification History
M01 (Added by) 1lc
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01313  M02S01129.271l716 ---|          STD    CM+4
01314  M01S00003.271l716 +++|          STD    CM+1
01315  M01S01130.1lc     +++|          MONITOR  VFPM
01316  M01S01131.1lc     +++|          LDD    CM+1
01317  M01S01132.1lc     +++|          ZJN    VFPX        IF FET ADDRESS AND BUFFER PATAMETERS VALID
01318  M01S01133.1lc     +++|          SBN    1
01319  M01S01134.1lc     +++|          NJN    VFP1        IF NOT INVALID FET ADDRESS
01320  M01S01135.1lc     +++|          LDC    VFPA        * FET ADDRESS OUT OF RANGE.*
01321  M01S01136.1lc     +++|          RJM    DFM
01322  M01S01137.1lc     +++|          MONITOR  ABTM      ABORT CONTROL POINT
01323  M01S01138.1lc     +++|          LJM    PPR         EXIT TO PP RESIDENT
01324  M01S01139.1lc     +++|
01325  M01S01140.1lc     +++|
01326  M01S01141.1lc     +++| VFPA     DATA   C* FET ADDRESS OUT OF RANGE.*
01327  M01S01142.1lc     +++|          SPACE  4,10
01328  M01S01143.1lc     +++|          END
cdc/nos2.source/opl.opl871/deck/1lc.txt ยท Last modified: by 127.0.0.1