User Tools

Site Tools


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

Deck 1IO

14 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.1io     +++|          IDENT  1IO,BCM
00002  M01S00002.1io     +++|          PERIPH
00003  M01S00003.1io     +++|          BASE   MIXED
00004  M01S00004.1io     +++|          SST
00005  M01S00005.1io     +++|*COMMENT  1IO - BATCHIO MANAGER.
Line S00006 Modification History
M01 (Added by) 1io
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1974.
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.1io     +++|          TITLE  1IO - BATCHIO MANAGER.
00009  M01S00008.1io     +++|          SPACE  4,10
00010  M01S00009.1io     +++|*****     1IO - *BATCHIO* MANAGER.
00011  M01S00010.1io     +++|*         G. R. MANSFIELD.   70/07/20.
00012  M01S00011.1io     +++|*         P. D. HAAS.        74/04/19.
00013  M01S00012.1io     +++|*         R. M. YASUHARA.    75/01/17.
00014  M01S00013.1io     +++|*         D. R. HILGREN.     79/04/06.  RESEQUENCED.
00015  M01S00014.1io     +++|          SPACE  4,15
00016  M01S00015.1io     +++|***              1IO PERFORMS SCHEDULING OF ALL PROCESSES OPERATING AT
00017  M01S00016.1io     +++|*         THE *BATCHIO* CONTROL POINT.  THIS INCLUDES -
00018  M01S00017.1io     +++|*         (1)  SEARCHING FOR THE HIGHEST PRIORITY *OUTPUT* AND *PUNCH*
00019  M01S00018.1io     +++|*         FILES.
00020  M01S00019.1io     +++|*         (2)  CHECKING FOR A *READY* STATUS ON ANY CARD READERS.
00021  M01S00020.1io     +++|*         (3)  MANAGING BUFFER STORAGE FOR THE ABOVE.
00022  M01S00021.1io     +++|*         (4)  POSTING ERROR CONDITION MESSAGES FOR THE ABOVE.
00023  M01S00022.1io     +++|*
00024  M01S00023.1io     +++|*         1IO WITH THE OVERLAY 3ID INITIALIZES THE *BATCHIO*
00025  M01S00024.1io     +++|*         CONTROL POINT TO AN FL=200, AND SETS THE AVAILABLE EQUIPMENT
00026  M01S00025.1io     +++|*         LIST FROM WHICH THE OPERATIONS ARE SCHEDULED.
00027  M01S00026.1io     +++|*         ALSO SET IN THE CONTROL POINT ARE THE CONVERSION MODE TABLES
00028  M01S00027.1io     +++|*         WHICH 1CD WILL USE WHEN DRIVING THE VARIOUS EQUIPMENTS.
00029  M01S00028.1io     +++|          SPACE  4,10
00030  M01S00029.1io     +++|***       CALL.
00031  M01S00030.1io     +++|*
00032  M01S00031.1io     +++|*
00033  M01S00032.1io     +++|*T        18/  *1IO*,1/P,5/  CP,5/,1/F,6/ RS,12/  BN,12/  AB
Figure

01112232429 AB BN RS3031353640414259F CPP *1IO*

00034  M01S00033.1io     +++|*
00035  M01S00034.1io     +++|*         P      PRESET PERFORMED.
00036  M01S00035.1io     +++|*         CP     CONTROL POINT NUMBER.
00037  M01S00036.1io     +++|*         F      FILE PREVIOUSLY REQUESTED FLAG.
00038  M01S00037.1io     +++|*         RS     RELEASE STORAGE REPEAT COUNT.
00039  M01S00038.1io     +++|*         BN     BUFFER POINT NUMBER CURRENTLY UNDER CONSIDERATION.
00040  M01S00039.1io     +++|*         AB     ACTIVE BUFFER COUNT.
00041  M01S00040.1io     +++|          SPACE  4,10
00042  M01S00041.1io     +++|***       DAYFILE AND ERRLOG MESSAGES.
00043  M01S00042.1io     +++|*
00044  M01S00043.1io     +++|*
00045  M01S00044.1io     +++|*         *EQXXX CCC/NIP CONTROLWARE LOADED.* =
00046  M01S00045.1io     +++|*                INFORMATIVE MESSAGE INDICATING THAT CCC/NIP
00047  M01S00046.1io     +++|*                CONTROLWARE WAS LOADED SUCCESSFULLY.
00048  M01S00047.1io     +++|*
00049  M01S00048.1io     +++|*         *EQXXX CCC/NIP CONTROLWARE LOAD ERROR.* = ERROR WAS
00050  M01S00049.1io     +++|*                ENCOUNTERED IN THE CCC/NIP CONTROLWARE WHEN ATTEMPTING
00051  M01S00050.1io     +++|*                TO LOAD THE CCC.
00052  M01S00051.1io     +++|*
00053  M01S00052.1io     +++|*         *EQXXX CCC/NIP CONTROLWARE NOT FOUND.* =
00054  M01S00053.1io     +++|*                CCC/NIP CONTROLWARE WAS NOT FOUND ON THE SYSTEM FILE.
00055  M01S00054.1io     +++|*
00056  M01S00055.1io     +++|*         *EQXXX CCC/NIP STATUS ERROR.* = A STATUS OF 5XXX WAS
00057  M01S00056.1io     +++|*                RETURNED FROM THE CCC.
00058  M01S00057.1io     +++|*
00059  M01S00058.1io     +++|*         *EQXXX CHANNEL PARITY ERROR.* =
00060  M01S00059.1io     +++|*                A PARITY ERROR WAS DETECTED ON A CONVERTER
00061  M01S00060.1io     +++|*                OR EQUIPMENT.
00062  M01S00061.1io     +++|*
00063  M01S00062.1io     +++|*         *EQXXX CONTROLLER HUNG BUSY.* =
00064  M01S00063.1io     +++|*                THE CONTROLLER DOES NOT DROP BUSY STATUS.
00065  M01S00064.1io     +++|*
00066  M01S00065.1io     +++|*         *EQXXX FUNCTION TIMEOUT* =
00067  M01S00066.1io     +++|*                A FUNCTION TIMEOUT WAS DETECTED ON A CONVERTER
00068  M01S00067.1io     +++|*                OR EQUIPMENT FUNCTION.
00069  M01S00068.1io     +++|*
00070  M01S00069.1io     +++|*         *EQXXX INCOMPLETE DATA TRANSFER.* =
00071  M01S00070.1io     +++|*                AN INCOMPLETE DATA TRANSFER WAS DETECTED.
00072  M01S00071.1io     +++|*
00073  M01S00072.1io     +++|*         *EQXXX INTERNAL/EXTERNAL REJECT.* =
00074  M01S00073.1io     +++|*                AN INTERNAL OR EXTERNAL REJECT WAS DETECTED.
00075  M01S00074.1io     +++|*
00076  M01S00075.1io     +++|*         *EQXXX TRANSMISSION PARITY ERROR.* =
00077  M01S00076.1io     +++|*                A TRANSMISSION PARITY ERROR WAS DETECTED.
00078  M01S00077.1io     +++|*
00079  M01S00078.1io     +++|*         *EQXXX TURNED OFF BY SYSTEM.* =
00080  M01S00079.1io     +++|*                FAULTY EQUIPMENT WAS TURNED OFF BY THE SYSTEM.
00081  M01S00080.1io     +++|*
00082  M01S00081.1io     +++|*         * NO EQUIPMENT AVAILABLE.* =
00083  M01S00082.1io     +++|*                *BIO* DETERMINED THAT THERE IS NO EQUIPMENT IN
00084  M01S00083.1io     +++|*                THE SYSTEM THAT IT CAN DRIVE.
00085  M01S00084.1io     +++|*
00086  M01S00085.1io     +++|*         * RECOVERY COMPLETE.* =
00087  M01S00086.1io     +++|*                INFORMATIVE MESSAGE.
00088  M01S00087.1io     +++|*
00089  M01S00088.1io     +++|*         WHERE-
00090  M01S00089.1io     +++|*         EQ = EQUIPMENT MNEMONIC.
00091  M01S00090.1io     +++|*         XXX = EST ORDINAL.
00092  M01S00091.1io     +++|          SPACE  4,10
00093  M01S00092.1io     +++|***       OPERATOR *I* DISPLAY STATUS MESSAGES.
00094  M01S00093.1io     +++|*
00095  M01S00094.1io     +++|*         *NOT READY.* = DEVICE IS NOT READY.
00096  M01S00095.1io     +++|*
00097  M01S00096.1io     +++|*         *OFF.* = DEVICE IS *OFF* IN THE EST.
00098  M01S00097.1io     +++|*
Line S00098 Modification History
M01 (Added by) 1io
M02 (Updated by) ns2655
Seq #  *Modification Id* Act 
----------------------------+
00099  M02S00098.ns2655  ---|*         *INTERVENTION REQUIRED.* = DEVICE REQUIRES OPERATOR
Line S00099 Modification History
M01 (Added by) 1io
M02 (Updated by) ns2655
Seq #  *Modification Id* Act 
----------------------------+
00100  M02S00099.ns2655  ---|*         INTERVENTION.
00101  M01S00001.ns2655  +++|*         *DOWN.* = DEVICE IS *DOWN* IN THE EST.
00102  M01S00002.ns2655  +++|*
00103  M01S00003.ns2655  +++|*         *OFF - CHECK ERRLOG.* = DEVICE HAS BEEN TURNED OFF DUE TO A
00104  M01S00004.ns2655  +++|*         HARDWARE PROBLEM.  CHECK THE ERRLOG FOR THE DETAILS.
00105  M01S00005.ns2655  +++|*
00106  M01S00006.ns2655  +++|*         *INTERVENTION NEEDED.* = DEVICE NEEDS OPERATOR INTERVENTION.
00107  M01S00007.ns2655  +++|*
00108  M01S00008.ns2655  +++|*         *CH UNAVAILABLE.* = CHANNEL COULD NOT BE RESERVED.
00109  M01S00100.1io     +++|          SPACE  4,10
00110  M01S00101.1io     +++|***       ERROR PROCESSING.
00111  M01S00102.1io     +++|*
00112  M01S00103.1io     +++|*
00113  M01S00104.1io     +++|*         CHANNEL ERROR PROCESSING.
00114  M01S00105.1io     +++|*
00115  M01S00106.1io     +++|*         THE FOLLOWING CHANNEL ERRORS ARE DETECTED -
00116  M01S00107.1io     +++|*                CONNECT REJECT.
00117  M01S00108.1io     +++|*                FUNCTION REJECT.
00118  M01S00109.1io     +++|*                TRANSMISSION PARITY ERRORS.
00119  M01S00110.1io     +++|*                INCOMPLETE DATA TRANSFER.
00120  M01S00111.1io     +++|*                6681 FUNCTION TIMEOUT.
00121  M01S00112.1io     +++|*                EQUIPMENT FUNCTION TIMEOUT.
00122  M01S00113.1io     +++|*                CCC/NIP STATUS ERROR.
00123  M01S00114.1io     +++|*         WHEN ANY OF THESE CHANNEL ERRORS ARE DETECTED, THE
00124  M01S00115.1io     +++|*         FOLLOWING ACTION IS TAKEN -
00125  M01S00116.1io     +++|*                OUTPUT FILES ARE REQUEUED.
00126  M01S00117.1io     +++|*                TRACKS FOR INPUT FILES ARE DROPPED.
00127  M01S00118.1io     +++|*                THE FAULTY EQUIPMENT IS TURNED OFF AND DROPPED.
00128  M01S00119.1io     +++|*                ERROR LOG MESSAGES ARE ISSUED.
00129  M01S00120.1io     +++|*
00130  M01S00121.1io     +++|*         BAD SYSTEM SECTOR ERROR PROCESSING.
00131  M01S00122.1io     +++|*
00132  M01S00123.1io     +++|*         IF AN ERROR IS ENCOUNTERED WHILE READING THE SYSTEM
00133  M01S00124.1io     +++|*         SECTORS, THE FILE IS RELEASED FROM THE *BATCHIO* CP
00134  M01S00125.1io     +++|*         WITH THE FOLLOWING CONDITIONS -
00135  M01S00126.1io     +++|*                THE NAME OF THE FILE IS CHANGED TO -**BAD O-.
00136  M01S00127.1io     +++|*                THE FILE TYPE IS CHANGED TO COMMON.
00137  M01S00128.1io     +++|*                WRITE LOCKOUT IS SELECTED FOR THE FILE.
00138  M01S00129.1io     +++|          SPACE  4,10
00139  M01S00130.1io     +++|**        ROUTINES USED.
00140  M01S00131.1io     +++|*
00141  M01S00132.1io     +++|*
00142  M01S00133.1io     +++|*         3IA - 1IO SUBROUTINES.
00143  M01S00134.1io     +++|*         3IB - 1IO LOAD IMAGE MEMORY.
00144  M01S00135.1io     +++|*         3IC - 1IO ERROR ROUTINES.
00145  M01S00136.1io     +++|*         3ID - 1IO PRESET ROUTINES.
00146  M01S00137.1io     +++|*         3IF - 1IO LOAD CCC/NIP CONTROLWARE.
00147  M01S00138.1io     +++|          SPACE  4,10
00148  M01S00139.1io     +++|**        PROGRAMS CALLED.
00149  M01S00140.1io     +++|*
00150  M01S00141.1io     +++|*
00151  M01S00142.1io     +++|*         CIO - COMBINED INPUT/OUTPUT.
00152  M01S00143.1io     +++|*         QAC - QUEUE ACCESS.
00153  M01S00144.1io     +++|*         QAP - QUEUE AUXILIARY PROCESSOR.
00154  M01S00145.1io     +++|*         1CD - *BATCHIO* DRIVER.
00155  M01S00146.1io     +++|          SPACE  4,10
00156  M01S00147.1io     +++|**        COMMON DECKS.
00157  M01S00148.1io     +++|
00158  M01S00149.1io     +++|
00159  M01S00150.1io     +++|*CALL     COMPMAC
00160  M01S00151.1io     +++|*CALL     COMSACC
00161  M01S00152.1io     +++|*CALL     COMPCHI
00162  M01S00153.1io     +++|          LIST   X
00163  M01S00154.1io     +++|*CALL     COMSBIO
00164  M01S00155.1io     +++|          LIST   *
00165  M01S00156.1io     +++|*CALL     COMSCPS
00166  M01S00157.1io     +++|*CALL     COMSDFS
00167  M01S00158.1io     +++|*CALL     COMSDSP
00168  M01S00159.1io     +++|*CALL     COMSEVT
00169  M01S00160.1io     +++|*CALL     COMSJCE
00170  M01S00161.1io     +++|*CALL     COMSJIO
00171  M01S00001.242l642 +++|*CALL     COMSPIM
00172  M01S00162.1io     +++|*CALL     COMSQAC
00173  M01S00163.1io     +++|*CALL     COMSSSD
00174  M01S00164.1io     +++|          SPACE  4,10
00175  M01S00165.1io     +++|****      DIRECT LOCATION ASSIGNMENTS.
00176  M01S00166.1io     +++|
00177  M01S00167.1io     +++|
00178  M01S00168.1io     +++| RI       EQU    16 - 17     RANDOM INDEX (2 LOCATIONS)
00179  M01S00169.1io     +++| ES       EQU    20 - 24     EST ENTRY
00180  M01S00170.1io     +++| EC       EQU    25          EQUIPMENT TYPE CODE
00181  M01S00171.1io     +++| FC       EQU    26          FUNCTION CODE
00182  M01S00172.1io     +++| EI       EQU    27          EQUIPMENT INDEX
00183  M01S00173.1io     +++| CN       EQU    30 - 34     CM WORD BUFFER (5 LOCATIONS)
00184  M01S00174.1io     +++| CS       EQU    35          CONVERTER STATUS
00185  M01S00175.1io     +++| ST       EQU    36          EQUIPMENT STATUS
00186  M01S00176.1io     +++| ET       EQU    37          EQUIPMENT DEFINITION
00187  M01S00177.1io     +++| FN       EQU    40 - 44     FILE NAME (5 LOCATIONS)
00188  M01S00178.1io     +++| AB       EQU    FN - FN+4   PROGRAM NAME (5 LOCATIONS)
00189  M01S00179.1io     +++| EQ       EQU    45          EST ORDINAL / DEVICE TYPE
00190  M01S00180.1io     +++| BA       EQU    46 - 47     BUFFER ADDRESS (2 LOCATIONS)
00191  M01S00181.1io     +++| FA       EQU    57          FNT ADDRESS
00192  M01S00182.1io     +++| FS       EQU    60 - 64     FST INFORMATION (5 LOCATIONS)
00193  M01S00183.1io     +++| RT       EQU    65          ERROR RETRY COUNT + RECOVERY FLAG
00194  M01S00184.1io     +++| MC       EQU    66          ERROR MESSAGE CODE
00195  M01S00185.1io     +++| RC       EQU    67          CHANNEL ERROR RETRY COUNT
00196  M01S00186.1io     +++|          SPACE  4,10
00197  M01S00187.1io     +++|*         ASSEMBLY CONSTANT.
00198  M01S00188.1io     +++|
00199  M01S00189.1io     +++|
00200  M01S00190.1io     +++| CH       EQU    12          CHANNEL NUMBER
00201  M01S00001.1io6    +++| BFL      EQU    BUFR+77     BUFFER LENGTH, ROUNDED UP
00202  M01S00191.1io     +++| MSR$     EQU    0           DEFINE ERROR PROCESSOR FOR *COMPRNS*
00203  M01S00192.1io     +++| SAF$     EQU    1           DEFINE ENTRY CONDITION FOR *COMPSAF*
00204  M01S00193.1io     +++|****
00205  M01S00194.1io     +++| DBMLT    SPACE  4,10
00206  M01S00195.1io     +++|**        DBMLT - DEFINE BML MESSAGE TABLE.
00207  M01S00196.1io     +++|*
00208  M01S00197.1io     +++|*         DBMLT  MSGCD,PROC,SYMPC,NBYTES.
00209  M01S00198.1io     +++|*
00210  M01S00199.1io     +++|*         ENTRY  MSGCD = MESSAGE CODE.
00211  M01S00200.1io     +++|*                PROC = ADDRESS OF BML MESSAGE PROCESSOR.
00212  M01S00201.1io     +++|*                SYMPC = SYMPTOM CODE FOR BML MESSAGE.
00213  M01S00202.1io     +++|*                NBYTES = NUMBER OF BYTES IN BML MESSAGE.
00214  M01S00203.1io     +++|
00215  M01S00204.1io     +++|
00216  M01S00205.1io     +++| DBMLT    MACRO  MSGCD,PROC,SYMPC,NBYTES
00217  M01S00206.1io     +++| DTPR     RMT
00218  M01S00207.1io     +++|          INDEX  MSGCD-BAME,PROC
00219  M01S00208.1io     +++|          RMT
00220  M01S00209.1io     +++| DTSY     RMT
00221  M01S00210.1io     +++|          INDEX  MSGCD-BAME,SYMPC
00222  M01S00211.1io     +++|          RMT
00223  M01S00212.1io     +++| DTNB     RMT
00224  M01S00213.1io     +++|          INDEX  MSGCD-BAME,NBYTES
00225  M01S00214.1io     +++|          RMT
00226  M01S00215.1io     +++|          ENDM
00227  M01S00216.1io     +++| DEFOIES  SPACE  4,10
00228  M01S00217.1io     +++|**        DEFOIES - DEFINE LOAD ADDRESS OF ERROR ROUTINES.
00229  M01S00218.1io     +++|*
00230  M01S00219.1io     +++|*         DEFOIES  ADDR
00231  M01S00220.1io     +++|*
00232  M01S00221.1io     +++|*         ENTRY  *ADDR* = LOAD ADDRESS.  IF NOT SPECIFIED, USE
00233  M01S00222.1io     +++|*                         CURRENT ADDRESS + 5.
00234  M01S00223.1io     +++|*
00235  M01S00224.1io     +++|*         EXIT   *OIES* = NEW OVERLAY LOAD ADDRESS VALUE.
00236  M01S00225.1io     +++|
00237  M01S00226.1io     +++|
00238  M01S00227.1io     +++|          PURGMAC  DEFOIES
00239  M01S00228.1io     +++|
00240  M01S00229.1io     +++| DEFOIES  MACRO  ADDR
00241  M01S00230.1io     +++|          MACREF DEFOIES
00242  M01S00231.1io     +++|          NOREF  .1
00243  M01S00232.1io     +++|          QUAL
00244  M01S00233.1io     +++| .1       SET    ADDR *+5
00245  M01S00234.1io     +++|          IF     -DEF,OIES
00246  M01S00235.1io     +++| OIES     SET    .1
00247  M01S00236.1io     +++|          ELSE
00248  M01S00237.1io     +++| OIES     MAX    OIES,.1
00249  M01S00238.1io     +++|          ENDIF
00250  M01S00239.1io     +++|          QUAL   *
00251  M01S00240.1io     +++| DEFOIES  ENDM
00252  M01S00241.1io     +++|          SPACE  4,10
00253  M01S00242.1io     +++|*         DEFINE QUAL BLOCK ORDER.
00254  M01S00243.1io     +++|
00255  M01S00244.1io     +++|
00256  M01S00245.1io     +++|          QUAL   3IA
00257  M01S00246.1io     +++|          QUAL   3IB
00258  M01S00247.1io     +++|          QUAL   3IC
00259  M01S00248.1io     +++|          QUAL   3ID
00260  M01S00249.1io     +++|          QUAL   3IF
00261  M01S00250.1io     +++|          QUAL   5IA
00262  M01S00251.1io     +++|          QUAL   5IC
00263  M01S00252.1io     +++|          QUAL   5ID
00264  M01S00253.1io     +++|          QUAL   5IE
00265  M01S00254.1io     +++|          QUAL   5IG
00266  M01S00255.1io     +++|          QUAL   5IH
00267  M01S00256.1io     +++|          QUAL
00268  M01S00257.1io     +++|          TITLE  MAIN PROGRAM.
00269  M01S00258.1io     +++| BCM      SPACE  4,10
00270  M01S00259.1io     +++|**        BCM - MAIN PROGRAM.
00271  M01S00260.1io     +++|
00272  M01S00261.1io     +++|
00273  M01S00262.1io     +++|          ORG    PPFW
00274  M01S00263.1io     +++|
00275  M01S00264.1io     +++| BCM      LDD    IR+1        CHECK PRESET FLAG
00276  M01S00265.1io     +++|          SHN    14
00277  M01S00266.1io     +++|          MJN    BCM1        IF NOT FIRST ENTRY
00278  M01S00267.1io     +++|          EXECUTE  3ID       PRESET BATCHIO
00279  M01S00268.1io     +++| BCM1     LDN    0           CLEAR FST ADDRESS
00280  M01S00269.1io     +++|          STD    RT
00281  M01S00270.1io     +++|          STD    FA
00282  M01S00271.1io     +++|          STD    BA          CLEAR BUFFER ADDRESS
00283  M01S00272.1io     +++|          STD    BA+1
Line S00273 Modification History
M01 (Added by) 1io
M02 (Updated by) 1io7
Seq #  *Modification Id* Act 
----------------------------+
00284  M02S00273.1io7    ---|          LDC    INWL        CHECK SCHEDULER CONTROL
Line S00274 Modification History
M01 (Added by) 1io
M02 (Updated by) 1io7
Seq #  *Modification Id* Act 
----------------------------+
00285  M02S00274.1io7    ---|          CRD    CM
Line S00275 Modification History
M01 (Added by) 1io
M02 (Updated by) 1io7
Seq #  *Modification Id* Act 
----------------------------+
00286  M02S00275.1io7    ---|          LDD    CM+3        CHECK IF SCHEDULING DISABLED
Line S00276 Modification History
M01 (Added by) 1io
M02 (Updated by) 1io7
Seq #  *Modification Id* Act 
----------------------------+
00287  M02S00276.1io7    ---|          LPN    2
Line S00277 Modification History
M01 (Added by) 1io
M02 (Updated by) 1io7
Seq #  *Modification Id* Act 
----------------------------+
00288  M02S00277.1io7    ---|          NJN    BCM2        IF DISABLED
00289  M01S00278.1io     +++|          LDD    IR+4        CLEAR RECOVERY FLAG
00290  M01S00279.1io     +++|          LPN    77
00291  M01S00280.1io     +++|          STD    IR+4
00292  M01S00281.1io     +++|          LDD    CP          CHECK IDLEDOWN STATUS
00293  M01S00282.1io     +++|          ADN    SNSW
00294  M01S00283.1io     +++|          CRD    CM
00295  M01S00284.1io     +++|          LDD    CM+3
00296  M01S00285.1io     +++|          SHN    21-3
00297  M01S00286.1io     +++|          PJN    BCM3        IF IDLEDOWN NOT REQUESTED
00298  M01S00287.1io     +++| BCM2     LDD    IR+4
00299  M01S00288.1io     +++|          NJN    BCM4        IF BUFFERS ASSIGNED
00300  M01S00289.1io     +++|          LJM    DPP         DROP PP
00301  M01S00290.1io     +++|
00302  M01S00291.1io     +++| BCM3     LDD    RA          CHECK FOR PENDING REQUEST
00303  M01S00292.1io     +++|          SHN    6
00304  M01S00293.1io     +++|          ADN    DRQR
00305  M01S00294.1io     +++|          CRD    CM
00306  M01S00295.1io     +++|          LDD    CM
00307  M01S00296.1io     +++|          ZJN    BCM5        IF NO PENDING REQUEST
00308  M01S00297.1io     +++| BCM4     LJM    BCM11       TERMINATE PROCESSING
00309  M01S00298.1io     +++|
00310  M01S00299.1io     +++| BCM5     LDN    TAEQL/5
00311  M01S00300.1io     +++|          STD    T1
00312  M01S00301.1io     +++|          LDD    RA          READ EQUIPMENT TABLE
00313  M01S00302.1io     +++|          SHN    6
00314  M01S00303.1io     +++|          ADK    TEQR
00315  M01S00304.1io     +++|          CRM    TAEQ,T1
00316  M01S00305.1io     +++|          LDD    IR+2        CHECK FILE REQUESTED FLAG
00317  M01S00306.1io     +++|          SHN    21-6
00318  M01S00307.1io     +++|          MJN    BCM7        IF FILE PREVIOUSLY REQUESTED
00319  M01S00308.1io     +++|
00320  M01S00309.1io     +++|*         ENTER FILE REQUEST.
00321  M01S00310.1io     +++|
00322  M01S00311.1io     +++|          RJM    REQ         REQUEST EQUIPMENT
00323  M01S00312.1io     +++|          ZJN    BCM4        IF NO EQUIPMENT AVAILABLE
00324  M01S00313.1io     +++|          RJM    CPB         CLEAR *QAC* PARAMETER BLOCK
00325  M01S00314.1io     +++|          LDD    EQ          SET EQUIPMENT TYPE
00326  M01S00315.1io     +++|          LPN    7
00327  M01S00316.1io     +++|          STD    T1
00328  M01S00317.1io     +++|          LDM    BCMA,T1
00329  M01S00318.1io     +++|          STD    T1
00330  M01S00319.1io     +++|          LJM    0,T1        PROCESS EQUIPMENT
00331  M01S00320.1io     +++|
00332  M01S00321.1io     +++|*         RELEASE FILE BACK TO QUEUE.
00333  M01S00322.1io     +++|
00334  M01S00323.1io     +++| BCM6     EXECUTE  3IC
00335  M01S00324.1io     +++|          LJM    /3IC/CAS    RELEASE FILE BACK TO QUEUE
00336  M01S00325.1io     +++|
00337  M01S00326.1io     +++|*         FILE PREVIOUSLY REQUESTED.
00338  M01S00327.1io     +++|
00339  M01S00328.1io     +++| BCM7     RJM    CFF         CHECK FOR FILE
00340  M01S00329.1io     +++|          MJN    BCM8        IF FILE FOUND
00341  M01S00330.1io     +++|          ZJN    BCM11       IF REQUEST NOT COMPLETE
00342  M01S00331.1io     +++|          LDD    FL          CLEAR ANY PENDING FL REQUEST
00343  M01S00332.1io     +++|          RJM    RSI
00344  M01S00333.1io     +++|          AOM    RCLA        SET NO RECALL REQUESTED FLAG
00345  M01S00334.1io     +++|          UJN    BCM10       RELEASE EQUIPMENT
00346  M01S00335.1io     +++|
00347  M01S00336.1io     +++|*         PREPARE COMMUNICATION AREA FOR *1CD*.
00348  M01S00337.1io     +++|
00349  M01S00338.1io     +++| BCM8     LDD    EQ          CHECK FOR PRINTER
00350  M01S00339.1io     +++|          LPN    7
00351  M01S00340.1io     +++|          SBK    LPDT
00352  M01S00341.1io     +++|          NJN    BCM9        IF NOT PRINTER
00353  M01S00342.1io     +++|          EXECUTE  3IB       LOAD IMAGE MEMORY
00354  M01S00343.1io     +++|          NJN    BCM6        IF MEMORY NOT LOADED
00355  M01S00344.1io     +++| BCM9     EXECUTE  3IA       ASSIGN JOB
00356  M01S00345.1io     +++|          RJM    /3IA/ABF    ASSIGN BUFFER
00357  M01S00346.1io     +++|          LJM    /3IA/ADR    ASSIGN DRIVER
00358  M01S00347.1io     +++|
00359  M01S00348.1io     +++|*         RELEASE EQUIPMENT AND TERMINATE PROCESSING.
00360  M01S00349.1io     +++|
00361  M01S00350.1io     +++| BCM10    RJM    RLE         RELEASE EQUIPMENT
00362  M01S00351.1io     +++| BCM11    RJM    MSG         PROCESS MESSAGES
00363  M01S00352.1io     +++|          RJM    CPR         CHECK PENDING REQUEST
00364  M01S00353.1io     +++|          RJM    CSR         CHECK STORAGE RELEASE
00365  M01S00354.1io     +++|*         UJN    RCL         RECALL *1IO*
00366  M01S00355.1io     +++| RCL      SPACE  4,10
00367  M01S00356.1io     +++|**        RCL - RECALL *1IO*.
00368  M01S00357.1io     +++|
00369  M01S00358.1io     +++|
00370  M01S00359.1io     +++| RCL      PAUSE              CHECK ERROR FLAG
00371  M01S00360.1io     +++|          LDD    CM+1
00372  M01S00361.1io     +++|          NJN    ERR         IF ERROR FLAG SET
00373  M01S00362.1io     +++| RCLA     LDN    0           RECALL REQUESTED
00374  M01S00363.1io     +++|*         LDN    1           (NO RECALL REQUESTED)
00375  M01S00364.1io     +++|          ZJN    RCL1        IF RECALL REQUESTED
00376  M01S00365.1io     +++|          SOM    RCLA
00377  M01S00366.1io     +++|          LJM    BCM         CHECK NEXT EQUIPMENT
00378  M01S00367.1io     +++|
00379  M01S00368.1io     +++| RCL1     LDN    ZERL
00380  M01S00369.1io     +++|          CRD    CM
00381  M01S00370.1io     +++| RCL2     LDD    MA          ENTER PP RECALL REQUEST
00382  M01S00371.1io     +++|          CWD    IR
00383  M01S00372.1io     +++|          MONITOR  RECM
00384  M01S00373.1io     +++| RCL3     LJM    PPR         EXIT TO PP RESIDENT
00385  M01S00374.1io     +++| DPP      SPACE  4,10
00386  M01S00375.1io     +++|**        DPP - DROP PP.
00387  M01S00376.1io     +++|
00388  M01S00377.1io     +++|
00389  M01S00378.1io     +++| DPP      MONITOR  DPPM      DROP PP
00390  M01S00379.1io     +++|          LJM    PPR         EXIT TO PP RESIDENT
00391  M01S00380.1io     +++| ERR      SPACE  4,10
00392  M01S00381.1io     +++|**        ERR - PROCESS ERROR.
00393  M01S00382.1io     +++|*
00394  M01S00383.1io     +++|*         ENTRY  (A) = ERROR FLAG.
00395  M01S00384.1io     +++|
00396  M01S00385.1io     +++|
00397  M01S00386.1io     +++| ERR      LMN    IDET
00398  M01S00387.1io     +++|          ZJN    DPP         IF IDLEDOWN
00399  M01S00388.1io     +++|          EXECUTE  3IC
00400  M01S00389.1io     +++|          RJM    /3IC/PEF    PROCESS ERROR FLAG
00401  M01S00390.1io     +++|          UJN    DPP         DROP PP
00402  M01S00391.1io     +++|
00403  M01S00392.1io     +++|
00404  M01S00393.1io     +++| BCMA     INDEX
00405  M01S00394.1io     +++|          INDEX  LPDT,LPP
00406  M01S00395.1io     +++|          INDEX  CPDT,CPP
00407  M01S00396.1io     +++|          INDEX  CRDT,CRP
00408  M01S00397.1io     +++|          INDEX  NPDT,LPP
00409  M01S00398.1io     +++|          INDEX  MXDT
00410  M01S00399.1io     +++| LPP      SPACE  4,10
00411  M01S00400.1io     +++|**        LPP - LINE PRINTER PROCESSOR.
00412  M01S00401.1io     +++|
00413  M01S00402.1io     +++|
00414  M01S00403.1io     +++| LPP      LDN    1S2         FILE TYPE = PRINT
00415  M01S00404.1io     +++|          LJM    SFF         SEARCH FOR FILE
00416  M01S00405.1io     +++| CPP      SPACE  4,10
00417  M01S00406.1io     +++|**        CPP - CARD PUNCH PROCESSOR.
00418  M01S00407.1io     +++|
00419  M01S00408.1io     +++|
00420  M01S00409.1io     +++| CPP      LDN    1S3         FILE TYPE = PUNCH
00421  M01S00410.1io     +++|          LJM    SFF         SEARCH FOR FILE
00422  M01S00411.1io     +++| CRP      SPACE  4,10
00423  M01S00412.1io     +++|**        CRP - CARD READER PROCESSOR.
00424  M01S00413.1io     +++|
00425  M01S00414.1io     +++|
00426  M01S00415.1io     +++| CRP      LDD    ST          CHECK STATUS
00427  M01S00416.1io     +++|          LPN    40
00428  M01S00417.1io     +++|          ZJN    CRP1        IF *INPUT TRAY NOT EMPTY*
00429  M01S00418.1io     +++|          LJM    BCM10       RELEASE EQUIPMENT
00430  M01S00419.1io     +++|
00431  M01S00420.1io     +++| CRP1     LDC    2R          SET DUMMY NAME *  * FOR INPUT FILE
00432  M01S00421.1io     +++|          STM    QACB
00433  M01S00422.1io     +++|          LDN    BCOT        SET BATCH ORIGIN TYPE
00434  M01S00423.1io     +++|          STM    QACB+5*5+4
00435  M01S00424.1io     +++|          LJM    BCM9        ASSIGN JOB
00436  M01S00425.1io     +++|          TITLE  SUBROUTINES.
00437  M01S00426.1io     +++| CAD      SPACE  4,10
00438  M01S00427.1io     +++|**        CAD - CLEAR AND DISCONNECT EQUIPMENT.
00439  M01S00428.1io     +++|*
00440  M01S00429.1io     +++|*         ENTRY  (ES+1) = CHANNEL (RESERVED).
00441  M01S00430.1io     +++|*                (EQ) = 9/EST ORDINAL, 3/DEVICE TYPE.
00442  M01S00431.1io     +++|*
00443  M01S00432.1io     +++|*         EXIT   (A) = 0.
00444  M01S00433.1io     +++|*                CHANNEL RELEASED.
00445  M01S00434.1io     +++|*
00446  M01S00435.1io     +++|*         CALLS  FCN.
00447  M01S00436.1io     +++|*
00448  M01S00437.1io     +++|*         MACROS DCHAN.
00449  M01S00438.1io     +++|
00450  M01S00439.1io     +++|
00451  M01S00440.1io     +++| CAD      SUBR               ENTRY/EXIT
00452  M01S00441.1io     +++|          LDD    EQ          CHECK EQUIPMENT
00453  M01S00442.1io     +++|          LPN    7
00454  M01S00443.1io     +++|          SBK    NPDT
00455  M01S00444.1io     +++|          ZJN    CAD1        IF NON-IMPACT PRINTER
00456  M01S00445.1io     +++|          LDN    0           CLEAR AND DISCONNECT
00457  M01S00446.1io     +++|          RJM    FCN
00458  M01S00447.1io     +++| CAD1     LDD    ES+1        RELEASE CHANNEL
00459  M01S00448.1io     +++|          DCHAN
00460  M01S00449.1io     +++|*         LDN    0
00461  M01S00450.1io     +++|          UJN    CADX        RETURN
00462  M01S00451.1io     +++| CCT      SPACE  4,15
00463  M01S00452.1io     +++|**        CCT - CONNECT TO EQUIPMENT.
00464  M01S00453.1io     +++|*
00465  M01S00454.1io     +++|*         ENTRY  (ES - ES+4) = EST ENTRY.
00466  M01S00455.1io     +++|*
00467  M01S00456.1io     +++|*         EXIT   (A) = GENERAL STATUS.
00468  M01S00457.1io     +++|*
00469  M01S00458.1io     +++|*         ERROR  TO *FCN2* IF FUNCTION TIMEOUT.
00470  M01S00459.1io     +++|*                TO *FCN3* IF ERROR.
00471  M01S00460.1io     +++|*
00472  M01S00461.1io     +++|*         CALLS  CFN, CGS.
00473  M01S00462.1io     +++|
00474  M01S00463.1io     +++|
00475  M01S00464.1io     +++| CCT4     DCN    CH+40
00476  M01S00465.1io     +++|          RJM    CGS         GET GENERAL STATUS
00477  M01S00466.1io     +++|          NJN    CCT3        IF ERROR
00478  M01S00467.1io     +++|          LDD    ST          CHECK STATUS
00479  M01S00468.1io     +++|          SHN    -11
00480  M01S00469.1io     +++|          LMN    5
00481  M01S00470.1io     +++|          ZJN    CCT2        IF STATUS ERROR
00482  M01S00471.1io     +++|          LDD    ST
00483  M01S00472.1io     +++|
00484  M01S00473.1io     +++| CCT      SUBR               ENTRY/EXIT
00485  M01S00474.1io     +++|          LDN    0           ISSUE SELECT UNIT FUNCTION
00486  M01S00475.1io     +++|          RJM    CFN
00487  M01S00476.1io     +++|          NJN    CCT3        IF ERROR
00488  M01S00477.1io     +++|          LDD    ES+4        SET DEVICE
00489  M01S00478.1io     +++|          SHN    -11
00490  M01S00479.1io     +++|          ACN    CH
00491  M01S00480.1io     +++|          OAN    CH+40
00492  M01S00481.1io     +++| CCT1     ADD    ON
00493  M01S00482.1io     +++|          EJM    CCT4,CH     IF FUNCTION ACCEPTED
00494  M01S00483.1io     +++|          NJN    CCT1        IF NOT TIMED OUT
00495  M01S00484.1io     +++|          LJM    FCN2        PROCESS FUNCTION TIMEOUT
00496  M01S00485.1io     +++|
00497  M01S00486.1io     +++| CCT2     LDN    ECSE        *EQXXX CCC/NIP STATUS ERROR.*
00498  M01S00487.1io     +++| CCT3     LJM    FCN3        PROCESS ERROR
00499  M01S00488.1io     +++| CEQ      SPACE  4,15
00500  M01S00489.1io     +++|**        CEQ - CHECK EQUIPMENT AVAILABLE.
00501  M01S00490.1io     +++|*
00502  M01S00491.1io     +++|*         ENTRY  (A) = EST ORDINAL.
00503  M01S00492.1io     +++|*
00504  M01S00493.1io     +++|*         EXIT   (A) = 0 IF EQUIPMENT AVAILABLE AND RESERVED.
00505  M01S00494.1io     +++|*                (T5) = EST ORDINAL.
00506  M01S00495.1io     +++|*                (ES - ES+4) = EST ENTRY.
00507  M01S00496.1io     +++|*
00508  M01S00497.1io     +++|*         USES   CM - CM+4, FS - FS+4.
00509  M01S00498.1io     +++|*
00510  M01S00499.1io     +++|*         CALLS  IOM.
00511  M01S00500.1io     +++|*
00512  M01S00501.1io     +++|*         MACROS MONITOR, SFA.
00513  M01S00502.1io     +++|
00514  M01S00503.1io     +++|
00515  M01S00504.1io     +++| CEQ2     LDD    FS+4
00516  M01S00505.1io     +++|          NJN    CEQX        IF EQUIPMENT ASSIGNED
Line S00506 Modification History
M01 (Added by) 1io
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00517  M02S00506.242l642 ---|          LDD    ES+3
Line S00507 Modification History
M01 (Added by) 1io
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00518  M02S00507.242l642 ---|          SHN    0-13
00519  M01S00002.242l642 +++|          LDD    ES
00520  M01S00003.242l642 +++|          ERRNZ  REQS        CODE ASSUMES *REQS* = 0
00521  M01S00004.242l642 +++|          LPN    2
00522  M01S00508.1io     +++|          NJN    CEQ1        IF EQUIPMENT OFF
00523  M01S00509.1io     +++|          STD    CM+2
00524  M01S00510.1io     +++|          MONITOR  REQM      RESERVE EQUIPMENT
00525  M01S00511.1io     +++|          LDD    CM+1
Line S00512 Modification History
M01 (Added by) 1io
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00526  M02S00512.242l642 ---|          LMD    T5
00527  M01S00005.242l642 +++|          ZJN    CEQ3        IF NOT ASSIGNED
00528  M01S00006.242l642 +++|          LCN    1
00529  M01S00007.242l642 +++| CEQ3     ADN    1           RETURN ASSIGNED ELSEWHERE STATUS
00530  M01S00513.1io     +++|
00531  M01S00514.1io     +++| CEQ      SUBR               ENTRY/EXIT
00532  M01S00515.1io     +++|          STD    T5
00533  M01S00516.1io     +++|          STD    CM+1
00534  M01S00517.1io     +++|          SFA    EST         FETCH EST ENTRY
00535  M01S00518.1io     +++|          ADK    EQDE
00536  M01S00519.1io     +++|          CRD    ES
00537  M01S00520.1io     +++|          ADK    EQAE-EQDE   READ EQUIPMENT ASSIGNMENT WORD
00538  M01S00521.1io     +++|          CRD    FS
Line S00522 Modification History
M01 (Added by) 1io
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00539  M02S00522.242l642 ---|          LDD    ES          CHECK MAINTENANCE MODE
Line S00523 Modification History
M01 (Added by) 1io
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00540  M02S00523.242l642 ---|          LPN    40
Line S00524 Modification History
M01 (Added by) 1io
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00541  M02S00524.242l642 ---|          ZJN    CEQ2        IF EQUIPMENT NOT DOWN
Line S00525 Modification History
M01 (Added by) 1io
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00542  M02S00525.242l642 ---|          LDN    EDWN&EOFF&1 *DOWN.*
Line S00526 Modification History
M01 (Added by) 1io
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00543  M02S00526.242l642 ---| CEQ1     LMN    EOFF&1      *OFF.*
00544  M01S00008.242l642 +++|          LDD    ES
00545  M01S00009.242l642 +++|          LPN    3           CHECK DEVICE STATE
00546  M01S00010.242l642 +++|          LMN    3
00547  M01S00011.242l642 +++|          NJN    CEQ2        IF EQUIPMENT NOT DOWN
00548  M01S00012.242l642 +++|          LDN    EDWN&EOFF&2
00549  M01S00013.242l642 +++| CEQ1     LMN    EOFF&2
00550  M01S00527.1io     +++|          RJM    IOM         ISSUE OPERATOR MESSAGE
00551  M01S00528.1io     +++|          LDN    1           SET NOT AVAILABLE
00552  M01S00529.1io     +++|          UJN    CEQX        RETURN
00553  M01S00530.1io     +++| CFF      SPACE  4,20
00554  M01S00531.1io     +++|**        CFF - CHECK FOR FILE.
00555  M01S00532.1io     +++|*
00556  M01S00533.1io     +++|*         ENTRY  (IR+2) = FILE REQUESTED FLAG SET (BIT 6).
00557  M01S00534.1io     +++|*                (IR+3) = BUFFER POINT NUMBER.
00558  M01S00535.1io     +++|*
00559  M01S00536.1io     +++|*         EXIT   (A) .GT. 0 IF FILE NOT FOUND OR ERRORS.
00560  M01S00537.1io     +++|*                (A) = 0 IF *QAC* REQUEST NOT COMPLETE.
00561  M01S00538.1io     +++|*                (A) .LT. 0 IF FILE FOUND.
00562  M01S00539.1io     +++|*                AVAILABLE EQUIPMENT TABLE WRITTEN.
00563  M01S00540.1io     +++|*                (EQ) = EST ORDINAL / DEVICE TYPE.
00564  M01S00541.1io     +++|*                (ES - ES+4) = EST ENTRY.
00565  M01S00542.1io     +++|*                (FA) = FNT ADDRESS.
00566  M01S00543.1io     +++|*                (FS - FS+4) = FST ENTRY.
00567  M01S00544.1io     +++|*                (QACB - QACB+QACBL) = *QAC* PARAMETER BLOCK.
00568  M01S00545.1io     +++|*
00569  M01S00546.1io     +++|*         USES   EQ, T1.
00570  M01S00547.1io     +++|*
00571  M01S00548.1io     +++|*         MACROS NFA, SFA.
00572  M01S00549.1io     +++|
00573  M01S00550.1io     +++|
00574  M01S00551.1io     +++| CFF      SUBR               ENTRY/EXIT
00575  M01S00552.1io     +++|          LDM    TAEQ+1,IR+3 SET EST ORDINAL / DEVICE TYPE
00576  M01S00553.1io     +++|          STD    EQ
00577  M01S00554.1io     +++|          SHN    -3
00578  M01S00555.1io     +++|          SFA    EST
00579  M01S00556.1io     +++|          ADK    EQDE
00580  M01S00557.1io     +++|          CRD    ES
00581  M01S00558.1io     +++|
00582  M01S00559.1io     +++|*         CHECK *QAC* PARAMETER BLOCK.
00583  M01S00560.1io     +++|
00584  M01S00561.1io     +++|          LDN    QAPBL       READ *QAC* PARAMETER BLOCK
00585  M01S00562.1io     +++|          STD    T1
00586  M01S00563.1io     +++|          LDD    RA
00587  M01S00564.1io     +++|          SHN    6
00588  M01S00565.1io     +++|          ADC    QAPB
00589  M01S00566.1io     +++|          CRM    QACB,T1
00590  M01S00567.1io     +++|          LDM    QACB+0*5+4
00591  M01S00568.1io     +++|          LPN    1
00592  M01S00569.1io     +++|          ZJN    CFFX        IF *QAC* REQUEST NOT COMPLETE
00593  M01S00570.1io     +++|          LDD    IR+2        CLEAR FILE REQUESTED FLAG
00594  M01S00571.1io     +++|          LMD    HN
00595  M01S00572.1io     +++|          STD    IR+2
00596  M01S00573.1io     +++|          LDM    QACB+0*5+3  CHECK ERROR CODE
00597  M01S00574.1io     +++|          SHN    6
00598  M01S00575.1io     +++|          LMM    QACB+0*5+4
00599  M01S00576.1io     +++|          SHN    -12
00600  M01S00577.1io     +++|          NJN    CFF1        IF ERROR
00601  M01S00578.1io     +++|          LDM    QACB+4*5    SET FNT OFFSET
00602  M01S00579.1io     +++|          STD    FA
00603  M01S00580.1io     +++|          NFA    FA,R        READ FST INFORMATION
00604  M01S00581.1io     +++|          ADN    FSTL
00605  M01S00582.1io     +++|          CRD    FS          READ FST ENTRY
00606  M01S00583.1io     +++|          LCN    0           INDICATE NO ERRORS
00607  M01S00584.1io     +++| CFF1     LJM    CFFX        RETURN
00608  M01S00585.1io     +++| CFN      SPACE  4,15
00609  M01S00586.1io     +++|**        CFN - OUTPUT FUNCTION TO EQUIPMENT.
00610  M01S00587.1io     +++|*
00611  M01S00588.1io     +++|*         ENTRY  (A) = FUNCTION CODE.
00612  M01S00589.1io     +++|*
00613  M01S00590.1io     +++|*         EXIT   (A) = 0 IF FUNCTION SUCCESSFUL.
00614  M01S00591.1io     +++|*                (FC) = FUNCTION CODE IF NOT GENERAL STATUS FUNCTION.
00615  M01S00592.1io     +++|*
00616  M01S00593.1io     +++|*         ERROR  (A) = ERROR MESSAGE CODE.
00617  M01S00594.1io     +++|*
00618  M01S00595.1io     +++|*         USES   T1.
00619  M01S00596.1io     +++|
00620  M01S00597.1io     +++|
00621  M01S00598.1io     +++| CFN2     LDN    0
00622  M01S00599.1io     +++|
00623  M01S00600.1io     +++| CFN      SUBR               ENTRY/EXIT
00624  M01S00601.1io     +++|          FAN    CH          ISSUE FUNCTION
00625  M01S00602.1io     +++|          STD    T1
00626  M01S00603.1io     +++|          LMN    12
00627  M01S00604.1io     +++|          ZJN    CFN1        IF GENERAL STATUS FUNCTION
00628  M01S00605.1io     +++|          LMN    12          SAVE FUNCTION CODE FOR ERROR MESSAGE
00629  M01S00606.1io     +++|          STD    FC
00630  M01S00607.1io     +++| CFN1     ADD    ON
00631  M01S00608.1io     +++|          IJM    CFN2,CH     IF FUNCTION ACCEPTED
00632  M01S00609.1io     +++|          NJN    CFN1        IF NOT TIMED OUT
00633  M01S00610.1io     +++|          DCN    CH+40
00634  M01S00611.1io     +++|          LDD    T1
00635  M01S00612.1io     +++|          STD    FC
00636  M01S00613.1io     +++|          LDN    EFTM        *EQXXX FUNCTION TIMEOUT.*
00637  M01S00614.1io     +++|          UJN    CFNX        RETURN
00638  M01S00615.1io     +++| CGS      SPACE  4,15
00639  M01S00616.1io     +++|**        CGS - GET GENERAL STATUS.
00640  M01S00617.1io     +++|*
00641  M01S00618.1io     +++|*         ENTRY  (EQ) = 9/EST ORDINAL, 3/DEVICE TYPE.
00642  M01S00619.1io     +++|*                (ES - ES+4) = EST ENTRY.
00643  M01S00620.1io     +++|*
00644  M01S00621.1io     +++|*         EXIT   (A) = 0 IF GENERAL STATUS OBTAINED.
00645  M01S00622.1io     +++|*                (ST) = GENERAL STATUS.
00646  M01S00623.1io     +++|*
00647  M01S00624.1io     +++|*         CALLS  CFN, PCP.
00648  M01S00625.1io     +++|
00649  M01S00626.1io     +++|
00650  M01S00627.1io     +++| CGS2     LDD    RC
00651  M01S00628.1io     +++|          ZJN    CGSX        IF NO ERRORS
00652  M01S00629.1io     +++|          LDN    0           REPORT CHANNEL PARITY ERRORS
00653  M01S00630.1io     +++| CGS3     RJM    PCP
00654  M01S00631.1io     +++|          LDN    0
00655  M01S00632.1io     +++|
00656  M01S00633.1io     +++| CGS      SUBR               ENTRY/EXIT
00657  M01S00634.1io     +++| CGS1     LDN    12          ISSUE GENERAL STATUS FUNCTION
00658  M01S00635.1io     +++|          RJM    CFN
00659  M01S00636.1io     +++|          NJN    CGSX        IF ERROR
00660  M01S00637.1io     +++|          ACN    CH
00661  M01S00638.1io     +++|          IAN    CH+40
00662  M01S00639.1io     +++|          DCN    CH+40
00663  M01S00640.1io     +++|          STD    ST
00664  M01S00641.1io     +++|          CFM    CGS2,CH     IF NO CHANNEL ERROR
00665  M01S00642.1io     +++|          AOD    RC
00666  M01S00643.1io     +++|          SBK    CHPR
00667  M01S00644.1io     +++|          NJN    CGS1        IF RETRY COUNT NOT EXHAUSTED
00668  M01S00645.1io     +++|          LDN    1
00669  M01S00646.1io     +++|          UJN    CGS3        PROCESS UNRECOVERED PARITY ERROR
00670  M01S00647.1io     +++| CON      SPACE  4,20
00671  M01S00648.1io     +++|**        CON - CONNECT EQUIPMENT.
00672  M01S00649.1io     +++|*
00673  M01S00650.1io     +++|*         ENTRY  6681 CONNECTED.
00674  M01S00651.1io     +++|*                (ES - ES+4) = EST ENTRY.
00675  M01S00652.1io     +++|*
00676  M01S00653.1io     +++|*         EXIT   (A) = BITS 0 - 2 OF 6681 STATUS.
00677  M01S00654.1io     +++|*                (CS) = 6681 STATUS.
00678  M01S00655.1io     +++|*                (ST) = EQUIPMENT STATUS.
00679  M01S00656.1io     +++|*                (FC) = CONNECT CODE.
00680  M01S00657.1io     +++|*                EQUIPMENT CONNECTED.
00681  M01S00658.1io     +++|*                IF THE CONNECT FUNCTION TIMES OUT, THEN EXIT IS MADE
00682  M01S00659.1io     +++|*                TO *RAF* VIA *FCN2*.
00683  M01S00660.1io     +++|*
00684  M01S00661.1io     +++|*         USES   FC.
00685  M01S00662.1io     +++|*
00686  M01S00663.1io     +++|*         CALLS  GST, IFN.
00687  M01S00664.1io     +++|
00688  M01S00665.1io     +++|
00689  M01S00666.1io     +++| CON2     DCN    CH+40
00690  M01S00667.1io     +++|          RJM    GST         GET STATUS OF 6681 AND EQUIPMENT
00691  M01S00668.1io     +++|
00692  M01S00669.1io     +++| CON      SUBR               ENTRY/EXIT
00693  M01S00670.1io     +++|          LDN    10          SELECT MODE II CONNECT
00694  M01S00671.1io     +++|          RJM    IFN
00695  M01S00672.1io     +++|          LDD    ES+4        OUTPUT CONNECT CODE
00696  M01S00673.1io     +++|          LPC    7000        SAVE CONNECT CODE
00697  M01S00674.1io     +++|          STD    FC
00698  M01S00675.1io     +++|          OAN    CH+40
00699  M01S00676.1io     +++|          LCN    0           TIME OUT CONNECT
00700  M01S00677.1io     +++| CON1     EJM    CON2,CH     IF CONNECT RESPONSE RECEIVED
00701  M01S00678.1io     +++|          SBN    1
00702  M01S00679.1io     +++|          NJN    CON1        IF NOT TIMED OUT
00703  M01S00680.1io     +++|          LJM    FCN2        FUNCTION TIMEOUT ERROR PROCESSOR
00704  M01S00681.1io     +++| CPB      SPACE  4,10
00705  M01S00682.1io     +++|**        CPB - CLEAR *QAC* PARAMETER BLOCK.
00706  M01S00683.1io     +++|*
00707  M01S00684.1io     +++|*         USES   T2.
00708  M01S00685.1io     +++|
00709  M01S00686.1io     +++|
00710  M01S00687.1io     +++| CPB      SUBR               ENTRY/EXIT
00711  M01S00688.1io     +++|          LDC    QACB
00712  M01S00689.1io     +++|          STD    T2
00713  M01S00690.1io     +++| CPB1     LDN    0           CLEAR PARAMETER BLOCK
00714  M01S00691.1io     +++|          STI    T2
00715  M01S00692.1io     +++|          AOD    T2          ADVANCE ADDRESS
00716  M01S00693.1io     +++|          LMC    QACB+QACBL
00717  M01S00694.1io     +++|          NJN    CPB1        IF NOT END OF PARAMETER BLOCK
00718  M01S00695.1io     +++|          LDC    QAPBL*100-500  SET PARAMETER BLOCK LENGTH
00719  M01S00696.1io     +++|          STM    QACB+1*5+3
00720  M01S00697.1io     +++|          UJN    CPBX        RETURN
00721  M01S00698.1io     +++| CPR      SPACE  4,10
00722  M01S00699.1io     +++|**        CPR - CHECK PENDING REQUEST.
00723  M01S00700.1io     +++|*
00724  M01S00701.1io     +++|*         CHECKS IF REQUEST IS PENDING FOR A *1CD* THAT HAS DROPPED
00725  M01S00702.1io     +++|*         OUT.
00726  M01S00703.1io     +++|*
00727  M01S00704.1io     +++|*         EXIT TO *3IA* IF PENDING REQUEST AND *1CD* NOT ACTIVE.
00728  M01S00705.1io     +++|*
00729  M01S00706.1io     +++|*         USES   EC, CM - CM+4, CN - CN+4.
00730  M01S00707.1io     +++|*
00731  M01S00708.1io     +++|*         CALLS  *3IA*.
00732  M01S00709.1io     +++|*
00733  M01S00710.1io     +++|*         MACROS EXECUTE.
00734  M01S00711.1io     +++|
00735  M01S00712.1io     +++|
00736  M01S00713.1io     +++| CPR      SUBR               ENTRY/EXIT
00737  M01S00714.1io     +++|          LDD    RA
00738  M01S00715.1io     +++|          SHN    6
00739  M01S00716.1io     +++|          ADN    DRQR
00740  M01S00717.1io     +++|          CRD    CN
00741  M01S00718.1io     +++|          LDD    CN
00742  M01S00719.1io     +++|          ZJN    CPRX        IF NO PENDING REQUEST
00743  M01S00720.1io     +++|          LDD    RA          CHECK IF *1CD* ACTIVE
00744  M01S00721.1io     +++|          SHN    6
00745  M01S00722.1io     +++|          ADD    CN
00746  M01S00723.1io     +++|          CRD    CM
00747  M01S00724.1io     +++|          LDD    CM
00748  M01S00725.1io     +++|          NJN    CPRX        IF *1CD* ACTIVE
00749  M01S00726.1io     +++|          LDD    CN+1        SET DEVICE TYPE
00750  M01S00727.1io     +++|          LPN    7
00751  M01S00728.1io     +++|          STD    EC
00752  M01S00729.1io     +++|          EXECUTE  3IA
00753  M01S00730.1io     +++|          LJM    /3IA/ADR4   ASSIGN DRIVER
00754  M01S00731.1io     +++| CSR      SPACE  4,10
00755  M01S00732.1io     +++|**        CSR - CHECK FOR STORAGE RELEASE.
00756  M01S00733.1io     +++|*
00757  M01S00734.1io     +++|*         ENTRY  (IR - IR+4) SET.
00758  M01S00735.1io     +++|*
00759  M01S00736.1io     +++|*         USES   IR+2, IR+4, BA - BA+1, CM - CM+4, CN - CN+4, T1 - T4.
00760  M01S00737.1io     +++|*
00761  M01S00738.1io     +++|*         MACROS MONITOR, PAUSE.
00762  M01S00739.1io     +++|
00763  M01S00740.1io     +++|
00764  M01S00741.1io     +++| CSR      SUBR               ENTRY/EXIT
00765  M01S00742.1io     +++|          LDD    IR+4
00766  M01S00743.1io     +++|          LPN    77
00767  M01S00744.1io     +++|          ZJN    CSRX        IF NO BUFFER ASSIGNED
00768  M01S00745.1io     +++|          AOD    IR+2        ADVANCE ENTRY COUNT
00769  M01S00746.1io     +++|          LPN    77
00770  M01S00747.1io     +++|          LMN    5
00771  M01S00748.1io     +++|          NJN    CSRX        IF NOT 5 ENTRIES
00772  M01S00749.1io     +++|          LDD    IR+2
00773  M01S00750.1io     +++|          SCN    77
00774  M01S00751.1io     +++|          STD    IR+2        CLEAR ENTRY COUNT
00775  M01S00752.1io     +++|          LDN    0           CLEAR BUFFER COUNT
00776  M01S00753.1io     +++|          STD    T1
00777  M01S00754.1io     +++|          STD    T4          CLEAR LAST BUFFER NUMBER
00778  M01S00755.1io     +++|          STD    T2          SET BUFFER ADDRESS
00779  M01S00756.1io     +++|          STD    BA
00780  M01S00757.1io     +++|          LDC    BUFR
00781  M01S00758.1io     +++|          STD    T3
00782  M01S00759.1io     +++|          STD    BA+1
00783  M01S00760.1io     +++| CSR1     LDD    T2          READ BUFFER STATUS
00784  M01S00761.1io     +++|          SHN    6
00785  M01S00762.1io     +++|          ADD    RA
00786  M01S00763.1io     +++|          SHN    6
00787  M01S00764.1io     +++|          ADD    T3
00788  M01S00765.1io     +++|          CRD    CM
00789  M01S00766.1io     +++|          ADN    4           READ LIMIT
00790  M01S00767.1io     +++|          CRD    CN
00791  M01S00768.1io     +++|          LDD    CM
00792  M01S00769.1io     +++|          ZJN    CSR2        IF BUFFER FREE
00793  M01S00770.1io     +++|          LDD    CN+3        SET BUFFER LIMIT
00794  M01S00771.1io     +++|          STD    BA
00795  M01S00772.1io     +++|          LDD    CN+4
00796  M01S00773.1io     +++|          STD    BA+1
00797  M01S00774.1io     +++|          LDD    T1          SET CURRENT BUFFER COUNT
00798  M01S00775.1io     +++|          ADN    1
00799  M01S00776.1io     +++|          STD    T4
00800  M01S00777.1io     +++| CSR2     LDD    CN+3        SET NEXT BUFFER ADDRESS
00801  M01S00778.1io     +++|          STD    T2
00802  M01S00779.1io     +++|          LDD    CN+4
00803  M01S00780.1io     +++|          STD    T3
00804  M01S00781.1io     +++|          AOD    T1          ADVANCE BUFFER COUNT
00805  M01S00782.1io     +++|          LMD    IR+4
00806  M01S00783.1io     +++|          NJN    CSR1        IF NOT END OF BUFFERS
00807  M01S00784.1io     +++|          LDD    BA          CHECK LAST BUFFER
00808  M01S00785.1io     +++|          SHN    14
00809  M01S00786.1io     +++|          ADD    BA+1
00810  M01S00787.1io     +++|          ADN    77
00811  M01S00788.1io     +++|          SHN    -6
00812  M01S00789.1io     +++|          STD    CM+1
00813  M01S00790.1io     +++|          STD    T1
00814  M01S00791.1io     +++|          LMD    FL
00815  M01S00792.1io     +++|          ZJN    CSR3        IF NO FL CHANGE
00816  M01S00793.1io     +++|          LDN    0           SET CM REQUEST
00817  M01S00794.1io     +++|          STD    CM+2
00818  M01S00795.1io     +++|          MONITOR  RSTM      REQUEST STORAGE
00819  M01S00796.1io     +++|          PAUSE
00820  M01S00797.1io     +++|          LDD    FL          CHECK STORAGE
00821  M01S00798.1io     +++|          LMD    T1
00822  M01S00799.1io     +++|          NJN    CSR3        IF NOT RELEASED
00823  M01S00800.1io     +++|          LDD    T4          SET NEW BUFFER COUNT
00824  M01S00801.1io     +++|          STD    IR+4
00825  M01S00802.1io     +++| CSR3     LJM    CSRX        RETURN
00826  M01S00803.1io     +++| C2D      SPACE  4,10
00827  M01S00804.1io     +++|**        C2D - CONVERT 2 DIGITS.
00828  M01S00805.1io     +++|*
00829  M01S00806.1io     +++|*         ENTRY  (A) = DIGITS RIGHT JUSTIFIED.
00830  M01S00807.1io     +++|*
00831  M01S00808.1io     +++|*         EXIT   (A) = DIGITS CONVERTED WITH LEADING 0 SUPPRESSED.
00832  M01S00809.1io     +++|*
00833  M01S00810.1io     +++|*         USES   T0.
00834  M01S00811.1io     +++|
00835  M01S00812.1io     +++|
00836  M01S00813.1io     +++| C2D      SUBR               ENTRY/EXIT
00837  M01S00814.1io     +++|          LPN    77          UNPACK DIGITS
00838  M01S00815.1io     +++|          STD    T0
00839  M01S00816.1io     +++|          SHN    3
00840  M01S00817.1io     +++|          LMD    T0
00841  M01S00818.1io     +++|          SCN    70
00842  M01S00819.1io     +++|          ADC    2R00        CONVERT
00843  M01S00820.1io     +++|          STD    T0
00844  M01S00821.1io     +++|          SHN    -6
00845  M01S00822.1io     +++|          LMN    1R0         DELETE LEADING 0
00846  M01S00823.1io     +++|          NJN    C2D1        IF NO LEADING ZERO
00847  M01S00824.1io     +++|          LDN    1R -1R0
00848  M01S00825.1io     +++|          SHN    6
00849  M01S00826.1io     +++|          RAD    T0
00850  M01S00827.1io     +++| C2D1     LDD    T0
00851  M01S00828.1io     +++|          UJN    C2DX        RETURN
00852  M01S00829.1io     +++| FCN      SPACE  4,10
00853  M01S00830.1io     +++|**        FCN - ISSUE FUNCTION TO EQUIPMENT.
00854  M01S00831.1io     +++|*
00855  M01S00832.1io     +++|*         ENTRY  (A) BITS    0 - 11 = FUNCTION CODE.
00856  M01S00833.1io     +++|*                            12 - 17 = 0, ABORT IF ERROR DETECTED
00857  M01S00834.1io     +++|*                            IN 6681 STATUS.
00858  M01S00835.1io     +++|*                            12 - 17 .NE. 0, EXIT IF EXTERNAL REJECT.
00859  M01S00836.1io     +++|*
00860  M01S00837.1io     +++|*         EXIT   (A) = BITS 0 - 2 OF 6681 STATUS.
00861  M01S00838.1io     +++|*                IF THE EXTERNAL REJECT EXIT IS REQUESTED
00862  M01S00839.1io     +++|*                AND THAT ERROR OCCURS, A NORMAL EXIT FROM
00863  M01S00840.1io     +++|*                *FCN* TAKES PLACE.
00864  M01S00841.1io     +++|*                OTHERWISE, IF A FUNCTION REJECT OR
00865  M01S00842.1io     +++|*                TRANSMISSION PARITY ERROR IS DETECTED, OR
00866  M01S00843.1io     +++|*                IF THE FUNCTION TIMES OUT,
00867  M01S00844.1io     +++|*                THEN EXIT IS MADE TO */3IC/CAS*.
00868  M01S00845.1io     +++|*
00869  M01S00846.1io     +++|*         USES   FC, MC, T6.
00870  M01S00847.1io     +++|*
00871  M01S00848.1io     +++|*         CALLS  GST, *3IC*.
00872  M01S00849.1io     +++|*
00873  M01S00850.1io     +++|*         MACROS DCHAN, EXECUTE.
00874  M01S00851.1io     +++|
00875  M01S00852.1io     +++|
00876  M01S00853.1io     +++| FCN4     RJM    GST         GET 6681 AND EQUIPMENT STATUS
00877  M01S00854.1io     +++|          ZJN    FCNX        IF NO ERRORS
00878  M01S00855.1io     +++|          LMN    1
00879  M01S00856.1io     +++|          ZJN    FCN6        IF EXTERNAL REJECT
00880  M01S00857.1io     +++| FCN5     LDN    ERJM        REJECT/TRANSMISSION PARITY ERROR
00881  M01S00858.1io     +++|          UJN    FCN3        PROCESS ERROR
00882  M01S00859.1io     +++|
00883  M01S00860.1io     +++| FCN6     LDD    T6
00884  M01S00861.1io     +++|          ZJN    FCN5        IF EXTERNAL REJECT EXIT NOT REQUESTED
00885  M01S00862.1io     +++|          LDD    CS          RETURN WITH CONVERTER STATUS
00886  M01S00863.1io     +++|          LPN    7
00887  M01S00864.1io     +++|
00888  M01S00865.1io     +++| FCN      SUBR               ENTRY/EXIT
00889  M01S00866.1io     +++|          STD    FC          SAVE FUNCTION CODE
00890  M01S00867.1io     +++|          SHN    -14
00891  M01S00868.1io     +++|          STD    T6          RETURN CONTROLLER STATUS FLAG
00892  M01S00869.1io     +++|          LDD    FC
00893  M01S00870.1io     +++|          FAN    CH          ISSUE FUNCTION
00894  M01S00871.1io     +++|          LCN    0           SET TIMEOUT LIMIT
00895  M01S00872.1io     +++| FCN1     IJM    FCN4,CH     IF FUNCTION ACCEPTED
00896  M01S00873.1io     +++|          SBN    1
00897  M01S00874.1io     +++|          NJN    FCN1        IF NOT TIMED OUT
00898  M01S00875.1io     +++|
00899  M01S00876.1io     +++|*         *FCN2* IS A SECONDARY ENTRY POINT FOR *FCN*.
00900  M01S00877.1io     +++|*
00901  M01S00878.1io     +++|*         PROCESS FUNCTION TIMEOUT.
00902  M01S00879.1io     +++|
00903  M01S00880.1io     +++| FCN2     DCN    CH+40
00904  M01S00881.1io     +++|          LDN    EFTM        *EQXXX FUNCTION TIMEOUT.*
00905  M01S00882.1io     +++|
00906  M01S00883.1io     +++|*         *FCN3* IS A SECONDARY ENTRY POINT FOR *FCN*.
00907  M01S00884.1io     +++|*
00908  M01S00885.1io     +++|*         ENTRY  (A) = MESSAGE CODE.
00909  M01S00886.1io     +++|*                (ES+1) = CHANNEL (RESERVED).
00910  M01S00887.1io     +++|
00911  M01S00888.1io     +++| FCN3     STD    MC          SAVE MESSAGE CODE
00912  M01S00889.1io     +++|          LDD    ES+1        RELEASE CHANNEL
00913  M01S00890.1io     +++|          DCHAN
00914  M01S00891.1io     +++|          EXECUTE  3IC
00915  M01S00892.1io     +++|          RJM    /3IC/ERM    SEND ERROR MESSAGE
00916  M01S00893.1io     +++|          RJM    /3IC/OEQ    OFF EQUIPMENT
00917  M01S00894.1io     +++|          LJM    /3IC/CAS    CLEAR ASSIGNMENT
00918  M01S00895.1io     +++| GST      SPACE  4,10
00919  M01S00896.1io     +++|**        GST - GET STATUS OF 6681 AND EQUIPMENT.
00920  M01S00897.1io     +++|*
00921  M01S00898.1io     +++|*         EXIT   (A) = BITS O - 2 OF 6681 STATUS.
00922  M01S00899.1io     +++|*                (CS) = 6681 STATUS.
00923  M01S00900.1io     +++|*                (ST) = EQUIPMENT STATUS.
00924  M01S00901.1io     +++|*
00925  M01S00902.1io     +++|*         CALLS  RST.
00926  M01S00903.1io     +++|
00927  M01S00904.1io     +++|
00928  M01S00905.1io     +++| GST      SUBR               ENTRY/EXIT
00929  M01S00906.1io     +++|          LDN    13          SELECT EQUIPMENT STATUS
00930  M01S00907.1io     +++|          RJM    RST
00931  M01S00908.1io     +++|          LDN    12          GET CONVERTER STATUS
00932  M01S00909.1io     +++|          RJM    RST
00933  M01S00910.1io     +++|          LDD    CS          CHECK CONVERTER STATUS
00934  M01S00911.1io     +++|          LPN    7
00935  M01S00912.1io     +++|          UJN    GSTX        RETURN
00936  M01S00913.1io     +++| IFN      SPACE  4,10
00937  M01S00914.1io     +++|**        IFN - ISSUE FUNCTION TO CONVERTER.
00938  M01S00915.1io     +++|*
00939  M01S00916.1io     +++|*         ENTRY  (A) = FUNCTION CODE/100.
00940  M01S00917.1io     +++|*
00941  M01S00918.1io     +++|*         EXIT   (FC) = FUNCTION CODE.
00942  M01S00919.1io     +++|*                CHANNEL ACTIVE.
00943  M01S00920.1io     +++|*                TO *FCN2* IF FUNCTION TIMEOUT.
00944  M01S00921.1io     +++|
00945  M01S00922.1io     +++|
00946  M01S00923.1io     +++| IFN2     ACN    CH
00947  M01S00924.1io     +++|
00948  M01S00925.1io     +++| IFN      SUBR               ENTRY/EXIT
00949  M01S00926.1io     +++|          SHN    6
00950  M01S00927.1io     +++|          FAN    CH          ISSUE FUNCTION
00951  M01S00928.1io     +++|          STD    FC
00952  M01S00929.1io     +++|          LDN    6
00953  M01S00930.1io     +++| IFN1     IJM    IFN2,CH     IF FUNCTION ACCEPTED
00954  M01S00931.1io     +++|          SBN    1
00955  M01S00932.1io     +++|          NJN    IFN1        IF NOT TIMED OUT
00956  M01S00933.1io     +++|          LJM    FCN2        FUNCTION TIMEOUT ERROR PROCESSOR
00957  M01S00934.1io     +++| IOM      SPACE  4,10
00958  M01S00935.1io     +++|**        IOM - ISSUE OPERATOR MESSAGE.
00959  M01S00936.1io     +++|*
00960  M01S00937.1io     +++|*         ENTRY  (A) = MESSAGE CODE FOR *I* DISPLAY.
00961  M01S00938.1io     +++|*                (IR+3) = BUFFER POINT NUMBER.
00962  M01S00939.1io     +++|*
00963  M01S00940.1io     +++|*         USES   T1, CM - CM+4.
00964  M01S00941.1io     +++|*
00965  M01S00942.1io     +++|*         MACROS NFA.
00966  M01S00943.1io     +++|
00967  M01S00944.1io     +++|
00968  M01S00945.1io     +++| IOM      SUBR               ENTRY/EXIT
00969  M01S00946.1io     +++|          STD    T1
00970  M01S00947.1io     +++|          NFA    BFCW+1      READ PREVIOUS MESSAGE
00971  M01S00948.1io     +++|          ADD    IR+3
00972  M01S00949.1io     +++|          ADD    IR+3
00973  M01S00950.1io     +++|          CRD    CM
00974  M01S00951.1io     +++|          LDD    CM          CHECK IF SAME MESSAGE
00975  M01S00952.1io     +++|          LMD    T1
00976  M01S00953.1io     +++|          ZJN    IOMX        IF SAME AS LAST MESSAGE
00977  M01S00954.1io     +++|          LDD    T1
00978  M01S00955.1io     +++|          LMN    EOFF
00979  M01S00956.1io     +++|          NJN    IOM1        IF SETTING *OFF* MESSAGE
00980  M01S00957.1io     +++|          LDD    CM
00981  M01S00958.1io     +++|          LMN    EOHE
00982  M01S00959.1io     +++|          ZJN    IOMX        IF CURRENTLY OFF WITH ERROR
00983  M01S00960.1io     +++| IOM1     LDD    T1          SET NEW MESSAGE
00984  M01S00961.1io     +++|          STD    CM
00985  M01S00962.1io     +++|          SBN    ENEC
00986  M01S00963.1io     +++|          MJN    IOM2        IF NOT ERROR CONDITION
00987  M01S00964.1io     +++|          LDD    CP          GET ATTENTION OF OPERATOR
00988  M01S00965.1io     +++|          ADN    MS2W
00989  M01S00966.1io     +++|          CWM    IOMA,TR
00990  M01S00967.1io     +++| IOM2     NFA    BFCW+1      STORE NEW MESSAGE
00991  M01S00968.1io     +++|          ADD    IR+3
00992  M01S00969.1io     +++|          ADD    IR+3
00993  M01S00970.1io     +++|          CWD    CM
00994  M01S00971.1io     +++|          UJP    IOMX        RETURN
00995  M01S00972.1io     +++|
00996  M01S00973.1io     +++|
00997  M01S00974.1io     +++| IOMA     DATA   C+$REQUEST *I* DISPLAY.+
00998  M01S00975.1io     +++| MCI      SPACE  4,10
00999  M01S00976.1io     +++|**        MCI - MODIFY CHANNEL INSTRUCTIONS.
01000  M01S00977.1io     +++|*
01001  M01S00978.1io     +++|*         ENTRY  (ES+1) = CHANNEL NUMBER.
01002  M01S00979.1io     +++|*
Line S00980 Modification History
M01 (Added by) 1io
M02 (Updated by) ns2655
Seq #  *Modification Id* Act 
----------------------------+
01003  M02S00980.ns2655  ---|*         EXIT   (RC) = 0.
Line S00981 Modification History
M01 (Added by) 1io
M02 (Updated by) ns2655
Seq #  *Modification Id* Act 
----------------------------+
01004  M02S00981.ns2655  ---|*                CHANNEL RESERVED.
01005  M01S00009.ns2655  +++|*         EXIT   (A) .EQ. 0, CHANNEL RESERVED AND (RC) = 0.
01006  M01S00010.ns2655  +++|*                (A) .EQ. *ECUA*, CHANNEL UNAVAILABLE.
01007  M01S00982.1io     +++|*
01008  M01S00983.1io     +++|*         USES   T1, T2.
01009  M01S00984.1io     +++|*
01010  M01S00985.1io     +++|*         MACROS CHTL, RCHAN.
01011  M01S00986.1io     +++|
01012  M01S00987.1io     +++|
01013  M01S00988.1io     +++| MCI1     RAI    T2
01014  M01S00989.1io     +++|          AOD    T1
01015  M01S00990.1io     +++| MCI2     LDI    T1
01016  M01S00991.1io     +++|          STD    T2
01017  M01S00992.1io     +++|          LDD    ES+1
01018  M01S00001.252l678 +++|          LPN    37
01019  M01S00993.1io     +++|          CHTL   *
01020  M01S00994.1io     +++|          SBN    CH
01021  M01S00995.1io     +++|          NJN    MCI1        IF MORE INSTRUCTIONS TO MODIFY
01022  M01S00996.1io     +++|          STD    RC          CLEAR RETRY COUNT
01023  M01S00011.ns2655  +++|
01024  M01S00012.ns2655  +++| MCI      SUBR               ENTRY/EXIT
Line S00997 Modification History
M01 (Added by) 1io
M02 (Updated by) ns2655
Seq #  *Modification Id* Act 
----------------------------+
01025  M02S00997.ns2655  ---|          LDD    ES+1        RESERVE CHANNEL
01026  M01S00013.ns2655  +++|          LDD    ES+1        GET CHANNEL BYTE
01027  M01S00014.ns2655  +++|          LPC    4037        REMOVE ALL BUT CHANNEL NUMBER
Line S00998 Modification History
M01 (Added by) 1io
M02 (Updated by) ns2655
Seq #  *Modification Id* Act 
----------------------------+
01028  M02S00998.ns2655  ---|          RCHAN
Line S00999 Modification History
M01 (Added by) 1io
M02 (Updated by) ns2655
Seq #  *Modification Id* Act 
----------------------------+
01029  M02S00999.ns2655  ---|
Line S01000 Modification History
M01 (Added by) 1io
M02 (Updated by) ns2655
Seq #  *Modification Id* Act 
----------------------------+
01030  M02S01000.ns2655  ---| MCI      SUBR               ENTRY/EXIT
01031  M01S00015.ns2655  +++|          RCHAN              TRY TO RESERVE CHANNEL
01032  M01S01001.1io     +++|          LDC    TCHS        LOAD FWA OF CHANNEL TABLE ADDRESSES
01033  M01S01002.1io     +++|          STD    T1
Line S01003 Modification History
M01 (Added by) 1io
M02 (Updated by) ns2655
Seq #  *Modification Id* Act 
----------------------------+
01034  M02S01003.ns2655  ---|          UJN    MCI2        UPDATE CHANNEL INSTRUCTIONS
01035  M01S00016.ns2655  +++|          LDM    CM+1
01036  M01S00017.ns2655  +++|          SHN    21-13
01037  M01S00018.ns2655  +++|          PJN    MCI2        IF CHANNEL AVAILABLE
01038  M01S00019.ns2655  +++|          LDN    ECUA        *CHANNEL UNAVAILABLE*
01039  M01S00020.ns2655  +++|          UJN    MCIX        EXIT WITH ERROR CODE
01040  M01S01004.1io     +++| MSG      SPACE  4,10
01041  M01S01005.1io     +++|**        MSG - PROCESS CONTROL POINT MESSAGE.
01042  M01S01006.1io     +++|*
01043  M01S01007.1io     +++|*         ENTRY  (IR+4) SET.
01044  M01S01008.1io     +++|*
01045  M01S00001.1io9    +++|*         USES   T1, CM - CM+4.
01046  M01S00002.1io9    +++|*
01047  M01S01009.1io     +++|*         CALLS  C2D.
01048  M01S01010.1io     +++|
01049  M01S01011.1io     +++|
Line S01012 Modification History
M01 (Added by) 1io
M02 (Updated by) 1io9
Seq #  *Modification Id* Act 
----------------------------+
01050  M02S01012.1io9    ---| MSG1     RJM    C2D         CONVERT BUFFER COUNT
Line S01013 Modification History
M01 (Added by) 1io
M02 (Updated by) 1io9
Seq #  *Modification Id* Act 
----------------------------+
01051  M02S01013.1io9    ---|          STM    MSGA
Line S01014 Modification History
M01 (Added by) 1io
M02 (Updated by) 1io9
Seq #  *Modification Id* Act 
----------------------------+
01052  M02S01014.1io9    ---|          LDD    CP          STORE CONTROL POINT MESSAGE
Line S01015 Modification History
M01 (Added by) 1io
M02 (Updated by) 1io9
Seq #  *Modification Id* Act 
----------------------------+
01053  M02S01015.1io9    ---|          ADN    MS1W
Line S01016 Modification History
M01 (Added by) 1io
M02 (Updated by) 1io9
Seq #  *Modification Id* Act 
----------------------------+
01054  M02S01016.1io9    ---|          CWM    MSGA,TR
Line S01017 Modification History
M01 (Added by) 1io
M02 (Updated by) 1io9
Seq #  *Modification Id* Act 
----------------------------+
01055  M02S01017.1io9    ---|
01056  M01S01018.1io     +++| MSG      SUBR               ENTRY/EXIT
01057  M01S01019.1io     +++|          LDD    IR+4
01058  M01S01020.1io     +++|          LPN    77
01059  M01S01021.1io     +++|          NJN    MSG1        IF BUFFERS ASSIGNED
01060  M01S01022.1io     +++|          LDD    CP          CONSOLE MESSAGE = *IDLE.*
01061  M01S01023.1io     +++|          ADN    MS1W
01062  M01S01024.1io     +++|          CWM    =C*IDLE.*,ON
Line S01025 Modification History
M01 (Added by) 1io
M02 (Updated by) 1io9
Seq #  *Modification Id* Act 
----------------------------+
01063  M02S01025.1io9    ---|          UJN    MSGX        RETURN
01064  M01S00003.1io9    +++|          UJN    MSG2        CHECK FOR *MS2W* MESSAGE
01065  M01S00004.1io9    +++|
01066  M01S00005.1io9    +++| MSG1     RJM    C2D         CONVERT BUFFER COUNT
01067  M01S00006.1io9    +++|          STM    MSGA
01068  M01S00007.1io9    +++|          LDD    CP          STORE CONTROL POINT MESSAGE
01069  M01S00008.1io9    +++|          ADN    MS1W
01070  M01S00009.1io9    +++|          CWM    MSGA,TR
01071  M01S00010.1io9    +++| MSG2     LDD    CP          CHECK FOR *MS2W* MESSAGE
01072  M01S00011.1io9    +++|          ADN    MS2W
01073  M01S00012.1io9    +++|          CRD    CM
01074  M01S00013.1io9    +++|          LDD    CM
01075  M01S00014.1io9    +++|          ZJN    MSGX        IF NO +CHECK *I* DISPLAY+ MESSAGE
01076  M01S00015.1io9    +++|          LDN    0           SET BUFFER POINT INDEX
01077  M01S00016.1io9    +++|          STD    T1
01078  M01S00017.1io9    +++| MSG3     NFA    BFCW+1      READ SECOND BUFFER POINT WORD
01079  M01S00018.1io9    +++|          ADD    T1
01080  M01S00019.1io9    +++|          ADD    T1
01081  M01S00020.1io9    +++|          CRD    CM
01082  M01S00021.1io9    +++|          LDD    CM          CHECK *I* DISPLAY MESSAGE CODE
01083  M01S00022.1io9    +++|          SBN    ENEC
01084  M01S00023.1io9    +++|          PJN    MSG4        IF ERROR CONDITION PRESENT
01085  M01S00024.1io9    +++|          AOD    T1          ADVANCE BUFFER POINT INDEX
01086  M01S00025.1io9    +++|          LMM    TAEQ
01087  M01S00026.1io9    +++|          NJN    MSG3        IF MORE TO CHECK
01088  M01S00027.1io9    +++|          STD    CM
01089  M01S00028.1io9    +++|          LDD    CP          CLEAR OPERATOR ALERT
01090  M01S00029.1io9    +++|          ADN    MS2W
01091  M01S00030.1io9    +++|          CWD    CM
01092  M01S00031.1io9    +++| MSG4     LJM    MSGX        RETURN
01093  M01S00032.1io9    +++|
01094  M01S01026.1io     +++|
01095  M01S01027.1io     +++| MSGA     DATA   C*00 BUFFERS ACTIVE.*
01096  M01S01028.1io     +++| PCP      SPACE  4,10
01097  M01S01029.1io     +++|**        PCP - PROCESS CHANNEL PARITY.
01098  M01S01030.1io     +++|*
01099  M01S01031.1io     +++|*         ENTRY  (A) =  UNRECOVERED FLAG.
01100  M01S01032.1io     +++|*                (RC) = RETRY COUNT.
01101  M01S01033.1io     +++|*
01102  M01S01034.1io     +++|*         EXIT   TO *FCN3* IF UNRECOVERED ERROR.
01103  M01S01035.1io     +++|*
01104  M01S01036.1io     +++|*         USES   MC, RC, RT.
01105  M01S01037.1io     +++|*
01106  M01S01038.1io     +++|*         CALLS  *3IC*.
01107  M01S01039.1io     +++|*
01108  M01S01040.1io     +++|*         MACROS EXECUTE.
01109  M01S01041.1io     +++|
01110  M01S01042.1io     +++|
01111  M01S01043.1io     +++| PCP1     STD    RC          CLEAR RETRY COUNT
01112  M01S01044.1io     +++|          EXECUTE  3IC
01113  M01S01045.1io     +++|          RJM    /3IC/ERM    ISSUE ERROR MESSAGE
01114  M01S01046.1io     +++|
01115  M01S01047.1io     +++| PCP      SUBR
01116  M01S01048.1io     +++|          STD    RT          STORE RECOVERED FLAG
01117  M01S01049.1io     +++|          LDN    ECRE        *EQXXX CHANNEL PARITY ERROR.*
01118  M01S01050.1io     +++|          STD    MC
01119  M01S01051.1io     +++|          LDD    RC
01120  M01S01052.1io     +++|          SHN    6           APPEND RETRY COUNT TO RECOVERY FLAG
01121  M01S01053.1io     +++|          RAD    RT
01122  M01S01054.1io     +++|          LPN    1
01123  M01S01055.1io     +++|          ZJN    PCP1        IF RECOVERED ERROR
01124  M01S01056.1io     +++|          LDN    ECRE        *EQXXX CHANNEL PARITY ERROR.*
01125  M01S01057.1io     +++|          LJM    FCN3        PROCESS UNRECOVERED ERROR
01126  M01S01058.1io     +++| REQ      SPACE  4,15
01127  M01S01059.1io     +++|**        REQ - REQUEST EQUIPMENT.
01128  M01S01060.1io     +++|*
Line S01061 Modification History
M01 (Added by) 1io
M02 (Updated by) 1io5
Seq #  *Modification Id* Act 
----------------------------+
01129  M02S01061.1io5    ---|*         EXIT   (A) = 0 IF NO EQUIPMENT AVAILABLE.
01130  M01S00001.1io5    +++|*         EXIT   (A) = 0 IF NO EQUIPMENT AVAILABLE OR *DSP/QAC* CALL
01131  M01S00002.1io5    +++|*                        BLOCK BUSY.
01132  M01S01062.1io     +++|*                (EQ) = EST ORDINAL / DEVICE TYPE.
01133  M01S01063.1io     +++|*                (FA) = 0.
01134  M01S01064.1io     +++|*                (ES - ES+4) = EST ENTRY.
01135  M01S01065.1io     +++|*                (IR+3) = EQUIPMENT INDEX.
01136  M01S01066.1io     +++|*
01137  M01S01067.1io     +++|*         USES   EI.
01138  M01S01068.1io     +++|*
01139  M01S01069.1io     +++|*         CALLS  CAD, CEQ, CCT, IOM, MCI, RLE, STS.
01140  M01S01070.1io     +++|*
01141  M01S01071.1io     +++|*         MACROS EXECUTE.
01142  M01S01072.1io     +++|
01143  M01S01073.1io     +++|
01144  M01S01074.1io     +++| REQ      SUBR               ENTRY/EXIT
01145  M01S00003.1io5    +++|          LDD    RA          CHECK *DSP/QAC* PARAMETER BLOCK BUSY
01146  M01S00004.1io5    +++|          SHN    6
01147  M01S00005.1io5    +++|          ADK    QAPB
01148  M01S00006.1io5    +++|          CRD    CM
01149  M01S00007.1io5    +++|          LDD    CM+4        BUSY BIT
01150  M01S00008.1io5    +++|          LPN    1
01151  M01S00009.1io5    +++| REQ0     ZJN    REQX        IF CALL BLOCK BUSY
01152  M01S01075.1io     +++|          LDN    0           CLEAR EST ORDINAL
01153  M01S01076.1io     +++|          STD    EQ
01154  M01S01077.1io     +++|          STD    FA          CLEAR FST ADDRESS
01155  M01S01078.1io     +++|          LCN    0           SET COUNTER
01156  M01S01079.1io     +++|          STD    EI
01157  M01S01080.1io     +++|          LDD    IR+3        GET EQUIPMENT INDEX
01158  M01S01081.1io     +++|          SHN    0-13
01159  M01S01082.1io     +++|          ZJN    REQ1        IF ALL EQUIPMENT NOT CHECKED
01160  M01S01083.1io     +++|          LCN    0
01161  M01S01084.1io     +++|          STD    IR+3
01162  M01S01085.1io     +++| REQ1     AOD    IR+3        ADVANCE EQUIPMENT INDEX
01163  M01S01086.1io     +++|          LMM    TAEQ
01164  M01S01087.1io     +++|          NJN    REQ2        IF NO MATCH
01165  M01S01088.1io     +++|          STD    IR+3
01166  M01S01089.1io     +++| REQ2     AOD    EI          ADVANCE COUNTER
01167  M01S01090.1io     +++|          LMM    TAEQ
Line S01091 Modification History
M01 (Added by) 1io
M02 (Updated by) 1io5
Seq #  *Modification Id* Act 
----------------------------+
01168  M02S01091.1io5    ---|          ZJN    REQX        IF ALL EQUIPMENT CHECKED
01169  M01S00010.1io5    +++|          ZJN    REQ0        IF ALL EQUIPMENT CHECKED
01170  M01S01092.1io     +++|          LDM    TAEQ+1,IR+3
01171  M01S01093.1io     +++|          STD    EQ
01172  M01S01094.1io     +++|          SHN    -3          CHECK EQUIPMENT AVAILABLE
01173  M01S01095.1io     +++|          RJM    CEQ
Line S01096 Modification History
M01 (Added by) 1io
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01174  M02S01096.242l642 ---|          NJN    REQ1        IF ASSIGNED, DOWN, OR OFF
01175  M01S00014.242l642 +++|          NJN    REQ1        IF EQUIPMENT ASSIGNED ELSEWHERE
01176  M01S01097.1io     +++|          RJM    MCI         MODIFY CHANNEL INSTRUCTIONS
Line S01098 Modification History
M01 (Added by) 1io
M02 (Updated by) ns2655
Seq #  *Modification Id* Act 
----------------------------+
01177  M02S01098.ns2655  ---|          LDD    EQ
01178  M01S00021.ns2655  +++|          ZJN    REQ2.1      IF CHANNEL AVAILABLE
01179  M01S00022.ns2655  +++|          RJM    IOM         ISSUE ERROR MESSAGE
01180  M01S00023.ns2655  +++|          UJN    REQ1        CHECK NEXT EQUIPMENT
01181  M01S00024.ns2655  +++|
01182  M01S00025.ns2655  +++| REQ2.1   LDD    EQ
01183  M01S01099.1io     +++|          LPN    7
01184  M01S01100.1io     +++|          SBK    NPDT
01185  M01S01101.1io     +++|          NJN    REQ4        IF NOT NON-IMPACT PRINTER
01186  M01S01102.1io     +++|          LDD    ES          CHECK IF CONTROLWARE LOAD NEEDED
01187  M01S01103.1io     +++|          SHN    21-4
01188  M01S01104.1io     +++|          PJN    REQ3        IF LOAD NOT NEEDED
01189  M01S01105.1io     +++|          EXECUTE  3IF       LOAD CONTROLWARE
01190  M01S01106.1io     +++|          NJN    REQ7        IF BUFFER SPACE UNAVAILABLE
01191  M01S01107.1io     +++| REQ3     RJM    CCT         CONNECT TO DEVICE
01192  M01S01108.1io     +++|          ZJN    REQ8        IF DEVICE READY
01193  M01S01109.1io     +++|          LMN    1
01194  M01S01110.1io     +++|          ZJN    REQ5        IF NOT READY
01195  M01S01111.1io     +++|          LMN    4&1
01196  M01S01112.1io     +++|          NJN    REQ7        IF INTERVENTION NOT REQUIRED
01197  M01S01113.1io     +++|          LDN    EIVR        *INTERVENTION REQUIRED.*
01198  M01S01114.1io     +++|          UJN    REQ6        SET ERROR MESSAGE
01199  M01S01115.1io     +++|
01200  M01S01116.1io     +++| REQ4     RJM    STS         CHECK STATUS
01201  M01S01117.1io     +++|          NJN    REQ8        IF EQUIPMENT READY
01202  M01S01118.1io     +++| REQ5     LDN    ENRD        *NOT READY.*
01203  M01S01119.1io     +++| REQ6     RJM    IOM         ISSUE OPERATOR MESSAGE
01204  M01S01120.1io     +++| REQ7     RJM    CAD         CLEAR AND DISCONNECT
01205  M01S01121.1io     +++|          RJM    RLE         RELEASE EQUIPMENT
01206  M01S01122.1io     +++|          LJM    REQ1        PROCESS NEXT EQUIPMENT
01207  M01S01123.1io     +++|
01208  M01S01124.1io     +++| REQ8     RJM    CAD         CLEAR AND DISCONNECT
01209  M01S01125.1io     +++|          LDN    ECLE        CLEAR MESSAGE
01210  M01S01126.1io     +++|          RJM    IOM         ISSUE OPERATOR MESSAGE
01211  M01S01127.1io     +++|          LDN    1           SET EQUIPMENT AVAILABLE
01212  M01S01128.1io     +++|          LJM    REQX        RETURN
01213  M01S01129.1io     +++| RLE      SPACE  4,10
01214  M01S01130.1io     +++|**        RLE - RELEASE EQUIPMENT.
01215  M01S01131.1io     +++|*
01216  M01S01132.1io     +++|*         ENTRY  (EQ) = 9/EST ORDINAL, 3/DEVICE TYPE.
01217  M01S01133.1io     +++|*
01218  M01S01134.1io     +++|*         EXIT   (EQ) = 0.
01219  M01S01135.1io     +++|*
01220  M01S01136.1io     +++|*         MACROS MONITOR.
01221  M01S01137.1io     +++|
01222  M01S01138.1io     +++|
01223  M01S01139.1io     +++| RLE      SUBR               ENTRY/EXIT
01224  M01S01140.1io     +++|          LDD    EQ
01225  M01S01141.1io     +++|          SHN    -3
01226  M01S01142.1io     +++|          ZJN    RLEX        IF NOT ASSIGNED
01227  M01S01143.1io     +++|          STD    CM+1
01228  M01S01144.1io     +++|          MONITOR  DEQM
01229  M01S01145.1io     +++|*         LDN    0
01230  M01S01146.1io     +++|          STD    EQ
01231  M01S01147.1io     +++|          UJN    RLEX        RETURN
01232  M01S01148.1io     +++| RST      SPACE  4,15
01233  M01S01149.1io     +++|**        RST - READ STATUS.
01234  M01S01150.1io     +++|*
01235  M01S01151.1io     +++|*         ENTRY  (A) = 12 IF REQUESTING CONVERTER STATUS.
01236  M01S01152.1io     +++|*                    = 13 IF REQUESTING EQUIPMENT STATUS.
01237  M01S01153.1io     +++|*
01238  M01S01154.1io     +++|*         EXIT   (CS) = CONVERTER STATUS IF REQUESTED.
01239  M01S01155.1io     +++|*                (ST) = EQUIPMENT STATUS IF REQUESTED.
01240  M01S01156.1io     +++|*
01241  M01S01157.1io     +++|*         USES   CM, RC, T4.
01242  M01S01158.1io     +++|*
01243  M01S01159.1io     +++|*         CALLS  IFN, PCP.
01244  M01S01160.1io     +++|
01245  M01S01161.1io     +++|
01246  M01S01162.1io     +++| RST2     AOD    RC          ADVANCE RETRY COUNT
01247  M01S01163.1io     +++|          SBN    CHPR
01248  M01S01164.1io     +++|          MJN    RST1        IF NOT AT RETRY LIMIT
01249  M01S01165.1io     +++|          LDN    1
01250  M01S01166.1io     +++| RST3     RJM    PCP         PROCESS PARITY ERROR
01251  M01S01167.1io     +++|
01252  M01S01168.1io     +++| RST      SUBR               ENTRY/EXIT
01253  M01S01169.1io     +++|          STD    CM
01254  M01S01170.1io     +++|          SBN    12          SET STATUS INDEX
01255  M01S01171.1io     +++|          STD    T4
01256  M01S01172.1io     +++| RST1     LDD    CM          ISSUE CONVERTER FUNCTION
01257  M01S01173.1io     +++|          RJM    IFN
01258  M01S01174.1io     +++|          IAN    CH+40       INPUT STATUS
01259  M01S01175.1io     +++|          DCN    CH+40
01260  M01S01176.1io     +++|          ERRNZ  CS+1-ST     CODE DEPENDS ON VALUE
01261  M01S01177.1io     +++|          STM    CS,T4
01262  M01S01178.1io     +++|          SFM    RST2,CH     IF CHANNEL PARITY ERROR
01263  M01S01179.1io     +++|          LDD    RC
01264  M01S01180.1io     +++|          ZJN    RSTX        IF NO PREVIOUS ERROR
01265  M01S01181.1io     +++|          LDN    0
01266  M01S01182.1io     +++|          UJN    RST3        PROCESS RECOVERED PARITY ERROR
01267  M01S01183.1io     +++| SFA      SPACE  4,10
01268  M01S01184.1io     +++|**        SFA - SET FET ADDRESS.
01269  M01S01185.1io     +++|*
01270  M01S01186.1io     +++|*         ENTRY  (BA - BA+1) = RELATIVE FET ADDRESS.
01271  M01S01187.1io     +++|*
01272  M01S01188.1io     +++|*         EXIT   (A) = ABSOLUTE FET ADDRESS.
01273  M01S01189.1io     +++|
01274  M01S01190.1io     +++|
01275  M01S01191.1io     +++| SFA      SUBR               ENTRY/EXIT
01276  M01S01192.1io     +++|          LDD    BA
01277  M01S01193.1io     +++|          SHN    6
01278  M01S01194.1io     +++|          ADD    RA
01279  M01S01195.1io     +++|          SHN    6
01280  M01S01196.1io     +++|          ADD    BA+1
01281  M01S01197.1io     +++|          UJN    SFAX        RETURN
01282  M01S01198.1io     +++| SFF      SPACE  4,15
01283  M01S01199.1io     +++|**        SFF - SEARCH FOR FILE.
01284  M01S01200.1io     +++|*
01285  M01S01201.1io     +++|*         ENTRY  (A) = FILE TYPE.
01286  M01S01202.1io     +++|*                (EQ) = 9/EST ORDINAL,3/EQUIPMENT TYPE.
01287  M01S01203.1io     +++|*                (ES - ES+4) = EST ENTRY.
01288  M01S01204.1io     +++|*
01289  M01S01205.1io     +++|*         EXIT   *1IO* IS RECALLED AND *QAC* IS CALLED INTO THIS PP.
01290  M01S01206.1io     +++|*
01291  M01S01207.1io     +++|*         USES   T1, T2, CM - CM+4.
01292  M01S01208.1io     +++|*
01293  M01S01209.1io     +++|*         CALLS  *QAC*.
01294  M01S01210.1io     +++|*
01295  M01S01211.1io     +++|*         MACROS EXECUTE, MONITOR, SFA.
01296  M01S01212.1io     +++|
01297  M01S01213.1io     +++|
01298  M01S01214.1io     +++| SFF      STM    QACB+10*5   SET QUEUE TYPE
01299  M01S01215.1io     +++|          LMK    PHQQ
01300  M01S01216.1io     +++|          ZJN    SFF3        IF PUNCH QUEUE
01301  M01S01217.1io     +++|          LDK    ZESF+HESF+DSSF  SET EXT. CHAR. AND DISP. CODE
01302  M01S01218.1io     +++|          STM    QACB+7*5+4
01303  M01S01219.1io     +++|          LDD    ES+4        SET EXTERNAL CHARACTERISTICS (PRINT TRAIN)
01304  M01S01220.1io     +++|          SHN    -6
01305  M01S01221.1io     +++|          LPN    7
01306  M01S01222.1io     +++|          STD    T1
01307  M01S01223.1io     +++|          LMN    6
01308  M01S01224.1io     +++|          NJN    SFF2        IF NOT 12-BIT ASCII TRAIN
01309  M01S01225.1io     +++|          LDK    ECSF+DSSF   SET EXPLICIT EXT. CHAR. AND DISP. CODE
01310  M01S01226.1io     +++|          STM    QACB+7*5+4
01311  M01S01227.1io     +++| SFF2     LDM    TPTE,T1     SET EXTERNAL CHARACTERISTICS
01312  M01S01228.1io     +++|          STM    QACB+10*5+3
01313  M01S01229.1io     +++| SFF3     LDK    FCSF+IDSF+DPSF  ADD SELECTION FLAGS
01314  M01S01230.1io     +++|          RAM    QACB+7*5+4
01315  M01S01231.1io     +++|          LDK    LPSF+LVSF
01316  M01S01232.1io     +++|          STM    QACB+7*5+3
01317  M01S01233.1io     +++|          LDD    ES+3        SET DISPOSITION CODE
01318  M01S01234.1io     +++|          STM    QACB+10*5+2
Line S01235 Modification History
M01 (Added by) 1io
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01319  M02S01235.252l678 ---|          LDD    ES+2        SET FORMS CODE
Line S01236 Modification History
M01 (Added by) 1io
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01320  M02S01236.252l678 ---|          STM    QACB+10*5+1
01321  M01S01237.1io     +++|          LDD    ES+4        SET DEVICE ID CODE
01322  M01S01238.1io     +++|          LPN    77
01323  M01S01239.1io     +++|          STM    QACB+5*5+3
01324  M01S01240.1io     +++|          LDD    EQ          READ EST ENTRY
01325  M01S01241.1io     +++|          SHN    -3
01326  M01S01242.1io     +++|          SFA    EST
01327  M01S01243.1io     +++|          ADK    EQAE
01328  M01S01244.1io     +++|          CRD    CM
01329  M01S00002.252l678 +++|          LDD    CM+2        SET FORMS CODE
01330  M01S00003.252l678 +++|          STM    QACB+10*5+1
01331  M01S01245.1io     +++|          LDD    CM+3        SET EQUIPMENT ACCESS LEVEL LIMITS
01332  M01S01246.1io     +++|          SHN    6
01333  M01S01247.1io     +++|          STM    QACB+11*5+3
01334  M01S01248.1io     +++|          LDN    GTFC*2      SET *GET* FUNCTION
01335  M01S01249.1io     +++|          STM    QACB+4
01336  M01S01250.1io     +++|
01337  M01S01251.1io     +++|*         RECALL *1IO* AND CALL *QAC* INTO THIS PP.
01338  M01S01252.1io     +++|
01339  M01S01253.1io     +++|          LDN    QAPBL       WRITE *QAC* PARAMETER BLOCK
01340  M01S01254.1io     +++|          STD    T1
01341  M01S01255.1io     +++|          LDD    RA
01342  M01S01256.1io     +++|          SHN    6
01343  M01S01257.1io     +++|          ADC    QAPB
01344  M01S01258.1io     +++|          CWM    QACB,T1
01345  M01S01259.1io     +++|          LDD    HN          SET FILE REQUESTED FLAG IN *1IO* RECALL
01346  M01S01260.1io     +++|          RAD    IR+2
01347  M01S01261.1io     +++|          EXECUTE  QAC,=
01348  M01S01262.1io     +++|          LDD    MA          CALL *QAC*
01349  M01S01263.1io     +++|          CWM    SFFA,ON
01350  M01S01264.1io     +++|          LDN    0           ENABLE QUEUING OF PP REQUEST
01351  M01S01265.1io     +++|          STD    CM+1
01352  M01S01266.1io     +++|          MONITOR  RPPM
01353  M01S01267.1io     +++|          LJM    RCL1        RECALL *1IO*
01354  M01S01268.1io     +++|
01355  M01S01269.1io     +++| SFFA     VFD    18/3LQAC,24/0,18/QAPB
01356  M01S01270.1io     +++| STS      SPACE  4,20
01357  M01S01271.1io     +++|**        STS - CHECK EQUIPMENT STATUS.
01358  M01S01272.1io     +++|*
01359  M01S01273.1io     +++|*         ENTRY  (ES - ES+4) = EST ENTRY.
01360  M01S01274.1io     +++|*
01361  M01S01275.1io     +++|*         EXIT   (A) = 0, IF EQUIPMENT *NOT READY*.
01362  M01S01276.1io     +++|*                (A) = 1, IF EQUIPMENT CONNECTED AND *READY*.
01363  M01S01277.1io     +++|*                (CS) = 6681 STATUS.
01364  M01S01278.1io     +++|*                (ST) = EQUIPMENT STATUS.
01365  M01S01279.1io     +++|*                TO *FCN3* IF ERROR.
01366  M01S01280.1io     +++|*
01367  M01S01281.1io     +++|*         CALLS  CON, IFN.
01368  M01S01282.1io     +++|
01369  M01S01283.1io     +++|
01370  M01S01284.1io     +++| STS6     LDD    ST          CHECK EQUIPMENT STATUS
01371  M01S01285.1io     +++|          LPN    1
01372  M01S01286.1io     +++|
01373  M01S01287.1io     +++| STS      SUBR               ENTRY/EXIT
01374  M01S01288.1io     +++|          LDN    20          SELECT 6681
01375  M01S01289.1io     +++|          RJM    IFN         ISSUE FUNCTION
01376  M01S01290.1io     +++|          DCN    CH+40
01377  M01S01291.1io     +++|          RJM    CON         CONNECT EQUIPMENT
01378  M01S01292.1io     +++| STS3     ZJN    STS6        IF NO ERROR
01379  M01S01293.1io     +++|          RJM    CON
01380  M01S01294.1io     +++|          ZJN    STS6        IF PARITY ERROR CLEARED
01381  M01S01295.1io     +++| STS4     LDN    ERJM        REJECT/TRANSMISSION PARITY ERROR
01382  M01S01296.1io     +++| STS5     LJM    FCN3        PROCESS ERROR
01383  M01S01297.1io     +++|          SPACE  4,10
01384  M01S01298.1io     +++|**        COMMON DECKS.
01385  M01S01299.1io     +++|
01386  M01S01300.1io     +++|
01387  M01S01301.1io     +++|*CALL     COMPRSI
01388  M01S01302.1io     +++|          SPACE  4,10
01389  M01S01303.1io     +++|**        LITERALS BLOCK.
01390  M01S01304.1io     +++|
01391  M01S01305.1io     +++|
01392  M01S01306.1io     +++|          USE    OVERLAY
01393  M01S01307.1io     +++| TPTE     SPACE  4,10
01394  M01S01308.1io     +++|**        TPTE - TABLE OF PRINT TRAIN EXTERNAL CHARACTERISTIC VALUES.
01395  M01S01309.1io     +++|*
01396  M01S01310.1io     +++|*         INDEXED BY PRINT TRAIN NUMBER.
01397  M01S01311.1io     +++|*
01398  M01S01312.1io     +++|*T,       3/EC , 9/ 0
Figure

08911 0EC

01399  M01S01313.1io     +++|*
01400  M01S01314.1io     +++|*         EC = EXTERNAL CHARACTERISTIC VALUE.
01401  M01S01315.1io     +++|
01402  M01S01316.1io     +++|
01403  M01S01317.1io     +++| TPTE     BSS    0
01404  M01S01318.1io     +++|
01405  M01S01319.1io     +++|          CON    4000        595-1/596-1
01406  M01S01320.1io     +++|          CON    4000        595-1/596-1
01407  M01S01321.1io     +++|          CON    4000        NOT SUPPORTED
01408  M01S01322.1io     +++|          CON    4000        NOT SUPPORTED
01409  M01S01323.1io     +++|          CON    6000        595-6/596-6
01410  M01S01324.1io     +++|          CON    5000        595-5/596-5
01411  M01S01325.1io     +++|          CON    6000        595-6/596-6
01412  M01S01326.1io     +++|          CON    0           595-6/596-6 USED AS 595-5/596-5
01413  M01S01327.1io     +++| TCHS     SPACE  4,10
01414  M01S01328.1io     +++|**        TCHS - CHANNEL TABLE.
01415  M01S01329.1io     +++|
01416  M01S01330.1io     +++|
01417  M01S01331.1io     +++| TCHS     CHTB
01418  M01S01332.1io     +++| TAEQ     SPACE  4,10
01419  M01S01333.1io     +++|**        TAEQ - TABLE OF AVAILABLE EQUIPMENT.
01420  M01S01334.1io     +++|
01421  M01S01335.1io     +++|
01422  M01S01336.1io     +++| TAEQ     BSS    0
01423  M01S01337.1io     +++| TAEQL    EQU    CTIR*5-TEQR*5  TABLE LENGTH
01424  M01S01338.1io     +++|          SPACE  4,10
01425  M01S01339.1io     +++|**        QACB - *QAC* PARAMETER BLOCK BUFFER.
01426  M01S01340.1io     +++|
01427  M01S01341.1io     +++|
01428  M01S01342.1io     +++| QACB     EQU    TAEQ+TAEQL  FWA OF BUFFER
01429  M01S01343.1io     +++| QACBL    EQU    QAPBL*5     *QAC* PARAMETER BLOCK BUFFER LENGTH
01430  M01S01344.1io     +++|
01431  M01S01345.1io     +++| ORGR     EQU    QACB+5*QFFL+5
01432  M01S01346.1io     +++|
01433  M01S01347.1io     +++|          DEFOIES  ORGR      SET LOAD ADDRESS OF ERROR ROUTINES
01434  M01S01348.1io     +++|          SPACE  4,10
01435  M01S01349.1io     +++|          OVERFLOW  ,BFMS-TAEQL
01436  M01S01350.1io     +++| RIO      TTL    1IO/3IA - 1IO SUBROUTINES.
01437  M01S01351.1io     +++|          TITLE
01438  M01S01352.1io     +++|          QUAL   3IA
01439  M01S01353.1io     +++|          IDENT  3IA,RIOX
01440  M01S01354.1io     +++|*COMMENT  1IO - SUBROUTINES.
Line S01355 Modification History
M01 (Added by) 1io
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
01441  M02S01355.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1974.
01442  M01S00002.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
01443  M01S01356.1io     +++| RIO      SPACE  4,10
01444  M01S01357.1io     +++|**        RIO - RETURN CONTROL.
01445  M01S01358.1io     +++|
01446  M01S01359.1io     +++|
01447  M01S01360.1io     +++|          ORG    ORGR
01448  M01S01361.1io     +++|
01449  M01S01362.1io     +++| RIO      SUBR               ENTRY/EXIT
01450  M01S01363.1io     +++|          UJN    RIOX        RETURN
01451  M01S01364.1io     +++| ABF      SPACE  4,10
01452  M01S01365.1io     +++|**        ABF - ASSIGN BUFFER.
01453  M01S01366.1io     +++|*
01454  M01S01367.1io     +++|*         ENTRY  (EQ) = EST ORDINAL / DEVICE TYPE.
01455  M01S01368.1io     +++|*                (FA) = FST ADDRESS.
01456  M01S01369.1io     +++|*                (FS - FS+4) = FST ENTRY.
01457  M01S01370.1io     +++|*                (QACB - QACB+QACBL) = *QAC* PARAMETER BLOCK.
01458  M01S01371.1io     +++|*
01459  M01S01372.1io     +++|*         USES   EC, FA, FS - FS+4.
01460  M01S01373.1io     +++|*
01461  M01S01374.1io     +++|*         CALLS  EBP, EFT, FFB.
01462  M01S01375.1io     +++|
01463  M01S01376.1io     +++|
01464  M01S01377.1io     +++| ABF      SUBR               ENTRY/EXIT
01465  M01S01378.1io     +++|          LDD    EQ          SET DEVICE TYPE
01466  M01S01379.1io     +++|          LPN    7
01467  M01S01380.1io     +++|          STD    EC
01468  M01S01381.1io     +++|          SBK    CRDT
01469  M01S01382.1io     +++|          NJN    ABF1        IF NOT INPUT FILE
01470  M01S01383.1io     +++|          STD    FA          CLEAR FST ADDRESS
01471  M01S01384.1io     +++|          LDN    ZERL        CLEAR FST ENTRY
01472  M01S01385.1io     +++|          CRD    FS
01473  M01S01386.1io     +++| ABF1     RJM    FFB         FIND FREE BUFFER
01474  M01S01387.1io     +++|          RJM    EFT         ENTER FET INFORMATION
01475  M01S01388.1io     +++|          RJM    EBP         ENTER BUFFER POINT INFORMATION
01476  M01S01389.1io     +++|          UJN    ABFX        RETURN
01477  M01S01390.1io     +++| ADR      SPACE  4,15
01478  M01S01391.1io     +++|**        ADR - ASSIGN DRIVER.
01479  M01S01392.1io     +++|*
01480  M01S01393.1io     +++|*         ENTRY  (IR+3) = BUFFER NUMBER.
01481  M01S01394.1io     +++|*                (BA - BA+1) = BUFFER ADDRESS.
01482  M01S01395.1io     +++|*                (EQ) = EST ORDINAL / DEVICE TYPE.
01483  M01S01396.1io     +++|*
01484  M01S01397.1io     +++|*         EXIT   TO *RCL*.
01485  M01S01398.1io     +++|*
01486  M01S01399.1io     +++|*         USES   EC, T2, CM - CM+4, CN - CN+4.
01487  M01S01400.1io     +++|*
01488  M01S01401.1io     +++|*         CALLS  MSG, *3IC*.
01489  M01S01402.1io     +++|*
01490  M01S01403.1io     +++|*         MACROS EXECUTE, MONITOR.
01491  M01S01404.1io     +++|
01492  M01S01405.1io     +++|
01493  M01S01406.1io     +++| ADR      LDN    D1AR        PREPARE REQUEST WORD
01494  M01S01407.1io     +++|          STD    CN
01495  M01S01408.1io     +++|          LDD    EQ
01496  M01S01409.1io     +++|          STD    CN+1
01497  M01S01410.1io     +++|          LPN    7
01498  M01S01411.1io     +++|          STD    EC          SET DEVICE TYPE
01499  M01S01412.1io     +++|          LDD    BA
01500  M01S01413.1io     +++|          STD    CN+3
01501  M01S01414.1io     +++|          LDD    BA+1
01502  M01S01415.1io     +++|          STD    CN+4
01503  M01S01416.1io     +++|          LDN    0           CLEAR EMPTY INDICATOR
01504  M01S01417.1io     +++|          STD    T2
01505  M01S01418.1io     +++| ADR1     LDD    RA          READ ASSIGNMENT WORD
01506  M01S01419.1io     +++|          SHN    6
01507  M01S01420.1io     +++|          ADD    CN
01508  M01S01421.1io     +++|          CRD    CM
01509  M01S01422.1io     +++|          LDD    CM+1        CHECK PROCESSOR
01510  M01S01423.1io     +++|          SCN    77
01511  M01S01424.1io     +++|          SHN    6
01512  M01S01425.1io     +++|          ADD    CM
01513  M01S01426.1io     +++|          NJN    ADR2        IF ASSIGNED
01514  M01S01427.1io     +++|          LDD    CN          SET FREE ADDRESS
01515  M01S01428.1io     +++|          STD    T2
01516  M01S01429.1io     +++| ADR2     LMC    3RD1C
01517  M01S01430.1io     +++|          NJN    ADR3        IF NOT DRIVER
01518  M01S01431.1io     +++|          LDD    CM+3        CHECK ENTRY COUNT
01519  M01S01432.1io     +++|          LMN    MEQD
01520  M01S01433.1io     +++|          ZJN    ADR3        IF DRIVER FULL
01521  M01S01434.1io     +++|          LDM    ADRB,EC     CHECK SUB-DRIVER TYPE
01522  M01S01435.1io     +++|          LMD    CM+4
01523  M01S01436.1io     +++|          NJN    ADR3        IF NOT PROPER SUB-DRIVER
01524  M01S01437.1io     +++|          LDD    RA          STORE REQUEST
01525  M01S01438.1io     +++|          SHN    6
01526  M01S01439.1io     +++|          ADN    DRQR
01527  M01S01440.1io     +++|          CWD    CN
01528  M01S01441.1io     +++|          LJM    ADR5        CHECK JOB TYPE
01529  M01S01442.1io     +++|
01530  M01S01443.1io     +++| ADR3     AOD    CN          ADVANCE SEARCH
01531  M01S01444.1io     +++|          LMN    DRQR
01532  M01S01445.1io     +++|          NJN    ADR1        IF NOT END OF PROCESSORS
01533  M01S01446.1io     +++|          LDD    T2
01534  M01S01447.1io     +++|          STD    CN
01535  M01S01448.1io     +++|          NJN    ADR4        IF ROOM FOR ANOTHER PROCESSOR
01536  M01S01449.1io     +++|          EXECUTE  3IC
01537  M01S01450.1io     +++|          LJM    /3IC/CAS    CLEAR ASSIGNMENT
01538  M01S01451.1io     +++|
01539  M01S01452.1io     +++|*         *ADR4* IS A SECONDARY ENTRY POINT FOR *ADR*.
01540  M01S01453.1io     +++|*
01541  M01S01454.1io     +++|*         FORMAT *1CD* CALL AND TRY TO INITIATE *1CD* IN ANOTHER PP.
01542  M01S01455.1io     +++|
01543  M01S01456.1io     +++| ADR4     LDD    CN
01544  M01S01457.1io     +++|          STM    ADRA+2      SET PROCESSER NUMBER
01545  M01S01458.1io     +++|          LDM    ADRB,EC     SET SUB-DRIVER TYPE
01546  M01S01459.1io     +++|          STM    ADRA+4
01547  M01S01460.1io     +++|          LDD    RA          STORE PROCESSOR WORD
01548  M01S01461.1io     +++|          SHN    6
01549  M01S01462.1io     +++|          ADD    CN
01550  M01S01463.1io     +++|          CWM    ADRA,ON
01551  M01S01464.1io     +++|          LDD    RA          SET REQUEST
01552  M01S01465.1io     +++|          SHN    6
01553  M01S01466.1io     +++|          ADN    DRQR
01554  M01S01467.1io     +++|          CWD    CN
01555  M01S01468.1io     +++|          LDD    IR+1        SET CONTROL POINT NUMBER
01556  M01S01469.1io     +++|          LPN    37
01557  M01S01470.1io     +++|          RAM    ADRA+1
01558  M01S01471.1io     +++|          RJM    MSG         PROCESS MESSAGES
01559  M01S01472.1io     +++|          EXECUTE  1CD,=
01560  M01S01473.1io     +++|          LDD    MA          CALL *1CD*
01561  M01S01474.1io     +++|          CWM    ADRA,ON
01562  M01S01475.1io     +++|          LDN    0           ENABLE QUEUING OF PP REQUEST
01563  M01S01476.1io     +++|          STD    CM+1
01564  M01S01477.1io     +++|          MONITOR  RPPM
01565  M01S01478.1io     +++|          LDD    CM+1
01566  M01S01479.1io     +++|          ZJN    ADR7        IF PP NOT ASSIGNED
01567  M01S01480.1io     +++|
01568  M01S01481.1io     +++|*         REQUEST NO *1IO* RECALL FOR OUTPUT JOBS.
01569  M01S01482.1io     +++|
01570  M01S01483.1io     +++| ADR5     LDD    FA
01571  M01S01484.1io     +++|          ZJN    ADR6        IF INPUT JOB
01572  M01S01485.1io     +++|          AOM    RCLA        SET NO RECALL REQUESTED FLAG
01573  M01S01486.1io     +++| ADR6     LJM    RCL         RECALL *1IO*
01574  M01S01487.1io     +++|
01575  M01S01488.1io     +++|*         RECALL *1IO* AND CALL *1CD* INTO THIS PP.
01576  M01S01489.1io     +++|
01577  M01S01490.1io     +++| ADR7     LDC    4000
01578  M01S01491.1io     +++|          STD    CM+1
01579  M01S01492.1io     +++|          LDD    IA          STORE INPUT REGISTER
01580  M01S01493.1io     +++|          CWM    ADRA,ON
01581  M01S01494.1io     +++|          LJM    RCL2        ENTER *1IO* RECALL REQUEST
01582  M01S01495.1io     +++|
01583  M01S01496.1io     +++| ADRA     VFD    60/0L1CD
01584  M01S01497.1io     +++|
01585  M01S01498.1io     +++| ADRB     INDEX              SUB-DRIVER TYPES
01586  M01S01499.1io     +++|          INDEX  LPDT,0
01587  M01S01500.1io     +++|          INDEX  CPDT,0
01588  M01S01501.1io     +++|          INDEX  CRDT,0
01589  M01S01502.1io     +++|          INDEX  NPDT,1
01590  M01S01503.1io     +++|          INDEX  MXDT
01591  M01S01504.1io     +++| EBP      SPACE  4,10
01592  M01S01505.1io     +++|**        EBP - ENTER BUFFER POINT INFORMATION.
01593  M01S01506.1io     +++|*
01594  M01S01507.1io     +++|*         ENTRY  (BA - BA+1) = BUFFER ADDRESS.
01595  M01S01508.1io     +++|*                (EQ) = EST ORDINAL / DEVICE TYPE.
01596  M01S01509.1io     +++|*                (IR+3) = BUFFER POINT NUMBER.
01597  M01S01510.1io     +++|*                (FA) = FNT ADDRESS.
01598  M01S01511.1io     +++|*                (T7) = REPEAT COUNT.
01599  M01S01512.1io     +++|*                (QACB) = FET.
01600  M01S01513.1io     +++|*
01601  M01S01514.1io     +++|*         EXIT   BUFFER POINT UPDATED.
01602  M01S01515.1io     +++|*
01603  M01S01516.1io     +++|*         USES   CM - CM+4.
01604  M01S01517.1io     +++|*
01605  M01S01518.1io     +++|*         CALLS  SFA.
01606  M01S01519.1io     +++|*
01607  M01S01520.1io     +++|*         MACROS NFA.
01608  M01S01521.1io     +++|
01609  M01S01522.1io     +++|
01610  M01S01523.1io     +++| EBP      SUBR               ENTRY/EXIT
01611  M01S01524.1io     +++|          RJM    SFA         READ FILE NAME
01612  M01S01525.1io     +++|          CRD    CM
01613  M01S01526.1io     +++|          LDD    EQ          SET EST ORDINAL / DEVICE TYPE
01614  M01S01527.1io     +++|          SHN    -3
01615  M01S01528.1io     +++|          STD    CM+3
01616  M01S01529.1io     +++|          LDD    T7          SET REPEAT COUNT
01617  M01S01530.1io     +++|          SHN    6
01618  M01S01531.1io     +++|          STD    CM+4
Line S01532 Modification History
M01 (Added by) 1io
M02 (Updated by) ns2319
Seq #  *Modification Id* Act 
----------------------------+
01619  M02S01532.ns2319  ---|          NFA    QACB+5*EDSO+CMBF,R  STORE BUFFER POINT WORD
01620  M01S00001.ns2319  +++|          NFA    QACB+5*5,R  STORE BUFFER POINT WORD
01621  M01S01533.1io     +++|          CWD    CM
01622  M01S00001.ns2487  +++|          LDN    ZERL
01623  M01S00002.ns2487  +++|          CRD    CM
01624  M01S00003.ns2487  +++|          LDD    BA          SET FET ADDRESS
01625  M01S00004.ns2487  +++|          STD    CM+3
01626  M01S00005.ns2487  +++|          LDD    BA+1
01627  M01S00006.ns2487  +++|          STD    CM+4
01628  M01S00007.ns2487  +++|          NFA    BFSP        STORE AUXILIARY BUFFER POINT WORD
01629  M01S00008.ns2487  +++|          ADD    IR+3
01630  M01S00009.ns2487  +++|          CWD    CM
01631  M01S01534.1io     +++|          UJN    EBPX        RETURN
01632  M01S01535.1io     +++| EFT      SPACE  4,10
01633  M01S01536.1io     +++|**        EFT - ENTER FET INFORMATION.
01634  M01S01537.1io     +++|*
01635  M01S01538.1io     +++|*         ENTRY  (EC) = DEVICE TYPE.
01636  M01S01539.1io     +++|*                (T3) = BUFFER SIZE / 100.
01637  M01S01540.1io     +++|*                (IR+3) = BUFFER NUMBER.
01638  M01S01541.1io     +++|*                (BA - BA+1) = BUFFER ADDRESS.
01639  M01S01542.1io     +++|*                (ES - ES+4) = EST ENTRY.
01640  M01S01543.1io     +++|*
01641  M01S01544.1io     +++|*         EXIT   (T7) = REPEAT COUNT.
01642  M01S01545.1io     +++|*
01643  M01S01546.1io     +++|*         USES   EC, T1, T5, T6, RI - RI+1.
01644  M01S01547.1io     +++|*
01645  M01S01548.1io     +++|*         CALLS  CRA, SFA.
01646  M01S01549.1io     +++|
01647  M01S01550.1io     +++|
01648  M01S01551.1io     +++|*         PROCESS PRINT FILE.
01649  M01S01552.1io     +++|
01650  M01S01553.1io     +++| EFT1     SBN    6
Line S01554 Modification History
M01 (Added by) 1io
M02 (Updated by) ns2597
Seq #  *Modification Id* Act 
----------------------------+
01651  M02S01554.ns2597  ---|          NJN    EFT2        IF NOT 12-BIT ASCII PRINT FILE
Line S01555 Modification History
M01 (Added by) 1io
M02 (Updated by) ns2597
Seq #  *Modification Id* Act 
----------------------------+
01652  M02S01555.ns2597  ---|          LDN    4
01653  M01S00001.ns2597  +++|          NJN    EFT2        IF NOT ASCII PRINT FILE
01654  M01S00002.ns2597  +++|          LDM    QACB+10*5+3
01655  M01S00003.ns2597  +++|          SHN    -6
01656  M01S00004.ns2597  +++|          LPN    7           ISOLATE IC
01657  M01S00005.ns2597  +++|          LMK    DCIC
01658  M01S00006.ns2597  +++|          ZJN    EFT2        IF 6-BIT DISPLAY CODE
01659  M01S00007.ns2597  +++|          LMK    A6IC&DCIC
01660  M01S00008.ns2597  +++|          ZJN    EFT1.1      IF 6/12 ASCII
01661  M01S00009.ns2597  +++|          LDN    20&4        SET 8/12 ASCII
01662  M01S00010.ns2597  +++| EFT1.1   LMN    20          SET ASCII FILE FLAG
Line S01556 Modification History
M01 (Added by) 1io
M02 (Updated by) ns2487
Seq #  *Modification Id* Act 
----------------------------+
01663  M02S01556.ns2487  ---|          STM    QACB+6*5+2
01664  M01S00010.ns2487  +++|          STM    QACB+5*FPW2+2
01665  M01S01557.1io     +++| EFT2     LDM    QACB+15*5+3 SET *BATCHIO* SUBSYSTEM PRIVILEDGES FLAG
01666  M01S01558.1io     +++|          STM    QACB+4*5+2
01667  M01S01559.1io     +++|          SHN    0-13
Line S01560 Modification History
M01 (Added by) 1io
M02 (Updated by) ns2487
Seq #  *Modification Id* Act 
----------------------------+
01668  M02S01560.ns2487  ---|          RAM    QACB+6*5+2
01669  M01S00011.ns2487  +++|          RAM    QACB+5*FPW2+2
01670  M01S01561.1io     +++|          LDD    ES          CHECK PAPER SIZE
01671  M01S01562.1io     +++|          SHN    3-11
01672  M01S01563.1io     +++|          LPN    10          SHORT PAPER BIT
Line S01564 Modification History
M01 (Added by) 1io
M02 (Updated by) ns2487
Seq #  *Modification Id* Act 
----------------------------+
01673  M02S01564.ns2487  ---|          RAM    QACB+6*5+2
01674  M01S00012.ns2487  +++|          RAM    QACB+5*FPW2+2
01675  M01S01565.1io     +++|          LDM    QACB+14*5+2 SET DAYFILE RANDOM ADDRESS
01676  M01S01566.1io     +++|          SCN    77
01677  M01S01567.1io     +++|          SHN    6
01678  M01S01568.1io     +++|          LMM    QACB+14*5+1
01679  M01S01569.1io     +++|          SHN    6
01680  M01S01570.1io     +++|          STD    RI+1
01681  M01S01571.1io     +++|          SCN    77
01682  M01S01572.1io     +++|          LMM    QACB+14*5
01683  M01S01573.1io     +++|          SHN    6
01684  M01S01574.1io     +++|          STD    RI
01685  M01S01575.1io     +++|          ADD    RI+1
01686  M01S01576.1io     +++|          ZJN    EFT4        IF NO DAYFILE
01687  M01S01577.1io     +++|          LDD    FS          SET EQUIPMENT
01688  M01S01578.1io     +++|          STD    T5
01689  M01S01579.1io     +++|          LDD    FS+1        SET FIRST TRACK
01690  M01S01580.1io     +++|          STD    T6
01691  M01S01581.1io     +++|          RJM    CRA         CONVERT RANDOM ADDRESS
01692  M01S01582.1io     +++|          MJN    EFT4        IF ADDRESS NOT ON CHAIN
01693  M01S01583.1io     +++|          LDD    T6          SET DAYFILE TRACK
01694  M01S01584.1io     +++|          STM    QACB+5*5+1
01695  M01S01585.1io     +++|          LDD    T7          SET DAYFILE SECTOR
01696  M01S01586.1io     +++|
01697  M01S01587.1io     +++|*         PROCESS PUNCH FILE.
01698  M01S01588.1io     +++|
01699  M01S01589.1io     +++| EFT3     STM    QACB+5*5+2
01700  M01S01590.1io     +++| EFT4     LDN    0           CLEAR USER FORMS CONTROL INDICATOR
01701  M01S01591.1io     +++|          STM    QACB+5*5+3
01702  M01S01592.1io     +++|          LDM    QACB+14*5+3 SET USER LIMITS
Line S01593 Modification History
M01 (Added by) 1io
M02 (Updated by) ns2487
Seq #  *Modification Id* Act 
----------------------------+
01703  M02S01593.ns2487  ---|          STM    QACB+6*5+3
01704  M01S00013.ns2487  +++|          STM    QACB+5*FPW2+3
01705  M01S01594.1io     +++|          LDM    QACB+14*5+4
Line S01595 Modification History
M01 (Added by) 1io
M02 (Updated by) ns2487
Seq #  *Modification Id* Act 
----------------------------+
01706  M02S01595.ns2487  ---|          STM    QACB+6*5+4
01707  M01S00014.ns2487  +++|          STM    QACB+5*FPW2+4
01708  M01S00015.ns2487  +++|          LDM    QACB+5*16+1  MOVE FILE SIZE TO FET (LOWER 24 BITS)
01709  M01S00016.ns2487  +++|          SHN    14
01710  M01S00017.ns2487  +++|          SCN    77
01711  M01S00018.ns2487  +++|          ADM    QACB+5*16+2
01712  M01S00019.ns2487  +++|          SHN    -6
01713  M01S00020.ns2487  +++|          STM    QACB+5*14+4  FILE SIZE
01714  M01S00021.ns2487  +++|          LDM    QACB+5*16+0
01715  M01S00022.ns2487  +++|          SHN    14
01716  M01S00023.ns2487  +++|          SCN    77
01717  M01S00024.ns2487  +++|          ADM    QACB+5*16+1
01718  M01S00025.ns2487  +++|          SHN    -6
01719  M01S00026.ns2487  +++|          STM    QACB+5*14+3  FILE SIZE
01720  M01S00027.ns2487  +++|          LDC    4000
01721  M01S00028.ns2487  +++|          STM    QACB+5*1+1  SET RANDOM BIT
01722  M01S01596.1io     +++|
01723  M01S01597.1io     +++|*         PROCESS INPUT FILE.
01724  M01S01598.1io     +++|
Line S01599 Modification History
M01 (Added by) 1io
M02 (Updated by) ns2319
Seq #  *Modification Id* Act 
----------------------------+
01725  M02S01599.ns2319  ---| EFT5     LDD    IR+3        SET BUFFER NUMBER
01726  M01S00002.ns2319  +++| EFT5     LDC    BFCW        SET BUFFER POINT OFFSET
01727  M01S00003.ns2319  +++|          SBD    IR+3
01728  M01S00004.ns2319  +++|          SBD    IR+3
01729  M01S01600.1io     +++|          STM    QACB+5*5
01730  M01S01601.1io     +++|          LDN    QFFL        SET FET LENGTH
01731  M01S01602.1io     +++|          STD    T1
01732  M01S01603.1io     +++|          ADD    BA+1        SET BUFFER POINTERS
01733  M01S01604.1io     +++|          STM    QACB+5*1+4
01734  M01S01605.1io     +++|          STM    QACB+5*2+4
01735  M01S01606.1io     +++|          STM    QACB+5*3+4
01736  M01S01607.1io     +++|          SHN    -14
01737  M01S01608.1io     +++|          ADD    BA
01738  M01S01609.1io     +++|          STM    QACB+5*3+3
01739  M01S01610.1io     +++|          STM    QACB+5*2+3
01740  M01S01611.1io     +++|          LMC    QFFL*100-500
01741  M01S01612.1io     +++|          STM    QACB+5*1+3
01742  M01S01613.1io     +++|          LDN    1           SET FET STATUS
01743  M01S01614.1io     +++|          STM    QACB+4
01744  M01S01615.1io     +++|          LDN    ZERL        CLEAR QUEUE ACCESS PARAMETER BLOCK
01745  M01S01616.1io     +++|          CRM    QACB+5*QAPO,ON
01746  M01S00029.ns2487  +++|          LDN    ZERL
01747  M01S00030.ns2487  +++|          CRM    QACB+5*FPSN,ON
01748  M01S01617.1io     +++|
01749  M01S01618.1io     +++|*         INITIALIZE DRIVER STATUS BLOCK.
01750  M01S01619.1io     +++|
01751  M01S01620.1io     +++|          LDM    QACB+5*15+4 SAVE REPEAT COUNT
01752  M01S01621.1io     +++|          STD    T7
01753  M01S01622.1io     +++|          LDC    QACB+5*EDSO
01754  M01S01623.1io     +++|          STD    T6
01755  M01S01624.1io     +++| EFT6     LDN    0           CLEAR DRIVER STATUS BLOCK
01756  M01S01625.1io     +++|          STI    T6
01757  M01S01626.1io     +++|          AOD    T6
01758  M01S01627.1io     +++|          LMC    QACB+5*QFFL
01759  M01S01628.1io     +++|          NJN    EFT6        IF NOT END OF BLOCK
01760  M01S01629.1io     +++|          LDD    EQ          SET EQUIPMENT ORDINAL / TYPE
01761  M01S01630.1io     +++|          STM    QACB+5*EDSO+CMEN
01762  M01S01631.1io     +++|          LDD    ES+4        SET CONNECT CODE / CHANNEL
01763  M01S01632.1io     +++|          LPC    7000
01764  M01S01633.1io     +++|          LMD    ES+1
01765  M01S00004.252l678 +++|          SCN    37
01766  M01S00005.252l678 +++|          LMD    ES+1
01767  M01S01634.1io     +++|          STM    QACB+5*EDSO+CMCE
Line S01635 Modification History
M01 (Added by) 1io
M02 (Updated by) ns2319
Seq #  *Modification Id* Act 
----------------------------+
01768  M02S01635.ns2319  ---|          LDC    BFCW        SET BUFFER POINT ADDRESS
Line S01636 Modification History
M01 (Added by) 1io
M02 (Updated by) ns2319
Seq #  *Modification Id* Act 
----------------------------+
01769  M02S01636.ns2319  ---|          SBD    IR+3
Line S01637 Modification History
M01 (Added by) 1io
M02 (Updated by) ns2319
Seq #  *Modification Id* Act 
----------------------------+
01770  M02S01637.ns2319  ---|          SBD    IR+3
Line S01638 Modification History
M01 (Added by) 1io
M02 (Updated by) ns2319
Seq #  *Modification Id* Act 
----------------------------+
01771  M02S01638.ns2319  ---|          STM    QACB+5*EDSO+CMBF
01772  M01S01639.1io     +++|          LDD    T7          SET REPEAT COUNT
01773  M01S01640.1io     +++|          LPN    77
01774  M01S01641.1io     +++|          STM    QACB+5*EDSO+CMER
01775  M01S01642.1io     +++|          LDD    T3          SET BUFFER THRESHOLD
01776  M01S01643.1io     +++|          SHN    -2
01777  M01S01644.1io     +++|          ERRNG  BBFL-4      CODE DEPENDS ON VALUE
01778  M01S01645.1io     +++|          SHN    6
01779  M01S01646.1io     +++|          STM    QACB+5*EDSO+CMBT
01780  M01S01647.1io     +++|          RJM    SFA         STORE FET
01781  M01S01648.1io     +++|          CWM    QACB,T1
01782  M01S01649.1io     +++|
01783  M01S01650.1io     +++| EFT      SUBR               ENTRY/EXIT
01784  M01S01651.1io     +++|          LDM    EFTA,EC     SET PROCESSOR ADDRESS
01785  M01S01652.1io     +++|          STD    T1
01786  M01S01653.1io     +++|          LDM    QACB+10*5+3 EXTERNAL CHARACTERISTICS
01787  M01S01654.1io     +++|          SHN    -11
01788  M01S01655.1io     +++|          LJM    0,T1        EXIT TO PROCESSOR
01789  M01S01656.1io     +++|
01790  M01S01657.1io     +++| EFTA     INDEX
01791  M01S01658.1io     +++|          INDEX  LPDT,EFT1
01792  M01S01659.1io     +++|          INDEX  CPDT,EFT3
01793  M01S01660.1io     +++|          INDEX  CRDT,EFT5
01794  M01S01661.1io     +++|          INDEX  NPDT,EFT1
01795  M01S01662.1io     +++|          INDEX  MXDT
01796  M01S01663.1io     +++| FFB      SPACE  4,15
01797  M01S01664.1io     +++|**        FFB - FIND FREE BUFFER.
01798  M01S01665.1io     +++|*
01799  M01S01666.1io     +++|*         ENTRY  (EC) = DEVICE TYPE.
01800  M01S01667.1io     +++|*                (IR+4) SET.
01801  M01S01668.1io     +++|*
01802  M01S01669.1io     +++|*         EXIT   (T3) = BUFFER SIZE / 100.
01803  M01S01670.1io     +++|*                (BA - BA+1) = BUFFER ADDRESS.
01804  M01S01671.1io     +++|*
01805  M01S01672.1io     +++|*         USES   T2, CM - CM+4, CN - CN+4.
01806  M01S01673.1io     +++|*
01807  M01S01674.1io     +++|*         CALLS  RSI, SFA, *3IC*.
01808  M01S01675.1io     +++|*
01809  M01S01676.1io     +++|*         MACROS EXECUTE.
01810  M01S01677.1io     +++|
01811  M01S01678.1io     +++|
01812  M01S01679.1io     +++| FFB6     LDD    FL          CLEAR PENDING FL REQUEST
01813  M01S01680.1io     +++|          RJM    RSI
01814  M01S01681.1io     +++|
01815  M01S01682.1io     +++| FFB      SUBR               ENTRY/EXIT
01816  M01S01683.1io     +++|
01817  M01S01684.1io     +++|*         SEARCH ALLOCATED BUFFERS FOR A FREE BUFFER.
01818  M01S01685.1io     +++|
01819  M01S01686.1io     +++|          LDM    FFBA,EC     SET BUFFER SIZE
01820  M01S01687.1io     +++|          STD    T3
01821  M01S01688.1io     +++|          LDN    0           CLEAR BUFFER COUNT
01822  M01S01689.1io     +++|          STD    T2
01823  M01S01690.1io     +++|          STD    BA          SET FIRST BUFFER ADDRESS
01824  M01S01691.1io     +++|          LDC    BUFR
01825  M01S01692.1io     +++|          STD    BA+1
01826  M01S01693.1io     +++|          LDM    QACB+10*5+3 CHECK FOR 12-BIT ASCII PRINT FILE
01827  M01S01694.1io     +++|          SHN    -11
01828  M01S01695.1io     +++|          SBN    6
01829  M01S01696.1io     +++|          NJN    FFB1        IF NOT 12-BIT ASCII CODE PRINT FILE
01830  M01S01697.1io     +++|          LDD    T3          DOUBLE BUFFER SIZE REQUIRED
01831  M01S01698.1io     +++|          RAD    T3
01832  M01S01699.1io     +++| FFB1     LDD    T2
01833  M01S01700.1io     +++|          LMD    IR+4
01834  M01S01701.1io     +++|          ZJN    FFB3        IF END OF BUFFERS
01835  M01S01702.1io     +++|          RJM    SFA         READ FET+0
01836  M01S01703.1io     +++|          CRD    CM
01837  M01S01704.1io     +++|          ADN    4           READ LIMIT
01838  M01S01705.1io     +++|          CRD    CN
01839  M01S01706.1io     +++|          LDD    CM
01840  M01S01707.1io     +++|          NJN    FFB2        IF BUFFER BUSY
01841  M01S01708.1io     +++|          LDD    CN+3        CHECK BUFFER SIZE
01842  M01S01709.1io     +++|          STM    QACB+4*5+3
01843  M01S01710.1io     +++|          SBD    BA
01844  M01S01711.1io     +++|          SHN    14
01845  M01S01712.1io     +++|          ADD    CN+4
01846  M01S01713.1io     +++|          STM    QACB+4*5+4
01847  M01S01714.1io     +++|          SBD    BA+1
01848  M01S01715.1io     +++|          SBK    QFFL+1
01849  M01S01716.1io     +++|          SHN    -6
01850  M01S01717.1io     +++|          SBD    T3
01851  M01S01718.1io     +++|          MJN    FFB2        IF FREE BUFFER NOT LARGE ENOUGH
01852  M01S01719.1io     +++|          LJM    FFB6        CLEAR PENDING FL REQUESTS
01853  M01S01720.1io     +++|
01854  M01S01721.1io     +++| FFB2     LDD    CN+3        SET NEXT BUFFER ADDRESS
01855  M01S01722.1io     +++|          STD    BA
01856  M01S01723.1io     +++|          LDD    CN+4
01857  M01S01724.1io     +++|          STD    BA+1
01858  M01S01725.1io     +++|          AOD    T2          ADVANCE BUFFER COUNT
01859  M01S01726.1io     +++|          UJN    FFB1        CHECK NEXT BUFFER
01860  M01S01727.1io     +++|
01861  M01S01728.1io     +++|*         REQUEST ADDITIONAL STORAGE.
01862  M01S01729.1io     +++|
01863  M01S01730.1io     +++| FFB3     LDD    BA          COMPUTE FL NEEDED
01864  M01S01731.1io     +++|          SHN    6
01865  M01S01732.1io     +++|          ADD    T3
01866  M01S01733.1io     +++|          SHN    6
01867  M01S01734.1io     +++|          ADD    BA+1
01868  M01S01735.1io     +++|          ADC    QFFL+1+77
01869  M01S01736.1io     +++|          SHN    -6
01870  M01S01737.1io     +++|          RJM    RSI
01871  M01S01738.1io     +++|          ZJN    FFB5        IF STORAGE ASSIGNED
01872  M01S01739.1io     +++|          MJN    FFB4        IF NOT AVAILABLE
01873  M01S01740.1io     +++|          LDD    CP          CONSOLE MESSAGE = *WAITING FOR STORAGE.*
01874  M01S01741.1io     +++|          ADN    MS1W
01875  M01S01742.1io     +++|          CWM    =C*WAITING FOR STORAGE.*,TR
01876  M01S01743.1io     +++|          LDD    IR+2        SET SO STORAGE REQUEST WILL REMAIN 5 TIMES
01877  M01S01744.1io     +++|          SCN    77
01878  M01S01745.1io     +++|          STD    IR+2
01879  M01S01746.1io     +++| FFB4     LDN    0           INDICATE NO BUFFER
01880  M01S01747.1io     +++|          STD    BA
01881  M01S01748.1io     +++|          STD    BA+1
01882  M01S01749.1io     +++|          SOD    IR+3        DECREMENT EQUIPMENT INDEX
01883  M01S01750.1io     +++|          EXECUTE  3IC
01884  M01S01751.1io     +++|          LJM    /3IC/CAS    RELEASE FILE AND EQUIPMENT
01885  M01S01752.1io     +++|
01886  M01S01753.1io     +++| FFB5     AOD    IR+4        ADVANCE ASSIGNED BUFFER COUNT
01887  M01S01754.1io     +++|          LDD    BA
01888  M01S01755.1io     +++|          SHN    6
01889  M01S01756.1io     +++|          ADD    T3
01890  M01S01757.1io     +++|          SHN    6
01891  M01S01758.1io     +++|          ADD    BA+1
01892  M01S01759.1io     +++|          ADK    QFFL+1
01893  M01S01760.1io     +++|          STM    QACB+4*5+4  SET VALUE FOR LIMIT
01894  M01S01761.1io     +++|          SHN    -14
01895  M01S01762.1io     +++|          STM    QACB+4*5+3
01896  M01S01763.1io     +++|          LJM    FFBX        RETURN
01897  M01S01764.1io     +++|
01898  M01S01765.1io     +++| FFBA     INDEX              BUFFER SIZES / 100
01899  M01S01766.1io     +++|          INDEX  LPDT,BBFL*2
01900  M01S01767.1io     +++|          INDEX  CPDT,BBFL
01901  M01S01768.1io     +++|          INDEX  CRDT,BBFL*2
01902  M01S01769.1io     +++|          INDEX  NPDT,BBFL*4
01903  M01S01770.1io     +++|          INDEX  MXDT
01904  M01S01771.1io     +++|          SPACE  4,10
01905  M01S01772.1io     +++|**        COMMON DECKS.
01906  M01S01773.1io     +++|
01907  M01S01774.1io     +++|
01908  M01S01775.1io     +++|*CALL     COMPCRA
01909  M01S01776.1io     +++|          SPACE  4,10
01910  M01S01777.1io     +++|          OVERFLOW  ORGR,BFMS
01911  M01S01778.1io     +++|          TTL    1IO/3IB - LOAD IMAGE MEMORY.
01912  M01S01779.1io     +++|          TITLE
01913  M01S01780.1io     +++|          QUAL   3IB
01914  M01S01781.1io     +++|          IDENT  3IB,LDMX
01915  M01S01782.1io     +++|*COMMENT  1IO - LOAD PRINTER IMAGE MEMORY.
Line S01783 Modification History
M01 (Added by) 1io
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
01916  M02S01783.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1974.
01917  M01S00003.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
01918  M01S01784.1io     +++| 3IB      SPACE  4,10
01919  M01S01785.1io     +++|**               3IB IS CALLED TO IDENTIFY A LINE PRINTER AND
01920  M01S01786.1io     +++|*         LOAD IMAGE MEMORY.
01921  M01S01787.1io     +++|*
01922  M01S01788.1io     +++|*         ENTRY  (EQ) = 9/EST ORDINAL,3/EQUIPMENT TYPE.
01923  M01S01789.1io     +++|*
01924  M01S01790.1io     +++|*         EXIT   (A) = 0, IF IMAGE CANNOT BE LOADED.
01925  M01S01791.1io     +++| SLUG     SPACE  4,15
01926  M01S01792.1io     +++|**        SLUG - DEFINE PRINT SLUG.
01927  M01S01793.1io     +++|*
01928  M01S01794.1io     +++|*         CALL -
01929  M01S01795.1io     +++|*         SLUG   (A1A2A3...AI),N
01930  M01S01796.1io     +++|*
01931  M01S01797.1io     +++|*         WHERE  AI ARE CODES APPEARING ON THE SLUG.
01932  M01S01798.1io     +++|*                N IS THE NUMBER OF CODES TO DEFINE.  IF N IS
01933  M01S01799.1io     +++|*                ABSENT, THE SYMBOL *NCSL* DEFINES THE NUMBER OF
01934  M01S01800.1io     +++|*                CODES/SLUG.
01935  M01S01801.1io     +++|*
01936  M01S01802.1io     +++|*         N WORDS ARE ASSEMBLED WITH THE CONTENTS BEING THE 12-BIT
01937  M01S01803.1io     +++|*         ASCII CODE EQUIVALENT OF THE SPECIFIED STRING, RIGHT-
01938  M01S01804.1io     +++|*         JUSTIFIED AND ZERO FILLED.
01939  M01S01805.1io     +++|
01940  M01S01806.1io     +++|
01941  M01S01807.1io     +++| SLUG     MACRO  A,N
01942  M01S01808.1io     +++|          LOCAL  AA,BB,CC
01943  M01S01809.1io     +++| CC       SET    N NCSL
01944  M01S01810.1io     +++| AA       SET    1
01945  M01S01811.1io     +++|          CODE   ASCII
01946  M01S01812.1io     +++|          NOREF  NCSL
01947  M01S01813.1io     +++|          DUP    CC,3
01948  M01S01814.1io     +++| BB       MICRO  AA,1, A
01949  M01S01815.1io     +++|          CON    1R"BB"+40B
01950  M01S01816.1io     +++| AA       SET    AA+1
01951  M01S01817.1io     +++|          CODE   *
01952  M01S01818.1io     +++|          ENDM
01953  M01S01819.1io     +++| ESLUG    SPACE  4,10
01954  M01S01820.1io     +++|**        ESLUG - DEFINE EXTENDED TRAIN PRINT SLUG.
01955  M01S01821.1io     +++|*
01956  M01S01822.1io     +++|*         CALL -
01957  M01S01823.1io     +++|*         ESLUG  (XI,XJ,...,XM),P1,...,PN
01958  M01S01824.1io     +++|*
01959  M01S01825.1io     +++|*         WHERE  XI - XM ARE THE HEXADECIMAL REPRESENTATIONS OF
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1io.txt ยท Last modified: by 127.0.0.1