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