Deck 1CD

Library Member Format: MODIFY

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.1cd     +++|          IDENT  1CD,ICD
00002  M00S00002.1cd     +++|          PERIPH
00003  M00S00003.1cd     +++|          BASE   MIXED
00004  M00S00004.1cd     +++|          SST
00005  M00S00005.1cd     +++|*COMMENT  1CD - BATCHIO COMBINED DRIVER.

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1970.

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.1cd     +++|          TITLE  1CD - BATCHIO COMBINED DRIVER.
00009  M00S00008.1cd     +++|          SPACE  4,10
00010  M00S00009.1cd     +++|***       1CD - *BATCHIO* COMBINED DRIVER.
00011  M00S00010.1cd     +++|*
00012  M00S00011.1cd     +++|*         G. R. MANSFIELD.   70/09/01.
00013  M00S00012.1cd     +++|*         P. D. HAAS.        73/12/20.
00014  M00S00013.1cd     +++|*         R. M. YASUHARA.    75/01/17.
00015  M00S00014.1cd     +++|*         D. R. HILGREN.     79/01/15.
00016  M00S00015.1cd     +++|*         D. R. HILGREN.     79/04/25.  RESEQUENCED.
00017  M00S00016.1cd     +++|*         A. F. JOHNSTON.    84/11/16.  5870/5970 DRIVER.
00018  M00S00017.1cd     +++|          SPACE  4,10
00019  M00S00018.1cd     +++|***       *1CD* IS THE DEVICE DRIVER FOR *BATCHIO*.  EACH *1CD* CAN
00020  M00S00019.1cd     +++|*         DRIVE A SET OF DEVICES, DEFINED BY THE SUB-DRIVER ITS RUNS.
00021  M00S00020.1cd     +++|*         THE FOLLOWING SUB-DRIVERS AND THE DEVICES THEY HANDLE ARE
00022  M00S00021.1cd     +++|*         AS FOLLOWS:
00023  M00S00022.1cd     +++|*
00024  M00S00023.1cd     +++|*                DCC SUB-DRIVER (UP TO 8 DEVICES PER *1CD*)
00025  M00S00024.1cd     +++|*                  3555/512 - 580
00026  M00S00025.1cd     +++|*                  3446/415
00027  M00S00026.1cd     +++|*                  3447/405
00028  M00S00027.1cd     +++|*
00029  M00S00028.1cd     +++|*                CCC SUB-DRIVER (UP TO 8 DEVICES PER *1CD*)
00030  M00S00029.1cd     +++|*                   5870
00031  M00S00030.1cd     +++|*                   5970
00032  M00S00031.1cd     +++|          SPACE  4,10
00033  M00S00032.1cd     +++|***       1CD CALL.
00034  M00S00033.1cd     +++|*
00035  M00S00034.1cd     +++|*T IR     18/ 1CD, 6/, 12/ DN, 12/ COUNT, 12/ SDT

Figure IR

00036  M00S00035.1cd     +++|*
00037  M00S00036.1cd     +++|*         DN     DRIVER NUMBER (ASSIGNMENT ADDRESS).
00038  M00S00037.1cd     +++|*         COUNT  NUMBER OF DEVICES BEING DRIVEN.
00039  M00S00038.1cd     +++|*         SDT    SUB-DRIVER TYPE
00040  M00S00039.1cd     +++|*                  0 - 6681 DEVICES (LPDT, CRDT, CPDT).
00041  M00S00040.1cd     +++|*                  1 - CCC DEVICES (NPDT).
00042  M00S00041.1cd     +++|          SPACE  4,10
00043  M00S00042.1cd     +++|***              3555/512 - 580 DRIVER CHARACTERISTICS.
00044  M00S00043.1cd     +++|*
00045  M00S00044.1cd     +++|*         LINE SPACING IS NORMALLY DONE IN THE *AUTO EJECT* MODE.  THIS
00046  M00S00045.1cd     +++|*         MEANS CREASES IN THE PAPER ARE SKIPPED VIA THE 3555 OR 580
00047  M00S00046.1cd     +++|*         AUTOMATIC LINE SPACING.  THUS, IT IS NECESARY FOR AUTO EJECT
00048  M00S00047.1cd     +++|*         TO BE DESELECTED IF ONE WANTS TO USE FORMAT CHANNELS TO
00049  M00S00048.1cd     +++|*         ADVANCE FROM PRIOR TO BOTTOM OF FORM TO BEYOND TOP OF FORM.
00050  M00S00049.1cd     +++|*         AN EXAMPLE OF THIS WOULD BE WITH THE TYPICAL *NOS* FORMAT
00051  M00S00050.1cd     +++|*         TAPE WHICH HAS ONLY 1 HOLE IN CHANNEL 6 THUS PROVIDING AN
00052  M00S00051.1cd     +++|*         EJECT OF UP TO TWO PAGES IN ORDER TO INSURE ALL BANNER PAGES
00053  M00S00052.1cd     +++|*         COME OUT FACE UP IF THE PAPER IS PUT IN THE PRINTER
00054  M00S00053.1cd     +++|*         CORRECTLY.  IT SHOULD ALSO BE NOTED THAT DESELECTION OF AUTO
00055  M00S00054.1cd     +++|*         EJECT MODE ON A 512/580 WILL RESULT IN DESELECTION OF
00056  M00S00055.1cd     +++|*         8 LINES/INCH IF PREVIOUSLY SELECTED.
00057  M00S00056.1cd     +++|*
00058  M00S00057.1cd     +++|*         THE FIRST CHARACTER OF THE PRINT LINE CONTROLS THE OPTIONAL
00059  M00S00058.1cd     +++|*         FORMATS.  THIS CHARACTER IS NOT PRINTED.  THE PRINT
00060  M00S00059.1cd     +++|*         LINE THEREFORE CONSISTS OF UP TO 136 CHARACTERS.
00061  M00S00060.1cd     +++|*
00062  M00S00061.1cd     +++|*         THE FORMAT CONTROL CHARACTERS, THE NUMBER OF LINES CHARGED
00063  M00S00062.1cd     +++|*         FOR THEM, AND THEIR FUNCTION FOLLOWS -
00064  M00S00063.1cd     +++|*         CHAR.  LINE CHARGE FUNCTION
00065  M00S00064.1cd     +++|*         C      4           SKIP TO FORMAT CHANNEL 6 AFTER PRINT
00066  M00S00065.1cd     +++|*         D      3           SKIP TO FORMAT CHANNEL 5 AFTER PRINT
00067  M00S00066.1cd     +++|*         E      3           SKIP TO FORMAT CHANNEL 4 AFTER PRINT
00068  M00S00067.1cd     +++|*         F      2           SKIP TO FORMAT CHANNEL 3 AFTER PRINT
00069  M00S00068.1cd     +++|*         G      2           SKIP TO FORMAT CHANNEL 2 AFTER PRINT
00070  M00S00069.1cd     +++|*         H      1           SKIP TO FORMAT CHANNEL 1 AFTER PRINT
00071  M00S00070.1cd     +++|*         Q      0           SUPPRESS AUTO EJECT
00072  M00S00071.1cd     +++|*         R      0           SET AUTO EUECT
00073  M00S00072.1cd     +++|*         S      0           CLEAR 8 LINES/INCH (512/580 ONLY)
00074  M00S00073.1cd     +++|*         T      0           SET 8 LINES/INCH (512/580 ONLY)
00075  M00S00074.1cd     +++|*         V      PL6L OR PL8L EJECT PAGE / RELOAD 580 PFC MEMORY
00076  M00S00075.1cd     +++|*         0      2           SPACE 1 LINE BEFORE PRINT
00077  M00S00076.1cd     +++|*         1      PL6L OR PL8L EJECT PAGE BEFORE PRINT
00078  M00S00077.1cd     +++|*         2      PL6L/2 OR PL8L/2  ADV TO BOTTOM OF FORM BEFORE PRINT
00079  M00S00078.1cd     +++|*         3      4           SKIP TO FORMAT CHANNEL 6 BEFORE PRINT
00080  M00S00079.1cd     +++|*         4      3           SKIP TO FORMAT CHANNEL 5 BEFORE PRINT
00081  M00S00080.1cd     +++|*         5      3           SKIP TO FORMAT CHANNEL 4 BEFORE PRINT
00082  M00S00081.1cd     +++|*         6      2           SKIP TO FORMAT CHANNEL 3 BEFORE PRINT
00083  M00S00082.1cd     +++|*         7      2           SKIP TO FORMAT CHANNEL 2 BEFORE PRINT
00084  M00S00083.1cd     +++|*         8      1           SKIP TO FORMAT CHANNEL 1 BEFORE PRINT
00085  M00S00084.1cd     +++|*         +      1           SUPPRESS SPACE BEFORE PRINT
00086  M00S00085.1cd     +++|*         -      3           SPACE 2 LINES BEFORE PRINT
00087  M00S00086.1cd     +++|*         /      1           SUPPRESS SPACE AFTER PRINT
00088  M00S00087.1cd     +++|*         SPACE  1           NO LINE CONTROL
00089  M00S00088.1cd     +++|*         OTHER  1           NO LINE CONTROL
00090  M00S00089.1cd     +++|*
00091  M00S00090.1cd     +++|*         ANY FORMAT CONTROL OTHER THAN *Q*, *R*, *S*, AND *T*
00092  M00S00091.1cd     +++|*         ARE PROCESSED ONCE FOR THE LINE PRINTED.
00093  M00S00092.1cd     +++|*
00094  M00S00093.1cd     +++|*         IF THE FIRST TWO CHARACTERS OF THE LINE ARE *PM* THEN
00095  M00S00094.1cd     +++|*         THE MESSAGE TEXT ON THE REMAINDER OF THE LINE WILL BE
00096  M00S00095.1cd     +++|*         DISPLAYED ON THE *I* DISPLAY AND THE PRINTING OF THE
00097  M00S00096.1cd     +++|*         FILE WILL BE HALTED UNTIL THE OPERATOR ENTERS A
00098  M00S00097.1cd     +++|*         *CONTINUE* COMMAND. *PM* MESSAGE PROCESSING WILL BE
00099  M00S00098.1cd     +++|*         ALLOWED ONLY FOR USERS THAT HAVE THE *CBIO* VALIDATION
00100  M00S00099.1cd     +++|*         PARAMETER SET IN *AACW*.
00101  M00S00100.1cd     +++|          SPACE  4,10
00102  M00S00101.1cd     +++|***              3446/415 DRIVER CHARACTERISTICS.
00103  M00S00102.1cd     +++|*
00104  M00S00103.1cd     +++|*         HOLLERITH CARDS ARE PUNCHED FROM A LINE CONSISTING OF UP TO
00105  M00S00104.1cd     +++|*         90 CHARACTERS.  HOWEVER, ONLY THE FIRST 80 CHARACTERS
00106  M00S00105.1cd     +++|*         OF THE LINE ARE ACTUALLY PUNCHED.  THE DISPLAY CODE
00107  M00S00106.1cd     +++|*         TO O26/O29 CONVERSION IS ACCOMPLISHED BY A
00108  M00S00107.1cd     +++|*         DISPLAY CODE TO BINARY COLUMN IMAGE CONVERSION IN THE
00109  M00S00108.1cd     +++|*         DRIVER.  THE CARD IS THEN PUNCHED IN BINARY MODE
00110  M00S00109.1cd     +++|*         ON THE 3446.
00111  M00S00110.1cd     +++|*
00112  M00S00111.1cd     +++|*         BINARY DATA ARE PUNCHED IN THE FOLLOWING FORMAT
00113  M00S00112.1cd     +++|*         COLUMN  1 = WORD COUNT AND BINARY CARD INDICATOR (79)
00114  M00S00113.1cd     +++|*         COLUMN  2 = BINARY DATA CHECKSUM MODULO 4095
00115  M00S00114.1cd     +++|*         COLUMNS 3 - 77 = 15 CENTRAL WORDS OF DATA
00116  M00S00115.1cd     +++|*         COLUMN 78 = BLANK
00117  M00S00116.1cd     +++|*         COLUMNS 79 - 80 = 24 BIT BINARY CARD SEQUENCE NUMBER
00118  M00S00117.1cd     +++|*
00119  M00S00118.1cd     +++|*         ABSOLUTE BINARY DATA ARE PUNCHED 16 CENTRAL WORDS/CARD WITH
00120  M00S00119.1cd     +++|*         NO SPECIAL PUNCHES.
00121  M00S00120.1cd     +++|*
00122  M00S00121.1cd     +++|*         END OF RECORD CARDS CONTAIN A 7/8/9 PUNCH IN COLUMN 1
00123  M00S00122.1cd     +++|*         AND THE REMAINDER OF THE CARD IS BLANK.
00124  M00S00123.1cd     +++|*         END OF FILE CARDS CONTAIN A 6/7/9 PUNCH IN COLUMN 1
00125  M00S00124.1cd     +++|*         AND THE REMAINDER OF THE CARD IS BLANK.
00126  M00S00125.1cd     +++|*
00127  M00S00126.1cd     +++|*         CARDS OFFSET ARE AS FOLLOWS -
00128  M00S00127.1cd     +++|*         1.  ALL END OF RECORD CARDS.
00129  M00S00128.1cd     +++|*         2.  THE END OF INFORMATION CARD.
00130  M00S00129.1cd     +++|*         3.  A CARD ON WHICH A COMPARE ERROR WAS DETECTED WILL BE
00131  M00S00130.1cd     +++|*         OFFSET AND ALSO THE FOLLOWING CARD.  THESE 2 CARDS WILL
00132  M00S00131.1cd     +++|*         BE REPUNCHED UNTIL NO ERROR IS DETECTED.
00133  M00S00132.1cd     +++|          SPACE  4,10
00134  M00S00133.1cd     +++|***              3447/405 DRIVER CHARACTERISTICS.
00135  M00S00134.1cd     +++|*
00136  M00S00135.1cd     +++|*         HOLLERITH CARDS ARE READ WITH TRAILING SPACES DELETED.
00137  M00S00136.1cd     +++|*         UP TO 80 CHARACTERS MAY BE TRANSFERRED TO THE CM BUFFER.
00138  M00S00137.1cd     +++|*         HOLLERITH TO DISPLAY CODE TRANSLATION IS ACCOMPLISHED BY
00139  M00S00138.1cd     +++|*         VERIFYING AND CONVERTING THE HOLLERITH DATA TO EXTERNAL BCD
00140  M00S00139.1cd     +++|*         FOLLOWED BY A BCD TO DISPLAY CONVERSION IN THE DRIVER.
00141  M00S00140.1cd     +++|*         ILLEGAL HOLLERITH CODES ARE TRANSLATED AS BLANKS.
00142  M00S00141.1cd     +++|*         HOLLERITH CONVERSION MAY BE CHANGED BY THE USE OF A CARD WITH
00143  M00S00142.1cd     +++|*         5/7/9 PUNCHES IN COLUMN 1 AND THE CONVERSION MODE IN
00144  M00S00143.1cd     +++|*         COLUMN 2.  THE ASSUMED MODE IS O26.  A MODE CHANGE IS IN
00145  M00S00144.1cd     +++|*         EFFECT UNTIL CHANGED.
00146  M00S00145.1cd     +++|*
00147  M00S00146.1cd     +++|*         CONVERSION MODE PUNCHES IN COLUMN 2 -
00148  M00S00147.1cd     +++|*         BLANK        O26
00149  M00S00148.1cd     +++|*         9            O29
00150  M00S00149.1cd     +++|*         4/5/6/7/8/9  LITERAL INPUT
00151  M00S00150.1cd     +++|*                CARDS ARE READ IN BINARY FORMAT WITH NO CONVERSION
00152  M00S00151.1cd     +++|*                OR CHECKING UNTIL A CARD WHICH IS IDENTICAL IN ALL
00153  M00S00152.1cd     +++|*                80 COLUMNS IS READ.
00154  M00S00153.1cd     +++|*
00155  M00S00154.1cd     +++|*         HOLLERITH CONVERSION MAY ALSO BE SIGNALLED BY PUNCHING
00156  M00S00155.1cd     +++|*         *26* OR *29* IN COLUMNS 79 AND 80 OF THE FOLLOWING CARDS -
00157  M00S00156.1cd     +++|*         JOB CARD
00158  M00S00157.1cd     +++|*         EOR (7/8/9) CARD
00159  M00S00158.1cd     +++|*         EOF (6/7/9) CARD
00160  M00S00159.1cd     +++|*
00161  M00S00160.1cd     +++|*         BINARY CARDS MUST CONFORM TO THE ABOVE SPECIFICATION FOR
00162  M00S00161.1cd     +++|*         PUNCHED BINARY DATA.
00163  M00S00162.1cd     +++|*
00164  M00S00163.1cd     +++|*         AN END OF RECORD CONSISTS OF A CARD WITH 7/8/9 PUNCHES IN
00165  M00S00164.1cd     +++|*         COLUMN 1.
00166  M00S00165.1cd     +++|*         AN END OF FILE CONSISTS OF A CARD WITH 6/7/9 PUNCHES IN
00167  M00S00166.1cd     +++|*         COLUMN 1.
00168  M00S00167.1cd     +++|*         AN END OF INFORMATION CONSISTS OF A CARD WITH 6/7/8/9
00169  M00S00168.1cd     +++|*         PUNCHES IN COLUMN 1.
00170  M00S00169.1cd     +++|*         IN ANY CASE, THE REMAINDER OF THE CARD IS NOT CONSIDERED
00171  M00S00170.1cd     +++|*         AS DATA.
00172  M00S00171.1cd     +++|          SPACE  4,10
00173  M00S00172.1cd     +++|***              5870/5970 DRIVER CHARACTERISTICS.
00174  M00S00173.1cd     +++|*
00175  M00S00174.1cd     +++|*         THE DRIVER FOR THE 5870/5970 IS SIMILAR TO THE 3555/512 - 580
00176  M00S00175.1cd     +++|*         DRIVER.
00177  M00S00176.1cd     +++|*
00178  M00S00177.1cd     +++|*         THE FIRST CHARACTER OF THE PRINT LINE CONTAINS THE FORMAT
00179  M00S00178.1cd     +++|*         CONTROL CHARACTER.  THIS CHARACTER IS NOT PRINTED.  THE PRINT
00180  M00S00179.1cd     +++|*         LINE CONSISTS OF UP TO 150 CHARACTERS.
00181  M00S00180.1cd     +++|*
00182  M00S00181.1cd     +++|*         THE FORMAT CONTROL CHARACTERS, THE NUMBER OF LINES CHARGED
00183  M00S00182.1cd     +++|*         FOR THEM, AND THEIR FUNCTION FOLLOWS -
00184  M00S00183.1cd     +++|*
00185  M00S00184.1cd     +++|*         CHAR.  LINE CHARGE FUNCTION
00186  M00S00185.1cd     +++|*         C      1           SKIP TO FORMAT CHANNEL 6 AFTER PRINT
00187  M00S00186.1cd     +++|*         D      1           SKIP TO FORMAT CHANNEL 5 AFTER PRINT
00188  M00S00187.1cd     +++|*         E      1           SKIP TO FORMAT CHANNEL 4 AFTER PRINT
00189  M00S00188.1cd     +++|*         F      1           SKIP TO FORMAT CHANNEL 3 AFTER PRINT
00190  M00S00189.1cd     +++|*         G      1           SKIP TO FORMAT CHANNEL 2 AFTER PRINT
00191  M00S00190.1cd     +++|*         H      1           SKIP TO FORMAT CHANNEL 1 AFTER PRINT
00192  M00S00191.1cd     +++|*         Q      0           LINE IGNORED
00193  M00S00192.1cd     +++|*         R      0           LINE IGNORED
00194  M00S00193.1cd     +++|*         S      0           LINE IGNORED
00195  M00S00194.1cd     +++|*         T      0           LINE IGNORED
00196  M00S00195.1cd     +++|*         V      0           LINE IGNORED
00197  M00S00196.1cd     +++|*         0      2           SPACE 1 LINE BEFORE PRINT
00198  M00S00197.1cd     +++|*         1      1           EJECT PAGE BEFORE PRINT
00199  M00S00198.1cd     +++|*         2      1           ADVANCE TO BOTTOM OF FORM BEFORE PRINT
00200  M00S00199.1cd     +++|*         3      1           SKIP TO FORMAT CHANNEL 6 BEFORE PRINT
00201  M00S00200.1cd     +++|*         4      1           SKIP TO FORMAT CHANNEL 5 BEFORE PRINT
00202  M00S00201.1cd     +++|*         5      1           SKIP TO FORMAT CHANNEL 4 BEFORE PRINT
00203  M00S00202.1cd     +++|*         6      1           SKIP TO FORMAT CHANNEL 3 BEFORE PRINT
00204  M00S00203.1cd     +++|*         7      1           SKIP TO FORMAT CHANNEL 2 BEFORE PRINT
00205  M00S00204.1cd     +++|*         8      1           SKIP TO FORMAT CHANNEL 1 BEFORE PRINT
00206  M00S00205.1cd     +++|*         +      1           SUPPRESS SPACE BEFORE PRINT
00207  M00S00206.1cd     +++|*         -      3           SPACE 2 LINES BEFORE PRINT
00208  M00S00207.1cd     +++|*         /      1           SUPPRESS SPACE AFTER PRINT
00209  M00S00208.1cd     +++|*         SPACE  1           NO LINE CONTROL
00210  M00S00209.1cd     +++|*         OTHER  1           NO LINE CONTROL
00211  M00S00210.1cd     +++|*
00212  M00S00211.1cd     +++|*         IF THE FIRST TWO CHARACTERS OF THE LINE ARE *PM*, THEN
00213  M00S00212.1cd     +++|*         THE REMAINDER OF THE LINE, UP TO 80 CHARACTERS, ARE
00214  M00S00213.1cd     +++|*         CONSIDERED A MESSAGE FOR THE 5870/5970.  THIS IS ONLY
00215  M00S00214.1cd     +++|*         ALLOWED FOR USERS WITH THE *CBIO* VALIDATION.
00216  M00S00215.1cd     +++|          SPACE  4,10
00217  M00S00216.1cd     +++|***       ERRLOG MESSAGES.
00218  M00S00217.1cd     +++|*
00219  M00S00218.1cd     +++|*
00220  M00S00219.1cd     +++|*         *EQXXX CCC/NIP STATUS ERROR.* = A STATUS OF 5XXX WAS
00221  M00S00220.1cd     +++|*                RETURNED FROM THE CCC.
00222  M00S00221.1cd     +++|*
00223  M00S00222.1cd     +++|*         *EQXXX CHANNEL PARITY ERROR.* = A PARITY ERROR WAS DETECTED
00224  M00S00223.1cd     +++|*                ON A CONVERTER OR EQUIPMENT.
00225  M00S00224.1cd     +++|*
00226  M00S00225.1cd     +++|*         *EQXXX COMPARE ERROR.* = COMPARE ERROR WAS DETECTED.
00227  M00S00226.1cd     +++|*
00228  M00S00227.1cd     +++|*         *EQXXX CONTROLLER HUNG BUSY.* = THE CONTROLLER DOES NOT DROP
00229  M00S00228.1cd     +++|*                BUSY STATUS.
00230  M00S00229.1cd     +++|*
00231  M00S00230.1cd     +++|*         *EQXXX FEED FAILURE.* = CARD FEED PROBLEM WAS DETECTED.
00232  M00S00231.1cd     +++|*
00233  M00S00232.1cd     +++|*         *EQXXX FUNCTION TIMEOUT* = A FUNCTION TIMEOUT WAS DETECTED
00234  M00S00233.1cd     +++|*                ON A CONVERTER OR EQUIPMENT FUNCTION.
00235  M00S00234.1cd     +++|*
00236  M00S00235.1cd     +++|*         *EQXXX INCOMPLETE DATA TRANSFER.* = AN INCOMPLETE DATA
00237  M00S00236.1cd     +++|*                TRANSFER WAS DETECTED.
00238  M00S00237.1cd     +++|*
00239  M00S00238.1cd     +++|*         *EQXXX INTERNAL/EXTERNAL REJECT.* = AN INTERNAL OR EXTERNAL
00240  M00S00239.1cd     +++|*                REJECT WAS DETECTED.
00241  M00S00240.1cd     +++|*
00242  M00S00241.1cd     +++|*         *EQXXX NNNN PRINT ERRORS.* = PRINT ERRORS DETECTED.
00243  M00S00242.1cd     +++|*
00244  M00S00243.1cd     +++|*         *EQXXX PFC ERROR.* = ERROR LOADING PFC MEMORY.
00245  M00S00244.1cd     +++|*
00246  M00S00245.1cd     +++|*         *EQXXX PRINT ERROR LIMIT EXCEEDED.* = PRINT ERROR LIMIT WAS
00247  M00S00246.1cd     +++|*                EXCEEDED.
00248  M00S00247.1cd     +++|*
00249  M00S00248.1cd     +++|*         *EQXXX TRANSMISSION PARITY ERROR.* = A TRANSMISSION PARITY
00250  M00S00249.1cd     +++|*                ERROR WAS DETECTED.
00251  M00S00250.1cd     +++|*
00252  M00S00251.1cd     +++|*         *EQXXX TURNED OFF BY SYSTEM.* = FAULTY EQUIPMENT
00253  M00S00252.1cd     +++|*                WAS TURNED OFF BY THE SYSTEM.
00254  M00S00253.1cd     +++|*
00255  M00S00254.1cd     +++|*         WHERE -
00256  M00S00255.1cd     +++|*         EQ = EQUIPMENT MNEMONIC.
00257  M00S00256.1cd     +++|*         XXX = EST ORDINAL.
00258  M00S00257.1cd     +++|*         NNNN = NUMBER OF PRINT ERRORS.
00259  M00S00258.1cd     +++|          SPACE  4,10
00260  M00S00259.1cd     +++|***       OPERATOR *I* DISPLAY STATUS MESSAGES.
00261  M00S00260.1cd     +++|*
00262  M00S00261.1cd     +++|*         *NOT READY.* = DEVICE IS NOT READY.
00263  M00S00262.1cd     +++|*
00264  M00S00263.1cd     +++|*         *NO PAPER.* = PRINTER HAS A PAPER OUT CONDITION.
00265  M00S00264.1cd     +++|*
00266  M00S00265.1cd     +++|*         *COMPARE ERROR.* = CARD PUNCH HAS A COMPARE ERROR.
00267  M00S00266.1cd     +++|*
00268  M00S00267.1cd     +++|*         *FEED FAILURE.* = CARD PUNCH HAS A CARD FEED PROBLEM.
00269  M00S00268.1cd     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00270  M01S00269.ns2655  ---|*         *OFF.* = DEVICE IS IDLE AND *OFF* IN THE EST.
00271  M01S00270.ns2655  ---|*
00272  M01S00271.ns2655  ---|*         *DOWN.* = DEVICE IS *DOWN* AND *OFF* IN THE EST.
00273  M01S00272.ns2655  ---|*
00274  M00S00273.1cd     +++|*         *HOLD.* = DEVICE IS SKIPPING OR HAS BEEN PLACED IN HOLD.

Seq #  *Modification Id* Act 
----------------------------+
00275  M01S00274.ns2655  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00276  M02S00275.ns2655  ---|*         *CHECK PAPER ALIGNMENT.* = CORRECT PAPER ALIGNMENT, IF
00277  M02S00276.ns2655  ---|*         NECESSARY, THEN ENTER *CONTINUE* FROM *DSD*.

Seq #  *Modification Id* Act 
----------------------------+
00278  M02S00001.ns2655  ---|*         *PAPER FAULT.* = CORRECT PAPER ALIGNMENT, IF NECESSARY,
00279  M02S00002.ns2655  ---|*         THEN ENTER *CONTINUE,EST.* FROM *DSD*.
00280  M00S00277.1cd     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00281  M01S00278.1cd9    ---|*         *PM MESSAGE, WAITING CONTINUE.* = PRINTER IS WAITING,
00282  M01S00279.1cd9    ---|*         CHECK *PM* MESSAGE AND *CONTINUE*.

Seq #  *Modification Id* Act 
----------------------------+
00283  M01S00003.1cd9    +++|*         *PM MESSAGE.* = PRINTER IS WAITING; CHECK *PM* MESSAGE
00284  M01S00004.1cd9    +++|*         THEN ENTER *CONTINUE,EST.* FROM *DSD*.
00285  M01S00005.1cd9    +++|*
00286  M01S00006.1cd9    +++|*         *PRINT ERROR.* = CORRECT PRINTER ERROR THEN ENTER
00287  M01S00007.1cd9    +++|*         *CONTINUE,EST.* FROM *DSD*.

Seq #  *Modification Id* Act 
----------------------------+
00288  M01S00280.ns2655  ---|*
00289  M01S00281.ns2655  ---|*         *OFF - CHECK ERRLOG.* = DEVICE HAS BEEN TURNED OFF DUE TO A
00290  M01S00282.ns2655  ---|*         HARDWARE PROBLEM.  CHECK THE ERRLOG FOR THE DETAILS.
00291  M00S00283.1cd     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00292  M01S00284.1cd9    ---|*         *RE-RD 1 CD. COMPARE ERROR.* = CARD READER HAS A
00293  M01S00285.1cd9    ---|*         CARD COMPARE ERROR.  OPERATOR SHOULD RE-READ THE LAST CARD
00294  M01S00286.1cd9    ---|*         IN THE OUTPUT HOPPER.

Seq #  *Modification Id* Act 
----------------------------+
00295  M01S00008.1cd9    +++|*         *RE-RD CD COMPARE ERR.* = CARD READER HAS A CARD COMPARE
00296  M01S00009.1cd9    +++|*         ERROR.  OPERATOR SHOULD RE-READ THE LAST CARD IN THE OUTPUT
00297  M01S00010.1cd9    +++|*         HOPPER.
00298  M00S00287.1cd     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00299  M01S00288.1cd9    ---|*         *ADVANCE 1 CD. RE-RD 3 CDS.* = CARD READER HAS
00300  M01S00289.1cd9    ---|*         ENCOUNTERED A TRANSMISSION PARITY ERROR, AN INCOMPLETE
00301  M01S00290.1cd9    ---|*         DATA TRANSFER, OR A BINARY CHECKSUM ERROR.  IN ORDER TO
00302  M01S00291.1cd9    ---|*         RECOVER, THE OPERATOR MUST ADVANCE THE NEXT CARD IN THE
00303  M01S00292.1cd9    ---|*         INPUT HOPPER, AND THEN RE-READ THE LAST 3 CARDS IN THE
00304  M01S00293.1cd9    ---|*         OUTPUT HOPPER.

Seq #  *Modification Id* Act 
----------------------------+
00305  M01S00011.1cd9    +++|*         *ADV 1 CD RE-RD 3 CDS.* = CARD READER HAS ENCOUNTERED A
00306  M01S00012.1cd9    +++|*         TRANSMISSION PARITY ERROR, AN INCOMPLETE DATA TRANSFER, OR A
00307  M01S00013.1cd9    +++|*         BINARY CHECKSUM ERROR.  IN ORDER TO RECOVER, THE OPERATOR
00308  M01S00014.1cd9    +++|*         MUST ADVANCE THE NEXT CARD IN THE INPUT HOPPER, AND THEN
00309  M01S00015.1cd9    +++|*         RE-READ THE LAST 3 CARDS IN THE OUTPUT HOPPER.
00310  M00S00294.1cd     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00311  M01S00295.1cd9    ---|*         *INTERVENTION REQUIRED.* = THE 5870/5970 REQUIRES OPERATOR

Seq #  *Modification Id* Act 
----------------------------+
00312  M01S00016.1cd9    +++|*         *INTERVENTION NEEDED.* = THE 5870/5970 REQUIRES OPERATOR
00313  M00S00296.1cd     +++|*         INTERVENTION.
00314  M00S00297.1cd     +++|          SPACE  4,10
00315  M00S00298.1cd     +++|***       CHANNEL ERROR PROCESSING.
00316  M00S00299.1cd     +++|*
00317  M00S00300.1cd     +++|*
00318  M00S00301.1cd     +++|*         THE FOLLOWING CHANNEL ERRORS ARE RETRIED *ERRL* TIMES -
00319  M00S00302.1cd     +++|*                CONNECT REJECT.
00320  M00S00303.1cd     +++|*                FUNCTION REJECT.
00321  M00S00304.1cd     +++|*                TRANSMISSION PARITY ERROR.
00322  M00S00305.1cd     +++|*                INCOMPLETE DATA TRANSFER.
00323  M00S00306.1cd     +++|*         THE FOLLOWING CHANNEL ERRORS ARE NOT RETRIED -
00324  M00S00307.1cd     +++|*                6681 FUNCTION TIMEOUT.
00325  M00S00308.1cd     +++|*                EQUIPMENT FUNCTION TIMEOUT.
00326  M00S00309.1cd     +++|*         AFTER THE RETRY LIMIT IS REACHED OR AFTER A FUNCTION
00327  M00S00310.1cd     +++|*         TIMEOUT IS DETECTED, ERROR HANDLING PROCEEDS AS FOLLOWS -
00328  M00S00311.1cd     +++|*                OUTPUT FILES ARE REQUEUED.
00329  M00S00312.1cd     +++|*                TRACKS FOR INPUT FILES ARE DROPPED.
00330  M00S00313.1cd     +++|*                THE FAULTY EQUIPMENT IS TURNED OFF AND DROPPED.
00331  M00S00314.1cd     +++|*                ERROR LOG MESSAGES ARE ISSUED.
00332  M00S00315.1cd     +++|          SPACE  4,10
00333  M00S00316.1cd     +++|***       *1CD* - *QAP* INTERFACE.
00334  M00S00317.1cd     +++|*
00335  M00S00318.1cd     +++|*
00336  M00S00319.1cd     +++|*         *1CD* AND *QAP* COMMUNICATE PRIMARILY VIA BYTE 4 OF THE
00337  M00S00320.1cd     +++|*         FIRST WORD OF THE FET.  WHEN *1CD* MAKES A REQUEST,
00338  M00S00321.1cd     +++|*         THIS BYTE IS SET WITH THE REQUEST CODE AND BIT 0
00339  M00S00322.1cd     +++|*         IS CLEARED, INDICATING THAT THIS BUFFER
00340  M00S00323.1cd     +++|*         IS BUSY.  UPON COMPLETION OF THE REQUESTED TASK,
00341  M00S00324.1cd     +++|*         QAP* SETS BIT 0 OF THIS BYTE, INDICATING THE
00342  M00S00325.1cd     +++|*         BUFFER IS NO LONGER BUSY.
00343  M00S00326.1cd     +++|          SPACE  4,10
00344  M00S00327.1cd     +++|***       NOTES.
00345  M00S00328.1cd     +++|*
00346  M00S00329.1cd     +++|*
00347  M00S00330.1cd     +++|*         (1)  LINES PRODUCING PRINTER *PRINT ERRORS* ARE FLAGGED
00348  M00S00331.1cd     +++|*         ON THE LISTING, AND THEN REPRINTED.  THE OPERATOR MAY
00349  M00S00332.1cd     +++|*         BYPASS ERROR PROCESSING BY TURNING ON SSW1, OR BY MANUALLY
00350  M00S00333.1cd     +++|*         DEPRESSING THE *ERROR OVERRIDE* SWITCH.  THE LATTER
00351  M00S00334.1cd     +++|*         INHIBITS PRINT ERROR ON THE STATUS LINE, AND AS SUCH WILL
00352  M00S00335.1cd     +++|*         SUPPRESS STATISTICS REPORTED IN THE *ERRLOG*.
00353  M00S00336.1cd     +++|*         IF ERROR PROCESSING IS NOT BYPASSED AND MORE THAN
00354  M00S00337.1cd     +++|*         *PERL* CONSECUTIVE LINES HAVE *PRINT ERRORS*, THEN
00355  M00S00338.1cd     +++|*         THE FILE IS REQUEUED AND THE PRINTER IS TURNED OFF.
00356  M00S00339.1cd     +++|*
00357  M00S00340.1cd     +++|*         (2)  INCOMPLETE DATA TRANSFERS AND TRANSMISSION PARITY
00358  M00S00341.1cd     +++|*         ERRORS DETECTED WHILE PUNCHING CARDS ARE COUNTED AND
00359  M00S00342.1cd     +++|*         RETRIED A MAXIMUM OF *ERRL* TIMES PER CARD IMAGE.
00360  M00S00343.1cd     +++|*         IF *ERRL* IS REACHED, THEN THE PUNCH FILE WILL BE
00361  M00S00344.1cd     +++|*         REQUEUED AND THE EQUIPMENT TURNED OFF.  IF *ERRL*
00362  M00S00345.1cd     +++|*         IS NOT REACHED, ONLY THE LAST BAD CARD IS OFFSET FOR
00363  M00S00346.1cd     +++|*         A GIVEN CARD IMAGE, INDEPENDENT OF THE NUMBER OF
00364  M00S00347.1cd     +++|*         RETRIES FOR THAT CARD IMAGE.
00365  M00S00348.1cd     +++|*
00366  M00S00349.1cd     +++|*         (3)  THE CARD PUNCH ERROR COUNT IS PUNCHED IN COLUMN
00367  M00S00350.1cd     +++|*         40 OF THE EOI CARD.
00368  M00S00351.1cd     +++|          SPACE  4,10
00369  M00S00352.1cd     +++|**        PROGRAMMING CONSIDERATIONS.
00370  M00S00353.1cd     +++|*
00371  M00S00354.1cd     +++|*
00372  M00S00355.1cd     +++|*         (1)  BEFORE ADDING CODE TO THIS ROUTINE, ONE SHOULD
00373  M00S00356.1cd     +++|*         UNDERSTAND WHAT HAPPENS ON A FUNCTION REJECT OR WAIT NOT
00374  M00S00357.1cd     +++|*         BUSY CONDITION.  SEE SUBROUTINES *FCN* AND *WNB*.
00375  M00S00358.1cd     +++|*
00376  M00S00359.1cd     +++|*         (2)  THE PROGRAMMER SHOULD BE AWARE OF THE IMPLICATIONS
00377  M00S00360.1cd     +++|*         OF JUMPING TO MANAGER FROM A SUBROUTINE.  IF THAT
00378  M00S00361.1cd     +++|*         SUBROUTINE IS CALLED MORE THAN ONCE, ANOTHER EQUIPMENT
00379  M00S00362.1cd     +++|*         DRIVEN BY THIS SAME *1CD* COULD CONCEIVABLY CALL THE
00380  M00S00363.1cd     +++|*         SAME SUBROUTINE FROM A DIFFERENT LOCATION.  THUS, THE
00381  M00S00364.1cd     +++|*         RETURN ADDRESS WOULD NOT BE CORRECT FOR THE EQUIPMENT
00382  M00S00365.1cd     +++|*         THAT FIRST CALLED THE SUBROUTINE WHEN IT RESUMES
00383  M00S00366.1cd     +++|*         PROCESSING.
00384  M00S00367.1cd     +++|          SPACE  4,10
00385  M00S00368.1cd     +++|***       PROGRAMS CALLED.
00386  M00S00369.1cd     +++|*
00387  M00S00370.1cd     +++|*         CIO - COMBINED I/O.
00388  M00S00371.1cd     +++|*         QAP - QUEUE AUXILIARY PROCESSOR.
00389  M00S00372.1cd     +++|          SPACE  4,10
00390  M00S00373.1cd     +++|*         COMMON DECKS.
00391  M00S00374.1cd     +++|
00392  M00S00375.1cd     +++|
00393  M00S00376.1cd     +++|*CALL     COMPMAC
00394  M00S00377.1cd     +++|          LIST   X
00395  M00S00378.1cd     +++|*CALL     COMSBIO
00396  M00S00379.1cd     +++|          LIST   *
00397  M00S00380.1cd     +++|*CALL     COMSCPS
00398  M00S00381.1cd     +++|*CALL     COMSJIO
00399  M00S00382.1cd     +++|*CALL     COMSPIM
00400  M00S00383.1cd     +++|          SPACE  4,10
00401  M00S00384.1cd     +++|****      DIRECT CELL USAGE.
00402  M00S00385.1cd     +++|
00403  M00S00386.1cd     +++|
00404  M00S00387.1cd     +++| DB       EQU    15          DATA BUFFER ADDRESS
00405  M00S00388.1cd     +++| FC       EQU    16          FUNCTION CODE
00406  M00S00389.1cd     +++| PA       EQU    17          PROCESSING ADDRESS
00407  M00S00390.1cd     +++| FP       EQU    20 - 24     FILE PARAMETERS (FET+5) (5 LOCATIONS)

Seq #  *Modification Id* Act 
----------------------------+
00408  M01S00001.ns2319  +++| BF       EQU    FP          BUFFER POINT OFFSET
00409  M00S00391.1cd     +++| BI       EQU    25          PP BUFFER CONTROL INDEX
00410  M00S00392.1cd     +++| DA       EQU    26          DATA ADDRESS
00411  M00S00393.1cd     +++| BR       EQU    27          BUSY RETURN

Seq #  *Modification Id* Act 
----------------------------+
00412  M01S00394.1cd9    ---| F6       EQU    30 - 34     FILE PARAMETERS (FET+6) (5 LOCATIONS)
00413  M01S00395.1cd9    ---| CS       EQU    F6          CONVERTER STATUS (FET+6 - BYTE 0)
00414  M01S00396.1cd9    ---| ST       EQU    F6+1        EQUIPMENT STATUS (FET+6 - BYTE 1)
00415  M01S00397.1cd9    ---| UL       EQU    F6+3 - F6+4 USER LIMIT (FET+6 - BYTES 3 AND 4)

Seq #  *Modification Id* Act 
----------------------------+
00416  M01S00017.1cd9    +++| F2       EQU    30 - 34     FILE PARAM WORD 2 (FET+12) (5 LOCATIONS)
00417  M01S00018.1cd9    +++| CS       EQU    F2          CONVERTER STATUS (FET+12 - BYTE 0)
00418  M01S00019.1cd9    +++| ST       EQU    F2+1        EQUIPMENT STATUS (FET+12 - BYTE 1)
00419  M01S00020.1cd9    +++| UL       EQU    F2+3 - F2+4 USER LIMIT (FET+12 - BYTES 3 AND 4)
00420  M00S00398.1cd     +++| CR       EQU    35          CHANNEL RESERVED
00421  M00S00399.1cd     +++| EQ       EQU    36          EQUIPMENT TYPE NUMBER
00422  M00S00400.1cd     +++| TL       EQU    37          CONVERSION TABLE LENGTH
00423  M00S00401.1cd     +++| BS       EQU    40 - 44     BUFFER STATUS (5 LOCATIONS)

Seq #  *Modification Id* Act 
----------------------------+
00424  M01S00402.ns2319  ---| BF       EQU    45          BUFFER POINT ADDRESS
00425  M00S00403.1cd     +++| SB       EQU    46          STATUS BLOCK WRITE LOCKOUT
00426  M00S00404.1cd     +++| BL       EQU    47          EQUIPMENT STATUS BLOCK LENGTH
00427  M00S00405.1cd     +++| FA       EQU    57          ADDRESS OF FST ENTRY
00428  M00S00406.1cd     +++| FT       EQU    60 - 61     FIRST ADDRESS OF CM BUFFER (2 LOCATIONS)
00429  M00S00407.1cd     +++| IN       EQU    62 - 63     NEXT INPUT ADDRESS (2 LOCATIONS)
00430  M00S00408.1cd     +++| OT       EQU    64 - 65     NEXT OUTPUT ADDRESS (2 LOCATIONS)
00431  M00S00409.1cd     +++| LM       EQU    66 - 67     LIMIT ADDRESS OF CM BUFFER (2 LOCATIONS)
00432  M00S00410.1cd     +++|          SPACE  4,10
00433  M00S00411.1cd     +++|*         ASSEMBLY CONSTANTS.
00434  M00S00412.1cd     +++|
00435  M00S00413.1cd     +++|
00436  M00S00414.1cd     +++|*         PROGRAMMERS NOTE - THE DEFAULT CHANNEL SHOULD REMAIN 16B.
00437  M00S00415.1cd     +++|*         THE MAIN LOOP OF *1CD* ASSUMES THAT A CHANNEL IS ALREADY
00438  M00S00416.1cd     +++|*         RESERVED AND IT WILL BE DROPPED WHEN NECESSARY.  IN ORDER TO
00439  M00S00417.1cd     +++|*         ELIMINATE SPECIAL CASE CODE, CHANNEL 16B IS USED IN PRESET
00440  M00S00418.1cd     +++|*         SINCE IT IS DEFINED TO BE NON-DEDICATED AND MAY ALWAYS BE
00441  M00S00419.1cd     +++|*         REQUESTED AND DROPPED.  USE OF ANY OTHER CHANNEL MAY RESULT
00442  M00S00420.1cd     +++|*         IN DEADLOCK WITH PP PROGRAMS WHICH MAY USE THAT CHANNEL IN A
00443  M00S00421.1cd     +++|*         DEDICATED MODE (SUCH AS *1TD*).
00444  M00S00422.1cd     +++|
00445  M00S00423.1cd     +++| CH       EQU    16B         CHANNEL NUMBER
00446  M00S00424.1cd     +++| BUFS     EQU    2           BUFFER TABLE ENTRY LENGTH
00447  M00S00425.1cd     +++|****
00448  M00S00426.1cd     +++|          SPACE  4,10
00449  M00S00427.1cd     +++|*         CONVERSION TABLE AREA.
00450  M00S00428.1cd     +++|
00451  M00S00429.1cd     +++|
00452  M00S00430.1cd     +++| CTID     EQU    MSFW
00453  M00S00431.1cd     +++| CTBL     EQU    CTID+1

Seq #  *Modification Id* Act 
----------------------------+
00454  M01S00432.284l847 ---| CTBLL    EQU    CTID+5*TLEN

Seq #  *Modification Id* Act 
----------------------------+
00455  M01S00001.284l847 +++| CTBLL    EQU    CTID+5*CTLN
00456  M00S00433.1cd     +++|          TITLE  MACRO DEFINITIONS.
00457  M00S00434.1cd     +++|          SPACE  4,10
00458  M00S00435.1cd     +++|**        MACRO DEFINITIONS.
00459  M00S00436.1cd     +++| FMTC     SPACE  4,10
00460  M00S00437.1cd     +++|**        FMTC   C,L,F1,F2
00461  M00S00438.1cd     +++|*
00462  M00S00439.1cd     +++|*         GENERATE ENTRY IN FORMAT CONTROL TABLE.
00463  M00S00440.1cd     +++|*
00464  M00S00441.1cd     +++|*T,       12/ASCII8

Figure

00465  M00S00442.1cd     +++|*T+1,     6/L,6/F2
00466  M00S00443.1cd     +++|*                ASCII8 = 12-BIT ASCII CODE.
00467  M00S00444.1cd     +++|*                C = CONTROL CHARACTER IN 12 BIT ASCII, RIGHT-
00468  M00S00445.1cd     +++|*                    JUSTIFIED.
00469  M00S00446.1cd     +++|*                L = NUMBER OF LINES CHARGED THRU ACCOUNTING.
00470  M00S00447.1cd     +++|*                F2 = FUNCTION CODE FOR 512/580.
00471  M00S00448.1cd     +++|
00472  M00S00449.1cd     +++|
00473  M00S00450.1cd     +++| FMTC     MACRO  C,L,F1,F2
00474  M00S00451.1cd     +++|          NOREF  YY
00475  M00S00452.1cd     +++|          CODE   ASCII
00476  M00S00453.1cd     +++| YY       SET    1R_C+40B
00477  M00S00454.1cd     +++|          VFD    12/YY
00478  M00S00455.1cd     +++|          CODE   *
00479  M00S00456.1cd     +++|          VFD    6/L,6/F2
00480  M00S00457.1cd     +++|          ENDM
00481  M00S00458.1cd     +++| NFMTC    SPACE  4,15
00482  M00S00459.1cd     +++|**        NFMTC - NON-IMPACT PRINTER FORMAT CONTROL TABLE.
00483  M00S00460.1cd     +++|*
00484  M00S00461.1cd     +++|*         NFMTC IS USED TO GENERATE A ENTRY IN THE FORMAT CONTROL
00485  M00S00462.1cd     +++|*         TABLE FOR A NON-IMPACT PRINTER.
00486  M00S00463.1cd     +++|*
00487  M00S00464.1cd     +++|*         NFMTC  C,NP,L,F1,F2
00488  M00S00465.1cd     +++|*
00489  M00S00466.1cd     +++|*         ENTRY  *C* = CONTROL CHARACTER.
00490  M00S00467.1cd     +++|*                *NP* = IF PRESENT, DO NOT PRINT LINE.
00491  M00S00468.1cd     +++|*                *L* = ADDITIONAL LINES TO CHARGE.
00492  M00S00469.1cd     +++|*                *F1* = FUNCTION TO ISSUE TO CCC.
00493  M00S00470.1cd     +++|*                *F2* = ADDITIONAL FUNCTION TO ISSUE AFTER *F1*.
00494  M00S00471.1cd     +++|
00495  M00S00472.1cd     +++|
00496  M00S00473.1cd     +++|          PURGMAC  NFMTC
00497  M00S00474.1cd     +++|
00498  M00S00475.1cd     +++| NFMTC    MACRO  C,NP,L,F1,F2
00499  M00S00476.1cd     +++|          MACREF NFMTC
00500  M00S00477.1cd     +++|          NOREF  YY
00501  M00S00478.1cd     +++|          CODE   ASCII
00502  M00S00479.1cd     +++| YY       SET    1R_C+40B
00503  M00S00480.1cd     +++|          VFD    12/YY
00504  M00S00481.1cd     +++|          CODE   *
00505  M00S00482.1cd     +++|          VFD    6/L
00506  M00S00483.1cd     +++| .A       IFC    EQ,$NP$$
00507  M00S00484.1cd     +++|          VFD    6/0
00508  M00S00485.1cd     +++| .A       ELSE
00509  M00S00486.1cd     +++|          VFD    6/1
00510  M00S00487.1cd     +++| .A       ENDIF
00511  M00S00488.1cd     +++| .A       IFC    EQ,$F2$$
00512  M00S00489.1cd     +++|          VFD    12/F1,12/0
00513  M00S00490.1cd     +++| .A       ELSE
00514  M00S00491.1cd     +++|          VFD    12/F2,12/F1
00515  M00S00492.1cd     +++| .A       ENDIF
00516  M00S00493.1cd     +++| NFMTC    ENDM
00517  M00S00494.1cd     +++| RELM     SPACE  4,10
00518  M00S00495.1cd     +++|**        RELM
00519  M00S00496.1cd     +++|*         REDEFINE -M- TYPE DATA INSTRUCTIONS FOR AUTOMATIC BIAS
00520  M00S00497.1cd     +++|*         BY *EQSB* IF -M- PART OF ADDRESS .LE. *CMDA*.
00521  M00S00498.1cd     +++|*         ORIGINAL FORM AVAILABLE WITH *.* SUFFIX.
00522  M00S00499.1cd     +++|
00523  M00S00500.1cd     +++|
00524  M00S00501.1cd     +++| RELM     MACRO  OPC
00525  M00S00502.1cd     +++| OPC.     OPSYN  OPC
00526  M00S00503.1cd     +++| OPC=     MACRO  M,D
00527  M00S00504.1cd     +++|          IF     DEF,M
00528  M00S00505.1cd     +++|          IFLE   M,CMDA
00529  M00S00506.1cd     +++|          IFC    EQ,*D**
00530  M00S00507.1cd     +++|          OPC.   M+EQSB
00531  M00S00508.1cd     +++|          ELSE
00532  M00S00509.1cd     +++|          OPC.   M,D
00533  M00S00510.1cd     +++|          ENDIF
00534  M00S00511.1cd     +++| OPC=     ENDM
00535  M00S00512.1cd     +++| OPC      OPSYN  OPC=
00536  M00S00513.1cd     +++| RELM     ENDM
00537  M00S00514.1cd     +++|
00538  M00S00515.1cd     +++|
00539  M00S00516.1cd     +++|          RELM   LDM
00540  M00S00517.1cd     +++|          RELM   ADM
00541  M00S00518.1cd     +++|          RELM   SBM
00542  M00S00519.1cd     +++|          RELM   LMM
00543  M00S00520.1cd     +++|          RELM   STM
00544  M00S00521.1cd     +++|          RELM   RAM
00545  M00S00522.1cd     +++|          RELM   AOM
00546  M00S00523.1cd     +++|          RELM   SOM
00547  M00S00524.1cd     +++| STR      SPACE  4,10
00548  M00S00525.1cd     +++|**        STR - GENERATE ASCII STRING.
00549  M00S00526.1cd     +++|*
00550  M00S00527.1cd     +++|*         STR IS USED TO GENERATE A STRING OF ASCII CHARACTERS.
00551  M00S00528.1cd     +++|*         THE CHARACTERS ARE STORED ONE PER BYTE, RIGHT-ADJUSTED.
00552  M00S00529.1cd     +++|*
00553  M00S00530.1cd     +++|*         STR    (ABCD)
00554  M00S00531.1cd     +++|*
00555  M00S00532.1cd     +++|*         ENTRY  *ABCD* = STRING TO GENERATE.
00556  M00S00533.1cd     +++|
00557  M00S00534.1cd     +++|
00558  M00S00535.1cd     +++|          PURGMAC  STR
00559  M00S00536.1cd     +++|
00560  M00S00537.1cd     +++| STR      MACRO  STRING
00561  M00S00538.1cd     +++|          MACREF STR
00562  M00S00539.1cd     +++|          NOREF  .1,.2,.3
00563  M00S00540.1cd     +++| .B       MICRO  1,,(STRING(
00564  M00S00541.1cd     +++| .1       MICCNT .B
00565  M00S00542.1cd     +++| .2       SET    1
00566  M00S00543.1cd     +++|          CODE   ASCII
00567  M00S00544.1cd     +++|          DUP    .1,4
00568  M00S00545.1cd     +++| .C       MICRO  .2,1,#".B"#
00569  M00S00546.1cd     +++| .3       SET    1R".C"+40B
00570  M00S00547.1cd     +++|          VFD    12/.3
00571  M00S00548.1cd     +++| .2       SET    .2+1
00572  M00S00549.1cd     +++|          CODE   *
00573  M00S00550.1cd     +++| STR      ENDM
00574  M00S00551.1cd     +++|          SPACE  4,10
00575  M00S00552.1cd     +++|**        COMMON DECKS.
00576  M00S00553.1cd     +++|
00577  M00S00554.1cd     +++|
00578  M00S00555.1cd     +++|*CALL     COMPCHI
00579  M00S00556.1cd     +++|          TITLE  MANAGER.
00580  M00S00557.1cd     +++| ICD      SPACE  4,10
00581  M00S00558.1cd     +++|**        MGR - EQUIPMENT MANAGER.
00582  M00S00559.1cd     +++|
00583  M00S00560.1cd     +++|
00584  M00S00561.1cd     +++|          ORG    PPFW
00585  M00S00562.1cd     +++|
00586  M00S00563.1cd     +++| ICD      LJM    PRS         PRESET PROGRAM
00587  M00S00564.1cd     +++| MGR      EQU    *-1
00588  M00S00565.1cd     +++|          STM    CMAR        SAVE -A- REGISTER
00589  M00S00566.1cd     +++|          LDM    MGR         STORE PROGRAM ADDRESS
00590  M00S00567.1cd     +++|          STM    CMPA
00591  M00S00568.1cd     +++|          LDN    FRJI        CLEAR FUNCTION REJECT RETRY COUNT
00592  M00S00569.1cd     +++|          RJM    CRV
00593  M00S00570.1cd     +++| MGRA     LDN    0           RESET TIMEOUT COUNTER
00594  M00S00571.1cd     +++|*         LDN    1           (1X PP SPEED)
00595  M00S00572.1cd     +++|*         LDN    2           (2X PP SPEED)
00596  M00S00573.1cd     +++|*         LDN    4           (4X PP SPEED)
00597  M00S00574.1cd     +++|          STM    CMTC
00598  M00S00575.1cd     +++|
00599  M00S00576.1cd     +++|*         *MGR1* IS A SECONDARY ENTRY POINT FOR *MGR*.
00600  M00S00577.1cd     +++|
00601  M00S00578.1cd     +++| MGR1     LDD    BR          STORE BUSY RETURN
00602  M00S00579.1cd     +++|          STM    CMBR
00603  M00S00580.1cd     +++|
00604  M00S00581.1cd     +++|*         PAUSE FOR STORAGE MOVE / CHANNEL REQUESTED.
00605  M00S00582.1cd     +++|
00606  M00S00583.1cd     +++| PSE      LDN    CMCL        READ STORAGE MOVE CONTROL
00607  M00S00584.1cd     +++|          CRD    CM
00608  M00S00585.1cd     +++|          LDD    CP          CHECK CONTROL POINT

Seq #  *Modification Id* Act 
----------------------------+
00609  M01S00001.271l716 +++|          SHN    -7
00610  M00S00586.1cd     +++|          LMD    CM
00611  M00S00587.1cd     +++|          ZJN    PSE2        IF MOVE REQUESTED
00612  M00S00588.1cd     +++|          LCN    0
00613  M00S00589.1cd     +++|          STD    T0
00614  M00S00590.1cd     +++|          LDD    CR
00615  M00S00591.1cd     +++|          STD    T1
00616  M00S00592.1cd     +++| PSE1     AOD    T0          DETERMINE CHANNEL WORD ADDRESS
00617  M00S00593.1cd     +++|          LCN    5
00618  M00S00594.1cd     +++|          RAD    T1
00619  M00S00595.1cd     +++|          PJN    PSE1        IF CORRECT CHANNEL WORD NOT REACHED
00620  M00S00596.1cd     +++|          LDC    0
00621  M00S00597.1cd     +++| PSEA     EQU    *-1         (CHANNEL TABLE ADDRESS)
00622  M00S00598.1cd     +++|          ADD    T0
00623  M00S00599.1cd     +++|          CRD    CM
00624  M00S00600.1cd     +++|          LDM    CM+5,T1     CHECK CHANNEL
00625  M00S00601.1cd     +++|          SHN    -13
00626  M00S00602.1cd     +++|          ZJN    MGR2        IF CHANNEL NOT REQUESTED
00627  M00S00603.1cd     +++| PSE2     LDD    CR          RELEASE CHANNEL
00628  M00S00604.1cd     +++|          DCHAN
00629  M00S00605.1cd     +++|          LDD    CR          RESERVE CHANNEL
00630  M00S00606.1cd     +++|          RCHAN
00631  M00S00607.1cd     +++|*         LDN    0           CLEAR EQUIPMENT COUNTER
00632  M00S00608.1cd     +++| MGR2     STD    T7
00633  M00S00609.1cd     +++|          LDD    RA          READ REQUEST WORD
00634  M00S00610.1cd     +++|          SHN    6
00635  M00S00611.1cd     +++|          ADN    DRQR
00636  M00S00612.1cd     +++|          CRD    CM
00637  M00S00613.1cd     +++|          LDD    SB
00638  M00S00614.1cd     +++|          NJN    MGR2.1      IF STATUS BLOCK INTERLOCKED
00639  M00S00615.1cd     +++|          RJM    SFA
00640  M00S00616.1cd     +++|          ADN    EDSO        STORE STATUS BLOCK
00641  M00S00617.1cd     +++|          CWM    EQSB,BL
00642  M00S00618.1cd     +++| MGR2.1   LDD    CM
00643  M00S00619.1cd     +++|          LMD    IR+2
00644  M00S00620.1cd     +++|          NJN    MGR3        IF NO REQUEST
00645  M00S00621.1cd     +++|          RJM    SEA         SET EQUIPMENT ASSIGNMENT
00646  M00S00622.1cd     +++| MGR3     LDN    BUFS        ADVANCE BUFFER ADDRESS
00647  M00S00623.1cd     +++|          RAD    BI
00648  M00S00624.1cd     +++|          LMC    CBUFL
00649  M00S00625.1cd     +++|          NJN    MGR4        IF NOT END OF BUFFERS
00650  M00S00626.1cd     +++|          LCN    CBUFL-CBUF
00651  M00S00627.1cd     +++|          RAD    BI
00652  M00S00628.1cd     +++| MGR4     LDI    BI
00653  M00S00629.1cd     +++|          ADM    1,BI
00654  M00S00630.1cd     +++|          NJN    MGR5        IF EQUIPMENT ACTIVE
00655  M00S00631.1cd     +++|          AOD    T7          ADVANCE EQUIPMENT COUNTER
00656  M00S00632.1cd     +++|          LMN    MEQD
00657  M00S00633.1cd     +++|          NJN    MGR3        IF NOT LAST EQUIPMENT
00658  M00S00634.1cd     +++|          LDD    CR          RELEASE CHANNEL
00659  M00S00635.1cd     +++|          DCHAN
00660  M00S00636.1cd     +++|          LDD    RA
00661  M00S00637.1cd     +++|          SHN    6
00662  M00S00638.1cd     +++|          ADD    IR+2
00663  M00S00639.1cd     +++|          CWD    CM
00664  M00S00640.1cd     +++|          MONITOR  DPPM      DROP PP
00665  M00S00641.1cd     +++|          LJM    PPR         EXIT TO PP RESIDENT
00666  M00S00642.1cd     +++|
00667  M00S00643.1cd     +++| MGR5     RJM    SFA         READ FET PARAMETERS
00668  M00S00644.1cd     +++|          CRD    BS          BUFFER STATUS
00669  M00S00645.1cd     +++|          ADN    QAPO
00670  M00S00646.1cd     +++|          CRD    T1          QUEUE ACCESS PARAMETER BLOCK

Seq #  *Modification Id* Act 
----------------------------+
00671  M01S00647.ns2487  ---|          SBN    QAPO-6
00672  M01S00648.ns2487  ---|          CRD    F6          FILE PARAMETERS (FET+6)
00673  M01S00649.ns2487  ---|          SBN    1
00674  M01S00650.ns2487  ---|          CRD    FP          FILE PARAMETERS (FET+5)

Seq #  *Modification Id* Act 
----------------------------+
00675  M01S00001.ns2487  +++|          ADN    FPW2-QAPO

Seq #  *Modification Id* Act 
----------------------------+
00676  M02S00002.1cd9    ---|          CRD    F6          FILE PARAMETER WORD 2

Seq #  *Modification Id* Act 
----------------------------+
00677  M01S00021.1cd9    +++|          CRD    F2          FILE PARAMETER WORD 2

Seq #  *Modification Id* Act 
----------------------------+
00678  M01S00003.ns2487  +++|          SBN    FPW2-5
00679  M01S00004.ns2487  +++|          CRD    FP          FILE PARAMETER WORD 1 (FET+5)
00680  M00S00651.1cd     +++|          SBN    1
00681  M00S00652.1cd     +++|          CRD    LM-3        LIMIT
00682  M00S00653.1cd     +++|          CRD    T6
00683  M00S00654.1cd     +++|          SBN    1
00684  M00S00655.1cd     +++|          CRD    OT-3        OUT
00685  M00S00656.1cd     +++|          SBN    1
00686  M00S00657.1cd     +++|          CRD    IN-3        IN
00687  M00S00658.1cd     +++|          SBN    1
00688  M00S00659.1cd     +++|          CRD    CM          FIRST
00689  M00S00660.1cd     +++|          ADN    EDSO-1
00690  M00S00661.1cd     +++|          CRM    EQSB,BL
00691  M00S00662.1cd     +++|          LDM    CMEN        SET EQUIPMENT TYPE
00692  M00S00663.1cd     +++|          LPN    7
00693  M00S00664.1cd     +++|          STD    EQ
00694  M00S00665.1cd     +++|          LDM    CMBR        SET BUSY RETURN
00695  M00S00666.1cd     +++|          STD    BR
00696  M00S00667.1cd     +++|          LDD    CM+3
00697  M00S00668.1cd     +++|          LPN    37
00698  M00S00669.1cd     +++|          STD    FT
00699  M00S00670.1cd     +++|          LDD    CM+4
00700  M00S00671.1cd     +++|          STD    FT+1
00701  M00S00672.1cd     +++|          LDD    BS+4
00702  M00S00673.1cd     +++|          SHN    21-0
00703  M00S00674.1cd     +++|          MJN    MGR6        IF FILE NOT BUSY
00704  M00S00675.1cd     +++|          LDD    T1+4
00705  M00S00676.1cd     +++|          SHN    21-0
00706  M00S00677.1cd     +++|          PJN    MGR6        IF QUEUE ACCESS PARAMETER BLOCK BUSY
00707  M00S00678.1cd     +++|          AOD    BS+4        SET FILE NOT BUSY
00708  M00S00679.1cd     +++|          SOD    T1+4        SET QUEUE ACCESS PARAMETER BLOCK BUSY
00709  M00S00680.1cd     +++|          RJM    SFA         WRITE BUFFER STATUS
00710  M00S00681.1cd     +++|          CWD    BS
00711  M00S00682.1cd     +++|          ADN    QAPO        WRITE QUEUE ACCESS PARAMETER BLOCK
00712  M00S00683.1cd     +++|          CWD    T1
00713  M00S00684.1cd     +++| MGR6     LDD    T6          SET FST ADDRESS
00714  M00S00685.1cd     +++|          ZJN    MGR7        IF NO FNT ENTRY
00715  M00S00686.1cd     +++|          SBN    FSTL
00716  M00S00687.1cd     +++| MGR7     STD    FA
00717  M00S00688.1cd     +++|          LDM    CMSB        SET STATUS BLOCK INTERLOCK FLAG
00718  M00S00689.1cd     +++|          LPN    2
00719  M00S00690.1cd     +++|          STD    SB
00720  M00S00691.1cd     +++|          NJN    MGR9        IF INTERLOCKED
00721  M00S00692.1cd     +++|          LDM    CMDB        SET DATA ADDRESS
00722  M00S00693.1cd     +++|          STD    DA

Seq #  *Modification Id* Act 
----------------------------+
00723  M01S00694.ns2319  ---|          LDM    CMBF        SET BUFFER POINT ADDRESS
00724  M01S00695.ns2319  ---|          STD    BF
00725  M00S00696.1cd     +++|          NFA    BF,R        READ BUFFER POINT WORD
00726  M00S00697.1cd     +++|          CRD    CM
00727  M00S00698.1cd     +++|          LDD    CM+4        CHECK FOR OPERATOR REQUEST
00728  M00S00699.1cd     +++|          LPN    77
00729  M00S00700.1cd     +++|          ZJN    MGR8        IF NO REQUEST
00730  M00S00701.1cd     +++|          RJM    POF         PROCESS OPERATOR REQUEST
00731  M00S00702.1cd     +++| MGR8     RJM    PMR         PROCESS MESSAGE REQUEST
00732  M00S00703.1cd     +++|          NJN    MGR9        IF REQUEST PENDING
00733  M00S00704.1cd     +++|          RJM    **          ENTER SUB-DRIVER PROCESSOR
00734  M00S00705.1cd     +++| MGRB     EQU    *-1         (SET BY *PRS*)
00735  M00S00706.1cd     +++|*         RJM    /3CZ/SDP
00736  M00S00707.1cd     +++|*         RJM    /3CY/SDP
00737  M00S00708.1cd     +++| MGR9     LJM    PSE         CHECK FOR STORAGE MOVE
00738  M00S00709.1cd     +++| TEQD     SPACE  4,10
00739  M00S00710.1cd     +++|**        TEQD - TABLE OF EQUIPMENT DRIVERS.
00740  M00S00711.1cd     +++|*
00741  M00S00712.1cd     +++|*         INDEXED BY EQUIPMENT TYPE CODE.
00742  M00S00713.1cd     +++|
00743  M00S00714.1cd     +++|
00744  M00S00715.1cd     +++| TEQD     INDEX
00745  M00S00716.1cd     +++|          INDEX  LPDT,/3CZ/LPD
00746  M00S00717.1cd     +++|          INDEX  CPDT,/3CZ/CPD
00747  M00S00718.1cd     +++|          INDEX  CRDT,/3CZ/CRD
00748  M00S00719.1cd     +++|          INDEX  NPDT,/3CY/NPD
00749  M00S00720.1cd     +++|          INDEX  MXDT
00750  M00S00721.1cd     +++| TDCM     SPACE  4,10
00751  M00S00722.1cd     +++|**        TDCM - TABLE OF DEFAULT CONVERSION MODES.
00752  M00S00723.1cd     +++|*
00753  M00S00724.1cd     +++|*         INDEXED BY EQUIPMENT TYPE CODE.
00754  M00S00725.1cd     +++|
00755  M00S00726.1cd     +++|
00756  M00S00727.1cd     +++| TDCM     INDEX
00757  M00S00728.1cd     +++|          INDEX  LPDT,CDX8
00758  M00S00729.1cd     +++|          INDEX  CPDT,CDXH
00759  M00S00730.1cd     +++|          INDEX  CRDT,C6XD
00760  M00S00731.1cd     +++|          INDEX  NPDT,CDX8
00761  M00S00732.1cd     +++|          INDEX  MXDT
00762  M00S00733.1cd     +++| TNRP     SPACE  4,10
00763  M00S00734.1cd     +++|**        TNRP - TABLE OF *NOT READY* PROCESSORS.
00764  M00S00735.1cd     +++|*
00765  M00S00736.1cd     +++|*         INDEXED BY EQUIPMENT TYPE CODE.
00766  M00S00737.1cd     +++|
00767  M00S00738.1cd     +++|
00768  M00S00739.1cd     +++| TNRP     INDEX
00769  M00S00740.1cd     +++|          INDEX  LPDT,/3CZ/LPE
00770  M00S00741.1cd     +++|          INDEX  CPDT,/3CZ/CPE
00771  M00S00742.1cd     +++|          INDEX  CRDT,/3CZ/CRE
00772  M00S00743.1cd     +++|          INDEX  NPDT,/3CY/NPE
00773  M00S00744.1cd     +++|          INDEX  MXDT
00774  M00S00745.1cd     +++| SEA      SPACE  4,15
00775  M00S00746.1cd     +++|**        SEA - SET EQUIPMENT ASSIGNMENT.
00776  M00S00747.1cd     +++|*
00777  M00S00748.1cd     +++|*         ENTRY  (CM - CM+4) = EQUIPMENT ASSIGNMENT.
00778  M00S00749.1cd     +++|*
00779  M00S00750.1cd     +++|*         EXIT   BUFFER INITIALIZED.
00780  M00S00751.1cd     +++|*
00781  M00S00752.1cd     +++|*         USES   EQ, IR+3, T1, CM - CM+4.
00782  M00S00753.1cd     +++|*
00783  M00S00754.1cd     +++|*         CALLS  CLB, SFA.
00784  M00S00755.1cd     +++|*
00785  M00S00756.1cd     +++|*         MACROS MONITOR.
00786  M00S00757.1cd     +++|
00787  M00S00758.1cd     +++|
00788  M00S00759.1cd     +++| SEA2     MONITOR  HNGM      HANG PP
00789  M00S00760.1cd     +++|
00790  M00S00761.1cd     +++| SEA      SUBR               ENTRY/EXIT
00791  M00S00762.1cd     +++|          LDD    CM+1        SET EQUIPMENT TYPE
00792  M00S00763.1cd     +++|          LPN    7
00793  M00S00764.1cd     +++|          STD    EQ
00794  M00S00765.1cd     +++|          SBN    MXDT
00795  M00S00766.1cd     +++|          PJN    SEA2        IF DRIVER NOT AVAILABLE
00796  M00S00767.1cd     +++|          LDC    CBUF-BUFS   SET BUFFER ADDRESS
00797  M00S00768.1cd     +++|          STD    T1
00798  M00S00769.1cd     +++| SEA1     LDN    BUFS        ADVANCE BUFFER ADDRESS
00799  M00S00770.1cd     +++|          RAD    T1
00800  M00S00771.1cd     +++|          LMC    CBUFL
00801  M00S00772.1cd     +++|          ZJN    SEAX        IF ALL BUFFERS BUSY
00802  M00S00773.1cd     +++|          LDI    T1
00803  M00S00774.1cd     +++|          ADM    1,T1
00804  M00S00775.1cd     +++|          NJN    SEA1        IF BUFFER IN USE
00805  M00S00776.1cd     +++|          STD    SB
00806  M00S00777.1cd     +++|          LDD    T1
00807  M00S00778.1cd     +++|          STD    BI
00808  M00S00779.1cd     +++|          LDD    CM+3        SET BUFFER ADDRESS
00809  M00S00780.1cd     +++|          STI    BI
00810  M00S00781.1cd     +++|          LDD    CM+4
00811  M00S00782.1cd     +++|          STM    1,BI
00812  M00S00783.1cd     +++|          RJM    SFA         READ DRIVER STATUS BLOCK
00813  M00S00784.1cd     +++|          ADN    EDSO
00814  M00S00785.1cd     +++|          CRM    EQSB,BL
00815  M00S00786.1cd     +++|          RJM    CLB         CLEAR STATUS BLOCK
00816  M00S00787.1cd     +++|          LDN    ZERL        CLEAR REQUEST
00817  M00S00788.1cd     +++|          CRD    CM
00818  M00S00789.1cd     +++|          AOD    IR+3        ADVANCE ENTRY COUNT
00819  M00S00790.1cd     +++|          LDD    RA          UPDATE EQUIPMENT COUNT
00820  M00S00791.1cd     +++|          SHN    6
00821  M00S00792.1cd     +++|          ADD    IR+2
00822  M00S00793.1cd     +++|          CWD    IR
00823  M00S00794.1cd     +++|          SBD    IR+2
00824  M00S00795.1cd     +++|          ADN    DRQR
00825  M00S00796.1cd     +++|          CWD    CM
00826  M00S00797.1cd     +++|          LJM    MGR1        STORE STATUS BLOCK
00827  M00S00798.1cd     +++|          TITLE  PROCESS OPERATOR REQUESTS.
00828  M00S00799.1cd     +++| CPH      SPACE  4,10
00829  M00S00800.1cd     +++|**        CPH - CLEAR PRINTER HOLDING.
00830  M00S00801.1cd     +++|*
00831  M00S00802.1cd     +++|*         EXIT TO *POF1*.
00832  M00S00803.1cd     +++|
00833  M00S00804.1cd     +++|
00834  M00S00805.1cd     +++| CPH      LDN    0           CLEAR HOLD FLAG
00835  M00S00806.1cd     +++|          STM    CMHF
00836  M00S00807.1cd     +++|*         UJN    POF1        PROCESS OPERATOR FLAG
00837  M00S00808.1cd     +++| POF      SPACE  4,15
00838  M00S00809.1cd     +++|**        POF - PROCESS OPERATOR FLAG.
00839  M00S00810.1cd     +++|*
00840  M00S00811.1cd     +++|*         ENTRY  (A) = OPERATOR REQUEST.
00841  M00S00812.1cd     +++|*                (EQ) = DEVICE TYPE.
00842  M00S00813.1cd     +++|*                (CM - CM+4) = BUFFER POINT WORD.
00843  M00S00814.1cd     +++|*
00844  M00S00815.1cd     +++|*         USES   CM+4, T1, T3.
00845  M00S00816.1cd     +++|*
00846  M00S00817.1cd     +++|*         CALLS PROCESSOR WITH THE FOLLOWING CONDITIONS -
00847  M00S00818.1cd     +++|*                (EQ) = DEVICE TYPE.
00848  M00S00819.1cd     +++|*                (T3) = REQUEST PARAMETER.
00849  M00S00820.1cd     +++|*                BUFFER NOT BUSY.
00850  M00S00821.1cd     +++|*
00851  M00S00822.1cd     +++|*         MACROS NFA.
00852  M00S00823.1cd     +++|
00853  M00S00824.1cd     +++|
00854  M00S00825.1cd     +++| POF1     LDM    CMER        SET REPEAT COUNT
00855  M00S00826.1cd     +++|          SHN    6
00856  M00S00827.1cd     +++|          STD    CM+4
00857  M00S00828.1cd     +++|          NFA    BF,R        STORE BUFFER POINT WORD
00858  M00S00829.1cd     +++|          CWD    CM
00859  M00S00830.1cd     +++|
00860  M00S00831.1cd     +++| POF      SUBR               ENTRY/EXIT
00861  M00S00832.1cd     +++|          STD    T1          SET REQUEST
00862  M00S00833.1cd     +++|          SBN    FPRE
00863  M00S00834.1cd     +++|          PJN    POF1        IF ILLEGAL REQUEST
00864  M00S00835.1cd     +++|          LDD    BS+4
00865  M00S00836.1cd     +++|          LPN    1
00866  M00S00837.1cd     +++|          ZJN    POFX        IF BUFFER BUSY
00867  M00S00838.1cd     +++|          LDM    CMPA
00868  M00S00839.1cd     +++|          LMC    TOPA
00869  M00S00840.1cd     +++|          ZJN    POFX        IF TERMINATION PROCESSING
00870  M00S00841.1cd     +++|          LDD    CM+4        SET REQUEST PARAMETER
00871  M00S00842.1cd     +++|          SHN    -6
00872  M00S00843.1cd     +++|          STD    T3
00873  M00S00844.1cd     +++|          LDM    TOPF,T1     PROCESS REQUEST
00874  M00S00845.1cd     +++|          STD    T1
00875  M00S00846.1cd     +++|          LJM    0,T1        EXIT TO PROCESSOR
00876  M00S00847.1cd     +++| CNT      SPACE  4,10
00877  M00S00848.1cd     +++|**        CNT - CONTINUE PRINTING.
00878  M00S00849.1cd     +++|*
00879  M00S00850.1cd     +++|*         EXIT   TO *POFX*.
00880  M00S00851.1cd     +++|*
00881  M00S00852.1cd     +++|*         CALLS  SDM.
00882  M00S00853.1cd     +++|
00883  M00S00854.1cd     +++|
00884  M00S00855.1cd     +++| CNT      LDN    0
00885  M00S00856.1cd     +++|          STM    CMHF
00886  M00S00857.1cd     +++|          LDN    CNTM        SEND DAYFILE MESSAGE
00887  M00S00858.1cd     +++|          RJM    SDM
00888  M00S00859.1cd     +++| CNT1     UJN    POFX        RETURN
00889  M00S00860.1cd     +++| HLD      SPACE  4,10
00890  M00S00861.1cd     +++|**        HLD - HOLD PRINTING.
00891  M00S00862.1cd     +++|*
00892  M00S00863.1cd     +++|*         EXIT   TO *CNT1*.
00893  M00S00864.1cd     +++|*
00894  M00S00865.1cd     +++|*         CALLS  MSG, SDM.
00895  M00S00866.1cd     +++|
00896  M00S00867.1cd     +++|
00897  M00S00868.1cd     +++| HLD      LDN    HLDM
00898  M00S00869.1cd     +++|          RJM    SDM         SEND DAYFILE MESSAGE
00899  M00S00870.1cd     +++|          LDN    EHLD
00900  M00S00871.1cd     +++|          RJM    MSG         ISSUE BUFFER POINT MESSAGE
00901  M00S00872.1cd     +++|          LDM    CMHF
00902  M00S00873.1cd     +++|          SCN    1           SET HOLD FLAG
00903  M00S00874.1cd     +++| HLD1     LMN    1
00904  M00S00875.1cd     +++|          STM    CMHF
00905  M00S00876.1cd     +++| HLD2     UJN    CNT1        RETURN
00906  M00S00877.1cd     +++| PPF      SPACE  4,10
00907  M00S00878.1cd     +++|**        PPF - POSITION PRINT FILE.
00908  M00S00879.1cd     +++|*
00909  M00S00880.1cd     +++|*         EXIT   TO *HLD1* IF DRIVER NOT HOLDING.
00910  M00S00881.1cd     +++|*                TO *HLD2* IF DRIVER HOLDING.
00911  M00S00882.1cd     +++|*
00912  M00S00883.1cd     +++|*         USES   CM - CM+4.
00913  M00S00884.1cd     +++|*
00914  M00S00885.1cd     +++|*         CALLS  CPS.
00915  M00S00886.1cd     +++|*
00916  M00S00887.1cd     +++|*         MACROS NFA.
00917  M00S00888.1cd     +++|
00918  M00S00889.1cd     +++|
00919  M00S00890.1cd     +++| PPF      LDM    CMHF        CHECK DRIVER HOLDING
00920  M00S00891.1cd     +++|          LPN    2
00921  M00S00892.1cd     +++|          ZJN    HLD1        IF DRIVER NOT HOLDING
00922  M00S00893.1cd     +++|          LDN    ZERL        SET UP BUFFER POINT PARAMETERS
00923  M00S00894.1cd     +++|          CRD    CM
00924  M00S00895.1cd     +++|          LDN    EHLD
00925  M00S00896.1cd     +++|          STD    CM          SET MESSAGE CODE
00926  M00S00897.1cd     +++|          LDM    CMER
00927  M00S00898.1cd     +++|          STD    CM+4        SET REPEAT COUNT
00928  M00S00899.1cd     +++|          NFA    BF,R
00929  M00S00900.1cd     +++|          ADN    1           STORE BUFFER POINT WORD
00930  M00S00901.1cd     +++|          CWD    CM
00931  M00S00902.1cd     +++|          LDC    PORF+1000   PROCESS OPERATOR REQUEST
00932  M00S00903.1cd     +++|          RJM    CPS
00933  M00S00904.1cd     +++|          UJN    HLD2        RETURN
00934  M00S00905.1cd     +++| RRN      SPACE  4,10
00935  M00S00906.1cd     +++|**        RRN - PROCESS RERUN.
00936  M00S00907.1cd     +++|*
00937  M00S00908.1cd     +++|*         ENTRY  (EQ) = DEVICE TYPE.

Seq #  *Modification Id* Act 
----------------------------+
00938  M01S00909.ns2319  ---|*                (T3) = REQUESTED RERUN PRIORITY.
00939  M00S00910.1cd     +++|*
00940  M00S00911.1cd     +++|*         EXIT   TO *END2* IF CARD READER.
00941  M00S00912.1cd     +++|*                TO *TOP1* IF PUNCH OR PRINTER.
00942  M00S00913.1cd     +++|*
00943  M00S00914.1cd     +++|*         CALLS  SDM.
00944  M00S00915.1cd     +++|
00945  M00S00916.1cd     +++|
00946  M00S00917.1cd     +++| RRN      LDD    EQ
00947  M00S00918.1cd     +++|          SBK    CRDT
00948  M00S00919.1cd     +++|          ZJN    END2        IF CARD READER
00949  M00S00920.1cd     +++|          LDN    RRNM        ISSUE RERUN MESSAGE
00950  M00S00921.1cd     +++|          RJM    SDM
00951  M00S00922.1cd     +++|*         LDN    0           CLEAR MESSAGE REQUEST
00952  M00S00923.1cd     +++|          STM    CMMR
00953  M00S00924.1cd     +++|          LDC    RQFF+1000   REQUEUE FILE
00954  M00S00925.1cd     +++|          LJM    TOP1        TERMINATE OPERATION
00955  M00S00926.1cd     +++| END      SPACE  4,10
00956  M00S00927.1cd     +++|**        END - PROCESS *END*.
00957  M00S00928.1cd     +++|*
00958  M00S00929.1cd     +++|*         ENTRY  (T3) = NUMBER OF ENDS TO FORCE.
00959  M00S00930.1cd     +++|*
00960  M00S00931.1cd     +++|*         EXIT   TO *PSE*.
00961  M00S00932.1cd     +++|*
00962  M00S00933.1cd     +++|*         USES   T1, T3.
00963  M00S00934.1cd     +++|
00964  M00S00935.1cd     +++|*
00965  M00S00936.1cd     +++|*         CALLS  ECB, SDM, SFA.
00966  M00S00937.1cd     +++|
00967  M00S00938.1cd     +++|
00968  M00S00939.1cd     +++| END      LDD    T3          FORCE ONE END
00969  M00S00940.1cd     +++|          NJN    END1        IF .GE. ONE END
00970  M00S00941.1cd     +++|          AOD    T3
00971  M00S00942.1cd     +++| END1     AOM    CMER        DECREMENT REPEAT COUNT
00972  M00S00943.1cd     +++|          SBD    T3
00973  M00S00944.1cd     +++|          PJN    END2        IF REPEAT COUNT .GE. END COUNT
00974  M00S00945.1cd     +++|          ADN    1           CLEAR REPEAT COUNT
00975  M00S00946.1cd     +++|          RAD    T3
00976  M00S00947.1cd     +++|          LDN    0           CLEAR REPEAT COUNT
00977  M00S00948.1cd     +++| END2     STM    CMER
00978  M00S00949.1cd     +++|          LDN    ENDM        SEND DAYFILE MESSAGE
00979  M00S00950.1cd     +++|          RJM    SDM
00980  M00S00951.1cd     +++|          LDC    1031        SET EOI/EOF
00981  M00S00952.1cd     +++|          STD    BS+4
00982  M00S00953.1cd     +++|          RJM    SFA         STORE BUFFER STATUS
00983  M00S00954.1cd     +++|          CWD    BS
00984  M00S00955.1cd     +++|          RJM    ECB         EMPTY CENTRAL BUFFER
00985  M00S00956.1cd     +++|          LDM    ENDA,EQ
00986  M00S00957.1cd     +++|          STM    CMPA
00987  M00S00958.1cd     +++|          LJM    PSE         PAUSE
00988  M00S00959.1cd     +++|
00989  M00S00960.1cd     +++|
00990  M00S00961.1cd     +++| ENDA     INDEX              *END* PROCESSOR
00991  M00S00962.1cd     +++|          INDEX  LPDT,/3CZ/LPN  PRINT DAYFILE
00992  M00S00963.1cd     +++|          INDEX  CPDT,/3CZ/PED  END OF FILE
00993  M00S00964.1cd     +++|          INDEX  CRDT,TOP       TERMINATE OPERATION
00994  M00S00965.1cd     +++|          INDEX  NPDT,/3CY/NPN  PRINT DAYFILE
00995  M00S00966.1cd     +++|          INDEX  MXDT
00996  M00S00967.1cd     +++| REP      SPACE  4,15
00997  M00S00968.1cd     +++|**        REP - PROCESS REPEAT.
00998  M00S00969.1cd     +++|*
00999  M00S00970.1cd     +++|*         ENTRY  (T3) = NUMBER OF REPEATS.
01000  M00S00971.1cd     +++|*
01001  M00S00972.1cd     +++|*         EXIT   TO *POFX*.
01002  M00S00973.1cd     +++|*
01003  M00S00974.1cd     +++|*         USES   T3.
01004  M00S00975.1cd     +++|*
01005  M00S00976.1cd     +++|*         CALLS  SDM.
01006  M00S00977.1cd     +++|
01007  M00S00978.1cd     +++|
01008  M00S00979.1cd     +++| REP      LDD    T3
01009  M00S00980.1cd     +++|          NJN    REP1        IF .GE. ONE REPEAT
01010  M00S00981.1cd     +++|          AOD    T3
01011  M00S00982.1cd     +++| REP1     RAM    CMER        ADVANCE REPEAT COUNT
01012  M00S00983.1cd     +++|          SHN    -6
01013  M00S00984.1cd     +++|          ZJN    REP2        IF REPEAT COUNT .LE. 77
01014  M00S00985.1cd     +++|          LDN    77
01015  M00S00986.1cd     +++|          STM    CMER
01016  M00S00987.1cd     +++| REP2     LDN    REPM        SEND DAYFILE MESSAGE
01017  M00S00988.1cd     +++|          RJM    SDM
01018  M00S00989.1cd     +++| REP3     LJM    POFX        RETURN
01019  M00S00990.1cd     +++| SUP      SPACE  4,10
01020  M00S00991.1cd     +++|**        SUP - TOGGLE SUPPRESS FLAG.
01021  M00S00992.1cd     +++|*
01022  M00S00993.1cd     +++|*         EXIT   TO *REP3*.
01023  M00S00994.1cd     +++|*
01024  M00S00995.1cd     +++|*         CALLS SDM.
01025  M00S00996.1cd     +++|
01026  M00S00997.1cd     +++|
01027  M00S00998.1cd     +++| SUP      LDM    CMSF        TOGGLE SUPPRESS FLAG
01028  M00S00999.1cd     +++|          LMN    4
01029  M00S01000.1cd     +++|          STM    CMSF
01030  M00S01001.1cd     +++|          LDN    SUPM        SEND DAYFILE MESSAGE
01031  M00S01002.1cd     +++|          RJM    SDM
01032  M00S01003.1cd     +++|          UJN    REP3        RETURN
01033  M00S01004.1cd     +++| TOPF     SPACE  4,30
01034  M00S01005.1cd     +++|**        TOPF - TABLE OF OPERATOR REQUESTS PROCESSORS.
01035  M00S01006.1cd     +++|*
01036  M00S01007.1cd     +++|*         INDEXED BY REQUEST CODE. (DEFINED IN COMSBIO)
01037  M00S01008.1cd     +++|*         ONE WORD ENTRY IN FORMAT -
01038  M00S01009.1cd     +++|*
01039  M00S01010.1cd     +++|*T,       12/  ADDR

Figure

01040  M00S01011.1cd     +++|*         ADDR   ADDRESS OF REQUEST PROCESSOR.
01041  M00S01012.1cd     +++|
01042  M00S01013.1cd     +++|
01043  M00S01014.1cd     +++| TOPF     INDEX
01044  M00S01015.1cd     +++|          INDEX  ENDM,END    END
01045  M00S01016.1cd     +++|          INDEX  REPM,REP    REPEAT
01046  M00S01017.1cd     +++|          INDEX  SUPM,SUP    SUPPRESS
01047  M00S01018.1cd     +++|          INDEX  RRNM,RRN    RERUN
01048  M00S01019.1cd     +++|          INDEX  HLDM,HLD    HOLD
01049  M00S01020.1cd     +++|          INDEX  CNTM,CNT    CONTINUE
01050  M00S01021.1cd     +++|          INDEX  BKPO,PPF    BACKSPACE PRUS
01051  M00S01022.1cd     +++|          INDEX  BKRO,PPF    BACKSPACE RECORDS
01052  M00S01023.1cd     +++|          INDEX  BKFO,PPF    BACKSPACE FILES
01053  M00S01024.1cd     +++|          INDEX  SKPO,PPF    SKIP PRUS
01054  M00S01025.1cd     +++|          INDEX  SKRO,PPF    SKIP RECORDS
01055  M00S01026.1cd     +++|          INDEX  SKFO,PPF    SKIP FILES
01056  M00S01027.1cd     +++|          INDEX  CPHP,CPH    CLEAR PRINTER HOLDING
01057  M00S01028.1cd     +++|          INDEX  LNLP,PPF    LOCATE NEXT LINE
01058  M00S01029.1cd     +++|          INDEX  LCBP,PPF    LOAD CENTRAL BUFFER
01059  M00S01030.1cd     +++|          INDEX  FPRE        TABLE TERMINATOR
01060  M00S01031.1cd     +++|          TITLE  COMMON SUBROUTINES.
01061  M00S01032.1cd     +++| ACT      SPACE  4,10
01062  M00S01033.1cd     +++|**        ACT - PROCESS ACCOUNTING INFORMATION.
01063  M00S01034.1cd     +++|*
01064  M00S01035.1cd     +++|*         EXIT   (A) = STATUS RESPONSE FROM *CPS*.
01065  M00S01036.1cd     +++|*
01066  M00S01037.1cd     +++|*         USES   CM, CM+3 - CM+4.
01067  M00S01038.1cd     +++|*
01068  M00S01039.1cd     +++|*         CALLS  CPS.
01069  M00S01040.1cd     +++|
01070  M00S01041.1cd     +++|
01071  M00S01042.1cd     +++| ACT      SUBR               ENTRY/EXIT
01072  M00S01043.1cd     +++|          LDD    EQ
01073  M00S01044.1cd     +++|          STD    CM+1        ENTER EQUIPMENT TYPE
01074  M00S01045.1cd     +++|          LDM    CMRC
01075  M00S01046.1cd     +++|          STD    CM+3
01076  M00S01047.1cd     +++|          LDM    CMRC+1
01077  M00S01048.1cd     +++|          STD    CM+4
01078  M00S01049.1cd     +++|          LDD    FT          STORE REQUEST IN BUFFER
01079  M00S01050.1cd     +++|          SHN    6
01080  M00S01051.1cd     +++|          ADD    RA
01081  M00S01052.1cd     +++|          SHN    6
01082  M00S01053.1cd     +++|          ADD    FT+1
01083  M00S01054.1cd     +++|          CWD    CM
01084  M00S01055.1cd     +++|          LDC    ACTF+1000   PROCESS ACCOUNTING
01085  M00S01056.1cd     +++|          RJM    CPS
01086  M00S01057.1cd     +++|          UJN    ACTX        RETURN
01087  M00S01058.1cd     +++| ADB      SPACE  4,10
01088  M00S01059.1cd     +++|**        ADB - ASSIGN DATA BUFFER.
01089  M00S01060.1cd     +++|*
01090  M00S01061.1cd     +++|*         ENTRY  (DB) = FWA OF LAST DATA BUFFER USED.
01091  M00S01062.1cd     +++|*
01092  M00S01063.1cd     +++|*         EXIT   (A) = (DA) = (CMDB) = BUFFER ADDRESS.
01093  M00S01064.1cd     +++|*                (DB) = FWA OF DATA BUFFER ASSIGNED.
01094  M00S01065.1cd     +++|*                ((DB)) = RELATIVE LOCATION BUFFER INDEX.
01095  M00S01066.1cd     +++|*                TO *MGR1* IF NO DATA BUFFER AVAILABLE.
01096  M00S01067.1cd     +++|*
01097  M00S01068.1cd     +++|*         USES   DA, DB, T7.
01098  M00S01069.1cd     +++|
01099  M00S01070.1cd     +++|
01100  M00S01071.1cd     +++| ADB3     LDD    BI          SET BUFFER ASSIGNED
01101  M00S01072.1cd     +++|          STI    DB
01102  M00S01073.1cd     +++|          LDD    DB          ADDRESS OF DATA BUFFER
01103  M00S01074.1cd     +++|          ADN    1
01104  M00S01075.1cd     +++|          STM    CMDB        FWA OF DATA (DB+1) IN DATA BUFFER
01105  M00S01076.1cd     +++| ADB4     STD    DA
01106  M00S01077.1cd     +++|
01107  M00S01078.1cd     +++| ADB      SUBR               ENTRY/EXIT
01108  M00S01079.1cd     +++|          LDM    CMDB
01109  M00S01080.1cd     +++|          NJN    ADB4        IF DATA BUFFER IS ASSIGNED TO THIS DEVICE
01110  M00S01081.1cd     +++|          STD    T7
01111  M00S01082.1cd     +++| ADB1     LDI    DB
01112  M00S01083.1cd     +++|          ZJN    ADB3        IF THIS DATA BUFFER NOT ASSIGNED
01113  M00S01084.1cd     +++|          LDC    0           CHECK NEXT DATA BUFFER
01114  M00S01085.1cd     +++| ADBA     EQU    *-1         (DATA BUFFER SIZE SET BY *PRS*)
01115  M00S01086.1cd     +++|          RAD    DB
01116  M00S01087.1cd     +++|          LMC    0
01117  M00S01088.1cd     +++| ADBB     EQU    *-1         (LWA+1 OF DATA BUFFERS SET BY *PRS*)
01118  M00S01089.1cd     +++|          NJN    ADB2        IF NOT LAST DATA BUFFER
01119  M00S01090.1cd     +++|          LDC    0           LOOP TO FIRST DATA BUFFER
01120  M00S01091.1cd     +++| ADBC     EQU    *-1         (FWA OF DATA BUFFERS SET BY *PRS*)
01121  M00S01092.1cd     +++|          STD    DB
01122  M00S01093.1cd     +++| ADB2     AOD    T7
01123  M00S01094.1cd     +++| ADBD     LMN    0           (NUMBER OF DATA BUFFERS SET BY *PRS*)
01124  M00S01095.1cd     +++|          NJN    ADB1        IF NOT ALL DATA BUFFERS CHECKED
01125  M00S01096.1cd     +++|          LJM    MGR1        IGNORE REQUEST
01126  M00S01097.1cd     +++| AOP      SPACE  4,10
01127  M00S01098.1cd     +++|**        AOP - ADVANCE OUT POINTER.
01128  M00S01099.1cd     +++|*
01129  M00S01100.1cd     +++|*         ENTRY  (A) = NUMBER OF WORDS TO ADVANCE POINTER.
01130  M00S01101.1cd     +++|*
01131  M00S01102.1cd     +++|*         USES   OT - OT+1.
01132  M00S01103.1cd     +++|*
01133  M00S01104.1cd     +++|*         CALLS  CDB.
01134  M00S01105.1cd     +++|
01135  M00S01106.1cd     +++|
01136  M00S01107.1cd     +++| AOP      SUBR               ENTRY/EXIT
01137  M00S01108.1cd     +++|          RAD    OT+1        ADVANCE OUT POINTER
01138  M00S01109.1cd     +++|          SHN    -14
01139  M00S01110.1cd     +++|          RAD    OT
01140  M00S01111.1cd     +++|          SBD    LM          OUT - LIMIT
01141  M00S01112.1cd     +++|          SHN    14
01142  M00S01113.1cd     +++|          ADD    OT+1
01143  M00S01114.1cd     +++|          SBD    LM+1
01144  M00S01115.1cd     +++|          MJN    AOP1        IF NO WRAP AROUND
01145  M00S01116.1cd     +++|          ADD    FT+1
01146  M00S01117.1cd     +++|          STD    OT+1
01147  M00S01118.1cd     +++|          SHN    -14
01148  M00S01119.1cd     +++|          ADD    FT
01149  M00S01120.1cd     +++|          STD    OT
01150  M00S01121.1cd     +++| AOP1     RJM    CDB         CHECK DATA REMAINING IN BUFFER
01151  M00S01122.1cd     +++|          UJN    AOPX        RETURN
01152  M00S01123.1cd     +++| CCE      SPACE  4,15
01153  M00S01124.1cd     +++|**        CCE - CHECK FOR CHANNEL ERROR.
01154  M00S01125.1cd     +++|*
01155  M00S01126.1cd     +++|*         ENTRY  (A) = STATUS/DATA INDEX.
01156  M00S01127.1cd     +++|*                (T5) = FUNCTION CODE.
01157  M00S01128.1cd     +++|*
01158  M00S01129.1cd     +++|*         EXIT   (A) = 0 IF NO ERROR.
01159  M00S01130.1cd     +++|*                      1 IF CHANNEL ERROR FLAG SET.
01160  M00S01131.1cd     +++|*
01161  M00S01132.1cd     +++|*         USES   T1, FC.
01162  M00S01133.1cd     +++|*
01163  M00S01134.1cd     +++|*         CALLS  CRV, PRE.
01164  M00S01135.1cd     +++|
01165  M00S01136.1cd     +++|
01166  M00S01137.1cd     +++| CCE1     LDD    T5          SAVE FUNCTION CODE FOR ERROR MESSAGE
01167  M00S01138.1cd     +++|          STD    FC
01168  M00S01139.1cd     +++|          LDD    T1          PROCESS RETRIED ERROR
01169  M00S01140.1cd     +++|          RJM    PRE
01170  M00S01141.1cd     +++|          LDN    1           ERROR RETURN
01171  M00S01142.1cd     +++|
01172  M00S01143.1cd     +++| CCE      SUBR               ENTRY/EXIT
01173  M00S01144.1cd     +++|          STD    T1          SAVE STATUS/DATA INDEX

Seq #  *Modification Id* Act 
----------------------------+
01174  M01S01145.1cd4    ---| CCEA     SFM    CCE1,CH     IF CHANNEL ERROR FLAG SET

Seq #  *Modification Id* Act 
----------------------------+
01175  M01S00001.1cd4    +++| CCEA     SFM.   CCE1,CH     IF CHANNEL ERROR FLAG SET
01176  M00S01146.1cd     +++|          RJM    CRV         CHECK FOR RECOVERED ERROR
01177  M00S01147.1cd     +++|*         LDN    0
01178  M00S01148.1cd     +++|          UJN    CCEX        RETURN
01179  M00S01149.1cd     +++| CDB      SPACE  4,10
01180  M00S01150.1cd     +++|**        CDB - CHECK DATA IN OUTPUT BUFFER.
01181  M00S01151.1cd     +++|*
01182  M00S01152.1cd     +++|*         EXIT   (A) = (CMBE) = NUMBER OF WORDS IN BUFFER.
01183  M00S01153.1cd     +++|
01184  M00S01154.1cd     +++|
01185  M00S01155.1cd     +++| CDB      SUBR               ENTRY/EXIT
01186  M00S01156.1cd     +++|          LDD    IN          LENGTH = IN - OUT
01187  M00S01157.1cd     +++|          SBD    OT
01188  M00S01158.1cd     +++|          SHN    14
01189  M00S01159.1cd     +++|          ADD    IN+1
01190  M00S01160.1cd     +++|          SBD    OT+1
01191  M00S01161.1cd     +++|          PJN    CDB1        IF IN .GE. OUT
01192  M00S01162.1cd     +++|          SHN    6           LENGTH = (LIMIT - OUT) + (IN - FIRST)
01193  M00S01163.1cd     +++|          ADD    LM
01194  M00S01164.1cd     +++|          SBD    FT
01195  M00S01165.1cd     +++|          SHN    14
01196  M00S01166.1cd     +++|          ADD    LM+1
01197  M00S01167.1cd     +++|          SBD    FT+1
01198  M00S01168.1cd     +++| CDB1     STM    CMBE        SET LENGTH
01199  M00S01169.1cd     +++|          UJN    CDBX        RETURN
01200  M00S01170.1cd     +++| CEP      SPACE  4,10
01201  M00S01171.1cd     +++|**        CEP - CHANNEL ERROR PROCESSOR.
01202  M00S01172.1cd     +++|*
01203  M00S01173.1cd     +++|*         EXIT   TO *TOP2*.
01204  M00S01174.1cd     +++|*
01205  M00S01175.1cd     +++|*         USES   BR.
01206  M00S01176.1cd     +++|*
01207  M00S01177.1cd     +++|*         CALLS  RDB.
01208  M00S01178.1cd     +++|
01209  M00S01179.1cd     +++|
01210  M00S01180.1cd     +++| CEP      RJM    RDB         RELEASE DATA BUFFER
01211  M00S01181.1cd     +++|          STM    CMMR        CLEAR DAYFILE MESSAGE REQUEST
01212  M00S01182.1cd     +++|          AOD    BR          SET BUSY RETURN
01213  M00S01183.1cd     +++|          LDC    CECF+1000   DEACTIVATE EQUIPMENT
01214  M00S01184.1cd     +++|          STM    CMLR
01215  M00S01185.1cd     +++|          LJM    TOP2        TERMINATE OPERATION ON DEVICE
01216  M00S01186.1cd     +++| CIB      SPACE  4,15
01217  M00S01187.1cd     +++|**        CIB - CHECK INPUT BUFFER.
01218  M00S01188.1cd     +++|*
01219  M00S01189.1cd     +++|*         EXIT   (A) = WORD COUNT OF BUFFER.
01220  M00S01190.1cd     +++|*                IF WORD COUNT .LT. 1 SECTOR, A CALL WILL BE MADE TO
01221  M00S01191.1cd     +++|*                DUMP BUFFER.
01222  M00S01192.1cd     +++|*                IF FIRST WRITE, MAKE PP SERVICE CALL TO INITIATE
01223  M00S01193.1cd     +++|*                INPUT FILE.
01224  M00S01194.1cd     +++|*
01225  M00S01195.1cd     +++|*         USES   BS+4, T1.
01226  M00S01196.1cd     +++|*
01227  M00S01197.1cd     +++|*         CALLS  CPS.
01228  M00S01198.1cd     +++|
01229  M00S01199.1cd     +++|
01230  M00S01200.1cd     +++| CIB      SUBR               ENTRY/EXIT
01231  M00S01201.1cd     +++|          LDD    BS+4        CHECK CURRENT STATUS
01232  M00S01202.1cd     +++|          LPN    21
01233  M00S01203.1cd     +++|          LMN    20
01234  M00S01204.1cd     +++|          ZJP    MGR1        IF BUFFER BUSY AND EOR
01235  M00S01205.1cd     +++|          LDD    OT          LENGTH = OUT - IN
01236  M00S01206.1cd     +++|          SBD    IN
01237  M00S01207.1cd     +++|          SHN    14
01238  M00S01208.1cd     +++|          ADD    OT+1
01239  M00S01209.1cd     +++|          SBD    IN+1
01240  M00S01210.1cd     +++|          ZJN    CIB1        IF IN = OUT
01241  M00S01211.1cd     +++|          PJN    CIB2        IF IN .LT. OUT
01242  M00S01212.1cd     +++| CIB1     SHN    6
01243  M00S01213.1cd     +++|          ADD    LM
01244  M00S01214.1cd     +++|          SBD    FT          LENGTH = (LIMIT - IN) + (OUT - FIRST)
01245  M00S01215.1cd     +++|          SHN    14
01246  M00S01216.1cd     +++|          ADD    LM+1
01247  M00S01217.1cd     +++|          SBD    FT+1
01248  M00S01218.1cd     +++| CIB2     SBN    1
01249  M00S01219.1cd     +++|          STD    T1          SAVE LENGTH
01250  M00S01220.1cd     +++|          SHN    -6
01251  M00S01221.1cd     +++|          NJN    CIB4        IF LENGTH .GE. 1 SECTOR
01252  M00S01222.1cd     +++|          LDD    BS+4
01253  M00S01223.1cd     +++|          LPN    3
01254  M00S01224.1cd     +++|          STD    BS+4        REQUEST BUFFER WRITE
01255  M00S01225.1cd     +++|          LDD    FA
01256  M00S01226.1cd     +++|          ZJN    CIB3        IF FIRST WRITE
01257  M00S01227.1cd     +++|          LDC    WTIF+1000&14
01258  M00S01228.1cd     +++| CIB3     LMC    WTIF+1000   SET REQUEST
01259  M00S01229.1cd     +++|          RJM    CPS
01260  M00S01230.1cd     +++| CIB4     LDD    T1          SET LENGTH
01261  M00S01231.1cd     +++|          LJM    CIBX        RETURN
01262  M00S01232.1cd     +++| CLB      SPACE  4,15
01263  M00S01233.1cd     +++|**        CLB - CLEAR INTERNAL BUFFER.
01264  M00S01234.1cd     +++|*
01265  M00S01235.1cd     +++|*         ENTRY  (EQ) = EQUIPMENT TYPE CODE.
01266  M00S01236.1cd     +++|*
01267  M00S01237.1cd     +++|*         EXIT   (A) = 0.
01268  M00S01238.1cd     +++|*                (T3) = ADDRESS OF *CMER*.
01269  M00S01239.1cd     +++|*                (BR) .NE. 0 (BUSY RETURN SET).
01270  M00S01240.1cd     +++|*                (CMPA) = PROCESSOR ADDRESS.
01271  M00S01241.1cd     +++|*                (CMCT) = DEFAULT CONVERSION MODE.
01272  M00S01242.1cd     +++|
01273  M00S01243.1cd     +++|
01274  M00S01244.1cd     +++| CLB      SUBR               ENTRY/EXIT
01275  M00S01245.1cd     +++|          LDC    EQSB+CMER   SET LOWER LIMIT
01276  M00S01246.1cd     +++|          STD    BR
01277  M00S01247.1cd     +++|          ADN    CMDA-CMER-1 SET UPPER LIMIT
01278  M00S01248.1cd     +++|          STD    T3
01279  M00S01249.1cd     +++|          LDM    TEQD,EQ     SET PROCESSOR ADDRESS
01280  M00S01250.1cd     +++|          STM    CMPA
01281  M00S01251.1cd     +++|          LDM    TDCM,EQ     SET DEFAULT CONVERSION MODE
01282  M00S01252.1cd     +++|          STM    CMCT
01283  M00S01253.1cd     +++| CLB1     LDN    0           CLEAR BUFFER
01284  M00S01254.1cd     +++|          STI    T3
01285  M00S01255.1cd     +++|          SOD    T3          DECREMENT BUFFER ADDRESS
01286  M00S01256.1cd     +++|          LMD    BR
01287  M00S01257.1cd     +++|          NJN    CLB1        IF NOT LOWER LIMIT
01288  M00S01258.1cd     +++|          UJN    CLBX        RETURN
01289  M00S01259.1cd     +++| COB      SPACE  4,15
01290  M00S01260.1cd     +++|**        COB - CHECK OUTPUT BUFFER.
01291  M00S01261.1cd     +++|*
01292  M00S01262.1cd     +++|*         EXIT   (A) = WORD COUNT OF BUFFER.
01293  M00S01263.1cd     +++|*                IF WORD COUNT .LT. 1 SECTOR AND STATUS .NE. EOR
01294  M00S01264.1cd     +++|*                OR EOF, A CALL WILL BE MADE TO FILL BUFFER.
01295  M00S01265.1cd     +++|*                IF FILE IS A 12 BIT ASCII PRINT FILE, THE WORD
01296  M00S01266.1cd     +++|*                COUNT THRESHOLD CHECK MADE IS FOR .LT. 2 SECTORS
01297  M00S01267.1cd     +++|*                RATHER THAN 1 SECTOR.
01298  M00S01268.1cd     +++|*                IF BUFFER IS EMPTY, AND STATUS = EOR OR EOF, EXIT
01299  M00S01269.1cd     +++|*                WILL BE TAKEN TO APPROPRIATE PROCESSOR.
01300  M00S01270.1cd     +++|*
01301  M00S01271.1cd     +++|*         USES   BS+4, T1 - T2.
01302  M00S01272.1cd     +++|*
01303  M00S01273.1cd     +++|*         CALLS  CDB, CPS.
01304  M00S01274.1cd     +++|
01305  M00S01275.1cd     +++|
01306  M00S01276.1cd     +++| COB3     LDD    BS+4
01307  M00S01277.1cd     +++|          LPN    1
01308  M00S01278.1cd     +++|          ZJN    COB4        IF BUFFER BUSY
01309  M00S01279.1cd     +++|          STD    BS+4
01310  M00S01280.1cd     +++|          LDM    COBC,EQ     REQUEST READ
01311  M00S01281.1cd     +++|          RJM    CPS
01312  M00S01282.1cd     +++| COB4     LDD    T1          RETURN WITH LENGTH
01313  M00S01283.1cd     +++|
01314  M00S01284.1cd     +++| COB      SUBR               ENTRY/EXIT
01315  M00S01285.1cd     +++|          RJM    CDB         CHECK DATA IN OUTPUT BUFFER
01316  M00S01286.1cd     +++|          STD    T1          SAVE LENGTH
01317  M00S01287.1cd     +++|          SBM    CMBT
01318  M00S01288.1cd     +++|          PJN    COB4        IF LENGTH .LT. 1 OR 2 SECTORS
01319  M00S01289.1cd     +++|          LDD    BS+4        CHECK BUFFER STATUS
01320  M00S01290.1cd     +++|          LPN    20
01321  M00S01291.1cd     +++|          ZJN    COB3        IF NOT EOR/EOF
01322  M00S01292.1cd     +++|          LDD    T1
01323  M00S01293.1cd     +++|          NJN    COBX        IF BUFFER NOT EMPTY
01324  M00S01294.1cd     +++|          LDD    BS+4
01325  M00S01295.1cd     +++|          LPN    10
01326  M00S01296.1cd     +++|          NJN    COB1        IF EOF/EOI
01327  M00S01297.1cd     +++|          LDM    COBA,EQ
01328  M00S01298.1cd     +++|          UJN    COB2        SET EOR PROCESSOR
01329  M00S01299.1cd     +++|
01330  M00S01300.1cd     +++| COB1     LDM    COBB,EQ     SET EOF/EOI PROCESSOR
01331  M00S01301.1cd     +++| COB2     STD    T2
01332  M00S01302.1cd     +++|          LJM    0,T2        PROCESS EOF
01333  M00S01303.1cd     +++|
01334  M00S01304.1cd     +++|
01335  M00S01305.1cd     +++|*         END OF RECORD PROCESSORS.
01336  M00S01306.1cd     +++|
01337  M00S01307.1cd     +++| COBA     INDEX
01338  M00S01308.1cd     +++|          INDEX  LPDT,COB3   READ NEXT RECORD
01339  M00S01309.1cd     +++|          INDEX  CPDT,/3CZ/PER  PUNCH EOR
01340  M00S01310.1cd     +++|          INDEX  NPDT,COB3   READ NEXT RECORD
01341  M00S01311.1cd     +++|          INDEX  MXDT
01342  M00S01312.1cd     +++|
01343  M00S01313.1cd     +++|*         END OF FILE PROCESSORS.
01344  M00S01314.1cd     +++|
01345  M00S01315.1cd     +++| COBB     INDEX
01346  M00S01316.1cd     +++|          INDEX  LPDT,/3CZ/LEF  LIST END OF INFORMATION
01347  M00S01317.1cd     +++|          INDEX  CPDT,/3CZ/PEF  PUNCH END OF FILE
01348  M00S01318.1cd     +++|          INDEX  NPDT,/3CY/NEF  LIST END OF INFORMATION
01349  M00S01319.1cd     +++|          INDEX  MXDT
01350  M00S01320.1cd     +++|
01351  M00S01321.1cd     +++|*         READ REQUEST CODES.
01352  M00S01322.1cd     +++|
01353  M00S01323.1cd     +++| COBC     INDEX
01354  M00S01324.1cd     +++|          INDEX  LPDT,600    READEI
01355  M00S01325.1cd     +++|          INDEX  CPDT,10     READ
01356  M00S01326.1cd     +++|          INDEX  NPDT,600    READEI
01357  M00S01327.1cd     +++|          INDEX  MXDT
01358  M00S01328.1cd     +++| CPS      SPACE  4,15
01359  M00S01329.1cd     +++|**        CPS - CALL PP SERVICE PROGRAM.
01360  M00S01330.1cd     +++|*
01361  M00S01331.1cd     +++|*         ENTRY  (A) = REQUEST.
01362  M00S01332.1cd     +++|*
01363  M00S01333.1cd     +++|*         EXIT   (A) = 0 IF REQUEST NOT ACCEPTED.
01364  M00S01334.1cd     +++|*
01365  M00S01335.1cd     +++|*         USES   BS+4, T0, CM - CM+4.
01366  M00S01336.1cd     +++|*
01367  M00S01337.1cd     +++|*         CALLS  *CIO*, *QAP*, SFA.
01368  M00S01338.1cd     +++|*
01369  M00S01339.1cd     +++|*         MACROS EXECUTE, MONITOR.
01370  M00S01340.1cd     +++|
01371  M00S01341.1cd     +++|
01372  M00S01342.1cd     +++| CPS      SUBR               ENTRY/EXIT
01373  M00S01343.1cd     +++|          STD    T0          SAVE REQUEST
01374  M00S01344.1cd     +++|          SHN    -9D
01375  M00S01345.1cd     +++|          STD    CM+2
01376  M00S01346.1cd     +++|          ZJN    CPS1        IF CIO REQUEST
01377  M00S01347.1cd     +++|          SHN    9D          CLEAR UPPER THREE BITS OF REQUEST
01378  M00S01348.1cd     +++|          LMD    T0
01379  M00S01349.1cd     +++|          STD    T0
01380  M00S01350.1cd     +++|          LDC    3RPQA&3ROCI
01381  M00S01351.1cd     +++| CPS1     LMC    3ROCI
01382  M00S01352.1cd     +++|          STD    CM
01383  M00S01353.1cd     +++|          SHN    -6
01384  M00S01354.1cd     +++|          SCN    77
01385  M00S01355.1cd     +++|          STD    CM+1
01386  M00S01356.1cd     +++|          LDD    BS+4        SAVE CURRENT BUFFER STATUS
01387  M00S01357.1cd     +++|          STM    CPSB
01388  M00S01358.1cd     +++|          LPN    1
01389  M00S01359.1cd     +++|          ZJN    CPSX        IF BUFFER BUSY
01390  M00S01360.1cd     +++|          LMD    BS+4
01391  M00S01361.1cd     +++|          LMD    T0
01392  M00S01362.1cd     +++|          ZJN    CPSX        IF SAME OPERATION
01393  M00S01363.1cd     +++|          LDD    T0          SET REQUEST
01394  M00S01364.1cd     +++|          STD    BS+4
01395  M00S01365.1cd     +++|          LDD    CM+2
01396  M00S01366.1cd     +++|          STM    CMSB
01397  M00S01367.1cd     +++|          LDI    BI          SET FET ADDRESS IN CALL
01398  M00S01368.1cd     +++|          STD    CM+3
01399  M00S01369.1cd     +++|          LDM    1,BI
01400  M00S01370.1cd     +++|          STD    CM+4
01401  M00S01371.1cd     +++|          RJM    SFA         STORE BUFFER STATUS
01402  M00S01372.1cd     +++|          CWD    BS
01403  M00S01373.1cd     +++|          EXECUTE  CIO,=
01404  M00S01374.1cd     +++|          EXECUTE  QAP,=
01405  M00S01375.1cd     +++|          LDD    MA
01406  M00S01376.1cd     +++|          CWD    CM
01407  M00S01377.1cd     +++|          LDN    0           ENABLE QUEUING OF PP REQUEST
01408  M00S01378.1cd     +++|          STD    CM+1
01409  M00S01379.1cd     +++|          MONITOR  RPPM
01410  M00S01380.1cd     +++|          LDD    CM+1
01411  M00S01381.1cd     +++|          NJN    CPS2        IF PP ASSIGNED
01412  M00S01382.1cd     +++|          LDC    *
01413  M00S01383.1cd     +++| CPSB     EQU    *-1
01414  M00S01384.1cd     +++|          STD    BS+4        RESTORE ORIGINAL STATUS
01415  M00S01385.1cd     +++|          RJM    SFA         SET FET ADDRESS
01416  M00S01386.1cd     +++|          CWD    BS
01417  M00S01387.1cd     +++|          LDN    0
01418  M00S01388.1cd     +++|          STM    CMSB
01419  M00S01389.1cd     +++| CPS2     LJM    CPSX        RETURN
01420  M00S01390.1cd     +++| CRV      SPACE  4,10
01421  M00S01391.1cd     +++|**        CRV - CHECK FOR RECOVERED ERROR.
01422  M00S01392.1cd     +++|*
01423  M00S01393.1cd     +++|*         ENTRY  (A) = INDEX OF ERROR.
01424  M00S01394.1cd     +++|*
01425  M00S01395.1cd     +++|*         EXIT   (A) = 0.
01426  M00S01396.1cd     +++|*
01427  M00S01397.1cd     +++|*         USES   T1, T3.
01428  M00S01398.1cd     +++|*
01429  M00S01399.1cd     +++|*         CALLS  SDM.
01430  M00S01400.1cd     +++|
01431  M00S01401.1cd     +++|
01432  M00S01402.1cd     +++| CRV      SUBR               ENTRY/EXIT
01433  M00S01403.1cd     +++|          STD    T1          SAVE INDEX
01434  M00S01404.1cd     +++|          LDM    FRCI+EQSB,T1  GET ERROR COUNT
01435  M00S01405.1cd     +++|          ZJN    CRVX        IF NO PREVIOUS ERROR
01436  M00S01406.1cd     +++|          SHN    6
01437  M00S01407.1cd     +++|          STD    T3          SAVE RETRY COUNT
01438  M00S01408.1cd     +++|          LDN    0
01439  M00S01409.1cd     +++|          STM    FRCI+EQSB,T1  CLEAR ERROR COUNTER
01440  M00S01410.1cd     +++|          LDM    TERC,T1
01441  M00S01411.1cd     +++|          RJM    SDM
01442  M00S01412.1cd     +++|*         LDN    0
01443  M00S01413.1cd     +++|          UJN    CRVX        RETURN
01444  M00S01414.1cd     +++| CUL      SPACE  4,15
01445  M00S01415.1cd     +++|**        CUL - CHECK USER LIMIT REACHED.
01446  M00S01416.1cd     +++|*
01447  M00S01417.1cd     +++|*         ENTRY  (A) = DECREMENT OF RECORD COUNT.
01448  M00S01418.1cd     +++|*                (EQ) = EQUIPMENT TYPE CODE.
01449  M00S01419.1cd     +++|*
01450  M00S01420.1cd     +++|*         EXIT   (A) = 0 IF USER LIMIT NOT EXCEEDED.
01451  M00S01421.1cd     +++|*                IF THE USER LIMIT IS EXCEEDED,
01452  M00S01422.1cd     +++|*                THEN EXIT IS MADE TO THE RESPECTIVE
01453  M00S01423.1cd     +++|*                DRIVER.
01454  M00S01424.1cd     +++|*
01455  M00S01425.1cd     +++|*         USES   T1.
01456  M00S01426.1cd     +++|*
01457  M00S01427.1cd     +++|*         CALLS  CPS, ECB, MGR.
01458  M00S01428.1cd     +++|
01459  M00S01429.1cd     +++|
01460  M00S01430.1cd     +++| CUL4     LDN    0           RETURN WITH (A) = 0
01461  M00S01431.1cd     +++|
01462  M00S01432.1cd     +++| CUL      SUBR               ENTRY/EXIT
01463  M00S01433.1cd     +++|          LMC    -0
01464  M00S01434.1cd     +++|          RAM    CMRC+1
01465  M00S01435.1cd     +++|          PJN    CUL4        IF NO UNDERFLOW
01466  M00S01436.1cd     +++|          AOM    CMRC+1
01467  M00S01437.1cd     +++|          SOM    CMRC
01468  M00S01438.1cd     +++|          PJN    CUL4        IF USER LIMIT NOT EXCEEDED
01469  M00S01439.1cd     +++|          AOM    CMRC
01470  M00S01440.1cd     +++|
01471  M00S01441.1cd     +++|*         AN EXIT TO *CULX* IS NOT POSSIBLE AFTER THIS POINT.
01472  M00S01442.1cd     +++|*         (SEE *PROGRAMMING CONSIDERATIONS*.)
01473  M00S01443.1cd     +++|
01474  M00S01444.1cd     +++| CUL1     RJM    MGR         GO TO MANAGER
01475  M00S01445.1cd     +++|          LDD    BS+4        CHECK IF BUFFER ACTIVE
01476  M00S01446.1cd     +++|          SHN    21-0
01477  M00S01447.1cd     +++|          PJN    CUL1        IF BUFFER ACTIVE
01478  M00S01448.1cd     +++|          RJM    ECB         EMPTY CENTRAL BUFFER
01479  M00S01449.1cd     +++| CUL2     LDC    PLEF+1000   REQUEST OUTPUT FILE TERMINATION
01480  M00S01450.1cd     +++|          RJM    CPS
01481  M00S01451.1cd     +++| CUL3     RJM    MGR         GO TO MANAGER
01482  M00S01452.1cd     +++|          ZJN    CUL2        IF REQUEST NOT ENTERED
01483  M00S01453.1cd     +++|          LDD    BS+4
01484  M00S01454.1cd     +++|          SHN    21-0
01485  M00S01455.1cd     +++|          PJN    CUL3        IF REQUEST NOT COMPLETE

Seq #  *Modification Id* Act 
----------------------------+
01486  M01S01456.ns2597  ---|          LDM    CMSF        CLEAR 12 BIT ASCII STATUS
01487  M01S01457.ns2597  ---|          SCN    10

Seq #  *Modification Id* Act 
----------------------------+
01488  M01S00001.ns2597  +++|          LDM    CMSF        CLEAR 6/12 AND 8/12 ASCII STATUS
01489  M01S00002.ns2597  +++|          SCN    50
01490  M00S01458.1cd     +++|          STM    CMSF
01491  M00S01459.1cd     +++|          LDM    CULA,EQ     SET PROCESSOR ADDRESS
01492  M00S01460.1cd     +++|          STD    T1
01493  M00S01461.1cd     +++|          LJM    0,T1        PROCESS USER VALIDATION EXCEEDED
01494  M00S01462.1cd     +++|
01495  M00S01463.1cd     +++|
01496  M00S01464.1cd     +++| CULA     INDEX              VALIDATION EXCEEDED PROCESSORS
01497  M00S01465.1cd     +++|          INDEX  LPDT,/3CZ/LPD4
01498  M00S01466.1cd     +++|          INDEX  CPDT,/3CZ/CPD3
01499  M00S01467.1cd     +++|          INDEX  NPDT,/3CY/NPD4
01500  M00S01468.1cd     +++|          INDEX  MXDT
01501  M00S01469.1cd     +++|ECB       SPACE  4,10
01502  M00S01470.1cd     +++|**        ECB - EMPTY CIRCULAR BUFFER.
01503  M00S01471.1cd     +++|*
01504  M00S01472.1cd     +++|*         EXIT   IN = OUT = FIRST.
01505  M00S01473.1cd     +++|*
01506  M00S01474.1cd     +++|*         CALLS  SOP.
01507  M00S01475.1cd     +++|
01508  M00S01476.1cd     +++|
01509  M00S01477.1cd     +++| ECB      SUBR               ENTRY/EXIT
01510  M00S01478.1cd     +++|          LDK    FT-EQSB     SET OUT = FIRST
01511  M00S01479.1cd     +++|          RJM    SOP         STORE OUT POINTER
01512  M00S01480.1cd     +++|          SBN    1           STORE IN POINTER
01513  M00S01481.1cd     +++|          CWD    CM
01514  M00S01482.1cd     +++|          UJN    ECBX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
01515  M01S00003.ns2597  +++| MCC      SPACE  4,10
01516  M01S00004.ns2597  +++|**        MCC - MOVE AND CONVERT CHARACTER.
01517  M01S00005.ns2597  +++|*
01518  M01S00006.ns2597  +++|*         ENTRY  (A) = DISPLAY CODE CHARACTER.
01519  M01S00007.ns2597  +++|*                (T2) = BYTE INDEX.
01520  M01S00008.ns2597  +++|*
01521  M01S00009.ns2597  +++|*         EXIT   (T0) = 0#23, IF ILLEGAL CHARACTER.
01522  M01S00010.ns2597  +++|*                (T2) DECREMENTED, IF CHARACTER NOT ESCAPE CODE.
01523  M01S00011.ns2597  +++|*                (T3) = UNCONVERTED CHARACTER.
01524  M01S00012.ns2597  +++|*
01525  M01S00013.ns2597  +++|*         USES   T2, T3.
01526  M01S00014.ns2597  +++|
01527  M01S00015.ns2597  +++|
01528  M01S00016.ns2597  +++| MCC3     ADN    76          SAVE UNCONVERTED NORMAL CHARACTER
01529  M01S00017.ns2597  +++| MCC4     STD    T3
01530  M01S00018.ns2597  +++|          SOD    T2          DECREMENT BUFFER INDEX
01531  M01S00019.ns2597  +++|          LDM    CTBL,T3     CONVERT CHARACTER
01532  M01S00020.ns2597  +++| MCC5     STM    1,T2
01533  M01S00021.ns2597  +++|
01534  M01S00022.ns2597  +++| MCC      SUBR               ENTRY/EXIT
01535  M01S00023.ns2597  +++|          UJN    MCC4        CONVERT CHARACTER
01536  M01S00024.ns2597  +++|*         PSN                (IF ASCII 6/12 FILE)
01537  M01S00025.ns2597  +++| MCCA     EQU    *-1
01538  M01S00026.ns2597  +++|          SBN    74
01539  M01S00027.ns2597  +++|          ZJN    MCC1        IF CHARACTER IS ESCAPE CODE 74
01540  M01S00028.ns2597  +++|          SBN    76-74
01541  M01S00029.ns2597  +++|          NJN    MCC3        IF CHARACTER IS NOT ESCAPE CODE 76
01542  M01S00030.ns2597  +++|          LDD    T3
01543  M01S00031.ns2597  +++|          ZJN    MCC2        IF 7600
01544  M01S00032.ns2597  +++|          SBN    37
01545  M01S00033.ns2597  +++|          PJN    MCC2        IF 7637 - 7677
01546  M01S00034.ns2597  +++|          ADC    140+37
01547  M01S00035.ns2597  +++|          UJN    MCC5        STORE CONVERTED CHARACTER
01548  M01S00036.ns2597  +++|
01549  M01S00037.ns2597  +++| MCC1     LDD    T3
01550  M01S00038.ns2597  +++|          SBN    MCCBL
01551  M01S00039.ns2597  +++|          PJN    MCC2        IF ILLEGAL CHARACTER
01552  M01S00040.ns2597  +++|          LDM    MCCB,T3
01553  M01S00041.ns2597  +++|          NJN    MCC5        IF LEGAL CHARACTER
01554  M01S00042.ns2597  +++| MCC2     LDN    0#23        FLAG ILLEGAL CHARACTER
01555  M01S00043.ns2597  +++|          STD    T0
01556  M01S00044.ns2597  +++|          LDN    0#20        REPLACE WITH BLANK
01557  M01S00045.ns2597  +++|          UJN    MCC5        STORE CHARACTER
01558  M01S00046.ns2597  +++|
01559  M01S00047.ns2597  +++|
01560  M01S00048.ns2597  +++|*         TABLE OF 74XX CHARACTERS.
01561  M01S00049.ns2597  +++|
01562  M01S00050.ns2597  +++| MCCB     BSS    0
01563  M01S00051.ns2597  +++|          CON    0           ILLEGAL
01564  M01S00052.ns2597  +++|          CON    100         COMMERCIAL AT
01565  M01S00053.ns2597  +++|          CON    136         CIRCUMFLEX
01566  M01S00054.ns2597  +++|          CON    0           ILLEGAL
01567  M01S00055.ns2597  +++| MCCC     CON    72          COLON   (64 CHARACTER SET)
01568  M01S00056.ns2597  +++|*         CON    45          PERCENT (63 CHARACTER SET)
01569  M01S00057.ns2597  +++|          CON    0           ILLEGAL
01570  M01S00058.ns2597  +++|          CON    0           ILLEGAL
01571  M01S00059.ns2597  +++|          CON    140         GRAVE
01572  M01S00060.ns2597  +++| MCCBL    EQU    *-MCCB
01573  M00S01483.1cd     +++| MSG      SPACE  4,10
01574  M00S01484.1cd     +++|**        MSG - SET BUFFER POINT MESSAGE.
01575  M00S01485.1cd     +++|*
01576  M00S01486.1cd     +++|*         ENTRY  (A) = MESSAGE NUMBER.
01577  M00S01487.1cd     +++|*
01578  M00S01488.1cd     +++|*         USES   T1, CM - CM+4.
01579  M00S01489.1cd     +++|*
01580  M00S01490.1cd     +++|*         MACROS NFA.
01581  M00S01491.1cd     +++|
01582  M00S01492.1cd     +++|
01583  M00S01493.1cd     +++| MSG      SUBR               ENTRY/EXIT
01584  M00S01494.1cd     +++|          STD    T1
01585  M00S01495.1cd     +++|          NFA    BF,R        READ MESSAGE CONTROL
01586  M00S01496.1cd     +++|          ADN    1
01587  M00S01497.1cd     +++|          CRD    CM
01588  M00S01498.1cd     +++|          LDD    CM          CHECK PREVIOUS MESSAGE
01589  M00S01499.1cd     +++|          LMD    T1
01590  M00S01500.1cd     +++|          ZJN    MSGX        IF SAME AS CURRENT MESSAGE
01591  M00S01501.1cd     +++|          LDD    T1          SET BUFFER POINT MESSAGE
01592  M00S01502.1cd     +++|          STD    CM
01593  M00S01503.1cd     +++|          SBN    ENEC
01594  M00S01504.1cd     +++|          MJN    MSG1        IF NOT ERROR CONDITION
01595  M00S01505.1cd     +++|          LDD    CP          STORE CONTROL POINT MESSAGE
01596  M00S01506.1cd     +++|          ADN    MS2W
01597  M00S01507.1cd     +++|          CWM    MSGA,TR
01598  M00S01508.1cd     +++| MSG1     NFA    BF,R        STORE BUFFER POINT MESSAGE
01599  M00S01509.1cd     +++|          ADN    1
01600  M00S01510.1cd     +++|          CWD    CM
01601  M00S01511.1cd     +++|          UJN    MSGX        RETURN
01602  M00S01512.1cd     +++|
01603  M00S01513.1cd     +++|
01604  M00S01514.1cd     +++| MSGA     DATA   C+$REQUEST *I* DISPLAY.+
01605  M00S01515.1cd     +++| PMR      SPACE  4,10
01606  M00S01516.1cd     +++|**        PMR - PROCESS MESSAGE REQUEST.
01607  M00S01517.1cd     +++|*
01608  M00S01518.1cd     +++|*         EXIT   (A) = 0 IF NO REQUEST OR REQUEST PROCESSED.
01609  M00S01519.1cd     +++|*
01610  M00S01520.1cd     +++|*         USES   BS+4.
01611  M00S01521.1cd     +++|*
01612  M00S01522.1cd     +++|*         CALLS  CPS, SFA.
01613  M00S01523.1cd     +++|
01614  M00S01524.1cd     +++|
01615  M00S01525.1cd     +++| PMR2     LDD    BS+4        CHECK BUFFER BUSY
01616  M00S01526.1cd     +++|          LPN    1
01617  M00S01527.1cd     +++|          ZJN    PMR4        IF BUSY
01618  M00S01528.1cd     +++|          LDM    CMBS
01619  M00S01529.1cd     +++|          STD    BS+4        RESTORE PREVIOUS STATUS
01620  M00S01530.1cd     +++|          RJM    SFA         SET FET ADDRESS
01621  M00S01531.1cd     +++|          CWD    BS
01622  M00S01532.1cd     +++|          LDN    0
01623  M00S01533.1cd     +++| PMR3     STM    CMMR        INDICATE REQUEST IN PROGRESS/COMPLETED
01624  M00S01534.1cd     +++|          ADN    1
01625  M00S01535.1cd     +++| PMR4     LMN    1           SET EXIT CONDITIONS
01626  M00S01536.1cd     +++|
01627  M00S01537.1cd     +++| PMR      SUBR               ENTRY/EXIT
01628  M00S01538.1cd     +++|          LDM    CMMR
01629  M00S01539.1cd     +++|          ZJN    PMRX        IF NO REQUEST
01630  M00S01540.1cd     +++|          SHN    6
01631  M00S01541.1cd     +++|          MJN    PMR2        IF REQUEST IN PROGRESS
01632  M00S01542.1cd     +++|          LDC    PDMF+1000   PROCESS DAYFILE MESSAGE
01633  M00S01543.1cd     +++|          RJM    CPS
01634  M00S01544.1cd     +++|          ZJN    PMR4        IF REQUEST NOT HONORED
01635  M00S01545.1cd     +++|          LDM    CPSB
01636  M00S01546.1cd     +++|          LMC    PDMF+3
01637  M00S01547.1cd     +++|          ZJN    PMR1        IF PREVIOUS STATUS MESSAGE PROCESSING
01638  M00S01548.1cd     +++|          LMC    PDMF+3
01639  M00S01549.1cd     +++|          STM    CMBS        SAVE PREVIOUS STATUS
01640  M00S01550.1cd     +++| PMR1     LCN    7
01641  M00S01551.1cd     +++|          UJN    PMR3        SET REQUEST IN PROGRESS
01642  M00S01552.1cd     +++| PRE      SPACE  4,10
01643  M00S01553.1cd     +++|**        PRE - PROCESS RETRIED ERROR.
01644  M00S01554.1cd     +++|*
01645  M00S01555.1cd     +++|*         ENTRY  (A) = INDEX OF ERROR.
01646  M00S01556.1cd     +++|*
01647  M00S01557.1cd     +++|*         EXIT   TO *CEP* IF MAXIMUM RETRIES REACHED.
01648  M00S01558.1cd     +++|*
01649  M00S01559.1cd     +++|*         USES   T1.
01650  M00S01560.1cd     +++|*
01651  M00S01561.1cd     +++|*         CALLS  SDM, WST.
01652  M00S01562.1cd     +++|
01653  M00S01563.1cd     +++|
01654  M00S01564.1cd     +++| PRE      SUBR               ENTRY/EXIT
01655  M00S01565.1cd     +++|          STD    T1          SAVE INDEX
01656  M00S01566.1cd     +++|          RJM    WST         WRITE STATUS TO FET
01657  M00S01567.1cd     +++|          AOM    FRCI+EQSB,T1  INCREMENT ERROR COUNTER
01658  M00S01568.1cd     +++|          SBM    TMAX,T1     COMPARE TO MAXIMUM
01659  M00S01569.1cd     +++|          NJN    PREX        IF NOT AT MAXIMUM
01660  M00S01570.1cd     +++|
01661  M00S01571.1cd     +++|*         ISSUE MESSAGE AND TERMINATE OPERATION.
01662  M00S01572.1cd     +++|
01663  M00S01573.1cd     +++|          LDM    FRCI+EQSB,T1  GET RETRY COUNT
01664  M00S01574.1cd     +++|          SHN    6
01665  M00S01575.1cd     +++|          ADN    1           SET UNRECOVERED FLAG
01666  M00S01576.1cd     +++|          STD    T3
01667  M00S01577.1cd     +++|          LDN    0           CLEAR COUNTER
01668  M00S01578.1cd     +++|          STM    FRCI+EQSB,T1
01669  M00S01579.1cd     +++|          LDM    TERC,T1
01670  M00S01580.1cd     +++|          RJM    SDM
01671  M00S01581.1cd     +++|          LJM    CEP         CHANNEL ERROR PROCESSOR
01672  M00S01582.1cd     +++| TERC     SPACE  4,10
01673  M00S01583.1cd     +++|**        TERC - TABLE OF ERROR CODES.
01674  M00S01584.1cd     +++|
01675  M00S01585.1cd     +++|
01676  M00S01586.1cd     +++| TERC     INDEX
01677  M00S01587.1cd     +++|          INDEX  DRRI,EITM   INCOMPLETE DATA TRANSFER
01678  M00S01588.1cd     +++|          INDEX  FRJI,ERJM   INTERNAL/EXTERNAL REJECT
01679  M00S01589.1cd     +++|          INDEX  SCEI,ECRE   CHANNEL PARITY ERROR - STATUS
01680  M00S01590.1cd     +++|          INDEX  DCPI,ECRE   CHANNEL PARITY ERROR - DATA
01681  M00S01591.1cd     +++|          INDEX  PERI,EPLM   PRINT ERROR
01682  M00S01592.1cd     +++|          INDEX  MXRI
01683  M00S01593.1cd     +++| TMAX     SPACE  4,10
01684  M00S01594.1cd     +++|**        TMAX - TABLE OF MAXIMUM RETRIES.
01685  M00S01595.1cd     +++|
01686  M00S01596.1cd     +++|
01687  M00S01597.1cd     +++| TMAX     INDEX
01688  M00S01598.1cd     +++|          INDEX  DRRI,ERRL   INCOMPLETE DATA TRANSFER
01689  M00S01599.1cd     +++|          INDEX  FRJI,ERRL   INTERNAL/EXTERNAL REJECT
01690  M00S01600.1cd     +++|          INDEX  SCEI,CHPR   CHANNEL PARITY ERROR - STATUS
01691  M00S01601.1cd     +++|          INDEX  DCPI,CHPR   CHANNEL PARITY ERROR - DATA
01692  M00S01602.1cd     +++|          INDEX  PERI,PERL   PRINT ERROR
01693  M00S01603.1cd     +++|          INDEX  MXRI
01694  M00S01604.1cd     +++| PSD      SPACE  4,15
01695  M00S01605.1cd     +++|**        PSD - PRESET DRIVER.
01696  M00S01606.1cd     +++|*
01697  M00S01607.1cd     +++|*         ENTRY  (FA) = FST ADDRESS.
01698  M00S01608.1cd     +++|*                (UL - UL+1) = USER LIMITS.
01699  M00S01609.1cd     +++|*
01700  M00S01610.1cd     +++|*         EXIT   FILE REWOUND.
01701  M00S01611.1cd     +++|*                USER LIMITS SET IN *CMRC*.

Seq #  *Modification Id* Act 
----------------------------+
01702  M01S01612.ns2597  ---|*                12 BIT ASCII PRINT CONTROL SET/CLEARED IN *CMSF.*

Seq #  *Modification Id* Act 
----------------------------+
01703  M01S00061.ns2597  +++|*                6/12 AND 8/12 ASCII PRINT FLAGS SET/CLEAR IN *CMSF*.
01704  M00S01613.1cd     +++|*
01705  M00S01614.1cd     +++|*         USES   CM - CM+4.
01706  M00S01615.1cd     +++|*
01707  M00S01616.1cd     +++|*         MACROS NFA.
01708  M00S01617.1cd     +++|
01709  M00S01618.1cd     +++|
01710  M00S01619.1cd     +++| PSD      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
01711  M01S01620.1cd9    ---|          LDD    F6+2        SET/CLEAR 12 BIT ASCII PRINT FILE FLAG

Seq #  *Modification Id* Act 
----------------------------+
01712  M02S00022.ns2597  ---|          LDD    F2+2        SET/CLEAR 12 BIT ASCII PRINT FILE FLAG

Seq #  *Modification Id* Act 
----------------------------+
01713  M01S01621.ns2597  ---|          LPN    4

Seq #  *Modification Id* Act 
----------------------------+
01714  M01S00062.ns2597  +++|          LDD    F2+2        SET/CLEAR ASCII PRINT FILE FLAGS
01715  M01S00063.ns2597  +++|          LPN    24
01716  M00S01622.1cd     +++|          SHN    1
01717  M00S01623.1cd     +++|          STM    CMSF
01718  M00S01624.1cd     +++|          NFA    FA,R        READ FST INFORMATION
01719  M00S01625.1cd     +++|          CRD    CM
01720  M00S01626.1cd     +++|          LDD    CM+1        REWIND FILE
01721  M00S01627.1cd     +++|          STD    CM+2
01722  M00S01628.1cd     +++|          LDN    FSMS
01723  M00S01629.1cd     +++|          STD    CM+3
01724  M00S01630.1cd     +++|          NFA    FA,R        STORE FST INFORMATION
01725  M00S01631.1cd     +++|          CWD    CM
01726  M00S01632.1cd     +++|          LDD    UL          SET USER LIMITS
01727  M00S01633.1cd     +++|          STM    CMRC
01728  M00S01634.1cd     +++|          LDD    UL+1
01729  M00S01635.1cd     +++|          STM    CMRC+1
01730  M00S01636.1cd     +++|          UJN    PSDX        RETURN
01731  M00S01637.1cd     +++| RCB      SPACE  4,15
01732  M00S01638.1cd     +++|**        RCB - READ CODED BUFFER.
01733  M00S01639.1cd     +++|*
01734  M00S01640.1cd     +++|*         ENTRY  (A) = CM WORD LIMIT FOR LINE/CARD IMAGE.
01735  M00S01641.1cd     +++|*
01736  M00S01642.1cd     +++|*         EXIT   (A) = (CMLR) = LENGTH OF LINE/CARD IN BYTES.
01737  M00S01643.1cd     +++|*                (T2 - T6) = FIRST WORD NEXT LINE/CARD.
01738  M00S01644.1cd     +++|*                (CM - CM+4) = LAST WORD CURRENT LINE/CARD.
01739  M00S01645.1cd     +++|*                (OT - OT+1) UPDATED.
01740  M00S01646.1cd     +++|*                (T1) = ADDRESS + 1 OF LAST CHARACTER TRANSLATED.
01741  M00S01647.1cd     +++|*

Seq #  *Modification Id* Act 
----------------------------+
01742  M01S01648.ns2597  ---|*         USES   OT - OT+1, T1 - T7.

Seq #  *Modification Id* Act 
----------------------------+
01743  M01S00064.ns2597  +++|*         USES   T1 - T7.
01744  M00S01649.1cd     +++|*

Seq #  *Modification Id* Act 
----------------------------+
01745  M01S01650.ns2597  ---|*         CALLS  RNL, SCN.

Seq #  *Modification Id* Act 
----------------------------+
01746  M01S00065.ns2597  +++|*         CALLS  MCC, RNL, SCN.
01747  M00S01651.1cd     +++|
01748  M00S01652.1cd     +++|
01749  M00S01653.1cd     +++| RCB3     LDI    T7          CHECK NEXT CHARACTER
01750  M00S01654.1cd     +++|          LPC    3777        IGNORE HIGH-ORDER BIT
01751  M00S01655.1cd     +++|          SBN    40
01752  M00S01656.1cd     +++|          MJN    RCB4        IF INCORRECT CHARACTER
01753  M00S01657.1cd     +++|          SBK    177-40
01754  M00S01658.1cd     +++|          MJN    RCB5        IF LEGAL CHARACTER
01755  M00S01659.1cd     +++| RCB4     LDN    40          SUBSTITUTE BLANK
01756  M00S01660.1cd     +++|          STI    T7
01757  M00S01661.1cd     +++|          LDN    43          SET INCORRECT CHARACTER IN LINE
01758  M00S01662.1cd     +++|          STM    1,DA
01759  M00S01663.1cd     +++| RCB5     AOD    T7          ADVANCE BUFFER ADDRESS
01760  M00S01664.1cd     +++|          LMD    T1
01761  M00S01665.1cd     +++| RCB6     NJN    RCB3        IF NOT EOL
01762  M00S01666.1cd     +++|*         PSN                (NON-IMPACT PRINTER)
01763  M00S01667.1cd     +++| RCBA     EQU    RCB6
01764  M00S01668.1cd     +++| RCB7     LDD    OT          READ NEXT WORD
01765  M00S01669.1cd     +++|          SHN    6
01766  M00S01670.1cd     +++|          ADD    RA
01767  M00S01671.1cd     +++|          SHN    6
01768  M00S01672.1cd     +++|          ADD    OT+1
01769  M00S01673.1cd     +++|          CRD    T2
01770  M00S01674.1cd     +++|          LDD    T1          SET BYTE COUNT FOR LINE/CARD IMAGE
01771  M00S01675.1cd     +++|          SBD    DA
01772  M00S01676.1cd     +++|          STM    CMLR
01773  M00S01677.1cd     +++|
01774  M00S01678.1cd     +++| RCB      SUBR               ENTRY/EXIT
01775  M00S01679.1cd     +++|          STD    T3
01776  M00S01680.1cd     +++|          LDC    1S12        READ CODED LINE/CARD
01777  M00S01681.1cd     +++|          LMD    DA
01778  M00S01682.1cd     +++|          RJM    RNL
01779  M00S01683.1cd     +++|          LDD    T1
01780  M00S01684.1cd     +++|          SBD    T7
01781  M00S01685.1cd     +++|          ZJN    RCB7        IF EMPTY LINE OR CARD
01782  M00S01686.1cd     +++|          LDM    CMSF        CHECK MODE OF FILE

Seq #  *Modification Id* Act 
----------------------------+
01783  M01S00066.ns2597  +++|          LPN    50
01784  M01S00067.ns2597  +++|          ZJN    RCB1        IF NOT ASCII FILE
01785  M00S01687.1cd     +++|          LPN    10

Seq #  *Modification Id* Act 
----------------------------+
01786  M01S01688.ns2597  ---|          NJN    RCB6        IF ASCII PRINT FILE

Seq #  *Modification Id* Act 
----------------------------+
01787  M01S00068.ns2597  +++|          NJN    RCB6        IF 8/12 ASCII FILE
01788  M01S00069.ns2597  +++|          STD    T0          INITIALIZE ILLEGAL CHARACTER FLAG
01789  M01S00070.ns2597  +++|          UJN    RCB1.1      ENABLE 6/12 CONVERSION IN *MCC*
01790  M00S01689.1cd     +++|
01791  M00S01690.1cd     +++|*         CONVERT LINE OR CARD IMAGE.
01792  M00S01691.1cd     +++|

Seq #  *Modification Id* Act 
----------------------------+
01793  M01S00071.ns2597  +++| RCB1     LDC    **          DISABLE 6/12 CONVERSION IN *MCC*
01794  M01S00072.ns2597  +++|          ORG    *-1
01795  M01S00073.ns2597  +++|          LOC    MCCA
01796  M01S00074.ns2597  +++|          UJN    MCC4        SKIP 6/12 CONVERSION
01797  M01S00075.ns2597  +++|          LOC    *O
01798  M01S00076.ns2597  +++| RCB1.1   STM    MCCA
01799  M00S01692.1cd     +++|          RJM    SCN         LOAD CONVERSION TABLE
01800  M00S01693.1cd     +++|          SOD    T1          SET END OF DATA IN BUFFER
01801  M00S01694.1cd     +++|          STD    T4
01802  M00S01695.1cd     +++|          ADN    1
01803  M00S01696.1cd     +++|          SBD    DA          SET END OF UNPACKED DATA
01804  M00S01697.1cd     +++|          SHN    1
01805  M00S01698.1cd     +++|          ADD    DA
01806  M00S01699.1cd     +++|          STD    T1
01807  M00S01700.1cd     +++|          SBN    1
01808  M00S01701.1cd     +++|          STD    T2
01809  M00S01702.1cd     +++|          LDI    T4          SAVE LAST CHARACTER FOR PUNCH DRIVER
01810  M00S01703.1cd     +++|          LPN    77
01811  M00S01704.1cd     +++|          STD    T7
01812  M00S01705.1cd     +++| RCB2     LDI    T4          UNPACK DATA BYTE

Seq #  *Modification Id* Act 
----------------------------+
01813  M01S01706.ns2597  ---|          SHN    14
01814  M01S01707.ns2597  ---|          STD    T5
01815  M01S01708.ns2597  ---|          SHN    -14
01816  M01S01709.ns2597  ---|          STD    T6
01817  M01S01710.ns2597  ---|          LDM    CTBL,T6     CONVERT LOWER CHARACTER
01818  M01S01711.ns2597  ---|          STI    T2
01819  M01S01712.ns2597  ---|          SOD    T2
01820  M01S01713.ns2597  ---|          LDM    CTBL,T5     CONVERT UPPER CHARACTER
01821  M01S01714.ns2597  ---|          STI    T2
01822  M01S01715.ns2597  ---|          SOD    T2

Seq #  *Modification Id* Act 
----------------------------+
01823  M01S00077.ns2597  +++|          LPN    77
01824  M01S00078.ns2597  +++|          RJM    MCC         MOVE AND CONVERT CHARACTER
01825  M01S00079.ns2597  +++|          LDI    T4
01826  M01S00080.ns2597  +++|          SHN    -6
01827  M01S00081.ns2597  +++|          RJM    MCC         MOVE AND CONVERT CHARACTER
01828  M00S01716.1cd     +++|          SOD    T4          DECREMENT DATA ADDRESS
01829  M00S01717.1cd     +++|          SBD    DA
01830  M00S01718.1cd     +++|          PJN    RCB2        IF NOT START OF BUFFER

Seq #  *Modification Id* Act 
----------------------------+
01831  M01S01719.ns2597  ---|          LJM    RCB7        READ NEXT WORD

Seq #  *Modification Id* Act 
----------------------------+
01832  M01S00082.ns2597  +++|          LDM    CMSF
01833  M01S00083.ns2597  +++|          LPN    40
01834  M01S00084.ns2597  +++|          ZJN    RCB2.3      IF NOT 6/12 ASCII
01835  M01S00085.ns2597  +++|          LDD    DA          SET BUFFER INDEX
01836  M01S00086.ns2597  +++|          STD    T3
01837  M01S00087.ns2597  +++| RCB2.1   AOD    T2
01838  M01S00088.ns2597  +++|          SBD    T1
01839  M01S00089.ns2597  +++|          PJN    RCB2.2      IF END OF DATA
01840  M01S00090.ns2597  +++|          LDI    T2          MOVE DATA BYTE
01841  M01S00091.ns2597  +++|          STI    T3
01842  M01S00092.ns2597  +++|          AOD    T3
01843  M01S00093.ns2597  +++|          UJN    RCB2.1      READ NEXT BYTE
01844  M01S00094.ns2597  +++|
01845  M01S00095.ns2597  +++| RCB2.2   LDD    T3          SET NEW LWA+1
01846  M01S00096.ns2597  +++|          STD    T1
01847  M01S00097.ns2597  +++|          LDD    T0
01848  M01S00098.ns2597  +++|          ZJN    RCB2.3      IF NO ILLEGAL CHARACTERS IN LINE
01849  M01S00099.ns2597  +++|          STM    1,DA        FLAG ILLEGAL CHARACTER(S)
01850  M01S00100.ns2597  +++| RCB2.3   LJM    RCB7        READ NEXT WORD
01851  M00S01720.1cd     +++| RDB      SPACE  4,10
01852  M00S01721.1cd     +++|**        RDB - RELEASE DATA BUFFER.
01853  M00S01722.1cd     +++|*
01854  M00S01723.1cd     +++|*         ENTRY  (CMDB) = FWA+1 OF DATA BUFFER ASSIGNED.
01855  M00S01724.1cd     +++|*
01856  M00S01725.1cd     +++|*         EXIT   (A) = (CMDB) = 0.
01857  M00S01726.1cd     +++|*                (DB) = FWA OF DATA BUFFER RELEASED.
01858  M00S01727.1cd     +++|*                ((DB)) = 0.
01859  M00S01728.1cd     +++|*
01860  M00S01729.1cd     +++|*         USES   DB.
01861  M00S01730.1cd     +++|
01862  M00S01731.1cd     +++|
01863  M00S01732.1cd     +++| RDB1     SBN    1
01864  M00S01733.1cd     +++|          STD    DB
01865  M00S01734.1cd     +++|          LDN    0           RELEASE DATA BUFFER
01866  M00S01735.1cd     +++|          STI    DB
01867  M00S01736.1cd     +++|          STM    CMDB
01868  M00S01737.1cd     +++|
01869  M00S01738.1cd     +++| RDB      SUBR               ENTRY/EXIT
01870  M00S01739.1cd     +++|          LDM    CMDB
01871  M00S01740.1cd     +++|          NJN    RDB1        IF DATA BUFFER IS ASSIGNED
01872  M00S01741.1cd     +++|          UJN    RDBX        RETURN
01873  M00S01742.1cd     +++| RNL      SPACE  4,15
01874  M00S01743.1cd     +++|**        RNL - READ NEXT LINE (CARD).
01875  M00S01744.1cd     +++|*
01876  M00S01745.1cd     +++|*         ENTRY  (A) BITS 0 - 11 = PP BUFFER ADDRESS.
01877  M00S01746.1cd     +++|*                    BITS 12 - 17 = 0 IF BINARY READ.
01878  M00S01747.1cd     +++|*                                 = 1 IF CODED READ.
01879  M00S01748.1cd     +++|*                (T3) = NUMBER OF WORDS TO READ.
01880  M00S01749.1cd     +++|*                (CMBE) = NUMBER OF WORDS IN CENTRAL BUFFER.
01881  M00S01750.1cd     +++|*
01882  M00S01751.1cd     +++|*         EXIT   (T1) = END OF DATA IN PP BUFFER (CODED READ ONLY).
01883  M00S01752.1cd     +++|*                (T3) = ACTUAL WORD COUNT TO END OF LINE (CARD).
01884  M00S01753.1cd     +++|*                (T7) = PP BUFFER ADDRESS.
01885  M00S01754.1cd     +++|*
01886  M00S01755.1cd     +++|*         USES   T0 - T1, T3 - T7.
01887  M00S01756.1cd     +++|*
01888  M00S01757.1cd     +++|*         CALLS  AOP.
01889  M00S01758.1cd     +++|
01890  M00S01759.1cd     +++|
01891  M00S01760.1cd     +++| RNL      SUBR               ENTRY/EXIT
01892  M00S01761.1cd     +++|          STM    RNLB        SET PP BUFFER ADDRESS
01893  M00S01762.1cd     +++|          STD    T1
01894  M00S01763.1cd     +++|          STD    T7
01895  M00S01764.1cd     +++|          SHN    -14         SAVE BINARY / CODED READ FLAG
01896  M00S01765.1cd     +++|          STD    T6
01897  M00S01766.1cd     +++|          LDM    CMBE        CHECK DATA IN CENTRAL BUFFER
01898  M00S01767.1cd     +++|          SBD    T3
01899  M00S01768.1cd     +++|          PJN    RNL1        IF SUFFICIENT DATA
01900  M00S01769.1cd     +++|          RAD    T3
01901  M00S01770.1cd     +++| RNL1     LDD    T3          NUMBER OF WORDS TO READ
01902  M00S01771.1cd     +++|          STD    T5
01903  M00S01772.1cd     +++|          LDD    LM          LIMIT - OUT
01904  M00S01773.1cd     +++|          SBD    OT
01905  M00S01774.1cd     +++|          SHN    14
01906  M00S01775.1cd     +++|          ADD    LM+1
01907  M00S01776.1cd     +++|          SBD    OT+1
01908  M00S01777.1cd     +++|          STD    T0          NUMBER OF WORDS FROM *OUT* TO *LIMIT*
01909  M00S01778.1cd     +++|          SBD    T3
01910  M00S01779.1cd     +++|          PJN    RNL2        IF NO WRAP AROUND
01911  M00S01780.1cd     +++|          LMC    -0          NUMBER OF WORDS STARTING AT *FIRST*
01912  M00S01781.1cd     +++|          STD    T4
01913  M00S01782.1cd     +++|          LDD    T0          WORD COUNT FROM *OUT* TO *LIMIT*
01914  M00S01783.1cd     +++|          STD    T5
01915  M00S01784.1cd     +++|          SHN    2
01916  M00S01785.1cd     +++|          ADD    T5
01917  M00S01786.1cd     +++|          ADD    T1          BUFFER ADDRESS FOR FIRST READ

Proceed to Part 1