Library Member Format: MODIFY

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.xhc     +++|          IDENT  XHC,XHC
00002  M00S00002.xhc     +++|          PERIPH
00003  M00S00003.xhc     +++|          BASE   MIXED
00004  M00S00004.xhc     +++|          SST
00005  M00S00005.xhc     +++|          TITLE  XHC - HOSTCOPY DRIVER FOR 5870/5970 NIP.
00006  M00S00006.xhc     +++|*COMMENT  XHC - HOSTCOPY DRIVER FOR 5870/5970 NIP.

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00007.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1984.

Seq #  *Modification Id* Act 
----------------------------+
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M00S00008.xhc     +++| XHC      SPACE  4,10
00010  M00S00009.xhc     +++|***              XHC TRANSFERS DATA TO THE HOSTCOPY UTILITY
00011  M00S00010.xhc     +++|*         RESIDING ON A NIP PRINTER.  128 8-BIT BYTES OR 80
00012  M00S00011.xhc     +++|*         8-BIT BYTES ARE TRANSFERED AT A TIME.
00013  M00S00012.xhc     +++|*
00014  M00S00013.xhc     +++|*         L. M. BURGHER      84/09/22.
00015  M00S00014.xhc     +++|*         S. V. PRESTON      84/09/22.
00016  M00S00015.xhc     +++|          SPACE  4,10
00017  M00S00016.xhc     +++|***       CALL.
00018  M00S00017.xhc     +++|*
00019  M00S00018.xhc     +++|*T        18/ *XHC*, 24/, 18/ CNTB

Figure

00020  M00S00019.xhc     +++|*
00021  M00S00020.xhc     +++|*         CNTB   ADDRESS OF CONTROL BLOCK *CNTB*.
00022  M00S00021.xhc     +++|          SPACE  4,10
00023  M00S00022.xhc     +++|**        CNTB - CONTROL BLOCK.
00024  M00S00023.xhc     +++|*
00025  M00S00024.xhc     +++|*         COMMUNICATION BETWEEN XHC AND THE CALLING CP PROGRAM
00026  M00S00025.xhc     +++|*         OCCURS IN *CNTB*.
00027  M00S00026.xhc     +++|*
00028  M00S00027.xhc     +++|*T CNTC   3/ ,9/ EQ ,11/ ,1/ T,11/ ,1/ I,11/ ,1/C

Figure CNTC

00029  M00S00028.xhc     +++|*T DRPC   42/ , 18/ DRP

Figure DRPC

00030  M00S00029.xhc     +++|*
00031  M00S00030.xhc     +++|*                EQ = EQUIPMENT NUMBER.
00032  M00S00031.xhc     +++|*                T = (1), TERMINATE XHC.
00033  M00S00032.xhc     +++|*                I = (1), CARD IMAGE.
00034  M00S00033.xhc     +++|*                C = (1), REQUEST COMPLETE.
00035  M00S00034.xhc     +++|*                DRP = DATA RECORD ADDRESS.
00036  M00S00035.xhc     +++|          SPACE  4,10
00037  M00S00036.xhc     +++|***       DAYFILE AND ERRLOG MESSAGES.
00038  M00S00037.xhc     +++|*
00039  M00S00038.xhc     +++|*         *EQXXX CHYY ADDDD INCOMPLETE TRANSFER.* =
00040  M00S00039.xhc     +++|*                AN INCOMPLETE DATA TRANSFER WAS DETECTED.
00041  M00S00040.xhc     +++|*
00042  M00S00041.xhc     +++|*         *EQXXX CHYY GSSSS COUPLER STATUS.* =
00043  M00S00042.xhc     +++|*                CCC COUPLER STATUS.
00044  M00S00043.xhc     +++|*
00045  M00S00044.xhc     +++|*         *EQXXX CHYY CONTROLWARE NOT LOADED.*=
00046  M00S00045.xhc     +++|*                CCC CONTROLWARE NOT SUCCESSFULLY LOADED.
00047  M00S00046.xhc     +++|*
00048  M00S00047.xhc     +++|*         *EQXXX CHYY RESERVED.* = EQUIPMENT FOUND RESERVED.
00049  M00S00048.xhc     +++|*
00050  M00S00049.xhc     +++|*         *EQXXX INCORRECT EQUIPMENT TYPE.* =
00051  M00S00050.xhc     +++|*                EQUIPMENT REQUESTED WAS NOT OF TYPE *LX* OR *LY*.
00052  M00S00051.xhc     +++|*
00053  M00S00052.xhc     +++|*         *EQXXX INCORRECT EQUIPMENT NUMBER.* =
00054  M00S00053.xhc     +++|*                EQUIPMENT NUMBER NOT IN EST.
00055  M00S00054.xhc     +++|*
00056  M00S00055.xhc     +++|*         *EQXXX NOT AVAILABLE.* = EQUIPMENT REQUESTED IS DOWN AND OFF.
00057  M00S00056.xhc     +++|*
00058  M00S00057.xhc     +++|*         *TABLE NOT IN FL.* =  HSTCOPY TABLE POINTER IS OUTSIDE FL.
00059  M00S00058.xhc     +++|*
00060  M00S00059.xhc     +++|*         *INCORRECT JOB ORIGIN.* = CALLING PROGRAM IS NOT SYSTEM ORIGIN
00061  M00S00060.xhc     +++|*
00062  M00S00061.xhc     +++|*         WHERE -
00063  M00S00062.xhc     +++|*         EQ   = EQUIPMENT TYPE (LX, LY).
00064  M00S00063.xhc     +++|*         XXX  = EST ORDINAL.
00065  M00S00064.xhc     +++|*         YY   = CHANNEL.
00066  M00S00065.xhc     +++|*         DDDD = NUMBER OF BYTES REMAINING.
00067  M00S00066.xhc     +++|*         SSSS = COUPLER STATUS.
00068  M00S00067.xhc     +++|          SPACE  4,10
00069  M00S00068.xhc     +++|**        COMMON DECKS.
00070  M00S00069.xhc     +++|
00071  M00S00070.xhc     +++|
00072  M00S00071.xhc     +++|*CALL     COMPCHI
00073  M00S00072.xhc     +++|*CALL     COMPMAC
00074  M00S00073.xhc     +++|          TITLE  ASSEMBLY CONSTANTS.
00075  M00S00074.xhc     +++|          SPACE  4,10
00076  M00S00075.xhc     +++|****      DIRECT CELL ASSIGNMENTS.
00077  M00S00076.xhc     +++|
00078  M00S00077.xhc     +++|
00079  M00S00078.xhc     +++| BC       EQU    25          BYTE COUNT
00080  M00S00079.xhc     +++| EQ       EQU    27          EQUIPMENT NUMBER
00081  M00S00080.xhc     +++| ES       EQU    30 - 34     EST ENTRY
00082  M00S00081.xhc     +++| FC       EQU    35          FUNCTION CODE

Seq #  *Modification Id* Act 
----------------------------+
00083  M01S00001.xhc1    +++| T8       EQU    36          TEMPORARY
00084  M00S00082.xhc     +++| TM       EQU    45          TERMINATE REQUEST FLAG
00085  M00S00083.xhc     +++|          SPACE  4,10
00086  M00S00084.xhc     +++|**        CONTROL BLOCK DEFINITIONS.
00087  M00S00085.xhc     +++|
00088  M00S00086.xhc     +++| CNTC     EQU    0           CONTROL BLOCK WORD
00089  M00S00087.xhc     +++| DRPC     EQU    1           DATA RECORD POINTER
00090  M00S00088.xhc     +++|
00091  M00S00089.xhc     +++| CNTBL    EQU    2           CONTROL BLOCK LENGTH
00092  M00S00090.xhc     +++|          SPACE  4,10
00093  M00S00091.xhc     +++|**        DAYFILE MESSAGE CODES.
00094  M00S00092.xhc     +++|
00095  M00S00093.xhc     +++|
00096  M00S00094.xhc     +++|          LOC    0
00097  M00S00095.xhc     +++| EITM     BSS    1           *EQXXX CHYY ADDDD INCOMPLETE TRANSFER.*
00098  M00S00096.xhc     +++| EGSM     BSS    1           *EQXXX CHYY GSSSS COUPLER STATUS.*
00099  M00S00097.xhc     +++| ENLM     BSS    1           *EQXXX CHYY CCC CONTROLWARE NOT LOADED.*
00100  M00S00098.xhc     +++| ERSM     BSS    1           *EQXXX CHYY RESERVED.*
00101  M00S00099.xhc     +++| ETYM     BSS    1           *EQXXX INCORRECT EQUIPMENT TYPE.*
00102  M00S00100.xhc     +++| ENMM     BSS    1           *EQXXX INCORRECT EQUIPMENT NUMBER.*
00103  M00S00101.xhc     +++| ENAM     BSS    1           *EQXXX NOT AVAILABLE.*
00104  M00S00102.xhc     +++| EFLM     BSS    1           *TABLE NOT IN FL.*
00105  M00S00103.xhc     +++| EJOM     BSS    1           *INCORRECT JOB ORIGIN.*
00106  M00S00104.xhc     +++|          LOC    *O
00107  M00S00105.xhc     +++|          SPACE  4,10
00108  M00S00106.xhc     +++|**        CCC FUNCTION DEFINITIONS.
00109  M00S00107.xhc     +++|
00110  M00S00108.xhc     +++|
00111  M00S00109.xhc     +++| FSUF     EQU    0           SELECT UNIT
00112  M00S00110.xhc     +++| FGSF     EQU    12          GENERAL STATUS
00113  M00S00111.xhc     +++| FTDF     EQU    20          TRANSPARENT DATA TRANSFER
00114  M00S00112.xhc     +++|          SPACE  4,10
00115  M00S00113.xhc     +++|**        MISCELLANEOUS CONSTANTS.
00116  M00S00114.xhc     +++|
00117  M00S00115.xhc     +++|
00118  M00S00116.xhc     +++| BFCL     EQU    128D*8D/60D+1  BUFF LENGTH IN CM WORDS
00119  M00S00117.xhc     +++| BINL     EQU    128D*8D/12D+1  BINARY BUFFER LENGTH
00120  M00S00118.xhc     +++| CRDL     EQU    80D*8D/12D+1  CARD IMAGE BUFFER LENGTH
00121  M00S00119.xhc     +++| CH       EQU    12          CHANNEL NUMBER
00122  M00S00120.xhc     +++| NILP     EQU    377777      NIL POINTER
00123  M00S00121.xhc     +++|****
00124  M00S00122.xhc     +++|          TITLE  MAIN PROGRAM.
00125  M00S00123.xhc     +++|**        XHC - MAIN PROGRAM.
00126  M00S00124.xhc     +++|
00127  M00S00125.xhc     +++|
00128  M00S00126.xhc     +++|          ORG    PPFW
00129  M00S00127.xhc     +++|
00130  M00S00128.xhc     +++|
00131  M00S00129.xhc     +++| XHC      RJM    PRS         PRESET *XHC*
00132  M00S00130.xhc     +++| XHC1     RJM    RCB         READ CONTROL BLOCK
00133  M00S00131.xhc     +++|          ZJN    XHC2        IF NO DATA TO TRANSFER
00134  M00S00132.xhc     +++|          CRM    BUFF,T2     READ DATA RECORD
00135  M00S00133.xhc     +++|          RJM    XDR         TRANSFER DATA RECORD
00136  M00S00134.xhc     +++|          UJN    XHC3        CHECK FOR MOVE REQUEST
00137  M00S00135.xhc     +++|
00138  M00S00136.xhc     +++| XHC2     LDD    TM
00139  M00S00137.xhc     +++|          NJN    TRM         IF REQUEST TO TERMINATE
00140  M00S00138.xhc     +++| XHC3     PAUSE              PAUSE FOR STORAGE MOVE
00141  M00S00139.xhc     +++|          LDD    CM+1
00142  M00S00140.xhc     +++|          ZJN    XHC1        IF NO CONTROL POINT ERROR
00143  M00S00141.xhc     +++|          UJN    TRM1        ERROR EXIT
00144  M00S00142.xhc     +++|          TITLE  TERMINATION PROCESSORS.
00145  M00S00143.xhc     +++| TRM      SPACE  4,10
00146  M00S00144.xhc     +++|**        TRM - TERMINATION PROCESSOR.
00147  M00S00145.xhc     +++|*
00148  M00S00146.xhc     +++|*         EXIT   TO *PPR*.
00149  M00S00147.xhc     +++|*
00150  M00S00148.xhc     +++|*         CALLS  CRQ, DEQ.
00151  M00S00149.xhc     +++|*
00152  M00S00150.xhc     +++|*         MACROS MONITOR.
00153  M00S00151.xhc     +++|
00154  M00S00152.xhc     +++|
00155  M00S00153.xhc     +++| TRM      RJM    CRQ         COMPLETE REQUEST
00156  M00S00154.xhc     +++|
00157  M00S00155.xhc     +++|*         TRM1 IS A SECONDARY ENTRY POINT FOR TRM.
00158  M00S00156.xhc     +++|
00159  M00S00157.xhc     +++| TRM1     RJM    DEQ         DROP EQUIPMENT
00160  M00S00158.xhc     +++|          MONITOR  DPPM      DROP PP
00161  M00S00159.xhc     +++|          LJM    PPR         EXIT TO PP RESIDENT
00162  M00S00160.xhc     +++| ABT      SPACE  4,10
00163  M00S00161.xhc     +++|**        ABT - ABORT JOB.
00164  M00S00162.xhc     +++|*
00165  M00S00163.xhc     +++|*         EXIT TO *PPR*.
00166  M00S00164.xhc     +++|*
00167  M00S00165.xhc     +++|*         CALLS  DEQ.
00168  M00S00166.xhc     +++|*
00169  M00S00167.xhc     +++|*         MACROS MONITOR.
00170  M00S00168.xhc     +++|
00171  M00S00169.xhc     +++|
00172  M00S00170.xhc     +++| ABT      RJM    DEQ         DROP EQUIPMENT
00173  M00S00171.xhc     +++|          MONITOR  ABTM      ABORT JOB
00174  M00S00172.xhc     +++|          LJM    PPR         EXIT TO PP RESIDENT
00175  M00S00173.xhc     +++|          TITLE  ERR - ERROR PROCESSOR.
00176  M00S00174.xhc     +++| ERR      SPACE  4,10
00177  M00S00175.xhc     +++|**        ERR - ERROR PROCESSOR.
00178  M00S00176.xhc     +++|*
00179  M00S00177.xhc     +++|*         ENTRY  (A) = MESSAGE CODE.
00180  M00S00178.xhc     +++|*                (FC) = STATUS/BYTES REMAINING.
00181  M00S00179.xhc     +++|*                (ES - ES+4) = EST ENTRY.
00182  M00S00180.xhc     +++|*
00183  M00S00181.xhc     +++|*         USES   T1, T2, T5.
00184  M00S00182.xhc     +++|*
00185  M00S00183.xhc     +++|*         CALLS  C2D, DFM.
00186  M00S00184.xhc     +++|
00187  M00S00185.xhc     +++|
00188  M00S00186.xhc     +++| ERR      SUBR               ENTRY/EXIT
00189  M00S00187.xhc     +++|          SHN    1           GET TABLE ADDRESS
00190  M00S00188.xhc     +++|          STD    T1
00191  M00S00189.xhc     +++|          LDM    TDFP+1,T1   SET MESSAGE ADDRESS
00192  M00S00190.xhc     +++|          STD    T5
00193  M00S00191.xhc     +++|          LDM    TDFP,T1     SET PROCESSING ADDRESS
00194  M00S00192.xhc     +++|          STD    T2
00195  M00S00193.xhc     +++|          LJM    0,T2        FORMAT ERROR MESSAGE
00196  M00S00194.xhc     +++|
00197  M00S00195.xhc     +++| ERR3     LDD    FC          CONVERT STATUS / BYTE COUNT REMAINING
00198  M00S00196.xhc     +++|          SHN    -6
00199  M00S00197.xhc     +++|          RJM    C2D
00200  M00S00198.xhc     +++|          STM    6,T5
00201  M00S00199.xhc     +++|          LDD    FC
00202  M00S00200.xhc     +++|          RJM    C2D
00203  M00S00201.xhc     +++|          STM    7,T5
00204  M00S00202.xhc     +++|
00205  M00S00203.xhc     +++| ERR4     LDD    ES+1        CONVERT CHANNEL NUMBER TO DISPLAY CODE
00206  M00S00204.xhc     +++|          RJM    C2D
00207  M00S00205.xhc     +++|          STM    4,T5
00208  M00S00206.xhc     +++|          LDD    ES+3        SET EQUIPMENT TYPE
00209  M00S00207.xhc     +++|          STI    T5
00210  M00S00208.xhc     +++|
00211  M00S00209.xhc     +++| ERR5     LDM    CNTB+CNTC*5+0  CONVERT EQUIPMENT NUMBER
00212  M00S00210.xhc     +++|          SHN    -3
00213  M00S00211.xhc     +++|          RJM    C2D
00214  M00S00212.xhc     +++|          STM    1,T5
00215  M00S00213.xhc     +++|          LDM    CNTB+CNTC*5+0
00216  M00S00214.xhc     +++|          RJM    C2D
00217  M00S00215.xhc     +++|          SHN    6
00218  M00S00216.xhc     +++|          LMN    1R
00219  M00S00217.xhc     +++|          STM    2,T5
00220  M00S00218.xhc     +++|
00221  M00S00219.xhc     +++| ERR6     LDD    T5          SEND MESSAGE TO DAYFILE
00222  M00S00220.xhc     +++|          RJM    DFM
00223  M00S00221.xhc     +++|          LDC    ERLN        SEND MESSAGE TO ERROR LOG
00224  M00S00222.xhc     +++|          LMD    T5
00225  M00S00223.xhc     +++|          RJM    DFM
00226  M00S00224.xhc     +++|          LJM    ERRX        RETURN
00227  M00S00225.xhc     +++|          SPACE  4,10
00228  M00S00226.xhc     +++|**        TDFP - TABLE OF PROCESSORS AND MESSAGES.
00229  M00S00227.xhc     +++|*
00230  M00S00228.xhc     +++|*         *TDFP* IS INDEXED WITH DAYFILE MESSAGE CODES.
00231  M00S00229.xhc     +++|*
00232  M00S00230.xhc     +++|*         ENTRY - 2 WORDS.
00233  M00S00231.xhc     +++|*
00234  M00S00232.xhc     +++|*         INDEXED BY (MESSAGE CODE * 2).
00235  M00S00233.xhc     +++|
00236  M00S00234.xhc     +++|
00237  M00S00235.xhc     +++| TDFP     EQU    *
00238  M00S00236.xhc     +++|          LOC    0
00239  M00S00237.xhc     +++|          CON    ERR3,=C*EQXXX CHYY ADDDD INCOMPLETE TRANSFER.*
00240  M00S00238.xhc     +++|          CON    ERR3,=C*EQXXX CHYY GSSSS ADAPTER STATUS.*
00241  M00S00239.xhc     +++|          CON    ERR4,=C*EQXXX CHYY CCC CONTROLWARE NOT LOADED.*
00242  M00S00240.xhc     +++|          CON    ERR4,=C*EQXXX CHYY RESERVED.*
00243  M00S00241.xhc     +++|          CON    ERR5,=C*EQXXX INCORRECT EQUIPMENT TYPE.*
00244  M00S00242.xhc     +++|          CON    ERR5,=C*EQXXX INCORRECT EQUIPMENT NUMBER.*
00245  M00S00243.xhc     +++|          CON    ERR5,=C*EQXXX NOT AVAILABLE.*
00246  M00S00244.xhc     +++|          CON    ERR6,=C*TABLE NOT IN FL.*
00247  M00S00245.xhc     +++|          CON    ERR6,=C*INCORRECT JOB ORIGIN.*
00248  M00S00246.xhc     +++|          LOC    *O
00249  M00S00247.xhc     +++| TDFPL    EQU    *-TDFP
00250  M00S00248.xhc     +++|
00251  M00S00249.xhc     +++|
00252  M00S00250.xhc     +++|          USE    LITERALS
00253  M00S00251.xhc     +++|          TITLE  XDR - TRANSFER DATA RECORD.
00254  M00S00252.xhc     +++| XDR      SPACE  4,10
00255  M00S00253.xhc     +++|**        XDR - TRANSFER DATA RECORD.
00256  M00S00254.xhc     +++|*
00257  M00S00255.xhc     +++|*         ENTRY  (BC) = BYTE COUNT.
00258  M00S00256.xhc     +++|*                (BUFF) = DATA BUFFER.
00259  M00S00257.xhc     +++|*
00260  M00S00258.xhc     +++|*         ERROR  TO *TRM1*, IF CONTROL POINT ERROR.
00261  M00S00259.xhc     +++|*
00262  M00S00260.xhc     +++|*                TO *ABT*, IF INCOMPLETE DATA TRANSFER OR
00263  M00S00261.xhc     +++|*                            BAD ADAPTER STATUS.
00264  M00S00262.xhc     +++|*
00265  M00S00263.xhc     +++|*         USES   FC.
00266  M00S00264.xhc     +++|*
00267  M00S00265.xhc     +++|*         CALLS  CRQ, ERR, FCN.
00268  M00S00266.xhc     +++|
00269  M00S00267.xhc     +++|
00270  M00S00268.xhc     +++| XDR3     RJM    CRQ         COMPLETE REQUEST
00271  M00S00269.xhc     +++|
00272  M00S00270.xhc     +++| XDR      SUBR               ENTRY/EXIT
00273  M00S00271.xhc     +++|          LDN    FTDF        ISSUE TRANSPARENT DATA TRANSFER FUNCTION
00274  M00S00272.xhc     +++|          RJM    FCN
00275  M00S00273.xhc     +++|          LDD    BC          BYTE COUNT
00276  M00S00274.xhc     +++|          OAM    BUFF,CH     OUTPUT BUFFER
00277  M00S00275.xhc     +++|          ZJN    XDR1        IF TRANSFER COMPLETE
00278  M00S00276.xhc     +++|          STD    FC          REMAINING BYTE COUNT
00279  M00S00277.xhc     +++|          LDN    EITM        *EQXXX CHYY INCOMPLETE TRANSFER.*
00280  M00S00278.xhc     +++|          UJN    XDR2        REPORT ERROR
00281  M00S00279.xhc     +++|
00282  M00S00280.xhc     +++| XDR1     FJM    *,CH        IF XFER INCOMPLETE
00283  M00S00281.xhc     +++|          DCN    CH+40
00284  M00S00282.xhc     +++|          LDN    FGSF        ISSUE GENERAL STATUS FUNCTION
00285  M00S00283.xhc     +++|          RJM    FCN
00286  M00S00284.xhc     +++|          IAN    CH
00287  M00S00285.xhc     +++|          ZJN    XDR3        IF STATUS OK
00288  M00S00286.xhc     +++|          STD    FC          SAVE STATUS
00289  M00S00287.xhc     +++|          LDN    EGSM        *EQXXX CHYY GSSSS ADAPTER STATUS.*
00290  M00S00288.xhc     +++| XDR2     RJM    ERR         PROCESS ERROR
00291  M00S00289.xhc     +++|          LJM    ABT         ABORT JOB
00292  M00S00290.xhc     +++|
00293  M00S00291.xhc     +++|          TITLE  SUBROUTINES.
00294  M00S00292.xhc     +++| CAD      SPACE  4,15
00295  M00S00293.xhc     +++|**        CAD - COMPUTE ABSOLUTE ADDRESS.
00296  M00S00294.xhc     +++|*
00297  M00S00295.xhc     +++|*         ENTRY  (A) = WORD COUNT.
00298  M00S00296.xhc     +++|*                (T1) = INDIRECT ADDRESS OF ADDRESS.
00299  M00S00297.xhc     +++|*                ((T1)) - ((T1)+1) = ADDRESS.
00300  M00S00298.xhc     +++|*
00301  M00S00299.xhc     +++|*         EXIT   (A) = ABSOLUTE ADDRESS.
00302  M00S00300.xhc     +++|*                (T2) = WORD COUNT.
00303  M00S00301.xhc     +++|*
00304  M00S00302.xhc     +++|*         ERROR  TO *ERR*, IF TABLE NOT IN FL.
00305  M00S00303.xhc     +++|*
00306  M00S00304.xhc     +++|*         USES   T2.
00307  M00S00305.xhc     +++|*
00308  M00S00306.xhc     +++|*         CALLS  ERR.
00309  M00S00307.xhc     +++|
00310  M00S00308.xhc     +++|
00311  M00S00309.xhc     +++| CAD2     LDI    T1          LOAD ABSOLUTE ADDRESS
00312  M00S00310.xhc     +++|          LPN    77
00313  M00S00311.xhc     +++|          SHN    6
00314  M00S00312.xhc     +++|          ADD    RA
00315  M00S00313.xhc     +++|          SHN    6
00316  M00S00314.xhc     +++|          ADM    1,T1
00317  M00S00315.xhc     +++|
00318  M00S00316.xhc     +++| CAD      SUBR               ENTRY/EXIT
00319  M00S00317.xhc     +++|          STD    T2          SAVE WORD COUNT
00320  M00S00318.xhc     +++|          LDI    T1
00321  M00S00319.xhc     +++|          LPN    77
00322  M00S00320.xhc     +++|          SHN    14
00323  M00S00321.xhc     +++|          MJN    CAD1        IF OUT OF RANGE
00324  M00S00322.xhc     +++|          LMM    1,T1
00325  M00S00323.xhc     +++|          ADD    T2
00326  M00S00324.xhc     +++|          SHN    -6
00327  M00S00325.xhc     +++|          SBD    FL
00328  M00S00326.xhc     +++|          MJN    CAD2        IF < FL - WORD COUNT
00329  M00S00327.xhc     +++| CAD1     LDN    EFLM        *TABLE NOT IN FL.*
00330  M00S00328.xhc     +++|          RJM    ERR         PROCESS ERROR
00331  M00S00329.xhc     +++|          LJM    ABT         ERROR EXIT
00332  M00S00330.xhc     +++| CRQ      SPACE  4,15
00333  M00S00331.xhc     +++|**        CRQ - COMPLETE REQUEST.
00334  M00S00332.xhc     +++|*
00335  M00S00333.xhc     +++|*         ENTRY  (IR+3) - (IR+4) = CNTB ADDRESS.
00336  M00S00334.xhc     +++|*
00337  M00S00335.xhc     +++|*         EXIT   CNTB UPDATED IN CM.
00338  M00S00336.xhc     +++|*
00339  M00S00337.xhc     +++|*         USES   T1, CM - CM+4.
00340  M00S00338.xhc     +++|*
00341  M00S00339.xhc     +++|*         CALLS  CAD.
00342  M00S00340.xhc     +++|*
00343  M00S00341.xhc     +++|*         MACROS  MONITOR.
00344  M00S00342.xhc     +++|
00345  M00S00343.xhc     +++|
00346  M00S00344.xhc     +++| CRQ      SUBR               ENTRY/EXIT
00347  M00S00345.xhc     +++|          AOM    CNTB+CNTC*5+4  SET REQUEST BIT
00348  M00S00346.xhc     +++|          LDN    IR+3        CONTROL BLOCK ADDRESS
00349  M00S00347.xhc     +++|          STD    T1
00350  M00S00348.xhc     +++|          LDN    CNTBL       CONTROL BLOCK LENGTH
00351  M00S00349.xhc     +++|          RJM    CAD         COMPUTE ABSOLUTE ADDRESS
00352  M00S00350.xhc     +++|          CWM    CNTB,ON     UPDATE CONTROL WORD
00353  M00S00351.xhc     +++|          LDD    CP
00354  M00S00352.xhc     +++|          ADN    STSW        FETCH CONTROL POINT STATUS WORD
00355  M00S00353.xhc     +++|          CRD    CM
00356  M00S00354.xhc     +++|          LDD    CM          CHECK CPU STATE
00357  M00S00355.xhc     +++|          SHN    -11
00358  M00S00356.xhc     +++|          LMN    6
00359  M00S00357.xhc     +++|          NJN    CRQX        IF NOT IN *I* STATUS
00360  M00S00358.xhc     +++|          MONITOR  RCPM
00361  M00S00359.xhc     +++|          UJN    CRQX        RETURN
00362  M00S00360.xhc     +++| DEQ      SPACE  4,10
00363  M00S00361.xhc     +++|**        DEQ - DROP EQUIPMENT.
00364  M00S00362.xhc     +++|*
00365  M00S00363.xhc     +++|*         ENTRY  (EQ) = 0, IF NO EQUIPMENT ASSIGNED.
00366  M00S00364.xhc     +++|*                (EQ) = EQUIPMENT NUMBER.
00367  M00S00365.xhc     +++|*                (ES - ES+4) = EST ENTRY.
00368  M00S00366.xhc     +++|*
00369  M00S00367.xhc     +++|*         EXIT   (EQ) = 0.
00370  M00S00368.xhc     +++|*
00371  M00S00369.xhc     +++|*         USES   CM - CM+4.
00372  M00S00370.xhc     +++|*
00373  M00S00371.xhc     +++|*         MACROS DCHAN, MONITOR.
00374  M00S00372.xhc     +++|
00375  M00S00373.xhc     +++|
00376  M00S00374.xhc     +++| DEQ      SUBR               ENTRY/EXIT
00377  M00S00375.xhc     +++|          LDD    EQ
00378  M00S00376.xhc     +++|          ZJN    DEQX        IF NO EQUIPMENT ASSIGNED.
00379  M00S00377.xhc     +++|          LDD    ES+1        DROP CHANNEL
00380  M00S00378.xhc     +++|          DCHAN
00381  M00S00379.xhc     +++|          LDD    EQ          DROP EQUIPMENT
00382  M00S00380.xhc     +++|          STD    CM+1
00383  M00S00381.xhc     +++|          MONITOR  DEQM
00384  M00S00382.xhc     +++|*         LDN    0           INDICATE EQUIPMENT RELEASED
00385  M00S00383.xhc     +++|          STD    EQ
00386  M00S00384.xhc     +++|          UJN    DEQX        RETURN
00387  M00S00385.xhc     +++| FCN      SPACE  4,15
00388  M00S00386.xhc     +++|**        FCN - ISSUE FUNCTION TO EQUIPMENT.
00389  M00S00387.xhc     +++|*
00390  M00S00388.xhc     +++|*         ENTRY  (A) = FUNCTION CODE.
00391  M00S00389.xhc     +++|*
00392  M00S00390.xhc     +++|*         EXIT   CHANNEL ACTIVE.
00393  M00S00391.xhc     +++|*
00394  M00S00392.xhc     +++|*         ERROR  TO *TRM1*, IF CONTROL POINT ERROR.
00395  M00S00393.xhc     +++|*
00396  M00S00394.xhc     +++|*         USES   FC.
00397  M00S00395.xhc     +++|*
00398  M00S00396.xhc     +++|*         MACROS  PAUSE.
00399  M00S00397.xhc     +++|
00400  M00S00398.xhc     +++|
00401  M00S00399.xhc     +++| FCN2     ACN    CH          ACTIVATE CHANNEL
00402  M00S00400.xhc     +++|
00403  M00S00401.xhc     +++| FCN      SUBR               ENTRY/EXIT
00404  M00S00402.xhc     +++|          STD    FC          SAVE FUNCTION CODE
00405  M00S00403.xhc     +++|          FAN    CH          ISSUE FUNCTION
00406  M00S00404.xhc     +++| FCN1     IJM    FCN2,CH     IF FUNCTION ACCEPTED
00407  M00S00405.xhc     +++|          SBN    1
00408  M00S00406.xhc     +++|          NJN    FCN1        IF NOT TIMED OUT
00409  M00S00407.xhc     +++|          PAUSE              PAUSE FOR STORAGE MOVE
00410  M00S00408.xhc     +++|          LDD    CM+1
00411  M00S00409.xhc     +++|          ZJN    FCN1        IF NO CONTROL POINT ERROR
00412  M00S00410.xhc     +++|          DCN    CH+40
00413  M00S00411.xhc     +++|          LJM    TRM1        ERROR EXIT
00414  M00S00412.xhc     +++| RCB      SPACE  4,15
00415  M00S00413.xhc     +++|**        RCB - READ CONTROL BLOCK.
00416  M00S00414.xhc     +++|*
00417  M00S00415.xhc     +++|*         ENTRY  (IR+3) - (IR+4) = CNTB ADDRESS.
00418  M00S00416.xhc     +++|*
00419  M00S00417.xhc     +++|*         EXIT   (A) = 0, IF NO DATA TO TRANSFER.
00420  M00S00418.xhc     +++|*                (A) = DATA RECORD ADDRESS.
00421  M00S00419.xhc     +++|*                (T2) = *BFCL*, IF (A) = DATA RECORD ADDRESS.
00422  M00S00420.xhc     +++|*                (CNTB) UPDATED, IF (A) = DATA RECORD ADDRESS.
00423  M00S00421.xhc     +++|*                (TM) <> 0, IF REQUEST TO TERMINATE.
00424  M00S00422.xhc     +++|*
00425  M00S00423.xhc     +++|*         USES   T1.
00426  M00S00424.xhc     +++|*
00427  M00S00425.xhc     +++|*         CALLS  CAD.
00428  M00S00426.xhc     +++|
00429  M00S00427.xhc     +++|
00430  M00S00428.xhc     +++| RCB1     AOD    TM          SET *TERMINATE REQUEST*
00431  M00S00429.xhc     +++| RCB2     LDN    0           INDICATE NO REQUEST
00432  M00S00430.xhc     +++|
00433  M00S00431.xhc     +++| RCB      SUBR               ENTRY/EXIT
00434  M00S00432.xhc     +++|          LDN    IR+3        CNTB ADDRESS
00435  M00S00433.xhc     +++|          STD    T1
00436  M00S00434.xhc     +++|          LDN    CNTBL       CNTB LENGTH
00437  M00S00435.xhc     +++|          RJM    CAD         COMPUTE ABSOLUTE ADDRESS
00438  M00S00436.xhc     +++|          CRM    CNTB,T2     READ CNTB
00439  M00S00437.xhc     +++|          LDM    CNTB+CNTC*5+4   CHECK REQUEST BIT
00440  M00S00438.xhc     +++|          SHN    21-0
00441  M00S00439.xhc     +++|          MJN    RCB2        IF NO REQUEST
00442  M00S00440.xhc     +++|          LDM    CNTB+CNTC*5+1  CHECK TERMINATE REQUEST
00443  M00S00441.xhc     +++|          SHN    21-0
00444  M00S00442.xhc     +++|          MJN    RCB1        IF NOT REQUEST TO TERMINATE
00445  M00S00443.xhc     +++|          LDM    CNTB+DRPC*5+3  GET DATA RECORD POINTER
00446  M00S00444.xhc     +++|          SHN    14
00447  M00S00445.xhc     +++|          ADM    CNTB+DRPC*5+4
00448  M00S00446.xhc     +++|          LMC    NILP
00449  M00S00447.xhc     +++|          ZJN    RCBX        IF NIL
00450  M00S00448.xhc     +++|          LDC    CNTB+DRPC*5+3  DATA RECORD ADDRESS
00451  M00S00449.xhc     +++|          STD    T1
00452  M00S00450.xhc     +++|          LDN    BFCL        DATA RECORD LENGTH
00453  M00S00451.xhc     +++|          RJM    CAD         COMPUTE ABSOLUTE ADDRESS
00454  M00S00452.xhc     +++|          UJP    RCBX        RETURN
00455  M00S00453.xhc     +++|          SPACE  4,10
00456  M00S00454.xhc     +++|**        COMMON DECKS.
00457  M00S00455.xhc     +++|
00458  M00S00456.xhc     +++|
00459  M00S00457.xhc     +++|*CALL     COMPC2D
00460  M00S00458.xhc     +++|          SPACE  4,10
00461  M00S00459.xhc     +++|          USE    BUFFER
00462  M00S00460.xhc     +++|
00463  M00S00461.xhc     +++|
00464  M00S00462.xhc     +++| BUFF     EQU    *           DATA RECORD BUFFER
00465  M00S00463.xhc     +++| BUFE     EQU    BUFF+BFCL*5 END OF DATA BUFFER
00466  M00S00464.xhc     +++| CNTB     EQU    BFMS-CNTBL*5  CONTROL BLOCK
00467  M00S00465.xhc     +++|
00468  M00S00466.xhc     +++|          ERRNG  CNTB-BUFE
00469  M00S00467.xhc     +++|          ERRNG  CNTB-PRSE
00470  M00S00468.xhc     +++|          TITLE  XHC PRESET.
00471  M00S00469.xhc     +++| PRS      SPACE  4,15
00472  M00S00470.xhc     +++|**        PRS - XHC PRESET.
00473  M00S00471.xhc     +++|*
00474  M00S00472.xhc     +++|*         ENTRY  (IR+3 - IR+4) = CONTROL BLOCK ADDRESS.
00475  M00S00473.xhc     +++|*
00476  M00S00474.xhc     +++|*         EXIT   (BC) = CRDL, IF CARD IMAGE FILE.
00477  M00S00475.xhc     +++|*                (BC) = BINL, IF BINARY FILE.
00478  M00S00476.xhc     +++|*                (EQ) = EQUIPMENT NUMBER.
00479  M00S00477.xhc     +++|*                (ES - ES+4) = EST ENTRY.
00480  M00S00478.xhc     +++|*                CHANNEL INSTRUCTIONS MODIFIED.
00481  M00S00479.xhc     +++|*                EQUIPMENT AND CHANNEL RESERVED.
00482  M00S00480.xhc     +++|*                NIP UNIT SELECTED.
00483  M00S00481.xhc     +++|*
00484  M00S00482.xhc     +++|*         ERROR  TO *ABT*, IF INCORRECT JOB ORIGIN OR
00485  M00S00483.xhc     +++|*                EQUIPMENT PROBLEM.
00486  M00S00484.xhc     +++|*
00487  M00S00485.xhc     +++|*                TO *TRM1*, IF CONTROL POINT ERROR.
00488  M00S00486.xhc     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00489  M01S00487.xhc1    ---|*         USES   BC, CM - CM+4, EQ, ES - ES+4, FR, TM.

Seq #  *Modification Id* Act 
----------------------------+
00490  M01S00002.xhc1    +++|*         USES   BC, CM - CM+4, EQ, ES - ES+4, FR, TM, T8.
00491  M00S00488.xhc     +++|*
00492  M00S00489.xhc     +++|*         CALLS  CRQ, ERR, FCN, GST, MCI, RCB.
00493  M00S00490.xhc     +++|*
00494  M00S00491.xhc     +++|*         MACROS MONITOR, PAUSE, RCHAN.
00495  M00S00492.xhc     +++|
00496  M00S00493.xhc     +++|
00497  M00S00494.xhc     +++| PRS      SUBR               ENTRY/EXIT
00498  M00S00495.xhc     +++|          LDN    0
00499  M00S00496.xhc     +++|          STD    EQ          EQUIPMENT NOT ASSIGNED
00500  M00S00497.xhc     +++|          STD    TM          TERMINATE NOT REQUESTED
00501  M00S00498.xhc     +++|          LDD    CP          CHECK FOR SYOT ORIGIN
00502  M00S00499.xhc     +++|          ADN    JOTW
00503  M00S00500.xhc     +++|          CRD    CM
00504  M00S00501.xhc     +++|          LDD    CM+3
00505  M00S00502.xhc     +++|*         LMN    SYOT
00506  M00S00503.xhc     +++|          ZJN    PRS1        IF SYSTEM ORIGIN
00507  M00S00504.xhc     +++|          LDN    EJOM        *INCORRECT JOB ORIGIN.*
00508  M00S00505.xhc     +++|          UJN    PRS4        PROCESS ERROR
00509  M00S00506.xhc     +++|
00510  M00S00507.xhc     +++| PRS1     RJM    RCB         READ CONTROL BLOCK
00511  M00S00508.xhc     +++|          LDM    CNTB+CNTC*5+3
00512  M00S00509.xhc     +++|          SHN    21-0
00513  M00S00510.xhc     +++|          MJN    PRS2        IF CARD IMAGE FILE
00514  M00S00511.xhc     +++|          LDC    BINL
00515  M00S00512.xhc     +++|          UJN    PRS3
00516  M00S00513.xhc     +++|
00517  M00S00514.xhc     +++| PRS2     LDN    CRDL
00518  M00S00515.xhc     +++| PRS3     STD    BC
00519  M00S00516.xhc     +++|          LDN    ESTP        GET EST TABLE ADDRESS
00520  M00S00517.xhc     +++|          CRD    CM
00521  M00S00518.xhc     +++|          LDM    CNTB+CNTC*5+0  GET EQUIPMENT NUMBER
00522  M00S00519.xhc     +++|          LPC    777

Seq #  *Modification Id* Act 
----------------------------+
00523  M01S00003.xhc1    +++|          STD    T8
00524  M00S00520.xhc     +++|          STD    CM+1
00525  M00S00521.xhc     +++|          SBD    CM+2
00526  M00S00522.xhc     +++|          MJN    PRS5        IF ENTRY IN EST
00527  M00S00523.xhc     +++|          LDN    ENMM        *EQXXX CHYY INCORRECT EQUIPMENT NUMBER.*
00528  M00S00524.xhc     +++| PRS4     RJM    ERR         PROCESS ERROR
00529  M00S00525.xhc     +++|          LJM    ABT         ABORT JOB
00530  M00S00526.xhc     +++|
00531  M00S00527.xhc     +++| PRS5     SFA    EST,CM+1
00532  M00S00528.xhc     +++|          ADK    EQDE
00533  M00S00529.xhc     +++|          CRD    ES          READ EST ENTRY
00534  M00S00530.xhc     +++|          LDD    ES+3        CHECK FOR NIP

Seq #  *Modification Id* Act 
----------------------------+
00535  M01S00531.252l678 ---|          LPC    3777
00536  M00S00532.xhc     +++|          LMC    2RLX
00537  M00S00533.xhc     +++|          ZJN    PRS6        IF 5870
00538  M00S00534.xhc     +++|          LMN    2RLY&2RLX
00539  M00S00535.xhc     +++|          ZJN    PRS6        IF 5970
00540  M00S00536.xhc     +++|          LDN    ETYM        *EQXXX INCORRECT EQUIPMENT TYPE.*
00541  M00S00537.xhc     +++|          UJN    PRS4        ERROR EXIT
00542  M00S00538.xhc     +++|
00543  M00S00539.xhc     +++| PRS6     STD    CM+2
00544  M00S00540.xhc     +++|          LDD    ES          CHECK STATUS OF EQUIPMENT
00545  M00S00541.xhc     +++|          SHN    21-5
00546  M00S00542.xhc     +++|          PJN    PRS8        IF NOT DOWN AND OFF
00547  M00S00543.xhc     +++|          LDN    ENAM        *EQXXX NOT AVAILABLE.*
00548  M00S00544.xhc     +++| PRS7     UJN    PRS4        ERROR EXIT
00549  M00S00545.xhc     +++|
00550  M00S00546.xhc     +++| PRS8     SHN    1
00551  M00S00547.xhc     +++|          PJN    PRS9        IF CONTROLWARE LOADED
00552  M00S00548.xhc     +++|          LDN    ENLM        *EQXXX CHYY CONTROLWARE NOT LOADED.*
00553  M00S00549.xhc     +++|          UJN    PRS7        PROCESS ERROR
00554  M00S00550.xhc     +++|
00555  M00S00551.xhc     +++| PRS9     MONITOR  REQM      REQUEST EQUIPMENT
00556  M00S00552.xhc     +++|          LDD    CM+1
00557  M00S00553.xhc     +++|          NJN    PRS10       IF EQUIPMENT ASSIGNED
00558  M00S00554.xhc     +++|          LDN    ERSM        *EQXXX CHYY RESERVED.*
00559  M00S00555.xhc     +++|          UJN    PRS7        PROCESS ERROR
00560  M00S00556.xhc     +++|

Seq #  *Modification Id* Act 
----------------------------+
00561  M01S00557.xhc1    ---| PRS10    STD    EQ          SET EQUIPMENT RESERVED

Seq #  *Modification Id* Act 
----------------------------+
00562  M01S00004.xhc1    +++| PRS10    LDD    T8          SET EQUIPMENT RESERVED
00563  M01S00005.xhc1    +++|          STD    EQ

Seq #  *Modification Id* Act 
----------------------------+
00564  M01S00001.252l678 +++|          LDD    ES+1        CLEAR UPPER BITS OF CHANNEL
00565  M01S00002.252l678 +++|          LPN    37
00566  M01S00003.252l678 +++|          STD    ES+1
00567  M00S00558.xhc     +++|          RJM    MCI         MODIFY CHANNEL INSTRUCTIONS
00568  M00S00559.xhc     +++|          LDD    ES+1
00569  M00S00560.xhc     +++|          RCHAN              RESERVE CHANNEL
00570  M00S00561.xhc     +++|
00571  M00S00562.xhc     +++|*         CONNECT EQUIPMENT.
00572  M00S00563.xhc     +++|
00573  M00S00564.xhc     +++|          LDN    FSUF        SELECT UNIT
00574  M00S00565.xhc     +++|          RJM    FCN
00575  M00S00566.xhc     +++|          LDD    ES+4        OUTPUT UNIT NUMBER
00576  M00S00567.xhc     +++|          SHN    0-11
00577  M00S00568.xhc     +++|          OAN    CH+40
00578  M00S00569.xhc     +++| PRS11    EJM    PRS12,CH    IF CONNECT RESPONSE RECEIVED
00579  M00S00570.xhc     +++|          SBN    1
00580  M00S00571.xhc     +++|          NJN    PRS11       IF NOT TIMED OUT
00581  M00S00572.xhc     +++|          PAUSE              PAUSE FOR STORAGE MOVE
00582  M00S00573.xhc     +++|          LDD    CM+1
00583  M00S00574.xhc     +++|          ZJN    PRS11       IF NO CONTROL POINT ERROR
00584  M00S00575.xhc     +++|          DCN    CH+40
00585  M00S00576.xhc     +++|          LJM    TRM1        ERROR EXIT
00586  M00S00577.xhc     +++|
00587  M00S00578.xhc     +++| PRS12    DCN    CH+40
00588  M00S00579.xhc     +++|          LDN    FGSF        GET GENERAL STATUS
00589  M00S00580.xhc     +++|          RJM    FCN
00590  M00S00581.xhc     +++|          IAN    CH
00591  M00S00582.xhc     +++|          ZJN    PRS13       IF GOOD STATUS
00592  M00S00583.xhc     +++|          STD    FC
00593  M00S00584.xhc     +++|          LDN    EGSM        *EQXXX CHYY GSSSS ADAPTER STATUS.*
00594  M00S00585.xhc     +++|          RJM    ERR         PROCESS ERROR
00595  M00S00586.xhc     +++|          LJM    ABT         ABORT JOB
00596  M00S00587.xhc     +++|
00597  M00S00588.xhc     +++| PRS13    RJM    CRQ         COMPLETE REQUEST
00598  M00S00589.xhc     +++|          LJM    PRSX        RETURN
00599  M00S00590.xhc     +++| MCI      SPACE  4,10
00600  M00S00591.xhc     +++|**        MCI - MODIFY CHANNEL INSTRUCTIONS.
00601  M00S00592.xhc     +++|*
00602  M00S00593.xhc     +++|*         (ES+1) = CHANNEL NUMBER.
00603  M00S00594.xhc     +++|*
00604  M00S00595.xhc     +++|*         USES   T1, T2.
00605  M00S00596.xhc     +++|
00606  M00S00597.xhc     +++|
00607  M00S00598.xhc     +++| MCI      SUBR               ENTRY/EXIT
00608  M00S00599.xhc     +++|          LDC    TCHS        LOAD FWA OF CHANNEL TABLE ADDRESSES
00609  M00S00600.xhc     +++|          STD    T1
00610  M00S00601.xhc     +++| MCI1     LDI    T1
00611  M00S00602.xhc     +++|          ZJN    MCIX        IF NO MORE INSTRUCTIONS TO MODIFY
00612  M00S00603.xhc     +++|          STD    T2
00613  M00S00604.xhc     +++|          LDI    T2
00614  M00S00605.xhc     +++|          SCN    37
00615  M00S00606.xhc     +++|          LMD    ES+1
00616  M00S00607.xhc     +++|          STI    T2
00617  M00S00608.xhc     +++|          AOD    T1
00618  M00S00609.xhc     +++|          UJN    MCI1        MODIFY NEXT INSTRUCTION
00619  M00S00610.xhc     +++|          SPACE  4,10
00620  M00S00611.xhc     +++|**        TCHS - CHANNEL TABLE.
00621  M00S00612.xhc     +++|
00622  M00S00613.xhc     +++|
00623  M00S00614.xhc     +++| TCHS     CHTB
00624  M00S00615.xhc     +++|          SPACE  4,10
00625  M00S00616.xhc     +++| PRSE     EQU    *
00626  M00S00617.xhc     +++|          OVERFLOW
00627  M00S00618.xhc     +++|
00628  M00S00619.xhc     +++|
00629  M00S00620.xhc     +++|          END