cdc:nos2.source:opl.opl871:deck:1ss
Deck 1SS
5 Modifications
Listing Sections
- Deck 1SS Start
- Deck 1SS Part 1 (Line 2170)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.1ss +++| IDENT 1SS,SSD 00002 M01S00002.1ss +++| TITLE 1SS - M860 SECONDARY STORAGE DRIVER. 00003 M01S00003.1ss +++| PERIPH 00004 M01S00004.1ss +++| BASE M 00005 M01S00005.1ss +++| SST 00006 M01S00006.1ss +++|*COMMENT M860 SECONDARY STORAGE DRIVER.
Line S00007 Modification History | |
---|---|
M01 (Added by) | 1ss |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M02S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1982. 00008 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00009 M01S00008.1ss +++| SPACE 4 00010 M01S00009.1ss +++|*** 1SS - M860 SECONDARY STORAGE DRIVER. 00011 M01S00010.1ss +++|* W. J. STURGIS 82/02/18. 00012 M01S00011.1ss +++| SPACE 4,10 00013 M01S00012.1ss +++|*** 1SS PROCESSES REQUESTS FROM SSEXEC TO READ AND WRITE 00014 M01S00013.1ss +++|* DATA AND MESSAGES. MULTIPLE FUNCTIONS CAN BE PROCESSED 00015 M01S00014.1ss +++|* BY 1SS. 00016 M01S00015.1ss +++| SPACE 4,10 00017 M01S00016.1ss +++|*** CALL 00018 M01S00017.1ss +++|* 00019 M01S00018.1ss +++|*T IR 18/ *1SS* ,6/ ,12/ CHB CHA ,6/ FC ,18/ ADDR
Figure IR
00020 M01S00019.1ss +++|* 00021 M01S00020.1ss +++|*T ADDR 18/ MSG. OUT FET ,18/ RECALL ADDR. ,12/ EQ ,11/ CN ,1/S
Figure ADDR
00022 M01S00021.1ss +++|*T,ADDR+1 42/ ,18/DATA FET ADDR
Figure ADDR+1
00023 M01S00022.1ss +++|* 00024 M01S00023.1ss +++|* WHERE 00025 M01S00024.1ss +++|* ADDR = PARAMETER ADDRESS. 00026 M01S00025.1ss +++|* FC = FUNCTION CODE. 00027 M01S00026.1ss +++|* 1 = ENABLE TDAM BUFFER. 00028 M01S00027.1ss +++|* 2 = MESSAGE BUFFER(S) TO PROCESS. 00029 M01S00028.1ss +++|* 3 = MESSAGE AND DATA BUFFERS TO PROCESS. 00030 M01S00029.1ss +++|* 4 = SET CHANNELS IN EST ENTRY. 00031 M01S00030.1ss +++|* EQ = EST ORDINAL. 00032 M01S00031.1ss +++|* CHB CHA = NEW CHANNELS TO BE SET IN EST FOR EQ. 00033 M01S00032.1ss +++|* MSG. OUT FET = FET USED TO SEND MESSAGES TO THE M860. 00034 M01S00033.1ss +++|* (MSG. OUT FET - 1) POINTER TO MESSAGE INPUT FET. 00035 M01S00034.1ss +++|* RECALL = CPU DRIVER RECALL WORD 00036 M01S00035.1ss +++|* DATA FET = FET FOR DATA I/O. 00037 M01S00036.1ss +++|* CN = CONTROLLER ORDINAL IN UDT. 00038 M01S00037.1ss +++|* S = 1, PPU ACTIVE (SET BY SSEXEC), CLEARED BY 1SS WHEN 00039 M01S00038.1ss +++|* DROPPING OUT. 00040 M01S00039.1ss +++| SPACE 4,10 00041 M01S00040.1ss +++|*** MESSAGE FET 00042 M01S00041.1ss +++|* 00043 M01S00042.1ss +++|*T MFET 42/ ,8/ ERRC ,9/ ,1/C
Figure MFET
00044 M01S00043.1ss +++|*T, 42/ ,18/ FIRST
Figure
00045 M01S00044.1ss +++|*T, 42/ ,18/ IN
Figure
00046 M01S00045.1ss +++|*T, 42/ ,18/ OUT
Figure
00047 M01S00046.1ss +++|*T, 12/ CH ,6/ ,18/ ABUF ,6/ ,18/ LIMIT
Figure
00048 M01S00047.1ss +++|*T, 60/ EBUF
Figure
00049 M01S00048.1ss +++|* 00050 M01S00049.1ss +++|* WHERE. 00051 M01S00050.1ss +++|* ERRC = ERROR RETURN CODE. 00052 M01S00051.1ss +++|* C = COMPLETE FLAG. 00053 M01S00052.1ss +++|* FIRST = FIRST POINTER. 00054 M01S00053.1ss +++|* IN = IN POINTER. 00055 M01S00054.1ss +++|* OUT = OUT POINTER. 00056 M01S00055.1ss +++|* CH = CHANNEL TO USE. 00057 M01S00056.1ss +++|* LIMIT = LIMIT POINTER. 00058 M01S00057.1ss +++|* ABUF = AUX BUFFER FOR LONG ASSOCIATED DATA BLOCKS. 00059 M01S00058.1ss +++|* EBUF = HARDWARE ERROR STATUS BUFFER.(5 WORDS) 00060 M01S00059.1ss +++| SPACE 4,10 00061 M01S00060.1ss +++|*** DATA FET. 00062 M01S00061.1ss +++|* 00063 M01S00062.1ss +++|*T DFET 42/ ,8/ ERRC ,1/E,8/ FUNC ,1/C
Figure DFET
00064 M01S00063.1ss +++|*T, 42/ ,18/ FIRST
Figure
00065 M01S00064.1ss +++|*T, 42/ ,18/ IN
Figure
00066 M01S00065.1ss +++|*T, 42/ ,18/ OUT
Figure
00067 M01S00066.1ss +++|*T, 12/ UNIT,29/ ,1/T ,18/ LIMIT
Figure
00068 M01S00067.1ss +++|*T, 60/ EBUF
Figure
00069 M01S00068.1ss +++|*T, 60/ HBUF
Figure
00070 M01S00069.1ss +++|* 00071 M01S00070.1ss +++|* WHERE. 00072 M01S00071.1ss +++|* ERRC = ERROR RETURN CODE. 00073 M01S00072.1ss +++|* E = EOI STATUS(READ). 00074 M01S00073.1ss +++|* FUNC = FUNCTION CODE. 00075 M01S00074.1ss +++|* READ, WRITE, REWIND/UNLOAD. 00076 M01S00075.1ss +++|* C = COMPLETE STATUS. 00077 M01S00076.1ss +++|* FIRST = FIRST POINTER. 00078 M01S00077.1ss +++|* IN = IN POINTER. 00079 M01S00078.1ss +++|* OUT = OUT POINTER. 00080 M01S00079.1ss +++|* UNIT = UNIT NUMBER. 00081 M01S00080.1ss +++|* T = TERMINATE STREAMING FLAG. 00082 M01S00081.1ss +++|* LIMIT = LIMIT POINTER. 00083 M01S00082.1ss +++|* EBUF = HARDWARE ERROR STATUS BUFFER(5 WORDS). 00084 M01S00083.1ss +++|* HBUF = STRIPE HEADER BUFFER(20 WORDS). 00085 M01S00084.1ss +++| SPACE 4,10 00086 M01S00085.1ss +++|*** STRIPE FORMAT. 00087 M01S00086.1ss +++|* 00088 M01S00087.1ss +++|* EACH M860 STRIPE IS CAPABLE OF HOLDING 00089 M01S00088.1ss +++|* 6530 8 BIT BYTES OF DATA. 00090 M01S00089.1ss +++|* 1SS WRITES A 150 BYTE HEADER, 483 - 6279 BYTES OF DATA 00091 M01S00090.1ss +++|* AND EITHER A TAPEMARK (EOI) OR A 90 BYTE TRAILER. 00092 M01S00091.1ss +++|* DATA CONSISTS OF FROM 1 TO 13 DISK SECTORS WITH PARTIAL 00093 M01S00092.1ss +++|* NOS CONTROL WORDS. THE FIRST CONTROL WORD HAS ONLY 00094 M01S00093.1ss +++|* THE PP WORD COUNT OF ACTUAL DATA AND THE SECOND CONTROL 00095 M01S00094.1ss +++|* WORD ONLY HAS THE LEVEL NUMBER. THE REST OF THE CONTROL 00096 M01S00095.1ss +++|* WORDS ARE RECONSTRUCTED BY 1SS BEFORE WRITING THE 00097 M01S00096.1ss +++|* DATA TO THE CM BUFFER. 00098 M01S00097.1ss +++| SPACE 4,10 00099 M01S00098.1ss +++|*** JOB DAYFILE MESSAGES. 00100 M01S00099.1ss +++|* 00101 M01S00100.1ss +++|* *1SS ABT.* FIELD LENGTH ERROR. 00102 M01S00101.1ss +++|* *1SS INVALID FUNCTION.* INPUT REG. FUNCTION INVALID. 00103 M01S00102.1ss +++|* 00104 M01S00103.1ss +++|* 00105 M01S00104.1ss +++|* IF SENSE SWITCH 1 IS ON, TRACE AND TIMING MESSAGES 00106 M01S00105.1ss +++|* ARE ISSUED TO THE CONTROL POINT DAYFILE. 00107 M01S00106.1ss +++| SPACE 4,10 00108 M01S00107.1ss +++|* COMMON DECKS. 00109 M01S00108.1ss +++| 00110 M01S00109.1ss +++| 00111 M01S00110.1ss +++| LIST X 00112 M01S00111.1ss +++|*CALL COMBCDD 00113 M01S00112.1ss +++| LIST -X 00114 M01S00113.1ss +++|*CALL COMPMAC 00115 M01S00114.1ss +++|*CALL COMPCHI 00116 M01S00115.1ss +++| TITLE ASSEMBLY CONSTANTS. 00117 M01S00116.1ss +++|* DIRECT CELLS. 00118 M01S00117.1ss +++| 00119 M01S00118.1ss +++| 00120 M01S00119.1ss +++| LOC 16 00121 M01S00120.1ss +++| CL BSS 1 FUNCTION TIMEOUT CLOCK 00122 M01S00121.1ss +++| EO BSS 1 END OF OPERATION TIMEOUT CLOCK 00123 M01S00122.1ss +++| CN BSS 5 CM WORD BUFFER 00124 M01S00123.1ss +++| BC BSS 1 BYTE COUNT 00125 M01S00124.1ss +++| EC BSS 1 ERROR CODE 00126 M01S00125.1ss +++| FE BSS 2 FET ADDRESS 00127 M01S00126.1ss +++| IC BSS 1 IDLE COUNTER 00128 M01S00127.1ss +++| MW BSS 1 MESSAGE WAITING FLAG 00129 M01S00128.1ss +++| RC BSS 1 RECALL COUNT 00130 M01S00129.1ss +++| ST BSS 1 GENERAL STATUS 00131 M01S00130.1ss +++| WC BSS 1 WORD COUNT 00132 M01S00131.1ss +++| ES BSS 1 EST ORDINAL OF CONTROL UNIT 00133 M01S00132.1ss +++| EQ BSS 1 EQUIPMENT NUMBER OF CONTROL UNIT 00134 M01S00133.1ss +++| PC BSS 1 PRU COUNT WITHIN A DATA STRIPE 00135 M01S00134.1ss +++| UN BSS 1 UNIT NUMBER FOR DATA I/O 00136 M01S00135.1ss +++| SC BSS 1 STRIPE COUNTER 00137 M01S00136.1ss +++| DR BSS 2 CPU DRIVER RECALL ADDRESS 00138 M01S00137.1ss +++| LOC *O 00139 M01S00138.1ss +++| LOC 60 00140 M01S00139.1ss +++| FT BSS 2 FIRST POINTER 00141 M01S00140.1ss +++| IN BSS 2 IN POINTER 00142 M01S00141.1ss +++| OT BSS 2 OUT POINTER 00143 M01S00142.1ss +++| LM BSS 2 LIMIT POINTER 00144 M01S00143.1ss +++| LOC *O 00145 M01S00144.1ss +++| SPACE 4,10 00146 M01S00145.1ss +++|* EQUATES. 00147 M01S00146.1ss +++| 00148 M01S00147.1ss +++| 00149 M01S00148.1ss +++| CH EQU 0 DEFAULT CHANNEL NUMBER 00150 M01S00149.1ss +++| DSTL EQU 24 DETAIL (FSC) STATUS LENGTH 00151 M01S00150.1ss +++| BRTL EQU 77 BUSY RETRY LIMIT 00152 M01S00151.1ss +++| EOPL EQU 480D END OF OP. TIME LIMIT 00153 M01S00152.1ss +++| FTOL EQU 360D FUNCTION TIMEOUT LIMIT 00154 M01S00153.1ss +++| GSTL EQU 3 GENERAL STATUS LENGTH 00155 M01S00154.1ss +++| IPLM EQU 400D IDLE PASS LIMIT BEFORE DROP PP 00156 M01S00155.1ss +++| MSBC EQU 43D LENGTH OF MESSAGE IN PP BYTES 00157 M01S00156.1ss +++| MSWC EQU 9D LENGTH OF MESSAGE IN CM WORDS 00158 M01S00157.1ss +++| MXAD EQU 3601 MAX ASSOCIATED DATA BYTE COUNT + 1 00159 M01S00158.1ss +++| MXWC EQU 256D CM WORD COUNT OF MAX ASSOC DATA 00160 M01S00159.1ss +++| PRUL EQU 66D LENGTH OF PRU WITH CONTROL WORDS 00161 M01S00160.1ss +++| SPACE 4,20 00162 M01S00161.1ss +++|* HARDWARE FUNCTION CODES. 00163 M01S00162.1ss +++| 00164 M01S00163.1ss +++| 00165 M01S00164.1ss +++| RELF EQU 1 RELEASE UNIT 00166 M01S00165.1ss +++| CMRF EQU 2 CONNECT FOR MESSAGE READ 00167 M01S00166.1ss +++| CMWF EQU 3 CONNECT FOR MESSAGE WRITE 00168 M01S00167.1ss +++| REWF EQU 10 REWIND 00169 M01S00168.1ss +++| STPF EQU 11 STOP TAPE MOTION 00170 M01S00169.1ss +++| GSTF EQU 12 GENERAL STATUS 00171 M01S00170.1ss +++| RISF EQU 14 INTERRUPT STATUS 00172 M01S00171.1ss +++| CONF EQU 20 CONNECT TO VIRTUAL TAPE UNIT 00173 M01S00172.1ss +++| REDF EQU 40 READ DATA 00174 M01S00173.1ss +++| MRDF EQU 43 MESSAGE READ 00175 M01S00174.1ss +++| WRTF EQU 50 WRITE DATA 00176 M01S00175.1ss +++| WTMF EQU 51 WRITE TAPE MARK 00177 M01S00176.1ss +++| MWRF EQU 53 MESSAGE WRITE 00178 M01S00177.1ss +++| RUNF EQU 110 REWIND/UNLOAD 00179 M01S00178.1ss +++| CDEF EQU 120 CHECK FOR DEVICE END 00180 M01S00179.1ss +++| WUMF EQU 140 WAIT UNIT MOUNTED 00181 M01S00180.1ss +++| SWRF EQU 250 SHORT WRITE 00182 M01S00181.1ss +++| FSTF EQU 312 FSC STATUS 00183 M01S00182.1ss +++| MCLF EQU 414 MASTER CLEAR 00184 M01S00183.1ss +++| DSTF EQU 704 DIAGNOSTIC STATUS 00185 M01S00184.1ss +++| SPACE 4,10 00186 M01S00185.1ss +++|* NOS 2 COMPATIBILITY. 00187 M01S00186.1ss +++| 00188 M01S00187.1ss +++| 00189 M01S00188.1ss +++| IF -DEF,HNGM,1 00190 M01S00189.1ss +++| HNGM EQU MXFM HANG PPU MONITOR FUNCTION 00191 M01S00190.1ss +++| SPACE 4,10 00192 M01S00191.1ss +++| TITLE LOCAL MACROS. 00193 M01S00192.1ss +++| SPACE 4,10 00194 M01S00193.1ss +++|** LOCAL MACROS. 00195 M01S00194.1ss +++| 00196 M01S00195.1ss +++| SPACE 4,10 00197 M01S00196.1ss +++|** ERROR - PROCESS ERROR. 00198 M01S00197.1ss +++|* 00199 M01S00198.1ss +++|* ERROR EC 00200 M01S00199.1ss +++|* 00201 M01S00200.1ss +++|* EC ERROR CODE. 00202 M01S00201.1ss +++| 00203 M01S00202.1ss +++| 00204 M01S00203.1ss +++| PURGMAC ERROR 00205 M01S00204.1ss +++| 00206 M01S00205.1ss +++| ERROR MACRO E 00207 M01S00206.1ss +++| MACREF ERROR 00208 M01S00207.1ss +++| LDN E 00209 M01S00208.1ss +++| RJM ERR 00210 M01S00209.1ss +++| ENDM 00211 M01S00210.1ss +++| FETA SPACE 4,10 00212 M01S00211.1ss +++|** FETA - LOAD ABSOLUTE FET ADDRESS. 00213 M01S00212.1ss +++|* 00214 M01S00213.1ss +++|* FETA A 00215 M01S00214.1ss +++|* 00216 M01S00215.1ss +++|* A = OFFSET INTO FET. 00217 M01S00216.1ss +++| 00218 M01S00217.1ss +++| 00219 M01S00218.1ss +++| PURGMAC FETA 00220 M01S00219.1ss +++| 00221 M01S00220.1ss +++| FETA MACRO A 00222 M01S00221.1ss +++| MACREF FETA 00223 M01S00222.1ss +++| LDD FE 00224 M01S00223.1ss +++| SHN 14 00225 M01S00224.1ss +++| ADD FE+1 00226 M01S00225.1ss +++| IFC NE,$A$$,1 00227 M01S00226.1ss +++| ADN A 00228 M01S00227.1ss +++| RJM CFL 00229 M01S00228.1ss +++| ENDM 00230 M01S00229.1ss +++| LDCA SPACE 4,10 00231 M01S00230.1ss +++|** LDCA - LOAD CENTRAL ADDRESS. 00232 M01S00231.1ss +++|* 00233 M01S00232.1ss +++|* LDCA A 00234 M01S00233.1ss +++|* 00235 M01S00234.1ss +++|* (A, A+1) = RELATIVE ADDRESS. 00236 M01S00235.1ss +++| 00237 M01S00236.1ss +++| 00238 M01S00237.1ss +++| PURGMAC LDCA 00239 M01S00238.1ss +++| 00240 M01S00239.1ss +++| LDCA MACRO A 00241 M01S00240.1ss +++| MACREF LDCA 00242 M01S00241.1ss +++| LDD A 00243 M01S00242.1ss +++| LPN 77 00244 M01S00243.1ss +++| SHN 14 00245 M01S00244.1ss +++| ADD A+1 00246 M01S00245.1ss +++| RJM CFL CHECK ADDRESS 00247 M01S00246.1ss +++| ENDM 00248 M01S00247.1ss +++| TITLE MAIN ROUTINE. 00249 M01S00248.1ss +++|** SSD - MAIN ROUTINE. 00250 M01S00249.1ss +++| 00251 M01S00250.1ss +++| 00252 M01S00251.1ss +++| ORG PPFW 00253 M01S00252.1ss +++| SSD RJM PRS PRESET 00254 M01S00253.1ss +++| 00255 M01S00254.1ss +++|* PROCESS CYBER MESSAGES. 00256 M01S00255.1ss +++| 00257 M01S00256.1ss +++| SSD1 LDC 0 MESSAGE OUTPUT FET ADDRESS 00258 M01S00257.1ss +++| SSDA EQU *-1 00259 M01S00258.1ss +++| STD FE+1 00260 M01S00259.1ss +++| SHN -14 00261 M01S00260.1ss +++| STD FE 00262 M01S00261.1ss +++| RJM WMS WRITE ANY MESSAGES TO M862 00263 M01S00262.1ss +++| 00264 M01S00263.1ss +++|* PROCESS M860 MESSAGES. 00265 M01S00264.1ss +++| 00266 M01S00265.1ss +++| SSD2 LDC 0 MESSAGE INPUT FET ADDRESS 00267 M01S00266.1ss +++| SSDB EQU *-1 00268 M01S00267.1ss +++| STD FE+1 00269 M01S00268.1ss +++| SHN -14 00270 M01S00269.1ss +++| STD FE 00271 M01S00270.1ss +++| RJM CKM CHECK FOR MESSAGE 00272 M01S00271.1ss +++| 00273 M01S00272.1ss +++|* PROCESS DATA I/O. 00274 M01S00273.1ss +++| 00275 M01S00274.1ss +++| LDCA IR+3 00276 M01S00275.1ss +++| ADN 1 00277 M01S00276.1ss +++| CRD CM READ DATA FET ADDRESS 00278 M01S00277.1ss +++| LDD CM+3 00279 M01S00278.1ss +++| STD FE 00280 M01S00279.1ss +++| SHN 14 00281 M01S00280.1ss +++| ADD CM+4 00282 M01S00281.1ss +++| ZJN SSD4 IF NO DATA FET 00283 M01S00282.1ss +++| STD FE+1 00284 M01S00283.1ss +++| RJM CFL CHECK FIELD LENGTH 00285 M01S00284.1ss +++| RJM PDF PROCESS DATA FET 00286 M01S00285.1ss +++| 00287 M01S00286.1ss +++|* CHECK FOR ACTIVITY. 00288 M01S00287.1ss +++| 00289 M01S00288.1ss +++| SSD4 LDD MW 00290 M01S00289.1ss +++| ZJN SSD6 IF NO ACTIVITY 00291 M01S00290.1ss +++| LDC IPLM 00292 M01S00291.1ss +++| STD IC INITIALIZE IDLE PASS LIMIT 00293 M01S00292.1ss +++| SSD5 LJM SSD1 LOOK FOR WORK TO DO 00294 M01S00293.1ss +++| 00295 M01S00294.1ss +++| SSD6 SOD IC 00296 M01S00295.1ss +++| ZJN SSD7 IF IDLE PASS LIMIT 00297 M01S00296.1ss +++| PAUSE 00298 M01S00297.1ss +++| LDD CM+1 00299 M01S00298.1ss +++| NJN DPP IF ERROR FLAG 00300 M01S00299.1ss +++| DELAY 00301 M01S00300.1ss +++| UJN SSD5 LOOK FOR WORK 00302 M01S00301.1ss +++| 00303 M01S00302.1ss +++| SSD7 LDN ZERL 00304 M01S00303.1ss +++| CRD CM 00305 M01S00304.1ss +++| AOD CM+4 00306 M01S00305.1ss +++| LDCA DR 00307 M01S00306.1ss +++| CWD CM ACTIVATE CPU DRIVER 00308 M01S00307.1ss +++| 00309 M01S00308.1ss +++| DPP LDCA IR+3 00310 M01S00309.1ss +++| CRD CM READ AVTIVITY WORD 00311 M01S00310.1ss +++| LDD CM+4 00312 M01S00311.1ss +++| SCN 1 CLEAR PPU ACTIVE 00313 M01S00312.1ss +++| STD CM+4 00314 M01S00313.1ss +++| LDCA IR+3 00315 M01S00314.1ss +++| CWD CM 00316 M01S00315.1ss +++| DPP1 MONITOR DPPM 00317 M01S00316.1ss +++| LJM PPR EXIT TO PPR 00318 M01S00317.1ss +++| ERR SPACE 4,10 00319 M01S00318.1ss +++|** ERR - PROCESS ERROR. 00320 M01S00319.1ss +++|* 00321 M01S00320.1ss +++|* ENTRY (A) = ERROR CODE. 00322 M01S00321.1ss +++|* 00323 M01S00322.1ss +++|* EXIT TO *DPP*. 00324 M01S00323.1ss +++|* 00325 M01S00324.1ss +++|* CALLS MCL, SCB. 00326 M01S00325.1ss +++|* 00327 M01S00326.1ss +++|* USES EC. 00328 M01S00327.1ss +++| 00329 M01S00328.1ss +++| 00330 M01S00329.1ss +++| ERR CON 0 CALLERS ADDRESS FOR DEBUG 00331 M01S00330.1ss +++| STD EC 00332 M01S00331.1ss +++| SBN RCHWET 00333 M01S00332.1ss +++| MJN ERR4 IF NOT HARDWARE ERROR TYPE 00334 M01S00333.1ss +++| SBN RCMCLR-RCHWET 00335 M01S00334.1ss +++| MJN ERR3 IF NO MASTERCLEAR REQUIRED 00336 M01S00335.1ss +++| RJM MCL MASTER CLEAR FSC 00337 M01S00336.1ss +++| ERR3 LDN ERRL 00338 M01S00337.1ss +++| STD CM 00339 M01S00338.1ss +++| FETA ERRW 00340 M01S00339.1ss +++| CWM GSTS,CM WRITE STATUS TO FET 00341 M01S00340.1ss +++| ERR4 RJM REL RELEASE CHANNEL 00342 M01S00341.1ss +++| TRCA LDN 0 00343 M01S00342.1ss +++| NJN ERR5 IF TRACE MODE 00344 M01S00343.1ss +++| LDD EC 00345 M01S00344.1ss +++| SBN RCHWET 00346 M01S00345.1ss +++| MJN ERR6 IF NOT HARDWARE ERROR 00347 M01S00346.1ss +++| ERR5 EXECUTE 2SS LOG ERROR 00348 M01S00347.1ss +++| ERR6 LDN 0 ERROR STATUS ONLY 00349 M01S00348.1ss +++| RJM SCB SET FET COMPLETE 00350 M01S00349.1ss +++| LDN ZERL 00351 M01S00350.1ss +++| CRD CM 00352 M01S00351.1ss +++| AOD CM+4 00353 M01S00352.1ss +++| LDCA DR 00354 M01S00353.1ss +++| CWD CM RECALL CPU DRIVER 00355 M01S00354.1ss +++| LJM DPP DROP PP 00356 M01S00355.1ss +++| TITLE FUNCTION PROCESSORS. 00357 M01S00356.1ss +++| PDF SPACE 4,10 00358 M01S00357.1ss +++|** PDF - PROCESS DATA FET. 00359 M01S00358.1ss +++|* 00360 M01S00359.1ss +++|* ENTRY (FE - FE+1) = FET ADDRESS. 00361 M01S00360.1ss +++|* 00362 M01S00361.1ss +++|* EXIT DATA FET REQUEST PROCESSED. 00363 M01S00362.1ss +++|* 00364 M01S00363.1ss +++|* CALLS IBP, RDA, RUL, WDA. 00365 M01S00364.1ss +++|* 00366 M01S00365.1ss +++|* USES T1, CM - CM+4, CN - CN+4, ES, EQ, CH, PC, UN. 00367 M01S00366.1ss +++| 00368 M01S00367.1ss +++| 00369 M01S00368.1ss +++| PDF SUBR ENTRY EXIT 00370 M01S00369.1ss +++| FETA 00371 M01S00370.1ss +++| CRD CM READ REQUEST WORD 00372 M01S00371.1ss +++| ADN 4 00373 M01S00372.1ss +++| CRD CN READ LIMIT WORD 00374 M01S00373.1ss +++| LDD CM+4 00375 M01S00374.1ss +++| SHN 21-0 00376 M01S00375.1ss +++| MJN PDFX IF NO FUNCTION 00377 M01S00376.1ss +++| SHN 22-21 00378 M01S00377.1ss +++| LPC 777 00379 M01S00378.1ss +++| STD CM+4 00380 M01S00379.1ss +++| LDC TFCN TABLE OF LEGAL FUNCTIONS 00381 M01S00380.1ss +++| STD T1 00382 M01S00381.1ss +++| PDF1 LDI T1 00383 M01S00382.1ss +++| NJN PDF2 IF NOT END OF TABLE 00384 M01S00383.1ss +++| ERROR RCILLF ILLEGAL FUNCTION 00385 M01S00384.1ss +++| 00386 M01S00385.1ss +++| PDF2 LMD CM+4 00387 M01S00386.1ss +++| ZJN PDF3 IF FUNCTION FOUND 00388 M01S00387.1ss +++| LDN 2 00389 M01S00388.1ss +++| RAD T1 ADVANCE TABLE ENTRY 00390 M01S00389.1ss +++| UJN PDF1 CHECK NEXT ENTRY 00391 M01S00390.1ss +++| 00392 M01S00391.1ss +++| PDF3 LDM 1,T1 PROCESSOR ADDRESS 00393 M01S00392.1ss +++| STM PDFA 00394 M01S00393.1ss +++| LDD CN 00395 M01S00394.1ss +++| STD UN SET UNIT NUMBER 00396 M01S00395.1ss +++| SBN 17+1 00397 M01S00396.1ss +++| MJN PDF4 IF LEGAL UNIT NUMBER 00398 M01S00397.1ss +++| ERROR RCILLU ILLEGAL UNIT NUMBER 00399 M01S00398.1ss +++| 00400 M01S00399.1ss +++| PDF4 RJM IBP INITIALIZE BUFFER POINTERS 00401 M01S00400.1ss +++| RJM ** PROCESS FUNCTION 00402 M01S00401.1ss +++| PDFA EQU *-1 00403 M01S00402.1ss +++| LJM PDFX RETURN 00404 M01S00403.1ss +++| TFCN SPACE 4,10 00405 M01S00404.1ss +++|** TFCN - TABLE OF LEGAL FUNCTIONS AND PROCESSORS. 00406 M01S00405.1ss +++|* 00407 M01S00406.1ss +++|*T,TFCN 12/ FUNCTION CODE ,12/PROC. ADDRESS
Figure TFCN
00408 M01S00407.1ss +++| 00409 M01S00408.1ss +++| 00410 M01S00409.1ss +++| TFCN BSS 0 TABLE OF LEGAL FUNCTION REQUESTS 00411 M01S00410.1ss +++| CON FCRUN,RUN REWIND/UNLOAD 00412 M01S00411.1ss +++| CON FCCWR,RDA CONTROL WORD READ DATA 00413 M01S00412.1ss +++| CON FCCWW,WDA CONTROL WORD WRITE DATA 00414 M01S00413.1ss +++| CON 0 END OF TABLE 00415 M01S00414.1ss +++| RDA SPACE 4,10 00416 M01S00415.1ss +++|** RDA - READ DATA IN STRIPE FORMAT. 00417 M01S00416.1ss +++|* 00418 M01S00417.1ss +++|* ENTRY FET INITIALIZED. 00419 M01S00418.1ss +++|* 00420 M01S00419.1ss +++|* EXIT EOI SET IN FET, ERROR OTHERWISE. 00421 M01S00420.1ss +++|* 00422 M01S00421.1ss +++|* CALLS CIB, CON, DV5, FCN, REL, SCB, ST, WBB. 00423 M01S00422.1ss +++|* 00424 M01S00423.1ss +++|* USES T0, T1, CM - CM+4, AC, BC, PC, RC, WC. 00425 M01S00424.1ss +++| 00426 M01S00425.1ss +++| 00427 M01S00426.1ss +++| RDA SUBR ENTRY/EXIT 00428 M01S00427.1ss +++| TRCB LDN 0 00429 M01S00428.1ss +++| ZJN RDA0 IF NOT TRACE MODE 00430 M01S00429.1ss +++| LDC =C*RDA.*+CPON 00431 M01S00430.1ss +++| RJM DFM 00432 M01S00431.1ss +++| RDA0 LDN 0 00433 M01S00432.1ss +++| STD SC CLEAR STRIPE COUNTER 00434 M01S00433.1ss +++| STD PC CLEAR PRU COUNT 00435 M01S00434.1ss +++| STM PBUF INITIALIZE FIRST CONTROL WORD 00436 M01S00435.1ss +++| STM PBUF+2 00437 M01S00436.1ss +++| STM PBUF+3 00438 M01S00437.1ss +++| LDD HN 00439 M01S00438.1ss +++| STM PBUF+1 00440 M01S00439.1ss +++| LDN ZERL INITIALIZE SECOND CONTROL WORD 00441 M01S00440.1ss +++| CRM PBUF+PRUL*5-5,ON 00442 M01S00441.1ss +++| RJM CON CONNECT UNIT 00443 M01S00442.1ss +++| RDA1 RJM CIB CHECK INPUT BUFFER 00444 M01S00443.1ss +++| ADC -PRUL*PRUPST 00445 M01S00444.1ss +++| PJN RDA1.1 IF ROOM FOR FULL STRIPE 00446 M01S00445.1ss +++| LDN 0 NO READ IN PROGRESS 00447 M01S00446.1ss +++| RJM RCL RECALL CPU AND PAUSE 00448 M01S00447.1ss +++| UJN RDA1 CHECK AGAIN 00449 M01S00448.1ss +++| 00450 M01S00449.1ss +++| RDA1.1 LDN REDF 00451 M01S00450.1ss +++| RJM FCN READ FUNCTION 00452 M01S00451.1ss +++| ACN CH 00453 M01S00452.1ss +++| LDC HDRL*5 00454 M01S00453.1ss +++| STD BC 00455 M01S00454.1ss +++| IAM HBUF,CH INPUT HEADER 00456 M01S00455.1ss +++| NJN RDA2 IF NOT FULL BLOCK 00457 M01S00456.1ss +++| LDN HDRL 00458 M01S00457.1ss +++| STD T1 00459 M01S00458.1ss +++| FETA HDRW 00460 M01S00459.1ss +++| CWM HBUF,T1 WRITE HEADER TO CM 00461 M01S00460.1ss +++| LDN BRTL 00462 M01S00461.1ss +++| STM CBSA INITIALIZE RETRY COUNT 00463 M01S00462.1ss +++| LJM RDA7 READ DATA 00464 M01S00463.1ss +++| 00465 M01S00464.1ss +++| RDA2 STD WC SAVE REMAINDER 00466 M01S00465.1ss +++| DCN CH+40 00467 M01S00466.1ss +++| LDN GSTF 00468 M01S00467.1ss +++| RJM STS WAIT END OF OPERATION 00469 M01S00468.1ss +++| SHN 21-13 00470 M01S00469.1ss +++| PJN RDA4 IF NO ALERT 00471 M01S00470.1ss +++| LDM STEC 00472 M01S00471.1ss +++| LPC -2000B 00473 M01S00472.1ss +++| NJN RDA3 IF EC .NE. 0 OR PARITY ERROR 00474 M01S00473.1ss +++| LDM FSTS+4 00475 M01S00474.1ss +++| SHN 21-1 00476 M01S00475.1ss +++| PJN RDA3 IF NOT TAPE BOTTOM RIGHT 00477 M01S00476.1ss +++| ERROR RCENDV 00478 M01S00477.1ss +++| 00479 M01S00478.1ss +++| RDA3 RJM CBS CHECK BUSY STATUS 00480 M01S00479.1ss +++| NJN RDA3.1 IF NOT TO RETRY 00481 M01S00480.1ss +++| LJM RDA1 RETRY READ 00482 M01S00481.1ss +++| 00483 M01S00482.1ss +++| RDA3.1 ERROR RCSTER STATUS ERROR 00484 M01S00483.1ss +++| 00485 M01S00484.1ss +++| RDA4 LDD BC 00486 M01S00485.1ss +++| LMD WC 00487 M01S00486.1ss +++| NJN RDA5 IF NOT EMPTY BLOCK 00488 M01S00487.1ss +++| LDD ST 00489 M01S00488.1ss +++| SHN 21-4 00490 M01S00489.1ss +++| MJN RDA6 IF EOI 00491 M01S00490.1ss +++| LDN REDF 00492 M01S00491.1ss +++| RJM FCN READ FUNCTION 00493 M01S00492.1ss +++| ACN CH 00494 M01S00493.1ss +++| LDN 1 00495 M01S00494.1ss +++| IAM CM,CH 00496 M01S00495.1ss +++| DCN CH+40 00497 M01S00496.1ss +++| LDN GSTF 00498 M01S00497.1ss +++| RJM STS WAIT END OF OPERATION 00499 M01S00498.1ss +++| SHN 21-4 00500 M01S00499.1ss +++| MJN RDA6 IF EOI 00501 M01S00500.1ss +++| RDA5 ERROR RCCHIN CHANNEL HANG ERROR 00502 M01S00501.1ss +++| 00503 M01S00502.1ss +++| RDA6 LDD TH 00504 M01S00503.1ss +++| RJM SCB SET COMPLETE WITH EOI 00505 M01S00504.1ss +++| LJM RDAX RETURN 00506 M01S00505.1ss +++| 00507 M01S00506.1ss +++| RDA7 BSS 0 00508 M01S00507.1ss +++| RDA8 LDN 0 00509 M01S00508.1ss +++| STD RC CLEAR RECALL COUNT 00510 M01S00509.1ss +++| LDC 500+2 00511 M01S00510.1ss +++| STD BC 00512 M01S00511.1ss +++| IAM PBUF+4,CH 00513 M01S00512.1ss +++| ZJN RDA9 IF FULL PRU 00514 M01S00513.1ss +++| LJM RDA2 CHECK FOR EOI 00515 M01S00514.1ss +++| 00516 M01S00515.1ss +++| RDA9 LDM PBUF+4 00517 M01S00516.1ss +++| ADC -501 00518 M01S00517.1ss +++| MJN RDA11 IF BYTE COUNT OK 00519 M01S00518.1ss +++| RDA10 ERROR RCCWER CONTROL WORD ERROR 00520 M01S00519.1ss +++| 00521 M01S00520.1ss +++| RDA11 ADC 501 00522 M01S00521.1ss +++| RJM DV5 00523 M01S00522.1ss +++| ADN 2 ADD CONTROL WORDS 00524 M01S00523.1ss +++| STD WC 00525 M01S00524.1ss +++| SBN 2 00526 M01S00525.1ss +++| STD T0 00527 M01S00526.1ss +++| SHN 2 *4 00528 M01S00527.1ss +++| ADD T0 *5 00529 M01S00528.1ss +++| LMM PBUF+4 00530 M01S00529.1ss +++| NJN RDA10 IF NOT EXACT MULTIPLE OF 5 00531 M01S00530.1ss +++| RJM WBB WRITE PRU 00532 M01S00531.1ss +++| AOD PC 00533 M01S00532.1ss +++| SBN PRUPST 00534 M01S00533.1ss +++| ZJN RDA12 IF FULL STRIPE 00535 M01S00534.1ss +++| ADN PRUPST/2 00536 M01S00535.1ss +++| NJN RDA11.1 IF NOT 1/2 STRIPE READ 00537 M01S00536.1ss +++| LDN DRCM 00538 M01S00537.1ss +++| STD CM 00539 M01S00538.1ss +++| LDD OA 00540 M01S00539.1ss +++| CWD CM RECALL CPU DRIVER 00541 M01S00540.1ss +++| RDA11.1 LJM RDA7 READ NEXT PRU 00542 M01S00541.1ss +++| 00543 M01S00542.1ss +++| RDA12 STD PC CLEAR PRU COUNT 00544 M01S00543.1ss +++| LDN TLRL*5 00545 M01S00544.1ss +++| STD BC 00546 M01S00545.1ss +++| IAM TBUF,CH 00547 M01S00546.1ss +++| ZJN RDA13 IF FULL TRAILER 00548 M01S00547.1ss +++| LJM RDA2 CHECK FOR EOI 00549 M01S00548.1ss +++| 00550 M01S00549.1ss +++| RDA13 DCN CH+40 00551 M01S00550.1ss +++| LDN GSTF 00552 M01S00551.1ss +++| RJM STS WAIT END OF OP 00553 M01S00552.1ss +++| SHN 21-13 00554 M01S00553.1ss +++| PJN RDA14 IF NO ALERT 00555 M01S00554.1ss +++| ERROR RCSTER STATUS ERROR 00556 M01S00555.1ss +++| 00557 M01S00556.1ss +++| RDA14 LDM TBUF 00558 M01S00557.1ss +++| SHN 21-13 00559 M01S00558.1ss +++| MJN RDA15 IF TRAILER 00560 M01S00559.1ss +++| ERROR RCHDER 00561 M01S00560.1ss +++| 00562 M01S00561.1ss +++| RDA15 SHN 13-12 00563 M01S00562.1ss +++| PJN RDA16 IF NOT END OF VOLUME 00564 M01S00563.1ss +++| ERROR RCENDV END OF VOLUME RETURN 00565 M01S00564.1ss +++| 00566 M01S00565.1ss +++| RDA16 SHN 12+1 00567 M01S00566.1ss +++| LPC 3777 CLEAR TRAILER FLAG 00568 M01S00567.1ss +++| STM TBUF 00569 M01S00568.1ss +++| LDN TLRL 00570 M01S00569.1ss +++| STD T1 00571 M01S00570.1ss +++| FETA HDRW 00572 M01S00571.1ss +++| CWM TBUF,T1 00573 M01S00572.1ss +++| LDN DRCM 00574 M01S00573.1ss +++| STD CM 00575 M01S00574.1ss +++| LDD OA 00576 M01S00575.1ss +++| CWD CM RECALL CPU 00577 M01S00576.1ss +++| AOD SC 00578 M01S00577.1ss +++| SBN STRPAU 00579 M01S00578.1ss +++| NJN RDA17 IF NOT FULL AU 00580 M01S00579.1ss +++| STD SC 00581 M01S00580.1ss +++| AOD RC 00582 M01S00581.1ss +++|* LDN 1 FLAG READ 00583 M01S00582.1ss +++| RJM RCL PAUSE AND CHECK ERROR FLAG 00584 M01S00583.1ss +++| RDA17 FETA 4 00585 M01S00584.1ss +++| CRD CM READ LIMIT WORD 00586 M01S00585.1ss +++| LDD CM+3 00587 M01S00586.1ss +++| SHN -6 00588 M01S00587.1ss +++| ZJN RDA18 IF TERMINATE FLAG NOT SET 00589 M01S00588.1ss +++| ERROR RCTERF TERMINATE FLAG RETURN 00590 M01S00589.1ss +++| 00591 M01S00590.1ss +++| RDA18 LDD SC 00592 M01S00591.1ss +++| NJN RDA19 IF NOT END OF AU 00593 M01S00592.1ss +++| RJM CMG CHECK FOR MESSAGES 00594 M01S00593.1ss +++| RDA19 LJM RDA1 CONTINUE READ 00595 M01S00594.1ss +++| RMS SPACE 4,10 00596 M01S00595.1ss +++|** RMS - READ MESSAGE AND ASSOCIATED DATA. 00597 M01S00596.1ss +++|* 00598 M01S00597.1ss +++|* ENTRY MESSAGE WAITING INTERRUPT FROM M862. 00599 M01S00598.1ss +++|* CHANNEL RESERVED. 00600 M01S00599.1ss +++|* 00601 M01S00600.1ss +++|* EXIT (A) .NE. 0, IF NO BUFFER SPACE FOR MESSAGE. 00602 M01S00601.1ss +++|* (A) .EQ. 0, IF MESSAGE READ. 00603 M01S00602.1ss +++|* 00604 M01S00603.1ss +++|* CALLS CIB, DV3, DV5, FCN, IBP, REL, STS, WMB. 00605 M01S00604.1ss +++|* 00606 M01S00605.1ss +++|* USES BC, CM - CM+4, FE, FE+1, WC, T1, T2, T4, T5, T6, T7. 00607 M01S00606.1ss +++| 00608 M01S00607.1ss +++| 00609 M01S00608.1ss +++| RMS0 RJM REL RELEASE CHANNEL 00610 M01S00609.1ss +++| LDN ZERL 00611 M01S00610.1ss +++| CRD CM 00612 M01S00611.1ss +++| LDD IN 00613 M01S00612.1ss +++| STD CM+3 00614 M01S00613.1ss +++| LDD IN+1 00615 M01S00614.1ss +++| STD CM+4 00616 M01S00615.1ss +++| FETA 2 00617 M01S00616.1ss +++| CWD CM UPDATE IN POINTER IN FET 00618 M01S00617.1ss +++| LDN ZERL 00619 M01S00618.1ss +++| CRD CM 00620 M01S00619.1ss +++| AOD CM+4 00621 M01S00620.1ss +++| LDCA DR 00622 M01S00621.1ss +++| CWD CM RECALL CPU DRIVER 00623 M01S00622.1ss +++| MONITOR DRCM 00624 M01S00623.1ss +++|* LDN 0 SET MESSAGE READ 00625 M01S00624.1ss +++| 00626 M01S00625.1ss +++| RMS SUBR ENTRY/EXIT 00627 M01S00626.1ss +++| RJM IBP INITIALIZE BUFFER PARAMETERS 00628 M01S00627.1ss +++| RJM CIB CHECK INPUT BUFFER 00629 M01S00628.1ss +++| ADC -MSWC-MXWC 00630 M01S00629.1ss +++| PJN RMS1 IF ROOM IN BUFFER 00631 M01S00630.1ss +++| RJM REL RELEASE CHANNEL 00632 M01S00631.1ss +++| LDN ZERL 00633 M01S00632.1ss +++| CRD CM 00634 M01S00633.1ss +++| AOD CM+4 00635 M01S00634.1ss +++| LDCA DR 00636 M01S00635.1ss +++| CWD CM RECALL CPU DRIVER 00637 M01S00636.1ss +++| MONITOR DRCM RECALL CPU 00638 M01S00637.1ss +++| LDN 1 SET MESSAGE WAITING FOR BUFFER 00639 M01S00638.1ss +++| UJN RMSX RETURN 00640 M01S00639.1ss +++| 00641 M01S00640.1ss +++| RMS1 LDN CMRF 00642 M01S00641.1ss +++| RJM CMD CONNECT TO MESSAGE READ DEVICE 00643 M01S00642.1ss +++| LDN MRDF 00644 M01S00643.1ss +++| RJM FCN ISSUE MESSAGE READ FUNCTION 00645 M01S00644.1ss +++| LDN MSBC 00646 M01S00645.1ss +++| ACN CH 00647 M01S00646.1ss +++| RMS2 IJM RMS3,CH IF ERROR 00648 M01S00647.1ss +++| EJM RMS2,CH IF DATA NOT AVAILABLE 00649 M01S00648.1ss +++| RMS3 IAM BUFR,CH READ MESSAGE 00650 M01S00649.1ss +++| DCN CH+40 00651 M01S00650.1ss +++| STD BC SAVE REMAINDER 00652 M01S00651.1ss +++| LMN MSBC 00653 M01S00652.1ss +++| NJN RMS3.1 IF NOT EMPTY MESSAGE 00654 M01S00653.1ss +++| LJM RMS0 EXIT 00655 M01S00654.1ss +++| 00656 M01S00655.1ss +++| RMS3.1 LDN GSTF 00657 M01S00656.1ss +++| RJM STS WAIT END OF OPERATION 00658 M01S00657.1ss +++| SHN 21-13 00659 M01S00658.1ss +++| PJN RMS4 IF NO ERROR 00660 M01S00659.1ss +++| ERROR RCSTER STATUS ERROR 00661 M01S00660.1ss +++| 00662 M01S00661.1ss +++| RMS4 LDD BC 00663 M01S00662.1ss +++| ZJN RMS5 IF FULL BLOCK 00664 M01S00663.1ss +++| ERROR RCCHIN CHANNEL HANG 00665 M01S00664.1ss +++| 00666 M01S00665.1ss +++| RMS5 LDN MSWC 00667 M01S00666.1ss +++| STD WC 00668 M01S00667.1ss +++| RJM WMB WRITE MESSAGE TO BUFFER 00669 M01S00668.1ss +++| TRCC LDN 0 00670 M01S00669.1ss +++| ZJN RMS5.5 IF NOT TRACE MODE 00671 M01S00670.1ss +++| LDC 2RIN 00672 M01S00671.1ss +++| RJM MDF MESSAGE TO DAYFILE 00673 M01S00672.1ss +++| RJM GMT GET MESSAGE TYPE 00674 M01S00673.1ss +++| LMC 0#81 00675 M01S00674.1ss +++| NJN RMS5.5 IF NOT REWIND UNLOAD MSG 00676 M01S00675.1ss +++| RJM RUM REWIND UNLOAD MESSAGES 00677 M01S00676.1ss +++| RMS5.5 LDM BUFR+2 00678 M01S00677.1ss +++| SHN -4 00679 M01S00678.1ss +++| STD T2 00680 M01S00679.1ss +++| LDM BUFR+1 00681 M01S00680.1ss +++| LPC 377 00682 M01S00681.1ss +++| SHN 10 00683 M01S00682.1ss +++| RAD T2 00684 M01S00683.1ss +++| NJN RMS7 IF ASSOCIATED DATA BLOCK PRESENT 00685 M01S00684.1ss +++| RMS6 LJM RMS0 UPDATE FET 00686 M01S00685.1ss +++| 00687 M01S00686.1ss +++| RMS7 ADC -MXAD 00688 M01S00687.1ss +++| PJN RMS8 IF ASSOC DATA GOES TO AUX BUFFER 00689 M01S00688.1ss +++| LDN 0 00690 M01S00689.1ss +++| STD T1 00691 M01S00690.1ss +++| STD T4 CLEAR FULL BLOCK COUNT 00692 M01S00691.1ss +++| STD T6 CLEAR AUX BUFFER ADDRESS 00693 M01S00692.1ss +++| STD T7 00694 M01S00693.1ss +++| LJM RMS10 00695 M01S00694.1ss +++| 00696 M01S00695.1ss +++| RMS8 ADC MXAD 00697 M01S00696.1ss +++| SHN -14 00698 M01S00697.1ss +++| STD T1 00699 M01S00698.1ss +++| FETA 4 00700 M01S00699.1ss +++| CRD CM READ LIMIT WORD 00701 M01S00700.1ss +++| LDD CM+1 00702 M01S00701.1ss +++| LPN 77 00703 M01S00702.1ss +++| STD T6 SET AUX BUFFER 00704 M01S00703.1ss +++| SHN 14 00705 M01S00704.1ss +++| ADD CM+2 00706 M01S00705.1ss +++| STD T7 00707 M01S00706.1ss +++| NJN RMS9 IF AUX BUFFER PRESENT 00708 M01S00707.1ss +++| RMS8.1 LDN REDF 00709 M01S00708.1ss +++| RJM FCN ISSUE READ FUNCTION 00710 M01S00709.1ss +++| ACN CH 00711 M01S00710.1ss +++| IAN CH 00712 M01S00711.1ss +++| RJM FIN FLUSH INPUT 00713 M01S00712.1ss +++| RJM GMT GET MESSAGE TYPE 00714 M01S00713.1ss +++| LMN 0#04 00715 M01S00714.1ss +++| NJN RMS8.2 IF NOT READ CART. LABEL 00716 M01S00715.1ss +++| LJM RMS0 PUT MESSAGE IN BUFFER 00717 M01S00716.1ss +++| 00718 M01S00717.1ss +++| RMS8.2 ERROR RCDLER DATA LENGTH ERROR 00719 M01S00718.1ss +++| 00720 M01S00719.1ss +++| RMS9 RJM CFL CHECK ADDRESS 00721 M01S00720.1ss +++| RJM GMT GET MESSAGE TYPE 00722 M01S00721.1ss +++| LMN 0#11 00723 M01S00722.1ss +++| NJN RMS8.1 IF NOT READ WITH ERROR MESSAGE 00724 M01S00723.1ss +++|* LDN 0 00725 M01S00724.1ss +++| STD T4 CLEAR FULL BLOCK COUNT 00726 M01S00725.1ss +++| RMS10 LDD T1 00727 M01S00726.1ss +++| SHN 14 00728 M01S00727.1ss +++| ADD T2 00729 M01S00728.1ss +++| ADC -500*3/2 00730 M01S00729.1ss +++| MJN RMS11 IF NO MORE FULL BLOCKS 00731 M01S00730.1ss +++| STD T2 00732 M01S00731.1ss +++| SHN -14 00733 M01S00732.1ss +++| STD T1 00734 M01S00733.1ss +++| AOD T4 INCREMENT FULL BLOCK COUNT 00735 M01S00734.1ss +++| UJN RMS10 CHECK FOR MORE FULL BLOCKS 00736 M01S00735.1ss +++| 00737 M01S00736.1ss +++| RMS11 LDD T2 00738 M01S00737.1ss +++| STD BC 00739 M01S00738.1ss +++| ZJN RMS12 IF NO PARTIAL BLOCK 00740 M01S00739.1ss +++| SHN 1 *2 00741 M01S00740.1ss +++| RJM DV3 DIVIDE BY 3 00742 M01S00741.1ss +++| STD BC SET PP BYTE COUNT 00743 M01S00742.1ss +++| RJM DV5 DIVIDE BY 5 = CM WORD COUNT 00744 M01S00743.1ss +++| STD T5 00745 M01S00744.1ss +++| RMS12 LDN CMRF 00746 M01S00745.1ss +++| RJM CMD RESERVE MESSAGE EVICE 00747 M01S00746.1ss +++| LDN REDF 00748 M01S00747.1ss +++| RJM FCN FUNCTION FOR READ 00749 M01S00748.1ss +++| ACN CH 00750 M01S00749.1ss +++| LDD T4 00751 M01S00750.1ss +++| NJN RMS13 IF MORE FULL BLOCKS 00752 M01S00751.1ss +++| LJM RMS19 PROCESS SHORT BLOCK 00753 M01S00752.1ss +++| 00754 M01S00753.1ss +++| RMS13 LDC 500 00755 M01S00754.1ss +++| IAM BUFR,CH READ FULL BLOCK 00756 M01S00755.1ss +++| ZJN RMS16 IF FULL BLOCK 00757 M01S00756.1ss +++| RMS14 DCN CH+40 00758 M01S00757.1ss +++| LDN GSTF 00759 M01S00758.1ss +++| RJM STS WAIT END OF OP 00760 M01S00759.1ss +++| SHN 21-13 00761 M01S00760.1ss +++| PJN RMS15 IF NO ERROR 00762 M01S00761.1ss +++| ERROR RCSTER STATUS ERROR 00763 M01S00762.1ss +++| 00764 M01S00763.1ss +++| RMS15 ERROR RCCHIN CHANNEL HANG 00765 M01S00764.1ss +++| 00766 M01S00765.1ss +++| RMS16 LDD T6 00767 M01S00766.1ss +++| ADD T7 00768 M01S00767.1ss +++| NJN RMS17 IF AUX BUFFER PRESENT 00769 M01S00768.1ss +++| LDD HN 00770 M01S00769.1ss +++| STD WC 00771 M01S00770.1ss +++| RJM WMB WRITE BLOCK TO CM 00772 M01S00771.1ss +++| UJN RMS18 CHECK FOR NEXT BLOCK 00773 M01S00772.1ss +++| 00774 M01S00773.1ss +++| RMS17 LDCA T6 00775 M01S00774.1ss +++| CWM BUFR,HN WRITE DATA TO AUX BUFFER 00776 M01S00775.1ss +++| LDD HN 00777 M01S00776.1ss +++| RAD T7 00778 M01S00777.1ss +++| SHN -14 00779 M01S00778.1ss +++| RAD T6 00780 M01S00779.1ss +++| RMS18 SOD T4 00781 M01S00780.1ss +++| ZJN RMS19 IF NO MORE FULL BLOCKS 00782 M01S00781.1ss +++| LJM RMS13 GET NEXT BLOCK 00783 M01S00782.1ss +++| 00784 M01S00783.1ss +++| RMS19 LDD BC 00785 M01S00784.1ss +++| ZJN RMS20 IF NO PARIIAL BLOCK 00786 M01S00785.1ss +++| IAM BUFR,CH 00787 M01S00786.1ss +++| ZJN RMS20 IF ALL DATA READ 00788 M01S00787.1ss +++| LJM RMS14 CHECK STATUS 00789 M01S00788.1ss +++| 00790 M01S00789.1ss +++| RMS20 DCN CH+40 00791 M01S00790.1ss +++| LDN GSTF 00792 M01S00791.1ss +++| RJM STS WAIT END OF OPERATION 00793 M01S00792.1ss +++| SHN 21-13 00794 M01S00793.1ss +++| PJN RMS21 IF NOT ALERT 00795 M01S00794.1ss +++| ERROR RCSTER STATUS ERROR RETURN 00796 M01S00795.1ss +++| 00797 M01S00796.1ss +++| RMS21 LDD BC 00798 M01S00797.1ss +++| ZJN RMS23 IF NO PARTIAL BLOCK 00799 M01S00798.1ss +++| LDD T6 00800 M01S00799.1ss +++| ADD T7 00801 M01S00800.1ss +++| NJN RMS22 IF AUX BUFFER PRESENT 00802 M01S00801.1ss +++| LDD T5 00803 M01S00802.1ss +++| STD WC 00804 M01S00803.1ss +++| RJM WMB WRITE DATA TO BUFFER 00805 M01S00804.1ss +++| UJN RMS23 UPDATE FET 00806 M01S00805.1ss +++| 00807 M01S00806.1ss +++| RMS22 LDCA T6 00808 M01S00807.1ss +++| CWM BUFR,T5 WRITE DATA TO AUX BUFFER 00809 M01S00808.1ss +++| RMS23 LJM RMS0 UPDATE FET 00810 M01S00809.1ss +++| RUM SPACE 4,10 00811 M01S00810.1ss +++|** RUM - REWIND UNLOAD MESSAGES 00812 M01S00811.1ss +++|* 00813 M01S00812.1ss +++|* ENTRY (BUFR) CONTAINS REWIND UNLOAD MESSAGE 00814 M01S00813.1ss +++|* 00815 M01S00814.1ss +++|* EXIT PHYSICAL AND LOGICAL STRIPES TO DAYFILE 00816 M01S00815.1ss +++|* 00817 M01S00816.1ss +++|* CALLS CHN, DFM. 00818 M01S00817.1ss +++|* 00819 M01S00818.1ss +++|* USES T0. 00820 M01S00819.1ss +++| 00821 M01S00820.1ss +++| 00822 M01S00821.1ss +++| RUM SUBR ENTRY/EXIT 00823 M01S00822.1ss +++| LDM BUFR+35 00824 M01S00823.1ss +++| SHN -8D 00825 M01S00824.1ss +++| STD T0 00826 M01S00825.1ss +++| LDM BUFR+34 00827 M01S00826.1ss +++| SHN 4 00828 M01S00827.1ss +++| LMD T0 00829 M01S00828.1ss +++| RJM CHN CONVERT PHYSICAL STRIPE 00830 M01S00829.1ss +++| LDC 2R P 00831 M01S00830.1ss +++| STM RUMA 00832 M01S00831.1ss +++| LDC RUMA+CPON 00833 M01S00832.1ss +++| RJM DFM ISSUE MESSAGE 00834 M01S00833.1ss +++| LDM BUFR+36 00835 M01S00834.1ss +++| LPN 0#F 00836 M01S00835.1ss +++| SHN 14 00837 M01S00836.1ss +++| LMM BUFR+37 00838 M01S00837.1ss +++| RJM CHN CONVEWT LOGICAL STRIPE 00839 M01S00838.1ss +++| LDC 2R L 00840 M01S00839.1ss +++| STM RUMA 00841 M01S00840.1ss +++| LDC RUMA+CPON 00842 M01S00841.1ss +++| RJM DFM ISSUE MSSAGE 00843 M01S00842.1ss +++| LJM RUMX RETURN 00844 M01S00843.1ss +++| 00845 M01S00844.1ss +++| 00846 M01S00845.1ss +++| RUMA DIS ,* XS = 1234.* 00847 M01S00846.1ss +++| CHN SPACE 4,10 00848 M01S00847.1ss +++|** CHN - CONVERT HEX NUMBER 00849 M01S00848.1ss +++|* 00850 M01S00849.1ss +++|* ENTRY (A) = 16 BIT NUMBER 00851 M01S00850.1ss +++|* 00852 M01S00851.1ss +++|* EXIT (RUMA+3, RUMA+4) = DISPLAY CODE HEX NUMBER 00853 M01S00852.1ss +++|* 00854 M01S00853.1ss +++|* CALLS CTH. 00855 M01S00854.1ss +++|* 00856 M01S00855.1ss +++|* USES T1. 00857 M01S00856.1ss +++| 00858 M01S00857.1ss +++| 00859 M01S00858.1ss +++| CHN SUBR ENTRY/EXIT 00860 M01S00859.1ss +++| STD T1 00861 M01S00860.1ss +++| SHN -14 00862 M01S00861.1ss +++| RJM CTH CONVERT 1ST DIGIT 00863 M01S00862.1ss +++| SHN 6 00864 M01S00863.1ss +++| STM RUMA+3 00865 M01S00864.1ss +++| LDD T1 00866 M01S00865.1ss +++| SHN -8D 00867 M01S00866.1ss +++| RJM CTH CONVERT 2ND DIGIT 00868 M01S00867.1ss +++| RAM RUMA+3 00869 M01S00868.1ss +++| LDD T1 00870 M01S00869.1ss +++| SHN -4 00871 M01S00870.1ss +++| RJM CTH CONVERT 3RD DIGIT 00872 M01S00871.1ss +++| SHN 6 00873 M01S00872.1ss +++| STM RUMA+4 00874 M01S00873.1ss +++| LDD T1 00875 M01S00874.1ss +++| RJM CTH CONVERT 4TH DIGIT 00876 M01S00875.1ss +++| RAM RUMA+4 00877 M01S00876.1ss +++| UJN CHNX RETURN 00878 M01S00877.1ss +++| RUN SPACE 4,10 00879 M01S00878.1ss +++|** RUN - REWIND UNLOAD UNIT. 00880 M01S00879.1ss +++|* 00881 M01S00880.1ss +++|* ENTRY (UN) = UNIT NUMBER. 00882 M01S00881.1ss +++|* 00883 M01S00882.1ss +++|* EXIT REWIND UNLOAD ISSUED. 00884 M01S00883.1ss +++|* 00885 M01S00884.1ss +++|* CALLS FCN, RES, SCB. 00886 M01S00885.1ss +++|* 00887 M01S00886.1ss +++|* USES CM - CM+4. 00888 M01S00887.1ss +++| 00889 M01S00888.1ss +++| 00890 M01S00889.1ss +++| RUN SUBR ENTRY/EXIT 00891 M01S00890.1ss +++| TRCD LDN 0 00892 M01S00891.1ss +++| ZJN RUN0.0 IF NOT TRACE MODE 00893 M01S00892.1ss +++| LDC =C*RUN.*+CPON 00894 M01S00893.1ss +++| RJM DFM 00895 M01S00894.1ss +++| RUN0.0 RJM RES RESERVE CHANNEL 00896 M01S00895.1ss +++| LDN CONF 00897 M01S00896.1ss +++| ADD UN 00898 M01S00897.1ss +++| RJM FCN CONNECT UNIT 00899 M01S00898.1ss +++| LDN GSTF 00900 M01S00899.1ss +++| RJM STS GET STATUS 00901 M01S00900.1ss +++| SHN 21-11 00902 M01S00901.1ss +++| MJN RUN0 IF UNIT NOT CONNECTED 00903 M01S00902.1ss +++| LDC RUNF 00904 M01S00903.1ss +++| RJM FCN ISSUE REWIND UNLOAD 00905 M01S00904.1ss +++| LDN GSTF 00906 M01S00905.1ss +++| RJM STS GET STATUS 00907 M01S00906.1ss +++| SHN 21-13 00908 M01S00907.1ss +++| PJN RUN1 IF NOT ALERT 00909 M01S00908.1ss +++| RUN0 ERROR RCSTER STATUS ERROR 00910 M01S00909.1ss +++| 00911 M01S00910.1ss +++| RUN1 LDN 0 00912 M01S00911.1ss +++| RJM SCB SET FET COMPLETE 00913 M01S00912.1ss +++| TRCE LDN 0 00914 M01S00913.1ss +++| ZJN RUN2 IF NOT TRACE MODE 00915 M01S00914.1ss +++| LDC RTCL 00916 M01S00915.1ss +++| CRD CM READ MILLISECOND CLOCK 00917 M01S00916.1ss +++| LDN 0 00918 M01S00917.1ss +++| STD CM CLEAR SECOND COUNT 00919 M01S00918.1ss +++| STD CM+1 00920 M01S00919.1ss +++| STD CM+2 ONLY USE 24 BITS 00921 M01S00920.1ss +++| LDD MA 00922 M01S00921.1ss +++| CWD CM 00923 M01S00922.1ss +++| LDN 1 00924 M01S00923.1ss +++| STD CM+1 ONLY 1 VALUE TO BE CONVERTED 00925 M01S00924.1ss +++| MONITOR RDCM CONVERT TO F10.3 00926 M01S00925.1ss +++| LDD MA 00927 M01S00926.1ss +++| CRM RUNB,ON 00928 M01S00927.1ss +++| LDC RUNA+CPON 00929 M01S00928.1ss +++| RJM DFM ISSUE DAYFILE MESSAGE 00930 M01S00929.1ss +++| RUN2 LJM RUNX 00931 M01S00930.1ss +++| 00932 M01S00931.1ss +++| 00933 M01S00932.1ss +++| RUNA DATA 12HRUNL 00934 M01S00933.1ss +++| RUNB BSS 6 MILLISECOND CLOCK 00935 M01S00934.1ss +++| WDA SPACE 4,10 00936 M01S00935.1ss +++|** WDA - WRITE DATA IN STRIPE FORMAT. 00937 M01S00936.1ss +++|* 00938 M01S00937.1ss +++|* ENTRY (UN) = UNIT NUMBER. 00939 M01S00938.1ss +++|* 00940 M01S00939.1ss +++|* EXIT AT EOI, ERROR OTHERWISE. 00941 M01S00940.1ss +++|* 00942 M01S00941.1ss +++|* CALLS CFS, DV5, FCN, RBB, REL, SCB, STS. 00943 M01S00942.1ss +++|* 00944 M01S00943.1ss +++|* USES T7, CM - CM+4, AC, PC, RC, WC. 00945 M01S00944.1ss +++| 00946 M01S00945.1ss +++| 00947 M01S00946.1ss +++| WDA SUBR ENTRY/EXIT 00948 M01S00947.1ss +++| TRCF LDN 0 00949 M01S00948.1ss +++| ZJN WDA0.0 IF NOT TRACE MODE 00950 M01S00949.1ss +++| LDC =C*WDA.*+CPON 00951 M01S00950.1ss +++| RJM DFM 00952 M01S00951.1ss +++| WDA0.0 LDN 0 00953 M01S00952.1ss +++| STD SC CLEAR STRIPE COUNT 00954 M01S00953.1ss +++| STD PC CLEAR PRU COUNT 00955 M01S00954.1ss +++| LDN HDRL 00956 M01S00955.1ss +++| STD T1 00957 M01S00956.1ss +++| LDN TLRL 00958 M01S00957.1ss +++| STD T2 00959 M01S00958.1ss +++| FETA HDRW 00960 M01S00959.1ss +++| CRM HBUF,T1 READ HEADER 00961 M01S00960.1ss +++| SBN HDRL 00962 M01S00961.1ss +++| CRM TBUF,T2 READ TRAILER 00963 M01S00962.1ss +++| LDC 4000 00964 M01S00963.1ss +++| RAM TBUF SET TRAILER FLAG 00965 M01S00964.1ss +++| RJM CON CONNECT UNIT 00966 M01S00965.1ss +++| WDA0 RJM CFS CHECK FOR FULL STRIPE 00967 M01S00966.1ss +++| LDN WRTF 00968 M01S00967.1ss +++| RJM FCN WRITE FUNCTION 00969 M01S00968.1ss +++| ACN CH 00970 M01S00969.1ss +++| LDC HDRL*5 00971 M01S00970.1ss +++| OAM HBUF,CH OUTPUT HEADER 00972 M01S00971.1ss +++| NJN WDA1 IF NOT ALL DATA OUTPUT 00973 M01S00972.1ss +++| LJM WDA4 CONTINUE WRITE 00974 M01S00973.1ss +++| 00975 M01S00974.1ss +++| WDA1 DCN CH+40 00976 M01S00975.1ss +++| LDN GSTF 00977 M01S00976.1ss +++| RJM STS 00978 M01S00977.1ss +++| SHN 21-13 00979 M01S00978.1ss +++| MJN WDA2 IF ALERT 00980 M01S00979.1ss +++| ERROR RCCHOT CHANNEL HANG RETURN 00981 M01S00980.1ss +++| 00982 M01S00981.1ss +++| WDA2 LDM FSTS+4 00983 M01S00982.1ss +++| SHN 21-1 00984 M01S00983.1ss +++| PJN WDA3 IF NOT TAPE BOTTOM RIGHT 00985 M01S00984.1ss +++| LDM STEC 00986 M01S00985.1ss +++| NJN WDA3 IF EC .NE. 0 OR PARITY ERROR 00987 M01S00986.1ss +++| ERROR RCTBRT TAPE BOTTOM RIGHT ERROR 00988 M01S00987.1ss +++| 00989 M01S00988.1ss +++| WDA3 RJM CBS CHECK BUSY STATUS 00990 M01S00989.1ss +++| NJN WDA3.1 IF NOT TO RETRY 00991 M01S00990.1ss +++| FETA 3 00992 M01S00991.1ss +++| CRD CM RESET OUT POINTER 00993 M01S00992.1ss +++| LDD CM+3 00994 M01S00993.1ss +++| STD OT 00995 M01S00994.1ss +++| LDD CM+4 00996 M01S00995.1ss +++| STD OT+1 00997 M01S00996.1ss +++| LJM WDA0 RETRY WRITE 00998 M01S00997.1ss +++| 00999 M01S00998.1ss +++| WDA3.1 ERROR RCSTER STATUS ERROR 01000 M01S00999.1ss +++| 01001 M01S01000.1ss +++| WDA4 BSS 0 01002 M01S01001.1ss +++| WDA5 LDN BRTL 01003 M01S01002.1ss +++| STM CBSA RESET RETRY COUNT 01004 M01S01003.1ss +++| LDCA OT 01005 M01S01004.1ss +++| CRD CM READ CONTROL WORD 01006 M01S01005.1ss +++| LDD CM 01007 M01S01006.1ss +++| SHN 21-12 01008 M01S01007.1ss +++| PJN WDA9 IF NOT EOI 01009 M01S01008.1ss +++| WDA6 DCN CH+40 01010 M01S01009.1ss +++| LDN GSTF 01011 M01S01010.1ss +++| RJM STS GET GENERAL STATUS 01012 M01S01011.1ss +++| SHN 21-13 01013 M01S01012.1ss +++| PJN WDA8 IF NO ALERT 01014 M01S01013.1ss +++| WDA7 LJM WDA2 CHECK END OF TAPE 01015 M01S01014.1ss +++| 01016 M01S01015.1ss +++| WDA8 LDN WTMF 01017 M01S01016.1ss +++| RJM FCN WRITE TAPE MARK 01018 M01S01017.1ss +++| LDN 1 01019 M01S01018.1ss +++| STD WC 01020 M01S01019.1ss +++| RJM RMB READ MEMORY BUFFER 01021 M01S01020.1ss +++| RJM UCO UPDATE CENTRAL OUT 01022 M01S01021.1ss +++| LDN GSTF 01023 M01S01022.1ss +++| RJM STS GET STATUS 01024 M01S01023.1ss +++| SHN 21-13 01025 M01S01024.1ss +++| MJN WDA7 IF ALERT SET 01026 M01S01025.1ss +++| LDN 0 01027 M01S01026.1ss +++| RJM SCB SET FET COMPLETE 01028 M01S01027.1ss +++| LJM WDAX RETURN 01029 M01S01028.1ss +++| 01030 M01S01029.1ss +++| WDA9 LDD CM+4 01031 M01S01030.1ss +++| ADC -501 01032 M01S01031.1ss +++| MJN WDA10 IF BYTE COUNT OK 01033 M01S01032.1ss +++| ERROR RCCWER CONTROL WORD ERROR 01034 M01S01033.1ss +++| 01035 M01S01034.1ss +++| WDA10 LDD CM+4 01036 M01S01035.1ss +++| RJM DV5 01037 M01S01036.1ss +++| ADN 2 ADD CONTROL WORDS 01038 M01S01037.1ss +++| STD WC 01039 M01S01038.1ss +++| RJM RMB READ MEMORY BUFFER 01040 M01S01039.1ss +++| LDC 500+2 01041 M01S01040.1ss +++| OAM PBUF+4,CH 01042 M01S01041.1ss +++| ZJN WDA11 IF FULL BLOCK 01043 M01S01042.1ss +++| LJM WDA1 CHECK FOR HANG 01044 M01S01043.1ss +++| 01045 M01S01044.1ss +++| WDA11 RJM UCO UPDATE CENTRAL OUT 01046 M01S01045.1ss +++| AOD PC ADVANCE PRU COUNT 01047 M01S01046.1ss +++| SBN PRUPST 01048 M01S01047.1ss +++| ZJN WDA12 IF FULL STRIPE 01049 M01S01048.1ss +++| ADN PRUPST/2 01050 M01S01049.1ss +++| NJN WDA11.1 IF NOT TIME TO RECALL CPU 01051 M01S01050.1ss +++| LDN DRCM 01052 M01S01051.1ss +++| STD CM 01053 M01S01052.1ss +++| LDD OA 01054 M01S01053.1ss +++| CWD CM 01055 M01S01054.1ss +++| WDA11.1 LJM WDA4 GET NEXT PRU 01056 M01S01055.1ss +++| 01057 M01S01056.1ss +++| WDA12 STD PC RESET PRU COUNT 01058 M01S01057.1ss +++| STD RC RESET RECALL COUNT 01059 M01S01058.1ss +++| WDA13 RJM COB CHECK OUTPUT BUFFER 01060 M01S01059.1ss +++| NJN WDA14 IF DATA 01061 M01S01060.1ss +++|* LDN 0 FLAG WRITE 01062 M01S01061.1ss +++| RJM RCL RECALL CPU 01063 M01S01062.1ss +++| UJN WDA13 TRY AGAIN 01064 M01S01063.1ss +++| 01065 M01S01064.1ss +++| WDA14 LDCA OT 01066 M01S01065.1ss +++| CRD CM 01067 M01S01066.1ss +++| LDD CM 01068 M01S01067.1ss +++| SHN 21-12 01069 M01S01068.1ss +++| PJN WDA15 IF NOT EOI 01070 M01S01069.1ss +++| LJM WDA6 CHECK FOR ERROR AND WRITE TAPE MARK 01071 M01S01070.1ss +++| 01072 M01S01071.1ss +++| WDA15 LDN TLRL*5 01073 M01S01072.1ss +++| OAM TBUF,CH 01074 M01S01073.1ss +++| ZJN WDA16 IF FULL BLOCK 01075 M01S01074.1ss +++| LJM WDA1 CHECK FOR HANG 01076 M01S01075.1ss +++| 01077 M01S01076.1ss +++| WDA16 DCN CH+40 01078 M01S01077.1ss +++| LDN GSTF 01079 M01S01078.1ss +++| RJM STS GET STATUS 01080 M01S01079.1ss +++| SHN 21-13 01081 M01S01080.1ss +++| PJN WDA18 IF NO ERROR 01082 M01S01081.1ss +++| LJM WDA2 CHECK FOR TAPE BOTTOM RIGHT 01083 M01S01082.1ss +++| 01084 M01S01083.1ss +++| WDA18 SHN 13-3 01085 M01S01084.1ss +++| PJN WDA20 IF NOT EOT 01086 M01S01085.1ss +++| LDM TBUF 01087 M01S01086.1ss +++| SHN 21-12 01088 M01S01087.1ss +++| PJN WDA19 IF NOT ALREADY SET EOV TRAILER 01089 M01S01088.1ss +++| ERROR RCENDV END OF VOLUME 01090 M01S01089.1ss +++| 01091 M01S01090.1ss +++| WDA19 SHN 12+1 REPOSITION 01092 M01S01091.1ss +++| ADC 2000 01093 M01S01092.1ss +++| STM TBUF SET END OF VOLUME FLAG 01094 M01S01093.1ss +++| WDA20 AOM HBUF+4 INCREMENT STRIPE IN FILE 01095 M01S01094.1ss +++| STM TBUF+4 01096 M01S01095.1ss +++| SHN -14 01097 M01S01096.1ss +++| RAM HBUF+3 01098 M01S01097.1ss +++| STM TBUF+3 01099 M01S01098.1ss +++| AOM HBUF+1*5+4 INCREMENT STRIPE IN VOLUME 01100 M01S01099.1ss +++| STM TBUF+1*5+4 01101 M01S01100.1ss +++| LDN 2 01102 M01S01101.1ss +++| STD T1 01103 M01S01102.1ss +++| FETA HDRW 01104 M01S01103.1ss +++| CWM HBUF,T1 01105 M01S01104.1ss +++| LDN DRCM 01106 M01S01105.1ss +++| STD CM 01107 M01S01106.1ss +++| LDD OA 01108 M01S01107.1ss +++| CWD CM RECALL CPU 01109 M01S01108.1ss +++| AOD SC 01110 M01S01109.1ss +++| SBN STRPAU 01111 M01S01110.1ss +++| NJN WDA21 IF NOT FULL AU 01112 M01S01111.1ss +++| STD SC 01113 M01S01112.1ss +++| AOD RC 01114 M01S01113.1ss +++| LDN 0 FLAG WRITE 01115 M01S01114.1ss +++| RJM RCL PAUSE AND CHECK ERROR FLAG 01116 M01S01115.1ss +++| WDA21 FETA 4 01117 M01S01116.1ss +++| CRD CM READ LIMIT WORD 01118 M01S01117.1ss +++| LDD CM+3 01119 M01S01118.1ss +++| SHN -6 01120 M01S01119.1ss +++| ZJN WDA22 IF TERMINATE FLAG NOT SET 01121 M01S01120.1ss +++| ERROR RCTERF TERMINATE FLAG RETURN 01122 M01S01121.1ss +++| 01123 M01S01122.1ss +++| WDA22 LDD SC 01124 M01S01123.1ss +++| NJN WDA23 IF NOT END OF AU 01125 M01S01124.1ss +++| RJM CMG CHECK FOR MESSAGES 01126 M01S01125.1ss +++| WDA23 LJM WDA0 CONTINUE WRITE 01127 M01S01126.1ss +++| WMS SPACE 4,10 01128 M01S01127.1ss +++|** WMS - WRITE MESSAGE AND ASSOCIATED DATA. 01129 M01S01128.1ss +++|* 01130 M01S01129.1ss +++|* ENTRY (FE - FE+1) = MESSAGE OUTPUT FET. 01131 M01S01130.1ss +++|* 01132 M01S01131.1ss +++|* EXIT ALL MESSAGES OUTPUT TO M860. 01133 M01S01132.1ss +++|* 01134 M01S01133.1ss +++|* CALLS COB, DV3, DV5, FCN, IBP, RMB, REL, RES, SCB, STS. 01135 M01S01134.1ss +++|* CMD, CSM, GMT. 01136 M01S01135.1ss +++|* 01137 M01S01136.1ss +++|* USES T4, CM - CM+4, BC, WC. 01138 M01S01137.1ss +++| 01139 M01S01138.1ss +++| 01140 M01S01139.1ss +++| WMS SUBR ENTRY/EXIT 01141 M01S01140.1ss +++| LDN 1 01142 M01S01141.1ss +++| STM WMSA CLEAR RESTART CONTROL UNIT FLAG 01143 M01S01142.1ss +++| RJM IBP INITIALIZE BUFFER PARAMETERS 01144 M01S01143.1ss +++| RJM COB CHECK OUTPUT BUFFER 01145 M01S01144.1ss +++| ZJN WMSX IF NO MESSAGES 01146 M01S01145.1ss +++| FETA CHECK FOR ERROR CODE SET 01147 M01S01146.1ss +++| CRD CM 01148 M01S01147.1ss +++| LDD CM+4 01149 M01S01148.1ss +++| SHN 21-0 01150 M01S01149.1ss +++| MJN WMSX IF COMPLETE 01151 M01S01150.1ss +++| LDD CM+4 01152 M01S01151.1ss +++| SHN -12 01153 M01S01152.1ss +++| SHN 6 01154 M01S01153.1ss +++| LMD CM+3 01155 M01S01154.1ss +++| NJN WMSX IF ERROR CODE SET 01156 M01S01155.1ss +++| RJM RES RESERVE CHANNEL 01157 M01S01156.1ss +++| WMS0 RJM COB CHECK OUTPUT BUFFER 01158 M01S01157.1ss +++| NJN WMS1 IF MESSAGE(S) IN BUFFER 01159 M01S01158.1ss +++| MONITOR DRCM RECALL CPU 01160 M01S01159.1ss +++| LDC ** RESTART CONTROL UNIT FLAG 01161 M01S01160.1ss +++| WMSA EQU *-1 01162 M01S01161.1ss +++| NJN WMS0.1 IF CONTROL UNIT NOT RESTARTED 01163 M01S01162.1ss +++| LDN RISF 01164 M01S01163.1ss +++| RJM STS IGNORE ANY OUTSTANDING INTERRUPTS 01165 M01S01164.1ss +++| WMS0.1 RJM REL RELEASE CHANNEL 01166 M01S01165.1ss +++| LJM WMSX RETURN 01167 M01S01166.1ss +++| 01168 M01S01167.1ss +++| WMS1 SBN MSWC 01169 M01S01168.1ss +++| PJN WMS2 IF ENOUGH DATA 01170 M01S01169.1ss +++| ERROR RCDLER DATA LENGTH ERROR 01171 M01S01170.1ss +++| 01172 M01S01171.1ss +++| WMS2 LDN MSWC 01173 M01S01172.1ss +++| STD WC 01174 M01S01173.1ss +++| RJM RMB READ MESSAGE 01175 M01S01174.1ss +++| TRCG LDN 0 01176 M01S01175.1ss +++| ZJN WMS2.1 IF NOT TRACE MODE 01177 M01S01176.1ss +++| LDC 2ROT 01178 M01S01177.1ss +++| RJM MDF MESSAGE TYPE TO DAYFILE 01179 M01S01178.1ss +++| WMS2.1 LDN CMWF 01180 M01S01179.1ss +++| RJM CMD CONNECT TO MESSAGE WRITE DEVICE 01181 M01S01180.1ss +++| LDC BRTL 01182 M01S01181.1ss +++| STM WMSB RETRY LIMIT 01183 M01S01182.1ss +++| WMS2.2 LDN MWRF 01184 M01S01183.1ss +++| RJM FCN ISSUE MESSAGE WRITE FUNCTION 01185 M01S01184.1ss +++| LDN MSBC 01186 M01S01185.1ss +++| ACN CH 01187 M01S01186.1ss +++| OAM BUFR,CH OUTPUT MESSAGE 01188 M01S01187.1ss +++| FJM *,CH WAIT FOR LAST BYTE 01189 M01S01188.1ss +++| DCN CH+40 01190 M01S01189.1ss +++| STD BC 01191 M01S01190.1ss +++| LDN GSTF 01192 M01S01191.1ss +++| RJM STS WAIT END OF OPERATION 01193 M01S01192.1ss +++| SHN 21-13 01194 M01S01193.1ss +++| PJN WMS3 IF NO ERROR 01195 M01S01194.1ss +++| SHN 13-1 01196 M01S01195.1ss +++| PJN WMS2.3 IF NOT BUSY 01197 M01S01196.1ss +++| SOM WMSB 01198 M01S01197.1ss +++| MJN WMS2.3 IF RETRY LIMIT 01199 M01S01198.1ss +++| RJM REL RELEASE CHANNEL 01200 M01S01199.1ss +++| RJM BDL BUSY DELAY 01201 M01S01200.1ss +++| RJM RES RESERVE CHANNEL 01202 M01S01201.1ss +++| LJM WMS2.2 RETRY 01203 M01S01202.1ss +++| 01204 M01S01203.1ss +++| WMS2.3 ERROR RCSTER STATUS ERROR 01205 M01S01204.1ss +++| 01206 M01S01205.1ss +++| WMS3 LDD BC 01207 M01S01206.1ss +++| ZJN WMS4 IF FULL BLOCK 01208 M01S01207.1ss +++| ERROR RCCHOT CHANNEL HANG 01209 M01S01208.1ss +++| 01210 M01S01209.1ss +++| WMS4 RJM GMT GET MESSAGE TYPE 01211 M01S01210.1ss +++| LMN 0#1C 01212 M01S01211.1ss +++| STM WMSA SET/CLEAR RESTART FLAG 01213 M01S01212.1ss +++| LMN 0#1C 01214 M01S01213.1ss +++| RJM CSM CHECK SPECIAL MESSAGE 01215 M01S01214.1ss +++| LDM BUFR+2 01216 M01S01215.1ss +++| SHN -4 01217 M01S01216.1ss +++| STD BC ASSOCIATED DATA BYTE COUNT 01218 M01S01217.1ss +++| LDM BUFR+1 01219 M01S01218.1ss +++| LPC 377 01220 M01S01219.1ss +++| SHN 10 01221 M01S01220.1ss +++| RAD BC 01222 M01S01221.1ss +++| NJN WMS6 IF ASSOCIATED DATA 01223 M01S01222.1ss +++| WMS5 RJM UCO UPDATE CENTRAL OUT 01224 M01S01223.1ss +++| LJM WMS0 CHECK FOR MORE MESSAGES 01225 M01S01224.1ss +++| 01226 M01S01225.1ss +++| WMS6 ADC -MXAD 01227 M01S01226.1ss +++| MJN WMS7 IF BLOCK NOT TOO BIG 01228 M01S01227.1ss +++| ZJN WMS7 IF BLOCK NOT TOO BIG 01229 M01S01228.1ss +++| ERROR RCDLER DATA LENGTH ERROR 01230 M01S01229.1ss +++| 01231 M01S01230.1ss +++| WMS7 ADC MXAD 01232 M01S01231.1ss +++| SHN 1 *2 01233 M01S01232.1ss +++| STD T4 01234 M01S01233.1ss +++| RJM DV3 /3 = PP BYTE COUNT 01235 M01S01234.1ss +++| STD BC 01236 M01S01235.1ss +++| RJM DV5 GET CM WORD COUNT 01237 M01S01236.1ss +++| STD WC 01238 M01S01237.1ss +++| RJM COB CHECK OUTPUT FET 01239 M01S01238.1ss +++| SBD WC 01240 M01S01239.1ss +++| PJN WMS8 IF DATA IN BUFFER 01241 M01S01240.1ss +++| ERROR RCDLER DATA LENGTH ERROR 01242 M01S01241.1ss +++| 01243 M01S01242.1ss +++| WMS8 RJM RMB READ DATA TO PP 01244 M01S01243.1ss +++| LDC BRTL 01245 M01S01244.1ss +++| STM WMSB RETRY LIMIT 01246 M01S01245.1ss +++| WMS8.1 LDD BC 01247 M01S01246.1ss +++| SHN 1 *2 01248 M01S01247.1ss +++| ADD BC *3 01249 M01S01248.1ss +++| SBD T4 REMAINDER FROM DIVISION BY 3 01250 M01S01249.1ss +++| LPN 2 REMAINDER OF 2 = WRITE SHORT 01251 M01S01250.1ss +++| SHN 6 01252 M01S01251.1ss +++| ERRNZ SWRF-WRTF-200 01253 M01S01252.1ss +++| ADN WRTF 01254 M01S01253.1ss +++| RJM FCN ISSUE WRITE FUNCTION 01255 M01S01254.1ss +++| LDD BC 01256 M01S01255.1ss +++| STD WC SAVE FOR RETRY 01257 M01S01256.1ss +++| ACN CH 01258 M01S01257.1ss +++| OAM BUFR,CH SEND ASSOC. DATA 01259 M01S01258.1ss +++| FJM *,CH WAIT FOR LAST BYTE 01260 M01S01259.1ss +++| DCN CH+40 01261 M01S01260.1ss +++| STD BC 01262 M01S01261.1ss +++| LDN GSTF 01263 M01S01262.1ss +++| RJM STS WAIT END OF OPERATION 01264 M01S01263.1ss +++| SHN 21-13 01265 M01S01264.1ss +++| PJN WMS9 IF NO ERROR 01266 M01S01265.1ss +++| SHN 13-1 01267 M01S01266.1ss +++| PJN WMS8.2 IF NOT BUSY 01268 M01S01267.1ss +++| SOM WMSB 01269 M01S01268.1ss +++| MJN WMS8.2 IF RETRY LIMIT 01270 M01S01269.1ss +++| RJM REL RELEASE CHANNEL 01271 M01S01270.1ss +++| RJM BDL BUSY DELAY 01272 M01S01271.1ss +++| RJM RES RESERVE CHANNEL 01273 M01S01272.1ss +++| LDD WC 01274 M01S01273.1ss +++| STD BC RESTORE BYTE COUNT 01275 M01S01274.1ss +++| LJM WMS8.1 RETRY 01276 M01S01275.1ss +++| 01277 M01S01276.1ss +++| WMS8.2 ERROR RCSTER STATUS ERROR 01278 M01S01277.1ss +++| 01279 M01S01278.1ss +++| WMS9 LDD BC 01280 M01S01279.1ss +++| ZJN WMS10 IF FULL BLOCK 01281 M01S01280.1ss +++| ERROR RCCHOT CHANNEL HANG 01282 M01S01281.1ss +++| 01283 M01S01282.1ss +++| WMS10 LJM WMS5 UPDATE FET 01284 M01S01283.1ss +++| 01285 M01S01284.1ss +++| 01286 M01S01285.1ss +++| WMSB CON BRTL RETRY LIMIT 01287 M01S01286.1ss +++| TITLE SUBROUTINES. 01288 M01S01287.1ss +++| TITLE I/O SUBROUTINES. 01289 M01S01288.1ss +++| CKM SPACE 4,10 01290 M01S01289.1ss +++|** CKM - CHECK FOR MESSAGE. 01291 M01S01290.1ss +++|* 01292 M01S01291.1ss +++|* ENTRY (MW) .NE. 0, IF MESSAGE ALREADY WAITING. 01293 M01S01292.1ss +++|* 01294 M01S01293.1ss +++|* EXIT (MW) = 0, IF NO MESSAGE WAITING FOR BUFFER. 01295 M01S01294.1ss +++|* 01296 M01S01295.1ss +++|* CALLS RES, RMS, STS. 01297 M01S01296.1ss +++|* 01298 M01S01297.1ss +++|* USES MW. 01299 M01S01298.1ss +++| 01300 M01S01299.1ss +++| 01301 M01S01300.1ss +++| CKM SUBR ENTRY/EXIT 01302 M01S01301.1ss +++| RJM RES RESERVE CHANNEL 01303 M01S01302.1ss +++| LDD MW 01304 M01S01303.1ss +++| NJN CKM1 IF MESSAGE WAITING 01305 M01S01304.1ss +++| LDN RISF 01306 M01S01305.1ss +++| RJM STS REQUEST INTERRUPT STATUS
Line S01306 Modification History | |
---|---|
M01 (Added by) | 1ss |
M02 (Updated by) | 1ss1 |
Seq # *Modification Id* Act ----------------------------+ 01307 M02S01306.1ss1 ---| LDD ST 01308 M01S01307.1ss +++| SHN 21-10 01309 M01S01308.1ss +++| MJN CKM1 IF MESSAGE READY 01310 M01S01309.1ss +++| RJM REL RELEASE CHANNEL 01311 M01S01310.1ss +++| UJN CKMX RETURN 01312 M01S01311.1ss +++| 01313 M01S01312.1ss +++| CKM1 RJM RMS READ MESSAGE 01314 M01S01313.1ss +++| STD MW SAVE BUFFER STATUS 01315 M01S01314.1ss +++| UJN CKMX RETURN 01316 M01S01315.1ss +++| CMD SPACE 4,10 01317 M01S01316.1ss +++|** CMD - CONNECT TO MESSAGE DEVICE. 01318 M01S01317.1ss +++|* 01319 M01S01318.1ss +++|* ENTRY (A) = CONNECT FUNCTION CODE. 01320 M01S01319.1ss +++|* CHANNEL RESERVED. 01321 M01S01320.1ss +++|* 01322 M01S01321.1ss +++|* EXIT MESSAGE DEVICE CONNECTED. 01323 M01S01322.1ss +++|* 01324 M01S01323.1ss +++|* CALLS FCN, STS. 01325 M01S01324.1ss +++|* 01326 M01S01325.1ss +++|* USES NONE. 01327 M01S01326.1ss +++| 01328 M01S01327.1ss +++| 01329 M01S01328.1ss +++| CMD SUBR ENTRY/EXIT 01330 M01S01329.1ss +++| STM CMDA SAVE FUNCTION CODE 01331 M01S01330.1ss +++| LDC BRTL 01332 M01S01331.1ss +++| STM CMDB RETRY LIMIT 01333 M01S01332.1ss +++| CMD0 LDC ** 01334 M01S01333.1ss +++| CMDA EQU *-1 01335 M01S01334.1ss +++| RJM FCN ISSUE CONNECT FUNCTION 01336 M01S01335.1ss +++| LDN GSTF 01337 M01S01336.1ss +++| RJM STS GET STATUS 01338 M01S01337.1ss +++| SHN 21-13 01339 M01S01338.1ss +++| PJN CMDX IF NOT ALERT 01340 M01S01339.1ss +++| SOM CMDB 01341 M01S01340.1ss +++| MJN CMD0.0 IF RETRY LIMIT 01342 M01S01341.1ss +++| RJM REL RELEASE CHANNEL 01343 M01S01342.1ss +++| RJM BDL BUSY DELAY 01344 M01S01343.1ss +++| RJM RES RESERVE CHANNEL 01345 M01S01344.1ss +++| UJN CMD0 RETRY 01346 M01S01345.1ss +++| 01347 M01S01346.1ss +++| CMD0.0 LDM STEC ERROR CODE 01348 M01S01347.1ss +++| LMC 170 01349 M01S01348.1ss +++| NJN CMD1 IF CHANNEL INTERFACE ONLINE 01350 M01S01349.1ss +++| ERROR RCCIFO CHANNEL INTERFACE OFF LINE 01351 M01S01350.1ss +++| 01352 M01S01351.1ss +++| CMD1 ERROR RCIMPL 01353 M01S01352.1ss +++| 01354 M01S01353.1ss +++| 01355 M01S01354.1ss +++| CMDB CON BRTL RETRY COUNTER 01356 M01S01355.1ss +++| CMG SPACE 4,10 01357 M01S01356.1ss +++|** CMG - CHECK FOR MESSAGES. 01358 M01S01357.1ss +++|* 01359 M01S01358.1ss +++|* ENTRY CHANNEL RESERVED. 01360 M01S01359.1ss +++|* 01361 M01S01360.1ss +++|* EXIT NORMAL, IF NO MESSAGES TO SEND/RECEIVE. 01362 M01S01361.1ss +++|* TO *SSD1* IF MESSAGES TO PROCESS. 01363 M01S01362.1ss +++|* 01364 M01S01363.1ss +++|* CALLS REL, STS. 01365 M01S01364.1ss +++|* 01366 M01S01365.1ss +++|* USES CM - CM+4, CN - CN+4, MW. 01367 M01S01366.1ss +++| 01368 M01S01367.1ss +++| 01369 M01S01368.1ss +++| CMG SUBR ENTRY/EXIT 01370 M01S01369.1ss +++| LDN RISF 01371 M01S01370.1ss +++| RJM STS GET MESSAGE STATUS 01372 M01S01371.1ss +++| SHN 21-10 01373 M01S01372.1ss +++| PJN CMG2 IF NO M860 MESSAGE 01374 M01S01373.1ss +++| AOD MW FLAG MESSAGE READY 01375 M01S01374.1ss +++| CMG1 RJM REL RELEASE CHANNEL 01376 M01S01375.1ss +++| LJM SSD1 PROCESS MESSAGES 01377 M01S01376.1ss +++| 01378 M01S01377.1ss +++| CMG2 LDM SSDA-1 CHECK MESSAGE FROM EXEC. 01379 M01S01378.1ss +++| LPN 77 01380 M01S01379.1ss +++| SHN 6 01381 M01S01380.1ss +++| ADD RA 01382 M01S01381.1ss +++| SHN 6 01383 M01S01382.1ss +++| ADM SSDA 01384 M01S01383.1ss +++| ADN 2 IN POINTER 01385 M01S01384.1ss +++| CRD CM 01386 M01S01385.1ss +++| ADN 1 01387 M01S01386.1ss +++| CRD CN OUT POINTER 01388 M01S01387.1ss +++| LDD CM+3 01389 M01S01388.1ss +++| LMD CN+3 01390 M01S01389.1ss +++| NJN CMG1 IF IN .NE. OUT 01391 M01S01390.1ss +++| LDD CM+4 01392 M01S01391.1ss +++| LMD CN+4 01393 M01S01392.1ss +++| NJN CMG1 IF IN .NE. OUT 01394 M01S01393.1ss +++| LJM CMGX RETURN 01395 M01S01394.1ss +++| CON SPACE 4,10 01396 M01S01395.1ss +++|** CON - CONNECT UNIT. 01397 M01S01396.1ss +++|* 01398 M01S01397.1ss +++|* ENTRY (UN) = UNIT NUMBER. 01399 M01S01398.1ss +++|* 01400 M01S01399.1ss +++|* EXIT CHANNEL RESERVED, UNIT CONNECTED AND NOT BUSY. 01401 M01S01400.1ss +++|* 01402 M01S01401.1ss +++|* CALLS FCN, RES, STS. 01403 M01S01402.1ss +++|* 01404 M01S01403.1ss +++|* USES NONE. 01405 M01S01404.1ss +++| 01406 M01S01405.1ss +++| 01407 M01S01406.1ss +++| CON SUBR ENTRY/EXIT 01408 M01S01407.1ss +++| RJM WUM WAIT UNIT MOUNTED 01409 M01S01408.1ss +++| LDC BRTL 01410 M01S01409.1ss +++| STM CONA INITIALIZE BUSY RETRY LIMIT 01411 M01S01410.1ss +++| CON1 RJM RES RESERVE CHANNEL 01412 M01S01411.1ss +++| LDN CONF 01413 M01S01412.1ss +++| ADD UN 01414 M01S01413.1ss +++| RJM FCN CONNECT UNIT 01415 M01S01414.1ss +++| LDN GSTF 01416 M01S01415.1ss +++| RJM STS GET STATUS 01417 M01S01416.1ss +++| SHN 21-13 01418 M01S01417.1ss +++| PJN CONX IF NO ALERT 01419 M01S01418.1ss +++| LDM STEC GET ERROR CODE 01420 M01S01419.1ss +++| LMN 2 01421 M01S01420.1ss +++| ZJN CON2 IF BUSY CODE 01422 M01S01421.1ss +++| LMC 2&165 01423 M01S01422.1ss +++| NJN CON3 IF NOT SENSE ERROR 01424 M01S01423.1ss +++| CON2 RJM REL RELEASE CHANNEL 01425 M01S01424.1ss +++| SOM CONA 01426 M01S01425.1ss +++| ZJN CON3 IF RETRY LIMIT 01427 M01S01426.1ss +++| RJM BDL BUSY DELAY 01428 M01S01427.1ss +++| UJN CON1 TRY AGAIN 01429 M01S01428.1ss +++| 01430 M01S01429.1ss +++| CON3 ERROR RCSTER STATUS ERROR 01431 M01S01430.1ss +++| 01432 M01S01431.1ss +++| 01433 M01S01432.1ss +++| CONA CON BRTL BUSY RETRY LIMIT 01434 M01S01433.1ss +++| CSM SPACE 4,10 01435 M01S01434.1ss +++|** CSM - CHECK SPECIAL MESSAGE. 01436 M01S01435.1ss +++|* 01437 M01S01436.1ss +++|* ENTRY (A) = MESSAGE CODE. 01438 M01S01437.1ss +++|* 01439 M01S01438.1ss +++|* EXIT SPECIAL MESSAGES PROCESSED. 01440 M01S01439.1ss +++|* 01441 M01S01440.1ss +++|* CALLS FCN, STS. 01442 M01S01441.1ss +++|* 01443 M01S01442.1ss +++|* USES CM - CM+4. 01444 M01S01443.1ss +++| 01445 M01S01444.1ss +++| 01446 M01S01445.1ss +++| CSM SUBR ENTRY/EXIT 01447 M01S01446.1ss +++| LMN 0#06 01448 M01S01447.1ss +++| NJN CSM1 IF NOT MOUNT VOLUME 01449 M01S01448.1ss +++| LDM BUFR+5 GET UNIT NUMBER 01450 M01S01449.1ss +++| SHN -10 01451 M01S01450.1ss +++| ADC WUMF PRIME FSC FOR READY INTERRUPT 01452 M01S01451.1ss +++| RJM FCN ISSUE FUNCTION 01453 M01S01452.1ss +++| UJN CSMX RETURN 01454 M01S01453.1ss +++| 01455 M01S01454.1ss +++| CSM1 LMC 0#06&0#81 01456 M01S01455.1ss +++| NJN CSMX IF NOT RESPONSE TO REWIND/UNLOAD MSG 01457 M01S01456.1ss +++| LDC RTCL 01458 M01S01457.1ss +++| CRD CM READ REALTIME CLOCK 01459 M01S01458.1ss +++| LDD CM+1 SECONDS 01460 M01S01459.1ss +++| ADC EOPL END OF OP. LIMIT 01461 M01S01460.1ss +++| STM CMSA 01462 M01S01461.1ss +++| CSM2 LDM BUFR+5 GET UNIT NUMBER 01463 M01S01462.1ss +++| SHN -10 01464 M01S01463.1ss +++| ADC CDEF CHECK FOR INTERRUPT 01465 M01S01464.1ss +++| RJM STS GET STATUS 01466 M01S00001.1ss1 +++| SHN 21-13 01467 M01S01465.1ss +++| MJN CSM4 IF ALERT 01468 M01S01466.1ss +++| CSM3 LJM CSMX RETURN 01469 M01S01467.1ss +++| CSM4 LDM STEC ERROR CODE 01470 M01S01468.1ss +++| LMN 2 01471 M01S01469.1ss +++| NJN CSM3 IF NOT BUSY(EXPECT ALERT/EC=131) 01472 M01S01470.1ss +++| RJM REL PAUSE CHECK ERROR FLG 01473 M01S01471.1ss +++| LDC RTCL 01474 M01S01472.1ss +++| CRD CM READ REALTIME CLOCK 01475 M01S01473.1ss +++| LDD CM+1 SECONDS 01476 M01S01474.1ss +++| LMC ** 01477 M01S01475.1ss +++| CMSA EQU *-1 01478 M01S01476.1ss +++| ZJN CSM5 IF TIMEOUT 01479 M01S01477.1ss +++| RJM RES RESERVE CHANNEL 01480 M01S01478.1ss +++| UJN CSM2 CHECK AGAIN 01481 M01S01479.1ss +++| 01482 M01S01480.1ss +++| CSM5 ERROR RCNEOP NO END OF OPERATION 01483 M01S01481.1ss +++| DST SPACE 4,10 01484 M01S01482.1ss +++|** DST - DIAGNOSTIC STATUS. 01485 M01S01483.1ss +++|* 01486 M01S01484.1ss +++|* ENTRY CHANNEL RESERVED. 01487 M01S01485.1ss +++|* 01488 M01S01486.1ss +++|* EXIT TO CALLER IF NO ERROR. 01489 M01S01487.1ss +++|* TO ERR IF ERROR 01490 M01S01488.1ss +++|* 01491 M01S01489.1ss +++|* CALLS NONE. 01492 M01S01490.1ss +++|* 01493 M01S01491.1ss +++|* USES T0. 01494 M01S01492.1ss +++| 01495 M01S01493.1ss +++| 01496 M01S01494.1ss +++| DST SUBR ENTRY/EXIT 01497 M01S01495.1ss +++| DCN CH+40 INSURE INACTIVE CHANNEL 01498 M01S01496.1ss +++| FNC DSTF,CH ISSUE DIAGNOSTIC STATUS FUNCTION 01499 M01S01497.1ss +++| LCN 0 01500 M01S01498.1ss +++| DST1 IJM DST2,CH IF FUNCTION ACCEPTED 01501 M01S01499.1ss +++| SBN 1 01502 M01S01500.1ss +++| NJN DST1 IF NOT TIMEOUT 01503 M01S01501.1ss +++| ERROR RCFCTO FUNCTION TIMEOUT 01504 M01S01502.1ss +++| 01505 M01S01503.1ss +++| DST2 ACN CH 01506 M01S01504.1ss +++| LCN 0 01507 M01S01505.1ss +++| DST3 FJM DST5,CH IF STATUS READY 01508 M01S01506.1ss +++| SBN 1 01509 M01S01507.1ss +++| NJN DST3 IF NOT TIMEOUT 01510 M01S01508.1ss +++| DST4 ERROR RCCHMF CHANNEL MALFUNCTION 01511 M01S01509.1ss +++| 01512 M01S01510.1ss +++| DST5 LCN 0 01513 M01S01511.1ss +++| IAN CH+40 01514 M01S01512.1ss +++| DCN CH+40 01515 M01S01513.1ss +++| MJN DST4 IF NO DATA READ 01516 M01S01514.1ss +++| STM DSTS PUT IN STATUS BUFFER 01517 M01S01515.1ss +++| LPC 3003 01518 M01S01516.1ss +++| LMN 2 01519 M01S01517.1ss +++| ZJN DSTX IF NO ERROR 01520 M01S01518.1ss +++| SHN 21-12 01521 M01S01519.1ss +++| PJN DST6 IF NOT CHANNEL PARITY ERROR 01522 M01S01520.1ss +++| ERROR RCCHPE 01523 M01S01521.1ss +++| 01524 M01S01522.1ss +++| DST6 SHN 12-11 01525 M01S01523.1ss +++| PJN DST7 IF NOT FSC MEMORY PARITY ERROR 01526 M01S01524.1ss +++| ERROR RCFSPE 01527 M01S01525.1ss +++| 01528 M01S01526.1ss +++| DST7 SHN 11-0 01529 M01S01527.1ss +++| MJN DST8 IF PROCESSOR RUNNING 01530 M01S01528.1ss +++| ERROR RCFSNR 01531 M01S01529.1ss +++| 01532 M01S01530.1ss +++| DST8 ERROR RCFSAB FSC ABNORMAL 01533 M01S01531.1ss +++| FCN SPACE 4,10 01534 M01S01532.1ss +++|** FCN - FUNCTION M860 MSS INTERFACE. 01535 M01S01533.1ss +++|* 01536 M01S01534.1ss +++|* ENTRY (A) = FUNCTION CODE TO BE ISSUED. 01537 M01S01535.1ss +++|* 01538 M01S01536.1ss +++|* EXIT FUNCTION ISSUED, TO ERR IF ERROR. 01539 M01S01537.1ss +++|* 01540 M01S01538.1ss +++|* CALLS DST. 01541 M01S01539.1ss +++|* 01542 M01S01540.1ss +++|* USES CL, CN - CN+4. 01543 M01S01541.1ss +++| 01544 M01S01542.1ss +++| 01545 M01S01543.1ss +++| FCN SUBR ENTRY/EXIT 01546 M01S01544.1ss +++| STM FSTS+16D SAVE FUNCTION IN DETAIL STATUS BLOCK 01547 M01S01545.1ss +++| ADD EQ SET EQUIPMENT NUMBER 01548 M01S01546.1ss +++| FAN CH ISSUE FUNCTION 01549 M01S01547.1ss +++| LDC RTCL SET TIMEOUT CLOCK 01550 M01S01548.1ss +++| CRD CN 01551 M01S01549.1ss +++| LDD CN+1 SECOND COUNT 01552 M01S01550.1ss +++| ADC FTOL FUNCTION TIMEOUT LIMIT 01553 M01S01551.1ss +++| STD CL 01554 M01S00001.msea022 +++| LDN 1 01555 M01S01552.1ss +++| FCN1 IJM FCNX,CH IF ACCEPTED 01556 M01S01553.1ss +++| ADN 1
Line S01554 Modification History | |
---|---|
M01 (Added by) | 1ss |
M02 (Updated by) | msea022 |
Seq # *Modification Id* Act ----------------------------+ 01557 M02S01554.msea022 ---| PJN FCN1 IF NOT TIMEOUT 01558 M01S00002.msea022 +++| NJN FCN1 IF NOT TIMEOUT 01559 M01S01555.1ss +++| PAUSE 01560 M01S01556.1ss +++| LDD CM+1 01561 M01S01557.1ss +++| ZJN FCN1.0 IF NO ERROR FLAG 01562 M01S01558.1ss +++| RJM REL RELEASE CHANNEL 01563 M01S01559.1ss +++| LJM DPP DROP PP 01564 M01S01560.1ss +++| 01565 M01S01561.1ss +++| FCN1.0 LDC RTCL READ CLOCK 01566 M01S01562.1ss +++| CRD CN 01567 M01S01563.1ss +++| LDD CL 01568 M01S01564.1ss +++| LMD CN+1 01569 M01S01565.1ss +++| NJN FCN1 IF NOT TIMEOUT 01570 M01S01566.1ss +++| DCN CH+40 01571 M01S01567.1ss +++| LDN GSTF 01572 M01S01568.1ss +++| FAN CH TRY TO GET GENERAL STATUS 01573 M01S01569.1ss +++| FCN2 IJM FCN3,CH IF ACCEPTED 01574 M01S01570.1ss +++| ADN 1 01575 M01S01571.1ss +++| PJN FCN2 IF NOT TIMEOUT 01576 M01S01572.1ss +++| UJN FCN8 TIMEOUT 01577 M01S01573.1ss +++| 01578 M01S01574.1ss +++| FCN3 ACN CH 01579 M01S01575.1ss +++| LDN 1 01580 M01S01576.1ss +++| FCN4 FJM FCN5,CH IF STATUS READY 01581 M01S01577.1ss +++| ADN 1 01582 M01S01578.1ss +++| PJN FCN4 IF NOT TIMEOUT 01583 M01S01579.1ss +++| UJN FCN8 TIMEOUT 01584 M01S01580.1ss +++| 01585 M01S01581.1ss +++| FCN5 LDN GSTL 01586 M01S01582.1ss +++| IAM GSTS,CH READ GENERAL STATUS 01587 M01S01583.1ss +++| NJN FCN8 IF NOT ALL STATUS READ 01588 M01S01584.1ss +++| DCN CH+40 01589 M01S01585.1ss +++| FNC FSTF,CH DETAIL STATUS 01590 M01S01586.1ss +++| FCN6 IJM FCN7,CH IF ACCEPTED 01591 M01S01587.1ss +++| ADN 1 01592 M01S01588.1ss +++| PJN FCN6 IF NOT TIMEOUT 01593 M01S01589.1ss +++| UJN FCN8 TIMEOUT 01594 M01S01590.1ss +++| 01595 M01S01591.1ss +++| FCN7 ACN CH 01596 M01S01592.1ss +++| LDN DSTL 01597 M01S01593.1ss +++| IAM FSTS,CH READ DETAIL STATUS 01598 M01S01594.1ss +++| FCN8 DCN CH+40 01599 M01S01595.1ss +++| RJM DST GET DIAGNOSTIC STATUS 01600 M01S01596.1ss +++| ERROR RCFCTO FUNCTION TIMEOUT 01601 M01S01597.1ss +++| FIN SPACE 4,10 01602 M01S01598.1ss +++|** FIN - FLUSH INPUT. 01603 M01S01599.1ss +++|* 01604 M01S01600.1ss +++|* ENTRY CHANNEL ACTIVE. 01605 M01S01601.1ss +++|* 01606 M01S01602.1ss +++|* EXIT INPUT OPERATION COMPLETE. 01607 M01S01603.1ss +++|* 01608 M01S01604.1ss +++|* CALLS NONE. 01609 M01S01605.1ss +++|* 01610 M01S01606.1ss +++|* USES NONE. 01611 M01S01607.1ss +++| 01612 M01S01608.1ss +++| 01613 M01S01609.1ss +++| FIN SUBR ENTRY/EXIT 01614 M01S01610.1ss +++| FIN1 IJM FINX,CH IF COMPLETE 01615 M01S01611.1ss +++| LCN 0 01616 M01S01612.1ss +++| FIN2 FJM FIN3,CH IF INPUT READY 01617 M01S01613.1ss +++| SBN 1 01618 M01S01614.1ss +++| NJN FIN2 IF NOT TIMEOUT 01619 M01S01615.1ss +++| DCN CH+40 01620 M01S01616.1ss +++| UJN FINX RETURN 01621 M01S01617.1ss +++| 01622 M01S01618.1ss +++| FIN3 IAN CH+40 01623 M01S01619.1ss +++| UJN FIN1 GET NEXT BYTE 01624 M01S01620.1ss +++| MCL SPACE 4,15 01625 M01S01621.1ss +++|** MCL - MASTER CLEAR FSC. 01626 M01S01622.1ss +++|* 01627 M01S01623.1ss +++|* ENTRY CHANNEL RESERVED. 01628 M01S01624.1ss +++|* 01629 M01S01625.1ss +++|* EXIT FSC MASTERCLEARED. 01630 M01S01626.1ss +++|* 01631 M01S01627.1ss +++|* CALLS NONE. 01632 M01S01628.1ss +++|* 01633 M01S01629.1ss +++|* USES T0. 01634 M01S01630.1ss +++| 01635 M01S01631.1ss +++| 01636 M01S01632.1ss +++| MCL SUBR ENTRY/EXIT 01637 M01S01633.1ss +++| DCN CH+40 INSURE CHANNEL INACTIVE 01638 M01S01634.1ss +++| FNC MCLF,CH MASTERCLEAR 01639 M01S01635.1ss +++| LDN 12 01640 M01S01636.1ss +++| STD T0 01641 M01S01637.1ss +++| MCL1 SOD T0 01642 M01S01638.1ss +++| MJN MCL3 IF TIMEOUT 01643 M01S01639.1ss +++| MCL2 ADN 1 01644 M01S01640.1ss +++| PJN MCL2 DELAY 01645 M01S01641.1ss +++| AJM MCL1,CH IF NOT PROCESSED 01646 M01S01642.1ss +++| ACN CH 01647 M01S01643.1ss +++| OAN CH 01648 M01S01644.1ss +++| OAN CH 01649 M01S01645.1ss +++| DELAY 01650 M01S01646.1ss +++| MCL3 DCN CH+40 01651 M01S01647.1ss +++| UJN MCLX RETURN 01652 M01S01648.1ss +++| MDF SPACE 4,10 01653 M01S01649.1ss +++|** MDF - MESSAGE TYPE TO DAYFILE. 01654 M01S01650.1ss +++|* 01655 M01S01651.1ss +++|* ENTRY (BUFR+2,3) = MESSAGE TYPE, SUBTYPE. 01656 M01S01652.1ss +++|* (A) = *IN* OR *OT*. 01657 M01S01653.1ss +++|* 01658 M01S01654.1ss +++|* EXIT MESSAGE TO LOCAL DAYFILE. 01659 M01S01655.1ss +++|* 01660 M01S01656.1ss +++|* USES CM. 01661 M01S01657.1ss +++|* 01662 M01S01658.1ss +++|* CALLS CTH, DFM. 01663 M01S01659.1ss +++| 01664 M01S01660.1ss +++| 01665 M01S01661.1ss +++| MDF SUBR ENTRY/EXIT 01666 M01S01662.1ss +++| STM MDFC 01667 M01S01663.1ss +++| CHTE * 01668 M01S01664.1ss +++| LDN 0 01669 M01S01665.1ss +++| STD T0 01670 M01S01666.1ss +++| SHN 3 01671 M01S01667.1ss +++| LMD T0 01672 M01S01668.1ss +++| SCN 70 01673 M01S01669.1ss +++| ADC 2R00 01674 M01S01670.1ss +++| STM MDFAA+1 01675 M01S01671.1ss +++| LDM BUFR+2 FIRST DIGIT OF TYPE 01676 M01S01672.1ss +++| RJM CTH CONVERT TO HEX DISPLAY CODE 01677 M01S01673.1ss +++| SHN 6 01678 M01S01674.1ss +++| STM MDFA+2 STORE IN MESSAGE 01679 M01S01675.1ss +++| LDM BUFR+3 REST OF TYPE, SUBTYPE 01680 M01S01676.1ss +++| STD CM 01681 M01S01677.1ss +++| SHN -10 01682 M01S01678.1ss +++| RJM CTH CONVERT TO HEX DISPLAY CODE 01683 M01S01679.1ss +++| RAM MDFA+2 01684 M01S01680.1ss +++| LDD CM 01685 M01S01681.1ss +++| SHN -4 01686 M01S01682.1ss +++| RJM CTH CONVERT TO HEX DISPLAY CODE 01687 M01S01683.1ss +++| SHN 6 01688 M01S01684.1ss +++| STM MDFA+4 01689 M01S01685.1ss +++| LDD CM 01690 M01S01686.1ss +++| RJM CTH CONVERT TO HEX DISPLAY CODE 01691 M01S01687.1ss +++| RAM MDFA+4 01692 M01S01688.1ss +++| LDC RTCL 01693 M01S01689.1ss +++| CRD CM READ MILLISECOND CLOCK 01694 M01S01690.1ss +++| LDN 0 01695 M01S01691.1ss +++| STD CM CLEAR SECOND COUNT 01696 M01S01692.1ss +++| STD CM+1 01697 M01S01693.1ss +++| STD CM+2 ONLY USE 24 BITS 01698 M01S01694.1ss +++| LDD MA 01699 M01S01695.1ss +++| CWD CM 01700 M01S01696.1ss +++| LDN 1 01701 M01S01697.1ss +++| STD CM+1 ONLY 1 VALUE TO BE CONVERTED 01702 M01S01698.1ss +++| MONITOR RDCM CONVERT TO F10.3 01703 M01S01699.1ss +++| LDD MA 01704 M01S01700.1ss +++| CRM MDFB,ON READ TO MESSAGE 01705 M01S01701.1ss +++| LDM BUFR+35D GET MESSAGE RETURN CODE 01706 M01S01702.1ss +++| STD T2 01707 M01S01703.1ss +++| LDM BUFR+34D 01708 M01S01704.1ss +++| LPN 0#F 01709 M01S01705.1ss +++| STD T1 01710 M01S01706.1ss +++| RJM CTH CONVERT TO HEX 01711 M01S01707.1ss +++| SHN 6 01712 M01S01708.1ss +++| STM MDFD 01713 M01S01709.1ss +++| LDD T2 01714 M01S01710.1ss +++| SHN -8D 01715 M01S01711.1ss +++| RJM CTH CONVERT TO HEX 01716 M01S01712.1ss +++| RAM MDFD 01717 M01S01713.1ss +++| LDD T2 01718 M01S01714.1ss +++| SHN -4 01719 M01S01715.1ss +++| RJM CTH CONVERT TO HEX 01720 M01S01716.1ss +++| SHN 6 01721 M01S01717.1ss +++| STM MDFD+1 01722 M01S01718.1ss +++| LDD T2 01723 M01S01719.1ss +++| RJM CTH CONVERT TO HEX 01724 M01S01720.1ss +++| RAM MDFD+1 01725 M01S01721.1ss +++| LDD T1 01726 M01S01722.1ss +++| ADD T2 01727 M01S01723.1ss +++| NJN MDF1 IF RETURN CODE PRESENT 01728 M01S01724.1ss +++| STM MDFD SET END OF LINE 01729 M01S01725.1ss +++| MDF1 LDC MDFAA+CPON 01730 M01S01726.1ss +++| RJM DFM ISSUE MESSAGE TO LOCAL DAYFILE 01731 M01S01727.1ss +++| LJM MDFX RETURN 01732 M01S01728.1ss +++| 01733 M01S01729.1ss +++| 01734 M01S01730.1ss +++| MDFAA DATA 4H CXX CHANNEL NUMBER 01735 M01S01731.1ss +++| MDFA DATA 12H MS XX, YY. 01736 M01S01732.1ss +++| MDFB BSS 5 MILLISECOND CLOCK F10.3 01737 M01S01733.1ss +++| DATA 2H 01738 M01S01734.1ss +++| MDFC CON 0 *IN* OR *OT* 01739 M01S01735.1ss +++| CON 2H 01740 M01S01736.1ss +++| MDFD BSS 2 RETURN CODE 01741 M01S01737.1ss +++| CON 0 END OF LINE 01742 M01S01738.1ss +++| CTH SPACE 4,10 01743 M01S01739.1ss +++|** CTH - CONVERT TO HEX DISPLAY CODE. 01744 M01S01740.1ss +++|* 01745 M01S01741.1ss +++|* ENTRY (A) = NUMBER TO BE CONVERTED. 01746 M01S01742.1ss +++|* 01747 M01S01743.1ss +++|* EXIT (A) = HEX DISPLAY CODE OF LOWER 4 BITS. 01748 M01S01744.1ss +++|* 01749 M01S01745.1ss +++|* USES NONE. 01750 M01S01746.1ss +++|* 01751 M01S01747.1ss +++|* CALLS NONE. 01752 M01S01748.1ss +++| 01753 M01S01749.1ss +++| 01754 M01S01750.1ss +++| CTH1 ADN 1 A THRU F 01755 M01S01751.1ss +++| 01756 M01S01752.1ss +++| CTH SUBR ENTRY/EXIT 01757 M01S01753.1ss +++| LPN 17 01758 M01S01754.1ss +++| SBN 12 01759 M01S01755.1ss +++| PJN CTH1 IF A THRU F 01760 M01S01756.1ss +++| ADN 1R0+12 0 THRU 9 01761 M01S01757.1ss +++| UJN CTHX RETURN 01762 M01S01758.1ss +++| RCL SPACE 4,10 01763 M01S01759.1ss +++|** RCL - RECALL CPU. 01764 M01S01760.1ss +++|* 01765 M01S01761.1ss +++|* ENTRY (RC) = 0, RECALL CPU. 01766 M01S01762.1ss +++|* (A) = 0, IF NOT READ ACTIVE 01767 M01S01763.1ss +++|* 01768 M01S01764.1ss +++|* EXIT IF NO ERROR. 01769 M01S01765.1ss +++|* TO *ERR*, IF TERMINATE FLAG SET. 01770 M01S01766.1ss +++|* TO *DPP*, IF ERROR FLAG SET. 01771 M01S01767.1ss +++|* 01772 M01S01768.1ss +++|* CALLS FIN. 01773 M01S01769.1ss +++|* 01774 M01S01770.1ss +++|* USES RC, CM - CM+4. 01775 M01S01771.1ss +++| 01776 M01S01772.1ss +++| 01777 M01S01773.1ss +++| RCL SUBR ENTRY/EXIT 01778 M01S01774.1ss +++| STM RCLA SAVE READ STATUS 01779 M01S01775.1ss +++| RCL0 LDD OA 01780 M01S01776.1ss +++| CRD CM 01781 M01S01777.1ss +++| LDD CM 01782 M01S01778.1ss +++| NJN RCL0 IF OUTPUT REGISTER NOT CLEAR 01783 M01S01779.1ss +++| LDD RC 01784 M01S01780.1ss +++| NJN RCL1 IF NOT TO RECALL CPU 01785 M01S01781.1ss +++| MONITOR DRCM 01786 M01S01782.1ss +++| RCL1 AOD RC 01787 M01S01783.1ss +++| SBD HN 01788 M01S01784.1ss +++| NJN RCL2 IF NOT TIME TO RECALL CPU 01789 M01S01785.1ss +++| STD RC 01790 M01S01786.1ss +++| RCL2 PAUSE 01791 M01S01787.1ss +++| LDD CM+1 01792 M01S01788.1ss +++| ZJN RCL3 IF NO ERROR FLAG 01793 M01S01789.1ss +++| LDC ** READ/WRITE FLAG 01794 M01S01790.1ss +++| RCLA EQU *-1 01795 M01S01791.1ss +++| ZJN RCL2.1 IF NOT READ 01796 M01S01792.1ss +++| RJM FIN FLUSH INPUT 01797 M01S01793.1ss +++| RCL2.1 DCN CH+40 01798 M01S01794.1ss +++| RJM REL RELEASE CHANNEL 01799 M01S01795.1ss +++| LJM DPP DROP PP 01800 M01S01796.1ss +++| 01801 M01S01797.1ss +++| RCL3 FETA 4 01802 M01S01798.1ss +++| CRD CM READ LIMIT WORD 01803 M01S01799.1ss +++| LDD CM+3 01804 M01S01800.1ss +++| SHN -6 01805 M01S01801.1ss +++| NJN RCL4 IF TERMINATE STREAMING FLAG 01806 M01S01802.1ss +++| LJM RCLX RETURN 01807 M01S01803.1ss +++| 01808 M01S01804.1ss +++| RCL4 LDM RCLA 01809 M01S01805.1ss +++| ZJN RCL5 IF NOT READ OPERATION 01810 M01S01806.1ss +++| RJM FIN FLUSH INPUT 01811 M01S01807.1ss +++| RCL5 DCN CH+40 01812 M01S01808.1ss +++| ERROR RCTERF TERMINATE FLAG SET 01813 M01S01809.1ss +++| REL SPACE 4,10 01814 M01S01810.1ss +++|** REL - RELEASE CHANNEL. 01815 M01S01811.1ss +++|* 01816 M01S01812.1ss +++|* ENTRY NONE. 01817 M01S01813.1ss +++|* 01818 M01S01814.1ss +++|* EXIT CHANNEL RELEASED. 01819 M01S01815.1ss +++|* TO *DPP* IF ERROR FLAG SET. 01820 M01S01816.1ss +++|* 01821 M01S01817.1ss +++|* CALLS NONE. 01822 M01S01818.1ss +++|* 01823 M01S01819.1ss +++|* USES CM - CM+4. 01824 M01S01820.1ss +++| 01825 M01S01821.1ss +++| 01826 M01S01822.1ss +++| REL SUBR ENTRY/EXIT 01827 M01S01823.1ss +++| REL0 LDD OA 01828 M01S01824.1ss +++| CRD CM 01829 M01S01825.1ss +++| LDD CM 01830 M01S01826.1ss +++| NJN REL0 IF OUTPUT REGISTER NOT CLEAR 01831 M01S01827.1ss +++| LDC 0 01832 M01S01828.1ss +++| RELA EQU *-1 01833 M01S01829.1ss +++| ZJN REL1 IF CHANNEL NOT RESERVED 01834 M01S01830.1ss +++| CHTE * 01835 M01S01831.1ss +++| LDN CH 01836 M01S01832.1ss +++| DCHAN 01837 M01S01833.1ss +++|* LDN 0 01838 M01S01834.1ss +++| STM RELA FLAG CHANNEL NOT RESERVED 01839 M01S01835.1ss +++| REL1 PAUSE 01840 M01S01836.1ss +++| LDD CM+1 01841 M01S01837.1ss +++| ZJN RELX IF NO ERROR FLAG 01842 M01S01838.1ss +++| LJM DPP DROP PP 01843 M01S01839.1ss +++| RES SPACE 4,10 01844 M01S01840.1ss +++|** RES - RESERVE CHANNEL. 01845 M01S01841.1ss +++|* 01846 M01S01842.1ss +++|* ENTRY (CH) = CHANNEL(S). 01847 M01S01843.1ss +++|* 01848 M01S01844.1ss +++|* EXIT CHANNEL RESERVED. 01849 M01S01845.1ss +++|* 01850 M01S01846.1ss +++|* CALLS NONE. 01851 M01S01847.1ss +++|* 01852 M01S01848.1ss +++|* USES T1, CM - CM+4. 01853 M01S01849.1ss +++| 01854 M01S01850.1ss +++| 01855 M01S01851.1ss +++| RES SUBR ENTRY/EXIT 01856 M01S01852.1ss +++| CHTE * 01857 M01S01853.1ss +++| RES0 LDN CH 01858 M01S01854.1ss +++| STD CM+1 01859 M01S01855.1ss +++| MONITOR CCHM 01860 M01S01856.1ss +++| LDD CM+2 01861 M01S01857.1ss +++| NJN RES1 IF CHANNEL RESERVED 01862 M01S01858.1ss +++| PAUSE 01863 M01S01859.1ss +++| LDD CM+1 01864 M01S01860.1ss +++| ZJN RES0 IF NO ERROR 01865 M01S01861.1ss +++| LJM DPP EXIT 01866 M01S01862.1ss +++| 01867 M01S01863.1ss +++| RES1 AOM RELA FLAG CHANNEL RESERVED 01868 M01S01864.1ss +++| UJN RESX RETURN 01869 M01S01865.1ss +++| STS SPACE 4,10 01870 M01S01866.1ss +++|** STS - RETURN INTERFACE STATUS. 01871 M01S01867.1ss +++|* 01872 M01S01868.1ss +++|* ENTRY (A) = STATUS FUNCTION. 01873 M01S01869.1ss +++|* 01874 M01S01870.1ss +++|* EXIT (A) = (ST) INTERFACE STATUS. 01875 M01S01871.1ss +++|* 01876 M01S01872.1ss +++|* CALLS FCN, DST. 01877 M01S01873.1ss +++|* 01878 M01S01874.1ss +++|* USES CM - CM+4, ST, EO. 01879 M01S01875.1ss +++| 01880 M01S01876.1ss +++| 01881 M01S01877.1ss +++| STS SUBR ENTRY/EXIT 01882 M01S01878.1ss +++| STM STSA SAVE STATUS FUNCTION 01883 M01S01879.1ss +++| LDC RTCL 01884 M01S01880.1ss +++| CRD CM READ CLOCK 01885 M01S01881.1ss +++| LDD CM+1 SECONDS 01886 M01S01882.1ss +++| ADC EOPL END OF OP. LIMIT 01887 M01S01883.1ss +++| STD EO 01888 M01S01884.1ss +++| STS0 LDC ** STATUS FUNCTION 01889 M01S01885.1ss +++| STSA EQU *-1 01890 M01S01886.1ss +++| RJM FCN ISSUE STATUS FUNCTION 01891 M01S01887.1ss +++| ACN CH 01892 M01S01888.1ss +++| LDN 77 WAIT EOP DELAY 01893 M01S01889.1ss +++| STS1 FJM STS2,CH IF STATUS READY 01894 M01S01890.1ss +++| SBN 1 01895 M01S01891.1ss +++| PJN STS1 IF NOT TIMEOUT 01896 M01S01892.1ss +++| DCN CH+40 01897 M01S01893.1ss +++| PAUSE 01898 M01S01894.1ss +++| LDD CM+1 01899 M01S01895.1ss +++| ZJN STS1.1 IF NO ERROR 01900 M01S01896.1ss +++| RJM REL RELEASE CHANNEL 01901 M01S01897.1ss +++| LJM DPP DROP PP 01902 M01S01898.1ss +++| 01903 M01S01899.1ss +++| STS1.1 LDC RTCL 01904 M01S01900.1ss +++| CRD CM READ CLOCK 01905 M01S01901.1ss +++| LDD EO 01906 M01S01902.1ss +++| LMD CM+1 01907 M01S01903.1ss +++| NJN STS0 IF NOT TIMEOUT 01908 M01S01904.1ss +++| RJM DST GET DIAGNOSTIC STATUS 01909 M01S01905.1ss +++| ERROR RCNEOP NO END OF OPERATION 01910 M01S01906.1ss +++| 01911 M01S01907.1ss +++| STS2 LDN GSTL GENERAL STATUS LENGTH 01912 M01S01908.1ss +++| IAM GSTS,CH 01913 M01S01909.1ss +++| DCN CH+40 01914 M01S01910.1ss +++| LDM GSTS 01915 M01S01911.1ss +++| STD ST 01916 M01S01912.1ss +++| SHN 21-13 01917 M01S01913.1ss +++| PJN STS3 IF NOT ALERT 01918 M01S01914.1ss +++| LDM STSA 01919 M01S01915.1ss +++| LMN GSTF 01920 M01S01916.1ss +++| NJN STS3 IF NOT GENERAL STATUS 01921 M01S01917.1ss +++| LDC FSTF 01922 M01S01918.1ss +++| RJM FCN FSC STATUS FUNCTION 01923 M01S01919.1ss +++| ACN CH 01924 M01S01920.1ss +++| LDN DSTL DETAIL STATUS (FSC) LENGTH 01925 M01S01921.1ss +++| IAM FSTS,CH READ FSC STATUS 01926 M01S01922.1ss +++| DCN CH+40 01927 M01S01923.1ss +++| RJM DST GET DIAGNOSTIC STATUS 01928 M01S01924.1ss +++| STS3 LDD ST 01929 M01S01925.1ss +++| LJM STSX RETURN 01930 M01S01926.1ss +++| 01931 M01S01927.1ss +++| 01932 M01S01928.1ss +++| GSTS BSS 2 GENERAL STATUS 01933 M01S01929.1ss +++| STEC BSS 1 ERROR CODE 01934 M01S01930.1ss +++| FSTS BSS 24 FSC STATUS 01935 M01S01931.1ss +++| CHTE * 01936 M01S01932.1ss +++| CHAN CON CH CHANNEL USED 01937 M01S01933.1ss +++| DSTS BSS 1 DIAGNOSTIC STATUS 01938 M01S01934.1ss +++| WUM SPACE 4,10 01939 M01S01935.1ss +++|** WUM - WAIT UNIT MOUNTED 01940 M01S01936.1ss +++|* 01941 M01S01937.1ss +++|* ENTRY (UN) = UNIT NUMBER 01942 M01S01938.1ss +++|* 01943 M01S01939.1ss +++|* EXIT UNIT MOUNTED INTERRUPT SENSED 01944 M01S01940.1ss +++|* 01945 M01S01941.1ss +++|* CALLS STS, RES, REL. 01946 M01S01942.1ss +++|* 01947 M01S01943.1ss +++|* USES CM - CM+4. 01948 M01S01944.1ss +++| 01949 M01S01945.1ss +++| 01950 M01S01946.1ss +++| WUM1 RJM REL RELEASE CHANNEL 01951 M01S01947.1ss +++| 01952 M01S01948.1ss +++| WUM SUBR ENTRY/EXIT 01953 M01S01949.1ss +++| LDC RTCL 01954 M01S01950.1ss +++| CRD CM READ SECOND CLOCK 01955 M01S01951.1ss +++| LDD CM+1 01956 M01S01952.1ss +++| ADC EOPL END OF OP. LIMIT 01957 M01S01953.1ss +++| STM WUMA 01958 M01S01954.1ss +++| WUM2 RJM RES RESERVE CHANNEL 01959 M01S01955.1ss +++| LDD UN UNIT NUMBER 01960 M01S01956.1ss +++| ADC CDEF CHECK DEVICE END 01961 M01S01957.1ss +++| RJM STS 01962 M01S01958.1ss +++| SHN 21-13 01963 M01S01959.1ss +++| PJN WUM1 IF NO ALERT 01964 M01S01960.1ss +++| LDM STEC 01965 M01S01961.1ss +++| LMN 2 01966 M01S01962.1ss +++| NJN WUM1 IF NOT BUSY 01967 M01S01963.1ss +++| WUM3 RJM REL RELEASE CHANNEL 01968 M01S01964.1ss +++| LDC RTCL 01969 M01S01965.1ss +++| CRD CM 01970 M01S01966.1ss +++| LDD CM+1 SECONDS 01971 M01S01967.1ss +++| LMC ** 01972 M01S01968.1ss +++| WUMA EQU *-1 01973 M01S01969.1ss +++| NJN WUM2 IF NOT TIMEOUT 01974 M01S01970.1ss +++| ERROR RCNEOP NO END OF OPERATION 01975 M01S01971.1ss +++| BDL SPACE 4,20 01976 M01S01972.1ss +++|** BDL - BUSY DELAY. 01977 M01S01973.1ss +++|* 01978 M01S01974.1ss +++|* ENTRY BUSY STATUS FROM M860. 01979 M01S01975.1ss +++|* 01980 M01S01976.1ss +++|* EXIT DELAY TO ALLOW M860 INTERRUPT. 01981 M01S01977.1ss +++|* 01982 M01S01978.1ss +++|* CALLS NONE 01983 M01S01979.1ss +++|* 01984 M01S01980.1ss +++|* USES T0. 01985 M01S01981.1ss +++| 01986 M01S01982.1ss +++| 01987 M01S01983.1ss +++| BDL SUBR ENTRY/EXIT 01988 M01S01984.1ss +++| LDC 10D*100D 100 MSEC. DELAY 01989 M01S01985.1ss +++| STD T0 01990 M01S01986.1ss +++| BDL1 DELAY 01991 M01S01987.1ss +++| SOD T0 01992 M01S01988.1ss +++| NJN BDL1 IF NOT TIME 01993 M01S01989.1ss +++| UJN BDLX 01994 M01S01990.1ss +++| CBS SPACE 4,10 01995 M01S01991.1ss +++|** CBS - CHECK BUSY STATUS. 01996 M01S01992.1ss +++|* 01997 M01S01993.1ss +++|* ENTRY (PC) = PRU COUNT. 01998 M01S01994.1ss +++|* (STEC) = STATUS ERROR CODE. 01999 M01S01995.1ss +++|* 02000 M01S01996.1ss +++|* EXIT (A) = 0, IF TO RETRY OPERATION. 02001 M01S01997.1ss +++|* 02002 M01S01998.1ss +++|* CALLS REL, RES. 02003 M01S01999.1ss +++|* 02004 M01S02000.1ss +++|* USES NONE. 02005 M01S02001.1ss +++| 02006 M01S02002.1ss +++| 02007 M01S02003.1ss +++| CBS SUBR ENTRY/EXIT 02008 M01S02004.1ss +++| LDD PC 02009 M01S02005.1ss +++| NJN CBSX IF NOT HEADER 02010 M01S02006.1ss +++| LDM STEC 02011 M01S02007.1ss +++| LMN 2 02012 M01S02008.1ss +++| NJN CBSX IF NOT BUSY ERROR 02013 M01S02009.1ss +++| SOM CBSA 02014 M01S02010.1ss +++| NJN CBS1 IF NOT RETRY LIMIT 02015 M01S02011.1ss +++| LDN 1 FLAG NO RETRY 02016 M01S02012.1ss +++| UJN CBSX RETURN 02017 M01S02013.1ss +++| 02018 M01S02014.1ss +++| CBS1 RJM REL RELEASE CHANNEL 02019 M01S02015.1ss +++| RJM BDL BUSY DELAY 02020 M01S02016.1ss +++| RJM RES RESERVE CHANNEL 02021 M01S02017.1ss +++| LDN 0 FLAG RETRY 02022 M01S02018.1ss +++| UJN CBSX RETURN 02023 M01S02019.1ss +++| 02024 M01S02020.1ss +++| 02025 M01S02021.1ss +++| CBSA CON BRTL RETRY COUNTER 02026 M01S02022.1ss +++| TITLE GENERAL SUBROUTINES. 02027 M01S02023.1ss +++| CFL SPACE 4,15 02028 M01S02024.1ss +++|** CFL - CHECK FIELD LENGTH. 02029 M01S02025.1ss +++|* 02030 M01S02026.1ss +++|* ENTRY (A) = RELATIVE ADDRESS TO BE ACCESSED. 02031 M01S02027.1ss +++|* (RA) = CURRENT REFERENCE ADDRESS. 02032 M01S02028.1ss +++|* (FL) = CURRENT FIELD LENGTH. 02033 M01S02029.1ss +++|* 02034 M01S02030.1ss +++|* EXIT (A) = RELATIVE + REFERENCE ADDRESS. 02035 M01S02031.1ss +++|* 02036 M01S02032.1ss +++|* CALLS DFM. 02037 M01S02033.1ss +++|* 02038 M01S02034.1ss +++|* USES NONE 02039 M01S02035.1ss +++| 02040 M01S02036.1ss +++| 02041 M01S02037.1ss +++| 02042 M01S02038.1ss +++| CFL3 SHN 15 REPOSITION TO VALUE/100 02043 M01S02039.1ss +++| ADD FL RESTORE VALUE 02044 M01S02040.1ss +++| ADD RA ADD RA 02045 M01S02041.1ss +++| SHN 6 REPOSITION VALUE 02046 M01S02042.1ss +++| 02047 M01S02043.1ss +++| CFL SUBR ENTRY/EXIT 02048 M01S02044.1ss +++| SBN 2 02049 M01S02045.1ss +++| MJN CFL1 IF ADDRESS TOO SMALL 02050 M01S02046.1ss +++| ADN 2 02051 M01S02047.1ss +++| SHN 21 02052 M01S02048.1ss +++| MJN CFL2 IF VALUE ODD 02053 M01S02049.1ss +++| SHN 15 POSITION TO VALUE/100B 02054 M01S02050.1ss +++| SBD FL 02055 M01S02051.1ss +++| SHN 5 02056 M01S02052.1ss +++| MJN CFL3 IF VALUE IN RANGE 02057 M01S02053.1ss +++| CFL1 LDC CFLA 02058 M01S02054.1ss +++| RJM DFM OUTPUT MESSAGE 02059 M01S02055.1ss +++| RJM REL RELEASE CHANNEL 02060 M01S02056.1ss +++| MONITOR HNGM HANG PPU 02061 M01S02057.1ss +++| LJM DPP1 DROP PP 02062 M01S02058.1ss +++| 02063 M01S02059.1ss +++| CFL2 SHN 15 POSITION TO VALUE/100B 02064 M01S02060.1ss +++| SBD FL 02065 M01S02061.1ss +++| SHN 5 02066 M01S02062.1ss +++| MJN CFL1 IF VALUE TO BIG (OR NEGATIVE) 02067 M01S02063.1ss +++| UJN CFL3 SET RA 02068 M01S02064.1ss +++| 02069 M01S02065.1ss +++| CFLA DATA C*1SS ABT.* 02070 M01S02066.1ss +++| CFS SPACE 4,10 02071 M01S02067.1ss +++|** CFS - CHECK FULL STRIPE. 02072 M01S02068.1ss +++|* 02073 M01S02069.1ss +++|* ENTRY BUFFER POINTERS INITIALIZED. 02074 M01S02070.1ss +++|* 02075 M01S02071.1ss +++|* EXIT FULL STRIPE + 1 PRU OR EOI IN BUFFER. 02076 M01S02072.1ss +++|* 02077 M01S02073.1ss +++|* CALLS COB, DV5, RCL. 02078 M01S02074.1ss +++|* 02079 M01S02075.1ss +++|* USES T3, CM - CM+4, PC, WC. 02080 M01S02076.1ss +++| 02081 M01S02077.1ss +++| 02082 M01S02078.1ss +++| CFS1 LDC ** RESTORE ORIGINAL OUT POINTER 02083 M01S02079.1ss +++| CFSA EQU *-1 02084 M01S02080.1ss +++| STD OT+1 02085 M01S02081.1ss +++| SHN -14 02086 M01S02082.1ss +++| STD OT 02087 M01S02083.1ss +++| LDN 0 02088 M01S02084.1ss +++| STD PC RESET PRU COUNT 02089 M01S02085.1ss +++| 02090 M01S02086.1ss +++| CFS SUBR ENTRY/EXIT 02091 M01S02087.1ss +++| LDD OT+1 SAVE OUT POINTER 02092 M01S02088.1ss +++| STM CFSA 02093 M01S02089.1ss +++| LDM CFSA-1 02094 M01S02090.1ss +++| SCN 77 02095 M01S02091.1ss +++| ADD OT 02096 M01S02092.1ss +++| STM CFSA-1 02097 M01S02093.1ss +++| LDN 0 02098 M01S02094.1ss +++| STD PC INITIALIZE PRU COUNT 02099 M01S02095.1ss +++| STD RC INITIALIZE RECALL COUNT 02100 M01S02096.1ss +++| CFS2 RJM COB CHECK OUTPUT BUFFER 02101 M01S02097.1ss +++| NJN CFS3 IF DATA IN BUFFER 02102 M01S02098.1ss +++|* LDN 0 NOT READ 02103 M01S02099.1ss +++| RJM RCL RECALL CPU 02104 M01S02100.1ss +++| UJN CFS2 CHECK AGAIN 02105 M01S02101.1ss +++| 02106 M01S02102.1ss +++| CFS3 LDCA OT 02107 M01S02103.1ss +++| CRD CM READ FIRST CONTROL WORD 02108 M01S02104.1ss +++| LDD CM 02109 M01S02105.1ss +++| SHN 21-12 02110 M01S02106.1ss +++| MJN CFS4 IF EOI 02111 M01S02107.1ss +++| AOD PC ADVANCE PRU COUNT 02112 M01S02108.1ss +++| SBN PRUPST+1 02113 M01S02109.1ss +++| MJN CFS5 IF NOT FULL STRIPE + 1 PRU 02114 M01S02110.1ss +++| CFS4 LJM CFS1 RESTORE OUT AND RETURN 02115 M01S02111.1ss +++| 02116 M01S02112.1ss +++| CFS5 LDD CM+4 PRU BYTE COUNT 02117 M01S02113.1ss +++| RJM DV5 CM WORD COUNT 02118 M01S02114.1ss +++| ADN 2 CONTROL WORDS 02119 M01S02115.1ss +++| STD WC 02120 M01S02116.1ss +++| LDD LM 02121 M01S02117.1ss +++| SBD OT 02122 M01S02118.1ss +++| SHN 14 02123 M01S02119.1ss +++| ADD LM+1 02124 M01S02120.1ss +++| SBD OT+1 WORD COUNT TO LIMIT 02125 M01S02121.1ss +++| STD T3 02126 M01S02122.1ss +++| SBD WC 02127 M01S02123.1ss +++| MJN CFS6 IF WRAPAROUND 02128 M01S02124.1ss +++| ZJN CFS6 IF WC = ROOM TO LIMIT 02129 M01S02125.1ss +++| LDD WC 02130 M01S02126.1ss +++| RAD OT+1 ADVANCE OUT 02131 M01S02127.1ss +++| SHN -14 02132 M01S02128.1ss +++| RAD OT 02133 M01S02129.1ss +++| LJM CFS2 CHECK FOR NEXT PRU 02134 M01S02130.1ss +++| 02135 M01S02131.1ss +++| CFS6 LDD FT SET OUT=FIRST+WC-REMAINDER TO LIMIT 02136 M01S02132.1ss +++| SHN 14 02137 M01S02133.1ss +++| ADD FT+1 02138 M01S02134.1ss +++| ADD WC 02139 M01S02135.1ss +++| SBD T3 02140 M01S02136.1ss +++| STD OT+1 02141 M01S02137.1ss +++| SHN -14 02142 M01S02138.1ss +++| STD OT 02143 M01S02139.1ss +++| LJM CFS2 CHECK FOR NEXT PRU 02144 M01S02140.1ss +++| CIB SPACE 4 02145 M01S02141.1ss +++|** CIB - CHECK INPUT BUFFER. 02146 M01S02142.1ss +++|* 02147 M01S02143.1ss +++|* ENTRY (FE - FE+1) = FET ADDRESS. 02148 M01S02144.1ss +++|* (FT - FT+1) = FIRST ADDRESS OF CM BUFFER. 02149 M01S02145.1ss +++|* (IN - IN+1) = NEXT INPUT ADDRESS. 02150 M01S02146.1ss +++|* (OT - OT+1) = NEXT OUTPUT ADDRESS. 02151 M01S02147.1ss +++|* (LM - LM+1) = LIMIT ADDRESS OF CM BUFFER. 02152 M01S02148.1ss +++|* 02153 M01S02149.1ss +++|* EXIT (A) = WORD COUNT OF BUFFER. 02154 M01S02150.1ss +++|* RESETS (OT - OT+1). 02155 M01S02151.1ss +++|* 02156 M01S02152.1ss +++|* CALLS CFL. 02157 M01S02153.1ss +++|* 02158 M01S02154.1ss +++|* USES CM - CM+4. 02159 M01S02155.1ss +++| 02160 M01S02156.1ss +++| 02161 M01S02157.1ss +++| CIB SUBR ENTRY/EXIT 02162 M01S02158.1ss +++| FETA 3 02163 M01S02159.1ss +++| CRD CM 02164 M01S02160.1ss +++| LDD CM+3 SET OUT 02165 M01S02161.1ss +++| LPN 77 02166 M01S02162.1ss +++| STD OT 02167 M01S02163.1ss +++| SHN 14 02168 M01S02164.1ss +++| LMD CM+4 02169 M01S02165.1ss +++| STD OT+1
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1ss.txt ยท Last modified: by 127.0.0.1