User Tools

Site Tools


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

Deck 1SS

5 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.1ss     +++|          IDENT  1SS,SSD
00002  M01S00002.1ss     +++|          TITLE  1SS - M860 SECONDARY STORAGE DRIVER.
00003  M01S00003.1ss     +++|          PERIPH
00004  M01S00004.1ss     +++|          BASE   M
00005  M01S00005.1ss     +++|          SST
00006  M01S00006.1ss     +++|*COMMENT M860 SECONDARY STORAGE DRIVER.
Line S00007 Modification History
M01 (Added by) 1ss
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00007.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M01S00008.1ss     +++|          SPACE  4
00010  M01S00009.1ss     +++|***       1SS - M860 SECONDARY STORAGE DRIVER.
00011  M01S00010.1ss     +++|*         W. J. STURGIS      82/02/18.
00012  M01S00011.1ss     +++|          SPACE  4,10
00013  M01S00012.1ss     +++|***       1SS PROCESSES REQUESTS FROM SSEXEC TO READ AND WRITE
00014  M01S00013.1ss     +++|*         DATA AND MESSAGES.  MULTIPLE FUNCTIONS CAN BE PROCESSED
00015  M01S00014.1ss     +++|*         BY 1SS.
00016  M01S00015.1ss     +++|          SPACE  4,10
00017  M01S00016.1ss     +++|***       CALL
00018  M01S00017.1ss     +++|*
00019  M01S00018.1ss     +++|*T IR     18/ *1SS* ,6/ ,12/ CHB CHA ,6/ FC ,18/ ADDR
Figure IR

01718232429 ADDR FC CHB CHA 303536414259 CHB CHA *1SS*

00020  M01S00019.1ss     +++|*
00021  M01S00020.1ss     +++|*T ADDR   18/ MSG. OUT FET ,18/ RECALL ADDR. ,12/ EQ ,11/ CN ,1/S
Figure ADDR

011112232429S CN EQ RECALL ADDR. 30414259 RECALL ADDR. MSG. OUT FET

00022  M01S00021.1ss     +++|*T,ADDR+1 42/ ,18/DATA FET ADDR
Figure ADDR+1

0171829DATA FET ADDR 3059

00023  M01S00022.1ss     +++|*
00024  M01S00023.1ss     +++|*         WHERE
00025  M01S00024.1ss     +++|*         ADDR = PARAMETER ADDRESS.
00026  M01S00025.1ss     +++|*         FC = FUNCTION CODE.
00027  M01S00026.1ss     +++|*                1 = ENABLE TDAM BUFFER.
00028  M01S00027.1ss     +++|*                2 = MESSAGE BUFFER(S) TO PROCESS.
00029  M01S00028.1ss     +++|*                3 = MESSAGE AND DATA BUFFERS TO PROCESS.
00030  M01S00029.1ss     +++|*                4 = SET CHANNELS IN EST ENTRY.
00031  M01S00030.1ss     +++|*         EQ = EST ORDINAL.
00032  M01S00031.1ss     +++|*         CHB CHA = NEW CHANNELS TO BE SET IN EST FOR EQ.
00033  M01S00032.1ss     +++|*         MSG. OUT FET = FET USED TO SEND MESSAGES TO THE M860.
00034  M01S00033.1ss     +++|*         (MSG. OUT FET - 1) POINTER TO MESSAGE INPUT FET.
00035  M01S00034.1ss     +++|*         RECALL = CPU DRIVER RECALL WORD
00036  M01S00035.1ss     +++|*         DATA FET = FET FOR DATA I/O.
00037  M01S00036.1ss     +++|*         CN = CONTROLLER ORDINAL IN UDT.
00038  M01S00037.1ss     +++|*         S = 1, PPU ACTIVE (SET BY SSEXEC), CLEARED BY 1SS WHEN
00039  M01S00038.1ss     +++|*         DROPPING OUT.
00040  M01S00039.1ss     +++|          SPACE  4,10
00041  M01S00040.1ss     +++|***       MESSAGE FET
00042  M01S00041.1ss     +++|*
00043  M01S00042.1ss     +++|*T MFET   42/   ,8/ ERRC ,9/ ,1/C
Figure MFET

01910171829C ERRC 3059

00044  M01S00043.1ss     +++|*T,       42/ ,18/ FIRST
Figure

0171829 FIRST 3059

00045  M01S00044.1ss     +++|*T,       42/ ,18/ IN
Figure

0171829 IN 3059

00046  M01S00045.1ss     +++|*T,       42/ ,18/ OUT
Figure

0171829 OUT 3059

00047  M01S00046.1ss     +++|*T,       12/ CH ,6/ ,18/ ABUF ,6/ ,18/ LIMIT
Figure

01718232429 LIMIT ABUF 304142474859 ABUF CH

00048  M01S00047.1ss     +++|*T,       60/ EBUF
Figure

029 EBUF3059 EBUF

00049  M01S00048.1ss     +++|*
00050  M01S00049.1ss     +++|*         WHERE.
00051  M01S00050.1ss     +++|*         ERRC = ERROR RETURN CODE.
00052  M01S00051.1ss     +++|*         C = COMPLETE FLAG.
00053  M01S00052.1ss     +++|*         FIRST = FIRST POINTER.
00054  M01S00053.1ss     +++|*         IN = IN POINTER.
00055  M01S00054.1ss     +++|*         OUT = OUT POINTER.
00056  M01S00055.1ss     +++|*         CH = CHANNEL TO USE.
00057  M01S00056.1ss     +++|*         LIMIT = LIMIT POINTER.
00058  M01S00057.1ss     +++|*         ABUF = AUX BUFFER FOR LONG ASSOCIATED DATA BLOCKS.
00059  M01S00058.1ss     +++|*         EBUF = HARDWARE ERROR STATUS BUFFER.(5 WORDS)
00060  M01S00059.1ss     +++|          SPACE  4,10
00061  M01S00060.1ss     +++|***       DATA FET.
00062  M01S00061.1ss     +++|*
00063  M01S00062.1ss     +++|*T DFET   42/ ,8/ ERRC ,1/E,8/ FUNC ,1/C
Figure DFET

018910171829C FUNC E ERRC 3059

00064  M01S00063.1ss     +++|*T,       42/ ,18/ FIRST
Figure

0171829 FIRST 3059

00065  M01S00064.1ss     +++|*T,       42/ ,18/ IN
Figure

0171829 IN 3059

00066  M01S00065.1ss     +++|*T,       42/ ,18/ OUT
Figure

0171829 OUT 3059

00067  M01S00066.1ss     +++|*T,       12/ UNIT,29/ ,1/T ,18/ LIMIT
Figure

017181929 LIMITT 30474859 UNIT

00068  M01S00067.1ss     +++|*T,       60/ EBUF
Figure

029 EBUF3059 EBUF

00069  M01S00068.1ss     +++|*T,       60/ HBUF
Figure

029 HBUF3059 HBUF

00070  M01S00069.1ss     +++|*
00071  M01S00070.1ss     +++|*         WHERE.
00072  M01S00071.1ss     +++|*         ERRC = ERROR RETURN CODE.
00073  M01S00072.1ss     +++|*         E = EOI STATUS(READ).
00074  M01S00073.1ss     +++|*         FUNC = FUNCTION CODE.
00075  M01S00074.1ss     +++|*                READ, WRITE, REWIND/UNLOAD.
00076  M01S00075.1ss     +++|*         C = COMPLETE STATUS.
00077  M01S00076.1ss     +++|*         FIRST = FIRST POINTER.
00078  M01S00077.1ss     +++|*         IN = IN POINTER.
00079  M01S00078.1ss     +++|*         OUT = OUT POINTER.
00080  M01S00079.1ss     +++|*         UNIT = UNIT NUMBER.
00081  M01S00080.1ss     +++|*         T = TERMINATE STREAMING FLAG.
00082  M01S00081.1ss     +++|*         LIMIT = LIMIT POINTER.
00083  M01S00082.1ss     +++|*         EBUF = HARDWARE ERROR STATUS BUFFER(5 WORDS).
00084  M01S00083.1ss     +++|*         HBUF = STRIPE HEADER BUFFER(20 WORDS).
00085  M01S00084.1ss     +++|          SPACE  4,10
00086  M01S00085.1ss     +++|***       STRIPE FORMAT.
00087  M01S00086.1ss     +++|*
00088  M01S00087.1ss     +++|*         EACH M860 STRIPE IS CAPABLE OF HOLDING
00089  M01S00088.1ss     +++|*         6530 8 BIT BYTES OF DATA.
00090  M01S00089.1ss     +++|*         1SS WRITES A 150 BYTE HEADER, 483 - 6279 BYTES OF DATA
00091  M01S00090.1ss     +++|*         AND EITHER A TAPEMARK (EOI) OR A 90 BYTE TRAILER.
00092  M01S00091.1ss     +++|*         DATA CONSISTS OF FROM 1 TO 13 DISK SECTORS WITH PARTIAL
00093  M01S00092.1ss     +++|*         NOS CONTROL WORDS.  THE FIRST CONTROL WORD HAS ONLY
00094  M01S00093.1ss     +++|*         THE PP WORD COUNT OF ACTUAL DATA AND THE SECOND CONTROL
00095  M01S00094.1ss     +++|*         WORD ONLY HAS THE LEVEL NUMBER.  THE REST OF THE CONTROL
00096  M01S00095.1ss     +++|*         WORDS ARE RECONSTRUCTED BY 1SS BEFORE WRITING THE
00097  M01S00096.1ss     +++|*         DATA TO THE CM BUFFER.
00098  M01S00097.1ss     +++|          SPACE  4,10
00099  M01S00098.1ss     +++|***       JOB DAYFILE MESSAGES.
00100  M01S00099.1ss     +++|*
00101  M01S00100.1ss     +++|*         *1SS ABT.*    FIELD LENGTH ERROR.
00102  M01S00101.1ss     +++|*         *1SS INVALID FUNCTION.*  INPUT REG. FUNCTION INVALID.
00103  M01S00102.1ss     +++|*
00104  M01S00103.1ss     +++|*
00105  M01S00104.1ss     +++|*         IF SENSE SWITCH 1 IS ON, TRACE AND TIMING MESSAGES
00106  M01S00105.1ss     +++|*         ARE ISSUED TO THE CONTROL POINT DAYFILE.
00107  M01S00106.1ss     +++|          SPACE  4,10
00108  M01S00107.1ss     +++|*         COMMON DECKS.
00109  M01S00108.1ss     +++|
00110  M01S00109.1ss     +++|
00111  M01S00110.1ss     +++|          LIST   X
00112  M01S00111.1ss     +++|*CALL     COMBCDD
00113  M01S00112.1ss     +++|          LIST   -X
00114  M01S00113.1ss     +++|*CALL     COMPMAC
00115  M01S00114.1ss     +++|*CALL     COMPCHI
00116  M01S00115.1ss     +++|          TITLE  ASSEMBLY CONSTANTS.
00117  M01S00116.1ss     +++|*         DIRECT CELLS.
00118  M01S00117.1ss     +++|
00119  M01S00118.1ss     +++|
00120  M01S00119.1ss     +++|          LOC    16
00121  M01S00120.1ss     +++| CL       BSS    1           FUNCTION TIMEOUT CLOCK
00122  M01S00121.1ss     +++| EO       BSS    1           END OF OPERATION TIMEOUT CLOCK
00123  M01S00122.1ss     +++| CN       BSS    5           CM WORD BUFFER
00124  M01S00123.1ss     +++| BC       BSS    1           BYTE COUNT
00125  M01S00124.1ss     +++| EC       BSS    1           ERROR CODE
00126  M01S00125.1ss     +++| FE       BSS    2           FET ADDRESS
00127  M01S00126.1ss     +++| IC       BSS    1           IDLE COUNTER
00128  M01S00127.1ss     +++| MW       BSS    1           MESSAGE WAITING FLAG
00129  M01S00128.1ss     +++| RC       BSS    1           RECALL COUNT
00130  M01S00129.1ss     +++| ST       BSS    1           GENERAL STATUS
00131  M01S00130.1ss     +++| WC       BSS    1           WORD COUNT
00132  M01S00131.1ss     +++| ES       BSS    1           EST ORDINAL OF CONTROL UNIT
00133  M01S00132.1ss     +++| EQ       BSS    1           EQUIPMENT NUMBER OF CONTROL UNIT
00134  M01S00133.1ss     +++| PC       BSS    1           PRU COUNT WITHIN A DATA STRIPE
00135  M01S00134.1ss     +++| UN       BSS    1           UNIT NUMBER FOR DATA I/O
00136  M01S00135.1ss     +++| SC       BSS    1           STRIPE COUNTER
00137  M01S00136.1ss     +++| DR       BSS    2           CPU DRIVER RECALL ADDRESS
00138  M01S00137.1ss     +++|          LOC    *O
00139  M01S00138.1ss     +++|          LOC    60
00140  M01S00139.1ss     +++| FT       BSS    2           FIRST POINTER
00141  M01S00140.1ss     +++| IN       BSS    2           IN POINTER
00142  M01S00141.1ss     +++| OT       BSS    2           OUT POINTER
00143  M01S00142.1ss     +++| LM       BSS    2           LIMIT POINTER
00144  M01S00143.1ss     +++|          LOC    *O
00145  M01S00144.1ss     +++|          SPACE  4,10
00146  M01S00145.1ss     +++|*         EQUATES.
00147  M01S00146.1ss     +++|
00148  M01S00147.1ss     +++|
00149  M01S00148.1ss     +++| CH       EQU    0           DEFAULT CHANNEL NUMBER
00150  M01S00149.1ss     +++| DSTL     EQU    24          DETAIL (FSC) STATUS LENGTH
00151  M01S00150.1ss     +++| BRTL     EQU    77          BUSY RETRY LIMIT
00152  M01S00151.1ss     +++| EOPL     EQU    480D        END OF OP. TIME LIMIT
00153  M01S00152.1ss     +++| FTOL     EQU    360D        FUNCTION TIMEOUT LIMIT
00154  M01S00153.1ss     +++| GSTL     EQU    3           GENERAL STATUS LENGTH
00155  M01S00154.1ss     +++| IPLM     EQU    400D        IDLE PASS LIMIT BEFORE DROP PP
00156  M01S00155.1ss     +++| MSBC     EQU    43D         LENGTH OF MESSAGE IN PP BYTES
00157  M01S00156.1ss     +++| MSWC     EQU    9D          LENGTH OF MESSAGE IN CM WORDS
00158  M01S00157.1ss     +++| MXAD     EQU    3601        MAX ASSOCIATED DATA BYTE COUNT + 1
00159  M01S00158.1ss     +++| MXWC     EQU    256D        CM WORD COUNT OF MAX ASSOC DATA
00160  M01S00159.1ss     +++| PRUL     EQU    66D         LENGTH OF PRU WITH CONTROL WORDS
00161  M01S00160.1ss     +++|          SPACE  4,20
00162  M01S00161.1ss     +++|*         HARDWARE FUNCTION CODES.
00163  M01S00162.1ss     +++|
00164  M01S00163.1ss     +++|
00165  M01S00164.1ss     +++| RELF     EQU    1           RELEASE UNIT
00166  M01S00165.1ss     +++| CMRF     EQU    2           CONNECT FOR MESSAGE READ
00167  M01S00166.1ss     +++| CMWF     EQU    3           CONNECT FOR MESSAGE WRITE
00168  M01S00167.1ss     +++| REWF     EQU    10          REWIND
00169  M01S00168.1ss     +++| STPF     EQU    11          STOP TAPE MOTION
00170  M01S00169.1ss     +++| GSTF     EQU    12          GENERAL STATUS
00171  M01S00170.1ss     +++| RISF     EQU    14          INTERRUPT STATUS
00172  M01S00171.1ss     +++| CONF     EQU    20          CONNECT TO VIRTUAL TAPE UNIT
00173  M01S00172.1ss     +++| REDF     EQU    40          READ DATA
00174  M01S00173.1ss     +++| MRDF     EQU    43          MESSAGE READ
00175  M01S00174.1ss     +++| WRTF     EQU    50          WRITE DATA
00176  M01S00175.1ss     +++| WTMF     EQU    51          WRITE TAPE MARK
00177  M01S00176.1ss     +++| MWRF     EQU    53          MESSAGE WRITE
00178  M01S00177.1ss     +++| RUNF     EQU    110         REWIND/UNLOAD
00179  M01S00178.1ss     +++| CDEF     EQU    120         CHECK FOR DEVICE END
00180  M01S00179.1ss     +++| WUMF     EQU    140         WAIT UNIT MOUNTED
00181  M01S00180.1ss     +++| SWRF     EQU    250         SHORT WRITE
00182  M01S00181.1ss     +++| FSTF     EQU    312         FSC STATUS
00183  M01S00182.1ss     +++| MCLF     EQU    414         MASTER CLEAR
00184  M01S00183.1ss     +++| DSTF     EQU    704         DIAGNOSTIC STATUS
00185  M01S00184.1ss     +++|          SPACE  4,10
00186  M01S00185.1ss     +++|*         NOS 2 COMPATIBILITY.
00187  M01S00186.1ss     +++|
00188  M01S00187.1ss     +++|
00189  M01S00188.1ss     +++|          IF     -DEF,HNGM,1
00190  M01S00189.1ss     +++| HNGM     EQU    MXFM        HANG PPU MONITOR FUNCTION
00191  M01S00190.1ss     +++|          SPACE  4,10
00192  M01S00191.1ss     +++|          TITLE  LOCAL MACROS.
00193  M01S00192.1ss     +++|          SPACE  4,10
00194  M01S00193.1ss     +++|**        LOCAL MACROS.
00195  M01S00194.1ss     +++|
00196  M01S00195.1ss     +++|          SPACE  4,10
00197  M01S00196.1ss     +++|**        ERROR - PROCESS ERROR.
00198  M01S00197.1ss     +++|*
00199  M01S00198.1ss     +++|*         ERROR  EC
00200  M01S00199.1ss     +++|*
00201  M01S00200.1ss     +++|*         EC     ERROR CODE.
00202  M01S00201.1ss     +++|
00203  M01S00202.1ss     +++|
00204  M01S00203.1ss     +++|          PURGMAC ERROR
00205  M01S00204.1ss     +++|
00206  M01S00205.1ss     +++| ERROR    MACRO  E
00207  M01S00206.1ss     +++|          MACREF ERROR
00208  M01S00207.1ss     +++|          LDN    E
00209  M01S00208.1ss     +++|          RJM    ERR
00210  M01S00209.1ss     +++|          ENDM
00211  M01S00210.1ss     +++| FETA     SPACE  4,10
00212  M01S00211.1ss     +++|**        FETA - LOAD ABSOLUTE FET ADDRESS.
00213  M01S00212.1ss     +++|*
00214  M01S00213.1ss     +++|*         FETA   A
00215  M01S00214.1ss     +++|*
00216  M01S00215.1ss     +++|*         A = OFFSET INTO FET.
00217  M01S00216.1ss     +++|
00218  M01S00217.1ss     +++|
00219  M01S00218.1ss     +++|          PURGMAC FETA
00220  M01S00219.1ss     +++|
00221  M01S00220.1ss     +++| FETA     MACRO  A
00222  M01S00221.1ss     +++|          MACREF FETA
00223  M01S00222.1ss     +++|          LDD    FE
00224  M01S00223.1ss     +++|          SHN    14
00225  M01S00224.1ss     +++|          ADD    FE+1
00226  M01S00225.1ss     +++|          IFC    NE,$A$$,1
00227  M01S00226.1ss     +++|          ADN    A
00228  M01S00227.1ss     +++|          RJM    CFL
00229  M01S00228.1ss     +++|          ENDM
00230  M01S00229.1ss     +++| LDCA     SPACE  4,10
00231  M01S00230.1ss     +++|**        LDCA - LOAD CENTRAL ADDRESS.
00232  M01S00231.1ss     +++|*
00233  M01S00232.1ss     +++|*         LDCA   A
00234  M01S00233.1ss     +++|*
00235  M01S00234.1ss     +++|*         (A, A+1) = RELATIVE ADDRESS.
00236  M01S00235.1ss     +++|
00237  M01S00236.1ss     +++|
00238  M01S00237.1ss     +++|          PURGMAC LDCA
00239  M01S00238.1ss     +++|
00240  M01S00239.1ss     +++| LDCA     MACRO  A
00241  M01S00240.1ss     +++|          MACREF LDCA
00242  M01S00241.1ss     +++|          LDD    A
00243  M01S00242.1ss     +++|          LPN    77
00244  M01S00243.1ss     +++|          SHN    14
00245  M01S00244.1ss     +++|          ADD    A+1
00246  M01S00245.1ss     +++|          RJM    CFL         CHECK ADDRESS
00247  M01S00246.1ss     +++|          ENDM
00248  M01S00247.1ss     +++|          TITLE  MAIN ROUTINE.
00249  M01S00248.1ss     +++|**        SSD - MAIN ROUTINE.
00250  M01S00249.1ss     +++|
00251  M01S00250.1ss     +++|
00252  M01S00251.1ss     +++|          ORG    PPFW
00253  M01S00252.1ss     +++| SSD      RJM    PRS         PRESET
00254  M01S00253.1ss     +++|
00255  M01S00254.1ss     +++|*         PROCESS CYBER MESSAGES.
00256  M01S00255.1ss     +++|
00257  M01S00256.1ss     +++| SSD1     LDC    0           MESSAGE OUTPUT FET ADDRESS
00258  M01S00257.1ss     +++| SSDA     EQU    *-1
00259  M01S00258.1ss     +++|          STD    FE+1
00260  M01S00259.1ss     +++|          SHN    -14
00261  M01S00260.1ss     +++|          STD    FE
00262  M01S00261.1ss     +++|          RJM    WMS         WRITE ANY MESSAGES TO M862
00263  M01S00262.1ss     +++|
00264  M01S00263.1ss     +++|*         PROCESS M860 MESSAGES.
00265  M01S00264.1ss     +++|
00266  M01S00265.1ss     +++| SSD2     LDC    0           MESSAGE INPUT FET ADDRESS
00267  M01S00266.1ss     +++| SSDB     EQU    *-1
00268  M01S00267.1ss     +++|          STD    FE+1
00269  M01S00268.1ss     +++|          SHN    -14
00270  M01S00269.1ss     +++|          STD    FE
00271  M01S00270.1ss     +++|          RJM    CKM         CHECK FOR MESSAGE
00272  M01S00271.1ss     +++|
00273  M01S00272.1ss     +++|*         PROCESS DATA I/O.
00274  M01S00273.1ss     +++|
00275  M01S00274.1ss     +++|          LDCA   IR+3
00276  M01S00275.1ss     +++|          ADN    1
00277  M01S00276.1ss     +++|          CRD    CM          READ DATA FET ADDRESS
00278  M01S00277.1ss     +++|          LDD    CM+3
00279  M01S00278.1ss     +++|          STD    FE
00280  M01S00279.1ss     +++|          SHN    14
00281  M01S00280.1ss     +++|          ADD    CM+4
00282  M01S00281.1ss     +++|          ZJN    SSD4        IF NO DATA FET
00283  M01S00282.1ss     +++|          STD    FE+1
00284  M01S00283.1ss     +++|          RJM    CFL         CHECK FIELD LENGTH
00285  M01S00284.1ss     +++|          RJM    PDF         PROCESS DATA FET
00286  M01S00285.1ss     +++|
00287  M01S00286.1ss     +++|*         CHECK FOR ACTIVITY.
00288  M01S00287.1ss     +++|
00289  M01S00288.1ss     +++| SSD4     LDD    MW
00290  M01S00289.1ss     +++|          ZJN    SSD6        IF NO ACTIVITY
00291  M01S00290.1ss     +++|          LDC    IPLM
00292  M01S00291.1ss     +++|          STD    IC          INITIALIZE IDLE PASS LIMIT
00293  M01S00292.1ss     +++| SSD5     LJM    SSD1        LOOK FOR WORK TO DO
00294  M01S00293.1ss     +++|
00295  M01S00294.1ss     +++| SSD6     SOD    IC
00296  M01S00295.1ss     +++|          ZJN    SSD7        IF IDLE PASS LIMIT
00297  M01S00296.1ss     +++|          PAUSE
00298  M01S00297.1ss     +++|          LDD    CM+1
00299  M01S00298.1ss     +++|          NJN    DPP         IF ERROR FLAG
00300  M01S00299.1ss     +++|          DELAY
00301  M01S00300.1ss     +++|          UJN    SSD5        LOOK FOR WORK
00302  M01S00301.1ss     +++|
00303  M01S00302.1ss     +++| SSD7     LDN    ZERL
00304  M01S00303.1ss     +++|          CRD    CM
00305  M01S00304.1ss     +++|          AOD    CM+4
00306  M01S00305.1ss     +++|          LDCA   DR
00307  M01S00306.1ss     +++|          CWD    CM          ACTIVATE CPU DRIVER
00308  M01S00307.1ss     +++|
00309  M01S00308.1ss     +++| DPP      LDCA   IR+3
00310  M01S00309.1ss     +++|          CRD    CM          READ AVTIVITY WORD
00311  M01S00310.1ss     +++|          LDD    CM+4
00312  M01S00311.1ss     +++|          SCN    1           CLEAR PPU ACTIVE
00313  M01S00312.1ss     +++|          STD    CM+4
00314  M01S00313.1ss     +++|          LDCA   IR+3
00315  M01S00314.1ss     +++|          CWD    CM
00316  M01S00315.1ss     +++| DPP1     MONITOR DPPM
00317  M01S00316.1ss     +++|          LJM    PPR         EXIT TO PPR
00318  M01S00317.1ss     +++| ERR      SPACE  4,10
00319  M01S00318.1ss     +++|**        ERR - PROCESS ERROR.
00320  M01S00319.1ss     +++|*
00321  M01S00320.1ss     +++|*         ENTRY  (A) = ERROR CODE.
00322  M01S00321.1ss     +++|*
00323  M01S00322.1ss     +++|*         EXIT   TO *DPP*.
00324  M01S00323.1ss     +++|*
00325  M01S00324.1ss     +++|*         CALLS  MCL, SCB.
00326  M01S00325.1ss     +++|*
00327  M01S00326.1ss     +++|*         USES   EC.
00328  M01S00327.1ss     +++|
00329  M01S00328.1ss     +++|
00330  M01S00329.1ss     +++| ERR      CON    0           CALLERS ADDRESS FOR DEBUG
00331  M01S00330.1ss     +++|          STD    EC
00332  M01S00331.1ss     +++|          SBN    RCHWET
00333  M01S00332.1ss     +++|          MJN    ERR4        IF NOT HARDWARE ERROR TYPE
00334  M01S00333.1ss     +++|          SBN    RCMCLR-RCHWET
00335  M01S00334.1ss     +++|          MJN    ERR3        IF NO MASTERCLEAR REQUIRED
00336  M01S00335.1ss     +++|          RJM    MCL         MASTER CLEAR FSC
00337  M01S00336.1ss     +++| ERR3     LDN    ERRL
00338  M01S00337.1ss     +++|          STD    CM
00339  M01S00338.1ss     +++|          FETA   ERRW
00340  M01S00339.1ss     +++|          CWM    GSTS,CM     WRITE STATUS TO FET
00341  M01S00340.1ss     +++| ERR4     RJM    REL         RELEASE CHANNEL
00342  M01S00341.1ss     +++| TRCA     LDN    0
00343  M01S00342.1ss     +++|          NJN    ERR5        IF TRACE MODE
00344  M01S00343.1ss     +++|          LDD    EC
00345  M01S00344.1ss     +++|          SBN    RCHWET
00346  M01S00345.1ss     +++|          MJN    ERR6        IF NOT HARDWARE ERROR
00347  M01S00346.1ss     +++| ERR5     EXECUTE  2SS       LOG ERROR
00348  M01S00347.1ss     +++| ERR6     LDN    0           ERROR STATUS ONLY
00349  M01S00348.1ss     +++|          RJM    SCB         SET FET COMPLETE
00350  M01S00349.1ss     +++|          LDN    ZERL
00351  M01S00350.1ss     +++|          CRD    CM
00352  M01S00351.1ss     +++|          AOD    CM+4
00353  M01S00352.1ss     +++|          LDCA   DR
00354  M01S00353.1ss     +++|          CWD    CM          RECALL CPU DRIVER
00355  M01S00354.1ss     +++|          LJM    DPP         DROP PP
00356  M01S00355.1ss     +++|          TITLE  FUNCTION PROCESSORS.
00357  M01S00356.1ss     +++| PDF      SPACE  4,10
00358  M01S00357.1ss     +++|**        PDF - PROCESS DATA FET.
00359  M01S00358.1ss     +++|*
00360  M01S00359.1ss     +++|*         ENTRY  (FE - FE+1) = FET ADDRESS.
00361  M01S00360.1ss     +++|*
00362  M01S00361.1ss     +++|*         EXIT   DATA FET REQUEST PROCESSED.
00363  M01S00362.1ss     +++|*
00364  M01S00363.1ss     +++|*         CALLS  IBP, RDA, RUL, WDA.
00365  M01S00364.1ss     +++|*
00366  M01S00365.1ss     +++|*         USES   T1, CM - CM+4, CN - CN+4, ES, EQ, CH, PC, UN.
00367  M01S00366.1ss     +++|
00368  M01S00367.1ss     +++|
00369  M01S00368.1ss     +++| PDF      SUBR               ENTRY     EXIT
00370  M01S00369.1ss     +++|          FETA
00371  M01S00370.1ss     +++|          CRD    CM          READ REQUEST WORD
00372  M01S00371.1ss     +++|          ADN    4
00373  M01S00372.1ss     +++|          CRD    CN          READ LIMIT WORD
00374  M01S00373.1ss     +++|          LDD    CM+4
00375  M01S00374.1ss     +++|          SHN    21-0
00376  M01S00375.1ss     +++|          MJN    PDFX        IF NO FUNCTION
00377  M01S00376.1ss     +++|          SHN    22-21
00378  M01S00377.1ss     +++|          LPC    777
00379  M01S00378.1ss     +++|          STD    CM+4
00380  M01S00379.1ss     +++|          LDC    TFCN        TABLE OF LEGAL FUNCTIONS
00381  M01S00380.1ss     +++|          STD    T1
00382  M01S00381.1ss     +++| PDF1     LDI    T1
00383  M01S00382.1ss     +++|          NJN    PDF2        IF NOT END OF TABLE
00384  M01S00383.1ss     +++|          ERROR  RCILLF      ILLEGAL FUNCTION
00385  M01S00384.1ss     +++|
00386  M01S00385.1ss     +++| PDF2     LMD    CM+4
00387  M01S00386.1ss     +++|          ZJN    PDF3        IF FUNCTION FOUND
00388  M01S00387.1ss     +++|          LDN    2
00389  M01S00388.1ss     +++|          RAD    T1          ADVANCE TABLE ENTRY
00390  M01S00389.1ss     +++|          UJN    PDF1        CHECK NEXT ENTRY
00391  M01S00390.1ss     +++|
00392  M01S00391.1ss     +++| PDF3     LDM    1,T1        PROCESSOR ADDRESS
00393  M01S00392.1ss     +++|          STM    PDFA
00394  M01S00393.1ss     +++|          LDD    CN
00395  M01S00394.1ss     +++|          STD    UN          SET UNIT NUMBER
00396  M01S00395.1ss     +++|          SBN    17+1
00397  M01S00396.1ss     +++|          MJN    PDF4        IF LEGAL UNIT NUMBER
00398  M01S00397.1ss     +++|          ERROR  RCILLU      ILLEGAL UNIT NUMBER
00399  M01S00398.1ss     +++|
00400  M01S00399.1ss     +++| PDF4     RJM    IBP         INITIALIZE BUFFER POINTERS
00401  M01S00400.1ss     +++|          RJM    **          PROCESS FUNCTION
00402  M01S00401.1ss     +++| PDFA     EQU    *-1
00403  M01S00402.1ss     +++|          LJM    PDFX        RETURN
00404  M01S00403.1ss     +++| TFCN     SPACE  4,10
00405  M01S00404.1ss     +++|**        TFCN - TABLE OF LEGAL FUNCTIONS AND PROCESSORS.
00406  M01S00405.1ss     +++|*
00407  M01S00406.1ss     +++|*T,TFCN   12/ FUNCTION CODE ,12/PROC. ADDRESS
Figure TFCN

0111223PROC. ADDRESS FUNCTION CODE

00408  M01S00407.1ss     +++|
00409  M01S00408.1ss     +++|
00410  M01S00409.1ss     +++| TFCN     BSS    0           TABLE OF LEGAL FUNCTION REQUESTS
00411  M01S00410.1ss     +++|          CON    FCRUN,RUN   REWIND/UNLOAD
00412  M01S00411.1ss     +++|          CON    FCCWR,RDA   CONTROL WORD READ DATA
00413  M01S00412.1ss     +++|          CON    FCCWW,WDA   CONTROL WORD WRITE DATA
00414  M01S00413.1ss     +++|          CON    0           END OF TABLE
00415  M01S00414.1ss     +++| RDA      SPACE  4,10
00416  M01S00415.1ss     +++|**        RDA - READ DATA IN STRIPE FORMAT.
00417  M01S00416.1ss     +++|*
00418  M01S00417.1ss     +++|*         ENTRY  FET INITIALIZED.
00419  M01S00418.1ss     +++|*
00420  M01S00419.1ss     +++|*         EXIT   EOI SET IN FET, ERROR OTHERWISE.
00421  M01S00420.1ss     +++|*
00422  M01S00421.1ss     +++|*         CALLS  CIB, CON, DV5, FCN, REL, SCB, ST, WBB.
00423  M01S00422.1ss     +++|*
00424  M01S00423.1ss     +++|*         USES   T0, T1, CM - CM+4, AC, BC, PC, RC, WC.
00425  M01S00424.1ss     +++|
00426  M01S00425.1ss     +++|
00427  M01S00426.1ss     +++| RDA      SUBR               ENTRY/EXIT
00428  M01S00427.1ss     +++| TRCB     LDN    0
00429  M01S00428.1ss     +++|          ZJN    RDA0        IF NOT TRACE MODE
00430  M01S00429.1ss     +++|          LDC    =C*RDA.*+CPON
00431  M01S00430.1ss     +++|          RJM    DFM
00432  M01S00431.1ss     +++| RDA0     LDN    0
00433  M01S00432.1ss     +++|          STD    SC          CLEAR STRIPE COUNTER
00434  M01S00433.1ss     +++|          STD    PC          CLEAR PRU COUNT
00435  M01S00434.1ss     +++|          STM    PBUF        INITIALIZE FIRST CONTROL WORD
00436  M01S00435.1ss     +++|          STM    PBUF+2
00437  M01S00436.1ss     +++|          STM    PBUF+3
00438  M01S00437.1ss     +++|          LDD    HN
00439  M01S00438.1ss     +++|          STM    PBUF+1
00440  M01S00439.1ss     +++|          LDN    ZERL        INITIALIZE SECOND CONTROL WORD
00441  M01S00440.1ss     +++|          CRM    PBUF+PRUL*5-5,ON
00442  M01S00441.1ss     +++|          RJM    CON         CONNECT UNIT
00443  M01S00442.1ss     +++| RDA1     RJM    CIB         CHECK INPUT BUFFER
00444  M01S00443.1ss     +++|          ADC    -PRUL*PRUPST
00445  M01S00444.1ss     +++|          PJN    RDA1.1      IF ROOM FOR FULL STRIPE
00446  M01S00445.1ss     +++|          LDN    0           NO READ IN PROGRESS
00447  M01S00446.1ss     +++|          RJM    RCL         RECALL CPU AND PAUSE
00448  M01S00447.1ss     +++|          UJN    RDA1        CHECK AGAIN
00449  M01S00448.1ss     +++|
00450  M01S00449.1ss     +++| RDA1.1   LDN    REDF
00451  M01S00450.1ss     +++|          RJM    FCN         READ FUNCTION
00452  M01S00451.1ss     +++|          ACN    CH
00453  M01S00452.1ss     +++|          LDC    HDRL*5
00454  M01S00453.1ss     +++|          STD    BC
00455  M01S00454.1ss     +++|          IAM    HBUF,CH     INPUT HEADER
00456  M01S00455.1ss     +++|          NJN    RDA2        IF NOT FULL BLOCK
00457  M01S00456.1ss     +++|          LDN    HDRL
00458  M01S00457.1ss     +++|          STD    T1
00459  M01S00458.1ss     +++|          FETA   HDRW
00460  M01S00459.1ss     +++|          CWM    HBUF,T1     WRITE HEADER TO CM
00461  M01S00460.1ss     +++|          LDN    BRTL
00462  M01S00461.1ss     +++|          STM    CBSA        INITIALIZE RETRY COUNT
00463  M01S00462.1ss     +++|          LJM    RDA7        READ DATA
00464  M01S00463.1ss     +++|
00465  M01S00464.1ss     +++| RDA2     STD    WC          SAVE REMAINDER
00466  M01S00465.1ss     +++|          DCN    CH+40
00467  M01S00466.1ss     +++|          LDN    GSTF
00468  M01S00467.1ss     +++|          RJM    STS         WAIT END OF OPERATION
00469  M01S00468.1ss     +++|          SHN    21-13
00470  M01S00469.1ss     +++|          PJN    RDA4        IF NO ALERT
00471  M01S00470.1ss     +++|          LDM    STEC
00472  M01S00471.1ss     +++|          LPC    -2000B
00473  M01S00472.1ss     +++|          NJN    RDA3        IF EC .NE. 0 OR PARITY ERROR
00474  M01S00473.1ss     +++|          LDM    FSTS+4
00475  M01S00474.1ss     +++|          SHN    21-1
00476  M01S00475.1ss     +++|          PJN    RDA3        IF NOT TAPE BOTTOM RIGHT
00477  M01S00476.1ss     +++|          ERROR  RCENDV
00478  M01S00477.1ss     +++|
00479  M01S00478.1ss     +++| RDA3     RJM    CBS         CHECK BUSY STATUS
00480  M01S00479.1ss     +++|          NJN    RDA3.1      IF NOT TO RETRY
00481  M01S00480.1ss     +++|          LJM    RDA1        RETRY READ
00482  M01S00481.1ss     +++|
00483  M01S00482.1ss     +++| RDA3.1   ERROR  RCSTER      STATUS ERROR
00484  M01S00483.1ss     +++|
00485  M01S00484.1ss     +++| RDA4     LDD    BC
00486  M01S00485.1ss     +++|          LMD    WC
00487  M01S00486.1ss     +++|          NJN    RDA5        IF NOT EMPTY BLOCK
00488  M01S00487.1ss     +++|          LDD    ST
00489  M01S00488.1ss     +++|          SHN    21-4
00490  M01S00489.1ss     +++|          MJN    RDA6        IF EOI
00491  M01S00490.1ss     +++|          LDN    REDF
00492  M01S00491.1ss     +++|          RJM    FCN         READ FUNCTION
00493  M01S00492.1ss     +++|          ACN    CH
00494  M01S00493.1ss     +++|          LDN    1
00495  M01S00494.1ss     +++|          IAM    CM,CH
00496  M01S00495.1ss     +++|          DCN    CH+40
00497  M01S00496.1ss     +++|          LDN    GSTF
00498  M01S00497.1ss     +++|          RJM    STS         WAIT END OF OPERATION
00499  M01S00498.1ss     +++|          SHN    21-4
00500  M01S00499.1ss     +++|          MJN    RDA6        IF EOI
00501  M01S00500.1ss     +++| RDA5     ERROR  RCCHIN      CHANNEL HANG ERROR
00502  M01S00501.1ss     +++|
00503  M01S00502.1ss     +++| RDA6     LDD    TH
00504  M01S00503.1ss     +++|          RJM    SCB         SET COMPLETE WITH EOI
00505  M01S00504.1ss     +++|          LJM    RDAX        RETURN
00506  M01S00505.1ss     +++|
00507  M01S00506.1ss     +++| RDA7     BSS    0
00508  M01S00507.1ss     +++| RDA8     LDN    0
00509  M01S00508.1ss     +++|          STD    RC          CLEAR RECALL COUNT
00510  M01S00509.1ss     +++|          LDC    500+2
00511  M01S00510.1ss     +++|          STD    BC
00512  M01S00511.1ss     +++|          IAM    PBUF+4,CH
00513  M01S00512.1ss     +++|          ZJN    RDA9        IF FULL PRU
00514  M01S00513.1ss     +++|          LJM    RDA2        CHECK FOR EOI
00515  M01S00514.1ss     +++|
00516  M01S00515.1ss     +++| RDA9     LDM    PBUF+4
00517  M01S00516.1ss     +++|          ADC    -501
00518  M01S00517.1ss     +++|          MJN    RDA11       IF BYTE COUNT OK
00519  M01S00518.1ss     +++| RDA10    ERROR  RCCWER      CONTROL WORD ERROR
00520  M01S00519.1ss     +++|
00521  M01S00520.1ss     +++| RDA11    ADC    501
00522  M01S00521.1ss     +++|          RJM    DV5
00523  M01S00522.1ss     +++|          ADN    2           ADD CONTROL WORDS
00524  M01S00523.1ss     +++|          STD    WC
00525  M01S00524.1ss     +++|          SBN    2
00526  M01S00525.1ss     +++|          STD    T0
00527  M01S00526.1ss     +++|          SHN    2           *4
00528  M01S00527.1ss     +++|          ADD    T0          *5
00529  M01S00528.1ss     +++|          LMM    PBUF+4
00530  M01S00529.1ss     +++|          NJN    RDA10       IF NOT EXACT MULTIPLE OF 5
00531  M01S00530.1ss     +++|          RJM    WBB         WRITE PRU
00532  M01S00531.1ss     +++|          AOD    PC
00533  M01S00532.1ss     +++|          SBN    PRUPST
00534  M01S00533.1ss     +++|          ZJN    RDA12       IF FULL STRIPE
00535  M01S00534.1ss     +++|          ADN    PRUPST/2
00536  M01S00535.1ss     +++|          NJN    RDA11.1     IF NOT 1/2 STRIPE READ
00537  M01S00536.1ss     +++|          LDN    DRCM
00538  M01S00537.1ss     +++|          STD    CM
00539  M01S00538.1ss     +++|          LDD    OA
00540  M01S00539.1ss     +++|          CWD    CM          RECALL CPU DRIVER
00541  M01S00540.1ss     +++| RDA11.1  LJM    RDA7        READ NEXT PRU
00542  M01S00541.1ss     +++|
00543  M01S00542.1ss     +++| RDA12    STD    PC          CLEAR PRU COUNT
00544  M01S00543.1ss     +++|          LDN    TLRL*5
00545  M01S00544.1ss     +++|          STD    BC
00546  M01S00545.1ss     +++|          IAM    TBUF,CH
00547  M01S00546.1ss     +++|          ZJN    RDA13       IF FULL TRAILER
00548  M01S00547.1ss     +++|          LJM    RDA2        CHECK FOR EOI
00549  M01S00548.1ss     +++|
00550  M01S00549.1ss     +++| RDA13    DCN    CH+40
00551  M01S00550.1ss     +++|          LDN    GSTF
00552  M01S00551.1ss     +++|          RJM    STS         WAIT END OF OP
00553  M01S00552.1ss     +++|          SHN    21-13
00554  M01S00553.1ss     +++|          PJN    RDA14       IF NO ALERT
00555  M01S00554.1ss     +++|          ERROR  RCSTER      STATUS ERROR
00556  M01S00555.1ss     +++|
00557  M01S00556.1ss     +++| RDA14    LDM    TBUF
00558  M01S00557.1ss     +++|          SHN    21-13
00559  M01S00558.1ss     +++|          MJN    RDA15       IF TRAILER
00560  M01S00559.1ss     +++|          ERROR  RCHDER
00561  M01S00560.1ss     +++|
00562  M01S00561.1ss     +++| RDA15    SHN    13-12
00563  M01S00562.1ss     +++|          PJN    RDA16       IF NOT END OF VOLUME
00564  M01S00563.1ss     +++|          ERROR  RCENDV      END OF VOLUME RETURN
00565  M01S00564.1ss     +++|
00566  M01S00565.1ss     +++| RDA16    SHN    12+1
00567  M01S00566.1ss     +++|          LPC    3777        CLEAR TRAILER FLAG
00568  M01S00567.1ss     +++|          STM    TBUF
00569  M01S00568.1ss     +++|          LDN    TLRL
00570  M01S00569.1ss     +++|          STD    T1
00571  M01S00570.1ss     +++|          FETA   HDRW
00572  M01S00571.1ss     +++|          CWM    TBUF,T1
00573  M01S00572.1ss     +++|          LDN    DRCM
00574  M01S00573.1ss     +++|          STD    CM
00575  M01S00574.1ss     +++|          LDD    OA
00576  M01S00575.1ss     +++|          CWD    CM          RECALL CPU
00577  M01S00576.1ss     +++|          AOD    SC
00578  M01S00577.1ss     +++|          SBN    STRPAU
00579  M01S00578.1ss     +++|          NJN    RDA17       IF NOT FULL AU
00580  M01S00579.1ss     +++|          STD    SC
00581  M01S00580.1ss     +++|          AOD    RC
00582  M01S00581.1ss     +++|*         LDN    1           FLAG READ
00583  M01S00582.1ss     +++|          RJM    RCL         PAUSE AND CHECK ERROR FLAG
00584  M01S00583.1ss     +++| RDA17    FETA   4
00585  M01S00584.1ss     +++|          CRD    CM          READ LIMIT WORD
00586  M01S00585.1ss     +++|          LDD    CM+3
00587  M01S00586.1ss     +++|          SHN    -6
00588  M01S00587.1ss     +++|          ZJN    RDA18       IF TERMINATE FLAG NOT SET
00589  M01S00588.1ss     +++|          ERROR  RCTERF      TERMINATE FLAG RETURN
00590  M01S00589.1ss     +++|
00591  M01S00590.1ss     +++| RDA18    LDD    SC
00592  M01S00591.1ss     +++|          NJN    RDA19       IF NOT END OF AU
00593  M01S00592.1ss     +++|          RJM    CMG         CHECK FOR MESSAGES
00594  M01S00593.1ss     +++| RDA19    LJM    RDA1        CONTINUE READ
00595  M01S00594.1ss     +++| RMS      SPACE  4,10
00596  M01S00595.1ss     +++|**        RMS - READ MESSAGE AND ASSOCIATED DATA.
00597  M01S00596.1ss     +++|*
00598  M01S00597.1ss     +++|*         ENTRY  MESSAGE WAITING INTERRUPT FROM M862.
00599  M01S00598.1ss     +++|*                CHANNEL RESERVED.
00600  M01S00599.1ss     +++|*
00601  M01S00600.1ss     +++|*         EXIT   (A) .NE. 0, IF NO BUFFER SPACE FOR MESSAGE.
00602  M01S00601.1ss     +++|*                (A) .EQ. 0, IF MESSAGE READ.
00603  M01S00602.1ss     +++|*
00604  M01S00603.1ss     +++|*         CALLS  CIB, DV3, DV5, FCN, IBP, REL, STS, WMB.
00605  M01S00604.1ss     +++|*
00606  M01S00605.1ss     +++|*         USES   BC, CM - CM+4, FE, FE+1, WC, T1, T2, T4, T5, T6, T7.
00607  M01S00606.1ss     +++|
00608  M01S00607.1ss     +++|
00609  M01S00608.1ss     +++| RMS0     RJM    REL         RELEASE CHANNEL
00610  M01S00609.1ss     +++|          LDN    ZERL
00611  M01S00610.1ss     +++|          CRD    CM
00612  M01S00611.1ss     +++|          LDD    IN
00613  M01S00612.1ss     +++|          STD    CM+3
00614  M01S00613.1ss     +++|          LDD    IN+1
00615  M01S00614.1ss     +++|          STD    CM+4
00616  M01S00615.1ss     +++|          FETA   2
00617  M01S00616.1ss     +++|          CWD    CM          UPDATE IN POINTER IN FET
00618  M01S00617.1ss     +++|          LDN    ZERL
00619  M01S00618.1ss     +++|          CRD    CM
00620  M01S00619.1ss     +++|          AOD    CM+4
00621  M01S00620.1ss     +++|          LDCA   DR
00622  M01S00621.1ss     +++|          CWD    CM          RECALL CPU DRIVER
00623  M01S00622.1ss     +++|          MONITOR DRCM
00624  M01S00623.1ss     +++|*         LDN    0           SET MESSAGE READ
00625  M01S00624.1ss     +++|
00626  M01S00625.1ss     +++| RMS      SUBR               ENTRY/EXIT
00627  M01S00626.1ss     +++|          RJM    IBP         INITIALIZE BUFFER PARAMETERS
00628  M01S00627.1ss     +++|          RJM    CIB         CHECK INPUT BUFFER
00629  M01S00628.1ss     +++|          ADC    -MSWC-MXWC
00630  M01S00629.1ss     +++|          PJN    RMS1        IF ROOM IN BUFFER
00631  M01S00630.1ss     +++|          RJM    REL         RELEASE CHANNEL
00632  M01S00631.1ss     +++|          LDN    ZERL
00633  M01S00632.1ss     +++|          CRD    CM
00634  M01S00633.1ss     +++|          AOD    CM+4
00635  M01S00634.1ss     +++|          LDCA   DR
00636  M01S00635.1ss     +++|          CWD    CM          RECALL CPU DRIVER
00637  M01S00636.1ss     +++|          MONITOR DRCM       RECALL CPU
00638  M01S00637.1ss     +++|          LDN    1           SET MESSAGE WAITING FOR BUFFER
00639  M01S00638.1ss     +++|          UJN    RMSX        RETURN
00640  M01S00639.1ss     +++|
00641  M01S00640.1ss     +++| RMS1     LDN    CMRF
00642  M01S00641.1ss     +++|          RJM    CMD         CONNECT TO MESSAGE READ DEVICE
00643  M01S00642.1ss     +++|          LDN    MRDF
00644  M01S00643.1ss     +++|          RJM    FCN         ISSUE MESSAGE READ FUNCTION
00645  M01S00644.1ss     +++|          LDN    MSBC
00646  M01S00645.1ss     +++|          ACN    CH
00647  M01S00646.1ss     +++| RMS2     IJM    RMS3,CH     IF ERROR
00648  M01S00647.1ss     +++|          EJM    RMS2,CH     IF DATA NOT AVAILABLE
00649  M01S00648.1ss     +++| RMS3     IAM    BUFR,CH     READ MESSAGE
00650  M01S00649.1ss     +++|          DCN    CH+40
00651  M01S00650.1ss     +++|          STD    BC          SAVE REMAINDER
00652  M01S00651.1ss     +++|          LMN    MSBC
00653  M01S00652.1ss     +++|          NJN    RMS3.1      IF NOT EMPTY MESSAGE
00654  M01S00653.1ss     +++|          LJM    RMS0        EXIT
00655  M01S00654.1ss     +++|
00656  M01S00655.1ss     +++| RMS3.1   LDN    GSTF
00657  M01S00656.1ss     +++|          RJM    STS         WAIT END OF OPERATION
00658  M01S00657.1ss     +++|          SHN    21-13
00659  M01S00658.1ss     +++|          PJN    RMS4        IF NO ERROR
00660  M01S00659.1ss     +++|          ERROR  RCSTER      STATUS ERROR
00661  M01S00660.1ss     +++|
00662  M01S00661.1ss     +++| RMS4     LDD    BC
00663  M01S00662.1ss     +++|          ZJN    RMS5        IF FULL BLOCK
00664  M01S00663.1ss     +++|          ERROR  RCCHIN      CHANNEL HANG
00665  M01S00664.1ss     +++|
00666  M01S00665.1ss     +++| RMS5     LDN    MSWC
00667  M01S00666.1ss     +++|          STD    WC
00668  M01S00667.1ss     +++|          RJM    WMB         WRITE MESSAGE TO BUFFER
00669  M01S00668.1ss     +++| TRCC     LDN    0
00670  M01S00669.1ss     +++|          ZJN    RMS5.5      IF NOT TRACE MODE
00671  M01S00670.1ss     +++|          LDC    2RIN
00672  M01S00671.1ss     +++|          RJM    MDF         MESSAGE TO DAYFILE
00673  M01S00672.1ss     +++|          RJM    GMT         GET MESSAGE TYPE
00674  M01S00673.1ss     +++|          LMC    0#81
00675  M01S00674.1ss     +++|          NJN    RMS5.5      IF NOT REWIND UNLOAD MSG
00676  M01S00675.1ss     +++|          RJM    RUM         REWIND UNLOAD MESSAGES
00677  M01S00676.1ss     +++| RMS5.5   LDM    BUFR+2
00678  M01S00677.1ss     +++|          SHN    -4
00679  M01S00678.1ss     +++|          STD    T2
00680  M01S00679.1ss     +++|          LDM    BUFR+1
00681  M01S00680.1ss     +++|          LPC    377
00682  M01S00681.1ss     +++|          SHN    10
00683  M01S00682.1ss     +++|          RAD    T2
00684  M01S00683.1ss     +++|          NJN    RMS7        IF ASSOCIATED DATA BLOCK PRESENT
00685  M01S00684.1ss     +++| RMS6     LJM    RMS0        UPDATE FET
00686  M01S00685.1ss     +++|
00687  M01S00686.1ss     +++| RMS7     ADC    -MXAD
00688  M01S00687.1ss     +++|          PJN    RMS8        IF ASSOC DATA GOES TO AUX BUFFER
00689  M01S00688.1ss     +++|          LDN    0
00690  M01S00689.1ss     +++|          STD    T1
00691  M01S00690.1ss     +++|          STD    T4          CLEAR FULL BLOCK COUNT
00692  M01S00691.1ss     +++|          STD    T6          CLEAR AUX BUFFER ADDRESS
00693  M01S00692.1ss     +++|          STD    T7
00694  M01S00693.1ss     +++|          LJM    RMS10
00695  M01S00694.1ss     +++|
00696  M01S00695.1ss     +++| RMS8     ADC    MXAD
00697  M01S00696.1ss     +++|          SHN    -14
00698  M01S00697.1ss     +++|          STD    T1
00699  M01S00698.1ss     +++|          FETA   4
00700  M01S00699.1ss     +++|          CRD    CM          READ LIMIT WORD
00701  M01S00700.1ss     +++|          LDD    CM+1
00702  M01S00701.1ss     +++|          LPN    77
00703  M01S00702.1ss     +++|          STD    T6          SET AUX BUFFER
00704  M01S00703.1ss     +++|          SHN    14
00705  M01S00704.1ss     +++|          ADD    CM+2
00706  M01S00705.1ss     +++|          STD    T7
00707  M01S00706.1ss     +++|          NJN    RMS9        IF AUX BUFFER PRESENT
00708  M01S00707.1ss     +++| RMS8.1   LDN    REDF
00709  M01S00708.1ss     +++|          RJM    FCN         ISSUE READ FUNCTION
00710  M01S00709.1ss     +++|          ACN    CH
00711  M01S00710.1ss     +++|          IAN    CH
00712  M01S00711.1ss     +++|          RJM    FIN         FLUSH INPUT
00713  M01S00712.1ss     +++|          RJM    GMT         GET MESSAGE TYPE
00714  M01S00713.1ss     +++|          LMN    0#04
00715  M01S00714.1ss     +++|          NJN    RMS8.2      IF NOT READ CART. LABEL
00716  M01S00715.1ss     +++|          LJM    RMS0        PUT MESSAGE IN BUFFER
00717  M01S00716.1ss     +++|
00718  M01S00717.1ss     +++| RMS8.2   ERROR  RCDLER      DATA LENGTH ERROR
00719  M01S00718.1ss     +++|
00720  M01S00719.1ss     +++| RMS9     RJM    CFL         CHECK ADDRESS
00721  M01S00720.1ss     +++|          RJM    GMT         GET MESSAGE TYPE
00722  M01S00721.1ss     +++|          LMN    0#11
00723  M01S00722.1ss     +++|          NJN    RMS8.1      IF NOT READ WITH ERROR MESSAGE
00724  M01S00723.1ss     +++|*         LDN    0
00725  M01S00724.1ss     +++|          STD    T4          CLEAR FULL BLOCK COUNT
00726  M01S00725.1ss     +++| RMS10    LDD    T1
00727  M01S00726.1ss     +++|          SHN    14
00728  M01S00727.1ss     +++|          ADD    T2
00729  M01S00728.1ss     +++|          ADC    -500*3/2
00730  M01S00729.1ss     +++|          MJN    RMS11       IF NO MORE FULL BLOCKS
00731  M01S00730.1ss     +++|          STD    T2
00732  M01S00731.1ss     +++|          SHN    -14
00733  M01S00732.1ss     +++|          STD    T1
00734  M01S00733.1ss     +++|          AOD    T4          INCREMENT FULL BLOCK COUNT
00735  M01S00734.1ss     +++|          UJN    RMS10       CHECK FOR MORE FULL BLOCKS
00736  M01S00735.1ss     +++|
00737  M01S00736.1ss     +++| RMS11    LDD    T2
00738  M01S00737.1ss     +++|          STD    BC
00739  M01S00738.1ss     +++|          ZJN    RMS12       IF NO PARTIAL BLOCK
00740  M01S00739.1ss     +++|          SHN    1           *2
00741  M01S00740.1ss     +++|          RJM    DV3         DIVIDE BY 3
00742  M01S00741.1ss     +++|          STD    BC          SET PP BYTE COUNT
00743  M01S00742.1ss     +++|          RJM    DV5         DIVIDE BY 5 = CM WORD COUNT
00744  M01S00743.1ss     +++|          STD    T5
00745  M01S00744.1ss     +++| RMS12    LDN    CMRF
00746  M01S00745.1ss     +++|          RJM    CMD         RESERVE MESSAGE EVICE
00747  M01S00746.1ss     +++|          LDN    REDF
00748  M01S00747.1ss     +++|          RJM    FCN         FUNCTION FOR READ
00749  M01S00748.1ss     +++|          ACN    CH
00750  M01S00749.1ss     +++|          LDD    T4
00751  M01S00750.1ss     +++|          NJN    RMS13       IF MORE FULL BLOCKS
00752  M01S00751.1ss     +++|          LJM    RMS19       PROCESS SHORT BLOCK
00753  M01S00752.1ss     +++|
00754  M01S00753.1ss     +++| RMS13    LDC    500
00755  M01S00754.1ss     +++|          IAM    BUFR,CH     READ FULL BLOCK
00756  M01S00755.1ss     +++|          ZJN    RMS16       IF FULL BLOCK
00757  M01S00756.1ss     +++| RMS14    DCN    CH+40
00758  M01S00757.1ss     +++|          LDN    GSTF
00759  M01S00758.1ss     +++|          RJM    STS         WAIT END OF OP
00760  M01S00759.1ss     +++|          SHN    21-13
00761  M01S00760.1ss     +++|          PJN    RMS15       IF NO ERROR
00762  M01S00761.1ss     +++|          ERROR  RCSTER      STATUS ERROR
00763  M01S00762.1ss     +++|
00764  M01S00763.1ss     +++| RMS15    ERROR  RCCHIN      CHANNEL HANG
00765  M01S00764.1ss     +++|
00766  M01S00765.1ss     +++| RMS16    LDD    T6
00767  M01S00766.1ss     +++|          ADD    T7
00768  M01S00767.1ss     +++|          NJN    RMS17       IF AUX BUFFER PRESENT
00769  M01S00768.1ss     +++|          LDD    HN
00770  M01S00769.1ss     +++|          STD    WC
00771  M01S00770.1ss     +++|          RJM    WMB         WRITE BLOCK TO CM
00772  M01S00771.1ss     +++|          UJN    RMS18       CHECK FOR NEXT BLOCK
00773  M01S00772.1ss     +++|
00774  M01S00773.1ss     +++| RMS17    LDCA   T6
00775  M01S00774.1ss     +++|          CWM    BUFR,HN     WRITE DATA TO AUX BUFFER
00776  M01S00775.1ss     +++|          LDD    HN
00777  M01S00776.1ss     +++|          RAD    T7
00778  M01S00777.1ss     +++|          SHN    -14
00779  M01S00778.1ss     +++|          RAD    T6
00780  M01S00779.1ss     +++| RMS18    SOD    T4
00781  M01S00780.1ss     +++|          ZJN    RMS19       IF NO MORE FULL BLOCKS
00782  M01S00781.1ss     +++|          LJM    RMS13       GET NEXT BLOCK
00783  M01S00782.1ss     +++|
00784  M01S00783.1ss     +++| RMS19    LDD    BC
00785  M01S00784.1ss     +++|          ZJN    RMS20       IF NO PARIIAL BLOCK
00786  M01S00785.1ss     +++|          IAM    BUFR,CH
00787  M01S00786.1ss     +++|          ZJN    RMS20       IF ALL DATA READ
00788  M01S00787.1ss     +++|          LJM    RMS14       CHECK STATUS
00789  M01S00788.1ss     +++|
00790  M01S00789.1ss     +++| RMS20    DCN    CH+40
00791  M01S00790.1ss     +++|          LDN    GSTF
00792  M01S00791.1ss     +++|          RJM    STS         WAIT END OF OPERATION
00793  M01S00792.1ss     +++|          SHN    21-13
00794  M01S00793.1ss     +++|          PJN    RMS21       IF NOT ALERT
00795  M01S00794.1ss     +++|          ERROR  RCSTER      STATUS ERROR RETURN
00796  M01S00795.1ss     +++|
00797  M01S00796.1ss     +++| RMS21    LDD    BC
00798  M01S00797.1ss     +++|          ZJN    RMS23       IF NO PARTIAL BLOCK
00799  M01S00798.1ss     +++|          LDD    T6
00800  M01S00799.1ss     +++|          ADD    T7
00801  M01S00800.1ss     +++|          NJN    RMS22       IF AUX BUFFER PRESENT
00802  M01S00801.1ss     +++|          LDD    T5
00803  M01S00802.1ss     +++|          STD    WC
00804  M01S00803.1ss     +++|          RJM    WMB         WRITE DATA TO BUFFER
00805  M01S00804.1ss     +++|          UJN    RMS23       UPDATE FET
00806  M01S00805.1ss     +++|
00807  M01S00806.1ss     +++| RMS22    LDCA   T6
00808  M01S00807.1ss     +++|          CWM    BUFR,T5     WRITE DATA TO AUX BUFFER
00809  M01S00808.1ss     +++| RMS23    LJM    RMS0        UPDATE FET
00810  M01S00809.1ss     +++| RUM      SPACE  4,10
00811  M01S00810.1ss     +++|**        RUM - REWIND UNLOAD MESSAGES
00812  M01S00811.1ss     +++|*
00813  M01S00812.1ss     +++|*         ENTRY  (BUFR) CONTAINS REWIND UNLOAD MESSAGE
00814  M01S00813.1ss     +++|*
00815  M01S00814.1ss     +++|*         EXIT   PHYSICAL AND LOGICAL STRIPES TO DAYFILE
00816  M01S00815.1ss     +++|*
00817  M01S00816.1ss     +++|*         CALLS  CHN, DFM.
00818  M01S00817.1ss     +++|*
00819  M01S00818.1ss     +++|*         USES   T0.
00820  M01S00819.1ss     +++|
00821  M01S00820.1ss     +++|
00822  M01S00821.1ss     +++| RUM      SUBR               ENTRY/EXIT
00823  M01S00822.1ss     +++|          LDM    BUFR+35
00824  M01S00823.1ss     +++|          SHN    -8D
00825  M01S00824.1ss     +++|          STD    T0
00826  M01S00825.1ss     +++|          LDM    BUFR+34
00827  M01S00826.1ss     +++|          SHN    4
00828  M01S00827.1ss     +++|          LMD    T0
00829  M01S00828.1ss     +++|          RJM    CHN         CONVERT PHYSICAL STRIPE
00830  M01S00829.1ss     +++|          LDC    2R P
00831  M01S00830.1ss     +++|          STM    RUMA
00832  M01S00831.1ss     +++|          LDC    RUMA+CPON
00833  M01S00832.1ss     +++|          RJM    DFM         ISSUE MESSAGE
00834  M01S00833.1ss     +++|          LDM    BUFR+36
00835  M01S00834.1ss     +++|          LPN    0#F
00836  M01S00835.1ss     +++|          SHN    14
00837  M01S00836.1ss     +++|          LMM    BUFR+37
00838  M01S00837.1ss     +++|          RJM    CHN         CONVEWT LOGICAL STRIPE
00839  M01S00838.1ss     +++|          LDC    2R L
00840  M01S00839.1ss     +++|          STM    RUMA
00841  M01S00840.1ss     +++|          LDC    RUMA+CPON
00842  M01S00841.1ss     +++|          RJM    DFM         ISSUE MSSAGE
00843  M01S00842.1ss     +++|          LJM    RUMX        RETURN
00844  M01S00843.1ss     +++|
00845  M01S00844.1ss     +++|
00846  M01S00845.1ss     +++| RUMA     DIS    ,* XS = 1234.*
00847  M01S00846.1ss     +++| CHN      SPACE  4,10
00848  M01S00847.1ss     +++|**        CHN - CONVERT HEX NUMBER
00849  M01S00848.1ss     +++|*
00850  M01S00849.1ss     +++|*         ENTRY  (A) = 16 BIT NUMBER
00851  M01S00850.1ss     +++|*
00852  M01S00851.1ss     +++|*         EXIT   (RUMA+3, RUMA+4) = DISPLAY CODE HEX NUMBER
00853  M01S00852.1ss     +++|*
00854  M01S00853.1ss     +++|*         CALLS  CTH.
00855  M01S00854.1ss     +++|*
00856  M01S00855.1ss     +++|*         USES   T1.
00857  M01S00856.1ss     +++|
00858  M01S00857.1ss     +++|
00859  M01S00858.1ss     +++| CHN      SUBR               ENTRY/EXIT
00860  M01S00859.1ss     +++|          STD    T1
00861  M01S00860.1ss     +++|          SHN    -14
00862  M01S00861.1ss     +++|          RJM    CTH         CONVERT 1ST DIGIT
00863  M01S00862.1ss     +++|          SHN    6
00864  M01S00863.1ss     +++|          STM    RUMA+3
00865  M01S00864.1ss     +++|          LDD    T1
00866  M01S00865.1ss     +++|          SHN    -8D
00867  M01S00866.1ss     +++|          RJM    CTH         CONVERT 2ND DIGIT
00868  M01S00867.1ss     +++|          RAM    RUMA+3
00869  M01S00868.1ss     +++|          LDD    T1
00870  M01S00869.1ss     +++|          SHN    -4
00871  M01S00870.1ss     +++|          RJM    CTH         CONVERT 3RD DIGIT
00872  M01S00871.1ss     +++|          SHN    6
00873  M01S00872.1ss     +++|          STM    RUMA+4
00874  M01S00873.1ss     +++|          LDD    T1
00875  M01S00874.1ss     +++|          RJM    CTH         CONVERT 4TH DIGIT
00876  M01S00875.1ss     +++|          RAM    RUMA+4
00877  M01S00876.1ss     +++|          UJN    CHNX        RETURN
00878  M01S00877.1ss     +++| RUN      SPACE  4,10
00879  M01S00878.1ss     +++|**        RUN - REWIND UNLOAD UNIT.
00880  M01S00879.1ss     +++|*
00881  M01S00880.1ss     +++|*         ENTRY  (UN) = UNIT NUMBER.
00882  M01S00881.1ss     +++|*
00883  M01S00882.1ss     +++|*         EXIT REWIND UNLOAD ISSUED.
00884  M01S00883.1ss     +++|*
00885  M01S00884.1ss     +++|*         CALLS  FCN, RES, SCB.
00886  M01S00885.1ss     +++|*
00887  M01S00886.1ss     +++|*         USES   CM - CM+4.
00888  M01S00887.1ss     +++|
00889  M01S00888.1ss     +++|
00890  M01S00889.1ss     +++| RUN      SUBR               ENTRY/EXIT
00891  M01S00890.1ss     +++| TRCD     LDN    0
00892  M01S00891.1ss     +++|          ZJN    RUN0.0      IF NOT TRACE MODE
00893  M01S00892.1ss     +++|          LDC    =C*RUN.*+CPON
00894  M01S00893.1ss     +++|          RJM    DFM
00895  M01S00894.1ss     +++| RUN0.0   RJM    RES         RESERVE CHANNEL
00896  M01S00895.1ss     +++|          LDN    CONF
00897  M01S00896.1ss     +++|          ADD    UN
00898  M01S00897.1ss     +++|          RJM    FCN         CONNECT UNIT
00899  M01S00898.1ss     +++|          LDN    GSTF
00900  M01S00899.1ss     +++|          RJM    STS         GET STATUS
00901  M01S00900.1ss     +++|          SHN    21-11
00902  M01S00901.1ss     +++|          MJN    RUN0        IF UNIT NOT CONNECTED
00903  M01S00902.1ss     +++|          LDC    RUNF
00904  M01S00903.1ss     +++|          RJM    FCN         ISSUE REWIND UNLOAD
00905  M01S00904.1ss     +++|          LDN    GSTF
00906  M01S00905.1ss     +++|          RJM    STS         GET STATUS
00907  M01S00906.1ss     +++|          SHN    21-13
00908  M01S00907.1ss     +++|          PJN    RUN1        IF NOT ALERT
00909  M01S00908.1ss     +++| RUN0     ERROR  RCSTER      STATUS ERROR
00910  M01S00909.1ss     +++|
00911  M01S00910.1ss     +++| RUN1     LDN    0
00912  M01S00911.1ss     +++|          RJM    SCB         SET FET COMPLETE
00913  M01S00912.1ss     +++| TRCE     LDN    0
00914  M01S00913.1ss     +++|          ZJN    RUN2        IF NOT TRACE MODE
00915  M01S00914.1ss     +++|          LDC    RTCL
00916  M01S00915.1ss     +++|          CRD    CM          READ MILLISECOND CLOCK
00917  M01S00916.1ss     +++|          LDN    0
00918  M01S00917.1ss     +++|          STD    CM          CLEAR SECOND COUNT
00919  M01S00918.1ss     +++|          STD    CM+1
00920  M01S00919.1ss     +++|          STD    CM+2        ONLY USE 24 BITS
00921  M01S00920.1ss     +++|          LDD    MA
00922  M01S00921.1ss     +++|          CWD    CM
00923  M01S00922.1ss     +++|          LDN    1
00924  M01S00923.1ss     +++|          STD    CM+1        ONLY 1 VALUE TO BE CONVERTED
00925  M01S00924.1ss     +++|          MONITOR RDCM       CONVERT TO F10.3
00926  M01S00925.1ss     +++|          LDD    MA
00927  M01S00926.1ss     +++|          CRM    RUNB,ON
00928  M01S00927.1ss     +++|          LDC    RUNA+CPON
00929  M01S00928.1ss     +++|          RJM    DFM         ISSUE DAYFILE MESSAGE
00930  M01S00929.1ss     +++| RUN2     LJM    RUNX
00931  M01S00930.1ss     +++|
00932  M01S00931.1ss     +++|
00933  M01S00932.1ss     +++| RUNA     DATA   12HRUNL
00934  M01S00933.1ss     +++| RUNB     BSS    6           MILLISECOND CLOCK
00935  M01S00934.1ss     +++| WDA      SPACE  4,10
00936  M01S00935.1ss     +++|**        WDA - WRITE DATA IN STRIPE FORMAT.
00937  M01S00936.1ss     +++|*
00938  M01S00937.1ss     +++|*         ENTRY  (UN) = UNIT NUMBER.
00939  M01S00938.1ss     +++|*
00940  M01S00939.1ss     +++|*         EXIT   AT EOI, ERROR OTHERWISE.
00941  M01S00940.1ss     +++|*
00942  M01S00941.1ss     +++|*         CALLS  CFS, DV5, FCN, RBB, REL, SCB, STS.
00943  M01S00942.1ss     +++|*
00944  M01S00943.1ss     +++|*         USES   T7, CM - CM+4, AC, PC, RC, WC.
00945  M01S00944.1ss     +++|
00946  M01S00945.1ss     +++|
00947  M01S00946.1ss     +++| WDA      SUBR               ENTRY/EXIT
00948  M01S00947.1ss     +++| TRCF     LDN    0
00949  M01S00948.1ss     +++|          ZJN    WDA0.0      IF NOT TRACE MODE
00950  M01S00949.1ss     +++|          LDC    =C*WDA.*+CPON
00951  M01S00950.1ss     +++|          RJM    DFM
00952  M01S00951.1ss     +++| WDA0.0   LDN    0
00953  M01S00952.1ss     +++|          STD    SC          CLEAR STRIPE COUNT
00954  M01S00953.1ss     +++|          STD    PC          CLEAR PRU COUNT
00955  M01S00954.1ss     +++|          LDN    HDRL
00956  M01S00955.1ss     +++|          STD    T1
00957  M01S00956.1ss     +++|          LDN    TLRL
00958  M01S00957.1ss     +++|          STD    T2
00959  M01S00958.1ss     +++|          FETA   HDRW
00960  M01S00959.1ss     +++|          CRM    HBUF,T1     READ HEADER
00961  M01S00960.1ss     +++|          SBN    HDRL
00962  M01S00961.1ss     +++|          CRM    TBUF,T2     READ TRAILER
00963  M01S00962.1ss     +++|          LDC    4000
00964  M01S00963.1ss     +++|          RAM    TBUF        SET TRAILER FLAG
00965  M01S00964.1ss     +++|          RJM    CON         CONNECT UNIT
00966  M01S00965.1ss     +++| WDA0     RJM    CFS         CHECK FOR FULL STRIPE
00967  M01S00966.1ss     +++|          LDN    WRTF
00968  M01S00967.1ss     +++|          RJM    FCN         WRITE FUNCTION
00969  M01S00968.1ss     +++|          ACN    CH
00970  M01S00969.1ss     +++|          LDC    HDRL*5
00971  M01S00970.1ss     +++|          OAM    HBUF,CH     OUTPUT HEADER
00972  M01S00971.1ss     +++|          NJN    WDA1        IF NOT ALL DATA OUTPUT
00973  M01S00972.1ss     +++|          LJM    WDA4        CONTINUE WRITE
00974  M01S00973.1ss     +++|
00975  M01S00974.1ss     +++| WDA1     DCN    CH+40
00976  M01S00975.1ss     +++|          LDN    GSTF
00977  M01S00976.1ss     +++|          RJM    STS
00978  M01S00977.1ss     +++|          SHN    21-13
00979  M01S00978.1ss     +++|          MJN    WDA2        IF ALERT
00980  M01S00979.1ss     +++|          ERROR  RCCHOT      CHANNEL HANG RETURN
00981  M01S00980.1ss     +++|
00982  M01S00981.1ss     +++| WDA2     LDM    FSTS+4
00983  M01S00982.1ss     +++|          SHN    21-1
00984  M01S00983.1ss     +++|          PJN    WDA3        IF NOT TAPE BOTTOM RIGHT
00985  M01S00984.1ss     +++|          LDM    STEC
00986  M01S00985.1ss     +++|          NJN    WDA3        IF EC .NE. 0 OR PARITY ERROR
00987  M01S00986.1ss     +++|          ERROR  RCTBRT      TAPE BOTTOM RIGHT ERROR
00988  M01S00987.1ss     +++|
00989  M01S00988.1ss     +++| WDA3     RJM    CBS         CHECK BUSY STATUS
00990  M01S00989.1ss     +++|          NJN    WDA3.1      IF NOT TO RETRY
00991  M01S00990.1ss     +++|          FETA   3
00992  M01S00991.1ss     +++|          CRD    CM          RESET OUT POINTER
00993  M01S00992.1ss     +++|          LDD    CM+3
00994  M01S00993.1ss     +++|          STD    OT
00995  M01S00994.1ss     +++|          LDD    CM+4
00996  M01S00995.1ss     +++|          STD    OT+1
00997  M01S00996.1ss     +++|          LJM    WDA0        RETRY WRITE
00998  M01S00997.1ss     +++|
00999  M01S00998.1ss     +++| WDA3.1   ERROR  RCSTER      STATUS ERROR
01000  M01S00999.1ss     +++|
01001  M01S01000.1ss     +++| WDA4     BSS    0
01002  M01S01001.1ss     +++| WDA5     LDN    BRTL
01003  M01S01002.1ss     +++|          STM    CBSA        RESET RETRY COUNT
01004  M01S01003.1ss     +++|          LDCA   OT
01005  M01S01004.1ss     +++|          CRD    CM          READ CONTROL WORD
01006  M01S01005.1ss     +++|          LDD    CM
01007  M01S01006.1ss     +++|          SHN    21-12
01008  M01S01007.1ss     +++|          PJN    WDA9        IF NOT EOI
01009  M01S01008.1ss     +++| WDA6     DCN    CH+40
01010  M01S01009.1ss     +++|          LDN    GSTF
01011  M01S01010.1ss     +++|          RJM    STS         GET GENERAL STATUS
01012  M01S01011.1ss     +++|          SHN    21-13
01013  M01S01012.1ss     +++|          PJN    WDA8        IF NO ALERT
01014  M01S01013.1ss     +++| WDA7     LJM    WDA2        CHECK END OF TAPE
01015  M01S01014.1ss     +++|
01016  M01S01015.1ss     +++| WDA8     LDN    WTMF
01017  M01S01016.1ss     +++|          RJM    FCN         WRITE TAPE MARK
01018  M01S01017.1ss     +++|          LDN    1
01019  M01S01018.1ss     +++|          STD    WC
01020  M01S01019.1ss     +++|          RJM    RMB         READ MEMORY BUFFER
01021  M01S01020.1ss     +++|          RJM    UCO         UPDATE CENTRAL OUT
01022  M01S01021.1ss     +++|          LDN    GSTF
01023  M01S01022.1ss     +++|          RJM    STS         GET STATUS
01024  M01S01023.1ss     +++|          SHN    21-13
01025  M01S01024.1ss     +++|          MJN    WDA7        IF ALERT SET
01026  M01S01025.1ss     +++|          LDN    0
01027  M01S01026.1ss     +++|          RJM    SCB         SET FET COMPLETE
01028  M01S01027.1ss     +++|          LJM    WDAX        RETURN
01029  M01S01028.1ss     +++|
01030  M01S01029.1ss     +++| WDA9     LDD    CM+4
01031  M01S01030.1ss     +++|          ADC    -501
01032  M01S01031.1ss     +++|          MJN    WDA10       IF BYTE COUNT OK
01033  M01S01032.1ss     +++|          ERROR  RCCWER      CONTROL WORD ERROR
01034  M01S01033.1ss     +++|
01035  M01S01034.1ss     +++| WDA10    LDD    CM+4
01036  M01S01035.1ss     +++|          RJM    DV5
01037  M01S01036.1ss     +++|          ADN    2           ADD CONTROL WORDS
01038  M01S01037.1ss     +++|          STD    WC
01039  M01S01038.1ss     +++|          RJM    RMB         READ MEMORY BUFFER
01040  M01S01039.1ss     +++|          LDC    500+2
01041  M01S01040.1ss     +++|          OAM    PBUF+4,CH
01042  M01S01041.1ss     +++|          ZJN    WDA11       IF FULL BLOCK
01043  M01S01042.1ss     +++|          LJM    WDA1        CHECK FOR HANG
01044  M01S01043.1ss     +++|
01045  M01S01044.1ss     +++| WDA11    RJM    UCO         UPDATE CENTRAL OUT
01046  M01S01045.1ss     +++|          AOD    PC          ADVANCE PRU COUNT
01047  M01S01046.1ss     +++|          SBN    PRUPST
01048  M01S01047.1ss     +++|          ZJN    WDA12       IF FULL STRIPE
01049  M01S01048.1ss     +++|          ADN    PRUPST/2
01050  M01S01049.1ss     +++|          NJN    WDA11.1     IF NOT TIME TO RECALL CPU
01051  M01S01050.1ss     +++|          LDN    DRCM
01052  M01S01051.1ss     +++|          STD    CM
01053  M01S01052.1ss     +++|          LDD    OA
01054  M01S01053.1ss     +++|          CWD    CM
01055  M01S01054.1ss     +++| WDA11.1  LJM    WDA4        GET NEXT PRU
01056  M01S01055.1ss     +++|
01057  M01S01056.1ss     +++| WDA12    STD    PC          RESET PRU COUNT
01058  M01S01057.1ss     +++|          STD    RC          RESET RECALL COUNT
01059  M01S01058.1ss     +++| WDA13    RJM    COB         CHECK OUTPUT BUFFER
01060  M01S01059.1ss     +++|          NJN    WDA14       IF DATA
01061  M01S01060.1ss     +++|*         LDN    0           FLAG WRITE
01062  M01S01061.1ss     +++|          RJM    RCL         RECALL CPU
01063  M01S01062.1ss     +++|          UJN    WDA13       TRY AGAIN
01064  M01S01063.1ss     +++|
01065  M01S01064.1ss     +++| WDA14    LDCA   OT
01066  M01S01065.1ss     +++|          CRD    CM
01067  M01S01066.1ss     +++|          LDD    CM
01068  M01S01067.1ss     +++|          SHN    21-12
01069  M01S01068.1ss     +++|          PJN    WDA15       IF NOT EOI
01070  M01S01069.1ss     +++|          LJM    WDA6        CHECK FOR ERROR AND WRITE TAPE MARK
01071  M01S01070.1ss     +++|
01072  M01S01071.1ss     +++| WDA15    LDN    TLRL*5
01073  M01S01072.1ss     +++|          OAM    TBUF,CH
01074  M01S01073.1ss     +++|          ZJN    WDA16       IF FULL BLOCK
01075  M01S01074.1ss     +++|          LJM    WDA1        CHECK FOR HANG
01076  M01S01075.1ss     +++|
01077  M01S01076.1ss     +++| WDA16    DCN    CH+40
01078  M01S01077.1ss     +++|          LDN    GSTF
01079  M01S01078.1ss     +++|          RJM    STS         GET STATUS
01080  M01S01079.1ss     +++|          SHN    21-13
01081  M01S01080.1ss     +++|          PJN    WDA18       IF NO ERROR
01082  M01S01081.1ss     +++|          LJM    WDA2        CHECK FOR TAPE BOTTOM RIGHT
01083  M01S01082.1ss     +++|
01084  M01S01083.1ss     +++| WDA18    SHN    13-3
01085  M01S01084.1ss     +++|          PJN    WDA20       IF NOT EOT
01086  M01S01085.1ss     +++|          LDM    TBUF
01087  M01S01086.1ss     +++|          SHN    21-12
01088  M01S01087.1ss     +++|          PJN    WDA19       IF NOT ALREADY SET EOV TRAILER
01089  M01S01088.1ss     +++|          ERROR  RCENDV      END OF VOLUME
01090  M01S01089.1ss     +++|
01091  M01S01090.1ss     +++| WDA19    SHN    12+1        REPOSITION
01092  M01S01091.1ss     +++|          ADC    2000
01093  M01S01092.1ss     +++|          STM    TBUF        SET END OF VOLUME FLAG
01094  M01S01093.1ss     +++| WDA20    AOM    HBUF+4      INCREMENT STRIPE IN FILE
01095  M01S01094.1ss     +++|          STM    TBUF+4
01096  M01S01095.1ss     +++|          SHN    -14
01097  M01S01096.1ss     +++|          RAM    HBUF+3
01098  M01S01097.1ss     +++|          STM    TBUF+3
01099  M01S01098.1ss     +++|          AOM    HBUF+1*5+4  INCREMENT STRIPE IN VOLUME
01100  M01S01099.1ss     +++|          STM    TBUF+1*5+4
01101  M01S01100.1ss     +++|          LDN    2
01102  M01S01101.1ss     +++|          STD    T1
01103  M01S01102.1ss     +++|          FETA   HDRW
01104  M01S01103.1ss     +++|          CWM    HBUF,T1
01105  M01S01104.1ss     +++|          LDN    DRCM
01106  M01S01105.1ss     +++|          STD    CM
01107  M01S01106.1ss     +++|          LDD    OA
01108  M01S01107.1ss     +++|          CWD    CM          RECALL CPU
01109  M01S01108.1ss     +++|          AOD    SC
01110  M01S01109.1ss     +++|          SBN    STRPAU
01111  M01S01110.1ss     +++|          NJN    WDA21       IF NOT FULL AU
01112  M01S01111.1ss     +++|          STD    SC
01113  M01S01112.1ss     +++|          AOD    RC
01114  M01S01113.1ss     +++|          LDN    0           FLAG WRITE
01115  M01S01114.1ss     +++|          RJM    RCL         PAUSE AND CHECK ERROR FLAG
01116  M01S01115.1ss     +++| WDA21    FETA   4
01117  M01S01116.1ss     +++|          CRD    CM          READ LIMIT WORD
01118  M01S01117.1ss     +++|          LDD    CM+3
01119  M01S01118.1ss     +++|          SHN    -6
01120  M01S01119.1ss     +++|          ZJN    WDA22       IF TERMINATE FLAG NOT SET
01121  M01S01120.1ss     +++|          ERROR  RCTERF      TERMINATE FLAG RETURN
01122  M01S01121.1ss     +++|
01123  M01S01122.1ss     +++| WDA22    LDD    SC
01124  M01S01123.1ss     +++|          NJN    WDA23       IF NOT END OF AU
01125  M01S01124.1ss     +++|          RJM    CMG         CHECK FOR MESSAGES
01126  M01S01125.1ss     +++| WDA23    LJM    WDA0        CONTINUE WRITE
01127  M01S01126.1ss     +++| WMS      SPACE  4,10
01128  M01S01127.1ss     +++|**        WMS - WRITE MESSAGE AND ASSOCIATED DATA.
01129  M01S01128.1ss     +++|*
01130  M01S01129.1ss     +++|*         ENTRY  (FE - FE+1) = MESSAGE OUTPUT FET.
01131  M01S01130.1ss     +++|*
01132  M01S01131.1ss     +++|*         EXIT   ALL MESSAGES OUTPUT TO M860.
01133  M01S01132.1ss     +++|*
01134  M01S01133.1ss     +++|*         CALLS  COB, DV3, DV5, FCN, IBP, RMB, REL, RES, SCB, STS.
01135  M01S01134.1ss     +++|*                CMD, CSM, GMT.
01136  M01S01135.1ss     +++|*
01137  M01S01136.1ss     +++|*         USES   T4, CM - CM+4, BC, WC.
01138  M01S01137.1ss     +++|
01139  M01S01138.1ss     +++|
01140  M01S01139.1ss     +++| WMS      SUBR               ENTRY/EXIT
01141  M01S01140.1ss     +++|          LDN    1
01142  M01S01141.1ss     +++|          STM    WMSA        CLEAR RESTART CONTROL UNIT FLAG
01143  M01S01142.1ss     +++|          RJM    IBP         INITIALIZE BUFFER PARAMETERS
01144  M01S01143.1ss     +++|          RJM    COB         CHECK OUTPUT BUFFER
01145  M01S01144.1ss     +++|          ZJN    WMSX        IF NO MESSAGES
01146  M01S01145.1ss     +++|          FETA               CHECK FOR ERROR CODE SET
01147  M01S01146.1ss     +++|          CRD    CM
01148  M01S01147.1ss     +++|          LDD    CM+4
01149  M01S01148.1ss     +++|          SHN    21-0
01150  M01S01149.1ss     +++|          MJN    WMSX        IF COMPLETE
01151  M01S01150.1ss     +++|          LDD    CM+4
01152  M01S01151.1ss     +++|          SHN    -12
01153  M01S01152.1ss     +++|          SHN    6
01154  M01S01153.1ss     +++|          LMD    CM+3
01155  M01S01154.1ss     +++|          NJN    WMSX        IF ERROR CODE SET
01156  M01S01155.1ss     +++|          RJM    RES         RESERVE CHANNEL
01157  M01S01156.1ss     +++| WMS0     RJM    COB         CHECK OUTPUT BUFFER
01158  M01S01157.1ss     +++|          NJN    WMS1        IF MESSAGE(S) IN BUFFER
01159  M01S01158.1ss     +++|          MONITOR DRCM       RECALL CPU
01160  M01S01159.1ss     +++|          LDC    **          RESTART CONTROL UNIT FLAG
01161  M01S01160.1ss     +++| WMSA     EQU    *-1
01162  M01S01161.1ss     +++|          NJN    WMS0.1      IF CONTROL UNIT NOT RESTARTED
01163  M01S01162.1ss     +++|          LDN    RISF
01164  M01S01163.1ss     +++|          RJM    STS         IGNORE ANY OUTSTANDING INTERRUPTS
01165  M01S01164.1ss     +++| WMS0.1   RJM    REL         RELEASE CHANNEL
01166  M01S01165.1ss     +++|          LJM    WMSX        RETURN
01167  M01S01166.1ss     +++|
01168  M01S01167.1ss     +++| WMS1     SBN    MSWC
01169  M01S01168.1ss     +++|          PJN    WMS2        IF ENOUGH DATA
01170  M01S01169.1ss     +++|          ERROR  RCDLER      DATA LENGTH ERROR
01171  M01S01170.1ss     +++|
01172  M01S01171.1ss     +++| WMS2     LDN    MSWC
01173  M01S01172.1ss     +++|          STD    WC
01174  M01S01173.1ss     +++|          RJM    RMB         READ MESSAGE
01175  M01S01174.1ss     +++| TRCG     LDN    0
01176  M01S01175.1ss     +++|          ZJN    WMS2.1      IF NOT TRACE MODE
01177  M01S01176.1ss     +++|          LDC    2ROT
01178  M01S01177.1ss     +++|          RJM    MDF         MESSAGE TYPE TO DAYFILE
01179  M01S01178.1ss     +++| WMS2.1   LDN    CMWF
01180  M01S01179.1ss     +++|          RJM    CMD         CONNECT TO MESSAGE WRITE DEVICE
01181  M01S01180.1ss     +++|          LDC    BRTL
01182  M01S01181.1ss     +++|          STM    WMSB        RETRY LIMIT
01183  M01S01182.1ss     +++| WMS2.2   LDN    MWRF
01184  M01S01183.1ss     +++|          RJM    FCN         ISSUE MESSAGE WRITE FUNCTION
01185  M01S01184.1ss     +++|          LDN    MSBC
01186  M01S01185.1ss     +++|          ACN    CH
01187  M01S01186.1ss     +++|          OAM    BUFR,CH     OUTPUT MESSAGE
01188  M01S01187.1ss     +++|          FJM    *,CH        WAIT FOR LAST BYTE
01189  M01S01188.1ss     +++|          DCN    CH+40
01190  M01S01189.1ss     +++|          STD    BC
01191  M01S01190.1ss     +++|          LDN    GSTF
01192  M01S01191.1ss     +++|          RJM    STS         WAIT END OF OPERATION
01193  M01S01192.1ss     +++|          SHN    21-13
01194  M01S01193.1ss     +++|          PJN    WMS3        IF NO ERROR
01195  M01S01194.1ss     +++|          SHN    13-1
01196  M01S01195.1ss     +++|          PJN    WMS2.3      IF NOT BUSY
01197  M01S01196.1ss     +++|          SOM    WMSB
01198  M01S01197.1ss     +++|          MJN    WMS2.3      IF RETRY LIMIT
01199  M01S01198.1ss     +++|          RJM    REL         RELEASE CHANNEL
01200  M01S01199.1ss     +++|          RJM    BDL         BUSY DELAY
01201  M01S01200.1ss     +++|          RJM    RES         RESERVE CHANNEL
01202  M01S01201.1ss     +++|          LJM    WMS2.2      RETRY
01203  M01S01202.1ss     +++|
01204  M01S01203.1ss     +++| WMS2.3   ERROR  RCSTER      STATUS ERROR
01205  M01S01204.1ss     +++|
01206  M01S01205.1ss     +++| WMS3     LDD    BC
01207  M01S01206.1ss     +++|          ZJN    WMS4        IF FULL BLOCK
01208  M01S01207.1ss     +++|          ERROR  RCCHOT      CHANNEL HANG
01209  M01S01208.1ss     +++|
01210  M01S01209.1ss     +++| WMS4     RJM    GMT         GET MESSAGE TYPE
01211  M01S01210.1ss     +++|          LMN    0#1C
01212  M01S01211.1ss     +++|          STM    WMSA        SET/CLEAR RESTART FLAG
01213  M01S01212.1ss     +++|          LMN    0#1C
01214  M01S01213.1ss     +++|          RJM    CSM         CHECK SPECIAL MESSAGE
01215  M01S01214.1ss     +++|          LDM    BUFR+2
01216  M01S01215.1ss     +++|          SHN    -4
01217  M01S01216.1ss     +++|          STD    BC          ASSOCIATED DATA BYTE COUNT
01218  M01S01217.1ss     +++|          LDM    BUFR+1
01219  M01S01218.1ss     +++|          LPC    377
01220  M01S01219.1ss     +++|          SHN    10
01221  M01S01220.1ss     +++|          RAD    BC
01222  M01S01221.1ss     +++|          NJN    WMS6        IF ASSOCIATED DATA
01223  M01S01222.1ss     +++| WMS5     RJM    UCO         UPDATE CENTRAL OUT
01224  M01S01223.1ss     +++|          LJM    WMS0        CHECK FOR MORE MESSAGES
01225  M01S01224.1ss     +++|
01226  M01S01225.1ss     +++| WMS6     ADC    -MXAD
01227  M01S01226.1ss     +++|          MJN    WMS7        IF BLOCK NOT TOO BIG
01228  M01S01227.1ss     +++|          ZJN    WMS7        IF BLOCK NOT TOO BIG
01229  M01S01228.1ss     +++|          ERROR  RCDLER      DATA LENGTH ERROR
01230  M01S01229.1ss     +++|
01231  M01S01230.1ss     +++| WMS7     ADC    MXAD
01232  M01S01231.1ss     +++|          SHN    1           *2
01233  M01S01232.1ss     +++|          STD    T4
01234  M01S01233.1ss     +++|          RJM    DV3         /3 = PP BYTE COUNT
01235  M01S01234.1ss     +++|          STD    BC
01236  M01S01235.1ss     +++|          RJM    DV5         GET CM WORD COUNT
01237  M01S01236.1ss     +++|          STD    WC
01238  M01S01237.1ss     +++|          RJM    COB         CHECK OUTPUT FET
01239  M01S01238.1ss     +++|          SBD    WC
01240  M01S01239.1ss     +++|          PJN    WMS8        IF DATA IN BUFFER
01241  M01S01240.1ss     +++|          ERROR  RCDLER      DATA LENGTH ERROR
01242  M01S01241.1ss     +++|
01243  M01S01242.1ss     +++| WMS8     RJM    RMB         READ DATA TO PP
01244  M01S01243.1ss     +++|          LDC    BRTL
01245  M01S01244.1ss     +++|          STM    WMSB        RETRY LIMIT
01246  M01S01245.1ss     +++| WMS8.1   LDD    BC
01247  M01S01246.1ss     +++|          SHN    1           *2
01248  M01S01247.1ss     +++|          ADD    BC          *3
01249  M01S01248.1ss     +++|          SBD    T4          REMAINDER FROM DIVISION BY 3
01250  M01S01249.1ss     +++|          LPN    2           REMAINDER OF 2 = WRITE SHORT
01251  M01S01250.1ss     +++|          SHN    6
01252  M01S01251.1ss     +++|          ERRNZ  SWRF-WRTF-200
01253  M01S01252.1ss     +++|          ADN    WRTF
01254  M01S01253.1ss     +++|          RJM    FCN         ISSUE WRITE FUNCTION
01255  M01S01254.1ss     +++|          LDD    BC
01256  M01S01255.1ss     +++|          STD    WC          SAVE FOR RETRY
01257  M01S01256.1ss     +++|          ACN    CH
01258  M01S01257.1ss     +++|          OAM    BUFR,CH     SEND ASSOC. DATA
01259  M01S01258.1ss     +++|          FJM    *,CH        WAIT FOR LAST BYTE
01260  M01S01259.1ss     +++|          DCN    CH+40
01261  M01S01260.1ss     +++|          STD    BC
01262  M01S01261.1ss     +++|          LDN    GSTF
01263  M01S01262.1ss     +++|          RJM    STS         WAIT END OF OPERATION
01264  M01S01263.1ss     +++|          SHN    21-13
01265  M01S01264.1ss     +++|          PJN    WMS9        IF NO ERROR
01266  M01S01265.1ss     +++|          SHN    13-1
01267  M01S01266.1ss     +++|          PJN    WMS8.2      IF NOT BUSY
01268  M01S01267.1ss     +++|          SOM    WMSB
01269  M01S01268.1ss     +++|          MJN    WMS8.2      IF RETRY LIMIT
01270  M01S01269.1ss     +++|          RJM    REL         RELEASE CHANNEL
01271  M01S01270.1ss     +++|          RJM    BDL         BUSY DELAY
01272  M01S01271.1ss     +++|          RJM    RES         RESERVE CHANNEL
01273  M01S01272.1ss     +++|          LDD    WC
01274  M01S01273.1ss     +++|          STD    BC          RESTORE BYTE COUNT
01275  M01S01274.1ss     +++|          LJM    WMS8.1      RETRY
01276  M01S01275.1ss     +++|
01277  M01S01276.1ss     +++| WMS8.2   ERROR  RCSTER      STATUS ERROR
01278  M01S01277.1ss     +++|
01279  M01S01278.1ss     +++| WMS9     LDD    BC
01280  M01S01279.1ss     +++|          ZJN    WMS10       IF FULL BLOCK
01281  M01S01280.1ss     +++|          ERROR  RCCHOT      CHANNEL HANG
01282  M01S01281.1ss     +++|
01283  M01S01282.1ss     +++| WMS10    LJM    WMS5        UPDATE FET
01284  M01S01283.1ss     +++|
01285  M01S01284.1ss     +++|
01286  M01S01285.1ss     +++| WMSB     CON    BRTL        RETRY LIMIT
01287  M01S01286.1ss     +++|          TITLE  SUBROUTINES.
01288  M01S01287.1ss     +++|          TITLE  I/O SUBROUTINES.
01289  M01S01288.1ss     +++| CKM      SPACE  4,10
01290  M01S01289.1ss     +++|**        CKM - CHECK FOR MESSAGE.
01291  M01S01290.1ss     +++|*
01292  M01S01291.1ss     +++|*         ENTRY  (MW) .NE. 0, IF MESSAGE ALREADY WAITING.
01293  M01S01292.1ss     +++|*
01294  M01S01293.1ss     +++|*         EXIT   (MW) = 0, IF NO MESSAGE WAITING FOR BUFFER.
01295  M01S01294.1ss     +++|*
01296  M01S01295.1ss     +++|*         CALLS  RES, RMS, STS.
01297  M01S01296.1ss     +++|*
01298  M01S01297.1ss     +++|*         USES   MW.
01299  M01S01298.1ss     +++|
01300  M01S01299.1ss     +++|
01301  M01S01300.1ss     +++| CKM      SUBR               ENTRY/EXIT
01302  M01S01301.1ss     +++|          RJM    RES         RESERVE CHANNEL
01303  M01S01302.1ss     +++|          LDD    MW
01304  M01S01303.1ss     +++|          NJN    CKM1        IF MESSAGE WAITING
01305  M01S01304.1ss     +++|          LDN    RISF
01306  M01S01305.1ss     +++|          RJM    STS         REQUEST INTERRUPT STATUS
Line S01306 Modification History
M01 (Added by) 1ss
M02 (Updated by) 1ss1
Seq #  *Modification Id* Act 
----------------------------+
01307  M02S01306.1ss1    ---|          LDD    ST
01308  M01S01307.1ss     +++|          SHN    21-10
01309  M01S01308.1ss     +++|          MJN    CKM1        IF MESSAGE READY
01310  M01S01309.1ss     +++|          RJM    REL         RELEASE CHANNEL
01311  M01S01310.1ss     +++|          UJN    CKMX        RETURN
01312  M01S01311.1ss     +++|
01313  M01S01312.1ss     +++| CKM1     RJM    RMS         READ MESSAGE
01314  M01S01313.1ss     +++|          STD    MW          SAVE BUFFER STATUS
01315  M01S01314.1ss     +++|          UJN    CKMX        RETURN
01316  M01S01315.1ss     +++| CMD      SPACE  4,10
01317  M01S01316.1ss     +++|**        CMD - CONNECT TO MESSAGE DEVICE.
01318  M01S01317.1ss     +++|*
01319  M01S01318.1ss     +++|*         ENTRY  (A) = CONNECT FUNCTION CODE.
01320  M01S01319.1ss     +++|*                CHANNEL RESERVED.
01321  M01S01320.1ss     +++|*
01322  M01S01321.1ss     +++|*         EXIT   MESSAGE DEVICE CONNECTED.
01323  M01S01322.1ss     +++|*
01324  M01S01323.1ss     +++|*         CALLS  FCN, STS.
01325  M01S01324.1ss     +++|*
01326  M01S01325.1ss     +++|*         USES   NONE.
01327  M01S01326.1ss     +++|
01328  M01S01327.1ss     +++|
01329  M01S01328.1ss     +++| CMD      SUBR               ENTRY/EXIT
01330  M01S01329.1ss     +++|          STM    CMDA        SAVE FUNCTION CODE
01331  M01S01330.1ss     +++|          LDC    BRTL
01332  M01S01331.1ss     +++|          STM    CMDB        RETRY LIMIT
01333  M01S01332.1ss     +++| CMD0     LDC    **
01334  M01S01333.1ss     +++| CMDA     EQU    *-1
01335  M01S01334.1ss     +++|          RJM    FCN         ISSUE CONNECT FUNCTION
01336  M01S01335.1ss     +++|          LDN    GSTF
01337  M01S01336.1ss     +++|          RJM    STS         GET STATUS
01338  M01S01337.1ss     +++|          SHN    21-13
01339  M01S01338.1ss     +++|          PJN    CMDX        IF NOT ALERT
01340  M01S01339.1ss     +++|          SOM    CMDB
01341  M01S01340.1ss     +++|          MJN    CMD0.0      IF RETRY LIMIT
01342  M01S01341.1ss     +++|          RJM    REL         RELEASE CHANNEL
01343  M01S01342.1ss     +++|          RJM    BDL         BUSY DELAY
01344  M01S01343.1ss     +++|          RJM    RES         RESERVE CHANNEL
01345  M01S01344.1ss     +++|          UJN    CMD0        RETRY
01346  M01S01345.1ss     +++|
01347  M01S01346.1ss     +++| CMD0.0   LDM    STEC        ERROR CODE
01348  M01S01347.1ss     +++|          LMC    170
01349  M01S01348.1ss     +++|          NJN    CMD1        IF CHANNEL INTERFACE ONLINE
01350  M01S01349.1ss     +++|          ERROR  RCCIFO      CHANNEL INTERFACE OFF LINE
01351  M01S01350.1ss     +++|
01352  M01S01351.1ss     +++| CMD1     ERROR  RCIMPL
01353  M01S01352.1ss     +++|
01354  M01S01353.1ss     +++|
01355  M01S01354.1ss     +++| CMDB     CON    BRTL        RETRY COUNTER
01356  M01S01355.1ss     +++| CMG      SPACE  4,10
01357  M01S01356.1ss     +++|**        CMG - CHECK FOR MESSAGES.
01358  M01S01357.1ss     +++|*
01359  M01S01358.1ss     +++|*         ENTRY  CHANNEL RESERVED.
01360  M01S01359.1ss     +++|*
01361  M01S01360.1ss     +++|*         EXIT   NORMAL, IF NO MESSAGES TO SEND/RECEIVE.
01362  M01S01361.1ss     +++|*                TO *SSD1* IF MESSAGES TO PROCESS.
01363  M01S01362.1ss     +++|*
01364  M01S01363.1ss     +++|*         CALLS  REL, STS.
01365  M01S01364.1ss     +++|*
01366  M01S01365.1ss     +++|*         USES   CM - CM+4, CN - CN+4, MW.
01367  M01S01366.1ss     +++|
01368  M01S01367.1ss     +++|
01369  M01S01368.1ss     +++| CMG      SUBR               ENTRY/EXIT
01370  M01S01369.1ss     +++|          LDN    RISF
01371  M01S01370.1ss     +++|          RJM    STS         GET MESSAGE STATUS
01372  M01S01371.1ss     +++|          SHN    21-10
01373  M01S01372.1ss     +++|          PJN    CMG2        IF NO M860 MESSAGE
01374  M01S01373.1ss     +++|          AOD    MW          FLAG MESSAGE READY
01375  M01S01374.1ss     +++| CMG1     RJM    REL         RELEASE CHANNEL
01376  M01S01375.1ss     +++|          LJM    SSD1        PROCESS MESSAGES
01377  M01S01376.1ss     +++|
01378  M01S01377.1ss     +++| CMG2     LDM    SSDA-1      CHECK MESSAGE FROM EXEC.
01379  M01S01378.1ss     +++|          LPN    77
01380  M01S01379.1ss     +++|          SHN    6
01381  M01S01380.1ss     +++|          ADD    RA
01382  M01S01381.1ss     +++|          SHN    6
01383  M01S01382.1ss     +++|          ADM    SSDA
01384  M01S01383.1ss     +++|          ADN    2           IN POINTER
01385  M01S01384.1ss     +++|          CRD    CM
01386  M01S01385.1ss     +++|          ADN    1
01387  M01S01386.1ss     +++|          CRD    CN          OUT POINTER
01388  M01S01387.1ss     +++|          LDD    CM+3
01389  M01S01388.1ss     +++|          LMD    CN+3
01390  M01S01389.1ss     +++|          NJN    CMG1        IF IN .NE. OUT
01391  M01S01390.1ss     +++|          LDD    CM+4
01392  M01S01391.1ss     +++|          LMD    CN+4
01393  M01S01392.1ss     +++|          NJN    CMG1        IF IN .NE. OUT
01394  M01S01393.1ss     +++|          LJM    CMGX        RETURN
01395  M01S01394.1ss     +++| CON      SPACE  4,10
01396  M01S01395.1ss     +++|**        CON - CONNECT UNIT.
01397  M01S01396.1ss     +++|*
01398  M01S01397.1ss     +++|*         ENTRY  (UN) = UNIT NUMBER.
01399  M01S01398.1ss     +++|*
01400  M01S01399.1ss     +++|*         EXIT   CHANNEL RESERVED, UNIT CONNECTED AND NOT BUSY.
01401  M01S01400.1ss     +++|*
01402  M01S01401.1ss     +++|*         CALLS  FCN, RES, STS.
01403  M01S01402.1ss     +++|*
01404  M01S01403.1ss     +++|*         USES   NONE.
01405  M01S01404.1ss     +++|
01406  M01S01405.1ss     +++|
01407  M01S01406.1ss     +++| CON      SUBR               ENTRY/EXIT
01408  M01S01407.1ss     +++|          RJM    WUM         WAIT UNIT MOUNTED
01409  M01S01408.1ss     +++|          LDC    BRTL
01410  M01S01409.1ss     +++|          STM    CONA        INITIALIZE BUSY RETRY LIMIT
01411  M01S01410.1ss     +++| CON1     RJM    RES         RESERVE CHANNEL
01412  M01S01411.1ss     +++|          LDN    CONF
01413  M01S01412.1ss     +++|          ADD    UN
01414  M01S01413.1ss     +++|          RJM    FCN         CONNECT UNIT
01415  M01S01414.1ss     +++|          LDN    GSTF
01416  M01S01415.1ss     +++|          RJM    STS         GET STATUS
01417  M01S01416.1ss     +++|          SHN    21-13
01418  M01S01417.1ss     +++|          PJN    CONX        IF NO ALERT
01419  M01S01418.1ss     +++|          LDM    STEC        GET ERROR CODE
01420  M01S01419.1ss     +++|          LMN    2
01421  M01S01420.1ss     +++|          ZJN    CON2        IF BUSY CODE
01422  M01S01421.1ss     +++|          LMC    2&165
01423  M01S01422.1ss     +++|          NJN    CON3        IF NOT SENSE ERROR
01424  M01S01423.1ss     +++| CON2     RJM    REL         RELEASE CHANNEL
01425  M01S01424.1ss     +++|          SOM    CONA
01426  M01S01425.1ss     +++|          ZJN    CON3        IF RETRY LIMIT
01427  M01S01426.1ss     +++|          RJM    BDL         BUSY DELAY
01428  M01S01427.1ss     +++|          UJN    CON1        TRY AGAIN
01429  M01S01428.1ss     +++|
01430  M01S01429.1ss     +++| CON3     ERROR  RCSTER      STATUS ERROR
01431  M01S01430.1ss     +++|
01432  M01S01431.1ss     +++|
01433  M01S01432.1ss     +++| CONA     CON    BRTL        BUSY RETRY LIMIT
01434  M01S01433.1ss     +++| CSM      SPACE  4,10
01435  M01S01434.1ss     +++|**        CSM - CHECK SPECIAL MESSAGE.
01436  M01S01435.1ss     +++|*
01437  M01S01436.1ss     +++|*         ENTRY  (A) = MESSAGE CODE.
01438  M01S01437.1ss     +++|*
01439  M01S01438.1ss     +++|*         EXIT   SPECIAL MESSAGES PROCESSED.
01440  M01S01439.1ss     +++|*
01441  M01S01440.1ss     +++|*         CALLS  FCN, STS.
01442  M01S01441.1ss     +++|*
01443  M01S01442.1ss     +++|*         USES   CM - CM+4.
01444  M01S01443.1ss     +++|
01445  M01S01444.1ss     +++|
01446  M01S01445.1ss     +++| CSM      SUBR               ENTRY/EXIT
01447  M01S01446.1ss     +++|          LMN    0#06
01448  M01S01447.1ss     +++|          NJN    CSM1        IF NOT MOUNT VOLUME
01449  M01S01448.1ss     +++|          LDM    BUFR+5      GET UNIT NUMBER
01450  M01S01449.1ss     +++|          SHN    -10
01451  M01S01450.1ss     +++|          ADC    WUMF        PRIME FSC FOR READY INTERRUPT
01452  M01S01451.1ss     +++|          RJM    FCN         ISSUE FUNCTION
01453  M01S01452.1ss     +++|          UJN    CSMX        RETURN
01454  M01S01453.1ss     +++|
01455  M01S01454.1ss     +++| CSM1     LMC    0#06&0#81
01456  M01S01455.1ss     +++|          NJN    CSMX        IF NOT RESPONSE TO REWIND/UNLOAD MSG
01457  M01S01456.1ss     +++|          LDC    RTCL
01458  M01S01457.1ss     +++|          CRD    CM          READ REALTIME CLOCK
01459  M01S01458.1ss     +++|          LDD    CM+1        SECONDS
01460  M01S01459.1ss     +++|          ADC    EOPL        END OF OP. LIMIT
01461  M01S01460.1ss     +++|          STM    CMSA
01462  M01S01461.1ss     +++| CSM2     LDM    BUFR+5      GET UNIT NUMBER
01463  M01S01462.1ss     +++|          SHN    -10
01464  M01S01463.1ss     +++|          ADC    CDEF        CHECK FOR INTERRUPT
01465  M01S01464.1ss     +++|          RJM    STS         GET STATUS
01466  M01S00001.1ss1    +++|          SHN    21-13
01467  M01S01465.1ss     +++|          MJN    CSM4        IF ALERT
01468  M01S01466.1ss     +++| CSM3     LJM    CSMX        RETURN
01469  M01S01467.1ss     +++| CSM4     LDM    STEC        ERROR CODE
01470  M01S01468.1ss     +++|          LMN    2
01471  M01S01469.1ss     +++|          NJN    CSM3        IF NOT BUSY(EXPECT ALERT/EC=131)
01472  M01S01470.1ss     +++|          RJM    REL         PAUSE CHECK ERROR FLG
01473  M01S01471.1ss     +++|          LDC    RTCL
01474  M01S01472.1ss     +++|          CRD    CM          READ REALTIME CLOCK
01475  M01S01473.1ss     +++|          LDD    CM+1        SECONDS
01476  M01S01474.1ss     +++|          LMC    **
01477  M01S01475.1ss     +++| CMSA     EQU    *-1
01478  M01S01476.1ss     +++|          ZJN    CSM5        IF TIMEOUT
01479  M01S01477.1ss     +++|          RJM    RES         RESERVE CHANNEL
01480  M01S01478.1ss     +++|          UJN    CSM2        CHECK AGAIN
01481  M01S01479.1ss     +++|
01482  M01S01480.1ss     +++| CSM5     ERROR  RCNEOP      NO END OF OPERATION
01483  M01S01481.1ss     +++| DST      SPACE  4,10
01484  M01S01482.1ss     +++|**        DST - DIAGNOSTIC STATUS.
01485  M01S01483.1ss     +++|*
01486  M01S01484.1ss     +++|*         ENTRY  CHANNEL RESERVED.
01487  M01S01485.1ss     +++|*
01488  M01S01486.1ss     +++|*         EXIT   TO CALLER IF NO ERROR.
01489  M01S01487.1ss     +++|*                TO ERR IF ERROR
01490  M01S01488.1ss     +++|*
01491  M01S01489.1ss     +++|*         CALLS  NONE.
01492  M01S01490.1ss     +++|*
01493  M01S01491.1ss     +++|*         USES   T0.
01494  M01S01492.1ss     +++|
01495  M01S01493.1ss     +++|
01496  M01S01494.1ss     +++| DST      SUBR               ENTRY/EXIT
01497  M01S01495.1ss     +++|          DCN    CH+40       INSURE INACTIVE CHANNEL
01498  M01S01496.1ss     +++|          FNC    DSTF,CH     ISSUE DIAGNOSTIC STATUS FUNCTION
01499  M01S01497.1ss     +++|          LCN    0
01500  M01S01498.1ss     +++| DST1     IJM    DST2,CH     IF FUNCTION ACCEPTED
01501  M01S01499.1ss     +++|          SBN    1
01502  M01S01500.1ss     +++|          NJN    DST1        IF NOT TIMEOUT
01503  M01S01501.1ss     +++|          ERROR  RCFCTO      FUNCTION TIMEOUT
01504  M01S01502.1ss     +++|
01505  M01S01503.1ss     +++| DST2     ACN    CH
01506  M01S01504.1ss     +++|          LCN    0
01507  M01S01505.1ss     +++| DST3     FJM    DST5,CH     IF STATUS READY
01508  M01S01506.1ss     +++|          SBN    1
01509  M01S01507.1ss     +++|          NJN    DST3        IF NOT TIMEOUT
01510  M01S01508.1ss     +++| DST4     ERROR  RCCHMF      CHANNEL MALFUNCTION
01511  M01S01509.1ss     +++|
01512  M01S01510.1ss     +++| DST5     LCN    0
01513  M01S01511.1ss     +++|          IAN    CH+40
01514  M01S01512.1ss     +++|          DCN    CH+40
01515  M01S01513.1ss     +++|          MJN    DST4        IF NO DATA READ
01516  M01S01514.1ss     +++|          STM    DSTS        PUT IN STATUS BUFFER
01517  M01S01515.1ss     +++|          LPC    3003
01518  M01S01516.1ss     +++|          LMN    2
01519  M01S01517.1ss     +++|          ZJN    DSTX        IF NO ERROR
01520  M01S01518.1ss     +++|          SHN    21-12
01521  M01S01519.1ss     +++|          PJN    DST6        IF NOT CHANNEL PARITY ERROR
01522  M01S01520.1ss     +++|          ERROR  RCCHPE
01523  M01S01521.1ss     +++|
01524  M01S01522.1ss     +++| DST6     SHN    12-11
01525  M01S01523.1ss     +++|          PJN    DST7        IF NOT FSC MEMORY PARITY ERROR
01526  M01S01524.1ss     +++|          ERROR  RCFSPE
01527  M01S01525.1ss     +++|
01528  M01S01526.1ss     +++| DST7     SHN    11-0
01529  M01S01527.1ss     +++|          MJN    DST8        IF PROCESSOR RUNNING
01530  M01S01528.1ss     +++|          ERROR  RCFSNR
01531  M01S01529.1ss     +++|
01532  M01S01530.1ss     +++| DST8     ERROR  RCFSAB      FSC ABNORMAL
01533  M01S01531.1ss     +++| FCN      SPACE  4,10
01534  M01S01532.1ss     +++|**        FCN - FUNCTION M860 MSS INTERFACE.
01535  M01S01533.1ss     +++|*
01536  M01S01534.1ss     +++|*         ENTRY  (A) = FUNCTION CODE TO BE ISSUED.
01537  M01S01535.1ss     +++|*
01538  M01S01536.1ss     +++|*         EXIT   FUNCTION ISSUED, TO ERR IF ERROR.
01539  M01S01537.1ss     +++|*
01540  M01S01538.1ss     +++|*         CALLS  DST.
01541  M01S01539.1ss     +++|*
01542  M01S01540.1ss     +++|*         USES   CL, CN - CN+4.
01543  M01S01541.1ss     +++|
01544  M01S01542.1ss     +++|
01545  M01S01543.1ss     +++| FCN      SUBR               ENTRY/EXIT
01546  M01S01544.1ss     +++|          STM    FSTS+16D    SAVE FUNCTION IN DETAIL STATUS BLOCK
01547  M01S01545.1ss     +++|          ADD    EQ          SET EQUIPMENT NUMBER
01548  M01S01546.1ss     +++|          FAN    CH          ISSUE FUNCTION
01549  M01S01547.1ss     +++|          LDC    RTCL        SET TIMEOUT CLOCK
01550  M01S01548.1ss     +++|          CRD    CN
01551  M01S01549.1ss     +++|          LDD    CN+1        SECOND COUNT
01552  M01S01550.1ss     +++|          ADC    FTOL        FUNCTION TIMEOUT LIMIT
01553  M01S01551.1ss     +++|          STD    CL
01554  M01S00001.msea022 +++|          LDN    1
01555  M01S01552.1ss     +++| FCN1     IJM    FCNX,CH     IF ACCEPTED
01556  M01S01553.1ss     +++|          ADN    1
Line S01554 Modification History
M01 (Added by) 1ss
M02 (Updated by) msea022
Seq #  *Modification Id* Act 
----------------------------+
01557  M02S01554.msea022 ---|          PJN    FCN1        IF NOT TIMEOUT
01558  M01S00002.msea022 +++|          NJN    FCN1        IF NOT TIMEOUT
01559  M01S01555.1ss     +++|          PAUSE
01560  M01S01556.1ss     +++|          LDD    CM+1
01561  M01S01557.1ss     +++|          ZJN    FCN1.0      IF NO ERROR FLAG
01562  M01S01558.1ss     +++|          RJM    REL         RELEASE CHANNEL
01563  M01S01559.1ss     +++|          LJM    DPP         DROP PP
01564  M01S01560.1ss     +++|
01565  M01S01561.1ss     +++| FCN1.0   LDC    RTCL        READ CLOCK
01566  M01S01562.1ss     +++|          CRD    CN
01567  M01S01563.1ss     +++|          LDD    CL
01568  M01S01564.1ss     +++|          LMD    CN+1
01569  M01S01565.1ss     +++|          NJN    FCN1        IF NOT TIMEOUT
01570  M01S01566.1ss     +++|          DCN    CH+40
01571  M01S01567.1ss     +++|          LDN    GSTF
01572  M01S01568.1ss     +++|          FAN    CH          TRY TO GET GENERAL STATUS
01573  M01S01569.1ss     +++| FCN2     IJM    FCN3,CH     IF ACCEPTED
01574  M01S01570.1ss     +++|          ADN    1
01575  M01S01571.1ss     +++|          PJN    FCN2        IF NOT TIMEOUT
01576  M01S01572.1ss     +++|          UJN    FCN8        TIMEOUT
01577  M01S01573.1ss     +++|
01578  M01S01574.1ss     +++| FCN3     ACN    CH
01579  M01S01575.1ss     +++|          LDN    1
01580  M01S01576.1ss     +++| FCN4     FJM    FCN5,CH     IF STATUS READY
01581  M01S01577.1ss     +++|          ADN    1
01582  M01S01578.1ss     +++|          PJN    FCN4        IF NOT TIMEOUT
01583  M01S01579.1ss     +++|          UJN    FCN8        TIMEOUT
01584  M01S01580.1ss     +++|
01585  M01S01581.1ss     +++| FCN5     LDN    GSTL
01586  M01S01582.1ss     +++|          IAM    GSTS,CH     READ GENERAL STATUS
01587  M01S01583.1ss     +++|          NJN    FCN8        IF NOT ALL STATUS READ
01588  M01S01584.1ss     +++|          DCN    CH+40
01589  M01S01585.1ss     +++|          FNC    FSTF,CH     DETAIL STATUS
01590  M01S01586.1ss     +++| FCN6     IJM    FCN7,CH     IF ACCEPTED
01591  M01S01587.1ss     +++|          ADN    1
01592  M01S01588.1ss     +++|          PJN    FCN6        IF NOT TIMEOUT
01593  M01S01589.1ss     +++|          UJN    FCN8        TIMEOUT
01594  M01S01590.1ss     +++|
01595  M01S01591.1ss     +++| FCN7     ACN    CH
01596  M01S01592.1ss     +++|          LDN    DSTL
01597  M01S01593.1ss     +++|          IAM    FSTS,CH     READ DETAIL STATUS
01598  M01S01594.1ss     +++| FCN8     DCN    CH+40
01599  M01S01595.1ss     +++|          RJM    DST         GET DIAGNOSTIC STATUS
01600  M01S01596.1ss     +++|          ERROR  RCFCTO      FUNCTION TIMEOUT
01601  M01S01597.1ss     +++| FIN      SPACE  4,10
01602  M01S01598.1ss     +++|**        FIN - FLUSH INPUT.
01603  M01S01599.1ss     +++|*
01604  M01S01600.1ss     +++|*         ENTRY  CHANNEL ACTIVE.
01605  M01S01601.1ss     +++|*
01606  M01S01602.1ss     +++|*         EXIT   INPUT OPERATION COMPLETE.
01607  M01S01603.1ss     +++|*
01608  M01S01604.1ss     +++|*         CALLS  NONE.
01609  M01S01605.1ss     +++|*
01610  M01S01606.1ss     +++|*         USES   NONE.
01611  M01S01607.1ss     +++|
01612  M01S01608.1ss     +++|
01613  M01S01609.1ss     +++| FIN      SUBR               ENTRY/EXIT
01614  M01S01610.1ss     +++| FIN1     IJM    FINX,CH     IF COMPLETE
01615  M01S01611.1ss     +++|          LCN    0
01616  M01S01612.1ss     +++| FIN2     FJM    FIN3,CH     IF INPUT READY
01617  M01S01613.1ss     +++|          SBN    1
01618  M01S01614.1ss     +++|          NJN    FIN2        IF NOT TIMEOUT
01619  M01S01615.1ss     +++|          DCN    CH+40
01620  M01S01616.1ss     +++|          UJN    FINX        RETURN
01621  M01S01617.1ss     +++|
01622  M01S01618.1ss     +++| FIN3     IAN    CH+40
01623  M01S01619.1ss     +++|          UJN    FIN1        GET NEXT BYTE
01624  M01S01620.1ss     +++| MCL      SPACE  4,15
01625  M01S01621.1ss     +++|**        MCL - MASTER CLEAR FSC.
01626  M01S01622.1ss     +++|*
01627  M01S01623.1ss     +++|*         ENTRY  CHANNEL RESERVED.
01628  M01S01624.1ss     +++|*
01629  M01S01625.1ss     +++|*         EXIT   FSC MASTERCLEARED.
01630  M01S01626.1ss     +++|*
01631  M01S01627.1ss     +++|*         CALLS  NONE.
01632  M01S01628.1ss     +++|*
01633  M01S01629.1ss     +++|*         USES   T0.
01634  M01S01630.1ss     +++|
01635  M01S01631.1ss     +++|
01636  M01S01632.1ss     +++| MCL      SUBR               ENTRY/EXIT
01637  M01S01633.1ss     +++|          DCN    CH+40       INSURE CHANNEL INACTIVE
01638  M01S01634.1ss     +++|          FNC    MCLF,CH     MASTERCLEAR
01639  M01S01635.1ss     +++|          LDN    12
01640  M01S01636.1ss     +++|          STD    T0
01641  M01S01637.1ss     +++| MCL1     SOD    T0
01642  M01S01638.1ss     +++|          MJN    MCL3        IF TIMEOUT
01643  M01S01639.1ss     +++| MCL2     ADN    1
01644  M01S01640.1ss     +++|          PJN    MCL2        DELAY
01645  M01S01641.1ss     +++|          AJM    MCL1,CH     IF NOT PROCESSED
01646  M01S01642.1ss     +++|          ACN    CH
01647  M01S01643.1ss     +++|          OAN    CH
01648  M01S01644.1ss     +++|          OAN    CH
01649  M01S01645.1ss     +++|          DELAY
01650  M01S01646.1ss     +++| MCL3     DCN    CH+40
01651  M01S01647.1ss     +++|          UJN    MCLX        RETURN
01652  M01S01648.1ss     +++| MDF      SPACE  4,10
01653  M01S01649.1ss     +++|**        MDF - MESSAGE TYPE TO DAYFILE.
01654  M01S01650.1ss     +++|*
01655  M01S01651.1ss     +++|*         ENTRY  (BUFR+2,3) = MESSAGE TYPE, SUBTYPE.
01656  M01S01652.1ss     +++|*                (A) = *IN* OR *OT*.
01657  M01S01653.1ss     +++|*
01658  M01S01654.1ss     +++|*         EXIT   MESSAGE TO LOCAL DAYFILE.
01659  M01S01655.1ss     +++|*
01660  M01S01656.1ss     +++|*         USES   CM.
01661  M01S01657.1ss     +++|*
01662  M01S01658.1ss     +++|*         CALLS  CTH, DFM.
01663  M01S01659.1ss     +++|
01664  M01S01660.1ss     +++|
01665  M01S01661.1ss     +++| MDF      SUBR               ENTRY/EXIT
01666  M01S01662.1ss     +++|          STM    MDFC
01667  M01S01663.1ss     +++|          CHTE   *
01668  M01S01664.1ss     +++|          LDN    0
01669  M01S01665.1ss     +++|          STD    T0
01670  M01S01666.1ss     +++|          SHN    3
01671  M01S01667.1ss     +++|          LMD    T0
01672  M01S01668.1ss     +++|          SCN    70
01673  M01S01669.1ss     +++|          ADC    2R00
01674  M01S01670.1ss     +++|          STM    MDFAA+1
01675  M01S01671.1ss     +++|          LDM    BUFR+2      FIRST DIGIT OF TYPE
01676  M01S01672.1ss     +++|          RJM    CTH         CONVERT TO HEX DISPLAY CODE
01677  M01S01673.1ss     +++|          SHN    6
01678  M01S01674.1ss     +++|          STM    MDFA+2      STORE IN MESSAGE
01679  M01S01675.1ss     +++|          LDM    BUFR+3      REST OF TYPE, SUBTYPE
01680  M01S01676.1ss     +++|          STD    CM
01681  M01S01677.1ss     +++|          SHN    -10
01682  M01S01678.1ss     +++|          RJM    CTH         CONVERT TO HEX DISPLAY CODE
01683  M01S01679.1ss     +++|          RAM    MDFA+2
01684  M01S01680.1ss     +++|          LDD    CM
01685  M01S01681.1ss     +++|          SHN    -4
01686  M01S01682.1ss     +++|          RJM    CTH         CONVERT TO HEX DISPLAY CODE
01687  M01S01683.1ss     +++|          SHN    6
01688  M01S01684.1ss     +++|          STM    MDFA+4
01689  M01S01685.1ss     +++|          LDD    CM
01690  M01S01686.1ss     +++|          RJM    CTH         CONVERT TO HEX DISPLAY CODE
01691  M01S01687.1ss     +++|          RAM    MDFA+4
01692  M01S01688.1ss     +++|          LDC    RTCL
01693  M01S01689.1ss     +++|          CRD    CM          READ MILLISECOND CLOCK
01694  M01S01690.1ss     +++|          LDN    0
01695  M01S01691.1ss     +++|          STD    CM          CLEAR SECOND COUNT
01696  M01S01692.1ss     +++|          STD    CM+1
01697  M01S01693.1ss     +++|          STD    CM+2        ONLY USE 24 BITS
01698  M01S01694.1ss     +++|          LDD    MA
01699  M01S01695.1ss     +++|          CWD    CM
01700  M01S01696.1ss     +++|          LDN    1
01701  M01S01697.1ss     +++|          STD    CM+1        ONLY 1 VALUE TO BE CONVERTED
01702  M01S01698.1ss     +++|          MONITOR RDCM       CONVERT TO F10.3
01703  M01S01699.1ss     +++|          LDD    MA
01704  M01S01700.1ss     +++|          CRM    MDFB,ON     READ TO MESSAGE
01705  M01S01701.1ss     +++|          LDM    BUFR+35D    GET MESSAGE RETURN CODE
01706  M01S01702.1ss     +++|          STD    T2
01707  M01S01703.1ss     +++|          LDM    BUFR+34D
01708  M01S01704.1ss     +++|          LPN    0#F
01709  M01S01705.1ss     +++|          STD    T1
01710  M01S01706.1ss     +++|          RJM    CTH         CONVERT TO HEX
01711  M01S01707.1ss     +++|          SHN    6
01712  M01S01708.1ss     +++|          STM    MDFD
01713  M01S01709.1ss     +++|          LDD    T2
01714  M01S01710.1ss     +++|          SHN    -8D
01715  M01S01711.1ss     +++|          RJM    CTH         CONVERT TO HEX
01716  M01S01712.1ss     +++|          RAM    MDFD
01717  M01S01713.1ss     +++|          LDD    T2
01718  M01S01714.1ss     +++|          SHN    -4
01719  M01S01715.1ss     +++|          RJM    CTH         CONVERT TO HEX
01720  M01S01716.1ss     +++|          SHN    6
01721  M01S01717.1ss     +++|          STM    MDFD+1
01722  M01S01718.1ss     +++|          LDD    T2
01723  M01S01719.1ss     +++|          RJM    CTH         CONVERT TO HEX
01724  M01S01720.1ss     +++|          RAM    MDFD+1
01725  M01S01721.1ss     +++|          LDD    T1
01726  M01S01722.1ss     +++|          ADD    T2
01727  M01S01723.1ss     +++|          NJN    MDF1        IF RETURN CODE PRESENT
01728  M01S01724.1ss     +++|          STM    MDFD        SET END OF LINE
01729  M01S01725.1ss     +++| MDF1     LDC    MDFAA+CPON
01730  M01S01726.1ss     +++|          RJM    DFM         ISSUE MESSAGE TO LOCAL DAYFILE
01731  M01S01727.1ss     +++|          LJM    MDFX        RETURN
01732  M01S01728.1ss     +++|
01733  M01S01729.1ss     +++|
01734  M01S01730.1ss     +++| MDFAA    DATA   4H CXX      CHANNEL NUMBER
01735  M01S01731.1ss     +++| MDFA     DATA   12H MS XX, YY.
01736  M01S01732.1ss     +++| MDFB     BSS    5           MILLISECOND CLOCK F10.3
01737  M01S01733.1ss     +++|          DATA   2H
01738  M01S01734.1ss     +++| MDFC     CON    0           *IN* OR *OT*
01739  M01S01735.1ss     +++|          CON    2H
01740  M01S01736.1ss     +++| MDFD     BSS    2           RETURN CODE
01741  M01S01737.1ss     +++|          CON    0           END OF LINE
01742  M01S01738.1ss     +++| CTH      SPACE  4,10
01743  M01S01739.1ss     +++|**        CTH - CONVERT TO HEX DISPLAY CODE.
01744  M01S01740.1ss     +++|*
01745  M01S01741.1ss     +++|*         ENTRY  (A) = NUMBER TO BE CONVERTED.
01746  M01S01742.1ss     +++|*
01747  M01S01743.1ss     +++|*         EXIT   (A) = HEX DISPLAY CODE OF LOWER 4 BITS.
01748  M01S01744.1ss     +++|*
01749  M01S01745.1ss     +++|*         USES   NONE.
01750  M01S01746.1ss     +++|*
01751  M01S01747.1ss     +++|*         CALLS  NONE.
01752  M01S01748.1ss     +++|
01753  M01S01749.1ss     +++|
01754  M01S01750.1ss     +++| CTH1     ADN    1           A THRU F
01755  M01S01751.1ss     +++|
01756  M01S01752.1ss     +++| CTH      SUBR               ENTRY/EXIT
01757  M01S01753.1ss     +++|          LPN    17
01758  M01S01754.1ss     +++|          SBN    12
01759  M01S01755.1ss     +++|          PJN    CTH1        IF A THRU F
01760  M01S01756.1ss     +++|          ADN    1R0+12      0 THRU 9
01761  M01S01757.1ss     +++|          UJN    CTHX        RETURN
01762  M01S01758.1ss     +++| RCL      SPACE  4,10
01763  M01S01759.1ss     +++|**        RCL - RECALL CPU.
01764  M01S01760.1ss     +++|*
01765  M01S01761.1ss     +++|*         ENTRY  (RC) = 0, RECALL CPU.
01766  M01S01762.1ss     +++|*                (A) = 0, IF NOT READ ACTIVE
01767  M01S01763.1ss     +++|*
01768  M01S01764.1ss     +++|*         EXIT   IF NO ERROR.
01769  M01S01765.1ss     +++|*                TO *ERR*, IF TERMINATE FLAG SET.
01770  M01S01766.1ss     +++|*                TO *DPP*, IF ERROR FLAG SET.
01771  M01S01767.1ss     +++|*
01772  M01S01768.1ss     +++|*         CALLS  FIN.
01773  M01S01769.1ss     +++|*
01774  M01S01770.1ss     +++|*         USES   RC, CM - CM+4.
01775  M01S01771.1ss     +++|
01776  M01S01772.1ss     +++|
01777  M01S01773.1ss     +++| RCL      SUBR               ENTRY/EXIT
01778  M01S01774.1ss     +++|          STM    RCLA        SAVE READ STATUS
01779  M01S01775.1ss     +++| RCL0     LDD    OA
01780  M01S01776.1ss     +++|          CRD    CM
01781  M01S01777.1ss     +++|          LDD    CM
01782  M01S01778.1ss     +++|          NJN    RCL0        IF OUTPUT REGISTER NOT CLEAR
01783  M01S01779.1ss     +++|          LDD    RC
01784  M01S01780.1ss     +++|          NJN    RCL1        IF NOT TO RECALL CPU
01785  M01S01781.1ss     +++|          MONITOR DRCM
01786  M01S01782.1ss     +++| RCL1     AOD    RC
01787  M01S01783.1ss     +++|          SBD    HN
01788  M01S01784.1ss     +++|          NJN    RCL2        IF NOT TIME TO RECALL CPU
01789  M01S01785.1ss     +++|          STD    RC
01790  M01S01786.1ss     +++| RCL2     PAUSE
01791  M01S01787.1ss     +++|          LDD    CM+1
01792  M01S01788.1ss     +++|          ZJN    RCL3        IF NO ERROR FLAG
01793  M01S01789.1ss     +++|          LDC    **          READ/WRITE FLAG
01794  M01S01790.1ss     +++| RCLA     EQU    *-1
01795  M01S01791.1ss     +++|          ZJN    RCL2.1      IF NOT READ
01796  M01S01792.1ss     +++|          RJM    FIN         FLUSH INPUT
01797  M01S01793.1ss     +++| RCL2.1   DCN    CH+40
01798  M01S01794.1ss     +++|          RJM    REL         RELEASE CHANNEL
01799  M01S01795.1ss     +++|          LJM    DPP         DROP PP
01800  M01S01796.1ss     +++|
01801  M01S01797.1ss     +++| RCL3     FETA   4
01802  M01S01798.1ss     +++|          CRD    CM          READ LIMIT WORD
01803  M01S01799.1ss     +++|          LDD    CM+3
01804  M01S01800.1ss     +++|          SHN    -6
01805  M01S01801.1ss     +++|          NJN    RCL4        IF TERMINATE STREAMING FLAG
01806  M01S01802.1ss     +++|          LJM    RCLX        RETURN
01807  M01S01803.1ss     +++|
01808  M01S01804.1ss     +++| RCL4     LDM    RCLA
01809  M01S01805.1ss     +++|          ZJN    RCL5        IF NOT READ OPERATION
01810  M01S01806.1ss     +++|          RJM    FIN         FLUSH INPUT
01811  M01S01807.1ss     +++| RCL5     DCN    CH+40
01812  M01S01808.1ss     +++|          ERROR  RCTERF      TERMINATE FLAG SET
01813  M01S01809.1ss     +++| REL      SPACE  4,10
01814  M01S01810.1ss     +++|**        REL - RELEASE CHANNEL.
01815  M01S01811.1ss     +++|*
01816  M01S01812.1ss     +++|*         ENTRY  NONE.
01817  M01S01813.1ss     +++|*
01818  M01S01814.1ss     +++|*         EXIT   CHANNEL RELEASED.
01819  M01S01815.1ss     +++|*                TO *DPP* IF ERROR FLAG SET.
01820  M01S01816.1ss     +++|*
01821  M01S01817.1ss     +++|*         CALLS  NONE.
01822  M01S01818.1ss     +++|*
01823  M01S01819.1ss     +++|*         USES   CM - CM+4.
01824  M01S01820.1ss     +++|
01825  M01S01821.1ss     +++|
01826  M01S01822.1ss     +++| REL      SUBR               ENTRY/EXIT
01827  M01S01823.1ss     +++| REL0     LDD    OA
01828  M01S01824.1ss     +++|          CRD    CM
01829  M01S01825.1ss     +++|          LDD    CM
01830  M01S01826.1ss     +++|          NJN    REL0        IF OUTPUT REGISTER NOT CLEAR
01831  M01S01827.1ss     +++|          LDC    0
01832  M01S01828.1ss     +++| RELA     EQU    *-1
01833  M01S01829.1ss     +++|          ZJN    REL1        IF CHANNEL NOT RESERVED
01834  M01S01830.1ss     +++|          CHTE   *
01835  M01S01831.1ss     +++|          LDN    CH
01836  M01S01832.1ss     +++|          DCHAN
01837  M01S01833.1ss     +++|*         LDN    0
01838  M01S01834.1ss     +++|          STM    RELA        FLAG CHANNEL NOT RESERVED
01839  M01S01835.1ss     +++| REL1     PAUSE
01840  M01S01836.1ss     +++|          LDD    CM+1
01841  M01S01837.1ss     +++|          ZJN    RELX        IF NO ERROR FLAG
01842  M01S01838.1ss     +++|          LJM    DPP         DROP PP
01843  M01S01839.1ss     +++| RES      SPACE  4,10
01844  M01S01840.1ss     +++|**        RES - RESERVE CHANNEL.
01845  M01S01841.1ss     +++|*
01846  M01S01842.1ss     +++|*         ENTRY  (CH) = CHANNEL(S).
01847  M01S01843.1ss     +++|*
01848  M01S01844.1ss     +++|*         EXIT   CHANNEL RESERVED.
01849  M01S01845.1ss     +++|*
01850  M01S01846.1ss     +++|*         CALLS  NONE.
01851  M01S01847.1ss     +++|*
01852  M01S01848.1ss     +++|*         USES   T1, CM - CM+4.
01853  M01S01849.1ss     +++|
01854  M01S01850.1ss     +++|
01855  M01S01851.1ss     +++| RES      SUBR               ENTRY/EXIT
01856  M01S01852.1ss     +++|          CHTE   *
01857  M01S01853.1ss     +++| RES0     LDN    CH
01858  M01S01854.1ss     +++|          STD    CM+1
01859  M01S01855.1ss     +++|          MONITOR CCHM
01860  M01S01856.1ss     +++|          LDD    CM+2
01861  M01S01857.1ss     +++|          NJN    RES1        IF CHANNEL RESERVED
01862  M01S01858.1ss     +++|          PAUSE
01863  M01S01859.1ss     +++|          LDD    CM+1
01864  M01S01860.1ss     +++|          ZJN    RES0        IF NO ERROR
01865  M01S01861.1ss     +++|          LJM    DPP         EXIT
01866  M01S01862.1ss     +++|
01867  M01S01863.1ss     +++| RES1     AOM    RELA        FLAG CHANNEL RESERVED
01868  M01S01864.1ss     +++|          UJN    RESX        RETURN
01869  M01S01865.1ss     +++| STS      SPACE  4,10
01870  M01S01866.1ss     +++|**        STS - RETURN INTERFACE STATUS.
01871  M01S01867.1ss     +++|*
01872  M01S01868.1ss     +++|*         ENTRY  (A) = STATUS FUNCTION.
01873  M01S01869.1ss     +++|*
01874  M01S01870.1ss     +++|*         EXIT   (A) = (ST) INTERFACE STATUS.
01875  M01S01871.1ss     +++|*
01876  M01S01872.1ss     +++|*         CALLS  FCN, DST.
01877  M01S01873.1ss     +++|*
01878  M01S01874.1ss     +++|*         USES   CM - CM+4, ST, EO.
01879  M01S01875.1ss     +++|
01880  M01S01876.1ss     +++|
01881  M01S01877.1ss     +++| STS      SUBR               ENTRY/EXIT
01882  M01S01878.1ss     +++|          STM    STSA        SAVE STATUS FUNCTION
01883  M01S01879.1ss     +++|          LDC    RTCL
01884  M01S01880.1ss     +++|          CRD    CM          READ CLOCK
01885  M01S01881.1ss     +++|          LDD    CM+1        SECONDS
01886  M01S01882.1ss     +++|          ADC    EOPL        END OF OP. LIMIT
01887  M01S01883.1ss     +++|          STD    EO
01888  M01S01884.1ss     +++| STS0     LDC    **          STATUS FUNCTION
01889  M01S01885.1ss     +++| STSA     EQU    *-1
01890  M01S01886.1ss     +++|          RJM    FCN         ISSUE STATUS FUNCTION
01891  M01S01887.1ss     +++|          ACN    CH
01892  M01S01888.1ss     +++|          LDN    77          WAIT EOP DELAY
01893  M01S01889.1ss     +++| STS1     FJM    STS2,CH     IF STATUS READY
01894  M01S01890.1ss     +++|          SBN    1
01895  M01S01891.1ss     +++|          PJN    STS1        IF NOT TIMEOUT
01896  M01S01892.1ss     +++|          DCN    CH+40
01897  M01S01893.1ss     +++|          PAUSE
01898  M01S01894.1ss     +++|          LDD    CM+1
01899  M01S01895.1ss     +++|          ZJN    STS1.1      IF NO ERROR
01900  M01S01896.1ss     +++|          RJM    REL         RELEASE CHANNEL
01901  M01S01897.1ss     +++|          LJM    DPP         DROP PP
01902  M01S01898.1ss     +++|
01903  M01S01899.1ss     +++| STS1.1   LDC    RTCL
01904  M01S01900.1ss     +++|          CRD    CM          READ CLOCK
01905  M01S01901.1ss     +++|          LDD    EO
01906  M01S01902.1ss     +++|          LMD    CM+1
01907  M01S01903.1ss     +++|          NJN    STS0        IF NOT TIMEOUT
01908  M01S01904.1ss     +++|          RJM    DST         GET DIAGNOSTIC STATUS
01909  M01S01905.1ss     +++|          ERROR  RCNEOP      NO END OF OPERATION
01910  M01S01906.1ss     +++|
01911  M01S01907.1ss     +++| STS2     LDN    GSTL        GENERAL STATUS LENGTH
01912  M01S01908.1ss     +++|          IAM    GSTS,CH
01913  M01S01909.1ss     +++|          DCN    CH+40
01914  M01S01910.1ss     +++|          LDM    GSTS
01915  M01S01911.1ss     +++|          STD    ST
01916  M01S01912.1ss     +++|          SHN    21-13
01917  M01S01913.1ss     +++|          PJN    STS3        IF NOT ALERT
01918  M01S01914.1ss     +++|          LDM    STSA
01919  M01S01915.1ss     +++|          LMN    GSTF
01920  M01S01916.1ss     +++|          NJN    STS3        IF NOT GENERAL STATUS
01921  M01S01917.1ss     +++|          LDC    FSTF
01922  M01S01918.1ss     +++|          RJM    FCN         FSC STATUS FUNCTION
01923  M01S01919.1ss     +++|          ACN    CH
01924  M01S01920.1ss     +++|          LDN    DSTL        DETAIL STATUS (FSC) LENGTH
01925  M01S01921.1ss     +++|          IAM    FSTS,CH     READ FSC STATUS
01926  M01S01922.1ss     +++|          DCN    CH+40
01927  M01S01923.1ss     +++|          RJM    DST         GET DIAGNOSTIC STATUS
01928  M01S01924.1ss     +++| STS3     LDD    ST
01929  M01S01925.1ss     +++|          LJM    STSX        RETURN
01930  M01S01926.1ss     +++|
01931  M01S01927.1ss     +++|
01932  M01S01928.1ss     +++| GSTS     BSS    2           GENERAL STATUS
01933  M01S01929.1ss     +++| STEC     BSS    1           ERROR CODE
01934  M01S01930.1ss     +++| FSTS     BSS    24          FSC STATUS
01935  M01S01931.1ss     +++|          CHTE   *
01936  M01S01932.1ss     +++| CHAN     CON    CH          CHANNEL USED
01937  M01S01933.1ss     +++| DSTS     BSS    1           DIAGNOSTIC STATUS
01938  M01S01934.1ss     +++| WUM      SPACE  4,10
01939  M01S01935.1ss     +++|**        WUM - WAIT UNIT MOUNTED
01940  M01S01936.1ss     +++|*
01941  M01S01937.1ss     +++|*         ENTRY  (UN) = UNIT NUMBER
01942  M01S01938.1ss     +++|*
01943  M01S01939.1ss     +++|*         EXIT   UNIT MOUNTED INTERRUPT SENSED
01944  M01S01940.1ss     +++|*
01945  M01S01941.1ss     +++|*         CALLS  STS, RES, REL.
01946  M01S01942.1ss     +++|*
01947  M01S01943.1ss     +++|*         USES   CM - CM+4.
01948  M01S01944.1ss     +++|
01949  M01S01945.1ss     +++|
01950  M01S01946.1ss     +++| WUM1     RJM    REL         RELEASE CHANNEL
01951  M01S01947.1ss     +++|
01952  M01S01948.1ss     +++| WUM      SUBR               ENTRY/EXIT
01953  M01S01949.1ss     +++|          LDC    RTCL
01954  M01S01950.1ss     +++|          CRD    CM          READ SECOND CLOCK
01955  M01S01951.1ss     +++|          LDD    CM+1
01956  M01S01952.1ss     +++|          ADC    EOPL        END OF OP. LIMIT
01957  M01S01953.1ss     +++|          STM    WUMA
01958  M01S01954.1ss     +++| WUM2     RJM    RES         RESERVE CHANNEL
01959  M01S01955.1ss     +++|          LDD    UN          UNIT NUMBER
01960  M01S01956.1ss     +++|          ADC    CDEF        CHECK DEVICE END
01961  M01S01957.1ss     +++|          RJM    STS
01962  M01S01958.1ss     +++|          SHN    21-13
01963  M01S01959.1ss     +++|          PJN    WUM1        IF NO ALERT
01964  M01S01960.1ss     +++|          LDM    STEC
01965  M01S01961.1ss     +++|          LMN    2
01966  M01S01962.1ss     +++|          NJN    WUM1        IF NOT BUSY
01967  M01S01963.1ss     +++| WUM3     RJM    REL         RELEASE CHANNEL
01968  M01S01964.1ss     +++|          LDC    RTCL
01969  M01S01965.1ss     +++|          CRD    CM
01970  M01S01966.1ss     +++|          LDD    CM+1        SECONDS
01971  M01S01967.1ss     +++|          LMC    **
01972  M01S01968.1ss     +++| WUMA     EQU    *-1
01973  M01S01969.1ss     +++|          NJN    WUM2        IF NOT TIMEOUT
01974  M01S01970.1ss     +++|          ERROR  RCNEOP      NO END OF OPERATION
01975  M01S01971.1ss     +++| BDL      SPACE  4,20
01976  M01S01972.1ss     +++|**        BDL - BUSY DELAY.
01977  M01S01973.1ss     +++|*
01978  M01S01974.1ss     +++|*         ENTRY  BUSY STATUS FROM M860.
01979  M01S01975.1ss     +++|*
01980  M01S01976.1ss     +++|*         EXIT   DELAY TO ALLOW M860 INTERRUPT.
01981  M01S01977.1ss     +++|*
01982  M01S01978.1ss     +++|*         CALLS  NONE
01983  M01S01979.1ss     +++|*
01984  M01S01980.1ss     +++|*         USES   T0.
01985  M01S01981.1ss     +++|
01986  M01S01982.1ss     +++|
01987  M01S01983.1ss     +++| BDL      SUBR               ENTRY/EXIT
01988  M01S01984.1ss     +++|          LDC    10D*100D    100 MSEC. DELAY
01989  M01S01985.1ss     +++|          STD    T0
01990  M01S01986.1ss     +++| BDL1     DELAY
01991  M01S01987.1ss     +++|          SOD    T0
01992  M01S01988.1ss     +++|          NJN    BDL1        IF NOT TIME
01993  M01S01989.1ss     +++|          UJN    BDLX
01994  M01S01990.1ss     +++| CBS      SPACE  4,10
01995  M01S01991.1ss     +++|**        CBS - CHECK BUSY STATUS.
01996  M01S01992.1ss     +++|*
01997  M01S01993.1ss     +++|*         ENTRY  (PC) = PRU COUNT.
01998  M01S01994.1ss     +++|*                (STEC) = STATUS ERROR CODE.
01999  M01S01995.1ss     +++|*
02000  M01S01996.1ss     +++|*         EXIT   (A) = 0, IF TO RETRY OPERATION.
02001  M01S01997.1ss     +++|*
02002  M01S01998.1ss     +++|*         CALLS  REL, RES.
02003  M01S01999.1ss     +++|*
02004  M01S02000.1ss     +++|*         USES   NONE.
02005  M01S02001.1ss     +++|
02006  M01S02002.1ss     +++|
02007  M01S02003.1ss     +++| CBS      SUBR               ENTRY/EXIT
02008  M01S02004.1ss     +++|          LDD    PC
02009  M01S02005.1ss     +++|          NJN    CBSX        IF NOT HEADER
02010  M01S02006.1ss     +++|          LDM    STEC
02011  M01S02007.1ss     +++|          LMN    2
02012  M01S02008.1ss     +++|          NJN    CBSX        IF NOT BUSY ERROR
02013  M01S02009.1ss     +++|          SOM    CBSA
02014  M01S02010.1ss     +++|          NJN    CBS1        IF NOT RETRY LIMIT
02015  M01S02011.1ss     +++|          LDN    1           FLAG NO RETRY
02016  M01S02012.1ss     +++|          UJN    CBSX        RETURN
02017  M01S02013.1ss     +++|
02018  M01S02014.1ss     +++| CBS1     RJM    REL         RELEASE CHANNEL
02019  M01S02015.1ss     +++|          RJM    BDL         BUSY DELAY
02020  M01S02016.1ss     +++|          RJM    RES         RESERVE CHANNEL
02021  M01S02017.1ss     +++|          LDN    0           FLAG RETRY
02022  M01S02018.1ss     +++|          UJN    CBSX        RETURN
02023  M01S02019.1ss     +++|
02024  M01S02020.1ss     +++|
02025  M01S02021.1ss     +++| CBSA     CON    BRTL        RETRY COUNTER
02026  M01S02022.1ss     +++|          TITLE  GENERAL SUBROUTINES.
02027  M01S02023.1ss     +++| CFL      SPACE  4,15
02028  M01S02024.1ss     +++|**        CFL - CHECK FIELD LENGTH.
02029  M01S02025.1ss     +++|*
02030  M01S02026.1ss     +++|*         ENTRY  (A) = RELATIVE ADDRESS TO BE ACCESSED.
02031  M01S02027.1ss     +++|*                (RA) = CURRENT REFERENCE ADDRESS.
02032  M01S02028.1ss     +++|*                (FL) = CURRENT FIELD LENGTH.
02033  M01S02029.1ss     +++|*
02034  M01S02030.1ss     +++|*         EXIT   (A) = RELATIVE + REFERENCE ADDRESS.
02035  M01S02031.1ss     +++|*
02036  M01S02032.1ss     +++|*         CALLS  DFM.
02037  M01S02033.1ss     +++|*
02038  M01S02034.1ss     +++|*         USES   NONE
02039  M01S02035.1ss     +++|
02040  M01S02036.1ss     +++|
02041  M01S02037.1ss     +++|
02042  M01S02038.1ss     +++| CFL3     SHN    15          REPOSITION TO VALUE/100
02043  M01S02039.1ss     +++|          ADD    FL          RESTORE VALUE
02044  M01S02040.1ss     +++|          ADD    RA          ADD RA
02045  M01S02041.1ss     +++|          SHN    6           REPOSITION VALUE
02046  M01S02042.1ss     +++|
02047  M01S02043.1ss     +++| CFL      SUBR               ENTRY/EXIT
02048  M01S02044.1ss     +++|          SBN    2
02049  M01S02045.1ss     +++|          MJN    CFL1        IF ADDRESS TOO SMALL
02050  M01S02046.1ss     +++|          ADN    2
02051  M01S02047.1ss     +++|          SHN    21
02052  M01S02048.1ss     +++|          MJN    CFL2        IF VALUE ODD
02053  M01S02049.1ss     +++|          SHN    15          POSITION TO VALUE/100B
02054  M01S02050.1ss     +++|          SBD    FL
02055  M01S02051.1ss     +++|          SHN    5
02056  M01S02052.1ss     +++|          MJN    CFL3        IF VALUE IN RANGE
02057  M01S02053.1ss     +++| CFL1     LDC    CFLA
02058  M01S02054.1ss     +++|          RJM    DFM         OUTPUT MESSAGE
02059  M01S02055.1ss     +++|          RJM    REL         RELEASE CHANNEL
02060  M01S02056.1ss     +++|          MONITOR HNGM       HANG PPU
02061  M01S02057.1ss     +++|          LJM    DPP1        DROP PP
02062  M01S02058.1ss     +++|
02063  M01S02059.1ss     +++| CFL2     SHN    15          POSITION TO VALUE/100B
02064  M01S02060.1ss     +++|          SBD    FL
02065  M01S02061.1ss     +++|          SHN    5
02066  M01S02062.1ss     +++|          MJN    CFL1        IF VALUE TO BIG (OR NEGATIVE)
02067  M01S02063.1ss     +++|          UJN    CFL3        SET RA
02068  M01S02064.1ss     +++|
02069  M01S02065.1ss     +++| CFLA     DATA   C*1SS ABT.*
02070  M01S02066.1ss     +++| CFS      SPACE  4,10
02071  M01S02067.1ss     +++|**        CFS - CHECK FULL STRIPE.
02072  M01S02068.1ss     +++|*
02073  M01S02069.1ss     +++|*         ENTRY  BUFFER POINTERS INITIALIZED.
02074  M01S02070.1ss     +++|*
02075  M01S02071.1ss     +++|*         EXIT   FULL STRIPE + 1 PRU OR EOI IN BUFFER.
02076  M01S02072.1ss     +++|*
02077  M01S02073.1ss     +++|*         CALLS  COB, DV5, RCL.
02078  M01S02074.1ss     +++|*
02079  M01S02075.1ss     +++|*         USES   T3, CM - CM+4, PC, WC.
02080  M01S02076.1ss     +++|
02081  M01S02077.1ss     +++|
02082  M01S02078.1ss     +++| CFS1     LDC    **          RESTORE ORIGINAL OUT POINTER
02083  M01S02079.1ss     +++| CFSA     EQU    *-1
02084  M01S02080.1ss     +++|          STD    OT+1
02085  M01S02081.1ss     +++|          SHN    -14
02086  M01S02082.1ss     +++|          STD    OT
02087  M01S02083.1ss     +++|          LDN    0
02088  M01S02084.1ss     +++|          STD    PC          RESET PRU COUNT
02089  M01S02085.1ss     +++|
02090  M01S02086.1ss     +++| CFS      SUBR               ENTRY/EXIT
02091  M01S02087.1ss     +++|          LDD    OT+1        SAVE OUT POINTER
02092  M01S02088.1ss     +++|          STM    CFSA
02093  M01S02089.1ss     +++|          LDM    CFSA-1
02094  M01S02090.1ss     +++|          SCN    77
02095  M01S02091.1ss     +++|          ADD    OT
02096  M01S02092.1ss     +++|          STM    CFSA-1
02097  M01S02093.1ss     +++|          LDN    0
02098  M01S02094.1ss     +++|          STD    PC          INITIALIZE PRU COUNT
02099  M01S02095.1ss     +++|          STD    RC          INITIALIZE RECALL COUNT
02100  M01S02096.1ss     +++| CFS2     RJM    COB         CHECK OUTPUT BUFFER
02101  M01S02097.1ss     +++|          NJN    CFS3        IF DATA IN BUFFER
02102  M01S02098.1ss     +++|*         LDN    0           NOT READ
02103  M01S02099.1ss     +++|          RJM    RCL         RECALL CPU
02104  M01S02100.1ss     +++|          UJN    CFS2        CHECK AGAIN
02105  M01S02101.1ss     +++|
02106  M01S02102.1ss     +++| CFS3     LDCA   OT
02107  M01S02103.1ss     +++|          CRD    CM          READ FIRST CONTROL WORD
02108  M01S02104.1ss     +++|          LDD    CM
02109  M01S02105.1ss     +++|          SHN    21-12
02110  M01S02106.1ss     +++|          MJN    CFS4        IF EOI
02111  M01S02107.1ss     +++|          AOD    PC          ADVANCE PRU COUNT
02112  M01S02108.1ss     +++|          SBN    PRUPST+1
02113  M01S02109.1ss     +++|          MJN    CFS5        IF NOT FULL STRIPE + 1 PRU
02114  M01S02110.1ss     +++| CFS4     LJM    CFS1        RESTORE OUT AND RETURN
02115  M01S02111.1ss     +++|
02116  M01S02112.1ss     +++| CFS5     LDD    CM+4        PRU BYTE COUNT
02117  M01S02113.1ss     +++|          RJM    DV5         CM WORD COUNT
02118  M01S02114.1ss     +++|          ADN    2           CONTROL WORDS
02119  M01S02115.1ss     +++|          STD    WC
02120  M01S02116.1ss     +++|          LDD    LM
02121  M01S02117.1ss     +++|          SBD    OT
02122  M01S02118.1ss     +++|          SHN    14
02123  M01S02119.1ss     +++|          ADD    LM+1
02124  M01S02120.1ss     +++|          SBD    OT+1        WORD COUNT TO LIMIT
02125  M01S02121.1ss     +++|          STD    T3
02126  M01S02122.1ss     +++|          SBD    WC
02127  M01S02123.1ss     +++|          MJN    CFS6        IF WRAPAROUND
02128  M01S02124.1ss     +++|          ZJN    CFS6        IF WC = ROOM TO LIMIT
02129  M01S02125.1ss     +++|          LDD    WC
02130  M01S02126.1ss     +++|          RAD    OT+1        ADVANCE OUT
02131  M01S02127.1ss     +++|          SHN    -14
02132  M01S02128.1ss     +++|          RAD    OT
02133  M01S02129.1ss     +++|          LJM    CFS2        CHECK FOR NEXT PRU
02134  M01S02130.1ss     +++|
02135  M01S02131.1ss     +++| CFS6     LDD    FT          SET OUT=FIRST+WC-REMAINDER TO LIMIT
02136  M01S02132.1ss     +++|          SHN    14
02137  M01S02133.1ss     +++|          ADD    FT+1
02138  M01S02134.1ss     +++|          ADD    WC
02139  M01S02135.1ss     +++|          SBD    T3
02140  M01S02136.1ss     +++|          STD    OT+1
02141  M01S02137.1ss     +++|          SHN    -14
02142  M01S02138.1ss     +++|          STD    OT
02143  M01S02139.1ss     +++|          LJM    CFS2        CHECK FOR NEXT PRU
02144  M01S02140.1ss     +++| CIB      SPACE  4
02145  M01S02141.1ss     +++|**        CIB - CHECK INPUT BUFFER.
02146  M01S02142.1ss     +++|*
02147  M01S02143.1ss     +++|*         ENTRY  (FE - FE+1) = FET ADDRESS.
02148  M01S02144.1ss     +++|*                (FT - FT+1) = FIRST ADDRESS OF CM BUFFER.
02149  M01S02145.1ss     +++|*                (IN - IN+1) = NEXT INPUT ADDRESS.
02150  M01S02146.1ss     +++|*                (OT - OT+1) = NEXT OUTPUT ADDRESS.
02151  M01S02147.1ss     +++|*                (LM - LM+1) = LIMIT ADDRESS OF CM BUFFER.
02152  M01S02148.1ss     +++|*
02153  M01S02149.1ss     +++|*         EXIT   (A) = WORD COUNT OF BUFFER.
02154  M01S02150.1ss     +++|*                RESETS (OT - OT+1).
02155  M01S02151.1ss     +++|*
02156  M01S02152.1ss     +++|*         CALLS  CFL.
02157  M01S02153.1ss     +++|*
02158  M01S02154.1ss     +++|*         USES   CM - CM+4.
02159  M01S02155.1ss     +++|
02160  M01S02156.1ss     +++|
02161  M01S02157.1ss     +++| CIB      SUBR               ENTRY/EXIT
02162  M01S02158.1ss     +++|          FETA   3
02163  M01S02159.1ss     +++|          CRD    CM
02164  M01S02160.1ss     +++|          LDD    CM+3        SET OUT
02165  M01S02161.1ss     +++|          LPN    77
02166  M01S02162.1ss     +++|          STD    OT
02167  M01S02163.1ss     +++|          SHN    14
02168  M01S02164.1ss     +++|          LMD    CM+4
02169  M01S02165.1ss     +++|          STD    OT+1
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1ss.txt ยท Last modified: by 127.0.0.1