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
0 17 18 29 FILE NAME 30 59 FILE NAME
00107 M01S00094.ldi +++|*T, W1 24/ ,12/ DC,6/ ,18/ FLAGS
Figure
W1
0 17 18 23 24 29 FLAGS DC 30 35 36 59 DC
00108 M01S00095.ldi +++|*T, W2 36/ ,24/ DA
00109 M01S00096.ldi +++|*T, W3 60/
00110 M01S00097.ldi +++|*T, W4 60/
00111 M01S00098.ldi +++|*T, W5 60/
00112 M01S00099.ldi +++|*T, W6 60/
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
0 17 18 29 FAMILY NAME 30 59 FAMILY NAME
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
0 17 18 29 USER NUMBER 30 59 USER NUMBER
00131 M01S00014.v23l617 +++|*T,W1 42/ USER NAME,18/
Figure
W1
0 17 18 29 USER NAME 30 59 USER NAME
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