ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:11 2020
Source File: \w1scat1.asm
SCAT1 **** CALL PROCESSING *********
2 | *************************************************** W1F00020
3 | * 1130 SYNCHRONOUS COMMUNICATIONS ADAPTER * W1F00030
4 | * TITLE - SCAT1 * W1F00040
5 | * STATUS-VERSION 2, MODIFICATION 9 * W1F00050
6 | * FUNCTION/OPERATION - SCAT1 CAN PERFORM THE * W1F00060
7 | * FOLLOWING FUNCTIONS * W1F00070
8 | * 1. TEST - SCAT1 TESTS A PROGRAMMED DEVICE RTN. * W1F00080
9 | * BUSY INDICATOR. * W1F00090
10 | * 2. OPEN WITH DATA OUT - SCAT1 ESTABLISHES SYNCH* W1F00100
11 | * RONISM BY HANDSHAKING, TRANSMITS THE * W1F00110
12 | * INQUIRY SEQUENCE. RECEIPT OF POSITIVE* W1F00120
13 | * ACKNOWLEDGEMENT COMPLETES FUNCTION. * W1F00130
14 | * 3. OPEN WITH DATA IN - SCAT1 ESTABLISHES SYNCH-* W1F00140
15 | * RONISM BY HANDSHAKING, AND CONTINUES * W1F00150
16 | * HANDSHAKING UNTIL AN INQUIRY IS RCVED* W1F00160
17 | * RECEIPT OF INQUIRY COMPLETES FUNCTION* W1F00170
18 | * 4. TRANSMIT DATA - SCAT1 TRANSMITS A START-OF- * W1F00180
19 | * RECORD SEQUENCE FOLLOWED BY THE * W1F00190
20 | * MESSAGE IN THE I/O AREA AND THE * W1F00200
21 | * PROGRAM GENERATED LONGITUDINAL * W1F00210
22 | * REDUNDANCY CHECK. RECEIPT OF THE * W1F00220
23 | * PROPER POSITIVE ACKNOWLEDGEMENT COMP-* W1F00230
24 | * LETES FUNCTION. * W1F00240
25 | * 5. TRANSMIT EOT - SCAT1 TRANSMITS EOT. RECEIPT * W1F00250
26 | * OF EOT COMPLETES FUNCTION. * W1F00260
27 | * 6. TRANSMIT TEL - SCAT1 TRANSMITS TEL. RECEIPT * W1F00270
28 | * OF TEL COMPLETES FUNCTION. * W1F00280
29 | * 7. ACKNOWLEDGE AND RECEIVE - SCAT1 TRANSMITS * W1F00290
30 | * AN ACKNOWLEDGEMENT AND RCVES A DATA * W1F00300
31 | * RECORD,A TEL SEQUENCE, OR AN EOT SEQ.* W1F00310
32 | * IF TEL OR EOT IS RECEIVED, TEL OR EOT* W1F00320
33 | * IS TRANSMITTED. RECEIPT OF DATA REC. * W1F00330
34 | * OR EOT COMPLETES FUNCTION. * W1F00340
35 | * 8. AUTO ANSWER ENABLE - SCAT1 ENABLES THE AUTO * W1F00350
36 | * ANSWER INTERRUPT. * W1F00360
37 | * 9. AUTO ANSWER DISABLE - SCAT1 DISABLES AUTO * W1F00370
38 | * ANSWER INTERRUPT. * W1F00380
39 | * 10. ALARM ON - SCAT1 TURNS ON THE AUDIBLE ALARM* W1F00390
40 | * 11. ALARM OFF - SCAT1 TURN OFF AUDIBLE ALARM. * W1F00400
41 | * 12. CLOSE - SCAT1 ENDS ALL S.C.A. OPERATIONS, * W1F00410
42 | * RESETS SOME PROGRAM INDICATORS TO * W1F00420
43 | * THEIR INITIAL CONDITION. * W1F00430
44 | * 13. ERROR STATISTICS - SCAT1 MAINTAINS AN 2-4* W1F00431
45 | * 8-WORD LOG OF ERROR STATISTICS. 2-4* W1F00432
46 | * REFER TO SRL FOR COMPLETE 2-4* W1F00433
47 | * DESCRIPTION FORM C26-3706 2-4* W1F00434
48 | * 14. LOGGING -SCAT1 PROVIDES THE POSSIBILITY 2-4* W1F00435
49 | * FOR A USER-WRITTEN PROGRAM TO LOG 2-4* W1F00436
50 | * ALL CHARACTERS RECEIVED OR TRANS- 2-4* W1F00437
51 | * MITTED,TIMEOUTS AND FUNCTION CODE 2-4* W1F00438
52 | * REFER TO SRL FOR COMPLETE 2-4* W1F00439
53 | * DESCRIPTION FORM C26-3706 2-4* W1F00440
54 | * ENTRY POINTS - .SCAT1.CALL ENTRANCE,LIBF SCAT1 * W1F00441
55 | * .INT1. INTERRUPT ENTRANCE, BSI * W1F00450
56 | * FROM INTERRUPT LEVEL 1 SUBROUTINE. * W1F00460
57 | * INPUT - FOUR-OF-EIGHT CODE, UNPACKED, LEFT-JUSTI* W1F00470
58 | * FIED STARTING AT IOAR+1. * W1F00480
59 | * OUTPUT - SAME AS INPUT. * W1F00490
60 | * EXTERNAL ROUTINES - IOLOG/CPLOG 2-4* W1F00500
61 | * EXITS-NORMAL - .RET. RETURN TO MAINLINE LIBF+2 * W1F00510
62 | * LIBF+3, OR LIBF+4 DEPENDING UPON * W1F00520
63 | * FUNCTION. * W1F00530
64 | * .INT1. INDIRECT, RETURN TO ILS01.* W1F00540
65 | * -ERROR - WORD 41 -PRE-OPERATIVE ERROR HALT* W1F00550
66 | * .USERR. BSI TO USERS ERROR RTN. * W1F00560
67 | * ON ALL POST-OPERATIVE ERRORS. * W1F00570
68 | * TABLES/WORK AREAS - THE MAJORITY OF CONSTANTS * W1F00580
69 | * AND SWITCHES USED IN SCAT1 FOLLOW .T.* W1F00590
70 | * AND ARE ACCESSED IN REFERENCE TO .T. * W1F00600
71 | * ATTRIBUTES - REUSABLE * W1F00610
72 | * NOTES - * W1F00620
73 | * SCAT1 IS AN INTERRUPT SERVICE SUBR. * W1F00630
74 | * IT IS CALLED BY .LIBF SCAT1. * W1F00640
75 | * THESE FUNCTIONS ARE AVAILABLE * W1F00650
76 | * 1. TEST * W1F00660
77 | * 2. OPEN WITH DATA OUT * W1F00670
78 | * 3. OPEN WITH DATA IN * W1F00680
79 | * 4. TRANSMIT DATA * W1F00690
80 | * 5. TRANSMIT EOT SEQUENCE * W1F00700
81 | * 6. TRANSMIT TEL SEQUENCE * W1F00710
82 | * 7. ACKNOWLEDGE AND RECEIVE * W1F00720
83 | * 8. AUTO ANSWER ENABLE * W1F00730
84 | * 9. AUTO ANSWER DISABLE * W1F00740
85 | * 10. ALARM ON * W1F00750
86 | * 11. ALARM OFF * W1F00760
87 | * 12. CLOSE * W1F00770
88 | * 13. ERROR STATISTICS 2-4* W1F00775
89 | *************************************************** W1F00780
90 | * W1F00790
91 | LIBR W1F00800
0000 92 | 1130 ISS 08 SCAT1 1 W1F00810
93 | * W1F00820
94 | *************************************************** W1F00830
95 | * CALL ENTRANCE W1F00840
96 | * THE GENERAL CALLING SEQUENCE IS W1F00850
97 | * LIBF SCAT1 W1F00860
98 | * DC /XXXX CONTROL PARAM. W1F00870
99 | * DC IOAR I/O AREA ADDRESS W1F00880
100 | * DC ERROR ERROR RTN. ADDR. W1F00890
101 | * REFER TO THE SRL TO FIND WHICH PARA- W1F00900
102 | * METERS ARE NECESSARY WITH W1F00910
103 | * WHICH FUNCTIONS. W1F00920
104 | *************************************************** W1F00930
105 | * W1F00940
0000 691F 106 | SCAT1 STX 1 XR1+1 CALL ENTRANCE (+0) W1F00950
0001 6580 0000 107 | LDX I1 *-* XR1= CALL ADDRESS+1 (+2) W1F00960
0003 700B 108 | MDX PROC BR. TO PROCESS CALL W1F00970
109 | * W1F00980
110 | *************************************************** W1F00990
111 | * INTERRUPT ENTRANCE W1F01000
112 | * THE INTERRUPT LEVEL SUBROUTINE FOR W1F01010
113 | * LEVEL 1 WILL DO A BSI TO .INT1. WHEN W1F01020
114 | * THERE IS AN ADAPTER INTERRUPT. W1F01030
115 | *************************************************** W1F01040
116 | * W1F01050
0004 0000 117 | INT1 DC 0 INTERRUPT ENTRANCE (+4) W1F01060
0005 4C00 014BR 118 | BSC L INT2 GO PROCESS INTERRUPT W1F01070
119 | * W1F01080
120 | *************************************************** W1F01090
121 | * CONSTANTS ************ W1F01100
122 | *************************************************** W1F01110
123 | * W1F01120
0007 6FFF 124 | H6FFF DC /6FFF FOR MODIFYING MDX W1F01130
0008 125 | AQ BSS E 2 FOR ACC AND EXT W1F01140
000A 7005 126 | H7005 DC /7005 MAXIMUM MDX W1F01150
000B 7002 127 | H7002 DC /7002 FOR MODIFYING MDX W1F01160
000C 03AER 128 | RCVR DC RCR ADDR OF RCV READ PROCESS W1F01170
000D 036BR 129 | RCVW DC RCW WRITE PROCESS W1F01180
000E 0457R 130 | RCVT DC RCTIM TIMEOUT PROC W1F01190
131 | * W1F01200
132 | *************************************************** W1F01210
133 | * THIS PORTION OF THE SCAT1 SUBROUTINE W1F01220
134 | * WILL PROCESS THE CALLING SEQUENCE. W1F01230
135 | *************************************************** W1F01240
136 | * W1F01250
000F D8F8 137 | PROC STD AQ SAVE W1F01260
0010 280D 138 | STS STAT W1F01270
0011 6A10 139 | STX 2 XR2B+1 W1F01280
0012 6600 00F2R 140 | LDX L2 T T=BASE ADDR OF CONSTANTS W1F01290
0014 C100 141 | LD 1 0 CONTROL PARAMETER W1F01300
0015 180C 142 | SRA 12 FUNCTION CODE W1F01310
0016 4C20 0039R 143 | BSC L NTEST,Z BRANCH IF NOT TEST W1F01320
0018 C23A 144 | LD 2 RTBSY-T TEST FUNCTION W1F01330
0019 4818 145 | BSC +- SKIP IF BUSY W1F01340
001A 7101 146 | EXIT MDX 1 +1 0=NOT BUSY, LIBF+3 W1F01350
001B 7101 147 | MDX 1 +1 +-=BUSY, LIBF+2 W1F01360
001C C8EB 148 | LDD AQ RESTORE W1F01370
001D 6906 149 | STX 1 RET+1 SET UP EXIT BRANCH W1F01380
001E 2000 150 | STAT LDS 0 RESTORE W1F01390
001F 6500 0000 151 | XR1 LDX L1 *-* W1F01400
0021 6600 0000 152 | XR2B LDX L2 *-* W1F01410
0023 4C00 0000 153 | RET BSC L *-* RETURN TO MAINLINE W1F01420
154 | * W1F01430
0025 1801 155 | CKTAB SRA 1 IS IT FUNCTION CODE 7 2-2 W1F01440
0026 4C20 002CR 156 | BSC L ER1,Z *IF NOT BRANCH 2-2 W1F01450
0028 C24F 157 | LD 2 TABCT-T GET STATISTIC TBL ADDR 2-2 W1F01460
0029 D580 0001 158 | STO I1 1 ADDR FOR ST IN PARAM 2 2-2 W1F01470
002B 70EE 159 | MDX EXIT EXIT TO LIBF+3 2-2 W1F01480
160 | * W1F01490
161 | *************************************************** W1F01500
162 | * PRE-OPERATIVE ERRORS W1F01510
163 | * CAUSE AN EXIT TO CORE LOCATION 41. W1F01520
164 | *************************************************** W1F01530
165 | * W1F01540
002C C009 166 | ER1 LD H8001 ERROR IN CALLING SEQUENCE W1F01550
002D 71FF 167 | MDX 1 -1 W1F01560
002E 6D00 0028 168 | STX L1 $PRET ADDR OF LIBF INTO 40 W1F01570
0030 6129 169 | LDX 1 $PRET+1 SYSTEM HALT IS AT 41 W1F01580
0028 170 | $PRET EQU 40 PRE-OPERATIVE ERROR TRAP W1F01590
0031 70EB 171 | MDX STAT-1 RESTORE AND EXIT W1F01600
172 | * W1F01610
0032 C004 173 | ER2 LD H8002 RCV OR XMIT NOT CMPLT W1F01620
0033 70F9 174 | MDX ER1+1 SET UP EXIT TO 41 W1F01630
175 | * W1F01640
0034 C003 176 | ER3 LD H8003 SYNC NOT ESTABLISHED YET W1F01650
0035 70F7 177 | MDX ER1+1 SET UP EXIT TO 41 W1F01660
178 | * W1F01670
179 | * W1F01680
180 | * W1F01690
0036 8001 181 | H8001 DC /8001 ERR CODE - BAD CALL W1F01700
0037 8002 182 | H8002 DC /8002 ERR CODE - NOT CMPLT W1F01710
0038 8003 183 | H8003 DC /8003 ERR CODE - NO SYNC, INQ W1F01720
184 | * W1F01730
185 | *************************************************** W1F01740
186 | * CONTINUE CALL PROCESSING W1F01750
187 | *************************************************** W1F01760
188 | * W1F01770
0039 80CD 189 | NTEST A H6FFF SET UP MDX TO FUNCTION W1F01780
003A D009 190 | STO BRNCH TYPE 1-3 W1F01790
003B 90CE 191 | S H7005 W1F01800
003C 4C30 0025R 192 | BSC L CKTAB,Z- BR TO CHECK FOR CODE 7 2-2 W1F01810
003E 80CC 193 | A H7002 W1F01820
003F D017 194 | STO BRAN MDX TO FUNCTION 4-6 W1F01830
195 | * W1F01840
0040 C100 196 | LD 1 0 CONTROL PARAMETER W1F01850
0041 035D*3587 197 | CALL CPLOG LOG CONTROL PARAMETER 2-2 W1F01860
0043 100C 198 | SLA 12 DIGIT 4 W1F01870
199 | * FOR AUTOA ENABLE/DISABLE W1F01880
200 | * FOR ALARM ON/OFF W1F01890
0044 70FF 201 | BRNCH MDX BRNCH MODIFIED BY FUNCTION CODE W1F01900
0045 703C 202 | MDX AUTOA AUTO ANSWER CODE 1 W1F01910
0046 7043 203 | MDX ALARM ALARM CODE 2 W1F01920
0047 7052 204 | MDX CLOSE CLOSE CODE 3 W1F01930
0048 4838 205 | BSC +-Z FALL THROUGH W1F01940
0049 1000 206 | NOP ON CODES 4, 5, 6 W1F01950
004A C23A 207 | TEST LD 2 RTBSY-T W1F01960
004B 4C20 004AR 208 | BSC L TEST,Z LOOP IF RTN IS BUSY W1F01970
004D C101 209 | LD 1 1 W1F01980
004E D20C 210 | STO 2 IOAR-T SAVE I/O AREA ADDRESS W1F01990
004F C102 211 | LD 1 2 SAVE ERROR ADDRESS W1F02000
0050 D03F 212 | STO USERR W1F02010
0051 C100 213 | LD 1 0 CONTROL PARAMETER W1F02020
0052 E03F 214 | AND H00F0 DIGIT 3 FOR ILRC W1F02030
0053 D22C 215 | STO 2 ILRC-T TURN ON ILRC IF REQUESTED W1F02040
0054 C480 00FER 216 | LD I IOAR W1F02050
0056 D230 217 | STO 2 WDCNT-T SAVE WORD COUNT W1F02060
0057 70FF 218 | BRAN MDX BRAN MODIFIED BY FUNCTION CODE W1F02070
0058 7051 219 | MDX OPEN OPEN CODE 4 W1F02080
0059 7077 220 | MDX XMIT TRANSMIT CODE 5 W1F02090
221 | * W1F02100
222 | *************************************************** W1F02110
223 | * W1F02120
224 | * ACKNOWLEDGE AND RECEIVE FUNCTION W1F02130
225 | * W1F02140
226 | *************************************************** W1F02150
005A C236 227 | LD 2 INQR-T W1F02160
005B 4C18 0034R 228 | BSC L ER3,+- BR IF NO INQ YET W1F02170
005D C230 229 | LD 2 WDCNT-T W1F02180
005E 4C08 002CR 230 | BSC L ER1,+ BR IF WORD COUNT INVALID W1F02190
231 | * SET UP RESPONSE ADDRESSES FOR W1F02200
232 | * SERVICING INTERRUPTS W1F02210
0060 C0AB 233 | LD RCVR W1F02220
0061 D206 234 | STO 2 RDF-T W1F02230
0062 C0AA 235 | LD RCVW W1F02240
0063 D208 236 | STO 2 WTF-T W1F02250
0064 C0A9 237 | LD RCVT W1F02260
0065 D20A 238 | STO 2 TIMF-T W1F02270
239 | * W1F02280
0066 1010 240 | SLA 16 W1F02290
0067 D247 241 | STO 2 TOIND-T CLEAR TIMEOUT INDICATOR W1F02300
0068 D248 242 | STO 2 TOCNT-T CLEAR TIMEOUT COUNTER W1F02310
0069 C100 243 | LD 1 0 W1F02320
006A E02B 244 | AND H0F00 WHAT TYPE OF RESPONSE W1F02330
006B 4C18 007CR 245 | BSC L POS,+- BR IF POSITIVE RESPONSE W1F02340
006D D23C 246 | STO 2 XERR-T TURN ON XMIT-ERR W1F02350
006E C24C 247 | LD 2 D000X-T NUMBER OF IDLES TO 2-2 W1F02360
006F D24D 248 | STO 2 IDLCT-T PROCEED TRANSMISSION 2-2 W1F02370
0070 C24E 249 | RCVX LD 2 NOCOD-T GET CHG. OF DIR. IND. 2-2 W1F02380
0071 4820 250 | BSC Z SKIP ON XMIT 2-2 W1F02390
0072 70FD 251 | MDX RCVX LOOP ON NON-XMIT 2-2 W1F02400
0073 0A10 252 | XIO 2 STWRT-T START WRITE 2-2 W1F02410
0074 C24A 253 | LD 2 D0007-T 7 RETRYS W1F02420
0075 D231 254 | STO 2 RETRY-T RETRY = 7 W1F02430
0076 D23A 255 | STO 2 RTBSY-T TURN ON ROUTINE BUSY W1F02440
0077 D235 256 | STO 2 FAIL-T TURN ON FAIL IND W1F02450
0078 1010 257 | SLA 16 W1F02460
0079 D24B 258 | STO 2 CLTM-T TURN OFF LOAD CL IND W1F02470
007A 7103 259 | MDX 1 +3 EXIT TO LIBF+4 W1F02480
007B 70A0 260 | MDX EXIT+2 GO TO RESTORE AND EXIT W1F02490
261 | * W1F02500
007C C000 262 | POS LD * W1F02510
007D D226 263 | STO 2 XACK-T TURN ON XMIT-ACK W1F02520
007E CA02 264 | LDD 2 ACK-T NEXT SOR TO RECEIVE W1F02530
007F 18D0 265 | RTE 16 W1F02540
0080 DA02 266 | STD 2 ACK-T NEXT ACK TO TRANSMIT W1F02550
0081 70EC 267 | MDX RCVX-2 GOTO START WRITE 2-2 W1F02560
268 | *************************************************** W1F02570
269 | * AFTER PROCESSING THE CALLING SEQUENCE W1F02580
270 | * FOR THE .RECEIVE. FUNCTION, THE W1F02590
271 | * FOLLOWING INDICATORS ARE SET W1F02600
272 | * W1F02610
273 | * .WDCNT. ON MAX. RECORD LENGTH W1F02620
274 | * .RTBSY. ON ROUTINE BUSY W1F02630
275 | * .ILRC. ON/OFF W1F02640
276 | * .RETRY. SET TO 3 W1F02650
277 | * FOR POSITIVE ACKNOWLEDGMENT, W1F02660
278 | * .XACK. ON TRANSMIT ACK W1F02670
279 | * .ACK. SWITCH FR 1-2 OR 2-1 W1F02680
280 | * FOR NEGATIVE ACKNOWLEDGEMENT, W1F02690
281 | * .XERR. ON TRANSMIT ERR W1F02700
282 | *************************************************** W1F02710
283 | *************************************************** W1F02720
284 | * W1F02730
285 | * AUTO ANSWER W1F02740
286 | * W1F02750
287 | *************************************************** W1F02760
0082 4C18 0086R 288 | AUTOA BSC L ENABL,+- BR IF ENABLE W1F02770
0084 0873 289 | XIO DISAA DISABLE W1F02780
0085 7095 290 | MDX EXIT+1 GOTO RESTORE AND EXIT W1F02790
0086 C101 291 | ENABL LD 1 1 W1F02800
0087 D00C 292 | STO ANS FOR INDICATION OF AUTO ANS W1F02810
0088 080B 293 | XIO ENAA ENABLE W1F02820
0089 7090 294 | MDX EXIT GOTO RESTORE AND EXIT W1F02830
295 | *************************************************** W1F02840
296 | * W1F02850
297 | * AUDIBLE ALARM W1F02860
298 | * W1F02870
299 | *************************************************** W1F02880
008A 4C20 008ER 300 | ALARM BSC L OFF,Z BRANCH IF OFF W1F02890
008C 0803 301 | XIO ALON ALARM ON W1F02900
008D 708D 302 | MDX EXIT+1 GOTO RESTORE AND EXIT W1F02910
008E 0803 303 | OFF XIO ALOFF ALARM OFF W1F02920
008F 708B 304 | MDX EXIT+1 GOTO RESTORE AND EXIT W1F02930
305 | * W1F02940
306 | *************************************************** W1F02950
307 | * CONSTANTS W1F02960
308 | *************************************************** W1F02970
0090 309 | BSS E 0 W1F02980
0090 0000 310 | ALON DC 0 ALARM ON W1F02990
0091 5102 311 | DC /5102 IOCC W1F03000
0090R 312 | USERR EQU ALON USER ERROR ADDRESS W1F03010
0092 00F0 313 | ALOFF DC /00F0 ALARM OFF W1F03020
0093 5101 314 | DC /5101 IOCC W1F03030
0092R 315 | H00F0 EQU ALOFF CONSTANT 00F0 W1F03040
0094 0000 316 | ENAA DC 0 ENABLE AUTO ANSWER W1F03050
0095 5480 317 | DC /5480 IOCC W1F03060
0094R 318 | ANS EQU ENAA ADDR FOR ANSWER INDICATOR W1F03070
0096 0F00 319 | SEND DC /0F00 SEND-RCV RUN TR. ON W1F03080
0097 5601 320 | DC /5601 IOCC W1F03090
0096R 321 | H0F00 EQU SEND CONSTANT 0F00 W1F03100
0098 02E0R 322 | RCVTR DC XMR SEND-RCV RUN TR. OFF W1F03110
0099 5602 323 | DC /5602 IOCC W1F03120
324 | * W1F03130
325 | * W1F03140
326 | *************************************************** W1F03150
327 | * W1F03160
328 | * END OPERATION W1F03170
329 | * W1F03180
330 | *************************************************** W1F03190
009A 0865 331 | CLOSE XIO ENDOP END SCA OPERATION W1F03200
009B C246 332 | LD 2 WD17-T 2-4 W1F03210
009C 4C18 00A3R 333 | BSC L CL4A-2,+- BR IF 17 HAS BEEN DECRE. W1F03220
009E 74FF 0011 334 | MDX L $SCAT,-1 DECREMENT IOCT COUNTER 2-4 W1F03230
00A0 1000 335 | NOP W1F03240
00A1 1010 336 | SLA 16 W1F03250
00A2 D246 337 | STO 2 WD17-T TURN OFF IND. FOR 17 2-4 W1F03260
00A3 620F 338 | LDX 2 +15 2-9 W1F03270
00A4 1010 339 | SLA 16 W1F03280
00A5 D600 0127R 340 | CL4A STO L2 TAB4-1 RESET INDICATORS W1F03290
00A7 72FF 341 | MDX 2 -1 W1F03300
00A8 70FC 342 | MDX CL4A W1F03310
00A9 70E5 343 | MDX OFF+1 GOTO RESTORE AND EXIT W1F03320
344 | * W1F03330
345 | * W1F03340
346 | *************************************************** W1F03350
347 | * W1F03360
348 | * OPEN W1F03370
349 | * W1F03380
350 | *************************************************** W1F03390
00AA C237 351 | OPEN LD 2 RCVCM-T W1F03400
00AB 4C20 0032R 352 | BSC L ER2,Z BR IF RCV OR XMIT NOT COMP W1F03410
00AD C848 353 | LDD ACKS W1F03420
00AE D845 354 | STD ACK INIT. TO SOR2, ACK2 W1F03430
00AF C100 355 | LD 1 0 CONTROL PARAMETER W1F03440
00B0 100C 356 | SLA 12 DIGIT 4 FOR DATA IN/OUT W1F03450
00B1 D22D 357 | STO 2 TYPE-T IN OR OUT W1F03460
00B2 4C18 00CCR 358 | BSC L DIN,+- BRANCH IF DATA IN W1F03470
00B4 D23F 359 | STO 2 XINQ-T TURN ON XMIT-INQ W1F03480
00B5 08E0 360 | XIO SEND TURN ON SEND-RCV RUN TR. W1F03490
00B6 0A0E 361 | DIN2 XIO 2 ENDOP-T END OPERATION W1F03500
00B7 1010 362 | SLA 16 W1F03510
00B8 D240 363 | STO 2 SYNCI-T SYNC. IND. OFF W1F03520
00B9 D236 364 | STO 2 INQR-T INQ RECEIVED OFF W1F03530
365 | * SET UP RESPONSE ADDRESSES FOR W1F03540
366 | * SERVICING INTERRUPTS W1F03550
00BA C232 367 | LD 2 OPENR-T W1F03560
00BB D03C 368 | STO RDF W1F03570
00BC C233 369 | LD 2 OPENW-T W1F03580
00BD D03C 370 | STO WTF W1F03590
00BE C234 371 | LD 2 OPENT-T W1F03600
00BF D03C 372 | STO TIMF W1F03610
00C0 DA2E 373 | STD 2 LCNTL-T TURN ON LEADER CONTROL 2-9 W1F03620
374 | * XEOI TURN ON XMIT-EOI 2-9 W1F03630
00C1 0844 375 | XIO LOAD LOAD IDLE TO SYNC-REG W1F03640
00C2 083B 376 | XIO SYNC SEND IDLES W1F03650
00C3 C246 377 | LD 2 WD17-T 2-4 W1F03660
00C4 4C20 0074R 378 | BSC L RCVX+4,Z BR IF 17 HAS BEEN DECRE. W1F03670
00C6 7401 0011 379 | MDX L $SCAT,+1 INCREMENT IOCT COUNTER 2-4 W1F03680
00C8 1000 380 | NOP W1F03690
00C9 7401 0138R 381 | MDX L WD17,+1 TURN ON IND.FOR 17 2-4 W1F03700
00CB 70A8 382 | MDX RCVX+4 GO TO SET RETRY TO 3 2-2 W1F03720
383 | * W1F03730
00CC 08CB 384 | DIN XIO RCVTR TURN OFF SEND-RCV RUN TR. W1F03740
00CD C826 385 | LDD ACK W1F03750
00CE 18D0 386 | RTE 16 RECEIVE TRANSMITS ACK2 W1F03760
00CF D824 387 | STD ACK FIRST W1F03770
00D0 70E5 388 | MDX DIN2 CONTINUE PROCESSING OPEN W1F03780
389 | * W1F03790
390 | *************************************************** W1F03800
391 | * W1F03810
392 | * AFTER PROCESSING THE CALLING SEQUENCE W1F03820
393 | * FOR THE OPEN FUNCTION, THE FOLLOWING W1F03830
394 | * INDICATORS ARE SET W1F03840
395 | * --NOTE-- W1F03850
396 | * ON CONDITION IS NON-ZERO. W1F03860
397 | * OFF CONDITION IS ZERO. W1F03870
398 | * W1F03880
399 | * .OPEN, DATA OUT. W1F03890
400 | * .TYPE. ON DATA OUT W1F03900
401 | * .XINQ. ON TRANSMIT INQ W1F03910
402 | * .ACK. ACK2/ACK1 W1F03920
403 | * .OPEN, DATA IN W1F03930
404 | * .TYPE. OFF DATA IN W1F03940
405 | * .ACK. ACK1/ACK2 W1F03950
406 | * .OPEN. W1F03960
407 | * .SYNCI. OFF SYNC ESTABLISHED W1F03970
408 | * .INQR. OFF INQ RECEIVED W1F03980
409 | * .RTBSY. ON ROUTINE BUSY W1F03990
410 | * .XEOI. ON TRANSMIT EOI W1F04000
411 | * .LCNTL. ON LEADER CONTROL W1F04010
412 | * .FAIL. ON DATA SET FAIL CK W1F04020
413 | * .RETRY. SET TO 7 W1F04030
414 | * .ICNT. INCREMENTED BY 1 W1F04040
415 | * W1F04050
416 | *************************************************** W1F04060
417 | * W1F04070
418 | *************************************************** W1F04080
419 | * W1F04090
420 | * TRANSMIT FUNCTION W1F04100
421 | * W1F04110
422 | *************************************************** W1F04120
00D1 C060 423 | XMIT LD SYNCI IS SYNC. IND. ON W1F04130
00D2 4C18 0034R 424 | BSC L ER3,+- NO - ERROR - BRANCH W1F04140
00D4 C0C3 425 | LD XMITR SET UP RESPONSE BRANCHES W1F04150
00D5 D022 426 | STO RDF W1F04160
00D6 C019 427 | LD XMITW W1F04170
00D7 D022 428 | STO WTF W1F04180
00D8 C018 429 | LD XMITT W1F04190
00D9 D022 430 | STO TIMF W1F04200
00DA 1010 431 | SLA 16 W1F04210
00DB D22F 432 | STO 2 XEOI-T TURN OFF XMIT-EOI W1F04220
00DC C100 433 | LD 1 0 CONTROL PARAMETER W1F04230
00DD E0B8 434 | AND H0F00 DIGIT 2 FOR EOT/TEL/DATA W1F04240
00DE 4C20 00E5R 435 | BSC L SEOT,Z BR IF EOT OR TEL SEQUENCE W1F04250
00E0 C230 436 | LD 2 WDCNT-T W1F04260
00E1 4C08 002CR 437 | BSC L ER1,+ BR IF WORD COUNT INVALID W1F04270
00E3 D04F 438 | STO XSOR TURN ON XMIT-SOR W1F04280
00E4 7099 439 | MDX POS+2 GO SWITCH ACKS AND SORS W1F04290
440 | * AND START WRITE W1F04300
00E5 902D 441 | SEOT S H0200 W1F04310
00E6 4C30 002CR 442 | BSC L ER1,-Z ERROR IF NOT EOT OR TEL W1F04320
00E8 4C10 00ECR 443 | BSC L NEOT,- BRANCH IF TEL W1F04330
00EA D049 444 | STO XEOT TURN ON XMIT-EOT W1F04340
00EB 7088 445 | MDX RCVX+4 GO TO SET RETRY TO 3 2-2 W1F04350
00EC C000 446 | NEOT LD * W1F04360
00ED D041 447 | STO XTEL TURN ON XMIT-TEL W1F04370
00EE D041 448 | STO TEL TURN ON TEL W1F04380
00EF 70FB 449 | MDX NEOT-1 GO TO SET RETRY TO 3 2-2 W1F04390
450 | * W1F04400
451 | * CONSTANTS W1F04410
452 | * RESPONSE BRANCH ADDRESSES W1F04420
453 | * W1F04430
0098R 454 | XMITR EQU RCVTR TRANSMIT READ RESPONSE W1F04440
00F0 026CR 455 | XMITW DC XMW WRITE RESPONSE W1F04450
00F1 0365R 456 | XMITT DC XMT TIMEOUT W1F04460
457 | *************************************************** W1F04470
458 | * AFTER PROCESSING THE CALLING SEQUENCE W1F04480
459 | * FOR THE .TRANSMIT. FUNCTION, THE W1F04490
460 | * FOLLOWING INDICATORS ARE SET W1F04500
461 | * W1F04510
462 | * FOR DATA W1F04520
463 | * .WDCNT. ON ACTUAL RECORD SIZE W1F04530
464 | * .XSOR. ON TRANSMIT SOR W1F04540
465 | * .ILRC. ON/OFF W1F04550
466 | * .ACK. SWITCH FR 1-2 OR 2-1 W1F04560
467 | * FOR EOT W1F04570
468 | * .XEOT. ON TRANSMIT EOT W1F04580
469 | * FOR TEL W1F04590
470 | * .XTEL. ON TRANSMIT TEL W1F04600
471 | * .TEL. ON EXPECT TEL RECEIVE W1F04610
472 | * FOR DATA, EOT, AND TEL W1F04620
473 | * .RTBSY. ON ROUTINE BUSY W1F04630
474 | * .RETRY. SET TO 3 W1F04640
475 | *************************************************** W1F04650
SCAT1 ********** CONSTANTS *********
477 | *************************************************** W1F04670
478 | * CONSTANTS AND INDICATORS W1F04680
479 | *************************************************** W1F04690
00F2 480 | T BSS E 0 BEGIN CONSTANT TABLE W1F04700
00F2 0119R 481 | READ DC BUF READ W1F04710
00F3 5200 482 | DC /5200 IOCC W1F04720
00F4 0000 483 | ACK DC 0 CURRENT ACK/SOR W1F04730
00F5 0000 484 | DC 0 NEXT ACK/SOR W1F04740
00F6 3300 485 | ACKS DC /3300 ACK2 - SOR2 W1F04750
00F7 5300 486 | DC /5300 ACK1 - SOR1 W1F04760
00F8 0000 487 | DISAA DC 0 DISABLE AUTO ANSWER W1F04770
00F9 5440 488 | DC /5440 IOCC W1F04780
00FA 0000 489 | SENSR DC 0 SENSE AND RESET DSW W1F04790
00FB 5701 490 | DC /5701 IOCC W1F04800
00FC 0000 491 | STRED DC 0 START READ W1F04810
00FD 5600 492 | DC /5600 IOCC W1F04820
00FE 0000 493 | SYNC DC 0 SYNCHRONIZE W1F04830
00FF 5410 494 | DC /5410 IOCC W1F04840
0100 0000 495 | ENDOP DC 0 END OPERATION W1F04850
0101 5404 496 | DC /5404 IOCC W1F04860
0102 0000 497 | STWRT DC 0 START WRITE W1F04870
0103 5500 498 | DC /5500 IOCC W1F04880
0104 0119R 499 | WTBUF DC BUF WRITE W1F04890
0105 5100 500 | DC /5100 IOCC W1F04900
0106 0112R 501 | LOAD DC IDLE LOAD SYNC/IDLE REGISTER W1F04910
0107 5104 502 | DC /5104 IOCC W1F04920
0108 0111R 503 | WTINQ DC INQC WRITE INQ, ERR W1F04930
0109 5100 504 | DC /5100 W1F04940
010A 0115R 505 | LDCL DC CLC LOAD SYNC REG WITH CL W1F04950
010B 5104 506 | DC /5104 IOCC W1F04960
010C 0000 507 | RESET DC 0 W1F04970
010D 5540 508 | DC /5540 RESET IOCC W1F04980
0011 509 | $SCAT EQU 17 IOCT COUNTER 2-4 W1F04981
00F0 510 | $PAUS EQU /F0 PAUS INDICATOR 2-2 W1F04982
00F8R 511 | RDF EQU DISAA BR ADDR FOR READ W1F04990
00FAR 512 | WTF EQU SENSR BR ADDR FOR WRITE W1F05000
00FCR 513 | TIMF EQU STRED BR ADDR FOR TIMEOUT W1F05010
00FER 514 | IOAR EQU SYNC I/O AREA ADDRESS W1F05020
0100R 515 | ERRU EQU ENDOP ERROR CODE W1F05030
010CR 516 | POINT EQU RESET I/O AREA POINTER W1F05040
0102R 517 | DSW EQU STWRT DEVICE STATUS WORD W1F05050
010E AA00 518 | RM DC /AA00 4/8 FOR RECORD MARK W1F05060
010F 2700 519 | GMC DC /2700 CONSTANT 2700 FOR GM CHECK W1F05070
0110 1F00 520 | H1F00 DC /1F00 CONSTANT 1F00 W1F05080
0111 5900 521 | INQC DC /5900 4/8 FOR INQ W1F05090
0111R 522 | ERRC EQU INQC 4/8 FOR ERR W1F05100
0112 3900 523 | IDLE DC /3900 4/8 FOR IDLE W1F05110
0113 0200 524 | H0200 DC /0200 CONSTANT 0200 W1F05120
0114 3500 525 | TLC DC /3500 4/8 FOR TL W1F05130
0115 5500 526 | CLC DC /5500 4/8 FOR CL W1F05140
0116 5C00 527 | TELC DC /5C00 4/8 FOR TEL W1F05150
0117 0001 528 | D1 DC +1 CONSTANT 0001 W1F05170
0118 0000 529 | XACK DC 0 TRANSMIT ACK INDICATOR W1F05180
0119 0000 530 | BUF DC 0 4/8 BUFFER FOR RCV/XMIT W1F05190
011A 0000 531 | CLSW DC 0 CONTROL LEADER IND. W1F05200
011B 5A00 532 | EOTC DC /5A00 4/8 FOR EOT W1F05210
011C 0000 533 | LRC DC 0 LRC ACCUMULATOR W1F05220
011D 0000 534 | COUNT DC 0 ACTUAL WORD COUNT W1F05230
011E 0000 535 | ILRC DC 0 ILRC IN RECORD IND. W1F05240
011F 0000 536 | TYPE DC 0 DATA IN OR OUT W1F05245
0120 537 | BSS E 0 2-9 W1F05246
0120 0000 538 | LCNTL DC 0 LEADER CONTROL INDR EVEN W1F05250
539 | *************************************************** W1F05260
540 | * WHEN LEADER CONTROL IS ON, W1F05270
541 | * THE PROGRAM EITHER EXPECTS W1F05280
542 | * TO RCV/XMIT DATA OR THE W1F05290
543 | * FIRST CHARACTER OF A TWO W1F05300
544 | * CHARACTER CONTROL SEQUENCE W1F05310
545 | * WHEN LEADER CONTROL IS OFF W1F05320
546 | * THE PROGRAM EXPECTS TO W1F05330
547 | * RCV/XMIT THE SECOND W1F05340
548 | * CHARACTER OF A TWO CHAR. W1F05350
549 | * CONTROL SEQUENCE W1F05360
550 | *************************************************** W1F05370
0121 0000 551 | XEOI DC 0 TRANSMIT EOI INDR ODD W1F05390
0122 0000 552 | WDCNT DC 0 WORD COUNT FROM USER W1F05400
0123 0000 553 | RETRY DC 0 RETRY COUNTER W1F05410
0124 01E7R 554 | OPENR DC OPR OPEN - READ RESPONSE W1F05420
0125 0190R 555 | OPENW DC OPW OPEN - WRITE RESPONSE W1F05430
0126 0240R 556 | OPENT DC CKOPR OPEN - TIMEOUT W1F05440
0127 0000 557 | FAIL DC 0 DATA SET FAIL CHECK W1F05450
558 | * W1F05460
559 | * W1F05470
0128 560 | TAB4 BSS E 0 BEGIN TABLE TO CLEAR 2-9 W1F05474
0128 0000 561 | INQR DC 0 INQ RECEIVED EVEN W1F05475
0129 0000 562 | RCVCM DC 0 RCV COMPLETE INDR ODD W1F05476
0129R 563 | XMITC EQU RCVCM TRANSMIT COMPLETE IND W1F05477
564 | * W1F05478
012A 0000 565 | DATA DC 0 RCV DATA INDR EVEN W1F05479
012B 0000 566 | RCVER DC 0 ERROR ON RCV ODD W1F05480
567 | * W1F05481
012C 0000 568 | RTBSY DC 0 ROUTINE BUSY INDR EVEN W1F05482
012D 0000 569 | OKBSY DC 0 ON WHEN PAD AFT EOT ODD W1F05483
570 | * W1F05484
012E 0000 571 | XERR DC 0 TRANSMIT ERR IND. W1F05490
012F 0000 572 | XTEL DC 0 TRANSMIT TEL IND. W1F05500
0130 0000 573 | TEL DC 0 INITIATE TRANSMIT TEL W1F05510
0131 0000 574 | XINQ DC 0 TRANSMIT INQ IND. W1F05540
0132 0000 575 | SYNCI DC 0 SYNC ESTABLISHED IND. W1F05550
0133 0000 576 | XSOR DC 0 TRANSMIT SOR IND. W1F05560
0134 0000 577 | XEOT DC 0 TRANSMIT EOT IND. W1F05580
0135 0000 578 | XRLRC DC 0 TRANSMIT/RCV ILRC IND. W1F05590
0136 0000 579 | DATER DC 0 DATA ERROR W1F05630
580 | * W1F05640
581 | * W1F05650
0137 6000 582 | H6000 DC /6000 CONSTANT 6000 FOR TL CHECK W1F05660
0138 0000 583 | WD17 DC 0 WORD 17 INC/DEC IND. 2-4 W1F05670
0139 0000 584 | TOIND DC 0 TIMEOUT INDICATOR W1F05680
013A 0000 585 | TOCNT DC 0 TIMEOUT COUNTER W1F05690
013B 0003 586 | D0003 DC +3 CONSTANT 0003 W1F05695
013C 0007 587 | D0007 DC +7 7 RETRYS W1F05700
013D 0000 588 | CLTM DC 0 LOAD CL IND. W1F05710
589 | * W1F05720
013E 0006 590 | D000X DC 6 TOTAL NUMBER OF IDLES 2-3 W1F05730
013F 0000 591 | IDLCT DC *-* XMIT THIS NUMB OF IDLS 2-2 W1F05740
0140 0000 592 | NOCOD DC *-* CHG OF DIR (Z=XMIT) 2-2 W1F05750
0141 0142R 593 | TABCT DC LRCNT ERROR STATISTICS ADDR 2-2 W1F05760
0142 0000 594 | LRCNT DC *-* LRC ERRORS 2-2 W1F05770
0143 0000 595 | ERRCT DC *-* RE TRANSMISSION REQUEST2-2 W1F05780
0144 0000 596 | XMTTO DC *-* TIMEOUTS IN TMT FUNC 2-2 W1F05790
0145 0000 597 | RCVTO DC *-* TIMEOUTS IN RCV FUNC 2-2 W1F05800
0146 0000 598 | WTCHK DC *-* WRITE RESPONSE W/CHECK 2-2 W1F05810
0147 0000 599 | RDCHK DC *-* READ RESPONSE W/CHECK 2-2 W1F05820
0148 0000 600 | WTSEQ DC *-* INVALID SEQUENCE IN TMT2-2 W1F05830
0149 0000 601 | RCSEQ DC *-* INVALID SEQUENCE IN RCV2-2 W1F05840
014A 0000 602 | XPAD DC 0 XMIT PAD INDR 2-3 W1F05841
SCAT1 ****** INTERRUPT PROCESSING **
604 | *************************************************** W1F05860
605 | * W1F05870
606 | * INTERRUPT PROCESSING W1F05880
607 | * W1F05890
608 | *************************************************** W1F05900
609 | * THE DEVICE STATUS WORD W1F05910
610 | * BIT 0 - READ RESPONSE W1F05920
611 | * BIT 1 - WRITE RESPONSE W1F05930
612 | * BIT 2 - CHECK W1F05940
613 | * BIT 3 - TIMEOUT W1F05950
614 | * BIT 4 - AUTO ANSWER REQUEST W1F05960
615 | * BIT 5 - BUSY W1F05970
616 | * BIT 6 - ENABLED W1F05980
617 | * BIT 7 - READY W1F05990
618 | * BIT 8 - RECEIVE RUN W1F06000
619 | *************************************************** W1F06010
014B 08AE 620 | INT2 XIO SENSR W1F06020
014C 6C00 00F0 621 | STX L0 $PAUS SET PAUS INDICATOR 2-2 W1F06025
014E D0B3 622 | STO DSW SENSE, RESET, SAVE DSW W1F06030
014F 6500 00F2R 623 | LDX L1 T XR1 CONSTANT TABLE ADDR. W1F06040
0151 1004 624 | SLA 4 W1F06050
0152 4C28 0162R 625 | BSC L ANSI,+Z BR IF AUTO ANSWER W1F06060
0154 1003 626 | SLA 3 W1F06070
0155 4C10 0269R 627 | BSC L TMCHK+4,- BR IF NOT READY W1F06080
0157 C0AA 628 | LD DSW W1F06090
0158 4C28 016DR 629 | BSC L READI,+Z BR IF READ RESPONSE W1F06100
015A 1001 630 | SLA 1 W1F06110
015B 4C28 017DR 631 | BSC L FAILC,+Z BR IF WRITE RESPONSE W1F06120
015D 1003 632 | SLA 3 W1F06130
015E 4C02 04B9R 633 | BSC L SVTIM,C LOG TIME OUT INDICATOR 2-2 W1F06140
0160 4C90 0004R 634 | BSC I INT1,- EXIT IF NOT AUTO ANSWER W1F06150
635 | * W1F06160
636 | *************************************************** W1F06170
637 | * AUTO ANSWER REQUEST W1F06180
638 | *************************************************** W1F06190
0162 1002 639 | ANSI SLA 2 W1F06200
0163 4C90 0004R 640 | BSC I INT1,- BR IF AUTO ANSWER DISABLED W1F06210
0165 C0FC 641 | LD ANSI W1F06220
0166 D480 0094R 642 | STO I ANS STORE INDICATION FOR USER W1F06230
0168 088F 643 | XIO DISAA DISABLE AUTO ANSWER REQ. W1F06240
0169 C000 644 | INTX LD * W1F06250
016A D0BC 645 | STO FAIL TURN ON FAIL IND W1F06260
016B 4C80 0004R 646 | BSC I INT1 EXIT TO ILS W1F06270
647 | * W1F06280
648 | *************************************************** W1F06290
649 | * READ RESPONSE W1F06300
650 | *************************************************** W1F06310
016D 1003 651 | READI SLA 3 W1F06320
016E 4C28 04B9R 652 | BSC L SVTIM,+Z LOG TIME OUT INDICATOR 2-2 W1F06330
0170 0881 653 | XIO READ READ CHARACTER INTO BUF W1F06340
0171 C0A7 654 | LD BUF TRAP CHAR. READ 2-2 W1F06350
0172 1808 655 | SRA 8 SHFT CHAR TO RGHT OF A 2-2 W1F06360
0173 0959*3587 656 | CALL IOLOG LOG CHAR. RECEIVED 2-2 W1F06370
0175 C08C 657 | LD DSW W1F06380
0176 1002 658 | SLA 2 PUT CHECK BIT INTO BIT 0 W1F06390
0177 4C90 00F8R 659 | BSC I RDF,- BR IF NO READ CHECK 2-2 W1F06400
660 | * 2-2 W1F06410
0179 7401 0147R 661 | MDX L RDCHK,+1 CNT NO. OF READ CHECKS 2-2 W1F06420
017B 4C80 00F8R 662 | BSC I RDF GO PROCESS READ RESPONSE W1F06430
663 | * W1F06440
017D 1010 664 | FAILC SLA 16 W1F06450
017E D0A8 665 | STO FAIL TURN OFF FAIL IND W1F06460
017F C082 666 | LD DSW 2-2 W1F06470
0180 1002 667 | SLA 2 LOOK FOR TMT CHECK 2-2 W1F06480
0181 4C10 0185R 668 | BSC L NOCHK,- BR IF NONE 2-2 W1F06490
669 | * 2-2 W1F06500
0183 7401 0146R 670 | MDX L WTCHK,+1 COUNT NO OF TMT CHECKS 2-2 W1F06510
671 | * W1F06520
0185 C158 672 | NOCHK LD 1 XPAD-T IS IT PAD TIME 2-3 W1F06530
0186 4C20 04C4R 673 | BSC L GOPAD,Z YES, GO SEND PAD 2-3 W1F06531
0188 C0B6 674 | LD IDLCT IF NO IDLES TO WRITE 2-3 W1F06532
0189 4C88 00FAR 675 | BSC I WTF,+ BR TO SERVICE WRT RESP 2-2 W1F06540
018B 908B 676 | S D1 DECR NBR OF IDLES BY 1 2-2 W1F06550
018C D0B2 677 | STO IDLCT 2-2 W1F06560
018D 0C00 03DCR 678 | XIO L WTIDL WRITE IDLE 2-2 W1F06570
018F 70DB 679 | INTX2 MDX INTX+2 EXIT TO ILS 2-2 W1F06580
SCAT1 **** OPEN - WRITE RESPONSE ***
681 | *************************************************** W1F06600
682 | * W1F06610
683 | * WRITE RESPONSE FOR OPEN W1F06620
684 | * W1F06630
685 | *************************************************** W1F06640
0190 1010 686 | OPW SLA 16 W1F06650
0191 D095 687 | STO FAIL NO FAILURE IN DATA SET W1F06660
0192 C08D 688 | LD LCNTL W1F06670
0193 4C18 01AER 689 | BSC L XEOTQ,+- BR IF LEADER CONTROL OFF W1F06680
0195 C089 690 | LD TYPE IS DATA IN W1F06690
0196 4C18 01A5R 691 | BSC L WTCL,+- YES, BR TO WRITE CL W1F06700
0198 C093 692 | LD RTBSY W1F06710
0199 4C20 019ER 693 | BSC L NTBSY,Z BR IF ROUTINE IS BUSY W1F06720
694 | * W1F06730
019B C000 695 | LD * IF ROUTINE NOT BUSY, W1F06740
019C D084 696 | STO XEOI TURN ON XMIT-EOI IND. W1F06750
019D 7007 697 | MDX WTCL BR TO WRITE CL W1F06760
698 | * W1F06770
019E C082 699 | NTBSY LD XEOI NO, DATA OUT W1F06780
019F E894 700 | OR XEOT W1F06790
01A0 E88E 701 | OR XTEL W1F06800
702 | * WRITE CL IF XEOI, XEOT, OR XTEL ON W1F06810
01A1 4C20 01A5R 703 | BSC L WTCL,Z W1F06820
01A3 C122 704 | WTTL LD 1 TLC-T SET UP WRITE TL W1F06830
01A4 7001 705 | MDX WTCL+1 GOTO WRITE IT W1F06840
01A5 C123 706 | WTCL LD 1 CLC-T SET UP WRITE CL W1F06850
01A6 D127 707 | STO 1 BUF-T W1F06860
01A7 D14E 708 | STO 1 NOCOD-T TURN ON COD INDICATOR 2-2 W1F06870
01A8 0959*3587 709 | CALL IOLOG LOG CL TO BE XMITTED 2-2 W1F06880
01AA 0912 710 | XIO 1 WTBUF-T WRITE W1F06890
01AB 1010 711 | SLA 16 W1F06900
01AC D12E 712 | STO 1 LCNTL-T SET LEADER CONTROL OFF W1F06910
01AD 70BB 713 | MDX INTX EXIT TO ILS W1F06920
714 | * W1F06930
01AE C085 715 | XEOTQ LD XEOT W1F06940
01AF 4C18 01C6R 716 | BSC L XTELQ,+- BR IF XEOT NOT ON W1F06950
01B1 1010 717 | EOT1 SLA 16 XMIT-EOT IS ON W1F06960
01B2 D142 718 | STO 1 XEOT-T TURN OFF XMIT-EOT W1F06970
01B3 C129 719 | C4 LD 1 EOTC-T WRITE EOT W1F06980
01B4 D127 720 | STO 1 BUF-T 2-2 W1F06990
01B5 0959*3587 721 | CALL IOLOG LOG CL TO BE XMITTED 2-2 W1F07000
01B7 0912 722 | XIO 1 WTBUF-T W1F07010
01B8 4400 04BFR 723 | BSI L PAD GO SET UP FOR PAD 2-3 W1F07011
01BA C13B 724 | LD 1 OKBSY-T RTBSY TO BE TURNED OFF 2-9 W1F07012
01BB 4C18 01BFR 725 | BSC L C45,+- NO - BRANCH 2-9 W1F07013
01BD 10A0 726 | SLT 32 2-9 W1F07014
01BE D93A 727 | STD 1 RTBSY-T TURN OFF ROUTINE BUSY 2-9 W1F07015
728 | * OKBSY TURN OFF OKBSY 2-9 W1F07016
01BF C14B 729 | C45 LD 1 CLTM-T W1F07020
01C0 4C20 01E1R 730 | BSC L CLREG,Z GO LOAD CL TO SYNC REG 2-3 W1F07030
01C2 C000 731 | OPW2 LD * W1F07040
01C3 D12E 732 | STO 1 LCNTL-T TURN ON LEADER CONTROL 2-2 W1F07050
01C4 090A 733 | XIO 1 STRED-T START READ W1F07060
01C5 70A5 734 | MDX INTX+2 EXIT TO ILS W1F07070
735 | * W1F07080
01C6 C13D 736 | XTELQ LD 1 XTEL-T W1F07090
01C7 4C18 01D1R 737 | BSC L XEOIQ,+- BR IF XTEL NOT ON W1F07100
01C9 1010 738 | B4 SLA 16 XMIT-TEL IS ON W1F07110
01CA D13D 739 | STO 1 XTEL-T TURN IT OFF W1F07120
01CB C124 740 | LD 1 TELC-T SETUP WRITE TEL W1F07130
01CC 7400 0130R 741 | MDX L TEL,0 IF TEL SW OFF, SKIP 2-9 W1F07133
01CE 70E5 742 | MDX C4+1 ELSE WRITE TEL CHAR 2-9 W1F07135
01CF D13B 743 | STO 1 OKBSY-T SW TO TURN OFF BUSY 2-9 W1F07137
01D0 70E3 744 | MDX C4+1 *AFTER TRANSMIT TEL 2-9 W1F07140
745 | * W1F07150
01D1 C12F 746 | XEOIQ LD 1 XEOI-T W1F07160
01D2 4C18 01D8R 747 | BSC L NTEOI,+- BR IF XEOI NOT ON W1F07170
01D4 1010 748 | SLA 16 XMIT-EOI W1F07180
01D5 D12F 749 | STO 1 XEOI-T TURN OFF XMIT-EOI W1F07190
01D6 C120 750 | WTDLE LD 1 IDLE-T SET UP WRITE IDLE W1F07200
01D7 70DC 751 | MDX C4+1 GO WRITE IT W1F07210
752 | * W1F07220
01D8 C12D 753 | NTEOI LD 1 TYPE-T W1F07230
01D9 4C18 01D6R 754 | BSC L WTDLE,+- GO WRITE IDLE IF DATA IN W1F07240
01DB 0916 755 | E4 XIO 1 WTINQ-T WRITE INQ W1F07250
01DC C11F 756 | LD 1 INQC-T 2-2 W1F07260
01DD 0959*3587 757 | CALL IOLOG LOG INQ XMITTED 2-2 W1F07270
01DF 4400 04BFR 758 | WTPAD BSI L PAD GO SET UP FOR PAD 2-3 W1F07271
01E1 0918 759 | CLREG XIO 1 LDCL-T LOAD CL TO SYNC REG 2-3 W1F07280
01E2 C000 760 | LD * W1F07290
01E3 D128 761 | CLRE2 STO 1 CLSW-T TURN ON CL SWITCH 2-3 W1F07300
01E4 1010 762 | SLA 16 TURN OFF LEADER CONTROL W1F07310
01E5 D14B 763 | STO 1 CLTM-T TURN OFF LOAD CL IND W1F07320
01E6 70DC 764 | MDX OPW2+1 GO START READ W1F07330
765 | * W1F07340
SCAT1 **** OPEN - READ RESPONSE ****
767 | *************************************************** W1F07360
768 | * W1F07370
769 | * READ RESPONSE FOR OPEN W1F07380
770 | * W1F07390
771 | *************************************************** W1F07400
01E7 4C28 0240R 772 | OPR BSC L CKOPR,+Z BR IF CHECK BIT ON W1F07410
01E9 C12E 773 | LD 1 LCNTL-T W1F07420
01EA 4C18 01F8R 774 | BSC L OPR2,+- BR IF LEADER CONTROL OFF W1F07430
01EC C127 775 | LCON LD 1 BUF-T W1F07440
01ED D128 776 | STO 1 CLSW-T BUF = CL, CL SWITCH ON W1F07450
01EE F123 777 | EOR 1 CLC-T W1F07460
01EF 4C20 01F3R 778 | BSC L NOCL,Z BR IF BUF NOT = CL W1F07470
01F1 D12E 779 | STO 1 LCNTL-T TURN OFF LEADER CONTROL W1F07480
01F2 709C 780 | MDX INTX2 EXIT TO ILS 2-9 W1F07490
781 | * W1F07500
782 | * W1F07510
01F3 F145 783 | NOCL EOR 1 H6000-T BUF = TL W1F07520
01F4 D12E 784 | STO 1 LCNTL-T IGNORE TL OR CL AS ERR 2-2 W1F07530
01F5 1010 785 | SLA 16 W1F07540
01F6 D128 786 | STO 1 CLSW-T CL SWITCH OFF IF TL W1F07550
01F7 70FA 787 | MDX LCON+6 EXIT TO ILS 2-2 W1F07560
788 | * W1F07570
01F8 C000 789 | OPR2 LD * W1F07580
01F9 D12E 790 | STO 1 LCNTL-T TURN ON LEADER CONTROL W1F07590
01FA C139 791 | LD 1 RCVER-T W1F07600
01FB 4C20 0240R 792 | BSC L CKOPR,Z BR IF RCV-ERR ON W1F07610
01FD C128 793 | LD 1 CLSW-T NO W1F07620
01FE 4C18 0232R 794 | BSC L INQQ,+- BR IF LAST CHAR. WAS TL W1F07630
0200 C127 795 | LD 1 BUF-T BUF = EOT W1F07640
0201 F129 796 | EOR 1 EOTC-T W1F07650
0202 4C20 020FR 797 | BSC L DLEQ,Z BR IF BUF NOT = EOT W1F07660
0204 C000 798 | LD * TURN ON XMIT-EOT W1F07670
0205 D142 799 | STO 1 XEOT-T W1F07680
0206 1010 800 | ALH SLA 16 ZERO ACCUM 2-2 W1F07690
0207 7025 801 | MDX XMITI SEND 1.5 SEC. OF IDLES W1F07700
0208 0914 802 | STWT2 XIO 1 LOAD-T LOAD IDLE TO SYNC-REG W1F07710
0209 C14C 803 | LD 1 D000X-T NUMBER OF IDLES TO 2-2 W1F07720
020A D14D 804 | STO 1 IDLCT-T PROCEED TRANSMISSION 2-2 W1F07730
020B 0910 805 | XIO 1 STWRT-T START WRITE W1F07740
020C 7023 806 | MDX INQQ-2 EXIT TO ILS 2-2 W1F07750
807 | * W1F07760
020D 6300 808 | H6300 DC /6300 CONSTANT 6300 FOR IDLE CHK W1F07770
020E 6500 809 | H6500 DC /6500 CONSTANT 6500 FOR TEL CHK W1F07780
810 | * W1F07790
020F F0FD 811 | DLEQ EOR H6300 BUF = IDLE W1F07800
0210 4C18 022DR 812 | BSC L XMITI,+- BR IF BUF = IDLE W1F07810
0212 F0FB 813 | EOR H6500 BUF = TEL W1F07820
0213 4C20 021ER 814 | BSC L NOTEL,Z BR IF BUF NOT = TEL W1F07830
0215 C000 815 | TELUS LD * TURN ON XMIT-TEL W1F07840
0216 D13D 816 | STO 1 XTEL-T W1F07850
0217 0914 817 | XIO 1 LOAD-T LOAD IDLE TO SYNC-REG W1F07860
0218 090C 818 | XIO 1 SYNC-T SEND IDLES W1F07870
0219 C003 819 | LD TELU TEL RECEIVED - CODE 1000 W1F07880
021A 4480 0090R 820 | BSI I USERR GO TO USER ERROR ROUTINE W1F07890
021C 7013 821 | MDX XMITI+3 EXIT TO ILS 2-2 W1F07900
822 | * W1F07910
021D 1000 823 | TELU DC /1000 CONSTANT 1000 W1F07920
824 | * W1F07930
021E C12D 825 | NOTEL LD 1 TYPE-T W1F07940
021F 4C18 0244R 826 | BSC L OPERR,+- BR IF DATA IN, ERROR W1F07950
0221 C127 827 | LD 1 BUF-T W1F07960
0222 F104 828 | EOR 1 ACKS-T CHECK FOR W1F07970
0223 4820 829 | BSC Z EITHER W1F07980
0224 F11D 830 | EOR 1 GMC-T ACK1 OR ACK2 W1F07990
0225 4C20 0244R 831 | BSC L OPERR,Z BR IF NEITHER W1F08000
0227 D13A 832 | STO 1 RTBSY-T CLEAR RTN. BUSY W1F08010
0228 C000 833 | LD * W1F08020
0229 D140 834 | STO 1 SYNCI-T TURN ON SYNC. IND. W1F08030
022A D137 835 | STO 1 XMITC-T SET TRANSMIT NOT COMPLETE W1F08040
022B 1010 836 | SLA 16 DATA OUT W1F08050
022C D13F 837 | STO 1 XINQ-T TURN OFF XMIT-INQ W1F08060
022D D14E 838 | XMITI STO 1 NOCOD-T TURN OFF COD INDICATOR 2-2 W1F08070
022E 0914 839 | XIO 1 LOAD-T LOAD IDLE TO SYNC REG 2-2 W1F08080
022F 090C 840 | XIO 1 SYNC-T SEND IDLES FOR 1.5 SECONDS W1F08090
0230 4C00 0169R 841 | BSC L INTX EXIT TO ILS W1F08100
842 | * W1F08110
0232 C127 843 | INQQ LD 1 BUF-T LAST CHAR. WAS TL W1F08120
0233 F11F 844 | EOR 1 INQC-T BUF= INQ W1F08130
0234 4C20 0244R 845 | BSC L OPERR,Z BR IF BUF NOT = INQ W1F08140
0236 C12D 846 | LD 1 TYPE-T W1F08150
0237 4C20 0263R 847 | BSC L OPER1,Z BR IF DATA OUT, INQ RCVED W1F08160
0239 D13A 848 | STO 1 RTBSY-T TURN OFF ROUTINE BUSY W1F08170
023A C000 849 | LD * W1F08180
023B D136 850 | STO 1 INQR-T TURN ON INQ RECEIVED W1F08190
023C 70ED 851 | MDX XMITI-3 GO SEND IDLES W1F08200
852 | * W1F08210
853 | * W1F08220
023D 2000 854 | SYNCU DC /2000 ERROR CODE - NO SYNCHRONIZ W1F08230
023E 8000 855 | FAILU DC /8000 ERR CODE - DATA SET FAIL W1F08240
023F 4000 856 | INQU DC /4000 ERR CODE - DATA OUT, INQ W1F08250
857 | * W1F08260
858 | * W1F08270
SCAT1 ***** OPEN - TIMEOUT *********
860 | *************************************************** W1F08290
861 | * W1F08300
862 | * TIMEOUT FOR OPEN W1F08310
863 | * W1F08320
864 | *************************************************** W1F08330
0240 C800 865 | CKOPR LDD * 2-9 W1F08340
0241 D92E 866 | STD 1 LCNTL-T TURN ON LEADER CONTROL 2-9 W1F08350
867 | * XEOI TURN ON XMIT-EOI 2-9 W1F08360
0242 1010 868 | SLA 16 W1F08370
0243 D139 869 | STO 1 RCVER-T TURN OFF RCV-ERR W1F08380
0244 C0F8 870 | OPERR LD SYNCU NO SYNCHRONIZATION W1F08390
0245 D10E 871 | OPER2 STO 1 ERRU-T W1F08400
0246 74FF 0123R 872 | MDX L RETRY,-1 DECREMENT SYNC-TRY W1F08410
0248 70BD 873 | MDX ALH BR IF NOT 7 RETRIES 2-2 W1F08420
874 | * W1F08430
0249 0914 875 | XIO 1 LOAD-T LOAD IDLE TO SYNC-REG W1F08440
024A 090C 876 | XIO 1 SYNC-T SEND IDLES W1F08450
024B C10E 877 | LD 1 ERRU-T ERROR CODE IN A-REG W1F08460
024C 4480 0090R 878 | BSI I USERR GO TO USER ERROR ROUTINE W1F08470
024E 6500 00F2R 879 | LDX L1 T RESTORE XR1 W1F08480
0250 4C20 0352R 880 | BSC L RTRY,Z BR IF RETRY REQUESTED W1F08490
881 | * W1F08500
882 | * RESET INDICATORS - TABLE 4 W1F08510
0252 091A 883 | AEZ1 XIO 1 RESET-T END SCA OPERATION W1F08520
0253 C146 884 | LD 1 WD17-T 2-4 W1F08530
0254 4C18 025BR 885 | BSC L CL4-2,+- BR IF 17 HAS BEEN DECRE. W1F08540
0256 74FF 0011 886 | MDX L $SCAT,-1 DECREMENT IOCT COUNTER 2-4 W1F08550
0258 1000 887 | NOP W1F08560
0259 1010 888 | SLA 16 W1F08570
025A D146 889 | STO 1 WD17-T TURN OFF IND. FOR 17 2-4 W1F08580
025B 610F 890 | LDX 1 +15 15 INDICATORS 2-9 W1F08590
025C 1010 891 | SLA 16 W1F08600
025D D500 0127R 892 | CL4 STO L1 TAB4-1 ARE CLEARED W1F08610
025F 71FF 893 | MDX 1 -1 W1F08620
0260 70FC 894 | MDX CL4 W1F08630
0261 4C80 0004R 895 | BSC I INT1 EXIT TO ILS 2-2 W1F08640
896 | * W1F08650
897 | * W1F08660
0263 C0DB 898 | OPER1 LD INQU INQ SEQUENCE RECEIVED W1F08670
0264 70E0 899 | MDX OPER2 GOTO USER ERROR ROUTINE W1F08680
900 | * W1F08690
0265 090E 901 | TMCHK XIO 1 ENDOP-T RESET ALL TAGS W1F08700
0266 C135 902 | LD 1 FAIL-T IS FAILURE CHECK ON W1F08710
0267 4C98 00FCR 903 | BSC I TIMF,+- NO, GO SERVICE TIMEOUT W1F08720
0269 0910 904 | XIO 1 STWRT-T START WRITE TO RESET TRIG W1F08730
026A C0D3 905 | LD FAILU YES W1F08740
026B 70D9 906 | MDX OPER2 GOTO USER ERROR ROUTINE W1F08750
907 | * W1F08760
SCAT1 ** TRANSMIT - WRITE RESPONSE *
909 | *************************************************** W1F08780
910 | * W1F08790
911 | * WRITE RESPONSE FOR TRANSMIT W1F08800
912 | * W1F08810
913 | *************************************************** W1F08820
026C C13D 914 | XMW LD 1 XTEL-T IS XMIT-TEL ON W1F08830
026D 4C20 02A0R 915 | BSC L TEL7,Z YES , BRANCH W1F08840
026F C142 916 | LD 1 XEOT-T IS XMIT-EOT ON W1F08850
0270 4C20 02A5R 917 | BSC L EOT7,Z YES, BRANCH W1F08860
0272 C12F 918 | LD 1 XEOI-T IS XMIT-EOI ON W1F08870
0273 4C20 02DBR 919 | BSC L EOI7,Z YES , BRANCH W1F08880
0275 C13F 920 | LD 1 XINQ-T IS XMIT-INQ ON W1F08890
0276 4C20 02A9R 921 | BSC L INQ7,Z YES, BRANCH W1F08900
0278 C141 922 | LD 1 XSOR-T IS XMIT-SOR ON W1F08910
0279 4C20 02ADR 923 | BSC L SOR7,Z YES, BRANCH W1F08920
027B C143 924 | LD 1 XRLRC-T IS XR-ILRC ON W1F08930
027C 4C20 02BCR 925 | BSC L ILRC7,Z YES, BRANCH W1F08940
027E C12B 926 | LD 1 COUNT-T IS WD CNT ZERO W1F08950
027F 4C18 02C5R 927 | BSC L QLRC,+- YES, SEND TL LRC W1F08960
928 | * W1F08970
0281 C480 010CR 929 | LD I POINT PICK UP CHARACTER W1F08980
0283 D127 930 | STO 1 BUF-T W1F08990
0284 4400 0488R 931 | BSI L CHECK CHECK FOR VALID CHARACTER W1F09000
0286 7015 932 | MDX SORRY CONTROL OR 4/8 ERROR W1F09010
933 | * W1F09020
0287 C127 934 | LD 1 BUF-T W1F09030
0288 F12A 935 | EOR 1 LRC-T BUILD LRC W1F09040
0289 D12A 936 | STO 1 LRC-T W1F09050
937 | * W1F09060
028A C127 938 | LD 1 BUF-T W1F09070
028B F11C 939 | EOR 1 RM-T IS CHARACTER A RECORD MARK W1F09080
028C 4820 940 | BSC Z W1F09090
028D F11D 941 | EOR 1 GMC-T NO, IS IT A GROUP MARK W1F09100
028E 4820 942 | BSC Z W1F09110
028F 7002 943 | MDX UPDAT NO, BYPASS ILRC CHECK W1F09120
944 | * W1F09130
0290 C12C 945 | LD 1 ILRC-T YES, IF AN ILRC REQUESTED W1F09140
0291 D143 946 | STO 1 XRLRC-T TURN ON XR-ILRC W1F09150
947 | * W1F09160
0292 7401 010CR 948 | UPDAT MDX L POINT,+1 UP I/O AREA POINTER W1F09170
0294 74FF 011DR 949 | MDX L COUNT,-1 DECREMENT WORD COUNT W1F09180
0296 1000 950 | NOP W1F09190
951 | * W1F09200
0297 0912 952 | XIO 1 WTBUF-T TRANSMIT CHARACTER IN BUF W1F09210
0298 C127 953 | LD 1 BUF-T LOG CHARACTER 2-3 W1F09215
0299 0959*3587 954 | CALL IOLOG *TRANSMITTED 2-3 W1F09216
029B 7094 955 | MDX XMITI+3 EXIT TO ILS 2-2 W1F09220
956 | * W1F09230
029C C11E 957 | SORRY LD 1 H1F00-T TO FORCE RECEIVE CHECK W1F09240
029D D144 958 | STO 1 DATER-T TURN ON DATA ERR W1F09250
029E D127 959 | STO 1 BUF-T XMIT A BAD CHARACTER W1F09260
029F 70F2 960 | MDX UPDAT CONTINUE AS IF GOOD DATA W1F09270
961 | * W1F09280
962 | * W1F09290
02A0 C12E 963 | TEL7 LD 1 LCNTL-T W1F09300
02A1 4C18 01C9R 964 | BSC L B4,+- GOTO SEND TEL W1F09310
02A3 4C00 01A5R 965 | XCL BSC L WTCL GOTO SEND CL W1F09320
966 | * W1F09330
02A5 C12E 967 | EOT7 LD 1 LCNTL-T W1F09340
02A6 4C18 01B3R 968 | BSC L C4,+- GOTO SEND EOT W1F09350
02A8 70FA 969 | MDX XCL GOTO SEND CL W1F09360
970 | * W1F09370
02A9 C12E 971 | INQ7 LD 1 LCNTL-T W1F09380
02AA 4C18 01DBR 972 | BSC L E4,+- GOTO SEND INQ W1F09390
02AC 7001 973 | MDX SOR7+1 GOTO SEND TL W1F09400
974 | * W1F09410
02AD C12E 975 | SOR7 LD 1 LCNTL-T W1F09420
02AE 4C20 01A3R 976 | BSC L WTTL,Z GOTO SEND TL W1F09430
02B0 D141 977 | STO 1 XSOR-T TURN OFF XMIT-SOR W1F09440
02B1 C130 978 | LD 1 WDCNT-T W1F09450
02B2 D12B 979 | STO 1 COUNT-T SET UP WORD COUNT, W1F09460
02B3 C10C 980 | LD 1 IOAR-T SET UP I/O AREA POINTER W1F09470
02B4 8125 981 | A 1 D1-T W1F09480
02B5 D11A 982 | STO 1 POINT-T W1F09490
02B6 D12E 983 | STO 1 LCNTL-T TURN ON LEADER CONTROL W1F09500
02B7 081C 984 | XIO WTSOR WRITE SOR W1F09510
02B8 C102 985 | LD 1 ACK-T 2-2 W1F09520
02B9 0959*3587 986 | CALL IOLOG LOG SOR XMITTED 2-2 W1F09530
02BB 7004 987 | MDX ILRC4 GO TO CLEAR LRC 2-7 W1F09540
988 | * W1F09550
02BC 0819 989 | ILRC7 XIO WTLRC WRITE LRC W1F09560
02BD C12A 990 | LD 1 LRC-T LOG 2-7 W1F09561
02BE 0959*3587 991 | CALL IOLOG LRC 2-7 W1F09562
02C0 1010 992 | ILRC4 SLA 16 2-7 W1F09570
02C1 D12A 993 | STO 1 LRC-T CLEAR LRC W1F09580
02C2 D143 994 | STO 1 XRLRC-T TURN OFF XR-ILRC W1F09590
02C3 4C00 0169R 995 | BSC L INTX EXIT TO ILS W1F09600
996 | * W1F09610
02C5 C13A 997 | QLRC LD 1 RTBSY-T IF NOT BUSY, W1F09620
02C6 4C18 02D8R 998 | BSC L FILL,+- BR TO SEND EOI W1F09630
02C8 C12E 999 | LD 1 LCNTL-T W1F09640
02C9 4C20 01A3R 1000 | BSC L WTTL,Z GOTO SEND TL W1F09650
02CB 080A 1001 | XIO WTLRC GOTO SEND LRC W1F09660
02CC C12A 1002 | LD 1 LRC-T LOG 2-7 W1F09661
02CD 0959*3587 1003 | CALL IOLOG LRC 2-7 W1F09662
02CF 1010 1004 | SLA 16 W1F09670
02D0 D12A 1005 | STO 1 LRC-T CLEAR LRC W1F09680
02D1 4C00 01DFR 1006 | BSC L WTPAD WRITE PAD, CL TO SYNC R2-3 W1F09690
1007 | * W1F09700
1008 | * W1F09710
1009 | * W1F09720
02D4 1010 | BSS E 0 W1F09730
02D4 00F4R 1011 | WTSOR DC ACK WRITE ACK/SOR W1F09740
02D5 5100 1012 | DC /5100 IOCC W1F09750
02D6 011CR 1013 | WTLRC DC LRC WRITE LRC W1F09760
02D7 5100 1014 | DC /5100 IOCC W1F09770
1015 | * W1F09780
02D8 C000 1016 | FILL LD * W1F09790
02D9 D12F 1017 | STO 1 XEOI-T TURN ON XMIT-EOI W1F09800
02DA 70C8 1018 | MDX XCL BR TO SEND CL W1F09810
1019 | * W1F09820
02DB D14B 1020 | EOI7 STO 1 CLTM-T TURN ON LOAD CL IND W1F09830
02DC C12E 1021 | LD 1 LCNTL-T W1F09840
02DD 4C18 01D4R 1022 | BSC L XEOIQ+3,+- BR TO SEND IDLE W1F09850
02DF 70C3 1023 | MDX XCL BR TO SEND CL W1F09860
SCAT1 *** TRANSMIT - READ RESPONSE *
1025 | *************************************************** W1F09880
1026 | * W1F09890
1027 | * READ RESPONSE TO TRANSMIT FUNCTION W1F09900
1028 | * W1F09910
1029 | *************************************************** W1F09920
02E0 4C28 0365R 1030 | XMR BSC L XMT,+Z BR IF CHECK BIT IS ON W1F09930
02E2 C12E 1031 | LD 1 LCNTL-T W1F09940
02E3 4C20 01ECR 1032 | BSC L LCON,Z BR IF LEADER CONTROL IS ON W1F09950
1033 | * W1F09960
02E5 D139 1034 | XMR1 STO 1 RCVER-T TURN OFF RCV-ERR W1F09970
02E6 C000 1035 | LD * W1F09980
02E7 D12E 1036 | STO 1 LCNTL-T TURN ON LEADER CONTROL W1F09990
1037 | * W1F10000
02E8 C128 1038 | LD 1 CLSW-T W1F10010
02E9 4C18 032FR 1039 | BSC L SWOFF,+- BR IF LAST CHAR NOT CL W1F10020
1040 | * W1F10030
02EB C127 1041 | LD 1 BUF-T W1F10040
02EC F124 1042 | EOR 1 TELC-T BUF = TEL W1F10050
02ED 4C18 032BR 1043 | BSC L ALTER,+- YES, BRANCH W1F10060
02EF C13E 1044 | LD 1 TEL-T NO W1F10070
02F0 4C20 033FR 1045 | BSC L A8,Z TEL SWITCH ON, TRY AGAIN W1F10080
1046 | * W1F10090
02F2 C142 1047 | LD 1 XEOT-T W1F10100
02F3 4C18 0309R 1048 | BSC L CKACK,+- GO CHECK ACK IF XEOT OFF W1F10110
02F5 C127 1049 | LD 1 BUF-T XMIT-EOT IS ON, IS BUF=EOT W1F10120
02F6 F129 1050 | EOR 1 EOTC-T W1F10130
02F7 4C20 0340R 1051 | BSC L A8+1,Z ERROR IF NOT EOT W1F10140
1052 | * EOT WAS RECEIVED W1F10150
02F9 D140 1053 | STO 1 SYNCI-T TURN OFF SYNC INDR W1F10160
02FA D142 1054 | STO 1 XEOT-T TURN OFF XMIT-EOT W1F10170
1055 | * W1F10180
02FB D137 1056 | STO 1 XMITC-T SET TRANSMIT COMPLETE W1F10190
02FC C904 1057 | LDD 1 ACKS-T W1F10200
02FD D902 1058 | STD 1 ACK-T RESET ACK, SOR W1F10210
02FE C132 1059 | LD 1 OPENR-T W1F10220
02FF D106 1060 | STO 1 RDF-T SET BRANCHES TO OPEN RTN. W1F10230
0300 C133 1061 | LD 1 OPENW-T W1F10240
0301 D108 1062 | STO 1 WTF-T W1F10250
0302 C134 1063 | LD 1 OPENT-T W1F10260
0303 D10A 1064 | STO 1 TIMF-T W1F10270
0304 1010 1065 | SLA 16 W1F10280
0305 D13E 1066 | STO 1 TEL-T TURN OFF TEL SWITCH W1F10290
0306 D13A 1067 | STO 1 RTBSY-T CLEAR ROUTINE BUSY W1F10300
1068 | * W1F10310
0307 4C00 0206R 1069 | D8 BSC L ALH GO SEND IDLES 2-2 W1F10320
1070 | * W1F10330
0309 C127 1071 | CKACK LD 1 BUF-T IS CORRECT ACK IN BUF W1F10340
030A F102 1072 | EOR 1 ACK-T W1F10350
030B 4C20 0312R 1073 | BSC L NOACK,Z NO, BRANCH W1F10360
030D D13F 1074 | STO 1 XINQ-T YES, TURN OFF XMIT-INQ W1F10370
030E 70F7 1075 | MDX D8-1 GO CLEAR ROUTINE BUSY W1F10380
1076 | * W1F10390
030F 0200 1077 | INCU DC /0200 INVALID SEQUENCE CODE 0200 W1F10400
0310 0100 1078 | DATU DC /0100 DATA ERROR CODE 0100 W1F10410
0311 0400 1079 | RESPU DC /0400 ERR SEQ RCVED CODE 0400 W1F10420
1080 | * W1F10430
0312 C127 1081 | NOACK LD 1 BUF-T W1F10440
0313 F120 1082 | EOR 1 IDLE-T IS CHAR AN IDLE W1F10450
0314 4C18 035FR 1083 | BSC L INQON,+- BR IF YES W1F10460
0316 C144 1084 | LD 1 DATER-T W1F10470
0317 4C20 0327R 1085 | BSC L DAT,Z BR IF DATA ERROR ON W1F10480
0319 C127 1086 | LD 1 BUF-T W1F10490
031A F11F 1087 | EOR 1 ERRC-T W1F10500
031B 4C20 0335R 1088 | BSC L C8,Z BR IF NOT ERR RESP EITHER W1F10510
031D 7401 0143R 1089 | MDX L ERRCT,+1 RE-TRANSMISSION REQUEST2-2 W1F10520
031F C0F1 1090 | LD RESPU ERR RESPONSE RECEIVED W1F10530
0320 D10E 1091 | DAT2 STO 1 ERRU-T STORE ERROR CODE W1F10540
0321 1010 1092 | SLA 16 W1F10550
0322 D144 1093 | STO 1 DATER-T TURN OFF DATA ERR W1F10560
0323 D13F 1094 | STO 1 XINQ-T TURN OFF XMIT-INQ W1F10570
0324 C000 1095 | LD * W1F10580
0325 D141 1096 | STO 1 XSOR-T TURN ON XMIT-SOR W1F10590
0326 701D 1097 | MDX B8 GOTO DECRE RETRY W1F10600
1098 | * W1F10610
0327 C125 1099 | DAT LD 1 D1-T DATA ERROR IN RECORD W1F10620
0328 D131 1100 | STO 1 RETRY-T TELL USER IMMEDIATELY W1F10630
0329 C0E6 1101 | LD DATU DATA ERROR W1F10640
032A 70F5 1102 | MDX DAT2 GO SET INDICATORS W1F10650
1103 | * W1F10660
032B C13E 1104 | ALTER LD 1 TEL-T W1F10670
032C 4C18 0215R 1105 | BSC L TELUS,+- TEL SWITCH OFF, TELL USER W1F10680
032E 70D5 1106 | MDX D8-3 GO TURN OFF TEL SWITCH W1F10690
1107 | * W1F10700
032F C13E 1108 | SWOFF LD 1 TEL-T IF TEL SWITCH IS ON, W1F10710
0330 4C20 033FR 1109 | BSC L A8,Z TRY SENDING TEL AGAIN W1F10720
0332 C142 1110 | LD 1 XEOT-T W1F10730
0333 4C20 0340R 1111 | BSC L A8+1,Z BR IF XMIT-EOT IS ON W1F10740
1112 | * W1F10750
1113 | * W1F10760
0335 C902 1114 | C8 LDD 1 ACK-T W1F10770
0336 1090 1115 | SLT 16 CHECK FOR OTHER ACK W1F10780
0337 F127 1116 | EOR 1 BUF-T W1F10790
0338 4C20 033CR 1117 | BSC L C8A,Z W1F10800
033A C0D4 1118 | LD INCU WRONG ACK RECEIVED W1F10810
033B 70E4 1119 | MDX DAT2 W1F10820
033C C000 1120 | C8A LD * W1F10830
033D D13F 1121 | STO 1 XINQ-T TURN ON XMIT-INQ W1F10840
033E 7001 1122 | MDX A8+1 GO DECRE RETRY W1F10850
1123 | * W1F10860
033F D13D 1124 | A8 STO 1 XTEL-T TURN ON XMIT-TEL W1F10870
0340 7401 0148R 1125 | MDX L WTSEQ,+1 INVAL RESPONSE FOR TMT 2-2 W1F10880
0342 C0CC 1126 | LD INCU INCORRECT RESPONSE W1F10890
0343 D10E 1127 | STO 1 ERRU-T ERROR CODE W1F10900
1128 | * W1F10910
0344 0914 1129 | B8 XIO 1 LOAD-T LOAD IDLE TO SYNC-REG W1F10920
0345 74FF 0123R 1130 | MDX L RETRY,-1 DECREMENT RETRY W1F10930
0347 70BF 1131 | MDX D8 SEND IDLES W1F10940
0348 090C 1132 | XIO 1 SYNC-T SEND IDLES W1F10950
0349 C10E 1133 | LD 1 ERRU-T LOAD ERROR CODE W1F10960
034A 4480 0090R 1134 | BSI I USERR GO TO USER ERROR ROUTINE W1F10970
034C 6500 00F2R 1135 | LDX L1 T RESTORE XR1 W1F10980
034E 4C18 0252R 1136 | BSC L AEZ1,+- A-REG EQUAL ZERO, END OP W1F10990
0350 4C08 0356R 1137 | BSC L NXT,+ A-REG IS NEGATIVE W1F11000
0352 C14A 1138 | RTRY LD 1 D0007-T 7 RETRYS W1F11010
0353 D131 1139 | STO 1 RETRY-T W1F11020
0354 4C00 0169R 1140 | BSC L INTX EXIT TO ILS W1F11030
1141 | * W1F11040
1142 | * PREPARE FOR USER TO W1F11050
1143 | * TRANSMIT NEXT RECORD W1F11060
1144 | * W1F11070
0356 C12D 1145 | NXT LD 1 TYPE-T DO NOT SWITCH ACKS W1F11080
0357 4C18 035CR 1146 | BSC L *+3,+- FOR RCV W1F11090
0359 C902 1147 | LDD 1 ACK-T SWITCH ACKS SO THEY WILL W1F11100
035A 18D0 1148 | RTE 16 STILL BE IN PHASE FOR W1F11110
035B D902 1149 | STD 1 ACK-T NEXT RECORD W1F11120
035C 1010 1150 | SLA 16 W1F11130
035D D13C 1151 | STO 1 XERR-T TURN OFF XMIT-ERR W1F11140
035E 70AE 1152 | MDX CKACK+4 GO CLEAR BUSY, XINQ W1F11150
1153 | * W1F11160
035F C13A 1154 | INQON LD 1 RTBSY-T W1F11170
0360 4C18 03F0R 1155 | BSC L QTEL1,+- BR TO SEND IDLE, NOT BSY W1F11180
0362 C000 1156 | LD * W1F11190
0363 D13F 1157 | STO 1 XINQ-T TURN ON XMIT-INQ W1F11200
0364 70A2 1158 | MDX D8 BR TO SEND IDLES W1F11210
SCAT1 **** TRANSMIT - TIMEOUT ******
1160 | *************************************************** W1F11230
1161 | * W1F11240
1162 | * TIMEOUT FOR TRANSMIT FUNCTION W1F11250
1163 | * W1F11260
1164 | *************************************************** W1F11270
0365 1010 1165 | XMT SLA 16 W1F11280
0366 D128 1166 | STO 1 CLSW-T TURN OFF CL SWITCH W1F11290
0367 7401 0144R 1167 | MDX L XMTTO,+1 TIME OUT IN TRANSMIT 2-2 W1F11300
0369 4C00 02E5R 1168 | BSC L XMR1 W1F11310
1169 | * W1F11320
SCAT1 *** RECEIVE - WRITE RESPONSE *
1171 | *************************************************** W1F11340
1172 | * W1F11350
1173 | * WRITE RESPONSE TO RECEIVE FUNCTION W1F11360
1174 | * W1F11370
1175 | *************************************************** W1F11380
036B C12E 1176 | RCW LD 1 LCNTL-T W1F11390
036C 4C20 01A5R 1177 | BSC L WTCL,Z SEND CL IF LEAD. CNTRL ON W1F11400
036E C147 1178 | LD 1 TOIND-T W1F11410
036F 4C20 039FR 1179 | BSC L TLTM,Z BR IF TIMEOUT OCCURRED W1F11420
0371 C13D 1180 | LD 1 XTEL-T W1F11430
0372 4C20 01C9R 1181 | BSC L B4,Z BR IF XMIT-TEL ON W1F11440
0374 C142 1182 | LD 1 XEOT-T W1F11450
0375 4C18 0384R 1183 | BSC L ERRQ,+- BR IF XMIT-EOT NOT ON W1F11460
1184 | * XMIT-EOT ON W1F11470
0377 D13B 1185 | STO 1 OKBSY-T TURN ON INDR FOR FUTURE2-9 W1F11475
1186 | * *TURNING OFF .RTBSY. 2-9 W1F11476
1187 | * *WHEN PAD XMITTED 2-9 W1F11477
0378 10A0 1188 | SLT 32 2-9 W1F11480
0379 D13C 1189 | STO 1 XERR-T TURN OFF XMIT-ERR W1F11500
037A D126 1190 | STO 1 XACK-T TURN OFF XMIT-ACK W1F11510
037B D936 1191 | STD 1 INQR-T TURN OFF INQ-RECEIVED 2-9 W1F11520
1192 | * RCVCM TURN OFF RCV COMPLETE 2-9 W1F11530
037C C132 1193 | LD 1 OPENR-T W1F11540
037D D106 1194 | STO 1 RDF-T SET BRANCHES TO OPEN RTN. W1F11550
037E C133 1195 | LD 1 OPENW-T W1F11560
037F D108 1196 | STO 1 WTF-T W1F11570
0380 C134 1197 | LD 1 OPENT-T W1F11580
0381 D10A 1198 | STO 1 TIMF-T W1F11590
0382 4C00 01B1R 1199 | BSC L EOT1 GO SEND EOT W1F11600
1200 | * W1F11610
0384 C12F 1201 | ERRQ LD 1 XEOI-T W1F11620
0385 4C20 01D4R 1202 | BSC L XEOIQ+3,Z BR TO SEND IDLE W1F11630
0387 C13C 1203 | LD 1 XERR-T W1F11640
0388 4C18 0394R 1204 | BSC L ACKQ,+- BR IF XMIT-ERR NOT ON W1F11650
038A 0916 1205 | XIO 1 WTINQ-T WRITE ERR W1F11660
038B C11F 1206 | LD 1 INQC-T 2-2 W1F11670
038C 0959*3587 1207 | CALL IOLOG LOG ERR XMITTED 2-2 W1F11680
038E 4400 04BFR 1208 | PAD1 BSI L PAD GO SET UP FOR PAD 2-3 W1F11681
0390 0849 1209 | XIO LDTL LOAD TL TO SYNC-REG W1F11690
0391 1010 1210 | SLA 16 TURN OFF CL SWITCH W1F11700
0392 4C00 01E3R 1211 | BSC L CLRE2 SET UP FOR TL IN SYNC R2-3 W1F11710
1212 | * W1F11720
0394 C126 1213 | ACKQ LD 1 XACK-T W1F11730
0395 4C18 039DR 1214 | BSC L ID,+- BR IF XMIT-ACK NOT ON W1F11740
0397 0C00 02D4R 1215 | XIO L WTSOR WRITE ACK W1F11750
0399 C102 1216 | LD 1 ACK-T 2-2 W1F11760
039A 0959*3587 1217 | CALL IOLOG LOG ACK XMITTED 2-2 W1F11770
039C 70F1 1218 | MDX PAD1 WRITE PAD, TL TO SYNC R2-3 W1F11780
1219 | * W1F11790
039D 4C00 01D6R 1220 | ID BSC L WTDLE GO SEND IDLE W1F11800
1221 | * W1F11810
039F 1010 1222 | TLTM SLA 16 W1F11820
03A0 D147 1223 | STO 1 TOIND-T TURN OFF TIMEOUT IND. W1F11830
03A1 C148 1224 | LD 1 TOCNT-T W1F11840
03A2 8125 1225 | A 1 D1-T ALTERNATE TL AND IDLE W1F11850
03A3 D148 1226 | STO 1 TOCNT-T W1F11860
03A4 4C04 03A7R 1227 | BSC L *+1,E BR TO SET UP TL W1F11870
03A6 70C7 1228 | MDX RCW+3 BR TO SEND CL IDLE W1F11880
03A7 0834 1229 | XIO WTIDL WRITE IDLE W1F11890
03A8 C120 1230 | LD 1 IDLE-T 2-2 W1F11900
03A9 0959*3587 1231 | CALL IOLOG LOG IDLE XMITTED 2-2 W1F11910
03AB 1010 1232 | SLA 16 W1F11920
03AC D12F 1233 | STO 1 XEOI-T TURN OFF XMIT EOI IND W1F11930
03AD 70E0 1234 | MDX PAD1 WRITE PAD, TL TO SYNC R2-3 W1F11940
1235 | * W1F11950
SCAT1 *** RECEIVE - READ RESPONSE **
1237 | *************************************************** W1F11970
1238 | * W1F11980
1239 | * READ RESPONSE FOR RECEIVE FUNCTION W1F11990
1240 | * W1F12000
1241 | *************************************************** W1F12010
03AE 4C28 0439R 1242 | RCR BSC L RCRCK,+Z BR IF CHECK BIT IS ON W1F12020
03B0 C138 1243 | LD 1 DATA-T W1F12030
03B1 4C20 03F3R 1244 | BSC L RECRD,Z BR IF RECEIVING A RECORD W1F12040
03B3 C12E 1245 | LD 1 LCNTL-T W1F12050
03B4 4C20 01ECR 1246 | BSC L LCON,Z BR IF LEADER CONTROL IS ON W1F12060
1247 | * W1F12070
03B6 C000 1248 | LD * W1F12080
03B7 D12E 1249 | STO 1 LCNTL-T TURN ON LEADER CONTROL W1F12090
03B8 C139 1250 | LD 1 RCVER-T W1F12100
03B9 4C20 0485R 1251 | BSC L STATX,Z BR IF RCV-ERR IS ON 2-2 W1F12110
1252 | * W1F12120
03BB C128 1253 | LD 1 CLSW-T W1F12130
03BC 4C20 03DFR 1254 | BSC L SWON,Z BR IF LAST CHAR WAS CL W1F12140
1255 | * W1F12150
03BE 0914 1256 | XIO 1 LOAD-T LOAD SYNC REG WITH IDLE2-2 W1F12160
03BF C127 1257 | LD 1 BUF-T IS BUF = INQ W1F12170
03C0 F11F 1258 | EOR 1 INQC-T W1F12180
03C1 4C18 03D4R 1259 | BSC L CKBSY,+- BR TO CHECK RTN BUSY W1F12190
1260 | * W1F12200
03C3 C902 1261 | LDD 1 ACK-T IS BUF = CORRECT SOR W1F12210
03C4 1090 1262 | SLT 16 W1F12220
03C5 F127 1263 | EOR 1 BUF-T W1F12230
03C6 4C20 0485R 1264 | BSC L STATX,Z BR IF NOT RIGHT SOR 2-2 W1F12240
1265 | * W1F12250
03C8 D13C 1266 | STO 1 XERR-T TURN OFF XMIT-ERR W1F12260
03C9 D126 1267 | STO 1 XACK-T TURN OFF XMIT-ACK W1F12270
03CA D12B 1268 | STO 1 COUNT-T CLEAR WORD COUNT W1F12280
03CB D12A 1269 | STO 1 LRC-T CLEAR LRC W1F12290
03CC C10C 1270 | LD 1 IOAR-T W1F12300
03CD 8125 1271 | A 1 D1-T W1F12310
03CE D11A 1272 | STO 1 POINT-T SET UP I/O AREA POINTER W1F12320
03CF D138 1273 | STO 1 DATA-T TURN ON DATA SWITCH W1F12330
03D0 D007 1274 | STO TMOUT SET TIMEOUT INDICATOR W1F12340
03D1 0806 1275 | XIO TIME *** STOP TIMEOUT W1F12350
03D2 4C80 0004R 1276 | BSC I INT1 EXIT TO ILS 2-2 W1F12360
1277 | * THE TIMEOUT IS STOPPED TO ALLOW W1F12370
1278 | * RECORDS WHICH EXCEED 3 SECONDS W1F12380
1279 | * TO BE RECEIVED W1F12390
1280 | * W1F12400
1281 | * W1F12410
03D4 C13A 1282 | CKBSY LD 1 RTBSY-T W1F12420
03D5 4C20 0208R 1283 | BSC L STWT2,Z START WRITE IF BUSY W1F12430
03D7 700F 1284 | MDX QTEL-2 BR TO SEND IDLES, NOT BSY W1F12440
1285 | * W1F12450
03D8 1286 | BSS E 0 W1F12460
03D8 0000 1287 | TIME DC 0 STOP/START TIMEOUT W1F12470
03D9 5420 1288 | DC /5420 IOCC W1F12480
03D8R 1289 | TMOUT EQU TIME ON WHEN TIMEOUT STOPPED W1F12490
03DA 0114R 1290 | LDTL DC TLC LOAD SYNC REG WITH TL W1F12500
03DB 5104 1291 | DC /5104 IOCC W1F12510
03DC 0112R 1292 | WTIDL DC IDLE WRITE IDLE W1F12520
03DD 5100 1293 | DC /5100 IOCC W1F12530
03DE 0600 1294 | H0600 DC /0600 CONSTANT 0600 W1F12540
1295 | * W1F12550
1296 | * W1F12560
03DF C127 1297 | SWON LD 1 BUF-T W1F12570
03E0 F129 1298 | EOR 1 EOTC-T BUF = EOT W1F12580
03E1 4C20 03E9R 1299 | BSC L QTEL,Z NO, BRANCH W1F12590
03E3 D480 00FER 1300 | STO I IOAR CLEAR WORD COUNT W1F12600
03E5 C000 1301 | LD * W1F12610
03E6 D142 1302 | STO 1 XEOT-T TURN ON XMIT-EOT W1F12620
03E7 4C00 0206R 1303 | BSC L ALH GO SEND 1.5 SEC IDLES 2-2 W1F12630
1304 | * W1F12640
03E9 F0F4 1305 | QTEL EOR H0600 W1F12650
03EA 4C18 0215R 1306 | BSC L TELUS,+- BUF = TEL, GO TELL USER W1F12660
03EC F400 020ER 1307 | EOR L H6500 W1F12670
03EE 4C20 0485R 1308 | BSC L STATX,Z BR IF NOT IDLE 2-2 W1F12680
03F0 C000 1309 | QTEL1 LD * W1F12690
03F1 D12F 1310 | STO 1 XEOI-T TURN ON XMIT-EOI W1F12700
03F2 70F4 1311 | MDX QTEL-2 GO SEND IDLES W1F12710
1312 | * W1F12720
1313 | * PROCESS DATA PORTION W1F12730
1314 | * OF RECORD W1F12740
03F3 C139 1315 | RECRD LD 1 RCVER-T W1F12750
03F4 4C20 043ER 1316 | BSC L RCT,Z BR IF RCV-ERR ON W1F12760
03F6 C070 1317 | LD ABRT1 W1F12770
03F7 4C20 047ER 1318 | BSC L CKSEQ,Z BR IF POSSIBLE ABORT W1F12780
03F9 C12E 1319 | LD 1 LCNTL-T W1F12790
03FA 4C20 041CR 1320 | BSC L VALID,Z BR IF LEADER CONTROL ON W1F12800
03FC C000 1321 | LD * W1F12810
03FD D12E 1322 | STO 1 LCNTL-T TURN ON LEADER CONTROL W1F12820
03FE C143 1323 | LD 1 XRLRC-T W1F12830
03FF 4C18 0409R 1324 | BSC L LAST,+- BR IF NO ILRC W1F12840
0401 C127 1325 | LD 1 BUF-T COMPARE LRC S W1F12850
0402 F12A 1326 | EOR 1 LRC-T W1F12860
0403 E93C 1327 | OR 1 XERR-T 2-5 W1F12865
0404 D13C 1328 | STO 1 XERR-T TURN ON XMIT-ERR IF NOT 0 W1F12870
0405 1010 1329 | SLA 16 W1F12880
0406 D143 1330 | STO 1 XRLRC-T CLEAR XR-ILRC W1F12890
0407 D12A 1331 | STO 1 LRC-T CLEAR LRC BUCKET W1F12900
0408 702B 1332 | MDX Z EXIT TO ILS W1F12910
1333 | * W1F12920
0409 D138 1334 | LAST STO 1 DATA-T TURN OFF DATA SWITCH W1F12930
040A C12B 1335 | LD 1 COUNT-T W1F12940
040B D480 00FER 1336 | STO I IOAR STORE CNT OF WDS RCVED W1F12950
040D C127 1337 | LD 1 BUF-T W1F12960
040E F12A 1338 | EOR 1 LRC-T COMPARE LRC S W1F12970
040F 4C20 0417R 1339 | BSC L CLEAR,Z BR IF NO EQUAL COMPARE W1F12980
0411 D12A 1340 | STO 1 LRC-T CLEAR LRC BUCKET W1F12990
1341 | * W1F13000
0412 C13C 1342 | LD 1 XERR-T W1F13010
0413 4C20 0448R 1343 | BSC L B10,Z XMIT-ERR ON, BRANCH W1F13020
0415 D13A 1344 | STO 1 RTBSY-T CLEAR ROUTINE BUSY W1F13030
0416 70D0 1345 | MDX QTEL-2 GOTO SEND IDLES W1F13040
1346 | * W1F13050
0417 1010 1347 | CLEAR SLA 16 W1F13060
0418 D12A 1348 | STO 1 LRC-T CLEAR LRC BUCKET W1F13070
0419 7401 0142R 1349 | MDX L LRCNT,+1 NO. OF LRC ERRORS 2-2 W1F13080
041B 702C 1350 | MDX B10 GO TURN ON XMIT-ERR W1F13090
1351 | * W1F13100
041C C127 1352 | VALID LD 1 BUF-T CHECK FOR VALID DATA CHAR. W1F13110
041D 406A 1353 | BSI CHECK W1F13120
041E 704B 1354 | MDX INVAL CONTROL CHAR OR 4/8 ERROR W1F13130
1355 | * W1F13140
041F C12B 1356 | ROOMQ LD 1 COUNT-T IS THERE ROOM IN I/O AREA W1F13150
0420 F130 1357 | EOR 1 WDCNT-T W1F13160
0421 4C18 0439R 1358 | BSC L RCRCK,+- NO, BRANCH W1F13170
0423 7401 011DR 1359 | MDX L COUNT,+1 UP COUNT OF WORDS W1F13180
0425 C127 1360 | LD 1 BUF-T W1F13190
0426 D480 010CR 1361 | STO I POINT STORE CHAR IN I/O AREA W1F13200
0428 F12A 1362 | EOR 1 LRC-T W1F13210
0429 D12A 1363 | STO 1 LRC-T BUILD LRC W1F13220
042A 7401 010CR 1364 | MDX L POINT,+1 UP I/O AREA POINTER W1F13230
1365 | * W1F13240
042C C127 1366 | LD 1 BUF-T W1F13250
042D F11C 1367 | EOR 1 RM-T IS CHARACTER A RECORD MARK W1F13260
042E 4820 1368 | BSC Z W1F13270
042F F11D 1369 | EOR 1 GMC-T OR A GROUP MARK W1F13280
0430 4820 1370 | BSC Z W1F13290
0431 7011 1371 | MDX NZ NO, EXIT TO ILS W1F13300
1372 | * W1F13310
0432 C12C 1373 | LD 1 ILRC-T YES, IF AN ILRC REQUESTED W1F13320
0433 D143 1374 | STO 1 XRLRC-T TURN ON XR-ILRC W1F13330
0434 4C98 0004R 1375 | Z BSC I INT1,+- EXIT TO ILS 2-2 W1F13340
0436 1010 1376 | TLTIM SLA 16 IF ILRC IS ON, W1F13350
0437 D12E 1377 | STO 1 LCNTL-T TURN OFF LEADER CONTROL W1F13360
0438 70FB 1378 | MDX Z EXIT TO ILS W1F13370
1379 | * W1F13380
1380 | * W1F13390
0439 C09E 1381 | RCRCK LD TMOUT HAS TIMEOUT BEEN STOPPED W1F13400
043A 4820 1382 | BSC Z NO, BRANCH W1F13410
043B 089C 1383 | XIO TIME START TIMEOUT W1F13420
043C 1010 1384 | SPEFL SLA 16 W1F13430
043D D09A 1385 | STO TMOUT TURN OFF TIMEOUT IND. W1F13440
SCAT1 **** RECEIVE - TIMEOUT *******
1387 | *************************************************** W1F13460
1388 | * W1F13470
1389 | * TIMEOUT FOR RECEIVE W1F13480
1390 | * W1F13490
1391 | *************************************************** W1F13500
043E C800 1392 | RCT LDD * 2-9 W1F13510
043F D938 1393 | STD 1 DATA-T TURN ON DATA SWITCH 2-9 W1F13520
1394 | * RCVER TURN ON RCV-ERROR 2-9 W1F13530
0440 D12E 1395 | STO 1 LCNTL-T TURN ON LEADER CONTROL W1F13540
0441 C127 1396 | LD 1 BUF-T W1F13550
0442 F01E 1397 | EOR HFF00 IS BUF = ALL ONES W1F13560
0443 4CA0 0004R 1398 | NZ BSC I INT1,Z NO, EXIT TO ILS 2-2 W1F13570
0445 C000 1399 | LD * RESET SCA ON MARKING LN2-2 W1F13580
0446 D12F 1400 | STO 1 XEOI-T FORCE TMT OF IDLES BACK2-2 W1F13590
0447 090E 1401 | XIO 1 ENDOP-T RESET CP MEMORY AND SCA2-2 W1F13600
1402 | * W1F13610
0448 10A0 1403 | B10 SLT 32 2-9 W1F13620
0449 D938 1404 | STD 1 DATA-T TURN OFF DATA SWITCH 2-9 W1F13630
1405 | * RCVER TURN OFF RCV-ERROR 2-9 W1F13640
044A C13A 1406 | LD 1 RTBSY-T DO NOT SET ERROR IF NOT2-2 W1F13650
044B 4C18 0457R 1407 | BSC L RCTIM,+- *BUSY OR IF AN ACK HAS 2-2 W1F13660
044D C126 1408 | LD 1 XACK-T *NOT BEEN SENT YET FROM2-2 W1F13670
044E 4C20 0457R 1409 | BSC L RCTIM,Z *LAST GOOD TRANSMISSION2-2 W1F13680
0450 C0EB 1410 | LD SPEFL GET SPECIAL FLAG 2-5 W1F13690
0451 0959*3587 1411 | CALL IOLOG 2-5 W1F13700
0453 C00C 1412 | LD RCVU RECEIVE ERROR 2-5 W1F13710
0454 D13C 1413 | STO 1 XERR-T TURN ON XMIT-ERR. 2-5 W1F13720
0455 4C00 0343R 1414 | BSC L B8-1 GO DECRE RETRY W1F13730
1415 | * W1F13740
0457 C139 1416 | RCTIM LD 1 RCVER-T IF RCV ERROR, 2-2 W1F13750
0458 4C20 0448R 1417 | BSC L B10,Z XMIT ERR, RESET IND. 2-2 W1F13760
045A 7401 0145R 1418 | MDX L RCVTO,+1 TIME OUT IN RECEIVE 2-2 W1F13770
045C C803 1419 | LDD RCVU FOR TIMEOUT, 2-9 W1F13780
045D D92E 1420 | STD 1 LCNTL-T TURN ON LEADER CONTROL 2-9 W1F13790
1421 | * XEOI TURN ON XMIT-EOI 2-9 W1F13800
045E D147 1422 | STO 1 TOIND-T TURN ON TIMEOUT IND. W1F13810
045F 70F5 1423 | MDX RCTIM-2 GO DECRE RETRY 2-5 W1F13820
1424 | * W1F13830
1425 | * W1F13840
1426 | * W1F13850
0460 0800 1427 | RCVU DC /0800 RECEIVE ERROR CODE 0800 W1F13860
0461 FF00 1428 | HFF00 DC /FF00 CONSTANT FF00 W1F13870
0462 0C00 1429 | H0C00 DC /0C00 CONSTANT 0C00 W1F13880
0463 0006 1430 | D6 DC +6 CONSTANT 0006 W1F13900
0464 0000 1431 | CNT48 DC 0 BIT BUCKET 4/8 W1F13910
0465 0004 1432 | H0004 DC /0004 CONSTANT 0004 W1F13920
0466 F000 1433 | HF000 DC /F000 CONSTANT F000 W1F13930
0467 0000 1434 | ABRT1 DC 0 ABORT IND ON IF CL IN DATA W1F13940
0468 A600 1435 | HA600 DC /A600 CONSTANT A600 W1F13950
0469 6C00 1436 | H6C00 DC /6C00 W1F13960
1437 | * W1F13970
1438 | * W1F13980
046A C127 1439 | INVAL LD 1 BUF-T W1F13990
046B F120 1440 | EOR 1 IDLE-T W1F14000
046C 4C98 0004R 1441 | BSC I INT1,+- EXIT IF IDLE IN BUF 2-2 W1F14010
1442 | * W1F14020
046E F0F3 1443 | EOR H0C00 IS BUF = TL W1F14030
046F 4C18 0436R 1444 | BSC L TLTIM,+- BR IF BUF = TL W1F14040
0471 F0F7 1445 | EOR H6C00 IS BUF = CL W1F14050
0472 4C18 047BR 1446 | BSC L ABORT,+- BR IF YES W1F14060
0474 F0F3 1447 | EOR HA600 IF BUF = FF W1F14070
0475 4C18 0439R 1448 | BSC L RCRCK,+- GO DECRE RETRY, TURN AROND W1F14080
1449 | * W1F14090
0477 C0EE 1450 | ABRT LD HF000 SET CHARACTER TO F0 W1F14100
0478 D127 1451 | STO 1 BUF-T W1F14110
0479 D13C 1452 | STO 1 XERR-T TURN ON XMIT-ERR W1F14120
047A 70A4 1453 | MDX ROOMQ CONTINUE AS IF GOOD DATA W1F14130
1454 | * W1F14140
047B C000 1455 | ABORT LD * W1F14150
047C D0EA 1456 | STO ABRT1 TURN ON ABORT IND. W1F14160
047D 70F9 1457 | MDX ABRT W1F14170
1458 | * W1F14180
047E 1010 1459 | CKSEQ SLA 16 W1F14190
047F D0E7 1460 | STO ABRT1 TURN OFF ABORT IND W1F14200
0480 C127 1461 | LD 1 BUF-T W1F14210
0481 F120 1462 | EOR 1 IDLE-T W1F14220
0482 4C18 022DR 1463 | BSC L XMITI,+- BR IF BUF = IDLE W1F14230
0484 7097 1464 | MDX VALID NOT ABORT, SO CONTINUE W1F14240
1465 | * 2-2 W1F14250
0485 7401 0149R 1466 | STATX MDX L RCSEQ,+1 INVALID SEQ IN RECEIVE W1F14260
0487 70B6 1467 | MDX RCT BR TO PROCESS ERROR W1F14270
SCAT1 ** CHECK ON 4/8 AND CONTROL **
0488 0000 1469 | CHECK DC 0 W1F14290
0489 1808 1470 | SRA 8 IS IT A VALID DATA CHAR. W1F14300
048A 4C04 048DR 1471 | BSC L *+1,E W1F14310
048C 7007 1472 | MDX CK48 CHECK FOR CONTROL CHAR. W1F14320
048D 1804 1473 | SRA 4 W1F14330
048E F149 1474 | EOR 1 D0003-T W1F14340
048F 4C18 04B7R 1475 | BSC L ER48,+- W1F14350
0491 F0D1 1476 | EOR D6 W1F14360
0492 4C18 04B7R 1477 | BSC L ER48,+- W1F14370
1478 | * W1F14380
0494 C127 1479 | CK48 LD 1 BUF-T CHECK 4/8 CODE W1F14390
0495 6A1A 1480 | STX 2 XR2+1 W1F14400
0496 6200 1481 | LDX 2 0 W1F14410
0497 4828 1482 | BSC +Z BIT 0 W1F14420
0498 7201 1483 | MDX 2 +1 W1F14430
0499 1001 1484 | SLA 1 W1F14440
049A 4828 1485 | BSC +Z BIT 1 W1F14450
049B 7201 1486 | MDX 2 +1 W1F14460
049C 1001 1487 | SLA 1 W1F14470
049D 4828 1488 | BSC +Z BIT 2 W1F14480
049E 7201 1489 | MDX 2 +1 W1F14490
049F 1001 1490 | SLA 1 W1F14500
04A0 4828 1491 | BSC +Z BIT 3 W1F14510
04A1 7201 1492 | MDX 2 +1 W1F14520
04A2 1001 1493 | SLA 1 W1F14530
04A3 4828 1494 | BSC +Z BIT 4 W1F14540
04A4 7201 1495 | MDX 2 +1 W1F14550
04A5 1001 1496 | SLA 1 W1F14560
04A6 4828 1497 | BSC +Z BIT 5 W1F14570
04A7 7201 1498 | MDX 2 +1 W1F14580
04A8 1001 1499 | SLA 1 W1F14590
04A9 4828 1500 | BSC +Z BIT 6 W1F14600
04AA 7201 1501 | MDX 2 +1 W1F14610
04AB 1001 1502 | SLA 1 W1F14620
04AC 4828 1503 | BSC +Z BIT 7 W1F14630
04AD 7201 1504 | MDX 2 +1 W1F14640
04AE 6AB5 1505 | STX 2 CNT48 W1F14650
04AF 6600 0000 1506 | XR2 LDX L2 *-* RESTORE REGISTER 2 W1F14660
04B1 C0B2 1507 | LD CNT48 W1F14670
04B2 F0B2 1508 | EOR H0004 WERE 4 BITS ON W1F14680
04B3 4C20 04B7R 1509 | BSC L ER48,Z W1F14690
04B5 7401 0488R 1510 | MDX L CHECK,+1 NO ERRORS W1F14700
04B7 4C80 0488R 1511 | ER48 BSC I CHECK W1F14710
04B9 C004 1512 | SVTIM LD ZILCH GET TIME-OUT INDICATOR 2-2 W1F14720
04BA 0959*3587 1513 | CALL IOLOG LOG TIME OUT 2-2 W1F14730
04BC 4C00 0265R 1514 | BSC L TMCHK GO BACK TO SCAT 2-2 W1F14740
04BE 1111 1515 | ZILCH DC /1111 2-2 W1F14750
04BF 0000 1516 | PAD DC 0 ENTER PAD SET UP 2-3 W1F14751
04C0 C000 1517 | LD * 2-3 W1F14752
04C1 D158 1518 | STO 1 XPAD-T TURN ON XMIT PAD INDR 2-3 W1F14753
04C2 4C80 0004R 1519 | BSC I INT1 EXIT TO ILS 2-3 W1F14754
1520 | * 2-3 W1F14755
04C4 0C00 03DCR 1521 | GOPAD XIO L WTIDL WRITE PAD -IDLE- 2-3 W1F14756
04C6 1010 1522 | SLA 16 2-3 W1F14757
04C7 D158 1523 | STO 1 XPAD-T TURN OFF XMIT PAD ENDR 2-3 W1F14758
04C8 C120 1524 | LD 1 IDLE-T 2-3 W1F14759
04C9 0959*3587 1525 | CALL IOLOG LOG PAD -IDLE- XMITTED 2-3 W1F14760
04CB 4C80 04BFR 1526 | BSC I PAD RETURN TO NORMAL FLOW 2-3 W1F14761
04CD 1527 | END 2-3 W1F14771
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
$PAUS 00F0 510 621
$PRET 0028 170 168 169
$SCAT 0011 509 334 379 886
A8 033FR 1124 1045 1051 1109 1111 1122
ABORT 047BR 1455 1446
ABRT 0477R 1450 1457
ABRT1 0467R 1434 1317 1456 1460
ACK 00F4R 483 264 266 354 385 387 985 1011 1058 1072 1114 1147 1149
1216 1261
ACKQ 0394R 1213 1204
ACKS 00F6R 485 353 828 1057
AEZ1 0252R 883 1136
ALARM 008AR 300 203
ALH 0206R 800 873 1069 1303
ALOFF 0092R 313 303 315
ALON 0090R 310 301 312
ALTER 032BR 1104 1043
ANS 0094R 318 292 642
ANSI 0162R 639 625 641
AQ 0008R 125 137 148
AUTOA 0082R 288 202
B10 0448R 1403 1343 1350 1417
B4 01C9R 738 964 1181
B8 0344R 1129 1097 1414
BRAN 0057R 218 194
BRNCH 0044R 201 190
BUF 0119R 530 481 499 654 707 720 775 795 827 843 930 934 938
953 959 1041 1049 1071 1081 1086 1116 1257 1263 1297 1325
1337 1352 1360 1366 1396 1439 1451 1461 1479
C4 01B3R 719 742 744 751 968
C45 01BFR 729 725
C8 0335R 1114 1088
C8A 033CR 1120 1117
CHECK 0488R 1469 931 1353 1510 1511
CK48 0494R 1479 1472
CKACK 0309R 1071 1048 1152
CKBSY 03D4R 1282 1259
CKOPR 0240R 865 556 772 792
CKSEQ 047ER 1459 1318
CKTAB 0025R 155 192
CL4 025DR 892 885 894
CL4A 00A5R 340 333 342
CLC 0115R 526 505 706 777
CLEAR 0417R 1347 1339
CLOSE 009AR 331 204
CLRE2 01E3R 761 1211
CLREG 01E1R 759 730
CLSW 011AR 531 761 776 786 793 1038 1166 1253
CLTM 013DR 588 258 729 763 1020
CNT48 0464R 1431 1505 1507
COUNT 011DR 534 926 949 979 1268 1335 1356 1359
D0003 013BR 586 1474
D0007 013CR 587 253 1138
D000X 013ER 590 247 803
D1 0117R 528 676 981 1099 1225 1271
D6 0463R 1430 1476
D8 0307R 1069 1075 1106 1131 1158
DAT 0327R 1099 1085
DAT2 0320R 1091 1102 1119
DATA 012AR 565 1243 1273 1334 1393 1404
DATER 0136R 579 958 1084 1093
DATU 0310R 1078 1101
DIN 00CCR 384 358
DIN2 00B6R 361 388
DISAA 00F8R 487 289 511 643
DLEQ 020FR 811 797
DSW 0102R 517 622 628 657 666
E4 01DBR 755 972
ENAA 0094R 316 293 318
ENABL 0086R 291 288
ENDOP 0100R 495 331 361 515 901 1401
EOI7 02DBR 1020 919
EOT1 01B1R 717 1199
EOT7 02A5R 967 917
EOTC 011BR 532 719 796 1050 1298
ER1 002CR 166 156 174 177 230 437 442
ER2 0032R 173 352
ER3 0034R 176 228 424
ER48 04B7R 1511 1475 1477 1509
ERRC 0111R 522 1087
ERRCT 0143R 595 1089
ERRQ 0384R 1201 1183
ERRU 0100R 515 871 877 1091 1127 1133
EXIT 001AR 146 159 260 290 294 302 304
FAIL 0127R 557 256 645 665 687 902
FAILC 017DR 664 631
FAILU 023ER 855 905
FILL 02D8R 1016 998
GMC 010FR 519 830 941 1369
GOPAD 04C4R 1521 673
H0004 0465R 1432 1508
H00F0 0092R 315 214
H0200 0113R 524 441
H0600 03DER 1294 1305
H0C00 0462R 1429 1443
H0F00 0096R 321 244 434
H1F00 0110R 520 957
H6000 0137R 582 783
H6300 020DR 808 811
H6500 020ER 809 813 1307
H6C00 0469R 1436 1445
H6FFF 0007R 124 189
H7002 000BR 127 193
H7005 000AR 126 191
H8001 0036R 181 166
H8002 0037R 182 173
H8003 0038R 183 176
HA600 0468R 1435 1447
HF000 0466R 1433 1450
HFF00 0461R 1428 1397
ID 039DR 1220 1214
IDLCT 013FR 591 248 674 677 804
IDLE 0112R 523 501 750 1082 1230 1292 1440 1462 1524
ILRC 011ER 535 215 945 1373
ILRC4 02C0R 992 987
ILRC7 02BCR 989 925
INCU 030FR 1077 1118 1126
INQ7 02A9R 971 921
INQC 0111R 521 503 522 756 844 1206 1258
INQON 035FR 1154 1083
INQQ 0232R 843 794 806
INQR 0128R 561 227 364 850 1191
INQU 023FR 856 898
INT1 0004R 117 634 640 646 895 1276 1375 1398 1441 1519
INT2 014BR 620 118
INTX 0169R 644 679 713 734 841 995 1140
INTX2 018FR 679 780
INVAL 046AR 1439 1354
IOAR 00FER 514 210 216 980 1270 1300 1336
LAST 0409R 1334 1324
LCNTL 0120R 538 373 688 712 732 773 779 784 790 866 963 967 971
975 983 999 1021 1031 1036 1176 1245 1249 1319 1322 1377
1395 1420
LCON 01ECR 775 787 1032 1246
LDCL 010AR 505 759
LDTL 03DAR 1290 1209
LOAD 0106R 501 375 802 817 839 875 1129 1256
LRC 011CR 533 935 936 990 993 1002 1005 1013 1269 1326 1331 1338 1340
1348 1362 1363
LRCNT 0142R 594 593 1349
NEOT 00ECR 446 443 449
NOACK 0312R 1081 1073
NOCHK 0185R 672 668
NOCL 01F3R 783 778
NOCOD 0140R 592 249 708 838
NOTEL 021ER 825 814
NTBSY 019ER 699 693
NTEOI 01D8R 753 747
NTEST 0039R 189 143
NXT 0356R 1145 1137
NZ 0443R 1398 1371
OFF 008ER 303 300 343
OKBSY 012DR 569 724 743 1185
OPEN 00AAR 351 219
OPENR 0124R 554 367 1059 1193
OPENT 0126R 556 371 1063 1197
OPENW 0125R 555 369 1061 1195
OPER1 0263R 898 847
OPER2 0245R 871 899 906
OPERR 0244R 870 826 831 845
OPR 01E7R 772 554
OPR2 01F8R 789 774
OPW 0190R 686 555
OPW2 01C2R 731 764
PAD 04BFR 1516 723 758 1208 1526
PAD1 038ER 1208 1218 1234
POINT 010CR 516 929 948 982 1272 1361 1364
POS 007CR 262 245 439
PROC 000FR 137 108
QLRC 02C5R 997 927
QTEL 03E9R 1305 1284 1299 1311 1345
QTEL1 03F0R 1309 1155
RCR 03AER 1242 128
RCRCK 0439R 1381 1242 1358 1448
RCSEQ 0149R 601 1466
RCT 043ER 1392 1316 1467
RCTIM 0457R 1416 130 1407 1409 1423
RCVCM 0129R 562 351 563
RCVER 012BR 566 791 869 1034 1250 1315 1416
RCVR 000CR 128 233
RCVT 000ER 130 237
RCVTO 0145R 597 1418
RCVTR 0098R 322 384 454
RCVU 0460R 1427 1412 1419
RCVW 000DR 129 235
RCVX 0070R 249 251 267 378 382 445
RCW 036BR 1176 129 1228
RDCHK 0147R 599 661
RDF 00F8R 511 234 368 426 659 662 1060 1194
READ 00F2R 481 653
READI 016DR 651 629
RECRD 03F3R 1315 1244
RESET 010CR 507 516 883
RESPU 0311R 1079 1090
RET 0023R 153 149
RETRY 0123R 553 254 872 1100 1130 1139
RM 010ER 518 939 1367
ROOMQ 041FR 1356 1453
RTBSY 012CR 568 144 207 255 692 727 832 848 997 1067 1154 1282 1344
1406
RTRY 0352R 1138 880
SCAT1 0000R 106
SEND 0096R 319 321 360
SENSR 00FAR 489 512 620
SEOT 00E5R 441 435
SOR7 02ADR 975 923 973
SORRY 029CR 957 932
SPEFL 043CR 1384 1410
STAT 001ER 150 138 171
STATX 0485R 1466 1251 1264 1308
STRED 00FCR 491 513 733
STWRT 0102R 497 252 517 805 904
STWT2 0208R 802 1283
SVTIM 04B9R 1512 633 652
SWOFF 032FR 1108 1039
SWON 03DFR 1297 1254
SYNC 00FER 493 376 514 818 840 876 1132
SYNCI 0132R 575 363 423 834 1053
SYNCU 023DR 854 870
T 00F2R 480 140 144 157 207 210 215 217 227 229 234 236 238
241 242 246 247 248 249 252 253 254 255 256 258
263 264 266 332 337 351 357 359 361 363 364 367
369 371 373 377 432 436 623 672 704 706 707 708
710 712 718 719 720 722 724 727 729 732 733 736
739 740 743 746 749 750 753 755 756 759 761 763
773 775 776 777 779 783 784 786 790 791 793 795
796 799 802 803 804 805 816 817 818 825 827 828
830 832 834 835 837 838 839 840 843 844 846 848
850 866 869 871 875 876 877 879 883 884 889 901
902 904 914 916 918 920 922 924 926 930 934 935
936 938 939 941 945 946 952 953 957 958 959 963
967 971 975 977 978 979 980 981 982 983 985 990
993 994 997 999 1002 1005 1017 1020 1021 1031 1034 1036
1038 1041 1042 1044 1047 1049 1050 1053 1054 1056 1057 1058
1059 1060 1061 1062 1063 1064 1066 1067 1071 1072 1074 1081
1082 1084 1086 1087 1091 1093 1094 1096 1099 1100 1104 1108
1110 1114 1116 1121 1124 1127 1129 1132 1133 1135 1138 1139
1145 1147 1149 1151 1154 1157 1166 1176 1178 1180 1182 1185
1189 1190 1191 1193 1194 1195 1196 1197 1198 1201 1203 1205
1206 1213 1216 1223 1224 1225 1226 1230 1233 1243 1245 1249
1250 1253 1256 1257 1258 1261 1263 1266 1267 1268 1269 1270
1271 1272 1273 1282 1297 1298 1302 1310 1315 1319 1322 1323
1325 1326 1327 1328 1330 1331 1334 1335 1337 1338 1340 1342
1344 1348 1352 1356 1357 1360 1362 1363 1366 1367 1369 1373
1374 1377 1393 1395 1396 1400 1401 1404 1406 1408 1413 1416
1420 1422 1439 1440 1451 1452 1461 1462 1474 1479 1518 1523
1524
TAB4 0128R 560 340 892
TABCT 0141R 593 157
TEL 0130R 573 448 741 1044 1066 1104 1108
TEL7 02A0R 963 915
TELC 0116R 527 740 1042
TELU 021DR 823 819
TELUS 0215R 815 1105 1306
TEST 004AR 207 208
TIME 03D8R 1287 1275 1289 1383
TIMF 00FCR 513 238 372 430 903 1064 1198
TLC 0114R 525 704 1290
TLTIM 0436R 1376 1444
TLTM 039FR 1222 1179
TMCHK 0265R 901 627 1514
TMOUT 03D8R 1289 1274 1381 1385
TOCNT 013AR 585 242 1224 1226
TOIND 0139R 584 241 1178 1223 1422
TYPE 011FR 536 357 690 753 825 846 1145
UPDAT 0292R 948 943 960
USERR 0090R 312 212 820 878 1134
VALID 041CR 1352 1320 1464
WD17 0138R 583 332 337 377 381 884 889
WDCNT 0122R 552 217 229 436 978 1357
WTBUF 0104R 499 710 722 952
WTCHK 0146R 598 670
WTCL 01A5R 706 691 697 703 705 965 1177
WTDLE 01D6R 750 754 1220
WTF 00FAR 512 236 370 428 675 1062 1196
WTIDL 03DCR 1292 678 1229 1521
WTINQ 0108R 503 755 1205
WTLRC 02D6R 1013 989 1001
WTPAD 01DFR 758 1006
WTSEQ 0148R 600 1125
WTSOR 02D4R 1011 984 1215
WTTL 01A3R 704 976 1000
XACK 0118R 529 263 1190 1213 1267 1408
XCL 02A3R 965 969 1018 1023
XEOI 0121R 551 432 696 699 746 749 918 1017 1201 1233 1310 1400
XEOIQ 01D1R 746 737 1022 1202
XEOT 0134R 577 444 700 715 718 799 916 1047 1054 1110 1182 1302
XEOTQ 01AER 715 689
XERR 012ER 571 246 1151 1189 1203 1266 1327 1328 1342 1413 1452
XINQ 0131R 574 359 837 920 1074 1094 1121 1157
XMIT 00D1R 423 220
XMITC 0129R 563 835 1056
XMITI 022DR 838 801 812 821 851 955 1463
XMITR 0098R 454 425
XMITT 00F1R 456 429
XMITW 00F0R 455 427
XMR 02E0R 1030 322
XMR1 02E5R 1034 1168
XMT 0365R 1165 456 1030
XMTTO 0144R 596 1167
XMW 026CR 914 455
XPAD 014AR 602 672 1518 1523
XR1 001FR 151 106
XR2 04AFR 1506 1480
XR2B 0021R 152 139
XRLRC 0135R 578 924 946 994 1323 1330 1374
XSOR 0133R 576 438 922 977 1096
XTEL 012FR 572 447 701 736 739 816 914 1124 1180
XTELQ 01C6R 736 716
Z 0434R 1375 1332 1378
ZILCH 04BER 1515 1512