Deck LDI

3 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.ldi     +++|          IDENT  LDI,FETS
00002  M01S00002.ldi     +++|          ABS
00003  M01S00003.ldi     +++|          ENTRY  LDI
00004  M01S00004.ldi     +++|          ENTRY  RFL=
00005  M01S00005.ldi     +++|          SST
00006  M01S00006.ldi     +++|          SYSCOM B1
00007  M01S00007.ldi     +++|*COMMENT  LDI - LOAD JOBS TO INPUT QUEUE.

Line S00008 Modification History
`M01` (Added by)	`ldi`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00008  M02S00008.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1981.
00009  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00010  M01S00009.ldi     +++|          TITLE  LDI - LOAD JOBS TO INPUT QUEUE.
00011  M01S00010.ldi     +++|          SPACE  4
00012  M01S00011.ldi     +++|***       LDI - LOAD JOBS TO INPUT QUEUE.
00013  M01S00012.ldi     +++|*         G. R. MANSFIELD.  70/10/25.
00014  M01S00013.ldi     +++|*         R. M. DESSEL.      81/10/26.
00015  M01S00014.ldi     +++|          SPACE  4
00016  M01S00015.ldi     +++|***       *LDI* COPIES A SPECIFIED FILE TO THE INPUT QUEUE.
00017  M01S00016.ldi     +++|          SPACE  4,10

Line S00017 Modification History
`M01` (Added by)	`ldi`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00018  M02S00017.v23l617 ---|***       *LDI* CONTROL STATEMENT CALL.
00019  M01S00001.v23l617 +++|***       *LDI* COMMAND.
00020  M01S00018.ldi     +++|*
00021  M01S00019.ldi     +++|*         LDI(LFN,ID,OP,DC,UN,FM)
00022  M01S00020.ldi     +++|*
00023  M01S00021.ldi     +++|*         LDI(FN=LFN,ID=ID,OP=OP,DC=DC,UN=UN,FM=FM)
00024  M01S00022.ldi     +++|*

Line S00023 Modification History
`M01` (Added by)	`ldi`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00025  M02S00023.v23l617 ---|*         *LDI* CONTROL STATEMENT PARAMETERS ARE DEFINED
00026  M01S00002.v23l617 +++|*         *LDI* COMMAND PARAMETERS ARE DEFINED
00027  M01S00024.ldi     +++|*         AS THE FOLLOWING.
00028  M01S00025.ldi     +++|*
00029  M01S00026.ldi     +++|*         LFN    NAME OF FILE TO BE COPIED.
00030  M01S00027.ldi     +++|*
00031  M01S00028.ldi     +++|*         ID     *ID* CODE (NUMERIC).  TWO FORMS ARE PERMITTED -
00032  M01S00029.ldi     +++|*                ID = NN       SELECT LOCAL DEVICE.
00033  M01S00030.ldi     +++|*                ID            IMPLICIT CENTRAL SITE ROUTING.
00034  M01S00031.ldi     +++|*
00035  M01S00032.ldi     +++|*         OP     IF OP IS SPECIFIED, JOBNAME OF EACH JOB LOADED
00036  M01S00033.ldi     +++|*                WILL BE ISSUED TO THE CONTROL POINT DAYFILE.
00037  M01S00034.ldi     +++|*
00038  M01S00035.ldi     +++|*         DC     DISPOSITION CODE.  VALID CODES INCLUDE -
00039  M01S00036.ldi     +++|*                IN - INPUT QUEUE TYPE.
00040  M01S00037.ldi     +++|*                NO - INPUT QUEUE TYPE - NO OUTPUT.
00041  M01S00038.ldi     +++|*                TO - INPUT QUEUE TYPE - TERMINAL OUTPUT.
00042  M01S00039.ldi     +++|*

Line S00040 Modification History
`M01` (Added by)	`ldi`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00043  M02S00040.v23l617 ---|*         UN     USER NUMBER.  TWO FORMS ARE PERMITTED -

Line S00041 Modification History
`M01` (Added by)	`ldi`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00044  M02S00041.v23l617 ---|*                UN = XXXXXXX    USER NUMBER.
00045  M01S00003.v23l617 +++|*         UN     USER NAME.  TWO FORMS ARE PERMITTED -
00046  M01S00004.v23l617 +++|*                UN = XXXXXXX    USER NAME.
00047  M01S00042.ldi     +++|*                UN              IMPLICIT REMOTE ROUTING.
00048  M01S00043.ldi     +++|*
00049  M01S00044.ldi     +++|*         FM     FAMILY NAME.  TWO FORMS ARE PERMITTED -
00050  M01S00045.ldi     +++|*                FM = XXXXXX     FAMILY NAME.
00051  M01S00046.ldi     +++|*                FM              IMPLICIT REMOTE ROUTING.
00052  M01S00047.ldi     +++|          SPACE  4,10
00053  M01S00048.ldi     +++|***       DAYFILE MESSAGES.
00054  M01S00049.ldi     +++|*
00055  M01S00050.ldi     +++|*         * ARGUMENT ERROR.*

Line S00051 Modification History
`M01` (Added by)	`ldi`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00056  M02S00051.v23l617 ---|*                ARGUMENT ERROR DETECTED ON CONTROL STATEMENT.
00057  M01S00005.v23l617 +++|*                ARGUMENT ERROR DETECTED ON COMMAND.
00058  M01S00052.ldi     +++|*

Line S00053 Modification History
`M01` (Added by)	`ldi`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00059  M02S00053.v23l617 ---|*         * INVALID ID CODE.*

Line S00054 Modification History
`M01` (Added by)	`ldi`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00060  M02S00054.v23l617 ---|*                *ID* CODE SPECIFIED ON THE CONTROL STATEMENT IS AN

Line S00055 Modification History
`M01` (Added by)	`ldi`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00061  M02S00055.v23l617 ---|*                ILLEGAL VALUE FOR A BATCH *ID* CODE.
00062  M01S00006.v23l617 +++|*         * INCORRECT ID CODE.*
00063  M01S00007.v23l617 +++|*                *ID* CODE SPECIFIED ON THE COMMAND IS AN
00064  M01S00008.v23l617 +++|*                INCORRECT VALUE FOR A BATCH *ID* CODE.
00065  M01S00056.ldi     +++|*

Line S00057 Modification History
`M01` (Added by)	`ldi`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00066  M02S00057.v23l617 ---|*         * INVALID DC CODE.*

Line S00058 Modification History
`M01` (Added by)	`ldi`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00067  M02S00058.v23l617 ---|*                DISPOSITION CODE SPECIFIED ON CONTROL STATEMENT

Line S00059 Modification History
`M01` (Added by)	`ldi`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00068  M02S00059.v23l617 ---|*                IS AN ILLEGAL VALUE.
00069  M01S00009.v23l617 +++|*         * INCORRECT DC CODE.*
00070  M01S00010.v23l617 +++|*                DISPOSITION CODE SPECIFIED ON COMMAND
00071  M01S00011.v23l617 +++|*                IS AN INCORRECT VALUE.
00072  M01S00060.ldi     +++|*
00073  M01S00061.ldi     +++|*         * LDI ID AND FM/UN CONFLICT.*
00074  M01S00062.ldi     +++|*                BOTH *ID* AND *FM*/*UN* WERE SPECIFIED ON THE CONTROL

Line S00063 Modification History
`M01` (Added by)	`ldi`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00075  M02S00063.v23l617 ---|*                STATEMENT.  *ID* MAY NOT BE SPECIFIED WITH EITHER
00076  M01S00012.v23l617 +++|*                COMMAND.  *ID* MAY NOT BE SPECIFIED WITH EITHER
00077  M01S00064.ldi     +++|*                *FM* OR *UN*.
00078  M01S00065.ldi     +++|          SPACE  4
00079  M01S00066.ldi     +++|****      ASSEMBLY CONSTANTS.
00080  M01S00067.ldi     +++|
00081  M01S00068.ldi     +++|
00082  M01S00069.ldi     +++| BUFL     EQU    100B
00083  M01S00070.ldi     +++| IBUFL    EQU    2001B
00084  M01S00071.ldi     +++| OBUFL    EQU    2001B
00085  M01S00072.ldi     +++|****
00086  M01S00073.ldi     +++|          SPACE  4
00087  M01S00074.ldi     +++|*CALL     COMCMAC
00088  M01S00075.ldi     +++|*CALL     COMSDSP
00089  M01S00076.ldi     +++|*CALL     COMSIOQ
00090  M01S00077.ldi     +++|*CALL     COMSSSJ
00091  M01S00078.ldi     +++|          TITLE  FETS AND COMMON DATA.
00092  M01S00079.ldi     +++| FETS     SPACE  4
00093  M01S00080.ldi     +++|
00094  M01S00081.ldi     +++|
00095  M01S00082.ldi     +++|          ORG    110B
00096  M01S00083.ldi     +++| FETS     BSS    0
00097  M01S00084.ldi     +++|
00098  M01S00085.ldi     +++| I        BSS    0
00099  M01S00086.ldi     +++| LOAD     FILEB  IBUF,IBUFL
00100  M01S00087.ldi     +++|
00101  M01S00088.ldi     +++| O        BSS    0
00102  M01S00089.ldi     +++| SCR      FILEB  OBUF,OBUFL,(FET=8)
00103  M01S00090.ldi     +++| TDSP     SPACE  4,10
00104  M01S00091.ldi     +++|**        TDSP - *DSP* PARAMETER BLOCK.
00105  M01S00092.ldi     +++|*
00106  M01S00093.ldi     +++|*T  W0    42/ FILE NAME,18/

Figure W0

00107  M01S00094.ldi     +++|*T, W1    24/ ,12/ DC,6/ ,18/ FLAGS

Figure W1

00108  M01S00095.ldi     +++|*T, W2    36/ ,24/ DA

Figure W2

00109  M01S00096.ldi     +++|*T, W3    60/

Figure W3

00110  M01S00097.ldi     +++|*T, W4    60/

Figure W4

00111  M01S00098.ldi     +++|*T, W5    60/

Figure W5

00112  M01S00099.ldi     +++|*T, W6    60/

Figure W6

00113  M01S00100.ldi     +++|*
00114  M01S00101.ldi     +++|*         DC - DISPOSITION CODE.
00115  M01S00102.ldi     +++|*         DA - *TID* OR POINTER TO *FM*/*UN*.
00116  M01S00103.ldi     +++|
00117  M01S00104.ldi     +++|
00118  M01S00105.ldi     +++|
00119  M01S00106.ldi     +++| TDSP     BSS    0
00120  M01S00107.ldi     +++|          VFD    42/0LSCR,18/0
00121  M01S00108.ldi     +++|          VFD    12/,12/,12/0LIN,6/,18/FRDC+FRCS

Line S00109 Modification History
`M01` (Added by)	`ldi`
`M02` (Updated by)	`ldi1`

Seq #  *Modification Id* Act 
----------------------------+
00122  M02S00109.ldi1    ---|          BSSZ   5
00123  M01S00001.ldi1    +++|          VFD    36/0,24/-0
00124  M01S00002.ldi1    +++|          BSSZ   4
00125  M01S00110.ldi     +++| TFUN     SPACE  4,10

Line S00111 Modification History
`M01` (Added by)	`ldi`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00126  M02S00111.v23l617 ---|**        TFUN - FAMILY NAME, USER NUMBER TABLE.
00127  M01S00013.v23l617 +++|**        TFUN - FAMILY NAME, USER NAME TABLE.
00128  M01S00112.ldi     +++|*
00129  M01S00113.ldi     +++|*T W0     42/ FAMILY NAME,18/

Figure W0

Line S00114 Modification History
`M01` (Added by)	`ldi`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00130  M02S00114.v23l617 ---|*T,W1     42/ USER NUMBER,18/

Figure W1

00131  M01S00014.v23l617 +++|*T,W1     42/ USER NAME,18/

Figure W1

00132  M01S00115.ldi     +++|
00133  M01S00116.ldi     +++|

Line S00117 Modification History
`M01` (Added by)	`ldi`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00134  M02S00117.v23l617 ---| TFUN     BSSZ   2           FAMILY NAME - USER NUMBER
00135  M01S00015.v23l617 +++| TFUN     BSSZ   2           FAMILY NAME - USER NAME
00136  M01S00118.ldi     +++|          SPACE  4,10
00137  M01S00119.ldi     +++|*         INTERNAL FLAGS.
00138  M01S00120.ldi     +++|
00139  M01S00121.ldi     +++| PDID     CON    0           DEVICE CODE PROCESSED
00140  M01S00122.ldi     +++| PFUN     CON    0           FM - UN PROCESSED
00141  M01S00123.ldi     +++| LDI      TITLE  MAIN PROGRAM.
00142  M01S00124.ldi     +++|
00143  M01S00125.ldi     +++|
00144  M01S00126.ldi     +++| LDI      SB1    1           (B1) = 1
00145  M01S00127.ldi     +++|          RJ     PRS         PRESET PROGRAM
00146  M01S00128.ldi     +++| LDI1     READ   I
00147  M01S00129.ldi     +++|          READW  I,BUF,BUFL
00148  M01S00130.ldi     +++|          NG     X1,LDI2     IF EOF
00149  M01S00131.ldi     +++|          SX7    X1-BUF
00150  M01S00132.ldi     +++|          ZR     X7,LDI2     IF EMPTY RECORD
00151  M01S00133.ldi     +++|          BX5    X1          SAVE (X1)
00152  M01S00134.ldi     +++|          SA1    O+1         ASSIGN FILE TO INPUT DEVICE
00153  M01S00135.ldi     +++|          MX0    12
00154  M01S00136.ldi     +++|          BX6    -X0*X1
00155  M01S00137.ldi     +++|          SX1    2RIN
00156  M01S00138.ldi     +++|          LX1    59-11
00157  M01S00139.ldi     +++|          BX7    X6+X1
00158  M01S00140.ldi     +++|          SA7    A1
00159  M01S00141.ldi     +++|          REQUEST  O,U,N     REQUEST EQUIPMENT WITH NO DAYFILE MESSAGE
00160  M01S00142.ldi     +++|          BX1    X5          RESTORE (X1)
00161  M01S00143.ldi     +++|          RJ     CPY         COPY FILE
00162  M01S00144.ldi     +++|          RECALL O
00163  M01S00145.ldi     +++|          ROUTE  TDSP,RECALL
00164  M01S00146.ldi     +++|          SA1    O           RESTORE FILE NAME IN *DSP* BLOCK
00165  M01S00147.ldi     +++|          MX0    42
00166  M01S00148.ldi     +++|          BX6    X0*X1
00167  M01S00149.ldi     +++|          SA1    TDSP
00168  M01S00150.ldi     +++|          SA2    LDIB
00169  M01S00151.ldi     +++|          SA6    A1
00170  M01S00152.ldi     +++|          NZ     X2,LDI1     IF JOBNAME OPTION NOT SELECTED
00171  M01S00153.ldi     +++|          BX7    X0*X1
00172  M01S00154.ldi     +++|          SX2    2RS
00173  M01S00155.ldi     +++|          BX6    X7+X2
00174  M01S00156.ldi     +++|          LX6    48
00175  M01S00157.ldi     +++|          SA6    LDIA+1
00176  M01S00158.ldi     +++|          MESSAGE  LDIA,3,R
00177  M01S00159.ldi     +++|          EQ     LDI1        LOOP
00178  M01S00160.ldi     +++| LDI2     ENDRUN
00179  M01S00161.ldi     +++|
00180  M01S00162.ldi     +++| LDIA     DATA   C* JOBNAME IS*
00181  M01S00163.ldi     +++| LDIB     CON    1
00182  M01S00164.ldi     +++|          TITLE  SUBROUTINES.
00183  M01S00165.ldi     +++| CPY      SPACE  4
00184  M01S00166.ldi     +++|**        CPY - COPY FILE.
00185  M01S00167.ldi     +++|*
00186  M01S00168.ldi     +++|*         ENTRY  (X1) = FILE STATUS.
00187  M01S00169.ldi     +++|*
00188  M01S00170.ldi     +++|*         MACROS READ, RECALL, WRITE, WRITEF, WRITER.
00189  M01S00171.ldi     +++|
00190  M01S00172.ldi     +++|
00191  M01S00173.ldi     +++| CPY      SUBR               ENTRY/EXIT
00192  M01S00174.ldi     +++|          EQ     CPY3
00193  M01S00175.ldi     +++|
00194  M01S00176.ldi     +++| CPY1     READ   I
00195  M01S00177.ldi     +++|          RECALL O
00196  M01S00178.ldi     +++| CPY2     READW  I,BUF,BUFL
00197  M01S00179.ldi     +++| CPY3     NG     X1,CPY5     IF EOF
00198  M01S00180.ldi     +++|          NZ     X1,CPY4     IF EOR
00199  M01S00181.ldi     +++|          WRITEW O,BUF,BUFL
00200  M01S00182.ldi     +++|          EQ     CPY2
00201  M01S00183.ldi     +++|
00202  M01S00184.ldi     +++| CPY4     WRITEW O,BUF,X1-BUF
00203  M01S00185.ldi     +++|          WRITER O           END RECORD
00204  M01S00186.ldi     +++|          EQ     CPY1
00205  M01S00187.ldi     +++|
00206  M01S00188.ldi     +++| CPY5     WRITEF O           END FILE
00207  M01S00189.ldi     +++|          EQ     CPY         RETURN
00208  M01S00190.ldi     +++|          SPACE  4
00209  M01S00191.ldi     +++|*         COMMON DECKS.
00210  M01S00192.ldi     +++|
00211  M01S00193.ldi     +++|
00212  M01S00194.ldi     +++|*CALL     COMCCIO
00213  M01S00195.ldi     +++|*CALL     COMCLFM
00214  M01S00196.ldi     +++|*CALL     COMCRDW
00215  M01S00197.ldi     +++|*CALL     COMCSYS
00216  M01S00198.ldi     +++|*CALL     COMCWTW
00217  M01S00199.ldi     +++| BUFFERS  SPACE  4
00218  M01S00200.ldi     +++|*         BUFFER ASSIGNMENTS.
00219  M01S00201.ldi     +++|
00220  M01S00202.ldi     +++|
00221  M01S00203.ldi     +++|          USE    BUFFERS
00222  M01S00204.ldi     +++| BUF      EQU    *
00223  M01S00205.ldi     +++| IBUF     EQU    BUF+BUFL
00224  M01S00206.ldi     +++| OBUF     EQU    IBUF+IBUFL
00225  M01S00207.ldi     +++| RFL=     EQU    OBUF+OBUFL
00226  M01S00208.ldi     +++|          TITLE  PRESET PROCESSING.
00227  M01S00209.ldi     +++| PRS      SPACE  4
00228  M01S00210.ldi     +++|**        PRS - PRESET PROGRAM.
00229  M01S00211.ldi     +++|*
00230  M01S00212.ldi     +++|*         USES   X - ALL.
00231  M01S00213.ldi     +++|*                A - 1, 2, 3, 5, 6, 7.
00232  M01S00214.ldi     +++|*                B - 2, 3, 4, 5, 6, 7.
00233  M01S00215.ldi     +++|*
00234  M01S00216.ldi     +++|*         CALLS  ARM, CPA, DXB, FNB, USB.
00235  M01S00217.ldi     +++|*
00236  M01S00218.ldi     +++|*         MACROS LABEL, RETURN.
00237  M01S00219.ldi     +++|
00238  M01S00220.ldi     +++|
00239  M01S00221.ldi     +++|          ORG    BUF
00240  M01S00222.ldi     +++| PRS      SUBR               ENTRY/EXIT
00241  M01S00223.ldi     +++|          RETURN O

Line S00224 Modification History
`M01` (Added by)	`ldi`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00242  M02S00224.v23l617 ---|          SB2    CCDR        UNPACK CONTROL CARD
00243  M01S00016.v23l617 +++|          SB2    CCDR        UNPACK COMMAND
00244  M01S00225.ldi     +++|          RJ     USB
00245  M01S00226.ldi     +++|          SA1    A6          ASSURE TERMINATOR CHARACTER
00246  M01S00227.ldi     +++|          SX6    1R.
00247  M01S00228.ldi     +++|          SA6    X1+B1
00248  M01S00229.ldi     +++|          SA2    PRSA        SET SEPARATOR MASK
00249  M01S00230.ldi     +++|          SB2    60
00250  M01S00231.ldi     +++|          SB7    ERR         SET EXIT FOR TERMINATOR CHARACTER
00251  M01S00232.ldi     +++|          RJ     FNB         FIND NON-BLANK CHARACTER
00252  M01S00233.ldi     +++|
00253  M01S00234.ldi     +++|*         SKIP PROGRAM NAME.
00254  M01S00235.ldi     +++|
00255  M01S00236.ldi     +++|          SB7    PRS4        SET EXIT FOR TERMINATOR CHARACTER
00256  M01S00237.ldi     +++| PRS1     RJ     FNB         FIND NON-BLANK CHARACTER
00257  M01S00238.ldi     +++|          SB4    B5-B2
00258  M01S00239.ldi     +++|          LX4    X2,B5
00259  M01S00240.ldi     +++|          PL     B4,PRS2     IF SEPARATOR CHARACTER
00260  M01S00241.ldi     +++|          PL     X4,PRS1     IF NOT SEPARATOR CHARACTER
00261  M01S00242.ldi     +++| PRS2     SB3    TARG        FWA OF ARGUMENT TABLE
00262  M01S00243.ldi     +++|          SB2    TARGL       LENGTH OF ARGUMENT TABLE
00263  M01S00244.ldi     +++|          SB4    PRSK        ADDRESS TO PLACE DATA
00264  M01S00245.ldi     +++|          RJ     CPA         CONVERT POSITIONAL ARGUMENTS
00265  M01S00246.ldi     +++|          NG     B5,ERR      IF ARGUMENT ERROR
00266  M01S00247.ldi     +++|          PL     X1,PRS4     IF NO ARGUMENTS PROCESSED
00267  M01S00248.ldi     +++|          SX6    B5          SET LWA OF ARGUMENTS
00268  M01S00249.ldi     +++|          SA6    USBC
00269  M01S00250.ldi     +++|          SB6    PRSK        FWA OF ARGUMENTS
00270  M01S00251.ldi     +++|          RJ     ARM         PROCESS ARGUMENTS
00271  M01S00252.ldi     +++|          NZ     X1,ERR      IF ERROR
00272  M01S00253.ldi     +++|
00273  M01S00254.ldi     +++|*         PROCESS FILE NAME.
00274  M01S00255.ldi     +++|
00275  M01S00256.ldi     +++| PRS3     SA1    FN
00276  M01S00257.ldi     +++|          SX4    -B1
00277  M01S00258.ldi     +++|          BX2    X4-X1
00278  M01S00259.ldi     +++|          ZR     X2,PRS4     IF NULL ARGUMENT
00279  M01S00260.ldi     +++|          MX0    42          SET FILE NAME IN FET
00280  M01S00261.ldi     +++|          BX1    X0*X1
00281  M01S00262.ldi     +++|          SX2    3
00282  M01S00263.ldi     +++|          IX6    X1+X2
00283  M01S00264.ldi     +++|          SA6    I
00284  M01S00265.ldi     +++|          EQ     PRS5        PROCESS *ID* CODE
00285  M01S00266.ldi     +++|
00286  M01S00267.ldi     +++| PRS4     LABEL  I           REQUEST LOCAL FILE
00287  M01S00268.ldi     +++|
00288  M01S00269.ldi     +++|*         PROCESS *ID* CODE.
00289  M01S00270.ldi     +++|
00290  M01S00271.ldi     +++| PRS5     SA5    ID
00291  M01S00272.ldi     +++|          SX4    -B1
00292  M01S00273.ldi     +++|          BX2    X4-X5
00293  M01S00274.ldi     +++|          ZR     X2,PRS7     IF *ID* CODE NOT SET
00294  M01S00275.ldi     +++|          SX7    B1+         SET *ID* FLAG
00295  M01S00276.ldi     +++|          SA7    PDID
00296  M01S00277.ldi     +++|          SA2    PRSG
00297  M01S00278.ldi     +++|          MX0    42          GET *ID* CODE
00298  M01S00279.ldi     +++|          BX5    X0*X5
00299  M01S00280.ldi     +++|          BX2    X5-X2
00300  M01S00281.ldi     +++|          ZR     X2,PRS6     IF CENTRAL SITE SPECIFIED
00301  M01S00282.ldi     +++|          SB7    0           SET OCTAL CONVERSION
00302  M01S00283.ldi     +++|          RJ     DXB         CONVERT TO DISPLAY CODE

Line S00284 Modification History
`M01` (Added by)	`ldi`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00303  M02S00284.v23l617 ---|          SB7    PRSC        * INVALID ID CODE.*
00304  M01S00017.v23l617 +++|          SB7    PRSC        * INCORRECT ID CODE.*
00305  M01S00285.ldi     +++|          NZ     X4,ERR1     IF CONVERSION ERROR
00306  M01S00286.ldi     +++|          SX2    X6-IDLM
00307  M01S00287.ldi     +++|          PL     X2,ERR1     IF ID .GE. IDLM
00308  M01S00288.ldi     +++|          SA6    TDSP+2      SET *ID* CODE IN *DSP* BLOCK
00309  M01S00289.ldi     +++|          SX2    FRTI
00310  M01S00290.ldi     +++| PRS6     SA1    TDSP+1
00311  M01S00291.ldi     +++|          SX6    FRCS
00312  M01S00292.ldi     +++|          BX6    X1+X6       SET CENTRAL SITE ROUTING FLAG
00313  M01S00293.ldi     +++|          BX6    X2+X6       OPTIONALLY SET *ID* FLAG
00314  M01S00294.ldi     +++|          SA6    A1+
00315  M01S00295.ldi     +++|
00316  M01S00296.ldi     +++|*         PROCESS *OP* OPTION.
00317  M01S00297.ldi     +++|
00318  M01S00298.ldi     +++| PRS7     SA1    OP
00319  M01S00299.ldi     +++|          SX4    -B1
00320  M01S00300.ldi     +++|          BX2    X4-X1
00321  M01S00301.ldi     +++|          ZR     X2,PRS8     IF JOBNAME MESSAGE NOT SELECTED
00322  M01S00302.ldi     +++|          SX3    FRFN        FLAG JOB NAME OPTION
00323  M01S00303.ldi     +++|          MX0    -18
00324  M01S00304.ldi     +++|          BX2    -X0*X3
00325  M01S00305.ldi     +++|          SA1    TDSP+1
00326  M01S00306.ldi     +++|          BX7    X1+X2
00327  M01S00307.ldi     +++|          SA7    A1
00328  M01S00308.ldi     +++|          SX6    B0+         ZERO LAST WORD OF MESSAGE BUFFER
00329  M01S00309.ldi     +++|          SA6    LDIB
00330  M01S00310.ldi     +++|
00331  M01S00311.ldi     +++|*         PROCESS *DC* OPTION.
00332  M01S00312.ldi     +++|
00333  M01S00313.ldi     +++| PRS8     SA1    DC
00334  M01S00314.ldi     +++|          BX2    X4-X1
00335  M01S00315.ldi     +++|          ZR     X2,PRS10    IF *DC* OPTION NOT SELECTED

Line S00316 Modification History
`M01` (Added by)	`ldi`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00336  M02S00316.v23l617 ---|          SB7    PRSD        * INVALID DC CODE.*
00337  M01S00018.v23l617 +++|          SB7    PRSD        * INCORRECT DC CODE.*
00338  M01S00317.ldi     +++|          MX0    12
00339  M01S00318.ldi     +++|          BX5    X0*X1
00340  M01S00319.ldi     +++|          LX0    -12         CHECK IF CODE .GT. TWO CHARACTERS
00341  M01S00320.ldi     +++|          BX2    X0*X1

Line S00321 Modification History
`M01` (Added by)	`ldi`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00342  M02S00321.v23l617 ---|          NZ     X2,ERR1     IF INVALID *ID* CODE
00343  M01S00019.v23l617 +++|          NZ     X2,ERR1     IF INCORRECT *ID* CODE
00344  M01S00322.ldi     +++|          LX5    12
00345  M01S00323.ldi     +++|          SX2    X5-2RIN
00346  M01S00324.ldi     +++|          SX3    X5-2RNO
00347  M01S00325.ldi     +++|          SX1    X5-2RTO
00348  M01S00326.ldi     +++|          ZR     X2,PRS9     IF VALID CODE
00349  M01S00327.ldi     +++|          ZR     X3,PRS9     IF VALID CODE

Line S00328 Modification History
`M01` (Added by)	`ldi`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00350  M02S00328.v23l617 ---|          NZ     X1,ERR1     IF INVALID *DC* CODE
00351  M01S00020.v23l617 +++|          NZ     X1,ERR1     IF INCORRECT *DC* CODE
00352  M01S00329.ldi     +++| PRS9     SA2    TDSP+1
00353  M01S00330.ldi     +++|          SX7    FRDC
00354  M01S00331.ldi     +++|          LX0    -12         POSITION MASK
00355  M01S00332.ldi     +++|          LX5    24          POSITION PARAMETER
00356  M01S00333.ldi     +++|          BX3    -X0*X2
00357  M01S00334.ldi     +++|          BX3    X3+X5       ENTER *DC* PARAMETER
00358  M01S00335.ldi     +++|          BX7    X3+X7       ENTER FLAG BIT
00359  M01S00336.ldi     +++|          SA7    TDSP+1
00360  M01S00337.ldi     +++|
00361  M01S00338.ldi     +++|*         PROCESS *UN* PARAMETER.
00362  M01S00339.ldi     +++|
00363  M01S00340.ldi     +++| PRS10    SA1    UN
00364  M01S00341.ldi     +++|          BX2    X4-X1
00365  M01S00342.ldi     +++|          ZR     X2,PRS11    IF *UN* OPTION NOT SPECIFIED
00366  M01S00343.ldi     +++|          SA2    PDID
00367  M01S00344.ldi     +++|          SB7    PRSE        * LDI ID AND FM/UN CONFLICT.*
00368  M01S00345.ldi     +++|          NZ     X2,ERR1     IF CONFLICT
00369  M01S00346.ldi     +++|          SX7    FRTI        SET *FM*/*UN* FLAG
00370  M01S00347.ldi     +++|          SA7    PFUN

Line S00348 Modification History
`M01` (Added by)	`ldi`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00371  M02S00348.v23l617 ---|          MX0    42          GET USER NUMBER
00372  M01S00021.v23l617 +++|          MX0    42          GET USER NAME
00373  M01S00349.ldi     +++|          BX6    X0*X1
00374  M01S00350.ldi     +++|          SA2    PRSI        CHECK IF CENTRAL SITE SPECIFIED
00375  M01S00351.ldi     +++|          BX2    X6-X2
00376  M01S00352.ldi     +++|          ZR     X2,PRS11    IF IMPLICIT REMOTE ROUTING

Line S00353 Modification History
`M01` (Added by)	`ldi`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00377  M02S00353.v23l617 ---|          SA6    TFUN+1      SET USER NUMBER
00378  M01S00022.v23l617 +++|          SA6    TFUN+1      SET USER NAME
00379  M01S00354.ldi     +++|
00380  M01S00355.ldi     +++|*         PROCESS *FM* PARAMETER.
00381  M01S00356.ldi     +++|
00382  M01S00357.ldi     +++| PRS11    SA1    FM
00383  M01S00358.ldi     +++|          BX2    X4-X1
00384  M01S00359.ldi     +++|          ZR     X2,PRS12    IF *FM* OPTION NOT SPECIFIED
00385  M01S00360.ldi     +++|          SA2    PDID
00386  M01S00361.ldi     +++|          SB7    PRSE        * LDI ID AND FM/UN CONFLICT.*
00387  M01S00362.ldi     +++|          NZ     X2,ERR1     IF CONFLICT
00388  M01S00363.ldi     +++|          SX7    FRTI        SET *FM*/*UN* FLAG
00389  M01S00364.ldi     +++|          SA7    PFUN
00390  M01S00365.ldi     +++|          MX0    42
00391  M01S00366.ldi     +++|          BX7    X0*X1
00392  M01S00367.ldi     +++|          SA2    PRSJ        CHECK IF CENTRAL SITE SPECIFIED
00393  M01S00368.ldi     +++|          BX2    X7-X2
00394  M01S00369.ldi     +++|          ZR     X2,PRS12    IF IMPLICIT REMOTE ROUTING
00395  M01S00370.ldi     +++|          SA7    TFUN        SET FAMILY NAME
00396  M01S00371.ldi     +++|
00397  M01S00372.ldi     +++|*         COMPLETE BUILDING THE *DSP* PARAMETER BLOCK.
00398  M01S00373.ldi     +++|
00399  M01S00374.ldi     +++| PRS12    SA1    PDID
00400  M01S00375.ldi     +++|          SA3    PFUN
00401  M01S00376.ldi     +++|          BX6    X3+X1
00402  M01S00377.ldi     +++|          ZR     X6,PRSX     IF NOT REMOTE ROUTING
00403  M01S00378.ldi     +++|          SX4    FRTI
00404  M01S00003.ldi1    +++|          SX3    FRCS        CLEAR CENTRAL SITE FLAG
00405  M01S00379.ldi     +++|          SA1    TDSP+1
00406  M01S00380.ldi     +++|          BX7    X4+X1
00407  M01S00004.ldi1    +++|          BX7    X7-X3
00408  M01S00381.ldi     +++|          SA7    A1          SET *ID* FLAG
00409  M01S00382.ldi     +++|          SA1    TFUN
00410  M01S00383.ldi     +++|          SA2    A1+B1
00411  M01S00384.ldi     +++|          BX2    X2+X1
00412  M01S00385.ldi     +++|          ZR     X2,PRSX     IF IMPLICIT REMOTE ROUTING

Line S00386 Modification History
`M01` (Added by)	`ldi`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00413  M02S00386.v23l617 ---|          SX3    A1          SET ADDRESS OF FAMILY/USER NUMBER BLOCK
00414  M01S00023.v23l617 +++|          SX3    A1          SET ADDRESS OF FAMILY/USER NAME BLOCK
00415  M01S00387.ldi     +++|          MX0    36
00416  M01S00388.ldi     +++|          BX3    -X3
00417  M01S00389.ldi     +++|          BX6    -X0*X3
00418  M01S00390.ldi     +++|          SA6    TDSP+2
00419  M01S00391.ldi     +++|          EQ     PRSX        RETURN
00420  M01S00392.ldi     +++| ERR      SPACE  4,15

Line S00393 Modification History
`M01` (Added by)	`ldi`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00421  M02S00393.v23l617 ---|**        ERR - ISSUE CONTROL CARD ERROR MESSAGE.
00422  M01S00024.v23l617 +++|**        ERR - ISSUE COMMAND ERROR MESSAGE.
00423  M01S00394.ldi     +++|*
00424  M01S00395.ldi     +++|*         ENTRY  (B7) = ERROR MESSAGE ADDRESS, IF ENTRY AT *ERR1*.
00425  M01S00396.ldi     +++|
00426  M01S00397.ldi     +++|
00427  M01S00398.ldi     +++| ERR      SB7    PRSB        * ARGUMENT ERROR.*
00428  M01S00399.ldi     +++| ERR1     MESSAGE  B7        ISSUE ERROR MESSAGE
00429  M01S00400.ldi     +++|          ABORT
00430  M01S00401.ldi     +++| FNB      SPACE  4,10
00431  M01S00402.ldi     +++|**        FND - FIND NON-BLANK CHARACTER.
00432  M01S00403.ldi     +++|*
00433  M01S00404.ldi     +++|*         ENTRY  (B6) = NEXT CHARACTER ADDRESS.
00434  M01S00405.ldi     +++|*                (B7) = EXIT ADDRESS IF TERMINATOR ENCOUNTERED.
00435  M01S00406.ldi     +++|*
00436  M01S00407.ldi     +++|*         EXIT   (X1) = (B5) = NEXT NON BLANK CHARACTER.
00437  M01S00408.ldi     +++|*                (B6) = NEXT CHARACTER ADDRESS (UPDATED).
00438  M01S00409.ldi     +++|*                EXIT IS MADE TO B7, IF TERMINATOR ENCOUNTERED.
00439  M01S00410.ldi     +++|*
00440  M01S00411.ldi     +++|*         USES   X - 1, 4.
00441  M01S00412.ldi     +++|*                A - 1.
00442  M01S00413.ldi     +++|*                B - 5, 6.
00443  M01S00414.ldi     +++|
00444  M01S00415.ldi     +++|
00445  M01S00416.ldi     +++| FNB      SUBR               ENTRY/EXIT
00446  M01S00417.ldi     +++| FNB1     SA1    B6          GET NEXT CHARACTER
00447  M01S00418.ldi     +++|          SB6    B6+B1
00448  M01S00419.ldi     +++|          SX4    X1-1R
00449  M01S00420.ldi     +++|          ZR     X4,FNB1     IF BLANK CHARACTER
00450  M01S00421.ldi     +++|          SB5    X1+
00451  M01S00422.ldi     +++|          SX4    X1-1R.
00452  M01S00423.ldi     +++|          ZR     X4,FNB2     IF TERMINATOR CHARACTER
00453  M01S00424.ldi     +++|          SX4    X1-1R)
00454  M01S00425.ldi     +++|          NZ     X4,FNBX     IF NOT TERMINATOR CHARACTER, RETURN
00455  M01S00426.ldi     +++| FNB2     JP     B7          TERMINATE CHARACTER
00456  M01S00427.ldi     +++|          SPACE  4,10
00457  M01S00428.ldi     +++|*         WORKING STORAGE.
00458  M01S00429.ldi     +++|
00459  M01S00430.ldi     +++| PRSA     CON    40000000000033127777B  SEPARATOR MASK
00460  M01S00431.ldi     +++| PRSB     DATA   C* ARGUMENT ERROR.*

Line S00432 Modification History
`M01` (Added by)	`ldi`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00461  M02S00432.v23l617 ---| PRSC     DATA   C* INVALID ID CODE.*

Line S00433 Modification History
`M01` (Added by)	`ldi`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00462  M02S00433.v23l617 ---| PRSD     DATA   C* INVALID DC CODE.*
00463  M01S00025.v23l617 +++| PRSC     DATA   C* INCORRECT ID CODE.*
00464  M01S00026.v23l617 +++| PRSD     DATA   C* INCORRECT DC CODE.*
00465  M01S00434.ldi     +++| PRSE     DATA   C* LDI ID AND FM/UN CONFLICT.*
00466  M01S00435.ldi     +++| PRSG     DATA   2LID
00467  M01S00436.ldi     +++| PRSI     DATA   2LUN
00468  M01S00437.ldi     +++| PRSJ     DATA   2LFM
00469  M01S00438.ldi     +++| PRSK     BSSZ   100
00470  M01S00439.ldi     +++| TARG     SPACE  4,10
00471  M01S00440.ldi     +++|**        TARG - ARGUMENT EQUIVALENCE TABLE.
00472  M01S00441.ldi     +++|
00473  M01S00442.ldi     +++|
00474  M01S00443.ldi     +++| TARG     BSS    0
00475  M01S00444.ldi     +++| FN       ARG    FN,FN,0,0   FILE TO BE COPIED
00476  M01S00445.ldi     +++| ID       ARG    ID,ID,0,0   ID CODE
00477  M01S00446.ldi     +++| OP       ARG    OP,OP,0,0   INDICATES IF JOBNAME ISSUED TO DAYFILE
00478  M01S00447.ldi     +++| DC       ARG    DC,DC,0,0   DEVICE CODE

Line S00448 Modification History
`M01` (Added by)	`ldi`
`M02` (Updated by)	`ldi1`

Seq #  *Modification Id* Act 
----------------------------+
00479  M02S00448.ldi1    ---| UN       ARG    UN,UN,0,0   USER NUMBER
00480  M01S00005.ldi1    +++| UN       ARG    ZR,UN,0,0   USER NAME
00481  M01S00449.ldi     +++| FM       ARG    FM,FM,0,0   FAMILY
00482  M01S00450.ldi     +++|          ARG
00483  M01S00451.ldi     +++| TARGL    EQU    *-TARG-1
00484  M01S00452.ldi     +++|
00485  M01S00453.ldi     +++|
00486  M01S00454.ldi     +++| FN       CON    -1
00487  M01S00455.ldi     +++| ID       CON    -1
00488  M01S00456.ldi     +++| OP       CON    -1
00489  M01S00457.ldi     +++| DC       CON    -1
00490  M01S00458.ldi     +++| UN       CON    -1
00491  M01S00459.ldi     +++| FM       CON    -1
00492  M01S00006.ldi1    +++|
00493  M01S00007.ldi1    +++| ZR       CON    0           DEFAULT ARGUMENT VALUE
00494  M01S00460.ldi     +++|          SPACE  4
00495  M01S00461.ldi     +++|*         COMMON DECKS.
00496  M01S00462.ldi     +++|
00497  M01S00463.ldi     +++|
00498  M01S00464.ldi     +++|*CALL     COMCARM
00499  M01S00465.ldi     +++|*CALL     COMCCPA
00500  M01S00466.ldi     +++|*CALL     COMCCPM
00501  M01S00467.ldi     +++|*CALL     COMCDXB
00502  M01S00468.ldi     +++|*CALL     COMCPOP
00503  M01S00469.ldi     +++|*CALL     COMCUSB
00504  M01S00470.ldi     +++|          SPACE  4
00505  M01S00471.ldi     +++|          END