User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:0ct

Deck 0CT

1 Modification

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.0ct     +++|          IDENT  0CT,/REL/LCCX
00002  M01S00002.0ct     +++|          PERIPH J
00003  M01S00003.0ct     +++|          BASE   MIXED
00004  M01S00004.0ct     +++|          SST
00005  M01S00005.0ct     +++|*COMMENT  0CT - LOAD CTS/CCC CONTROLWARE.
Line S00006 Modification History
M01 (Added by) 0ct
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1992.
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.0ct     +++|          TITLE  0CT - LOAD CTS/CCC CONTROLWARE
00009  M01S00008.0ct     +++|          SPACE  4,10
00010  M01S00009.0ct     +++|***       0CT - LOAD CTS/CCC CONTROLWARE.
00011  M01S00010.0ct     +++|*
00012  M01S00011.0ct     +++|*         P. C. SMITH.       92/04/21.
00013  M01S00012.0ct     +++|          SPACE  4,10
00014  M01S00013.0ct     +++|***              *0CT* IS A LOCATION FREE ROUTINE CALLED BY *1MT*
00015  M01S00014.0ct     +++|*         TO LOAD CTS/CCC CONTROLWARE ON *MAGNET* INTITIATION, AND
00016  M01S00015.0ct     +++|*         DURING TAPE ERROR RECOVERY.
00017  M01S00016.0ct     +++|          SPACE  4,10
00018  M01S00017.0ct     +++|***       ENTRY CONDITIONS.
00019  M01S00018.0ct     +++|*
00020  M01S00019.0ct     +++|*         (CN) = CHANNEL NUMBER.
00021  M01S00020.0ct     +++|*         (CN+1) = ADDRESS OF 100B CM WORD BUFFER.
00022  M01S00021.0ct     +++|*
00023  M01S00022.0ct     +++|*
00024  M01S00023.0ct     +++|*         USES   CM - CM+4, CN - CN+4, T1 - T1+4.
00025  M01S00024.0ct     +++|          SPACE  4,10
00026  M01S00025.0ct     +++|***       EXIT CONDITIONS.
00027  M01S00026.0ct     +++|*
00028  M01S00027.0ct     +++|*         (CN) = 0 IF NO ERROR.
00029  M01S00028.0ct     +++|*         (CN) = ERROR CODE IF ERROR.
00030  M01S00029.0ct     +++|*         (CN) = 7777 IF MICROCODE NOT FOUND.
00031  M01S00030.0ct     +++|*         (CN+1) = LAST FUNCTION ISSUED TO CCC.
00032  M01S00031.0ct     +++|*         (CN+2) = MICROCODE REVISION.
00033  M01S00032.0ct     +++|          SPACE  4,10
00034  M01S00033.0ct     +++|****      DIRECT LOCATION ASSIGNMENTS.
00035  M01S00034.0ct     +++|
00036  M01S00035.0ct     +++|
00037  M01S00036.0ct     +++| DS       EQU    24          DEVICE STATUS
00038  M01S00037.0ct     +++| CN       EQU    62 - 66     CM BUFFER
00039  M01S00038.0ct     +++|          SPACE  4,10
00040  M01S00039.0ct     +++|*         ASSEMBLY CONSTANTS.
00041  M01S00040.0ct     +++|
00042  M01S00041.0ct     +++|
00043  M01S00042.0ct     +++| CH       EQU    13          CHANNEL NUMBER
00044  M01S00043.0ct     +++| F0012    EQU    0012        GENERAL STATUS FUNCTION
00045  M01S00044.0ct     +++| F0414    EQU    0414        AUTOLOAD FUNCTION
00046  M01S00045.0ct     +++|
00047  M01S00046.0ct     +++|****
00048  M01S00047.0ct     +++|          SPACE  4,10
00049  M01S00048.0ct     +++|**        COMMON DECKS.
00050  M01S00049.0ct     +++|
00051  M01S00050.0ct     +++|
00052  M01S00051.0ct     +++|*CALL     COMPMAC
00053  M01S00052.0ct     +++|          QUAL   MTX
00054  M01S00053.0ct     +++|*CALL     COMSMTX
00055  M01S00054.0ct     +++|          QUAL   *
00056  M01S00055.0ct     +++|*CALL     COMSZOL
00057  M01S00056.0ct     +++| REL$     SET    1           DEFINE FULL RELOCATION
00058  M01S00057.0ct     +++|*CALL     COMPRLI
00059  M01S00058.0ct     +++|*CALL     COMPCHM
00060  M01S00059.0ct     +++|          TITLE  MAIN PROGRAM.
00061  M01S00060.0ct     +++| LCC      SPACE  4,10
00062  M01S00061.0ct     +++|**        LCC - MAIN ROUTINE.
00063  M01S00062.0ct     +++|
00064  M01S00063.0ct     +++|
00065  M01S00064.0ct     +++| LCC      SUBR               ENTRY/EXIT
00066  M01S00065.0ct     +++| REL$     EQU    1           SET FULL RELOCATION
00067  M01S00066.0ct     +++|          RJM.   REL,LA      RELOCATE ADDRESSES
00068  M01S00067.0ct     +++|          RJM    MCI         MODIFY CHANNEL INSTRUCTIONS
00069  M01S00068.0ct     +++|          LDD    CN+1        SET CONTROLWARE BUFFER ADDRESS
00070  M01S00069.0ct     +++|          STM    LCCA
00071  M01S00070.0ct     +++|          STM    LCCB
00072  M01S00071.0ct     +++| LCC1     DELAY
00073  M01S00072.0ct     +++|          LDK    PLDP        CHECK PERIPHERAL DIRECTORY POINTER
00074  M01S00073.0ct     +++|          CRD    CM
00075  M01S00074.0ct     +++|          LDD    CM
00076  M01S00075.0ct     +++|          ADD    CM+1
00077  M01S00076.0ct     +++|          ZJN    LCC1        IF SYSEDIT IN PROGRESS
00078  M01S00077.0ct     +++|
00079  M01S00078.0ct     +++|*         FIND CCC MICROCODE.
00080  M01S00079.0ct     +++|
00081  M01S00080.0ct     +++|          LDN    ZERL
00082  M01S00081.0ct     +++|          CRD    CM
00083  M01S00082.0ct     +++|          LDD    MA          PUT CONTROLWARE ID IN MESSAGE BUFFER
00084  M01S00083.0ct     +++|          CWM    LCCE,ON
00085  M01S00084.0ct     +++|          MONITOR  SCDM      SEARCH CENTRAL DIRECTORY
00086  M01S00085.0ct     +++|          LDD    CM+3
00087  M01S00086.0ct     +++|          SHN    14
00088  M01S00087.0ct     +++|          LMD    CM+4
00089  M01S00088.0ct     +++|          CRD    CM          READ *PST* ENTRY
00090  M01S00089.0ct     +++|          LDD    CM+1
00091  M01S00090.0ct     +++|          SHN    21-12
00092  M01S00091.0ct     +++|          PJP    LCC5        IF NOT CM RESIDENT
00093  M01S00092.0ct     +++|          LDD    CM+3        GET ADDRESS OF *RCL* ENTRY
00094  M01S00093.0ct     +++|          SHN    14
00095  M01S00094.0ct     +++|          LMD    CM+4
00096  M01S00095.0ct     +++|          ADN    1
00097  M01S00096.0ct     +++|          CRD    CN          READ 5200 RECORD HEADER
00098  M01S00097.0ct     +++|          ADN    6
00099  M01S00098.0ct     +++|          CRD    T1
00100  M01S00099.0ct     +++|          SBN    5           SET FWA OF 5200 RECORD DATA
00101  M01S00100.0ct     +++|          STD    CM+4
00102  M01S00101.0ct     +++|          SHN    -14
00103  M01S00102.0ct     +++|          STD    CM+3
00104  M01S00103.0ct     +++|          LCN    1           ADJUST WORD COUNT FOR HEADER
00105  M01S00104.0ct     +++|          RAD    CN+4
00106  M01S00105.0ct     +++|          LDD    T3
00107  M01S00106.0ct     +++|          STD    CN+2        SAVE MICROCODE REVISION
00108  M01S00107.0ct     +++|
00109  M01S00108.0ct     +++|*         LOAD CCC MICROCODE.
00110  M01S00109.0ct     +++|
00111  M01S00110.0ct     +++|          LDC    F0414       AUTOLOAD FUNCTION
00112  M01S00111.0ct     +++|          RJM    ICF         ISSUE CTS FUNCTION
00113  M01S00112.0ct     +++|          NJP    LCC6        IF FUNCTION TIMEOUT
00114  M01S00113.0ct     +++|          ACN    CH
00115  M01S00114.0ct     +++|          LDD    CN+4
00116  M01S00115.0ct     +++| LCC2     SBD    HN
00117  M01S00116.0ct     +++|          MJN    LCC3        IF LESS THAN 100B WORDS LEFT
00118  M01S00117.0ct     +++|          LDN    0
00119  M01S00118.0ct     +++| LCC3     ADD    HN
00120  M01S00119.0ct     +++|          STD    T1
00121  M01S00120.0ct     +++|          LDD    CM+3
00122  M01S00121.0ct     +++|          SHN    14
00123  M01S00122.0ct     +++|          LMD    CM+4
00124  M01S00123.0ct     +++|          CRM.   **,T1       READ FROM CM
00125  M01S00124.0ct     +++| LCCA     EQU    *-1         (ADDRESS OF CONTROLWARE BUFFER)
00126  M01S00125.0ct     +++|          STD    CM+4        UPDATE CM ADDRESS
00127  M01S00126.0ct     +++|          SHN    -14
00128  M01S00127.0ct     +++|          STD    CM+3
00129  M01S00128.0ct     +++|          LDD    T1          SET BYTES TO TRANSFER
00130  M01S00129.0ct     +++|          SHN    2
00131  M01S00130.0ct     +++|          ADD    T1
00132  M01S00131.0ct     +++|          OAM    **,CH       LOAD BLOCK OF CONTROLWARE TO CCC
00133  M01S00132.0ct     +++| LCCB     EQU    *-1         (ADDRESS OF CONTROLWARE BUFFER)
00134  M01S00133.0ct     +++|          FJM    *,CH        IF TRANSFER NOT COMPLETE
00135  M01S00134.0ct     +++| LCCC     EQU    *-1         (ADDRESS TO BE RELOCATED)
00136  M01S00135.0ct     +++|          NJN    LCC4        IF INCOMPLETE TRANSFER
00137  M01S00136.0ct     +++|          LDD    CN+4
00138  M01S00137.0ct     +++|          SBD    T1
00139  M01S00138.0ct     +++|          STD    CN+4
00140  M01S00139.0ct     +++|          NJN    LCC2        IF MORE WORDS TO TRANSFER
00141  M01S00140.0ct     +++|          LDN    F0012       GENERAL STATUS FUNCTION
00142  M01S00141.0ct     +++|          RJM    ICF         ISSUE FUNCTION
00143  M01S00142.0ct     +++|          NJN    LCC6        IF FUNCTION TIMEOUT
00144  M01S00143.0ct     +++|          ACN    CH
00145  M01S00144.0ct     +++|          LDN    1
00146  M01S00145.0ct     +++|          IAM    DS,CH       INPUT GENERAL STATUS
00147  M01S00146.0ct     +++|          NJN    LCC4        IF WORD NOT RECEIVED
00148  M01S00147.0ct     +++|          SFM    LCC4,CH     IF ERROR FLAG SET
00149  M01S00148.0ct     +++| LCCD     EQU    *-1         (ADDRESS TO BE RELOCATED)
00150  M01S00149.0ct     +++|          LDD    DS
00151  M01S00150.0ct     +++|          SHN    0-13
00152  M01S00151.0ct     +++|          ZJN    LCC6        IF NO ERROR
00153  M01S00152.0ct     +++| LCC4     LDN    /MTX/CMF    CHANNEL MALFUNCTION
00154  M01S00153.0ct     +++|          UJN    LCC6        SAVE ERROR CODE
00155  M01S00154.0ct     +++|
00156  M01S00155.0ct     +++| LCC5     LCN    0           INDICATE MICROCODE NOT FOUND
00157  M01S00156.0ct     +++| LCC6     STD    CN
00158  M01S00157.0ct     +++|          LJM    LCCX        RETURN
00159  M01S00158.0ct     +++|
00160  M01S00159.0ct     +++|
00161  M01S00160.0ct     +++| LCCE     VFD    30/0LMB468,30/0
00162  M01S00161.0ct     +++| ICF      SPACE  4,10
00163  M01S00162.0ct     +++|**        ICF - ISSUE CCC/CTS FUNCTION.
00164  M01S00163.0ct     +++|*
00165  M01S00164.0ct     +++|*         ENTRY  (A) = FUNCTION.
00166  M01S00165.0ct     +++|*
00167  M01S00166.0ct     +++|*         EXIT   (A) = 0 IF NO ERROR.
00168  M01S00167.0ct     +++|*                (A) = ERROR CODE IF ERROR.
00169  M01S00168.0ct     +++|*                (CN+1) = FUNCTION THAT WAS ISSUED.
00170  M01S00169.0ct     +++|
00171  M01S00170.0ct     +++|
00172  M01S00171.0ct     +++| ICF2     LDN    0
00173  M01S00172.0ct     +++|
00174  M01S00173.0ct     +++| ICF      SUBR               ENTRY/EXIT
00175  M01S00174.0ct     +++|          DCN    CH          ENSURE CHANNEL IS INACTIVE
00176  M01S00175.0ct     +++|          STD    CN+1        SAVE FUNCTION
00177  M01S00176.0ct     +++|          FAN    CH          ISSUE THE FUNCTION
00178  M01S00177.0ct     +++|          LCN    0
00179  M01S00178.0ct     +++| ICF1     IJM    ICF2,CH     IF FUNCTION REPLY RECEIVED
00180  M01S00179.0ct     +++| ICFA     EQU    *-1         (ADDRESS TO BE RELOCATED)
00181  M01S00180.0ct     +++|          SBN    1
00182  M01S00181.0ct     +++|          NJN    ICF1        IF TIMEOUT NOT EXPIRED
00183  M01S00182.0ct     +++|          LDN    /MTX/FRJ    FUNCTION REJECT
00184  M01S00183.0ct     +++|          UJN    ICFX        RETURN
00185  M01S00184.0ct     +++| MCI      SPACE  4,10
00186  M01S00185.0ct     +++|**        MCI - MODIFY CHANNEL INSTRUCTIONS.
00187  M01S00186.0ct     +++|*
00188  M01S00187.0ct     +++|*         ENTRY  (CN) = CHANNEL NUMBER.
00189  M01S00188.0ct     +++|*                (LA) = LOAD ADDRESS.
00190  M01S00189.0ct     +++|*
00191  M01S00190.0ct     +++|*         USES   T3.
00192  M01S00191.0ct     +++|
00193  M01S00192.0ct     +++|
00194  M01S00193.0ct     +++| MCI      SUBR               ENTRY/EXIT
00195  M01S00194.0ct     +++|          LDC.   MCIA
00196  M01S00195.0ct     +++|          STD    T3          ADDRESS OF CHANNEL TABLE
00197  M01S00196.0ct     +++| MCI1     LDI    T3          GET ADDRESS OF CHANNEL INSTRUCTION
00198  M01S00197.0ct     +++|          ZJN    MCIX        IF END OF CHANNEL TABLE
00199  M01S00198.0ct     +++|          ADD    LA          RELOCATE ADDRESS
00200  M01S00199.0ct     +++|          STD    T0
00201  M01S00200.0ct     +++|          LDI    T0
00202  M01S00201.0ct     +++|          SCN    37
00203  M01S00202.0ct     +++|          LMD    CN          SET CHANNEL NUMBER
00204  M01S00203.0ct     +++|          STI    T0
00205  M01S00204.0ct     +++|          AOD    T3
00206  M01S00205.0ct     +++|          UJN    MCI1        CONTINUE MODIFYING CHANNEL INSTRUCTIONS
00207  M01S00206.0ct     +++|
00208  M01S00207.0ct     +++|          LIST   G
00209  M01S00208.0ct     +++|
00210  M01S00209.0ct     +++| MCIA     CHTB   CH          CHANNEL TABLE
00211  M01S00210.0ct     +++|          SPACE  4,10
00212  M01S00211.0ct     +++|*         ASSEMBLE RELOCATION CODE.
00213  M01S00212.0ct     +++|*
00214  M01S00213.0ct     +++|*         NOTE - DUE TO THE INTERACTION OF COMMON DECKS *COMPRLI* AND
00215  M01S00214.0ct     +++|*                *COMPCHM*, THE ADDRESS OF ANY INSTRUCTION WHICH
00216  M01S00215.0ct     +++|*                SPECIFIES BOTH A CHANNEL NUMBER AND A RELOCATABLE
00217  M01S00216.0ct     +++|*                ADDRESS MUST BE MANUALLY ADDED TO THE FOLLOWING TABLE.
00218  M01S00217.0ct     +++|
00219  M01S00218.0ct     +++|
00220  M01S00219.0ct     +++|          HERE
00221  M01S00220.0ct     +++|          CON    LCCC
00222  M01S00221.0ct     +++|          CON    LCCD
00223  M01S00222.0ct     +++|          CON    ICFA
00224  M01S00223.0ct     +++|          CON    0
00225  M01S00224.0ct     +++|          SPACE  4,10
00226  M01S00225.0ct     +++|*         CHECK FOR OVERFLOW.
00227  M01S00226.0ct     +++|
00228  M01S00227.0ct     +++|
00229  M01S00228.0ct     +++|          ERRPL  *-ZCTL      *0CT* OVERFLOWS CALLING PROGRAM
00230  M01S00229.0ct     +++|
00231  M01S00230.0ct     +++|          END
cdc/nos2.source/opl.opl871/deck/0ct.txt ยท Last modified: by 127.0.0.1