ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:08 2020
Source File: \t4ufio.asm
1130 D.M. UNFORMATTED I/O SUBROUTINE
2 | *************************************************** T4D00020
3 | *STATUS - VERSION 2 MODIFICATION 10 * T4D00030
4 | * * T4D00040
5 | *FUNCTION/OPERATION- * T4D00050
6 | * * PROVIDES THE CAPABILITY OF READING AND * T4D00060
7 | * WRITING IN FORTRAN WITHOUT THE SPECIFICATION* T4D00070
8 | * OF A FORMAT. * T4D00080
9 | * * DISK IS UTILIZED FOR I/O, WITH EACH LOGICAL * T4D00090
10 | * RECORD CONSISTING OF N PHYSICAL RECORDS OF * T4D00100
11 | * A MAXIMUM OF 318 WORDS EACH. (N IS DETM BY * T4D00110
12 | * THE SIZE OF THE UFIO DISK BUFFER $$$$$). * T4D00120
13 | * * THE PRECISION AND INTEGER SIZE IS DETERMINED* T4D00130
14 | * BY THE PARAMETER FOLLOWING THE INITIALIZING * T4D00140
15 | * CALL TO UFIO. * T4D00150
16 | * * UFIO RESEMBLES ALL OTHER FIO'S IN THE * T4D00160
17 | * CALLING SEQUENCE AND LOGICAL FLOW OF THE * T4D00170
18 | * CODING. * T4D00180
19 | * * T4D00190
20 | *ENTRY POINTS- * T4D00200
21 | * LIBF UFIO CALL TO INITIALIZE * T4D00210
22 | * DC /00XY PREC AND INTEGER SIZE * T4D00220
23 | * * T4D00230
24 | * LIBF URED CALL TO READ * T4D00240
25 | * DC ADDR ADDR OF UNIT NO. (10) * T4D00250
26 | * * T4D00260
27 | * LIBF UWRT CALL TO WRITE * T4D00270
28 | * DC ADDR ADDR OF UNIT NO. (10) * T4D00280
29 | * * T4D00290
30 | * LIBF UIOI CALL FOR NON-SUBSC INTGER* T4D00300
31 | * DC ADDR ADDRESS OF VARIABLE * T4D00310
32 | * * T4D00320
33 | * LIBF UIOF CALL FOR NON-SUBSC REAL * T4D00330
34 | * DC ADDR ADDRESS OF VARIABLE * T4D00340
35 | * * T4D00350
36 | * LIBF UIOIX CALL FOR SUBSC INTEGER * T4D00360
37 | * DC ADDR ADDR OF BASE VARIABLE * T4D00370
38 | * XR1 CONTAINS SUBSCRIPT * T4D00380
39 | * * T4D00390
40 | * LIBF UIOFX CALL FOR SUBSC REAL * T4D00400
41 | * DC ADDR ADDR OF BASE VARIABLE * T4D00410
42 | * XR1 CONTAINS SUBSCRIPT * T4D00420
43 | * * T4D00430
44 | * LIBF UIOAI CALL FOR INTEGER ARRAY * T4D00440
45 | * DC ADDR1 ADDR FIRST ELT OF ARRAY * T4D00450
46 | * DC ADDR2 COUNT OF ELT IN ARRAY * T4D00460
47 | * * T4D00470
48 | * LIBF UIOAF CALL FOR REAL ARRAY * T4D00480
49 | * DC ADDR1 ADDR FIRST ELT OF ARRAY * T4D00490
50 | * DC ADDR1 COUNT OF ELT IN ARRAY * T4D00500
51 | * * T4D00510
52 | * LIBF UCOMP CALL FOR I/O COMPLETE * T4D00520
53 | * * T4D00530
54 | * LIBF BCKSP CALL TO BKSP LOGICAL RCD * T4D00540
55 | * DC ADDR ADDR OF UNIT NO. (10) * T4D00550
56 | * * T4D00560
57 | * LIBF EOF CALL TO WRITE EOF * T4D00570
58 | * DC ADDR ADDR OF UNIT NO. (10) * T4D00580
59 | * * T4D00590
60 | * LIBF REWND CALL TO SET $UFIO = 1 * T4D00600
61 | * DC ADDR ADDR OF UNIT NO. (10) * T4D00610
62 | * * T4D00620
63 | *EXTERNAL REFERENCES- * T4D00630
64 | * SUBROUTINES * T4D00640
65 | * * DZ000 - SYSTEM DISK I/O SUBROUTINE * T4D00650
66 | * * PAUSE - SUBROUTINE FOR HALT AT $PRET * T4D00660
67 | * COMMA/DCOM * T4D00670
68 | * * $UFIO - SECTOR POINTER FOR UFIO * T4D00680
69 | * * $EXIT - CALL EXIT ENTRY POINT * T4D00690
70 | * * $DBSY - NON-ZERO IF DISKZ BUSY * T4D00700
71 | * * $$$$$ - DSA REFERENCE FOR DISK BUFFER * T4D00710
72 | * * T4D00720
73 | *EXITS- * T4D00730
74 | * NORMAL- * T4D00740
75 | * *RETURN TO LAST CALL PARAMETER + 1 * T4D00750
76 | * ERROR * T4D00760
77 | * *CALL EXIT IF DISK BUFFER OVERFLOWS * T4D00770
78 | * * T4D00780
79 | *TABLES/WORKAREAS * T4D00790
80 | * * IOAR - I/O BUFFER - PART OF UFIO * T4D00800
81 | * * T4D00810
82 | *ATTRIBUTES- * T4D00820
83 | * ASSEMBLED RELOCATABLE * T4D00830
84 | * * T4D00840
85 | *NOTES- * T4D00850
86 | * *AN ERROR CONDITION CAUSES THIS SUBROUTINE TO * T4D00860
87 | * COME TO A WAIT WITH THE ERROR CODE DISPLAYED * T4D00870
88 | * IN THE ACC.ON ALL BUT THE LAST TWO ERRORS 2-7 T4D00880
89 | * CONTROL IS RETURNED TO THE CALLING PROGRAM. * T4D00890
90 | * IF THE DISK BUFFER IS OVERFLOWED A CALL EXIT * T4D00900
91 | * IS INITIATED UPON PROSSING START. * T4D00910
92 | * F020 - ILLEGAL UNIT REFERENCE * T4D00920
93 | * F021 - READ LIST EXCEEDS LENGTH OF * T4D00930
94 | * WRITE LIST. * T4D00940
95 | * F022 - RECORD DOES NOT EXIST FOR FOR * T4D00950
96 | * READ LIST ELEMENT. * T4D00960
97 | * F023 - MAXIMUM LENGTH OF $$$$$ AREA ON * T4D00970
98 | * THE DISK HAS BEEN EXCEEDED. THIS * T4D00980
99 | * ERROR IS UNRECOVERABLE AND * T4D00990
100 | * RESULTS IN A CALL EXIT. * T4D01000
101 | * F024 - UFIO HAS NOT BEEN INITLZD 2-7 T4D01010
102 | * I.E. THERE IS NO *IOCS 2-7 T4D01020
103 | * CARD IN THE MAINLINE 2-7 T4D01030
104 | * ERRROR RESULTS IN A 2-7 T4D01040
105 | * CALL EXIT 2-7 T4D01050
106 | * * T4D01060
107 | * *ALL DISK HARDWARE ERRORS ARE HANDLED BY DZ000* T4D01070
108 | * * T4D01080
109 | * *WHEN AN END OF FILE IS READ BIT 2 OF THE * T4D01090
110 | * THIRD FUNCTIONAL ERROR WORD IS SET. * T4D01100
111 | * * T4D01110
112 | *************************************************** T4D01120
1130 D.M. UNFORMATTED I/O SUBROUTINE
114 | LIBR T4D01140
115 | ENT UFIO INITIALIZATION T4D01150
116 | ENT URED READ T4D01160
117 | ENT UWRT WRITE T4D01170
118 | ENT UIOI UNSUBSCRIPTED INTEGER T4D01180
119 | ENT UIOF UNSUBSCRIPTED REAL T4D01190
120 | ENT UIOAI INTEGER ARRAY T4D01200
121 | ENT UIOAF REAL ARRAY T4D01210
122 | ENT UIOFX REAL SUBSCRIPTED ELEMENT T4D01220
123 | ENT UIOIX INTEGER SUBSCRIPT. ELEMENT T4D01230
124 | ENT UCOMP COMPLETION OF READ OR WRT T4D01240
125 | ENT BCKSP BACKSPACE - 1 LOGICAL REC T4D01250
126 | ENT EOF WRITE END FILE T4D01260
127 | ENT REWND REWIND - TO BUFFER START T4D01270
128 | * T4D01280
0079 129 | $UFIO EQU /79 UFIO RECORD POINTER T4D01290
0038 130 | $EXIT EQU /38 CALL EXIT ENTRY POINT T4D01300
00EE 131 | $DBSY EQU /EE NON-ZERO IF DISKZ BUSY T4D01310
00F2 132 | DZ000 EQU /F2 DISKZ ENTRY POINT T4D01320
0000 133 | BSS E 0 SET BOUNDARY T4D01330
134 | * T4D01340
135 | * SOME OF THE FOLLOWING VARIABLE WORDS T4D01350
136 | * ARE BOUNDARY DEPENDENT (ODD OR EVEN) T4D01360
137 | * AND THEREFORE CARE SHOULD BE TAKEN T4D01370
138 | * IF THEY ARE TO BE MOVED OR T4D01380
139 | * RE-ORDERED T4D01390
140 | * T4D01400
0080R 141 | X EQU *+128 WORK AREA POINTER T4D01410
142 | * T4D01420
0000 0000 143 | UF900 DC *-* ADDRESS OF LIST ELEMENT T4D01430
0001 0000 144 | UF901 DC *-* CNT OF ELTS TO TRANSMIT T4D01440
0002 0000 145 | UF902 DC *-* INTEGER SIZE- 1, 2, OR 3 T4D01450
0003 0000 146 | UF903 DC *-* PRECISION- 2 OR 3 T4D01460
0004 0000 147 | UF904 DC *-* BUFFER COUNTER T4D01470
0005 0000 148 | UF905 DC *-* INDR FOR CAUSING NEW RCD T4D01480
0006 0000 149 | UF906 DC *-* CURRENT BUFFER POSITION T4D01490
0007 0000 150 | UF907 DC *-* INITIAL BUFFER POSITION T4D01500
0008 0000 151 | UF908 DC 0 CONSTANT 0 T4D01510
0009 0001 152 | UF909 DC 1 CONSTANT 1 T4D01520
000A 0000 153 | UF910 DC *-* COUNT OF WORDS TO TRANSMIT T4D01530
154 | * *FOR EACH LIST VARIABLE T4D01540
155 | * *OR ELEMENT. T4D01550
000B 0001 156 | DC 1 CON TO DECR CNT OF VAR T4D01560
000C 0000 157 | UF912 DC *-* READ-WRITE SWITCH T4D01570
158 | * *0- READ, 1- WRITE T4D01580
000D 01B8R 159 | UF913 DC UF992+2 ADDRESS OF DATA BUFFER T4D01590
000E 1000 160 | UF914 DC /1000 HEX. CONSTANT 1000 T4D01600
161 | * NOT USED 2-10 T4D01610
000F 2000 162 | UF916 DC /2000 HEX CONSTANT 2000 T4D01620
0010 7001 163 | UF917 DC /7001 CONSTANT (MDX *+1) T4D01630
0011 7FFF 164 | UF918 DC /7FFF HEX. CONSTANT 7FFF T4D01640
0012 8000 165 | UF919 DC /8000 HEX. CONSTANT 8000 T4D01650
0013 1B6D*B6DBR 166 | UF920 DSA $$$$$ DSA FOR UFIO BUFFER T4D01660
0015R 167 | UF922 EQU UF920+2 UFIO BUFFER LENGTH T4D01670
0014R 168 | UF923 EQU UF920+1 UFIO BUFFER START SECTOR T4D01680
0013R 169 | UF926 EQU UF920 TEMPORARY WORKING CELL T4D01690
170 | * NOT USED 2-10 T4D01700
0015 0000 171 | UF932 DC 0 INTEGER OR REAL ELEMENT T4D01710
172 | * *0- INTEGER, 2- REAL T4D01720
0016 0000 173 | UF933 DC 0 CNT. OF GOOD WORDS IN BUFR T4D01730
0017 02F6R 174 | UF934 DC UF992+320 LAST BUFFER POSITION+1 2-3 T4D01740
0018 0000 175 | UF935 DC 0 LAST RECORD IND. T4D01750
176 | * *0- CONT, 2- NEW RECORD T4D01760
0019 0000 177 | UF936 DC 0 COUNT OF REC. IN LOG. REC. T4D01770
001A FFFF 178 | UF937 DC -1 CONSTANT -1 T4D01780
001B 0002 179 | UF938 DC 2 CONSTANT 2 T4D01790
001C 0003 180 | UF939 DC 3 CONSTANT 3 T4D01800
181 | * NOT USED 2-10 T4D01810
001D 0000 182 | UF941 DC 0 SOFTWARE ERROR IND T4D01820
183 | * NOT USED 2-10 T4D01830
001E 7010 184 | UF943 MDX *+16 SKIP I/O OPERATION T4D01840
001F F020 185 | UF944 DC /F020 CONSTANT FOR ER CODES T4D01850
0008R 186 | UF945 EQU UF908 READ FUNCTION CODE 2-10 T4D01860
0020 01B4R 187 | UF946 DC UF990 I/O BUFFER ADDRESS T4D01870
0009R 188 | UF947 EQU UF909 WRITE FUNCTION CODE 2-10 T4D01880
0021 013E 189 | UF948 DC 318 I/O AREA WORD COUNT T4D01890
0022 0000 190 | UF949 DC 0 DISK BUFFER EXCEEDED ER SW T4D01900
0023 0000 191 | UF950 DC 0 NON-ZERO IF EOF READ T4D01910
0024 0000 192 | UF951 DC 0 SOCAL INDICATOR WORD 2-3 T4D01920
0025 0004 193 | UF952 DC 4 CONST 4 2-7 T4D01930
194 | * * T4D01940
0026 10A0 195 | UFIO SLT 32 INITIAL CALL TO FIO T4D01950
0027 6680 0000 196 | LDX I2 *-* RECORD ENTRY T4D01960
0029 7201 197 | MDX 2 1 UP XR2 TO POINT AT CALLS T4D01970
198 | * * T4D01980
002A C2FF 199 | LD 2 -1 FETCH 2ND PARAMETERS T4D01990
002B 1884 200 | SRT 4 SAVE PREC & INT SZE IN Q T4D02000
002C 1010 201 | SLA 16 T4D02010
002D 1083 202 | SLT 3 T4D02020
203 | * * T4D02030
002E D0D4 204 | STO UF903 T4D02040
002F D0D2 205 | STO UF902 SET UP PREC AND INT SIZE T4D02050
206 | * T4D02060
0030 1081 207 | SLT 1 CHK BIT 15 T4D02070
0031 4804 208 | BSC E SKIP ON EVEN T4D02080
0032 7002 209 | MDX *+2 BR WITH INT SIZE TWO-WRDS T4D02090
210 | * T4D02100
0033 C0D5 211 | LD UF909 SET INT SIZE T4D02110
0034 D0CD 212 | STO UF902 *TO ONE WORDD T4D02120
213 | * T4D02130
0035 68EE 214 | STX UF951 SET SOCAL INDICATOR 2-3 T4D02140
0036 C2FE 215 | LD 2 -2 TEST IF FIRST TIME 2-3 T4D02150
0037 90D8 216 | S UF917 *UFIO WAS CALLED 2-3 T4D02160
0038 4C98 00F9R 217 | BSC I UF290,+- BRANCH IF NO 2-3 T4D02170
218 | * 2-3 T4D02180
003A C0D5 219 | LD UF917 SET UP RESTART T4D02190
003B D2FE 220 | STO 2 -2 PROCEDURE T4D02200
003C 4E00 0000 221 | BSC L2 0 RETURN TO MAIN T4D02210
222 | * T4D02220
003E 0000 223 | UF100 DC *-* T4D02230
003F 6600 0140 224 | LDX L2 320 SET COUNT OF BFR 2-7 T4D02240
0041 1010 225 | SLA 16 CLEAR ACC T4D02250
0042 D600 01B5R 226 | UF110 STO L2 UF992-1 STORE IN BFR T4D02260
0044 72FF 227 | MDX 2 -1 DECRE COUNT BY 1 T4D02270
0045 70FC 228 | MDX UF110 IF NOT EXHAUSTED, BRANCH T4D02280
229 | * * T4D02290
0046 6600 0080R 230 | LDX L2 X EXHAUSTED, BFR CLEARED T4D02300
231 | * * T4D02310
0048 4C80 003ER 232 | BSC I UF100 BRANCH BACK TO CALLER T4D02320
233 | * * T4D02330
004A 0000 234 | UF120 DC *-* ENTER HERE TO DO A READ T4D02340
004B C0FE 235 | LD UF120 T4D02350
004C D002 236 | STO UF130 SET FOR RETURN T4D02360
004D C0BA 237 | LD UF945 T4D02370
004E 7002 238 | MDX UF130+2 GO TO DO A READ T4D02380
239 | * T4D02390
004F 0000 240 | UF130 DC *-* ENTER HERE TO DO A WRITE T4D02400
0050 C0B8 241 | LD UF947 T4D02410
0051 18D0 242 | RTE 16 FUNC CODE TO Q T4D02420
0052 C0CF 243 | LD UF949 TEST IF DISK BUFFER FILLED T4D02430
0053 4C18 0058R 244 | BSC L UF140,+- BRANCH IF NOT T4D02440
0055 C0C6 245 | LD UF939 SET ERROR CODE T4D02450
0056 400C 246 | BSI UF150 GO INDICATE ERROR T4D02460
0057 6038 247 | LDX $EXIT CALL EXIT T4D02470
248 | * T4D02480
0058 C0BB 249 | UF140 LD UF923 COMPUTE SECTOR ADDRESS FOR T4D02490
0059 8400 0079 250 | A L $UFIO *READ OR WRITE AND STORE T4D02500
005B 9289 251 | S 2 UF909-X * T4D02510
005C D400 01B5R 252 | STO L UF990+1 *INTO THE I/O BUFFER T4D02520
005E C0C1 253 | LD UF946 I/O BUFFER ADDRESS T4D02530
005F 18D0 254 | RTE 16 ROTATE BOTH CODES T4D02540
0060 400E 255 | BSI UF160 GO TO PERFORM I/O T4D02550
0061 4C80 004FR 256 | BSC I UF130 RETURN T4D02560
257 | * * T4D02570
258 | *************************************************** T4D02580
259 | * * T4D02590
260 | * HANDLE THE 3 SOFTWARE ERRORS. THE BFR * T4D02600
261 | * IS CLEARED EXCEPT WHEN THE ERR IS IN UNIT * T4D02610
262 | * REFERENCE. SUFIO IS MOD NOT TO PERFORM * T4D02620
263 | * FURTHER I/O T4D02630
264 | * * T4D02640
265 | *************************************************** T4D02650
0063 0000 266 | UF150 DC *-* RECORD RETURN ADDR T4D02660
0064 E8BA 267 | OR UF944 COMPUTE ERROR CODE 2-6 T4D02670
0065 D0B7 268 | STO UF941 SAVE ERROR IND - IF NON-Z T4D02680
0066 100B 269 | SLA 11 2-6 T4D02690
0067 4420 003ER 270 | BSI L UF100,Z GO TO CLEAR BFR T4D02700
0069 C0B4 271 | LD UF943 T4D02710
006A D005 272 | STO UF160+1 SET TO BYPASS FURTHER I/O T4D02720
273 | * * T4D02730
006B 1706*4885 274 | LIBF PAUSE GO DISPLAY THE 2-6 T4D02740
006C 001DR 275 | DC UF941 *ERROR CODE 2-6 T4D02750
276 | * T4D02760
006D 4C80 0063R 277 | BSC I UF150 EXIT ERROR RTN T4D02770
278 | * * T4D02780
006F 0000 279 | UF160 DC *-* ROUTINE TO TRANSMIT RECORD T4D02790
0070 1000 280 | NOP T4D02800
0071 7400 0018R 281 | MDX L UF935,0 HAS LAST RECORD ALREADY T4D02810
0073 7026 282 | MDX UF230 *BEEN ENCOUNTERED. YES-ERR T4D02820
0074 4400 00F2 283 | UF170 BSI L DZ000 RD OR WR 1 SCTR FROM DISK T4D02830
0076 C400 0079 284 | LD L $UFIO T4D02840
0078 8289 285 | A 2 UF909-X INCR SECTOR POINTER T4D02850
0079 D400 0079 286 | STO L $UFIO T4D02860
007B 9295 287 | S 2 UF922-X TEST IF DISK BUFFER END T4D02870
007C 4830 288 | BSC -Z SKIP IF NOT END T4D02880
007D 68A4 289 | STX UF949 INDICATE NO MORE DISK BUFR T4D02890
290 | * T4D02900
007E 7400 00EE 291 | MDX L $DBSY,0 SKIP IF DISKZ NOT BUSY T4D02910
0080 70FD 292 | MDX *-3 LOOP IF DISKZ BUSY T4D02920
293 | * T4D02930
0081 C28C 294 | UF180 LD 2 UF912-X IS A READ SPECIFIED T4D02940
0082 4C20 0095R 295 | BSC L UF210,Z IF NO, BRANCH TO HANDLE WT T4D02950
0084 C400 01B7R 296 | LD L UF992+1 GET WORD COUNT FROM BUFFER T4D02960
0086 4C28 008BR 297 | BSC L UF200,+Z IS IT NEG., IF YES, BRANCH T4D02970
0088 D296 298 | UF190 STO 2 UF933-X NO, STORE INTO BUFFER CNT. T4D02980
0089 4C80 006FR 299 | BSC I UF160 RETURN TO CALLING PROGRAM T4D02990
008B D298 300 | UF200 STO 2 UF935-X SET LAST RECORD IND. T4D03000
008C E291 301 | AND 2 UF918-X ELIMINATE LAST REC. BIT T4D03010
008D 4C20 0088R 302 | BSC L UF190,Z BRANCH IF COUNT NOT ZERO T4D03020
303 | * T4D03030
304 | * END FILE ENCOUNTERED T4D03040
008F C37C 305 | LD 3 124 LOAD FUNCTIONAL ERROR WD T4D03050
0090 EA8F 306 | OR 2 UF916-X SET END FILE BIT ON T4D03060
0091 D37C 307 | STO 3 124 RESTORE INDICATOR WORD T4D03070
0092 D2A3 308 | STO 2 UF950-X SET EOF SWITCH T4D03080
0093 1010 309 | SLA 16 LOAD ZERO T4D03090
0094 70F3 310 | MDX UF190 BRANCH BACK FOR RETURN T4D03100
311 | * T4D03110
0095 40A8 312 | UF210 BSI UF100 NO, CLEAR BUFFER T4D03120
0096 70F1 313 | MDX UF190 RETURN TO CALLING PROGRAM T4D03130
314 | * T4D03140
0097 1010 315 | UF220 SLA 16 CLEAR A FOR ERROR CODE T4D03150
0098 40CA 316 | BSI UF150 *AND GO TO ERROR ROUTINE T4D03160
0099 707C 317 | MDX UF350 EXIT SUFIO T4D03170
318 | * T4D03180
009A C29B 319 | UF230 LD 2 UF938-X SET ERROR CODE IN A REG. T4D03190
009B 40C7 320 | BSI UF150 *AND GO TO ERROR ROUTINE T4D03200
009C 70FC 321 | MDX UF230-1 GO OUT 2-10 T4D03210
322 | * * T4D03220
323 | * ENTER HERE FROM RD/WRT CALL PROCESSING * T4D03230
324 | * TO HANDLE PROCEDURES COMMON TO BOTH * T4D03240
325 | * * T4D03250
326 | * * T4D03260
009D 0000 327 | UF300 DC *-* RECORD RETURN ADDR T4D03270
009E D28C 328 | STO 2 UF912-X SET READ-WRITE SWITCH T4D03280
329 | * T4D03290
009F C28E 330 | LD 2 UF914-X RESTO NOP CONDITION T4D03300
00A0 D0CF 331 | STO UF160+1 TO DZ000 INTERFACING T4D03310
332 | * T4D03320
00A1 CA8D 333 | UF310 LDD 2 UF913-X YES, SET BFR ADDR IN T4D03330
00A2 DA86 334 | STD 2 UF906-X *BUFFER PT AND INITLZ POS T4D03340
00A3 10A0 335 | SLT 32 CLEAR A AND ' T4D03350
00A4 DA84 336 | STD 2 UF904-X CLEAR CNTR AND REDO IND. T4D03360
00A5 D281 337 | STO 2 UF901-X CLEAR COUNT OF LIST ELEMTS T4D03370
00A6 D298 338 | STO 2 UF935-X CLEAR LAST RECORD IND. T4D03380
00A7 D296 339 | STO 2 UF933-X CLEAR BUFFER COUNT T4D03390
00A8 D299 340 | STO 2 UF936-X SET REC. CNT. TO ZERO T4D03400
00A9 D2A3 341 | STO 2 UF950-X RESET EOF SWITCH T4D03410
00AA D29D 342 | STO 2 UF941-X RESET ERROR SW 2-10 T4D03415
00AB 42BE 343 | BSI 2 UF100-X BRANCH TO CLEAR BUFFER T4D03420
00AC 7101 344 | MDX 1 1 COMPUTE RETURN ADDRESS T4D03430
00AD 696B 345 | STX 1 UF350+3 SAVE RETURN ADDRESS T4D03440
00AE C580 FFFF 346 | LD I1 -1 GET LOGICAL UNIT NO. T4D03450
00B0 9004 347 | S UF970 IS DEVICE UNFORMATTED DISK T4D03460
00B1 4C20 0097R 348 | BSC L UF220,Z IF NO, GO HANDLE ERROR T4D03470
00B3 4C80 009DR 349 | BSC I UF300 BRANCH BACK TO READ OR WRT T4D03480
350 | * T4D03490
00B5 000A 351 | UF970 DC 10 CONSTANT 10 T4D03500
352 | * T4D03510
353 | * LIBF BCKSP ENTRY T4D03520
354 | * T4D03530
00B6 6960 355 | BCKSP STX 1 UF350+1 SAVE XR1 T4D03540
00B7 6580 0000 356 | LDX I1 *-* RECORD ENTRY T4D03550
00B9 6600 0080R 357 | LDX L2 X SET TABLE POINTER T4D03560
00BB 40E1 358 | BSI UF300 GO TO COMMON AREA FOR I/O T4D03570
00BC 74FF 0079 359 | MDX L $UFIO,-1 BACKSPACE POINTER T4D03580
360 | * IF THE NEXT INSTRUCTION T4D03590
361 | * IS SKIPPED THE DISK WAS T4D03600
362 | * AT 'LOAD POINT' T4D03610
00BE 7001 363 | MDX UF320 CONTINUE, NOT LOAD POINT T4D03620
364 | * T4D03630
365 | * NO BACKSPACE MAY OCCUR T4D03640
366 | * T4D03650
00BF 7013 367 | MDX UF325 RESET POINTER TO 'LOAD PT' T4D03660
368 | * T4D03670
00C0 1010 369 | UF320 SLA 16 SET READ-WRITE INDICATOR T4D03680
00C1 D28C 370 | STO 2 UF912-X *TO PERFORM READ T4D03690
00C2 D2A2 371 | STO 2 UF949-X RESET ERROR SWITCH 2-3 T4D03700
00C3 42CA 372 | BSI 2 UF120-X GO READ DISK RECORD T4D03710
00C4 C400 0079 373 | LD L $UFIO LOAD UFIO SECTOR POINTER T4D03720
00C6 9400 01B6R 374 | S L UF992 BACKSPACE SECTOR POINTER T4D03730
00C8 D400 0079 375 | STO L $UFIO RESTORE SECTOR POINTER T4D03740
00CA 704B 376 | MDX UF350 EXIT T4D03750
377 | * T4D03760
378 | * T4D03770
379 | * LIBF REWND ENTRY POINT T4D03780
380 | * T4D03790
381 | * T4D03800
00CB 694B 382 | REWND STX 1 UF350+1 SAVE XR1 T4D03810
00CC 6580 0000 383 | LDX I1 *-* RECORD ENTRY T4D03820
00CE 6600 0080R 384 | LDX L2 X SET TABLE POINTER T4D03830
00D0 1010 385 | SLA 16 2-3 T4D03840
00D1 D2A2 386 | STO 2 UF949-X RESET ERROR SWITCH 2-3 T4D03850
00D2 40CA 387 | BSI UF300 GO TO COMMON AREA FOR I/O T4D03860
00D3 C289 388 | UF325 LD 2 UF909-X T4D03870
00D4 D400 0079 389 | STO L $UFIO SET SECTOR PT TO 'LOAD PT' T4D03880
00D6 703F 390 | MDX UF350 EXIT T4D03890
391 | * T4D03900
392 | * T4D03910
393 | * LIBF EOF ENTRY POINT T4D03920
394 | * T4D03930
395 | * T4D03940
00D7 693F 396 | EOF STX 1 UF350+1 SAVE XR1 T4D03950
00D8 6580 0000 397 | LDX I1 *-* RECORD ENTRY T4D03960
00DA 6600 0080R 398 | LDX L2 X SET TABLE POINTER T4D03970
00DC 40C0 399 | BSI UF300 GO TO COMMON AREA FOR I/O T4D03980
00DD 42BE 400 | BSI 2 UF100-X CLEAR I/O BUFFER T4D03990
00DE C292 401 | LD 2 UF919-X T4D04000
00DF D400 01B7R 402 | STO L UF990+3 SET -0 WORD COUNT T4D04010
00E1 C289 403 | LD 2 UF909-X T4D04020
00E2 D400 01B6R 404 | STO L UF990+2 SET PHYSICAL RECORD NO. 1 T4D04030
00E4 42CF 405 | BSI 2 UF130-X GO WRITE END FILE T4D04040
00E5 7030 406 | MDX UF350 RETURN T4D04050
407 | * T4D04060
408 | * T4D04070
409 | * LIBF URED ENTRY POINT T4D04080
410 | * T4D04090
00E6 6930 411 | URED STX 1 UF350+1 SAVE XR1 T4D04100
00E7 6580 0000 412 | LDX I1 *-* RECORD ENTRY T4D04110
00E9 400F 413 | BSI UF290 CHECK IF SOCAL 2-3 T4D04120
00EA 6600 0080R 414 | LDX L2 X SET TABLE POINTER T4D04130
00EC 1010 415 | SLA 16 CLEAR A FOR READ IND. T4D04140
00ED 40AF 416 | BSI UF300 GO TO COMMON AREA FOR I/O T4D04150
00EE 42CA 417 | BSI 2 UF120-X GO READ A RECORD T4D04160
00EF 7026 418 | MDX UF350 GO TO EXIT T4D04170
419 | * T4D04180
420 | * T4D04190
421 | * LIBF UWRT ENTRY POINT T4D04200
422 | * T4D04210
00F0 6926 423 | UWRT STX 1 UF350+1 SAVE I.R. 1 T4D04220
00F1 6580 0000 424 | LDX I1 *-* RECORD ENTRY T4D04230
00F3 4005 425 | BSI UF290 CHECK IF SOCAL 2-3 T4D04240
00F4 6600 0080R 426 | LDX L2 X SET TABLE POINTER T4D04250
00F6 C29A 427 | LD 2 UF937-X LOAD IND. FOR WRITE -(-1) T4D04260
00F7 40A5 428 | BSI UF300 GO TO COMMON AREA FOR I/O T4D04270
00F8 701D 429 | MDX UF350 GO TO EXIT T4D04280
430 | * 2-3 T4D04290
431 | * 2-3 T4D04300
432 | * CHECK SOCAL ROUTINE 2-3 T4D04310
433 | * 2-3 T4D04320
00F9 0000 434 | UF290 DC *-* LINK 2-3 T4D04330
00FA 6600 0080R 435 | LDX L2 X SET TABLE POINTER 2-10 T4D04335
00FC C2A4 436 | LD 2 UF951-X CHECK IF NEW OVERLAY 2-7 T4D04340
00FD 4CA0 00F9R 437 | BSC I UF290,Z BR IF NO 2-7 T4D04350
00FF C2A8 438 | LD 2 UFIO+2-X TEST IF EVER INITLZD 2-7 T4D04360
0100 4C20 0026R 439 | BSC L UFIO,Z BR IF YES 2-7 T4D04370
0102 C2A5 440 | LD 2 UF952-X SET UP ERROR F024 2-7 T4D04380
0103 42E3 441 | BSI 2 UF150-X BR TO DISP ERROR 2-7 T4D04390
0104 6038 442 | LDX $EXIT EXIT 2-7 T4D04400
443 | * T4D04410
444 | * LIBF UIOF ENTRY POINT T4D04420
445 | * T4D04430
0105 6911 446 | UIOF STX 1 UF350+1 SAVE I.R. 1 T4D04440
0106 6580 0000 447 | LDX I1 *-* REAL NON-SUB ELEMENT ENTRY T4D04450
0108 2002 448 | LDS 2 STATUS OF TWO FOR REAL T4D04460
0109 7004 449 | MDX UF330 BRANCH AHEAD T4D04470
450 | * T4D04480
451 | * T4D04490
452 | * LIBF UIOI ENTRY POINT T4D04500
453 | * T4D04510
010A 690C 454 | UIOI STX 1 UF350+1 SAVE I.R. 1 T4D04520
010B 6580 0000 455 | LDX I1 *-* INT. NON-SUB ELEMENT ENTRY T4D04530
010D 2000 456 | LDS 0 STATUS OF ZERO FOR INTEGER T4D04540
010E CA88 457 | UF330 LDD 2 UF908-X SET A TO ZERO, Q TO ONE T4D04550
010F 2A95 458 | STS 2 UF932-X SET INTEGER/REAL INDICATOR T4D04560
0110 7010 459 | MDX UF370 BRANCH AHEAD T4D04570
460 | * T4D04580
461 | * T4D04590
462 | * LIBF UIOFX ENTRY POINT T4D04600
463 | * T4D04610
0111 6905 464 | UIOFX STX 1 UF350+1 SAVE I.R. 1 T4D04620
0112 6580 0000 465 | LDX I1 *-* REAL SUB. ELEMENT ENTRY T4D04630
0114 2002 466 | LDS 2 STATUS OF TWO FOR REAL T4D04640
0115 7008 467 | MDX UF360 BRANCH AHEAD T4D04650
468 | * T4D04660
0116 6500 0000 469 | UF350 LDX L1 *-* RESTORE I.R. 1 T4D04670
0118 4C00 0000 470 | BSC L *-* RETURN TO CALLING PROGRAM T4D04680
471 | * T4D04690
472 | * T4D04700
473 | * LIBF UIOIX ENTRY POINT T4D04710
474 | * T4D04720
011A 69FC 475 | UIOIX STX 1 UF350+1 SAVE I.R. 1 T4D04730
011B 6580 0000 476 | LDX I1 *-* INT. SUB. ELEMENT ENTRY T4D04740
011D 2000 477 | LDS 0 STATUS OF ZERO FOR INTEGER T4D04750
011E 2A95 478 | UF360 STS 2 UF932-X SET INT/REAL INDR T4D04760
011F CA88 479 | LDD 2 UF908-X SET Q REGISTER TO 1 T4D04770
0120 C0F6 480 | LD UF350+1 LOAD DISPLACEMENT INTO A T4D04780
481 | * T4D04790
0121 8100 482 | UF370 A 1 0 ELEMENT ADDR T4D04800
0122 7101 483 | MDX 1 1 SET XR1 FOR RETURN T4D04810
0123 700E 484 | MDX UF410 BRANCH AHEAD T4D04820
485 | * T4D04830
486 | * T4D04840
487 | * LIBF UIOAI ENTRY POINT T4D04850
488 | * T4D04860
0124 69F2 489 | UIOAI STX 1 UF350+1 SAVE I.R. 1 T4D04870
0125 6580 0000 490 | LDX I1 *-* INT. NON-SUB ARRAY ENTRY T4D04880
0127 2000 491 | LDS 0 STATUS OF ZERO FOR INTEGER T4D04890
0128 7004 492 | MDX UF400 BRANCH AHEAD T4D04900
493 | * T4D04910
494 | * T4D04920
495 | * LIBF UIOAF ENTRY POINT T4D04930
496 | * T4D04940
0129 69ED 497 | UIOAF STX 1 UF350+1 SAVE I.R. 1 T4D04950
012A 6580 0000 498 | LDX I1 *-* REAL NON-SUB ARRAY ENTRY T4D04960
012C 2002 499 | LDS 2 STATUS OF TWO FOR REAL T4D04970
500 | * T4D04980
012D 2A95 501 | UF400 STS 2 UF932-X SET INTEGER/REAL INDICATOR T4D04990
012E C101 502 | LD 1 1 LD CNT OF ARRAY ELEMENTS T4D05000
012F 1890 503 | SRT 16 PUT INTO Q REGISTER T4D05010
0130 C100 504 | LD 1 0 LOAD ARRAY ADDRESS T4D05020
0131 7102 505 | MDX 1 2 SET XR1 FOR RETURN T4D05030
506 | * T4D05040
0132 DA80 507 | UF410 STD 2 UF900-X ELEMENT ADDR AND COUNT T4D05050
0133 C295 508 | LD 2 UF932-X IS AN INTEGER SPECIFIED T4D05060
0134 4C18 0138R 509 | BSC L UF420,+- IF YES, BRANCH AHEAD T4D05070
0136 C283 510 | LD 2 UF903-X LOAD PREC. FOR WORD CNT T4D05080
0137 7001 511 | MDX *+1 BRANCH AHEAD T4D05090
512 | * T4D05100
0138 C282 513 | UF420 LD 2 UF902-X LOAD INT. SIZE FOR WD. CNT T4D05110
0139 D28A 514 | STO 2 UF910-X *AND STORE FOR WD CNT T4D05120
013A 6D00 0119R 515 | STX L1 UF350+3 STORE RETURN ADDRESS T4D05130
013C C29D 516 | LD 2 UF941-X HAS ERR BEEN DISPLAYED2-10 T4D05132
013D 4C20 0116R 517 | BSC L UF350,Z IF YES,GO OUT 2-10 T4D05134
518 | * IF NO,CONTINUE 2-10 T4D05136
519 | * T4D05140
013F 7400 0023R 520 | UF430 MDX L UF950,0 SKIP IF EOF NOT READ T4D05150
0141 70D4 521 | MDX UF350 BRANCH IF EOF READ T4D05160
522 | * T4D05170
0142 C281 523 | LD 2 UF901-X IS COUNT OF VAR. EXHAUSTED T4D05180
0143 4C18 0116R 524 | BSC L UF350,+- IF YES,RETURN TO CALLER T4D05190
525 | * T4D05200
0145 C285 526 | UF440 LD 2 UF905-X IF REDO IND. IS ON, T4D05210
0146 4818 527 | BSC +- *GO TRASMIT RECORD T4D05220
0147 7013 528 | MDX UF460 GO CHECK COUNT FOR CONT. T4D05230
0148 10A0 529 | SLT 32 CLEAR REDO IND. T4D05240
0149 DA84 530 | STD 2 UF904-X *AND BUFFER COUNTER T4D05250
014A C287 531 | LD 2 UF907-X SET BUFFER PTR. FROM T4D05260
014B D286 532 | STO 2 UF906-X *INITIAL POSITION T4D05270
014C C28C 533 | LD 2 UF912-X IS THIS A READ OR WRITE T4D05280
014D 4818 534 | BSC +- IF WRITE, SKIP T4D05290
014E 42BE 535 | BSI 2 UF100-X IF READ, CLEAR BUFFER T4D05300
014F C299 536 | LD 2 UF936-X INCREMENT T4D05310
0150 8289 537 | A 2 UF909-X *RECORD COUNT T4D05320
0151 D299 538 | STO 2 UF936-X *BY ONE AND T4D05330
0152 D063 539 | STO UF990+2 *STORE VALUE IN I/O AREA T4D05340
0153 C28C 540 | LD 2 UF912-X T4D05350
0154 4818 541 | BSC +- SKIP ON WRITE T4D05360
0155 7004 542 | MDX UF450 GO TO DO A READ T4D05370
0156 C296 543 | LD 2 UF933-X SET BUFFER WD CNT INTO T4D05380
0157 D05F 544 | STO UF990+3 *RECORD IN I/O AREA T4D05390
0158 42CF 545 | BSI 2 UF130-X GO DO A WRITE T4D05400
0159 7001 546 | MDX UF460 SKIP TO CONT T4D05410
547 | * T4D05420
015A 42CA 548 | UF450 BSI 2 UF120-X GO DO A READ T4D05430
549 | * T4D05440
015B C286 550 | UF460 LD 2 UF906-X GET BUFFER POINTER T4D05450
015C 828A 551 | A 2 UF910-X INCR. BY AMOUNT OF VAR. T4D05460
015D 9297 552 | S 2 UF934-X HAS LAST BUF. ELEMENT BEEN T4D05470
015E 4C08 0163R 553 | BSC L UF470,+ EXCEEDED, IF NO, BRCH. AND T4D05480
0160 7402 0005R 554 | MDX L UF905,2 YES, SET REDO IND. T4D05490
0162 70E2 555 | MDX UF440 *AND BRANCH TO TRANSMIT T4D05500
556 | * T4D05510
0163 C28A 557 | UF470 LD 2 UF910-X SET WD. CNT. INTO T4D05520
0164 D293 558 | STO 2 UF926-X *TEMPORARY WORKING CELL T4D05530
0165 6580 0000R 559 | LDX I1 UF900 PUT VAR. ADDRS. IN I.R. T4D05540
560 | * T4D05550
0167 C28C 561 | UF480 LD 2 UF912-X IS THIS A READ OPERATION T4D05560
0168 4818 562 | BSC +- IF NO, SKIP TO HANDLE WRT T4D05570
0169 701C 563 | MDX UF520 GO HANDLE MOVE FOR READ T4D05580
016A C100 564 | LD 1 0 MOVE DATA FROM STORAGE T4D05590
016B D480 0006R 565 | STO I UF906 *TO BUFFER AREA T4D05600
566 | * T4D05610
016D 7401 0006R 567 | UF490 MDX L UF906,1 INCR. BUFFER POINTER BY 1 T4D05620
016F 7101 568 | MDX 1 1 INCR. VAR. ADDRS. BY 1 T4D05630
0170 1000 569 | NOP TO HANDLE SKIP T4D05640
0171 74FF 0013R 570 | MDX L UF926,-1 DECR. COUNT BY 1 T4D05650
0173 70F3 571 | MDX UF480 OKAY, GO GET NEXT WORD T4D05660
0174 C28C 572 | LD 2 UF912-X IS A READ SPECIFIED T4D05670
0175 4C18 017ER 573 | BSC L UF510,+- IF YES, BRANCH TO HANDLE T4D05680
0177 C296 574 | LD 2 UF933-X INCR. BUFFER T4D05690
0178 828A 575 | A 2 UF910-X *COUNT BY T4D05700
0179 D296 576 | UF500 STO 2 UF933-X *RESET T4D05710
017A CA80 577 | LDD 2 UF900-X DECR. ADDRESS OF VARIABLE T4D05720
017B 9A8A 578 | SD 2 UF910-X *BY 3 AND COUNT OF T4D05730
017C DA80 579 | STD 2 UF900-X *VARIABLES BY 1 T4D05740
017D 70C1 580 | MDX UF430 BRANCH BACK TO CHECK COUNT T4D05750
017E C296 581 | UF510 LD 2 UF933-X DECR. BUFFER T4D05760
017F 928A 582 | S 2 UF910-X *COUNT BY RESET T4D05770
0180 4810 583 | BSC - IF NEG., AN ERROR EXISTS T4D05780
0181 70F7 584 | MDX UF500 IF POS. OR 0, BRANCH AHEAD T4D05790
0182 C289 585 | LD 2 UF909-X SET ERROR CODE IN A REG. T4D05800
0183 42E3 586 | BSI 2 UF150-X *AND GO TO ERROR ROUTINE T4D05810
0184 C2A1 587 | LD 2 UF948-X RESTO ORIG WD CNT T4D05820
0185 70F3 588 | MDX UF500 BR TO RESET ADDR2 T4D05830
589 | * T4D05840
0186 C480 0006R 590 | UF520 LD I UF906 MOVE DATA FROM BUFFER AREA T4D05850
0188 D100 591 | STO 1 0 *TO STORAGE T4D05860
0189 70E3 592 | MDX UF490 BRANCH TO CHECK TEMP. CNT. T4D05870
593 | * T4D05880
594 | * T4D05890
595 | * LIBF UCOMP ENTRY POINT T4D05900
596 | * T4D05910
018A 698C 597 | UCOMP STX 1 UF350+1 SAVE I.R. 1 T4D05920
018B 6580 0000 598 | LDX I1 *-* I/O COMPLETE ENTRY POINT T4D05930
018D 698B 599 | STX 1 UF350+3 STORE RETURN ADDRESS T4D05940
018E C29D 600 | LD 2 UF941-X HAS ERR BEEN DISPLAYED2-10 T4D05942
018F 4C20 0116R 601 | BSC L UF350,Z YES-GO OUT.NO-CONTINUE2-10 T4D05944
0191 C28C 602 | LD 2 UF912-X IS READ SPECIFIED T4D05950
0192 4C18 01AER 603 | BSC L UF620,+- IF YES, BRANCH TO HANDLE T4D05960
0194 C285 604 | LD 2 UF905-X IS REDO IND. ON T4D05970
0195 4818 605 | BSC +- IF YES, SKIP TO WRITE REC- T4D05980
0196 700A 606 | MDX UF610 NO, BRANCH TO SET LAST REC T4D05990
607 | * T4D06000
0197 C296 608 | UF600 LD 2 UF933-X STORE BUFCT PLUS LAST T4D06010
0198 EA92 609 | OR 2 UF919-X *REC IND IN FIRST T4D06020
0199 D01D 610 | STO UF990+3 *WORD OF RECORD T4D06030
019A C299 611 | LD 2 UF936-X INCREMENT T4D06040
019B 8289 612 | A 2 UF909-X *RECORD COUNT T4D06050
019C D299 613 | STO 2 UF936-X *BY 1 AND T4D06060
019D D018 614 | STO UF990+2 *STORE VALUE IN I/O AREA T4D06070
615 | * T4D06080
019E 42CF 616 | BSI 2 UF130-X WRITE RECORD T4D06090
617 | * T4D06100
019F 4C00 0116R 618 | BSC L UF350 BR TO EXIT T4D06110
619 | * T4D06120
01A1 C296 620 | UF610 LD 2 UF933-X HAS LAST REC. BEEN WRITTEN T4D06130
01A2 4820 621 | BSC Z IF YES, SKIP TO HANDLE T4D06140
01A3 70F3 622 | MDX UF600 NO,BRANCH BACK TO WRITE IT T4D06150
01A4 74FF 0079 623 | MDX L $UFIO,-1 BKSP POINTER 1 SECTOR T4D06160
01A6 1010 624 | SLA 16 SET READ - WRITE IND. T4D06170
01A7 D28C 625 | STO 2 UF912-X *TO PERFORM A READ T4D06180
01A8 42CA 626 | BSI 2 UF120-X GO DO THE READ T4D06190
01A9 74FF 0079 627 | MDX L $UFIO,-1 BKSP POINTER 1 SECTOR T4D06200
01AB C29A 628 | LD 2 UF937-X SET READ - WRITE IND. T4D06210
01AC D28C 629 | STO 2 UF912-X *TO PERFORM A WRITE T4D06220
01AD 70E9 630 | MDX UF600 GO SET LAST RECORD IND. T4D06230
631 | * T4D06240
01AE C298 632 | UF620 LD 2 UF935-X IS LAST REC. IND. ON T4D06250
01AF 4C20 0116R 633 | BSC L UF350,Z IF YES, BR TO EXIT T4D06260
634 | * T4D06270
01B1 42CA 635 | BSI 2 UF120-X NO, GO READ RECS. UNTIL T4D06280
01B2 70FB 636 | MDX UF620 *IT GOES ON, BRANCH BACK T4D06290
637 | * T4D06300
638 | * T4D06310
639 | * UFIO DISK BUFFER T4D06320
640 | * T4D06330
01B4 641 | BSS E 0 T4D06340
01B4 0140 642 | UF990 DC 320 WORD COUNT FOR 1 SECTOR T4D06350
01B5 0000 643 | DC *-* SECTOR ADDRESS T4D06360
644 | * T4D06370
645 | * RECORD BEGINS HERE T4D06380
646 | * T4D06390
01B6 0000 647 | UF992 DC *-* RECORD NO. OF LOGICAL RCD T4D06400
01B7 0000 648 | DC *-* WORD COUNT (- IF LAST RCD) T4D06410
649 | * T4D06420
01B8 650 | BSS 318 BUFFER AREA T4D06430
651 | * T4D06440
02F6 652 | END T4D06450
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
$DBSY 00EE 131 291
$EXIT 0038 130 247 442
$UFIO 0079 129 250 284 286 359 373 375 389 623 627
BCKSP 00B6R 355
DZ000 00F2 132 283
EOF 00D7R 396
REWND 00CBR 382
UCOMP 018AR 597
UF100 003ER 223 232 270 312 343 400 535
UF110 0042R 226 228
UF120 004AR 234 235 372 417 548 626 635
UF130 004FR 240 236 238 256 405 545 616
UF140 0058R 249 244
UF150 0063R 266 246 277 316 320 441 586
UF160 006FR 279 255 272 299 331
UF170 0074R 283
UF180 0081R 294
UF190 0088R 298 302 310 313
UF200 008BR 300 297
UF210 0095R 312 295
UF220 0097R 315 348
UF230 009AR 319 282 321
UF290 00F9R 434 217 413 425 437
UF300 009DR 327 349 358 387 399 416 428
UF310 00A1R 333
UF320 00C0R 369 363
UF325 00D3R 388 367
UF330 010ER 457 449
UF350 0116R 469 317 345 355 376 382 390 396 406 411 418 423 429
446 454 464 475 480 489 497 515 517 521 524 597
599 601 618 633
UF360 011ER 478 467
UF370 0121R 482 459
UF400 012DR 501 492
UF410 0132R 507 484
UF420 0138R 513 509
UF430 013FR 520 580
UF440 0145R 526 555
UF450 015AR 548 542
UF460 015BR 550 528 546
UF470 0163R 557 553
UF480 0167R 561 571
UF490 016DR 567 592
UF500 0179R 576 584 588
UF510 017ER 581 573
UF520 0186R 590 563
UF600 0197R 608 622 630
UF610 01A1R 620 606
UF620 01AER 632 603 636
UF900 0000R 143 507 559 577 579
UF901 0001R 144 337 523
UF902 0002R 145 205 212 513
UF903 0003R 146 204 510
UF904 0004R 147 336 530
UF905 0005R 148 526 554 604
UF906 0006R 149 334 532 550 565 567 590
UF907 0007R 150 531
UF908 0008R 151 186 457 479
UF909 0009R 152 188 211 251 285 388 403 537 585 612
UF910 000AR 153 514 551 557 575 578 582
UF912 000CR 157 294 328 370 533 540 561 572 602 625 629
UF913 000DR 159 333
UF914 000ER 160 330
UF916 000FR 162 306
UF917 0010R 163 216 219
UF918 0011R 164 301
UF919 0012R 165 401 609
UF920 0013R 166 167 168 169
UF922 0015R 167 287
UF923 0014R 168 249
UF926 0013R 169 558 570
UF932 0015R 171 458 478 501 508
UF933 0016R 173 298 339 543 574 576 581 608 620
UF934 0017R 174 552
UF935 0018R 175 281 300 338 632
UF936 0019R 177 340 536 538 611 613
UF937 001AR 178 427 628
UF938 001BR 179 319
UF939 001CR 180 245
UF941 001DR 182 268 275 342 516 600
UF943 001ER 184 271
UF944 001FR 185 267
UF945 0008R 186 237
UF946 0020R 187 253
UF947 0009R 188 241
UF948 0021R 189 587
UF949 0022R 190 243 289 371 386
UF950 0023R 191 308 341 520
UF951 0024R 192 214 436
UF952 0025R 193 440
UF970 00B5R 351 347
UF990 01B4R 642 187 252 402 404 539 544 610 614
UF992 01B6R 647 159 174 226 296 374
UFIO 0026R 195 438 439
UIOAF 0129R 497
UIOAI 0124R 489
UIOF 0105R 446
UIOFX 0111R 464
UIOI 010AR 454
UIOIX 011AR 475
URED 00E6R 411
UWRT 00F0R 423
X 0080R 141 230 251 285 287 294 298 300 301 306 308 319 328
330 333 334 336 337 338 339 340 341 342 343 357
370 371 372 384 386 388 398 400 401 403 405 414
417 426 427 435 436 438 440 441 457 458 478 479
501 507 508 510 513 514 516 523 526 530 531 532
533 535 536 537 538 540 543 545 548 550 551 552
557 558 561 572 574 575 576 577 578 579 581 582
585 586 587 600 602 604 608 609 611 612 613 616
620 625 626 628 629 632 635