ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:11 2020
Source File: \w5mtcaz.asm
MTCAZ - MTCA FORTRAN BUFFER
2 | *************************************************** W5C00020
3 | *STATUS - VERSION 2, MODIFICATION 9 * W5C00030
4 | * * W5C00040
5 | *SUBROUTINE NAME - * W5C00050
6 | * FULL NAME - MTCA FORTRAN BUFFERRING ROUTINE * W5C00060
7 | * CODE NAME - MTCAZ * W5C00070
8 | * * W5C00080
9 | *PURPOSE - * W5C00090
10 | * THIS SUBROUTINE ACTS AS A BUFFER BETWEEN THE * W5C00100
11 | * FORTRAN LANGUAGE USER AND THE ASSEMBLER * W5C00110
12 | * LANGUAGE ORIENTED MTCA BASE SECTION (MTCA0). * W5C00120
13 | * * W5C00130
14 | *METHOD - * W5C00140
15 | * THE ROUTINE CONSISTS OF TWO BASIC SECTIONS * W5C00150
16 | * * THE CALL SECTION PROCESSES THE * W5C00160
17 | * PARAMETERS AND RE-ASSEMBLES THEM IN THE * W5C00170
18 | * FORM OF A LIBF INSTRUCTION CAUSING A * W5C00180
19 | * BRANCH TO THE MTCA BASE SECTION (MTCA0). * W5C00190
20 | * WHERE APPROPRIATE AN ERROR RETURN * W5C00200
21 | * ADDRESS IS SUPPLIED. * W5C00210
22 | * * W5C00220
23 | *CAPABILITIES AND LIMITATIONS - N/A * W5C00230
24 | * * W5C00240
25 | *SPECIAL FEATURES - * W5C00250
26 | * CONTROL IS RETURNED FOLLOWING INITIATION OF * W5C00260
27 | * THE REQUESTED OPERATION. * W5C00270
28 | * * W5C00280
29 | *ADDITIONAL INFORMATION - * W5C00290
30 | * ERROR PROCEDURES - * W5C00300
31 | * ERRORS OCCURRING DURING THE EXECUTION OF A * W5C00310
32 | * COMMAND ARE PROCESSED AND DEALT WITH IN * W5C00320
33 | * ONE OF TWO WAYS - * W5C00330
34 | * * RECOVERABLE ERRORS, E.G. LINE ERRORS * W5C00340
35 | * CAUSE A LINE ERROR FLAG TO BE SET * W5C00350
36 | * APPROPRIATELY. * W5C00360
37 | * * NON-RECOVERABLE ERRORS CAUSE THE * W5C00370
38 | * PROGRAM TO LOOP IN $PRET DISPLAYING * W5C00380
39 | * AN APPROPRIATE ERROR CODE IN THE ACC. * W5C00390
40 | * CALLING SEQUENCE - * W5C00400
41 | * CALL MTCAZ(A,B,C) WHERE * W5C00410
42 | * * A IS THE COMMAND (0 TO 8) * W5C00420
43 | * 0 - TEST * W5C00430
44 | * 1 - READ * W5C00440
45 | * 2 - WRITE * W5C00450
46 | * 3 - CONNECT * W5C00460
47 | * 4 - DISCONNECT * W5C00470
48 | * 5 - PASS AND RESET LINE STATISTICS * W5C00480
49 | * 6 - DIAGNOSE * W5C00490
50 | * 7 - INITIALIZE * W5C00500
51 | * 8 - DISABLE MTCA * W5C00510
52 | * * B IS THE LINE NUMBER (1 TO 16) * W5C00520
53 | * * C IS AN INTEGER VARIABLE DEPENDENT ON * W5C00530
54 | * THE COMMAND * W5C00540
55 | * * W5C00550
56 | *************************************************** W5C00560
57 | * W5C00570
58 | * W5C00580
59 | *************************************************** W5C00590
60 | * * W5C00600
61 | * ENTRY AND HOUSEKEEPING * W5C00610
62 | * * W5C00620
63 | *************************************************** W5C00630
64 | * W5C00640
65 | ENT MTCAZ W5C00650
66 | * W5C00660
0028 67 | $PRET EQU 40 W5C00670
68 | * W5C00680
0000 0000 69 | MTCAZ DC *-* ENTRY POINT W5C00690
0001 D858 70 | STD FB902 SAVE ACC AND EXT W5C00700
0002 284D 71 | STS FB160 SAVE STATUS W5C00710
0003 694E 72 | STX 1 FB170+1 SAVE XR1 W5C00720
0004 6A4F 73 | STX 2 FB180+1 SAVE XR2 W5C00730
0005 6580 0000R 74 | LDX I1 MTCAZ SET XR1 AS PARAM PT W5C00740
75 | * W5C00750
76 | * W5C00760
77 | *************************************************** W5C00770
78 | * * W5C00780
79 | * TRANSFER PARAMETERS FROM CALL TO * W5C00790
80 | * SUBROUTINE * W5C00800
81 | * * W5C00810
82 | *************************************************** W5C00820
83 | * W5C00830
0007 C580 0000 84 | LD I1 0 GET FIRST PARAMETER W5C00840
0009 D00D 85 | STO FB901 *(COMMAND) W5C00850
000A 4C28 00D1R 86 | BN FB330 BR IF COMMAND NEG W5C00860
000C 9055 87 | S FB911 W5C00870
000D 4C30 00D1R 88 | BP FB330 BR IF INVALID W5C00880
000F C580 0001 89 | LD I1 1 GET SECOND PARAMETER W5C00890
0011 D003 90 | STO FB900 *(LINE NUMBER) W5C00900
0012 C102 91 | LD 1 2 GET THIRD PARAMETER W5C00910
0013 D048 92 | STO FB903 *(AREA OR FLAG) W5C00920
93 | * W5C00930
0015R 94 | FB900 EQU *+1 SAVE LOCN FOR LINE NO. W5C00940
95 | * W5C00950
0014 6600 0000 96 | LDX L2 *-* SET XR2 AS LINE PT W5C00960
97 | * W5C00970
98 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5C00980
99 | * SELECT ROUTINE ACCORDING TO COMMAND * W5C00990
100 | * * * * * * * * * * * * * * * * * * * * * * * * * * W5C01000
101 | * W5C01010
0017R 102 | FB901 EQU *+1 SAVE LOCN FOR COMMAND W5C01020
103 | * W5C01030
0016 6500 0000 104 | LDX L1 *-* SET XR1 AS TABLE PT W5C01040
0018 4D80 0063R 105 | B I1 FB912 BR TO REQUIRED ROUTINE W5C01050
106 | * W5C01060
107 | * W5C01070
108 | *************************************************** W5C01080
109 | * * W5C01090
110 | * TEST ROUTINE * W5C01100
111 | * * W5C01110
112 | *************************************************** W5C01120
113 | * W5C01130
001A C0FA 114 | FB010 LD FB900 FETCH LINE NUMBER W5C01140
001B D001 115 | STO FB020 SET UP CONTROL PARAM W5C01150
116 | * *IN LIBF W5C01160
001C 148C*3070 117 | LIBF MTCA0 INITIATE LIBF TO W5C01170
001D 0000 118 | FB020 DC *-* *PERFORM TEST W5C01180
119 | * W5C01190
001E 7009 120 | B FB030 BR IF LINE BUSY W5C01200
001F C600 007ER 121 | LD L2 FB929 FETCH ERROR CODE W5C01210
0021 E03F 122 | AND FB910 EDIT ERROR CODE W5C01220
0022 D480 005CR 123 | STO I FB903 SET TEST FLAG IF ERR W5C01230
0024 1010 124 | SLA 16 W5C01240
0025 D600 007ER 125 | STO L2 FB929 RESET LINE FLAG W5C01250
0027 7028 126 | B FB160 BR TO EXIT W5C01260
127 | * W5C01270
0028 C034 128 | FB030 LD FB904 W5C01280
0029 D480 005CR 129 | STO I FB903 SET TEST FLAG W5C01290
002B 7024 130 | B FB160 BR TO EXIT W5C01300
131 | * W5C01310
132 | * W5C01320
133 | *************************************************** W5C01330
134 | * * W5C01340
135 | * READ ROUTINE * W5C01350
136 | * * W5C01360
137 | *************************************************** W5C01370
138 | * W5C01380
002C C02F 139 | FB040 LD FB903 FETCH AREA ADDRESS W5C01390
002D D020 140 | STO FB140 SET UP LIBF AREA PARAM W5C01400
002E C04A 141 | LD FB923 FETCH ERROR ADDRESS W5C01410
002F 7017 142 | B FB120 BR TO ST ERR PARAM W5C01420
143 | * W5C01430
144 | * W5C01440
145 | *************************************************** W5C01450
146 | * * W5C01460
147 | * WRITE ROUTINE * W5C01470
148 | * * W5C01480
149 | *************************************************** W5C01490
150 | * W5C01500
0030 C02B 151 | FB050 LD FB903 FETCH POINTER TO AREA W5C01510
0031 D01C 152 | STO FB140 SET UP LIBF AREA PARAM W5C01520
0032 C047 153 | LD FB924 FETCH ERROR ADDRESS W5C01530
0033 7013 154 | B FB120 BR TO SET UP ERR PARAM W5C01540
155 | * W5C01550
156 | * W5C01560
157 | *************************************************** W5C01570
158 | * * W5C01580
159 | * CONNECT OR DISCONNECT ROUTINE * W5C01590
160 | * * W5C01600
161 | *************************************************** W5C01610
162 | * W5C01620
0034 C480 005CR 163 | FB060 LD I FB903 GET CONTROL PARAMETER W5C01630
0036 100F 164 | SLA 15 SET BIT 0 TO CONTROL W5C01640
0037 D600 007ER 165 | STO L2 FB929 SAVE IN LINE FLAG W5C01650
0039 C041 166 | LD FB925 FETCH ERROR ADDRESS W5C01660
167 | * W5C01670
003A D013 168 | FB070 STO FB140 SET UP PARAMETER W5C01680
003B C030 169 | LD FB913 FETCH NOP W5C01690
003C 700A 170 | B FB120 BR TO STORE NOP W5C01700
171 | * W5C01710
172 | * W5C01720
173 | *************************************************** W5C01730
174 | * * W5C01740
175 | * PASS LINE STATISTICS ROUTINE * W5C01750
176 | * * W5C01760
177 | *************************************************** W5C01770
178 | * W5C01780
003D C01E 179 | FB080 LD FB903 FETCH AREA ADDRESS W5C01790
003E 70FB 180 | B FB070 BR TO ST AREA PARAM W5C01800
181 | * W5C01810
182 | * W5C01820
183 | *************************************************** W5C01830
184 | * * W5C01840
185 | * DIAGNOSE ROUTINE * W5C01850
186 | * * W5C01860
187 | *************************************************** W5C01870
188 | * W5C01880
003F C03A 189 | FB090 LD FB924 FETCH ERROR RTN ADDR W5C01890
0040 70F9 190 | B FB070 BR TO ST ERR PARAM W5C01900
191 | * W5C01910
192 | * W5C01920
193 | *************************************************** W5C01930
194 | * * W5C01940
195 | * INITIALIZE ROUTINE * W5C01950
196 | * * W5C01960
197 | *************************************************** W5C01970
198 | * W5C01980
0041 148C*3070 199 | FB100 LIBF MTCA0 INITIALIZE W5C01990
0042 7000 200 | DC /7000 *COMMAND W5C02000
201 | * W5C02010
0043 700C 202 | B FB160 BR TO EXIT W5C02020
203 | * W5C02030
204 | * W5C02040
205 | *************************************************** W5C02050
206 | * * W5C02060
207 | * STOP ROUTINE * W5C02070
208 | * * W5C02080
209 | *************************************************** W5C02090
210 | * W5C02100
0044 148C*3070 211 | FB110 LIBF MTCA0 STOP W5C02110
0045 8000 212 | DC /8000 *COMMAND W5C02120
213 | * W5C02130
0046 7009 214 | B FB160 BR TO EXIT W5C02140
215 | * W5C02150
216 | * W5C02160
217 | *************************************************** W5C02170
218 | * * W5C02180
219 | * RESTORE AND RETURN ROUTINE * W5C02190
220 | * * W5C02200
221 | *************************************************** W5C02210
222 | * W5C02220
0047 D007 223 | FB120 STO FB150 ST LIBF PARAMETER W5C02230
0048 C0CC 224 | LD FB900 FETCH LINE NUMBER W5C02240
0049 8500 006BR 225 | A L1 FB913-1 SET UP APPROP. COMMAND W5C02250
004B D001 226 | STO FB130 SET UP LIBF COMMAND W5C02260
227 | * W5C02270
004C 148C*3070 228 | LIBF MTCA0 * W5C02280
004D 0000 229 | FB130 DC *-* * INITIATE W5C02290
004E 0000 230 | FB140 DC *-* * LIBF W5C02300
004F 0000 231 | FB150 DC *-* * W5C02310
232 | * W5C02320
0050 2000 233 | FB160 LDS 0 RESTORE STATUS W5C02330
0051 6500 0000 234 | FB170 LDX L1 *-* RESTORE XR1 W5C02340
0053 6600 0000 235 | FB180 LDX L2 *-* RESTORE XR2 W5C02350
0055 C804 236 | LDD FB902 RESTORE ACC AND EXT W5C02360
0056 7403 0000R 237 | MDM MTCAZ,3 SET PROGRAM RETURN ADDR W5C02370
0058 4C80 0000R 238 | B I MTCAZ RETURN TO CALLER W5C02380
239 | * W5C02390
240 | * W5C02400
241 | *************************************************** W5C02410
242 | * * W5C02420
243 | * CONSTANTS AND DATA AREAS * W5C02430
244 | * * W5C02440
245 | *************************************************** W5C02450
246 | * W5C02460
005A 247 | FB902 BSS E 2 CONTENTS OF ACC & EXT W5C02470
005C 0000 248 | FB903 DC *-* AREA OR FLAG PARAMETER W5C02480
005D 0001 249 | FB904 DC 1 CONSTANT 1 W5C02490
005E 0002 250 | FB905 DC 2 CONSTANT 2 W5C02500
005F 0003 251 | FB906 DC 3 CONSTANT 3 W5C02510
0060 0004 252 | FB907 DC 4 CONSTANT 4 W5C02520
0061 0007 253 | FB910 DC 7 CONSTANT 7 W5C02530
0062 0008 254 | FB911 DC 8 CONSTANT 8 W5C02540
255 | * W5C02550
0063 001AR 256 | FB912 DC FB010 TEST ROUTINE ADDR W5C02560
0064 002CR 257 | DC FB040 READ ROUTINE ADDR W5C02570
0065 0030R 258 | DC FB050 WRITE ROUTINE ADDR W5C02580
0066 0034R 259 | DC FB060 CONNECT ROUTINE ADDR W5C02590
0067 0034R 260 | DC FB060 DISCONNECT ROUTINE ADDR W5C02600
0068 003DR 261 | DC FB080 PASS STAT ROUTINE ADDR W5C02610
0069 003FR 262 | DC FB090 DIAGNOSE ROUTINE ADDR W5C02620
006A 0041R 263 | DC FB100 INITIALIZE ROUTINE ADDR W5C02630
006B 0044R 264 | DC FB110 STOP ROUTINE ADDR W5C02640
265 | * W5C02650
006C 1000 266 | FB913 DC /1000 READ COMMAND W5C02660
006D 2000 267 | DC /2000 WRITE COMMAND W5C02670
006E 3000 268 | DC /3000 CONNECT COMMAND W5C02680
006F 4000 269 | DC /4000 DISCONNECT COMMAND W5C02690
0070 5000 270 | DC /5000 PASS STATISTICS COMMAND W5C02700
0071 6000 271 | DC /6000 DIAGNOSE COMMAND W5C02710
272 | * W5C02720
0072 FF0B 273 | FB915 DC /FF0B INVALID COUNT ERROR W5C02730
0073 E009 274 | FB917 DC /E009 OVERRUN ERROR W5C02740
0074 E00F 275 | FB918 DC /E00F LINK NOT ACTIVE ERROR W5C02750
0075 E022 276 | FB919 DC /E022 INTERRUPT (ATTENTION) W5C02760
0076 0029 277 | FB920 DC /0029 TIMEOUT ERROR MASK W5C02770
0077 002A 278 | FB921 DC /002A WRITE, LINK NOT ACTIVE W5C02780
0078 002F 279 | FB922 DC /002F LOST DATA ERROR MASK W5C02790
280 | * W5C02800
0079 008FR 281 | FB923 DC FB190 READ ERR RTN ADDR W5C02810
007A 00ABR 282 | FB924 DC FB260 WRITE/DIAGNOSE ERR RTN W5C02820
007B 00C3R 283 | FB925 DC FB300 CONNECT ERR RTN ADDR W5C02830
007C 0000 284 | FB927 DC *-* SAVE LOCN FOR ERR CODE W5C02840
285 | * W5C02850
007D 0000 286 | FB928 DC *-* ERROR RETURN CODE W5C02860
287 | * 0 - ENDS THE OPERATION W5C02870
288 | * IN PROGRESS. W5C02880
289 | * 1 - REQUESTS THE OP W5C02890
290 | * BE CONTINUED. W5C02900
291 | * W5C02910
292 | *************************************************** W5C02920
293 | * LINE ERROR FLAGS * W5C02930
294 | *************************************************** W5C02940
295 | * * W5C02950
296 | * FOR READ, WRITE AND DIAGNOSE COMMANDS - * W5C02960
297 | * 0 - NO ERROR * W5C02970
298 | * 2 - BAD DATA ERROR * W5C02980
299 | * 3 - TIMEOUT ERROR * W5C02990
300 | * 4 - ATTENTION FEATURE (2741) * W5C03000
301 | * 5 - TMT ATTEMPTED WITH LINK NOT ACTIVE * W5C03010
302 | * 6 - TMT ATTEMPTED WHILE IN RCV MODE * W5C03020
303 | * 7 - ADAPTER FAILED * W5C03030
304 | * * W5C03040
305 | * FOR CONNECT, BIT 0 IS USED - * W5C03050
306 | * 0 - IGNORE LINK NOT ACTIVE ERROR * W5C03060
307 | * 1 - RESTORE CONNECT TIMEOUT * W5C03070
308 | * * W5C03080
309 | *************************************************** W5C03090
007E 007ER 310 | FB929 DC FB929 ADDR OF LINE ERR FLAGS W5C03100
007F 0000 311 | DC *-* LINE 1 ERROR FLAG W5C03110
0080 0000 312 | DC *-* LINE 2 ERROR FLAG W5C03120
0081 0000 313 | DC *-* LINE 3 ERROR FLAG W5C03130
0082 0000 314 | DC *-* LINE 4 ERROR FLAG W5C03140
0083 0000 315 | DC *-* LINE 5 ERROR FLAG W5C03150
0084 0000 316 | DC *-* LINE 6 ERROR FLAG W5C03160
0085 0000 317 | DC *-* LINE 7 ERROR FLAG W5C03170
0086 0000 318 | DC *-* LINE 8 ERROR FLAG W5C03180
0087 0000 319 | DC *-* LINE 9 ERROR FLAG W5C03190
0088 0000 320 | DC *-* LINE 10 ERROR FLAG W5C03200
0089 0000 321 | DC *-* LINE 11 ERROR FLAG W5C03210
008A 0000 322 | DC *-* LINE 12 ERROR FLAG W5C03220
008B 0000 323 | DC *-* LINE 13 ERROR FLAG W5C03230
008C 0000 324 | DC *-* LINE 14 ERROR FLAG W5C03240
008D 0000 325 | DC *-* LINE 15 ERROR FLAG W5C03250
008E 0000 326 | DC *-* LINE 16 ERROR FLAG W5C03260
327 | * W5C03270
328 | * W5C03280
329 | *************************************************** W5C03290
330 | * * W5C03300
331 | * READ ERROR ROUTINE * W5C03310
332 | * * W5C03320
333 | *************************************************** W5C03330
334 | * W5C03340
008F 0000 335 | FB190 DC *-* ENTRY POINT W5C03350
0090 F0E2 336 | EOR FB917 W5C03360
0091 4820 337 | SKP Z SKIP IF OVERRUN W5C03370
0092 F0CE 338 | EOR FB910 W5C03380
0093 4C18 009DR 339 | BZ FB210 BR IF PARITY ERROR W5C03390
0095 F0E2 340 | EOR FB922 W5C03400
0096 4C18 009CR 341 | BZ FB200 BR IF LOST DATA W5C03410
0098 F0DD 342 | EOR FB920 W5C03420
0099 4C18 00A8R 343 | BZ FB250 BR IF TIMEOUT W5C03430
344 | * W5C03440
009B 7009 345 | B FB240 BR TO RETURN W5C03450
346 | * W5C03460
009C C0C0 347 | FB200 LD FB904 SET ERROR RETURN CODE W5C03470
348 | * W5C03480
009D D0DF 349 | FB210 STO FB928 W5C03490
009E C0BF 350 | LD FB905 FETCH ERROR CODE 2 W5C03500
351 | * W5C03510
009F 18D0 352 | FB220 XCH FETCH LINE NUMBER W5C03520
00A0 80DD 353 | A FB929 SET UP POINTER TO LINE W5C03530
00A1 D002 354 | STO FB230+1 *ERROR FLAG W5C03540
00A2 18D0 355 | XCH RESTORE ERROR CODE W5C03550
00A3 D400 0000 356 | FB230 STO L *-* SET LINE ERROR FLAG W5C03560
00A5 C0D7 357 | FB240 LD FB928 FETCH ERROR RETURN CODE W5C03570
00A6 4C80 008FR 358 | B I FB190 RETURN TO RESP HANDLER W5C03580
359 | * W5C03590
00A8 D0D4 360 | FB250 STO FB928 CLEAR ERROR RETURN CODE W5C03600
00A9 C0B5 361 | LD FB906 FETCH ERROR CODE 3 W5C03610
00AA 70F4 362 | B FB220 BR TO CONTINUE W5C03620
363 | * W5C03630
364 | * W5C03640
365 | *************************************************** W5C03650
366 | * * W5C03660
367 | * WRITE/DIAGNOSE ERROR ROUTINE * W5C03670
368 | * * W5C03680
369 | *************************************************** W5C03690
370 | * W5C03700
00AB 0000 371 | FB260 DC *-* ENTRY POINT W5C03710
00AC D0CF 372 | STO FB927 SAVE ERROR CODE W5C03720
00AD C0FD 373 | LD FB260 GET RETURN ADDRESS W5C03730
00AE D0E0 374 | FB270 STO FB190 ST IN EXIT ADDRESS W5C03740
00AF 1010 375 | SLA 16 W5C03750
00B0 D0CC 376 | STO FB928 CLEAR RETURN CODE W5C03760
00B1 C0CA 377 | LD FB927 RESTORE ERROR CODE W5C03770
00B2 F0C2 378 | EOR FB919 W5C03780
00B3 4C18 00C1R 379 | BZ FB280+1 BR IF ATTENTION W5C03790
00B5 F0A8 380 | EOR FB905 W5C03800
00B6 4C18 00BFR 381 | BZ FB280-1 BR IF IN RCV MODE W5C03810
00B8 F0BE 382 | EOR FB921 W5C03820
00B9 4C18 00C0R 383 | BZ FB280 BR IF LINK NOT ACTIVE W5C03830
00BB F0A1 384 | EOR FB904 W5C03840
00BC 4C18 00D6R 385 | BZ FB340-1 BR IF INVALID COUNT W5C03850
386 | * W5C03860
00BE C09E 387 | LD FB904 GENERATE 7 W5C03870
00BF 809D 388 | A FB904 *APPROPRIATE 6 W5C03880
00C0 809C 389 | FB280 A FB904 *ERROR 5 W5C03890
00C1 809E 390 | A FB907 *CODE 4 W5C03900
00C2 70DC 391 | B FB220 BR TO CONTINUE W5C03910
392 | * W5C03920
393 | * W5C03930
394 | * W5C03940
395 | *************************************************** W5C03950
396 | * * W5C03960
397 | * CONNECT OR DISCONNECT ERROR ROUTINE * W5C03970
398 | * * W5C03980
399 | *************************************************** W5C03990
400 | * W5C04000
00C3 0000 401 | FB300 DC *-* ENTRY POINT W5C04010
00C4 D0B7 402 | STO FB927 SAVE ERROR CODE W5C04020
00C5 F0AE 403 | EOR FB918 LINK NOT ACTIVE ERROR W5C04030
00C6 4C20 00CFR 404 | BNZ FB310 *NO, BR TO CONTINUE W5C04040
00C8 18D0 405 | XCH FETCH LINE NUMBER W5C04050
00C9 80B4 406 | A FB929 GET ADDR OF LINE FLAG W5C04060
00CA D001 407 | STO *+1 W5C04070
00CB C400 0000 408 | LD L *-* GET CONTENTS OF FLAG W5C04080
00CD 4C80 00C3R 409 | B I FB300 RETURN TO RESP HANDLER W5C04090
410 | * W5C04100
00CF C0F3 411 | FB310 LD FB300 GET RETURN ADDRESS W5C04110
00D0 70DD 412 | B FB270 GO SET UP RETURN W5C04120
413 | * W5C04130
414 | * W5C04140
415 | *************************************************** W5C04150
416 | * * W5C04160
417 | * INVALID COMMAND ERROR ROUTINE * W5C04170
418 | * * W5C04180
419 | *************************************************** W5C04190
420 | * W5C04200
00D1 C580 0001 421 | FB330 LD I1 1 FETCH LINE NUMBER W5C04210
00D3 1890 422 | SRT 16 STORE IN EXTENSION W5C04220
00D4 C08D 423 | LD FB911 SET ERROR CODE IN ACC W5C04230
00D5 F087 424 | EOR FB904 * W5C04240
425 | * W5C04250
426 | * W5C04260
427 | *************************************************** W5C04270
428 | * * W5C04280
429 | * PREOPERATIVE ERROR TRAP * W5C04290
430 | * * W5C04300
431 | *************************************************** W5C04310
432 | * W5C04320
00D6 F09B 433 | EOR FB915 MASK ERROR CODE W5C04330
00D7 4400 0028 434 | FB340 BSI L $PRET BR TO PREOP ERROR TRAP W5C04340
00D9 70FD 435 | B FB340 LOOP ON $PRET W5C04350
436 | * W5C04360
437 | * W5C04370
00DA 438 | END W5C04380
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
$PRET 0028 67 434
FB010 001AR 114 256
FB020 001DR 118 115
FB030 0028R 128 120
FB040 002CR 139 257
FB050 0030R 151 258
FB060 0034R 163 259 260
FB070 003AR 168 180 190
FB080 003DR 179 261
FB090 003FR 189 262
FB100 0041R 199 263
FB110 0044R 211 264
FB120 0047R 223 142 154 170
FB130 004DR 229 226
FB140 004ER 230 140 152 168
FB150 004FR 231 223
FB160 0050R 233 71 126 130 202 214
FB170 0051R 234 72
FB180 0053R 235 73
FB190 008FR 335 281 358 374
FB200 009CR 347 341
FB210 009DR 349 339
FB220 009FR 352 362 391
FB230 00A3R 356 354
FB240 00A5R 357 345
FB250 00A8R 360 343
FB260 00ABR 371 282 373
FB270 00AER 374 412
FB280 00C0R 389 379 381 383
FB300 00C3R 401 283 409 411
FB310 00CFR 411 404
FB330 00D1R 421 86 88
FB340 00D7R 434 385 435
FB900 0015R 94 90 114 224
FB901 0017R 102 85
FB902 005AR 247 70 236
FB903 005CR 248 92 123 129 139 151 163 179
FB904 005DR 249 128 347 384 387 388 389 424
FB905 005ER 250 350 380
FB906 005FR 251 361
FB907 0060R 252 390
FB910 0061R 253 122 338
FB911 0062R 254 87 423
FB912 0063R 256 105
FB913 006CR 266 169 225
FB915 0072R 273 433
FB917 0073R 274 336
FB918 0074R 275 403
FB919 0075R 276 378
FB920 0076R 277 342
FB921 0077R 278 382
FB922 0078R 279 340
FB923 0079R 281 141
FB924 007AR 282 153 189
FB925 007BR 283 166
FB927 007CR 284 372 377 402
FB928 007DR 286 349 357 360 376
FB929 007ER 310 121 125 165 353 406
MTCAZ 0000R 69 74 237 238