cdc:nos2.source:opl.opl871:deck:ldi
Deck LDI
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.ldi +++| IDENT LDI,FETS 00002 M00S00002.ldi +++| ABS 00003 M00S00003.ldi +++| ENTRY LDI 00004 M00S00004.ldi +++| ENTRY RFL= 00005 M00S00005.ldi +++| SST 00006 M00S00006.ldi +++| SYSCOM B1 00007 M00S00007.ldi +++|*COMMENT LDI - LOAD JOBS TO INPUT QUEUE.
| Line S00008 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M01S00008.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1981.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00009 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00010 M00S00009.ldi +++| TITLE LDI - LOAD JOBS TO INPUT QUEUE. 00011 M00S00010.ldi +++| SPACE 4 00012 M00S00011.ldi +++|*** LDI - LOAD JOBS TO INPUT QUEUE. 00013 M00S00012.ldi +++|* G. R. MANSFIELD. 70/10/25. 00014 M00S00013.ldi +++|* R. M. DESSEL. 81/10/26. 00015 M00S00014.ldi +++| SPACE 4 00016 M00S00015.ldi +++|*** *LDI* COPIES A SPECIFIED FILE TO THE INPUT QUEUE. 00017 M00S00016.ldi +++| SPACE 4,10
| Line S00017 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00018 M01S00017.v23l617 ---|*** *LDI* CONTROL STATEMENT CALL.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00019 M01S00001.v23l617 +++|*** *LDI* COMMAND. 00020 M00S00018.ldi +++|* 00021 M00S00019.ldi +++|* LDI(LFN,ID,OP,DC,UN,FM) 00022 M00S00020.ldi +++|* 00023 M00S00021.ldi +++|* LDI(FN=LFN,ID=ID,OP=OP,DC=DC,UN=UN,FM=FM) 00024 M00S00022.ldi +++|*
| Line S00023 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00025 M01S00023.v23l617 ---|* *LDI* CONTROL STATEMENT PARAMETERS ARE DEFINED
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00026 M01S00002.v23l617 +++|* *LDI* COMMAND PARAMETERS ARE DEFINED 00027 M00S00024.ldi +++|* AS THE FOLLOWING. 00028 M00S00025.ldi +++|* 00029 M00S00026.ldi +++|* LFN NAME OF FILE TO BE COPIED. 00030 M00S00027.ldi +++|* 00031 M00S00028.ldi +++|* ID *ID* CODE (NUMERIC). TWO FORMS ARE PERMITTED - 00032 M00S00029.ldi +++|* ID = NN SELECT LOCAL DEVICE. 00033 M00S00030.ldi +++|* ID IMPLICIT CENTRAL SITE ROUTING. 00034 M00S00031.ldi +++|* 00035 M00S00032.ldi +++|* OP IF OP IS SPECIFIED, JOBNAME OF EACH JOB LOADED 00036 M00S00033.ldi +++|* WILL BE ISSUED TO THE CONTROL POINT DAYFILE. 00037 M00S00034.ldi +++|* 00038 M00S00035.ldi +++|* DC DISPOSITION CODE. VALID CODES INCLUDE - 00039 M00S00036.ldi +++|* IN - INPUT QUEUE TYPE. 00040 M00S00037.ldi +++|* NO - INPUT QUEUE TYPE - NO OUTPUT. 00041 M00S00038.ldi +++|* TO - INPUT QUEUE TYPE - TERMINAL OUTPUT. 00042 M00S00039.ldi +++|*
| Line S00040 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00043 M01S00040.v23l617 ---|* UN USER NUMBER. TWO FORMS ARE PERMITTED - 00044 M01S00041.v23l617 ---|* UN = XXXXXXX USER NUMBER.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00045 M01S00003.v23l617 +++|* UN USER NAME. TWO FORMS ARE PERMITTED - 00046 M01S00004.v23l617 +++|* UN = XXXXXXX USER NAME. 00047 M00S00042.ldi +++|* UN IMPLICIT REMOTE ROUTING. 00048 M00S00043.ldi +++|* 00049 M00S00044.ldi +++|* FM FAMILY NAME. TWO FORMS ARE PERMITTED - 00050 M00S00045.ldi +++|* FM = XXXXXX FAMILY NAME. 00051 M00S00046.ldi +++|* FM IMPLICIT REMOTE ROUTING. 00052 M00S00047.ldi +++| SPACE 4,10 00053 M00S00048.ldi +++|*** DAYFILE MESSAGES. 00054 M00S00049.ldi +++|* 00055 M00S00050.ldi +++|* * ARGUMENT ERROR.*
| Line S00051 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00056 M01S00051.v23l617 ---|* ARGUMENT ERROR DETECTED ON CONTROL STATEMENT.
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00057 M01S00005.v23l617 +++|* ARGUMENT ERROR DETECTED ON COMMAND. 00058 M00S00052.ldi +++|*
| Line S00053 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00059 M01S00053.v23l617 ---|* * INVALID ID CODE.* 00060 M01S00054.v23l617 ---|* *ID* CODE SPECIFIED ON THE CONTROL STATEMENT IS AN 00061 M01S00055.v23l617 ---|* ILLEGAL VALUE FOR A BATCH *ID* CODE.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00056.ldi +++|*
| Line S00057 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00066 M01S00057.v23l617 ---|* * INVALID DC CODE.* 00067 M01S00058.v23l617 ---|* DISPOSITION CODE SPECIFIED ON CONTROL STATEMENT 00068 M01S00059.v23l617 ---|* IS AN ILLEGAL VALUE.
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00069 M01S00009.v23l617 +++|* * INCORRECT DC CODE.* 00070 M01S00010.v23l617 +++|* DISPOSITION CODE SPECIFIED ON COMMAND 00071 M01S00011.v23l617 +++|* IS AN INCORRECT VALUE. 00072 M00S00060.ldi +++|* 00073 M00S00061.ldi +++|* * LDI ID AND FM/UN CONFLICT.* 00074 M00S00062.ldi +++|* BOTH *ID* AND *FM*/*UN* WERE SPECIFIED ON THE CONTROL
| Line S00063 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00075 M01S00063.v23l617 ---|* STATEMENT. *ID* MAY NOT BE SPECIFIED WITH EITHER
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00076 M01S00012.v23l617 +++|* COMMAND. *ID* MAY NOT BE SPECIFIED WITH EITHER 00077 M00S00064.ldi +++|* *FM* OR *UN*. 00078 M00S00065.ldi +++| SPACE 4 00079 M00S00066.ldi +++|**** ASSEMBLY CONSTANTS. 00080 M00S00067.ldi +++| 00081 M00S00068.ldi +++| 00082 M00S00069.ldi +++| BUFL EQU 100B 00083 M00S00070.ldi +++| IBUFL EQU 2001B 00084 M00S00071.ldi +++| OBUFL EQU 2001B 00085 M00S00072.ldi +++|**** 00086 M00S00073.ldi +++| SPACE 4 00087 M00S00074.ldi +++|*CALL COMCMAC 00088 M00S00075.ldi +++|*CALL COMSDSP 00089 M00S00076.ldi +++|*CALL COMSIOQ 00090 M00S00077.ldi +++|*CALL COMSSSJ 00091 M00S00078.ldi +++| TITLE FETS AND COMMON DATA. 00092 M00S00079.ldi +++| FETS SPACE 4 00093 M00S00080.ldi +++| 00094 M00S00081.ldi +++| 00095 M00S00082.ldi +++| ORG 110B 00096 M00S00083.ldi +++| FETS BSS 0 00097 M00S00084.ldi +++| 00098 M00S00085.ldi +++| I BSS 0 00099 M00S00086.ldi +++| LOAD FILEB IBUF,IBUFL 00100 M00S00087.ldi +++| 00101 M00S00088.ldi +++| O BSS 0 00102 M00S00089.ldi +++| SCR FILEB OBUF,OBUFL,(FET=8) 00103 M00S00090.ldi +++| TDSP SPACE 4,10 00104 M00S00091.ldi +++|** TDSP - *DSP* PARAMETER BLOCK. 00105 M00S00092.ldi +++|* 00106 M00S00093.ldi +++|*T W0 42/ FILE NAME,18/
Figure W0
00107 M00S00094.ldi +++|*T, W1 24/ ,12/ DC,6/ ,18/ FLAGS
Figure W1
00108 M00S00095.ldi +++|*T, W2 36/ ,24/ DA
Figure W2
00109 M00S00096.ldi +++|*T, W3 60/
Figure W3
00110 M00S00097.ldi +++|*T, W4 60/
Figure W4
00111 M00S00098.ldi +++|*T, W5 60/
Figure W5
00112 M00S00099.ldi +++|*T, W6 60/
Figure W6
00113 M00S00100.ldi +++|* 00114 M00S00101.ldi +++|* DC - DISPOSITION CODE. 00115 M00S00102.ldi +++|* DA - *TID* OR POINTER TO *FM*/*UN*. 00116 M00S00103.ldi +++| 00117 M00S00104.ldi +++| 00118 M00S00105.ldi +++| 00119 M00S00106.ldi +++| TDSP BSS 0 00120 M00S00107.ldi +++| VFD 42/0LSCR,18/0 00121 M00S00108.ldi +++| VFD 12/,12/,12/0LIN,6/,18/FRDC+FRCS
| Line S00109 Modification History | |
|---|---|
M01 (Removed by) | ldi1 |
Seq # *Modification Id* Act ----------------------------+ 00122 M01S00109.ldi1 ---| BSSZ 5
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ldi1 |
Seq # *Modification Id* Act ----------------------------+ 00123 M01S00001.ldi1 +++| VFD 36/0,24/-0 00124 M01S00002.ldi1 +++| BSSZ 4 00125 M00S00110.ldi +++| TFUN SPACE 4,10
| Line S00111 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00126 M01S00111.v23l617 ---|** TFUN - FAMILY NAME, USER NUMBER TABLE.
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00127 M01S00013.v23l617 +++|** TFUN - FAMILY NAME, USER NAME TABLE. 00128 M00S00112.ldi +++|* 00129 M00S00113.ldi +++|*T W0 42/ FAMILY NAME,18/
Figure W0
| Line S00114 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00130 M01S00114.v23l617 ---|*T,W1 42/ USER NUMBER,18/
Figure W1
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00131 M01S00014.v23l617 +++|*T,W1 42/ USER NAME,18/
Figure W1
00132 M00S00115.ldi +++| 00133 M00S00116.ldi +++|
| Line S00117 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00134 M01S00117.v23l617 ---| TFUN BSSZ 2 FAMILY NAME - USER NUMBER
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00135 M01S00015.v23l617 +++| TFUN BSSZ 2 FAMILY NAME - USER NAME 00136 M00S00118.ldi +++| SPACE 4,10 00137 M00S00119.ldi +++|* INTERNAL FLAGS. 00138 M00S00120.ldi +++| 00139 M00S00121.ldi +++| PDID CON 0 DEVICE CODE PROCESSED 00140 M00S00122.ldi +++| PFUN CON 0 FM - UN PROCESSED 00141 M00S00123.ldi +++| LDI TITLE MAIN PROGRAM. 00142 M00S00124.ldi +++| 00143 M00S00125.ldi +++| 00144 M00S00126.ldi +++| LDI SB1 1 (B1) = 1 00145 M00S00127.ldi +++| RJ PRS PRESET PROGRAM 00146 M00S00128.ldi +++| LDI1 READ I 00147 M00S00129.ldi +++| READW I,BUF,BUFL 00148 M00S00130.ldi +++| NG X1,LDI2 IF EOF 00149 M00S00131.ldi +++| SX7 X1-BUF 00150 M00S00132.ldi +++| ZR X7,LDI2 IF EMPTY RECORD 00151 M00S00133.ldi +++| BX5 X1 SAVE (X1) 00152 M00S00134.ldi +++| SA1 O+1 ASSIGN FILE TO INPUT DEVICE 00153 M00S00135.ldi +++| MX0 12 00154 M00S00136.ldi +++| BX6 -X0*X1 00155 M00S00137.ldi +++| SX1 2RIN 00156 M00S00138.ldi +++| LX1 59-11 00157 M00S00139.ldi +++| BX7 X6+X1 00158 M00S00140.ldi +++| SA7 A1 00159 M00S00141.ldi +++| REQUEST O,U,N REQUEST EQUIPMENT WITH NO DAYFILE MESSAGE 00160 M00S00142.ldi +++| BX1 X5 RESTORE (X1) 00161 M00S00143.ldi +++| RJ CPY COPY FILE 00162 M00S00144.ldi +++| RECALL O 00163 M00S00145.ldi +++| ROUTE TDSP,RECALL 00164 M00S00146.ldi +++| SA1 O RESTORE FILE NAME IN *DSP* BLOCK 00165 M00S00147.ldi +++| MX0 42 00166 M00S00148.ldi +++| BX6 X0*X1 00167 M00S00149.ldi +++| SA1 TDSP 00168 M00S00150.ldi +++| SA2 LDIB 00169 M00S00151.ldi +++| SA6 A1 00170 M00S00152.ldi +++| NZ X2,LDI1 IF JOBNAME OPTION NOT SELECTED 00171 M00S00153.ldi +++| BX7 X0*X1 00172 M00S00154.ldi +++| SX2 2RS 00173 M00S00155.ldi +++| BX6 X7+X2 00174 M00S00156.ldi +++| LX6 48 00175 M00S00157.ldi +++| SA6 LDIA+1 00176 M00S00158.ldi +++| MESSAGE LDIA,3,R 00177 M00S00159.ldi +++| EQ LDI1 LOOP 00178 M00S00160.ldi +++| LDI2 ENDRUN 00179 M00S00161.ldi +++| 00180 M00S00162.ldi +++| LDIA DATA C* JOBNAME IS* 00181 M00S00163.ldi +++| LDIB CON 1 00182 M00S00164.ldi +++| TITLE SUBROUTINES. 00183 M00S00165.ldi +++| CPY SPACE 4 00184 M00S00166.ldi +++|** CPY - COPY FILE. 00185 M00S00167.ldi +++|* 00186 M00S00168.ldi +++|* ENTRY (X1) = FILE STATUS. 00187 M00S00169.ldi +++|* 00188 M00S00170.ldi +++|* MACROS READ, RECALL, WRITE, WRITEF, WRITER. 00189 M00S00171.ldi +++| 00190 M00S00172.ldi +++| 00191 M00S00173.ldi +++| CPY SUBR ENTRY/EXIT 00192 M00S00174.ldi +++| EQ CPY3 00193 M00S00175.ldi +++| 00194 M00S00176.ldi +++| CPY1 READ I 00195 M00S00177.ldi +++| RECALL O 00196 M00S00178.ldi +++| CPY2 READW I,BUF,BUFL 00197 M00S00179.ldi +++| CPY3 NG X1,CPY5 IF EOF 00198 M00S00180.ldi +++| NZ X1,CPY4 IF EOR 00199 M00S00181.ldi +++| WRITEW O,BUF,BUFL 00200 M00S00182.ldi +++| EQ CPY2 00201 M00S00183.ldi +++| 00202 M00S00184.ldi +++| CPY4 WRITEW O,BUF,X1-BUF 00203 M00S00185.ldi +++| WRITER O END RECORD 00204 M00S00186.ldi +++| EQ CPY1 00205 M00S00187.ldi +++| 00206 M00S00188.ldi +++| CPY5 WRITEF O END FILE 00207 M00S00189.ldi +++| EQ CPY RETURN 00208 M00S00190.ldi +++| SPACE 4 00209 M00S00191.ldi +++|* COMMON DECKS. 00210 M00S00192.ldi +++| 00211 M00S00193.ldi +++| 00212 M00S00194.ldi +++|*CALL COMCCIO 00213 M00S00195.ldi +++|*CALL COMCLFM 00214 M00S00196.ldi +++|*CALL COMCRDW 00215 M00S00197.ldi +++|*CALL COMCSYS 00216 M00S00198.ldi +++|*CALL COMCWTW 00217 M00S00199.ldi +++| BUFFERS SPACE 4 00218 M00S00200.ldi +++|* BUFFER ASSIGNMENTS. 00219 M00S00201.ldi +++| 00220 M00S00202.ldi +++| 00221 M00S00203.ldi +++| USE BUFFERS 00222 M00S00204.ldi +++| BUF EQU * 00223 M00S00205.ldi +++| IBUF EQU BUF+BUFL 00224 M00S00206.ldi +++| OBUF EQU IBUF+IBUFL 00225 M00S00207.ldi +++| RFL= EQU OBUF+OBUFL 00226 M00S00208.ldi +++| TITLE PRESET PROCESSING. 00227 M00S00209.ldi +++| PRS SPACE 4 00228 M00S00210.ldi +++|** PRS - PRESET PROGRAM. 00229 M00S00211.ldi +++|* 00230 M00S00212.ldi +++|* USES X - ALL. 00231 M00S00213.ldi +++|* A - 1, 2, 3, 5, 6, 7. 00232 M00S00214.ldi +++|* B - 2, 3, 4, 5, 6, 7. 00233 M00S00215.ldi +++|* 00234 M00S00216.ldi +++|* CALLS ARM, CPA, DXB, FNB, USB. 00235 M00S00217.ldi +++|* 00236 M00S00218.ldi +++|* MACROS LABEL, RETURN. 00237 M00S00219.ldi +++| 00238 M00S00220.ldi +++| 00239 M00S00221.ldi +++| ORG BUF 00240 M00S00222.ldi +++| PRS SUBR ENTRY/EXIT 00241 M00S00223.ldi +++| RETURN O
| Line S00224 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00242 M01S00224.v23l617 ---| SB2 CCDR UNPACK CONTROL CARD
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00243 M01S00016.v23l617 +++| SB2 CCDR UNPACK COMMAND 00244 M00S00225.ldi +++| RJ USB 00245 M00S00226.ldi +++| SA1 A6 ASSURE TERMINATOR CHARACTER 00246 M00S00227.ldi +++| SX6 1R. 00247 M00S00228.ldi +++| SA6 X1+B1 00248 M00S00229.ldi +++| SA2 PRSA SET SEPARATOR MASK 00249 M00S00230.ldi +++| SB2 60 00250 M00S00231.ldi +++| SB7 ERR SET EXIT FOR TERMINATOR CHARACTER 00251 M00S00232.ldi +++| RJ FNB FIND NON-BLANK CHARACTER 00252 M00S00233.ldi +++| 00253 M00S00234.ldi +++|* SKIP PROGRAM NAME. 00254 M00S00235.ldi +++| 00255 M00S00236.ldi +++| SB7 PRS4 SET EXIT FOR TERMINATOR CHARACTER 00256 M00S00237.ldi +++| PRS1 RJ FNB FIND NON-BLANK CHARACTER 00257 M00S00238.ldi +++| SB4 B5-B2 00258 M00S00239.ldi +++| LX4 X2,B5 00259 M00S00240.ldi +++| PL B4,PRS2 IF SEPARATOR CHARACTER 00260 M00S00241.ldi +++| PL X4,PRS1 IF NOT SEPARATOR CHARACTER 00261 M00S00242.ldi +++| PRS2 SB3 TARG FWA OF ARGUMENT TABLE 00262 M00S00243.ldi +++| SB2 TARGL LENGTH OF ARGUMENT TABLE 00263 M00S00244.ldi +++| SB4 PRSK ADDRESS TO PLACE DATA 00264 M00S00245.ldi +++| RJ CPA CONVERT POSITIONAL ARGUMENTS 00265 M00S00246.ldi +++| NG B5,ERR IF ARGUMENT ERROR 00266 M00S00247.ldi +++| PL X1,PRS4 IF NO ARGUMENTS PROCESSED 00267 M00S00248.ldi +++| SX6 B5 SET LWA OF ARGUMENTS 00268 M00S00249.ldi +++| SA6 USBC 00269 M00S00250.ldi +++| SB6 PRSK FWA OF ARGUMENTS 00270 M00S00251.ldi +++| RJ ARM PROCESS ARGUMENTS 00271 M00S00252.ldi +++| NZ X1,ERR IF ERROR 00272 M00S00253.ldi +++| 00273 M00S00254.ldi +++|* PROCESS FILE NAME. 00274 M00S00255.ldi +++| 00275 M00S00256.ldi +++| PRS3 SA1 FN 00276 M00S00257.ldi +++| SX4 -B1 00277 M00S00258.ldi +++| BX2 X4-X1 00278 M00S00259.ldi +++| ZR X2,PRS4 IF NULL ARGUMENT 00279 M00S00260.ldi +++| MX0 42 SET FILE NAME IN FET 00280 M00S00261.ldi +++| BX1 X0*X1 00281 M00S00262.ldi +++| SX2 3 00282 M00S00263.ldi +++| IX6 X1+X2 00283 M00S00264.ldi +++| SA6 I 00284 M00S00265.ldi +++| EQ PRS5 PROCESS *ID* CODE 00285 M00S00266.ldi +++| 00286 M00S00267.ldi +++| PRS4 LABEL I REQUEST LOCAL FILE 00287 M00S00268.ldi +++| 00288 M00S00269.ldi +++|* PROCESS *ID* CODE. 00289 M00S00270.ldi +++| 00290 M00S00271.ldi +++| PRS5 SA5 ID 00291 M00S00272.ldi +++| SX4 -B1 00292 M00S00273.ldi +++| BX2 X4-X5 00293 M00S00274.ldi +++| ZR X2,PRS7 IF *ID* CODE NOT SET 00294 M00S00275.ldi +++| SX7 B1+ SET *ID* FLAG 00295 M00S00276.ldi +++| SA7 PDID 00296 M00S00277.ldi +++| SA2 PRSG 00297 M00S00278.ldi +++| MX0 42 GET *ID* CODE 00298 M00S00279.ldi +++| BX5 X0*X5 00299 M00S00280.ldi +++| BX2 X5-X2 00300 M00S00281.ldi +++| ZR X2,PRS6 IF CENTRAL SITE SPECIFIED 00301 M00S00282.ldi +++| SB7 0 SET OCTAL CONVERSION 00302 M00S00283.ldi +++| RJ DXB CONVERT TO DISPLAY CODE
| Line S00284 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00303 M01S00284.v23l617 ---| SB7 PRSC * INVALID ID CODE.*
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00304 M01S00017.v23l617 +++| SB7 PRSC * INCORRECT ID CODE.* 00305 M00S00285.ldi +++| NZ X4,ERR1 IF CONVERSION ERROR 00306 M00S00286.ldi +++| SX2 X6-IDLM 00307 M00S00287.ldi +++| PL X2,ERR1 IF ID .GE. IDLM 00308 M00S00288.ldi +++| SA6 TDSP+2 SET *ID* CODE IN *DSP* BLOCK 00309 M00S00289.ldi +++| SX2 FRTI 00310 M00S00290.ldi +++| PRS6 SA1 TDSP+1 00311 M00S00291.ldi +++| SX6 FRCS 00312 M00S00292.ldi +++| BX6 X1+X6 SET CENTRAL SITE ROUTING FLAG 00313 M00S00293.ldi +++| BX6 X2+X6 OPTIONALLY SET *ID* FLAG 00314 M00S00294.ldi +++| SA6 A1+ 00315 M00S00295.ldi +++| 00316 M00S00296.ldi +++|* PROCESS *OP* OPTION. 00317 M00S00297.ldi +++| 00318 M00S00298.ldi +++| PRS7 SA1 OP 00319 M00S00299.ldi +++| SX4 -B1 00320 M00S00300.ldi +++| BX2 X4-X1 00321 M00S00301.ldi +++| ZR X2,PRS8 IF JOBNAME MESSAGE NOT SELECTED 00322 M00S00302.ldi +++| SX3 FRFN FLAG JOB NAME OPTION 00323 M00S00303.ldi +++| MX0 -18 00324 M00S00304.ldi +++| BX2 -X0*X3 00325 M00S00305.ldi +++| SA1 TDSP+1 00326 M00S00306.ldi +++| BX7 X1+X2 00327 M00S00307.ldi +++| SA7 A1 00328 M00S00308.ldi +++| SX6 B0+ ZERO LAST WORD OF MESSAGE BUFFER 00329 M00S00309.ldi +++| SA6 LDIB 00330 M00S00310.ldi +++| 00331 M00S00311.ldi +++|* PROCESS *DC* OPTION. 00332 M00S00312.ldi +++| 00333 M00S00313.ldi +++| PRS8 SA1 DC 00334 M00S00314.ldi +++| BX2 X4-X1 00335 M00S00315.ldi +++| ZR X2,PRS10 IF *DC* OPTION NOT SELECTED
| Line S00316 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00336 M01S00316.v23l617 ---| SB7 PRSD * INVALID DC CODE.*
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00337 M01S00018.v23l617 +++| SB7 PRSD * INCORRECT DC CODE.* 00338 M00S00317.ldi +++| MX0 12 00339 M00S00318.ldi +++| BX5 X0*X1 00340 M00S00319.ldi +++| LX0 -12 CHECK IF CODE .GT. TWO CHARACTERS 00341 M00S00320.ldi +++| BX2 X0*X1
| Line S00321 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00342 M01S00321.v23l617 ---| NZ X2,ERR1 IF INVALID *ID* CODE
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00343 M01S00019.v23l617 +++| NZ X2,ERR1 IF INCORRECT *ID* CODE 00344 M00S00322.ldi +++| LX5 12 00345 M00S00323.ldi +++| SX2 X5-2RIN 00346 M00S00324.ldi +++| SX3 X5-2RNO 00347 M00S00325.ldi +++| SX1 X5-2RTO 00348 M00S00326.ldi +++| ZR X2,PRS9 IF VALID CODE 00349 M00S00327.ldi +++| ZR X3,PRS9 IF VALID CODE
| Line S00328 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00350 M01S00328.v23l617 ---| NZ X1,ERR1 IF INVALID *DC* CODE
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00351 M01S00020.v23l617 +++| NZ X1,ERR1 IF INCORRECT *DC* CODE 00352 M00S00329.ldi +++| PRS9 SA2 TDSP+1 00353 M00S00330.ldi +++| SX7 FRDC 00354 M00S00331.ldi +++| LX0 -12 POSITION MASK 00355 M00S00332.ldi +++| LX5 24 POSITION PARAMETER 00356 M00S00333.ldi +++| BX3 -X0*X2 00357 M00S00334.ldi +++| BX3 X3+X5 ENTER *DC* PARAMETER 00358 M00S00335.ldi +++| BX7 X3+X7 ENTER FLAG BIT 00359 M00S00336.ldi +++| SA7 TDSP+1 00360 M00S00337.ldi +++| 00361 M00S00338.ldi +++|* PROCESS *UN* PARAMETER. 00362 M00S00339.ldi +++| 00363 M00S00340.ldi +++| PRS10 SA1 UN 00364 M00S00341.ldi +++| BX2 X4-X1 00365 M00S00342.ldi +++| ZR X2,PRS11 IF *UN* OPTION NOT SPECIFIED 00366 M00S00343.ldi +++| SA2 PDID 00367 M00S00344.ldi +++| SB7 PRSE * LDI ID AND FM/UN CONFLICT.* 00368 M00S00345.ldi +++| NZ X2,ERR1 IF CONFLICT 00369 M00S00346.ldi +++| SX7 FRTI SET *FM*/*UN* FLAG 00370 M00S00347.ldi +++| SA7 PFUN
| Line S00348 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00371 M01S00348.v23l617 ---| MX0 42 GET USER NUMBER
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00372 M01S00021.v23l617 +++| MX0 42 GET USER NAME 00373 M00S00349.ldi +++| BX6 X0*X1 00374 M00S00350.ldi +++| SA2 PRSI CHECK IF CENTRAL SITE SPECIFIED 00375 M00S00351.ldi +++| BX2 X6-X2 00376 M00S00352.ldi +++| ZR X2,PRS11 IF IMPLICIT REMOTE ROUTING
| Line S00353 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00377 M01S00353.v23l617 ---| SA6 TFUN+1 SET USER NUMBER
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00378 M01S00022.v23l617 +++| SA6 TFUN+1 SET USER NAME 00379 M00S00354.ldi +++| 00380 M00S00355.ldi +++|* PROCESS *FM* PARAMETER. 00381 M00S00356.ldi +++| 00382 M00S00357.ldi +++| PRS11 SA1 FM 00383 M00S00358.ldi +++| BX2 X4-X1 00384 M00S00359.ldi +++| ZR X2,PRS12 IF *FM* OPTION NOT SPECIFIED 00385 M00S00360.ldi +++| SA2 PDID 00386 M00S00361.ldi +++| SB7 PRSE * LDI ID AND FM/UN CONFLICT.* 00387 M00S00362.ldi +++| NZ X2,ERR1 IF CONFLICT 00388 M00S00363.ldi +++| SX7 FRTI SET *FM*/*UN* FLAG 00389 M00S00364.ldi +++| SA7 PFUN 00390 M00S00365.ldi +++| MX0 42 00391 M00S00366.ldi +++| BX7 X0*X1 00392 M00S00367.ldi +++| SA2 PRSJ CHECK IF CENTRAL SITE SPECIFIED 00393 M00S00368.ldi +++| BX2 X7-X2 00394 M00S00369.ldi +++| ZR X2,PRS12 IF IMPLICIT REMOTE ROUTING 00395 M00S00370.ldi +++| SA7 TFUN SET FAMILY NAME 00396 M00S00371.ldi +++| 00397 M00S00372.ldi +++|* COMPLETE BUILDING THE *DSP* PARAMETER BLOCK. 00398 M00S00373.ldi +++| 00399 M00S00374.ldi +++| PRS12 SA1 PDID 00400 M00S00375.ldi +++| SA3 PFUN 00401 M00S00376.ldi +++| BX6 X3+X1 00402 M00S00377.ldi +++| ZR X6,PRSX IF NOT REMOTE ROUTING 00403 M00S00378.ldi +++| SX4 FRTI
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ldi1 |
Seq # *Modification Id* Act ----------------------------+ 00404 M01S00003.ldi1 +++| SX3 FRCS CLEAR CENTRAL SITE FLAG 00405 M00S00379.ldi +++| SA1 TDSP+1 00406 M00S00380.ldi +++| BX7 X4+X1
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ldi1 |
Seq # *Modification Id* Act ----------------------------+ 00407 M01S00004.ldi1 +++| BX7 X7-X3 00408 M00S00381.ldi +++| SA7 A1 SET *ID* FLAG 00409 M00S00382.ldi +++| SA1 TFUN 00410 M00S00383.ldi +++| SA2 A1+B1 00411 M00S00384.ldi +++| BX2 X2+X1 00412 M00S00385.ldi +++| ZR X2,PRSX IF IMPLICIT REMOTE ROUTING
| Line S00386 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00413 M01S00386.v23l617 ---| SX3 A1 SET ADDRESS OF FAMILY/USER NUMBER BLOCK
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00414 M01S00023.v23l617 +++| SX3 A1 SET ADDRESS OF FAMILY/USER NAME BLOCK 00415 M00S00387.ldi +++| MX0 36 00416 M00S00388.ldi +++| BX3 -X3 00417 M00S00389.ldi +++| BX6 -X0*X3 00418 M00S00390.ldi +++| SA6 TDSP+2 00419 M00S00391.ldi +++| EQ PRSX RETURN 00420 M00S00392.ldi +++| ERR SPACE 4,15
| Line S00393 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00421 M01S00393.v23l617 ---|** ERR - ISSUE CONTROL CARD ERROR MESSAGE.
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00422 M01S00024.v23l617 +++|** ERR - ISSUE COMMAND ERROR MESSAGE. 00423 M00S00394.ldi +++|* 00424 M00S00395.ldi +++|* ENTRY (B7) = ERROR MESSAGE ADDRESS, IF ENTRY AT *ERR1*. 00425 M00S00396.ldi +++| 00426 M00S00397.ldi +++| 00427 M00S00398.ldi +++| ERR SB7 PRSB * ARGUMENT ERROR.* 00428 M00S00399.ldi +++| ERR1 MESSAGE B7 ISSUE ERROR MESSAGE 00429 M00S00400.ldi +++| ABORT 00430 M00S00401.ldi +++| FNB SPACE 4,10 00431 M00S00402.ldi +++|** FND - FIND NON-BLANK CHARACTER. 00432 M00S00403.ldi +++|* 00433 M00S00404.ldi +++|* ENTRY (B6) = NEXT CHARACTER ADDRESS. 00434 M00S00405.ldi +++|* (B7) = EXIT ADDRESS IF TERMINATOR ENCOUNTERED. 00435 M00S00406.ldi +++|* 00436 M00S00407.ldi +++|* EXIT (X1) = (B5) = NEXT NON BLANK CHARACTER. 00437 M00S00408.ldi +++|* (B6) = NEXT CHARACTER ADDRESS (UPDATED). 00438 M00S00409.ldi +++|* EXIT IS MADE TO B7, IF TERMINATOR ENCOUNTERED. 00439 M00S00410.ldi +++|* 00440 M00S00411.ldi +++|* USES X - 1, 4. 00441 M00S00412.ldi +++|* A - 1. 00442 M00S00413.ldi +++|* B - 5, 6. 00443 M00S00414.ldi +++| 00444 M00S00415.ldi +++| 00445 M00S00416.ldi +++| FNB SUBR ENTRY/EXIT 00446 M00S00417.ldi +++| FNB1 SA1 B6 GET NEXT CHARACTER 00447 M00S00418.ldi +++| SB6 B6+B1 00448 M00S00419.ldi +++| SX4 X1-1R 00449 M00S00420.ldi +++| ZR X4,FNB1 IF BLANK CHARACTER 00450 M00S00421.ldi +++| SB5 X1+ 00451 M00S00422.ldi +++| SX4 X1-1R. 00452 M00S00423.ldi +++| ZR X4,FNB2 IF TERMINATOR CHARACTER 00453 M00S00424.ldi +++| SX4 X1-1R) 00454 M00S00425.ldi +++| NZ X4,FNBX IF NOT TERMINATOR CHARACTER, RETURN 00455 M00S00426.ldi +++| FNB2 JP B7 TERMINATE CHARACTER 00456 M00S00427.ldi +++| SPACE 4,10 00457 M00S00428.ldi +++|* WORKING STORAGE. 00458 M00S00429.ldi +++| 00459 M00S00430.ldi +++| PRSA CON 40000000000033127777B SEPARATOR MASK 00460 M00S00431.ldi +++| PRSB DATA C* ARGUMENT ERROR.*
| Line S00432 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00461 M01S00432.v23l617 ---| PRSC DATA C* INVALID ID CODE.* 00462 M01S00433.v23l617 ---| PRSD DATA C* INVALID DC CODE.*
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00463 M01S00025.v23l617 +++| PRSC DATA C* INCORRECT ID CODE.* 00464 M01S00026.v23l617 +++| PRSD DATA C* INCORRECT DC CODE.* 00465 M00S00434.ldi +++| PRSE DATA C* LDI ID AND FM/UN CONFLICT.* 00466 M00S00435.ldi +++| PRSG DATA 2LID 00467 M00S00436.ldi +++| PRSI DATA 2LUN 00468 M00S00437.ldi +++| PRSJ DATA 2LFM 00469 M00S00438.ldi +++| PRSK BSSZ 100 00470 M00S00439.ldi +++| TARG SPACE 4,10 00471 M00S00440.ldi +++|** TARG - ARGUMENT EQUIVALENCE TABLE. 00472 M00S00441.ldi +++| 00473 M00S00442.ldi +++| 00474 M00S00443.ldi +++| TARG BSS 0 00475 M00S00444.ldi +++| FN ARG FN,FN,0,0 FILE TO BE COPIED 00476 M00S00445.ldi +++| ID ARG ID,ID,0,0 ID CODE 00477 M00S00446.ldi +++| OP ARG OP,OP,0,0 INDICATES IF JOBNAME ISSUED TO DAYFILE 00478 M00S00447.ldi +++| DC ARG DC,DC,0,0 DEVICE CODE
| Line S00448 Modification History | |
|---|---|
M01 (Removed by) | ldi1 |
Seq # *Modification Id* Act ----------------------------+ 00479 M01S00448.ldi1 ---| UN ARG UN,UN,0,0 USER NUMBER
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ldi1 |
Seq # *Modification Id* Act ----------------------------+ 00480 M01S00005.ldi1 +++| UN ARG ZR,UN,0,0 USER NAME 00481 M00S00449.ldi +++| FM ARG FM,FM,0,0 FAMILY 00482 M00S00450.ldi +++| ARG 00483 M00S00451.ldi +++| TARGL EQU *-TARG-1 00484 M00S00452.ldi +++| 00485 M00S00453.ldi +++| 00486 M00S00454.ldi +++| FN CON -1 00487 M00S00455.ldi +++| ID CON -1 00488 M00S00456.ldi +++| OP CON -1 00489 M00S00457.ldi +++| DC CON -1 00490 M00S00458.ldi +++| UN CON -1 00491 M00S00459.ldi +++| FM CON -1
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ldi1 |
Seq # *Modification Id* Act ----------------------------+ 00492 M01S00006.ldi1 +++| 00493 M01S00007.ldi1 +++| ZR CON 0 DEFAULT ARGUMENT VALUE 00494 M00S00460.ldi +++| SPACE 4 00495 M00S00461.ldi +++|* COMMON DECKS. 00496 M00S00462.ldi +++| 00497 M00S00463.ldi +++| 00498 M00S00464.ldi +++|*CALL COMCARM 00499 M00S00465.ldi +++|*CALL COMCCPA 00500 M00S00466.ldi +++|*CALL COMCCPM 00501 M00S00467.ldi +++|*CALL COMCDXB 00502 M00S00468.ldi +++|*CALL COMCPOP 00503 M00S00469.ldi +++|*CALL COMCUSB 00504 M00S00470.ldi +++| SPACE 4 00505 M00S00471.ldi +++| END
cdc/nos2.source/opl.opl871/deck/ldi.txt · Last modified: (external edit)