cdc:nos2.source:opl.opl871:deck:ldi
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
cdc/nos2.source/opl.opl871/deck/ldi.txt · Last modified: by 127.0.0.1