ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:11 2020
Source File: \w1scat3.asm
SCAT3 PROLOGUE
2 | *************************************************** W1I00020
3 | * TITLE - SCAT3 * W1I00030
4 | * STATUS - CHANGE LEVEL 9 * W1I00040
5 | * FUNCTION/OPERATION - SCAT3 CAN PERFORM THE * W1I00050
6 | * FOLLOWING BINARY SYNCHRONOUS FUNCTIONS IN A * W1I00060
7 | * MULTI-POINT ENVIRONMENT * W1I00070
8 | * 1. TEST - SCAT3 TESTS A PROGRAMMED DEVICE RTN. * W1I00080
9 | * BUSY INDICATOR .RTBSY. WHEN .RTBSY. * W1I00090
10 | * IS ON, SCAT3 HAS NOT YET COMPLETED * W1I00100
11 | * THE PREVIOUS OPERATION. * W1I00110
12 | * 2. MONITOR - MONITORS THE LINE FOR THE GIVEN * W1I00120
13 | * POLLING ADDRESS AND SELECTION ADDRESS* W1I00130
14 | * AND TRANSMITS THE APPROPRIATE * W1I00140
15 | * NEGATIVE REPLY -NAK OR EOT-. * W1I00150
16 | * 3. ALARM - SCAT3 TURNS ON OR OFF THE AUDIBLE * W1I00160
17 | * ALARM DEPENDING UPON THE VALUE OF * W1I00170
18 | * DIGIT 3 OF THE CONTROL PARAMETER, * W1I00180
19 | * ZERO - ON. * W1I00190
20 | * 4. CLOSE - SCAT3 ENDS ALL S.C.A. OPERATIONS AND* W1I00200
21 | * RESETS SOME PROGRAM INDICATORS TO * W1I00210
22 | * THEIR INITIAL CONDITION. * W1I00220
23 | * 5. RECEIVE INITIAL - SCAT3 MONITORS THE LINE * W1I00230
24 | * FOR THE GIVEN SELECTION ADDRESS * W1I00240
25 | * FOLLOWED BY ENQ, TRANSMITS ACKO, AND * W1I00250
26 | * RECEIVES THE MESSAGE. * W1I00260
27 | * 6. RECEIVE CONTINUE - SCAT3 TRANSMITS THE * W1I00270
28 | * CORRECT POSITIVE ACKNOWLEDGEMENT * W1I00280
29 | * (ACK0 OR ACK1) FOR THE CURRENT * W1I00290
30 | * MESSAGE AND RECEIVES THE NEXT MESSAGE* W1I00300
31 | * 7. RECEIVE REPEAT - SCAT3 TRANSMITS NAK FOR THE* W1I00310
32 | * CURRENT MESSAGE AND RECEIVES THE NEXT* W1I00320
33 | * MESSAGE. * W1I00330
34 | * 8. TRANSMIT INITIAL BLOCK/TEXT - SCAT3 MONITORS* W1I00340
35 | * THE LINE FOR THE GIVEN POLLING * W1I00350
36 | * ADDRESS FOLLOWED BY ENQ, TRANSMITS * W1I00360
37 | * MESSAGE, TRANSMITS CRC-16, AND * W1I00370
38 | * RECEIVES ACK1. * W1I00380
39 | * 9. TRANSMIT CONTINUE BLOCK/TEXT - SCAT3 * W1I00390
40 | * TRANSMITS THE MESSAGE, TRANSMITS THE * W1I00400
41 | * CRC-16, AND RECEIVES ACKNOWLEDGEMENT.* W1I00410
42 | * 10. TRANSMIT INITIAL/CONTINUE TRANSPARENT * W1I00420
43 | * BLOCK/TEXT - SAME FUNCTION AS * W1I00430
44 | * NON-TRANSPARENT, EXCEPT THAT SCAT3 * W1I00440
45 | * SUPPLIES THE END CHARACTERS, * W1I00450
46 | * DLE ETB/DLE ETX. * W1I00460
47 | * 11. TRANSMIT EOT - SCAT3 TRANSMITS EOT * W1I00470
48 | * AND RETURNS TO THE MONITORING OPER. * W1I00480
49 | * 12. ERROR STATISTICS - SCAT3 MAINTAINS AN 2-4* W1I00490
50 | * 9-WORD LOG OF ERROR STATISTICS. 2-4* W1I00500
51 | * REFER TO SRL FOR COMPLETE 2-4* W1I00510
52 | * DESCRIPTION FORM C26-3706. 2-4* W1I00520
53 | * 13. LOGGING - SCAT3 PROVIDES THE POSSIBILITY2-4* W1I00530
54 | * FOR A USER-WRITTEN PROGRAM TO LOG 2-4* W1I00540
55 | * ALL CHARACTERS RECEIVED OR TRANS- 2-4* W1I00550
56 | * MITTED,TIMEOUTS AND FUNCTION CODE.2-4* W1I00560
57 | * REFER TO SRL FOR COMPLETE 2-4* W1I00570
58 | * DESCRIPTION FORM C26-3706 2-4* W1I00580
59 | * ENTRY POINTS - .SCAT3. CALL ENTRANCE, LIBF SCAT3* W1I00590
60 | * .INT1. INTERRUPT ENTRANCE, BSI * W1I00600
61 | * FROM ILS01 * W1I00610
62 | * INPUT - UNPACKED, LEFT-JUSTIFIED DATA OR * W1I00620
63 | * PACKED DATA. EBCDIC IF 2-4* W1I00630
64 | * NOT TRANSPARENT. REFER TO SRL FOR A * W1I00640
65 | * COMPLETE DESCRIPTION OF THE I/O AREA,* W1I00650
66 | * FORM C26-3706. * W1I00660
67 | * OUTPUT - SAME AS INPUT * W1I00670
68 | * EXTERNAL ROUTINES - IOLOG * W1I00680
69 | * EXITS-NORMAL - .RET. RETURN TO MAINLINE AT * W1I00690
70 | * LIBF+2, LIBF+3, OR LIBF+4 DEPENDING * W1I00700
71 | * UPON THE FUNCTION * W1I00710
72 | * ERROR - WORD 41-PRE-OPERATIVE ERROR HALT, * W1I00720
73 | * .USERR. BSI TO USERS ERROR ROUTINE * W1I00730
74 | * ON ALL POST-OPERATIVE ERRORS. * W1I00740
75 | * TABLES/WORK AREAS - THE MAJORITY OF CONSTANTS * W1I00750
76 | * AND INDICATORS USED BY SCAT3 FOLLOW * W1I00760
77 | * .T. AND ARE ACCESSED IN REFERENCE * W1I00770
78 | * TO .T. THE EBCDIC CONTROL CHARACTER* W1I00780
79 | * ARE LOCATED IN TABLE .EBC. * W1I00790
80 | * ATTRIBUTES - REUSABLE * W1I00800
81 | * NOTES - SCAT3 IS AN INTERRUPT SERVICE SUBROUTINE* W1I00810
82 | * THE CALLING SEQUENCE IS AS FOLLOWS * W1I00820
83 | * LIBF SCAT3 * W1I00830
84 | * DC /XXXX CONTROL PARAMETER * W1I00840
85 | * DC IOAR I/O AREA PARAMETER* W1I00850
86 | * DC ERROR ERROR RTN. PARA. * W1I00860
87 | * REFERENCE DOCUMENTS - * W1I00870
88 | * SRL - IBM 1130 SYNCHRONOUS COMMUNICATIONS * W1I00880
89 | * ADAPTER SUBROUTINES C26-3706 * W1I00890
90 | * PLM - IBM 1130 MONITOR PROGRAMMING SYSTEM * W1I00900
91 | * PROGRAM LOGIC MANUAL * W1I00910
92 | * Y26-3620 * W1I00920
93 | * IBM 1130/1800 PROGRAMMING SYSTEM * W1I00930
94 | * PROGRAM LOGIC MANUAL * W1I00940
95 | * Y26-3752 * W1I00950
96 | *************************************************** W1I00960
**** SCAT3 - CALL PROCESSING ****
98 | LIBR W1I00980
0000 99 | 1130 ISS 08 SCAT3 1 W1I00990
100 | *************************************************** W1I01000
101 | * CALL ENTRANCE FOR BI-SYNC * W1I01010
102 | * MULTI-POINT * W1I01020
103 | *************************************************** W1I01030
0000 691A 104 | SCAT3 STX 1 XR1+1 SAVE XR1 (+0) W1I01040
0001 6580 0000 105 | LDX I1 *-* XR1 - LIBF+1 (+2) W1I01050
0003 7006 106 | MDX PROC BR TO PROCESS CALL W1I01060
107 | *************************************************** W1I01070
108 | * INTERRUPT ENTRANCE * W1I01080
109 | * THE INTERRUPT LEVEL SUBROUTINE FOR * W1I01090
110 | * LEVEL 1 WILL DO A BSI TO .INT1. WHEN* W1I01100
111 | * THERE IS AN ADAPTER INTERRUPT. * W1I01110
112 | *************************************************** W1I01120
0004 0000 113 | INT1 DC 0 (+4) W1I01130
0005 4C00 0199R 114 | BSC L INT2 BR TO PROCESS INTERRUPT W1I01140
115 | *************************************************** W1I01150
116 | * THIS PORTION OF THE SCAT3 SUBROUTINE* W1I01160
117 | * WILL PROCESS THE CALLING SEQUENCE * W1I01170
118 | *************************************************** W1I01180
0007 0000 119 | TEMP DC 0 TEMPORARY FUNCTION CODE W1I01190
0008 120 | AQ BSS E 2 FOR SAVING ACC AND EXT W1I01200
000A D8FD 121 | PROC STD AQ SAVE A,Q W1I01210
000B 280D 122 | STS STAT STATUS W1I01220
000C 6A10 123 | STX 2 XR2+1 XR2 W1I01230
000D 6600 0122R 124 | LDX L2 T T=BASE ADDRS OF CONSTANTS W1I01240
000F C100 125 | LD 1 0 CONTROL PARAMETER W1I01250
0010 180C 126 | SRA 12 FUNCTION CODE W1I01260
0011 4C20 0020R 127 | BSC L NTEST,Z BR IF NOT TEST FUNCTION W1I01270
128 | * * W1I01280
129 | **** TEST FUNCTION **** W1I01290
0013 C252 130 | LD 2 RTBSY-T ROUTINE BUSY INDICATOR W1I01300
0014 4818 131 | BSC +- SKIP IF BUSY (ON) W1I01310
0015 7101 132 | EXIT MDX 1 +1 NOT BUSY, RETURN TO LIBF+3 W1I01320
0016 7101 133 | EXIT1 MDX 1 1 BUSY, RETURNN TO LIBF+2 W1I01330
0017 C8F0 134 | LDD AQ RESTORE A,Q W1I01340
0018 6906 135 | STX 1 RET+1 SET UP EXIT BRANCH W1I01350
0019 2000 136 | STAT LDS 0 RESTORE STATUS W1I01360
001A 6500 0000 137 | XR1 LDX L1 *-* XR1 W1I01370
001C 6600 0000 138 | XR2 LDX L2 *-* XR2 W1I01380
001E 4C00 0000 139 | RET BSC L *-* RETURN TO MAINLINE OR 41 W1I01390
140 | * * W1I01400
141 | *************************************************** W1I01410
0020 8200 142 | NTEST A 2 H6FFF-T SET UP MDX TO FUNCTION W1I01420
0021 D009 143 | STO MDX1 TYPE 1-3 W1I01430
0022 9201 144 | S 2 H7007-T 2-4 W1I01440
0023 4C30 0115R 145 | BSC L ER1,Z- BR IF BAD FUNCTION CODE W1I01450
146 | * * W1I01460
0025 4C18 011CR 147 | BSC L SUPAD,+- BR IF TABLE ADDR REQ 2-4 W1I01470
0027 D0DF 148 | STO TEMP SAVE FOR USE AFTER BUSY W1I01480
0028 C100 149 | LD 1 0 PICK UP CONTROL PARAM 2-4 W1I01490
0029 035D*3587 150 | CALL CPLOG LOG CONTROL PARAMETER 2-4 W1I01500
151 | * * W1I01510
002B 70FF 152 | MDX1 MDX MDX1 MODIFIED BY FUNCTION CODE W1I01520
002C 701E 153 | MDX TEST MONITOR CODE 1 W1I01530
002D 7005 154 | MDX ALARM ALARM CODE 2 W1I01540
002E 700B 155 | MDX CLOSE CLOSE CODE 3 W1I01550
002F 4838 156 | BSC +-Z FALL THROUGH ON W1I01560
0030 4838 157 | BSC +-Z CODES 4,5,6,7 W1I01570
0031 1000 158 | NOP W1I01580
0032 7018 159 | MDX TEST 2-3 W1I01590
160 | *************************************************** W1I01600
161 | * AUDIBLE ALARM * W1I01610
162 | *************************************************** W1I01620
0033 E204 163 | ALARM AND 2 H00F0-T PARAMETER FOR ON/OFF 2-4 W1I01630
0034 4C20 0038R 164 | BSC L OFF,Z BR IF OFF REQUESTED W1I01640
0036 0A02 165 | XIO 2 ALON-T TURN ON ALARM 2-3 W1I01650
0037 70DE 166 | MDX EXIT1 BR TO RESTORE AND EXIT W1I01660
167 | * * W1I01670
0038 0A04 168 | OFF XIO 2 ALOFF-T TURN OFF ALARM 2-3 W1I01680
0039 70DC 169 | MDX EXIT1 BR TO RESTORE AND EXIT W1I01690
170 | *************************************************** W1I01700
171 | * CLOSE - END OPERATION * W1I01710
172 | *************************************************** W1I01720
003A C257 173 | CLOSE LD 2 MNBSY-T LOOP IF RTN IS BUSY 2-5 W1I01730
003B 4C20 003AR 174 | BSC L CLOSE,Z IN MONITOR MODE 2-5 W1I01740
003D 0A06 175 | XIO 2 ENDOP-T END SCA OPERATION 2-3 W1I01750
003E C269 176 | LD 2 WD17I-T IF WD 17 INDR NOT ON 2-4 W1I01760
003F 4C18 0044R 177 | BSC L *+3,+- DO NOT DECREE IOCS CTR W1I01770
0041 74FF 0011 178 | MDX L $SCAT,-1 DECREMENT IOCS CTR 2-4 W1I01780
0043 1000 179 | NOP W1I01790
0044 621B 180 | LDX 2 27 2-7 W1I01800
0045 1010 181 | SLA 16 W1I01810
0046 D600 0171R 182 | STO L2 TAB4-1 RESET INDICATORS W1I01820
0048 72FF 183 | MDX 2 -1 W1I01830
0049 70FC 184 | MDX *-4 W1I01840
004A 70CB 185 | MDX EXIT1 BR TO RESTORE AND EXIT W1I01850
186 | *************************************************** W1I01860
004B C252 187 | TEST LD 2 RTBSY-T W1I01870
004C 4C20 004BR 188 | BSC L TEST,Z LOOP IF RTN IS BUSY W1I01880
004E C257 189 | TEST1 LD 2 MNBSY-T LOOP IF RTN IS BUSY 2-5 W1I01890
004F 4C20 004ER 190 | BSC L TEST1,Z IN MONITOR MODE 2-5 W1I01900
0051 D258 191 | STO 2 TRANS-T RESET TRANS INDR 2-2 W1I01910
0052 D245 192 | STO 2 PACK-T RESET PACKED DATA INDR 2-4 W1I01920
0053 C249 193 | LD 2 D0008-T 2-6 W1I01930
0054 D247 194 | STO 2 LGS-T SET LEAD GRAPH COUNT 2-6 W1I01940
0055 0A06 195 | XIO 2 ENDOP-T END SCA OPERATION 2-5 W1I01950
196 | * * W1I01960
0056 C0B0 197 | LD TEMP W1I01970
0057 8202 198 | A 2 H0002-T SET UP TBTX AND FCODE W1I01980
0058 824E 199 | A 2 H0001-T 2-4 W1I01990
0059 D239 200 | STO 2 TBTX-T ZERO-BLOCK, ONE-TEXT W1I02000
005A 4C10 0062R 201 | BSC L XCODE,- BR IF TRANSMIT FUNCTION W1I02010
005C D263 202 | STO 2 FCODE-T FCODE NEGATIVE FOR RECEIVE W1I02020
005D 824E 203 | A 2 H0001-T 2-3 W1I02030
005E 4C18 0069R 204 | BSC L REC1,+- BR IF RECEIVE FUNCTION W1I02040
205 | * * W1I02050
0060 1010 206 | SLA 16 FOR MONITOR FUNCTION, W1I02060
0061 7006 207 | MDX REC GO SET FCODE ZERO W1I02070
208 | * * W1I02080
0062 1801 209 | XCODE SRA 1 W1I02090
0063 4C18 0067R 210 | BSC L XBLTX,+- BR IF XMIT BLOCK/TEXT W1I02100
0065 100F 211 | SLA 15 W1I02110
0066 D239 212 | STO 2 TBTX-T TBTX NEGATIVE FOR EOT W1I02120
0067 C0FA 213 | XBLTX LD XCODE MAKE ACC POSITIVE W1I02130
0068 D263 214 | REC STO 2 FCODE-T NEG-RCV, ZERO- MONITOR, W1I02140
215 | * POSITIVE- TRANSMIT * W1I02150
216 | * * W1I02160
0069 0A08 217 | REC1 XIO 2 LOAD-T SYN INTO SYNC/IDLE REG W1I02170
006A C249 218 | LD 2 D0008-T W1I02180
006B D23A 219 | STO 2 RETRY-T SET READY COUNTER TO 8 W1I02190
006C 1010 220 | SLA 16 TURN OFF W1I02200
006D D25C 221 | STO 2 LSDLE-T LAST CHAR= DLE INDICATOR W1I02210
006E C263 222 | LD 2 FCODE-T W1I02220
006F 4C18 00FFR 223 | BSC L MONCL,+- BR IF MONITOR W1I02230
224 | * * W1I02240
0071 C101 225 | LD 1 1 W1I02250
0072 D23B 226 | STO 2 IOAR-T SAVE I/O AREA ADDRESS W1I02260
0073 C102 227 | LD 1 2 W1I02270
0074 D20C 228 | STO 2 USERR-T SAVE ERROR RTN. ADDRESS W1I02280
229 | * * W1I02290
0075 C263 230 | LD 2 FCODE-T W1I02300
0076 4C08 007BR 231 | BSC L NOXM1,+ BR IF NOT TRANSMIT W1I02310
232 | * W1I02320
0078 C239 233 | LD 2 TBTX-T W1I02330
0079 4C28 00FCR 234 | BSC L XEND,+Z BR IF TRANSMIT EOT W1I02340
235 | * W1I02350
007B C100 236 | NOXM1 LD 1 0 SAVE SUB-FUNCTION CODE W1I02360
007C E206 237 | AND 2 H0F00-T NEG - INITIAL W1I02370
007D 922C 238 | S 2 H0300-T 2-4 W1I02380
007E 4C28 008DR 239 | BSC L D2OK1,Z+ BR IF CODE LESS THAN 3 2-4 W1I02390
240 | * * W1I02400
0080 4C08 008FR 241 | BSC L D2OK2,+ BR IF CODE EQUAL TO 3 2-4 W1I02410
0082 920E 242 | S 2 H0100-T 2-4 W1I02420
0083 4C08 0093R 243 | BSC L SETPK,+ BR IF CODE EQUAL TO 4 2-4 W1I02430
0085 920E 244 | S 2 H0100-T 2-4 W1I02440
0086 4C20 0115R 245 | BSC L ER1,Z BR IF CODE GT 5 2-4 W1I02450
0088 C263 246 | LD 2 FCODE-T 2-4 W1I02460
0089 4C10 0115R 247 | BSC L ER1,- BR IF FUNC NOT RECEIVE 2-4 W1I02470
008B C229 248 | LD 2 H0200-T SET CODE TO READ REPEAT2-4 W1I02480
008C 7007 249 | MDX SETPK+1 2-4 W1I02490
250 | * * W1I02500
008D 822C 251 | D2OK1 A 2 H0300-T ADJUST CODE 2-4 W1I02510
008E 7006 252 | MDX D2OK3 2-4 W1I02520
008F C000 253 | D2OK2 LD * SET PACKED DATA 2-4 W1I02530
0090 D245 254 | STO 2 PACK-T INDR 2-4 W1I02540
0091 1010 255 | SLA 16 SET CODE TO INITIAL 2-4 W1I02550
0092 7002 256 | MDX D2OK3 2-4 W1I02560
0093 820E 257 | SETPK A 2 H0100-T ADJUST CODE 2-4 W1I02570
0094 D245 258 | STO 2 PACK-T SET PACKED DATA INDR 2-4 W1I02580
259 | * * W1I02590
0095 920E 260 | D2OK3 S 2 H0100-T ZERO - CONTINUE 2-4 W1I02600
0096 D23D 261 | STO 2 SUBF-T POS - REPEAT 2-4 W1I02610
0097 4C08 009FR 262 | BSC L D2OK,+ BR IF CODE IS ZERO OR ONE W1I02620
0099 920E 263 | S 2 H0100-T W1I02630
009A 4C20 0115R 264 | BSC L ER1,Z BR IF CODE GREATER THAN 2 W1I02640
009C C263 265 | LD 2 FCODE-T W1I02650
009D 4C10 0115R 266 | BSC L ER1,- BR IF FUNCTION NOT RECEIVE W1I02660
267 | * * W1I02670
268 | *************************************************** W1I02680
269 | * ALL EXCEPT MONITOR AND TRANSMIT EOT * W1I02690
270 | *************************************************** W1I02700
009F C480 015DR 271 | D2OK LD I IOAR W1I02710
00A1 4C08 0115R 272 | BSC L ER1,+ BR IF WORD COUNT INVALID W1I02720
00A3 D23C 273 | STO 2 WDCNT-T SAVE WORD COUNT W1I02730
00A4 D261 274 | STO 2 FIRST-T TURN ON FIRST CHAR. IND. W1I02740
00A5 1010 275 | SLA 16 2-4 W1I02750
00A6 D23F 276 | STO 2 COUNT-T CLEAR COUNT FIELD 2-4 W1I02760
277 | * * W1I02770
00A7 C23D 278 | LD 2 SUBF-T W1I02780
00A8 4C10 00C9R 279 | BSC L NOT1,- BR IF NOT INITIAL W1I02790
280 | * * W1I02800
281 | *************************************************** W1I02810
282 | * INITIAL * W1I02820
283 | *************************************************** W1I02830
00AA CA22 284 | LDD 2 ACKS-T INITIALIZE ALTERNATING W1I02840
00AB DA0A 285 | STD 2 ACK-T ACKNOWLEDGEMENT TO ACK0 W1I02850
00AC D262 286 | STO 2 MONIT-T TURN ON MONITOR IND. W1I02860
287 | * * W1I02870
00AD C263 288 | LD 2 FCODE-T W1I02880
00AE 4C28 00B4R 289 | BSC L SETMN,+Z BR IF RECEIVE W1I02890
290 | * W1I02900
00B0 CA0A 291 | LDD 2 ACK-T FIRST ACK TO BE W1I02910
00B1 18D0 292 | RTE 16 RECEIVED IS ACK1 W1I02920
00B2 DA0A 293 | STD 2 ACK-T TO FIRST RECORD W1I02930
00B3 7018 294 | MDX NTRCV W1I02940
295 | *************************************************** W1I02950
296 | * RECEIVE INITIAL * W1I02960
297 | *************************************************** W1I02970
00B4 C000 298 | SETMN LD * W1I02980
00B5 D252 299 | STO 2 RTBSY-T TURN ON ROUTINE BUSY IND. W1I02990
00B6 7058 300 | MDX STMON BR TO START MONITORING W1I03000
301 | *************************************************** W1I03010
302 | * EXIT * W1I03020
303 | *************************************************** W1I03030
00B7 C000 304 | EXT LD * W1I03040
00B8 D252 305 | STO 2 RTBSY-T TURN ON ROUTINE BUSY IND. W1I03050
00B9 C269 306 | EXTP2 LD 2 WD17I-T IF WORD 17 INDR IS ON 2-4 W1I03060
00BA 4C20 00C0R 307 | BSC L NO50,Z DO NOT INCRE IOCS CNT W1I03070
00BC C000 308 | LD * W1I03080
00BD D269 309 | STO 2 WD17I-T TURN ON WD 17 INDR 2-4 W1I03090
00BE 7401 0011 310 | MDX L $SCAT,+1 INCREMENT IOCS CTR 2-4 W1I03100
0011 311 | $SCAT EQU 17 IOCS CTR IS IN WORD 17 2-4 W1I03110
00C0 C263 312 | NO50 LD 2 FCODE-T W1I03120
00C1 4C08 00C6R 313 | BSC L NOXM2,+ BR IF NOT TRANSMIT W1I03130
314 | * W1I03140
00C3 C239 315 | LD 2 TBTX-T W1I03150
00C4 4C28 0016R 316 | BSC L EXIT+1,+Z BR IF TRANSMIT EOT W1I03160
317 | * W1I03170
00C6 7103 318 | NOXM2 MDX 1 3 SET EXIT TO LIBF+4 W1I03180
00C7 4C00 0017R 319 | BSC L EXIT+2 BR TO RESTORE AND EXIT 2-3 W1I03190
320 | *************************************************** W1I03200
321 | * NOT INITIAL * W1I03210
322 | *************************************************** W1I03220
00C9 C263 323 | NOT1 LD 2 FCODE-T W1I03230
00CA 4C08 00F5R 324 | BSC L RCV,+ BR IF FUNCITON IS RECEIVE W1I03240
325 | *************************************************** W1I03250
326 | * TRANSMIT INITIAL AND CONTINUE * W1I03260
327 | * CHECK IF SOH,STX OR DLE STX 2-3* W1I03270
328 | * START CHARS, OTHERWISE 2-3* W1I03280
329 | * GO TO PRE-OP ERROR 2-3* W1I03290
330 | *************************************************** W1I03300
00CC D260 331 | NTRCV STO 2 XMESS-T TURN ON XMIT MESSAGE IND. W1I03310
00CD C23B 332 | LD 2 IOAR-T 2-3 W1I03320
00CE 824E 333 | A 2 H0001-T 2-3 W1I03330
00CF D240 334 | STO 2 POINT-T 2-3 W1I03340
00D0 C480 0162R 335 | LD I POINT LOAD START CHAR 2-4 W1I03350
00D2 E22E 336 | AND 2 HFF00-T 2-4 W1I03360
00D3 F228 337 | EOR 2 SOH-T 2-3 W1I03370
00D4 4C18 00EDR 338 | BSC L TMT,+- BR IF SOH 2-3 W1I03380
339 | * * W1I03390
00D6 F234 340 | EOR 2 DLSOH-T 2-3 W1I03400
00D7 4C18 00E2R 341 | BSC L TMT3,+- BR IF DLE 2-4 W1I03410
00D9 C480 0162R 342 | TMT1 LD I POINT 2-4 W1I03420
00DB E22E 343 | AND 2 HFF00-T 2-4 W1I03430
00DC F229 344 | TMT2 EOR 2 STX-T 2-4 W1I03440
00DD 4C18 00EDR 345 | BSC L TMT,+- BR IF STX 2-3 W1I03450
00DF C248 346 | LD 2 H8001-T W1I03458
00E0 824E 347 | A 2 H0001-T DISPLAY ERROR /8002 2-7 W1I03459
00E1 7034 348 | MDX ER11 GO TO PREOPRATIVE ERR 2-3 W1I03460
349 | * * W1I03470
00E2 C245 350 | TMT3 LD 2 PACK-T 2-4 W1I03480
00E3 4C20 00E9R 351 | BSC L TMT4,Z BR IF PACKED DATA 2-4 W1I03490
00E5 C240 352 | LD 2 POINT-T 2-4 W1I03500
00E6 824E 353 | A 2 H0001-T 2-3 W1I03510
00E7 D240 354 | STO 2 POINT-T 2-3 W1I03520
00E8 70F0 355 | MDX TMT1 2-3 W1I03530
00E9 C480 0162R 356 | TMT4 LD I POINT 2-4 W1I03540
00EB 1008 357 | SLA 8 2-4 W1I03550
00EC 70EF 358 | MDX TMT2 2-4 W1I03560
359 | * * W1I03570
00ED D25D 360 | TMT STO 2 SYN2-T TURN OFF SYN INSERT INDR W1I03580
00EE C100 361 | LD 1 0 W1I03590
00EF 100C 362 | SLA 12 DIGIT 4 - ZERO-NORMAL W1I03600
00F0 D23E 363 | STO 2 TEXTM-T NON-ZERO -TRANSPARENT W1I03610
00F1 C23D 364 | LD 2 SUBF-T W1I03620
00F2 4C28 00B4R 365 | BSC L SETMN,+Z BR IF INITIAL, SET MONITOR W1I03630
366 | * W1I03640
00F4 7003 367 | MDX SYNC1 BR TO BEGIN I/O OPERATION W1I03650
368 | *************************************************** W1I03660
369 | * RECEIVE CONTINUE OR REPEAT * W1I03670
370 | *************************************************** W1I03680
00F5 C069 371 | RCV LD SUBF SUB-FUNCTION CODE W1I03690
00F6 4830 372 | BSC -Z POSITIVE MEANS REPEAT W1I03700
00F7 D255 373 | STO 2 XNAK-T TURN ON XMIT NAK IND. W1I03710
374 | *************************************************** W1I03720
375 | * ALL EXCEPT MONITOR, RECEIVE INITIAL,* W1I03730
376 | * AND TRANSMIT INITIAL * W1I03740
377 | *************************************************** W1I03750
00F8 083B 378 | SYNC1 XIO SYNC WRITE WITH TIMEOUTS W1I03760
00F9 C048 379 | LD H0005 SET UP TO TRANSMIT 5 2-3 W1I03770
00FA D069 380 | STO SYN5 SYNS FOR PADDING 2-3 W1I03780
00FB 70BB 381 | MDX EXT BR TO SET RTN. BUSY ON W1I03790
382 | * * W1I03800
383 | *************************************************** W1I03810
384 | * TRANSMIT EOT * W1I03820
385 | *************************************************** W1I03830
00FC 1010 386 | XEND SLA 16 2-6 W1I03840
00FD D26A 387 | STO 2 RVIRD-T RESET RVI INDR 2-6 W1I03850
00FE 70F9 388 | MDX SYNC1 BR TO BEGIN I/O OPERATION W1I03860
389 | *************************************************** W1I03870
390 | * MONITOR * W1I03880
391 | *************************************************** W1I03890
00FF C580 0001 392 | MONCL LD I1 1 W1I03900
0101 E04E 393 | AND HFF00 W1I03910
0102 D062 394 | STO POLLA POLLING ADDRESS W1I03920
0103 C101 395 | LD 1 1 W1I03930
0104 824E 396 | A 2 H0001-T 2-3 W1I03940
0105 D400 063FR 397 | STO L POLLI ADDRS FOR POLLING IND. W1I03950
398 | * * W1I03960
0107 C580 0002 399 | LD I1 2 W1I03970
0109 E046 400 | AND HFF00 W1I03980
010A D05B 401 | STO SELA SELECTION ADDRESS W1I03990
010B C102 402 | LD 1 2 W1I04000
010C 824E 403 | A 2 H0001-T 2-3 W1I04010
010D D400 0633R 404 | STO L SELI ADDRS FOR SELECTION IND. W1I04020
405 | * * W1I04030
010F 10A0 406 | STMON SLT 32 2-7 W1I04040
0110 D865 407 | STD XEOT TURN OFF XMIT EOT INDR 2-7 W1I04050
408 | * XNAK TURN OFF XMIT NAK INDR 2-7 W1I04060
0111 D866 409 | STD CMODE RESET CONTROL MODE IND 2-7 W1I04070
410 | * MNBSY RESET MONITOR BUSY IND 2-7 W1I04080
0112 081D 411 | XIO STRED START READ W1I04090
0113 082E 412 | XIO RETIM RESET TIMERS W1I04100
0114 70A4 413 | MDX EXT+2 EXIT WITHOUT RTN BUSY ON W1I04110
414 | *************************************************** W1I04120
415 | * PRE-OPERATIVE ERROR * W1I04130
416 | *************************************************** W1I04140
0115 C054 417 | ER1 LD H8001 ERROR IN CALLING SEQUENCE W1I04150
0116 71FF 418 | ER11 MDX 1 -1 W1I04160
0117 6D00 0028 419 | STX L1 $PRET ADDR OF LIBF INTO 40 W1I04170
0119 6129 420 | LDX 1 $PRET+1 SYSTEM HALT IS AT 41 W1I04180
0028 421 | $PRET EQU 40 PRE-OPERATIVE ERROR TRAP W1I04190
011A 4C00 0018R 422 | BSC L STAT-1 BR TO RESTORE AND EXIT W1I04200
423 | *************************************************** W1I04210
011C C070 424 | SUPAD LD TABCT GET STAT. TABLE ADDR 2-4 W1I04220
011D D580 0001 425 | STO I1 +1 PUT IN LOC PER CALL 2-4 W1I04230
011F 4C00 0015R 426 | BSC L EXIT 2-4 W1I04240
SCAT3- CALL PROCESSING SUMMARY
428 | *************************************************** W1I04260
429 | * * W1I04270
430 | * AT THE COMPLETION OF CALL PROCESSING, THE * W1I04280
431 | * FOLLOWING INDICATORS HAVE BEEN SET FOR RECEIVE,* W1I04290
432 | * TRANSMIT T/B, TRANSMIT EOT, MONITOR * W1I04300
433 | * .FCODE. - NEGATIVE/RECEIVE * W1I04310
434 | * - ZERO/MONITOR * W1I04320
435 | * - POSITIVE/TRANSMIT * W1I04330
436 | * .RETRY. - 8 * W1I04340
437 | * SYNC REG- SYN * W1I04350
438 | * .LSDLE. - ZERO OFF * W1I04360
439 | * FOR ALL EXCEPT MONITOR * W1I04370
440 | * .IOAR. - I/O AREA ADDRS * W1I04380
441 | * .USERR. - USER ERROR RTN ADDRS * W1I04390
442 | * .SUBF. - NEGATIVE/INITIAL * W1I04400
443 | * - ZERO/CONTINUE * W1I04410
444 | * - POSITIVE/REPEAT * W1I04420
445 | * .RTBSY. - NON-ZERO ON * W1I04430
446 | * FOR ALL EXCEPT TRANSMIT EOT AND MONITOR * W1I04440
447 | * .WDCNT. - AS SPECIFIED BY USER * W1I04450
448 | * .FIRST. - POSITIVE ON * W1I04460
449 | * FOR ALL INITIAL * W1I04470
450 | * .ACK. - ACK0/ACK1 * W1I04480
451 | * .XMENQ. - NON-ZERO ON * W1I04490
452 | * FOR TRANSMIT INITIAL/CONTINUE/EOT * W1I04500
453 | * .TBTX. - ZERO/BLOCK * W1I04510
454 | * - POSITIVE/TEXT * W1I04520
455 | * - NEGATIVE/EOT * W1I04530
456 | * .TEXTM. - ZERO/NORMAL * W1I04540
457 | * - NON-ZERO/TRANSPARENT * W1I04550
458 | * .XMESS. - NON-ZERO ON * W1I04560
459 | * .SYN2. - ZERO OFF * W1I04570
460 | * FOR RECEIVE INITIAL, TRANSMIT INITIAL * W1I04580
461 | * .MONIT. - NON-ZERO ON * W1I04590
462 | * .XEOT. - ZERO OFF * W1I04600
463 | * .XNAK. - ZERO OFF * W1I04610
464 | * .CMODE. - ZERO OFF * W1I04620
465 | * RECEIVE REPEAT * W1I04630
466 | * .XNAK. - POSITIVE ON * W1I04640
467 | * TRANSMIT EOT * W1I04650
468 | * .ACK. - ACK0/ACK1 * W1I04660
469 | * MONITOR * W1I04670
470 | * .POLLA. - GIVEN POLLING ADDRS. * W1I04680
471 | * .POLLI. - ADDRS FOR POLLING IND* W1I04690
472 | * .SELA. - GIVEN SELECTION ADDRS* W1I04700
473 | * .SELI. - ADDRS FOR SELECT. IND* W1I04710
474 | * .XEOT. - ZERO OFF * W1I04720
475 | * .XNAK. - ZERO OFF * W1I04730
476 | * .CMODE. - ZERO OFF * W1I04740
477 | * * W1I04750
478 | * AN XIO START READ IS ISSUED FOR MONITOR, * W1I04760
479 | * RECEIVE INITIAL, AND TRANSMIT INITIAL BEFORE* W1I04770
480 | * RETURN TO LIBF+4 * W1I04780
481 | * * W1I04790
482 | * AN XIO SYNC IS ISSUED FOR RECEIVE CONTINUE/ * W1I04800
483 | * REPEAT, TRANSMIT CONTINUE, AND TRANSMIT EOT * W1I04810
484 | * BEFORE RETURN TO LIBF+4 * W1I04820
485 | * * W1I04830
486 | *************************************************** W1I04840
488 | *************************************************** W1I04860
489 | * CONSTANTS, INDICATORS, TEMPORARY STORAGE * W1I04870
490 | *************************************************** W1I04880
0122 491 | T BSS E 0 START OF IND, CONSTANTS W1I04890
0122 6FFF 492 | H6FFF DC /6FFF FOR MODIFYING MDX W1I04900
0123 7007 493 | H7007 DC /7007 MAXIMUM MDX 2-4 W1I04910
0124 0002 494 | ALON DC /0002 TURN ON ALARM W1I04920
0125 5102 495 | DC /5102 IOCC W1I04930
0124R 496 | H0002 EQU ALON CONSTANT 2 W1I04940
0126 00F0 497 | ALOFF DC /00F0 TURN OFF ALARM W1I04950
0127 5101 498 | DC /5101 IOCC W1I04960
0126R 499 | H00F0 EQU ALOFF TO ISOLATE DIGIT 3 W1I04970
0128 0F00 500 | ENDOP DC /0F00 END OPERATION W1I04980
0129 5404 501 | DC /5404 IOCC W1I04990
0128R 502 | H0F00 EQU ENDOP TO ISOLATE DIGIT 2 W1I05000
012A 0146R 503 | LOAD DC SYN LOAD SYN INTO SYNC REG W1I05010
012B 5104 504 | DC /5104 IOCC W1I05020
012C 0000 505 | ACK DC 0 CURRENT ACK W1I05030
012D 0000 506 | DC 0 NEXT ACK W1I05040
012E 0000 507 | SENSR DC 0 SENSE AND RESET DSW W1I05050
012F 5701 508 | DC /5701 IOCC W1I05060
012ER 509 | USERR EQU SENSR USER ERROR RTN. ADDRESS W1I05070
0130 0100 510 | STRED DC /0100 START READ W1I05080
0131 5600 511 | DC /5600 IOCC W1I05090
0130R 512 | H0100 EQU STRED CONSTANT /0100 W1I05100
0132 0159R 513 | READ DC BUF READ W1I05110
0133 5200 514 | DC /5200 IOCC W1I05120
0134 FFFF 515 | SYNC DC /FFFF START WRITE WITH TIMEOUT W1I05130
0135 5410 516 | DC /5410 IOCC W1I05140
0136 014FR 517 | WTEOT DC EOT WRITE EOT CHARACTER W1I05150
0137 5100 518 | DC /5100 IOCC W1I05160
0138 0146R 519 | WTSYN DC SYN WRITE SYN CHARACTER W1I05170
0139 5100 520 | DC /5100 IOCC W1I05180
013A 0147R 521 | WTDLE DC DLE WRITE DLE CHARACTER W1I05190
013B 5100 522 | DC /5100 IOCC W1I05200
013C 0147R 523 | LDDLE DC DLE LOAD DLE INTO SYNC REG W1I05210
013D 5104 524 | DC /5104 IOCC W1I05220
013E 0159R 525 | WTBUF DC BUF WRITE CHARACTER W1I05230
013F 5100 526 | DC /5100 IOCC W1I05240
0140 0A00 527 | TIMER DC /0A00 START/STOP TIMER W1I05250
0141 5420 528 | DC /5420 IOCC W1I05260
0142 0005 529 | RETIM DC +5 RESET TIMERS 2-3 W1I05270
0143 5702 530 | DC /5702 IOCC W1I05280
0142R 531 | H0005 EQU RETIM 5 FOR PRECEEDING SYNS 2-3 W1I05290
532 | *************************************************** W1I05300
0144 533 | EBC BSS 0 EBCDIC CONTROL CHARACTERS W1I05310
0144 7000 534 | ACKS DC /7000 INITIALIZED ACK0 W1I05320
0145 6100 535 | DC /6100 ACKNOWLEDGEMENTS ACK1 W1I05330
0146 3200 536 | SYN DC /3200 SYNCHRONOUS IDLE W1I05340
0147 1000 537 | DLE DC /1000 DATA LINK ESCAPE W1I05350
0148 3D00 538 | NAK DC /3D00 NEGATIVE ACKNOWLEDGEMENT W1I05360
0149 2D00 539 | ENQ DC /2D00 ENQUIRY CHARACTER W1I05370
014A 0100 540 | SOH DC /0100 START OF HEADING W1I05380
014B 0200 541 | STX DC /0200 START OF TEXT W1I05390
014C 1F00 542 | ITB DC /1F00 INTERMEDIATE BLOCK CHECK W1I05400
014D 2600 543 | ETB DC /2600 END OF BLOCK W1I05410
014E 0300 544 | ETX DC /0300 END OF TEXT W1I05420
014F 3700 545 | EOT DC /3700 END OF TRANSMISSION W1I05430
0150 FF00 546 | PAD DC /FF00 PAD CHARACTER 2-3 W1I05440
0151 6B00 547 | WACK DC /6B00 WACK 2-6 W1I05450
0150R 548 | HFF00 EQU PAD TO ISOLATE 1 CHARACTER 2-3 W1I05460
0147R 549 | H1000 EQU DLE I/O AREA OVERFLOW CODE 2-3 W1I05470
014BR 550 | H0200 EQU STX INVAL CONTROL SEQ ERR 2-3 W1I05480
014ER 551 | H0300 EQU ETX CONSTANT /0300 2-4 W1I05490
0152 FFFE 552 | RVICD DC /FFFE -2 FOR I/O AREA IF RVI 2-6 W1I05500
553 | *************************************************** W1I05510
0153 2200 554 | SYNDL DC /2200 SYN AND DLE EOR W1I05520
0154 2500 555 | ETBTX DC /2500 ETB AND ETX EOR W1I05530
0155 1A00 556 | EQET DC /1A00 ENQ AND EOT EOR W1I05540
0156 1100 557 | DLSOH DC /1100 DLE AND SOH EOR W1I05550
0157 2F00 558 | STXEQ DC /2F00 STX AND ENQ EOR W1I05560
0158 1700 559 | WARVI DC /1700 WACK AND RVI EOR 2-6 W1I05570
014ER 560 | DLSHX EQU ETX DLE, SOH AND STX EOR 2-3 W1I05580
0149R 561 | DLNAK EQU ENQ DLE AND NAK EOR 2-3 W1I05590
0159 0000 562 | BUF DC 0 BUFFER FOR TRANSMIT/RCV W1I05600
015A 0000 563 | DSW DC 0 SAVED DEVICE STATUS WORD W1I05610
015B 0000 564 | TBTX DC 0 BLOCK OR TEXT W1I05620
015C 0000 565 | RETRY DC 0 RETRY COUNTER W1I05630
015D 0000 566 | IOAR DC 0 I/O AREA ADDRESS W1I05640
015E 0000 567 | WDCNT DC 0 WORD COUNT W1I05650
015F 0000 568 | SUBF DC 0 INITIAL, CONTINUE, REPEAT W1I05660
0160 0000 569 | TEXTM DC 0 NORMAL OR TRANSPARENT W1I05670
0161 0000 570 | COUNT DC 0 COUNTER FOR WORDS W1I05680
0162 0000 571 | POINT DC 0 I/O AREA POINTER W1I05690
0163 0000 572 | BCCR DC 0 BCC RECEIVED W1I05700
0164 0000 573 | SYN5 DC 0 NUMBER OF SYNS TO WRITE2-3 W1I05710
0165 0000 574 | POLLA DC 0 POLLING ADDRESS XX00 W1I05720
0166 0000 575 | SELA DC 0 SELECTION ADDRESS XX00 W1I05730
0167 0000 576 | PACK DC 0 PACKED DATA INDR 2-4 W1I05740
0168 0000 577 | NXTPD DC 0 PAD CHAR INDR 2-3 W1I05750
0169 0000 578 | LGS DC 0 LEAD GRAPHICS COUNT 2-6 W1I05760
016A 8001 579 | H8001 DC /8001 ERR CODE FOR BAD CALL SEQ. W1I05780
016B 0008 580 | D0008 DC +8 CONSTANT +8 W1I05790
016C 0007 581 | H0007 DC 7 CONSTANT +7 2-6 W1I05800
016D 0080 582 | H0080 DC /0080 WACK ERROR CODE W1I05805
016E 0400 583 | H0400 DC /0400 NAK ERROR CODE 2-6 W1I05806
016F 0800 584 | H0800 DC /0800 BCC ERROR CODE W1I05810
0170 0001 585 | H0001 DC /0001 CONSTANT 1 FOR INCREMENTS W1I05820
0171 2000 586 | H2000 DC /2000 TIMEOUT ERROR CODE FOR RCV W1I05830
587 | *************************************************** W1I05840
0172 588 | TAB4 BSS E 0 START OF IND CLEARED BY CLOSE W1I05850
0172 0000 589 | TOIND DC 0 TIMEOUT INDR W1I05860
0173 0000 590 | WRACK DC 0 WRONG ACK INDR W1I05870
591 | * W1I05875
0174 0000 592 | RTBSY DC 0 ROUTINE BUSY INDR W1I05880
0175 0000 593 | XMENQ DC 0 XMIT/MON ENQ INDR W1I05890
594 | * W1I05895
0176 0000 595 | XEOT DC 0 XMIT EOT INDR W1I05900
0177 0000 596 | XNAK DC 0 XMIT NAK INDR W1I05910
597 | * W1I05915
0178 0000 598 | CMODE DC 0 CONTROL MODE INDR W1I05920
0179 0000 599 | MNBSY DC 0 MONITOR BUSY INDR W1I05930
600 | * W1I05935
017A 0000 601 | TRANS DC 0 TRANSPARENT/BCC INDR W1I05940
017B 0000 602 | BCC1 DC 0 FIRST BCC INDR W1I05950
603 | * W1I05955
017C 0000 604 | ITBRD DC 0 ITB READ/BCC INDR 2-6 W1I05960
017D 0000 605 | BCCA DC 0 BCC ACCUMULATED W1I05970
606 | * W1I05975
017E 0000 607 | LSDLE DC 0 LAST CHAR DLE INDR W1I05980
017F 0000 608 | SYN2 DC 0 INSERT 2 SYNS INDR W1I05990
609 | * W1I05995
0180 0000 610 | ITBER DC 0 ITB BCC ERROR INDR 2-6 W1I06000
0181 0000 611 | PADCK DC 0 PAD CHECK INDR 2-6 W1I06010
612 | * W1I06015
0182 0000 613 | XMESS DC 0 XMIT MESSAGE INDR W1I06020
0183 0000 614 | FIRST DC 0 FIRST CHARACTER INDR W1I06030
615 | * W1I06035
0184 0000 616 | MONIT DC 0 MONITOR INDR FOR INITIALS W1I06040
0185 0000 617 | FCODE DC 0 RCV, XMIT, OR MONITOR W1I06050
0186 0000 618 | STXIN DC 0 STX INDR W1I06060
0187 0000 619 | OVFLO DC 0 I/O OVERFLOW INDR W1I06070
0188 0000 620 | BCC2 DC 0 SECOND BCC INDR W1I06080
0189 0000 621 | TEND DC 0 XMIT ETB/ETX INDR W1I06090
018A 0000 622 | DLSTX DC 0 DLE STX INDR W1I06100
018B 0000 623 | WD17I DC 0 SCAT COUNTER INDR 2-4 W1I06110
018C 0000 624 | RVIRD DC 0 RVI READ INDR 2-6 W1I06111
625 | *************************************************** W1I06120
018D 018ER 626 | TABCT DC BCCER ERR STATISTICS TBL ADDR2-4 W1I06130
018E 0000 627 | BCCER DC *-* CRC-16 ERRORS 2-4 W1I06140
018F 0000 628 | RETRS DC *-* RETRANSMISSION REQUESTS2-4 W1I06150
0190 0000 629 | MASTO DC *-* MASTER RCV TIME-OUTS 2-4 W1I06160
0191 0000 630 | SLVTO DC *-* SLAVE RCV TIME-OUTS 2-4 W1I06170
0192 0000 631 | XMCHK DC *-* TRANSMIT CHECK ERRORS 2-4 W1I06180
0193 0000 632 | RMCHK DC *-* RECEIVE CHECK ERRORS 2-4 W1I06190
0194 0000 633 | MISRV DC *-* INVAL SEQ RCVD AS MSTR 2-4 W1I06200
0195 0000 634 | SISRV DC *-* INVAL SEQ RCVD AS SLAVE2-4 W1I06210
0196 0000 635 | TTDCT DC *-* TEMP TEXT DELAY COUNT 2-6 W1I06220
0197 0000 636 | WACNT DC *-* WACKS RECEIVED 2-6 W1I06230
0198 0000 637 | MONTO DC *-* MONITOR TIME-OUTS 2-4 W1I06240
*** SCAT3 - INTERRUPT PROCESSING ***
639 | *************************************************** W1I06260
640 | * INTERRUPT PROCESSING * W1I06270
641 | *************************************************** W1I06280
642 | * THE DEVICE STATUS WORD * W1I06290
643 | * BIT 0 - READ RESPONSE * W1I06300
644 | * BIT 1 - WRITE RESPONSE * W1I06310
645 | * BIT 2 - CHECK * W1I06320
646 | * BIT 3 - TIMEOUT * W1I06330
647 | * BIT 4 - AUTO ANSWER REQUEST * W1I06340
648 | * BIT 5 - BUSY * W1I06350
649 | * BIT 6 - ENABLED * W1I06360
650 | * BIT 7 - READY * W1I06370
651 | * BIT 8 - RECEIVE RUN * W1I06380
652 | *************************************************** W1I06390
0199 0894 653 | INT2 XIO SENSR SENSE AND RESET DSW W1I06400
019A D0BF 654 | STO DSW SAVE DSW W1I06410
019B D400 00F0 655 | STO L $PAUS SET $PAUS 2-4 W1I06420
00F0 656 | $PAUS EQU 240 $PAUS IS IN WORD 240 2-4 W1I06430
019D 6500 0122R 657 | LDX L1 T CONSTANT TABLE ADDRESS W1I06440
019F 1007 658 | SLA 7 W1I06450
01A0 4C10 038BR 659 | BSC L NTRDY,- BR IF NOT READY W1I06460
01A2 C0B7 660 | LD DSW W1I06470
01A3 4C28 01C2R 661 | BSC L READI,+Z BR IF READ RESPONSE W1I06480
01A5 1001 662 | SLA 1 W1I06490
01A6 4C10 01E4R 663 | BSC L TIMEI,- BR IF NOT WRITE RESPONSE W1I06500
664 | *************************************************** W1I06510
665 | * WRITE RESPONSE * W1I06520
666 | *************************************************** W1I06530
01A8 1001 667 | SLA 1 2-4 W1I06540
01A9 4C10 01AER 668 | BSC L NWRCH,- BR IF NO WRITE CHECK 2-4 W1I06550
01AB 7401 0192R 669 | MDX L XMCHK,+1 COUNT CHECK 2-4 W1I06560
01AD 1000 670 | NOP 2-4 W1I06570
01AE C146 671 | NWRCH LD 1 NXTPD-T IS IT PAD TIME 2-4 W1I06580
01AF 4C20 0382R 672 | BSC L WRPAD,Z YES, BR TO SEND PAD 2-4 W1I06590
01B1 C0D3 673 | LD FCODE W1I06600
01B2 4C28 0322R 674 | BSC L RCVWT,+Z BR IF RECEIVE FUNCTION W1I06610
01B4 4C08 0649R 675 | BSC L MONWT,+ BR IF MONITOR FUNCTION W1I06620
676 | * * W1I06630
01B6 C0A3 677 | LD DSW W1I06640
01B7 1003 678 | SLA 3 CHECK TIMEOUT BIT W1I06650
01B8 4C10 03D2R 679 | XMT BSC L XMTWT,- BR IF TRANSMIT, NO TIMEOUT W1I06660
01BA C102 680 | LD 1 H0002-T 2-4 W1I06670
01BB D0C3 681 | STO SYN2 TURN ON INSERT 2 SYN CHARS W1I06680
01BC C158 682 | LD 1 TRANS-T TRANSPARENT TEXT 2-5 W1I06690
01BD 4C18 01B8R 683 | BSC L XMT,+- BR TO TRANSMIT IF NOT 2-5 W1I06700
684 | * * W1I06710
01BF 091E 685 | XIO 1 TIMER-T START THIRD TIMER 2-5 W1I06720
01C0 1010 686 | SLA 16 2-5 W1I06730
01C1 70F6 687 | MDX XMT BR TO TRANSMIT 2-5 W1I06740
688 | *************************************************** W1I06750
689 | * READ RESPONSE * W1I06760
690 | *************************************************** W1I06770
01C2 C0C2 691 | READI LD FCODE 2-4 W1I06780
01C3 4C18 01C8R 692 | BSC L RDBUF,+- BR IF MONITOR FUNCTION W1I06790
693 | * W1I06800
01C5 C0AE 694 | LD RTBSY W1I06810
01C6 4C18 0229R 695 | BSC L CLBY3,+- BR TO START READ IF NT BSY W1I06820
01C8 C091 696 | RDBUF LD DSW 2-4 W1I06830
01C9 1002 697 | SLA 2 2-4 W1I06840
01CA 4C10 01CFR 698 | BSC L NRDCH,- BR IF NO READ CHECK 2-4 W1I06850
01CC 7401 0193R 699 | MDX L RMCHK,+1 COUNT CHECK 2-4 W1I06860
01CE 1000 700 | NOP 2-4 W1I06870
01CF 1001 701 | NRDCH SLA 1 CHECK FOR TIMEOUT 2-4 W1I06880
01D0 4C28 01EDR 702 | BSC L T2,+Z BR IF TIMEOUT ALSO W1I06890
01D2 0910 703 | XIO 1 READ-T READ 1 CHAR INTO BUF 2-4 W1I06900
01D3 C085 704 | LD BUF LOG 2-4 W1I06910
01D4 1808 705 | SRA 8 CHARACTER 2-4 W1I06920
01D5 0959*3587 706 | CALL IOLOG RECEIVED 2-4 W1I06930
707 | * W1I06940
01D7 C15F 708 | LD 1 PADCK-T 2-6 W1I06950
01D8 4C20 0559R 709 | BSC L PDCK1,Z BR IF PAD CHECK ON 2-6 W1I06960
710 | * W1I06970
01DA C0AA 711 | LD FCODE W1I06980
01DB 4C18 0570R 712 | BSC L MONRD,+- BR IF MONITOR FUNCTION W1I06990
01DD C0A6 713 | LD MONIT W1I07000
01DE 4C20 0570R 714 | BSC L MONRD,Z BR IF MONITORING W1I07010
01E0 C0A4 715 | LD FCODE W1I07020
01E1 4C10 04D4R 716 | BSC L XMTRD,- BR FOR TRANSMIT FUNCTION W1I07030
01E3 701F 717 | MDX RCVRD BR IF RECEIVE FUNCTION W1I07040
718 | *************************************************** W1I07050
01E4 1002 719 | TIMEI SLA 2 W1I07060
01E5 4C90 0004R 720 | BSC I INT1,- EXIT IF NOT TIMEOUT W1I07070
721 | *************************************************** W1I07080
722 | * TIMEOUT * W1I07090
723 | *************************************************** W1I07100
01E7 C09D 724 | LD FCODE W1I07110
01E8 4C18 01EDR 725 | BSC L T2,+- BR IF MONITOR FUNCTION 2-4 W1I07120
726 | * W1I07130
01EA C089 727 | LD RTBSY CHECK ROUTINE BUSY INDR W1I07140
01EB 4C18 0229R 728 | BSC L CLBY3,+- BR TO START READ IF NT BSY W1I07150
729 | * * W1I07160
01ED C00E 730 | T2 LD ZILCH LOG 2-4 W1I07170
01EE 0959*3587 731 | CALL IOLOG TIMEOUT 2-4 W1I07180
01F0 1010 732 | SLA 16 2-6 W1I07190
01F1 D15F 733 | STO 1 PADCK-T RESET PAD CHECK INDR 2-6 W1I07200
01F2 C091 734 | LD MONIT 2-4 W1I07210
01F3 4C20 0659R 735 | BSC L MONTM,Z BR IF MONITORING W1I07220
01F5 C08F 736 | LD FCODE W1I07230
01F6 4C28 0351R 737 | BSC L RCVT,+Z BR IF RECEIVE FUNCTION 2-4 W1I07240
01F8 4C08 0659R 738 | BSC L MONTM,+ BR IF MONITOR FUNC 2-4 W1I07250
01FA 4C00 0560R 739 | BSC L XMTTM BR FOR TRANSMIT FUNCTION W1I07260
01FC 1111 740 | ZILCH DC /1111 T.O. LOG INDR 2-4 W1I07270
741 | *************************************************** W1I07280
01FD 4C80 0004R 742 | INTX BSC I INT1 EXIT TO ILS W1I07290
743 | *************************************************** W1I07300
745 | *************************************************** W1I07320
746 | * READ RESPONSE FOR RECEIVE * W1I07330
747 | *************************************************** W1I07340
01FF 0912 748 | STWT XIO 1 SYNC-T START WRITE WITH TIMER W1I07350
0200 C120 749 | LD 1 H0005-T SET UP TO TRANSMIT 5 2-3 W1I07360
0201 D142 750 | STO 1 SYN5-T SYNS FOR PADDING 2-4 W1I07370
0202 70FA 751 | MDX INTX EXIT TO ILS W1I07380
752 | *************************************************** W1I07390
0203 C15D 753 | RCVRD LD 1 SYN2-T CHECK 2 SYNS RECEIVED IND W1I07400
0204 9102 754 | S 1 H0002-T W1I07410
0205 4C28 020ER 755 | BSC L NOSY2,+Z BR IF SYN2 LESS THAN 2 W1I07420
756 | * * W1I07430
0207 C137 757 | LD 1 BUF-T W1I07440
0208 F124 758 | EOR 1 SYN-T W1I07450
0209 4C18 020ER 759 | BSC L NOSY2,+- BR IF CHAR IS A SYN W1I07460
760 | * * W1I07470
020B 1010 761 | SLA 16 W1I07480
020C D15D 762 | STO 1 SYN2-T TURN OFF 2 SYNS RCVED IND W1I07490
020D 0920 763 | XIO 1 RETIM-T RESET TIMER W1I07500
020E C158 764 | NOSY2 LD 1 TRANS-T W1I07510
020F 4C20 02B1R 765 | BSC L CKBCC,Z BR IF TRANS MODE OR BCC TM W1I07520
766 | * * W1I07530
0211 C161 767 | LD 1 FIRST-T W1I07540
0212 4C18 025CR 768 | BSC L NOFST,+- BR IF NOT FIRST CHARACTER W1I07550
769 | * * W1I07560
0214 C137 770 | LD 1 BUF-T W1I07570
0215 F127 771 | EOR 1 ENQ-T W1I07580
0216 4C18 01FFR 772 | BSC L STWT,+- BR IF BUF = ENQ W1I07590
773 | * * W1I07600
0218 F133 774 | EOR 1 EQET-T W1I07610
0219 4C20 022BR 775 | BSC L NOEOT,Z BR IF CHAR NOT AN EOT W1I07620
021B 7004 776 | MDX RDEOT ** SKIP EOT PAD CHECK 2-6 W1I07630
777 | * * W1I07640
021C 4400 0555R 778 | BSI L PDCHK SET UP FOR PAD CHECK 2-6 W1I07650
021E 4C20 0355R 779 | BSC L RCVTM,Z BR IF INVALID PAD 2-6 W1I07660
780 | * W1I07670
0220 10A0 781 | RDEOT SLT 32 W1I07680
0221 D480 015DR 782 | STO I IOAR SET USERS WORD CNT TO ZERO W1I07690
0223 4C00 04CAR 783 | BSC L GOMO2 BR TO SET MONITOR INDR W1I07700
784 | * * W1I07710
0225 D480 015DR 785 | CLBY2 STO I IOAR SET USERS WORD COUNT 2-6 W1I07720
0227 1010 786 | CLBSY SLA 16 W1I07730
0228 D152 787 | STO 1 RTBSY-T TURN OFF ROUTINE BUSY IND W1I07740
0229 0920 788 | CLBY3 XIO 1 RETIM-T RESET TIMERS W1I07750
022A 70D2 789 | MDX INTX EXIT TO ILS W1I07760
790 | *************************************************** W1I07770
022B 1010 791 | NOEOT SLA 16 W1I07780
022C D161 792 | STO 1 FIRST-T TURN OFF FIRST CHAR IND W1I07790
022D 0920 793 | XIO 1 RETIM-T RESET TIMER W1I07800
794 | * * W1I07810
022E C137 795 | LD 1 BUF-T W1I07820
022F F125 796 | EOR 1 DLE-T W1I07830
0230 4C20 0252R 797 | BSC L NODLE,Z BR IF NOT A DLE W1I07840
798 | * * W1I07850
0232 C000 799 | LD * A DLE WAS RECEIVED W1I07860
0233 D164 800 | STO 1 STXIN-T TURN ON STX INDICATOR W1I07870
0234 C000 801 | STDLE LD * W1I07880
0235 D15C 802 | STO 1 LSDLE-T TURN ON LAST CHAR = DLE W1I07890
803 | * * W1I07900
0236 C13F 804 | ROOMQ LD 1 COUNT-T IS THERE ROOM IN I/O AREA W1I07910
0237 F13C 805 | EOR 1 WDCNT-T W1I07920
0238 4C18 0259R 806 | BSC L OFLOW,+- BR IF NO ROOM W1I07930
807 | * * W1I07940
023A C145 808 | LD 1 PACK-T 2-4 W1I07950
023B 4C18 0240R 809 | BSC L RDEVN,+- BR IF DATA UNPACKED 2-4 W1I07960
023D C13F 810 | LD 1 COUNT-T CHECK CHARACTER COUNT 2-4 W1I07970
023E 4C04 0249R 811 | BSC L RDODD,E IF ODD, SHIFT CHAR 2-4 W1I07980
0240 C137 812 | RDEVN LD 1 BUF-T 2-4 W1I07990
0241 D480 0162R 813 | STO I POINT STORE CHAR IN I/O AREA 2-4 W1I08000
0243 C145 814 | LD 1 PACK-T 2-4 W1I08010
0244 4C18 024FR 815 | BSC L RUPNT,+- BR IF DATA UNPACKED 2-4 W1I08020
0246 7401 0161R 816 | RDCNT MDX L COUNT,+1 UP CHARACTER COUNT 2-4 W1I08030
0248 70B4 817 | MDX INTX EXIT TO ILS 2-4 W1I08040
818 | * * W1I08050
0249 C137 819 | RDODD LD 1 BUF-T 2-4 W1I08060
024A 1808 820 | SRA 8 SHIFT CHAR 2-4 W1I08070
024B EC80 0162R 821 | OR I POINT OR IN FIRST CHAR 2-4 W1I08080
024D D480 0162R 822 | STO I POINT STORE CHAR IN I/O AREA 2-4 W1I08090
024F 7401 0162R 823 | RUPNT MDX L POINT,+1 UP I/O AREA POINTER 2-4 W1I08100
0251 70F4 824 | MDX RDCNT 2-4 W1I08110
825 | *************************************************** W1I08120
0252 F134 826 | NODLE EOR 1 DLSOH-T W1I08130
0253 4820 827 | BSC Z SKIP IF BUF = SOH W1I08140
0254 F12C 828 | EOR 1 DLSHX-T W1I08150
0255 4C20 0355R 829 | BSC L RCVTM,Z BR IF NOT SOH OR STX 2-4 W1I08160
830 | * * W1I08170
0257 D164 831 | STXOF STO 1 STXIN-T TURN OFF STX IND. W1I08180
0258 70DD 832 | MDX ROOMQ BR TO STORE IN I/O AREA W1I08190
833 | * * W1I08200
0259 C000 834 | OFLOW LD * W1I08210
025A D165 835 | STO 1 OVFLO-T TURN ON OVERFLOW IND. W1I08220
025B 70A1 836 | MDX INTX EXIT TO ILS W1I08230
837 | *************************************************** W1I08240
025C C15D 838 | NOFST LD 1 SYN2-T W1I08250
025D 4C08 0265R 839 | BSC L CKIND,+ BR IF LAST CHAR NOT SYN W1I08260
840 | * * W1I08270
025F C137 841 | LD 1 BUF-T W1I08280
0260 F124 842 | EOR 1 SYN-T IF BUF=SYN W1I08290
0261 4C18 0281R 843 | BSC L SYNUP,+- BR TO INCRE 2 SYN IND. W1I08300
844 | * * W1I08310
0263 1010 845 | SLA 16 W1I08320
0264 D15D 846 | STO 1 SYN2-T TURN OFF 2 SYN INDICATOR W1I08330
0265 C164 847 | CKIND LD 1 STXIN-T W1I08340
0266 4C18 0271R 848 | BSC L NOBIN,+- BR IF STX IND NOT ON W1I08350
849 | * * W1I08360
0268 C137 850 | LD 1 BUF-T W1I08370
0269 F129 851 | EOR 1 STX-T W1I08380
026A 4C20 031ER 852 | BSC L ONLIN,Z BR IF CHAR NOT AN STX W1I08390
853 | * * W1I08400
026C C000 854 | LD * TURN ON TRANSPARENT W1I08410
026D D158 855 | STO 1 TRANS-T MODE INDICATOR W1I08420
026E 1010 856 | SLA 16 W1I08430
026F D15C 857 | STO 1 LSDLE-T TURN OFF LAST CHAR=DLE IND W1I08440
0270 70E6 858 | MDX STXOF BR TO TURN OFF STX IND. W1I08450
859 | * * W1I08460
0271 C15C 860 | NOBIN LD 1 LSDLE-T W1I08470
0272 4C18 0277R 861 | BSC L NTDLE,+- BR IF LAST CHAR NOT DLE W1I08480
862 | * * W1I08490
0274 4400 039AR 863 | BSI L CALC GO CALCULATE BCC W1I08500
0276 70F1 864 | MDX CKIND+3 BR TO CHECK FOR STX W1I08510
865 | * * W1I08520
0277 C137 866 | NTDLE LD 1 BUF-T W1I08530
0278 F125 867 | EOR 1 DLE-T W1I08540
0279 4C20 027ER 868 | BSC L DLEN1,Z BR IF NOT A DLE W1I08550
869 | * W1I08560
027B 4400 039AR 870 | BSI L CALC CALCULATE BCC W1I08570
027D 70B6 871 | MDX ROOMQ-2 BR TO TURN ON LSDLE W1I08580
872 | * * W1I08590
027E F131 873 | DLEN1 EOR 1 SYNDL-T W1I08600
027F 4C20 0284R 874 | BSC L NTSYN,Z BR IF NOT A SYN W1I08610
875 | * * W1I08620
0281 7401 017FR 876 | SYNUP MDX L SYN2,+1 UP 2 SYN INDICATOR W1I08630
0283 7058 877 | MDX BCCTM-1 EXIT TO ILS W1I08640
0284 4400 039AR 878 | NTSYN BSI L CALC GO CALCULATE BCC W1I08650
879 | *************************************************** W1I08660
880 | * .CKEND. - CHECK FOR END * W1I08670
881 | * CHARACTER, ETB OR ETX * W1I08680
882 | * IF CHARACTER IS AN ETB OR* W1I08690
883 | * ETX, SET INDICATORS TO * W1I08700
884 | * RECEIVE BCC CHARACTERS * W1I08710
885 | * NEXT * W1I08720
886 | *************************************************** W1I08730
0286 C137 887 | CKEND LD 1 BUF-T W1I08740
0287 F12B 888 | EOR 1 ETB-T W1I08750
0288 4820 889 | BSC Z SKIP IF CHAR IS AN ETB W1I08760
0289 F132 890 | EOR 1 ETBTX-T W1I08770
028A 4C20 0290R 891 | BSC L CKABT,Z BR IF NOT ETB OR ETX W1I08780
892 | * * W1I08790
028C D166 893 | SETBC STO 1 BCC2-T TURN OFF/ON BCC2 INDR W1I08800
028D C800 894 | LDD * W1I08810
028E D958 895 | STD 1 TRANS-T TURN ON TRANSPARENT 2-7 W1I08820
896 | * BCC1 TURN ON FOR BCC TIME 2-7 W1I08830
028F 70A6 897 | ROMQ1 MDX ROOMQ BR TO PUT CHAR IN I/O AREA W1I08840
898 | * W1I08850
0290 C137 899 | CKABT LD 1 BUF-T W1I08860
0291 F127 900 | EOR 1 ENQ-T ABORT RECORD ON ENQ W1I08870
901 | * * W1I08880
0292 4C18 029CR 902 | BSC L TTDCK,+- BR TO CHECK FOR TTD 2-6 W1I08890
0294 C137 903 | LD 1 BUF-T 2-6 W1I08900
0295 F12A 904 | EOR 1 ITB-T BUF = ITB 2-6 W1I08910
0296 4C20 0236R 905 | BSC L ROOMQ,Z BR IF NOT ITB 2-6 W1I08920
0298 C000 906 | LD * 2-6 W1I08930
0299 D15A 907 | STO 1 ITBRD-T SET ITB READ INDR 2-6 W1I08940
029A 1010 908 | SLA 16 2-6 W1I08950
029B 70F0 909 | MDX SETBC 2-6 W1I08960
910 | * * W1I08970
029C 74FF 0161R 911 | TTDCK MDX L COUNT,-1 MORE THAN ONE CHAR 2-6 W1I08980
029E 700E 912 | MDX NAKTM ALREADY RCVD - YES,BR 2-6 W1I08990
029F C145 913 | LD 1 PACK-T PACKED DATA 2-6 W1I09000
02A0 4C20 02A4R 914 | BSC L TTDPA,Z YES-BRANCH 2-6 W1I09010
02A2 74FF 0162R 915 | MDX L POINT,-1 NO-BACKDATE POINTER 2-6 W1I09020
02A4 C480 0162R 916 | TTDPA LD I POINT GET 1ST CHAR 2-6 W1I09030
02A6 E12E 917 | AND 1 HFF00-T MASK OUT 2ND CHAR 2-6 W1I09040
02A7 F129 918 | EOR 1 STX-T WAS IT STX 2-6 W1I09050
02A8 4C20 02ADR 919 | BSC L NAKTM,Z NO,BRANCH 2-6 W1I09060
02AA 7401 0196R 920 | MDX L TTDCT,1 YES,INCRE TTD RCVD 2-6 W1I09070
02AC 1000 921 | NOP 2-6 W1I09080
922 | * W1I09090
02AD C000 923 | NAKTM LD * W1I09100
02AE D155 924 | STO 1 XNAK-T TURN ON TRANSMIT NAK IND. W1I09110
02AF 4C00 01FFR 925 | BSC L STWT BR TO START WRITE W1I09120
926 | *************************************************** W1I09130
927 | * .CKBCC. - IF BCC1 IS ON, * W1I09140
928 | * SCAT3 IS EXPECTING TO * W1I09150
929 | * RECEIVE THE BCC CHARACTER* W1I09160
930 | * OTHERWISE, SCAT3 IS STILL* W1I09170
931 | * RECEIVING TRANSPARENT * W1I09180
932 | * DATA * W1I09190
933 | *************************************************** W1I09200
02B1 C159 934 | CKBCC LD 1 BCC1-T W1I09210
02B2 4C20 02DDR 935 | BSC L BCCTM,Z BR IF TIME TO CHECK BCC W1I09220
936 | * * W1I09230
02B4 C15C 937 | LD 1 LSDLE-T W1I09240
02B5 4C20 02BER 938 | BSC L YSDLE,Z BR IF LAST CHAR WAS A DLE W1I09250
939 | * * W1I09260
02B7 C137 940 | LD 1 BUF-T W1I09270
02B8 F125 941 | EOR 1 DLE-T W1I09280
02B9 4C18 0234R 942 | BSC L STDLE,+- BR IF CHAR = DLE W1I09290
943 | * * W1I09300
02BB 4400 039AR 944 | BSI L CALC GO CALCULATE BCC W1I09310
02BD 70D1 945 | MDX ROMQ1 BR TO PUT CHAR IN I/O AREA W1I09320
946 | * * W1I09330
02BE 1010 947 | YSDLE SLA 16 W1I09340
02BF D15C 948 | STO 1 LSDLE-T TURN OFF LAST CHAR=DLE IND W1I09350
02C0 C137 949 | LD 1 BUF-T W1I09360
02C1 F124 950 | EOR 1 SYN-T W1I09370
02C2 4C18 02CBR 951 | BSC L YSSYN,+- BR IF CHAR IS A SYN W1I09380
952 | * * W1I09390
02C4 4400 039AR 953 | BSI L CALC GO CALCULATE BCC W1I09400
02C6 C137 954 | LD 1 BUF-T W1I09410
02C7 F125 955 | EOR 1 DLE-T W1I09420
02C8 4C98 0004R 956 | BSC I INT1,+- EXIT TO ILS IF A DLE W1I09430
02CA 70BB 957 | MDX CKEND BR TO CHECK FOR ETB, ETX W1I09440
958 | * * W1I09450
02CB 7402 017FR 959 | YSSYN MDX L SYN2,+2 UP 2 SYN IND. BY 2 W1I09460
02CD C145 960 | LD 1 PACK-T 2-4 W1I09470
02CE 4C18 02D3R 961 | BSC L DRPNT,+- BR IF NOT PACKED DATA 2-4 W1I09480
02D0 C13F 962 | LD 1 COUNT-T 2-4 W1I09490
02D1 4C04 02DAR 963 | BSC L DRCNT,E 2-4 W1I09500
02D3 74FF 0162R 964 | DRPNT MDX L POINT,-1 DECR POINT 2-4 W1I09510
02D5 C480 0162R 965 | LD I POINT REMOVE DLE FROM BUFFER 2-4 W1I09520
02D7 E12E 966 | AND 1 HFF00-T 2-4 W1I09530
02D8 D480 0162R 967 | STO I POINT 2-4 W1I09540
02DA 74FF 0161R 968 | DRCNT MDX L COUNT,-1 DECR COUNT 2-4 W1I09550
02DC 7040 969 | MDX STRD1 EXIT TO ILS 2-4 W1I09560
970 | *************************************************** W1I09570
971 | * BLOCK CHECK CHARACTER * W1I09580
972 | *************************************************** W1I09590
02DD C166 973 | BCCTM LD 1 BCC2-T W1I09600
02DE 4C18 0318R 974 | BSC L GET1,+- BR TO GET FIRST BCC CHAR W1I09610
975 | * * W1I09620
02E0 C141 976 | LD 1 BCCR-T W1I09630
02E1 F137 977 | EOR 1 BUF-T COMBINE TWO CHAR BCC W1I09640
02E2 D141 978 | STO 1 BCCR-T W1I09650
979 | * * W1I09660
02E3 1010 980 | SLA 16 W1I09670
02E4 D166 981 | STO 1 BCC2-T TURN OFF BCC2 IND W1I09680
02E5 C15A 982 | LD 1 ITBRD-T 2-6 W1I09690
02E6 4C20 0301R 983 | BSC L ITBBC,Z BR IF ITB 2-6 W1I09700
984 | * W1I09710
02E8 C165 985 | LD 1 OVFLO-T W1I09720
02E9 4C20 0310R 986 | BSC L E1000,Z BR IF OVERFLOW OCCURRED W1I09730
987 | * * W1I09740
02EB C141 988 | LD 1 BCCR-T IS BCC CORRECT W1I09750
02EC F15B 989 | EOR 1 BCCA-T W1I09760
02ED 4C20 030BR 990 | BSC L E0800,Z BR TO ERROR IF NOT EQUAL W1I09770
991 | * W1I09780
02EF C15E 992 | LD 1 ITBER-T 2-6 W1I09790
02F0 4C20 030BR 993 | BSC L E0800,Z BR IF ITB BCC ERROR 2-6 W1I09800
994 | * W1I09810
02F2 0906 995 | CKALT XIO 1 ENDOP-T END OPERATION 2-9 W1I09815
02F3 C13D 996 | LD 1 SUBF-T 2-9 W1I09820
02F4 4C30 02F9R 997 | BSC L RPEAT,Z- BR IF RECEIVE REPEAT W1I09830
998 | * W1I09840
02F6 C90A 999 | LDD 1 ACK-T W1I09850
02F7 18D0 1000 | RTE 16 ALTERNATE ACKNOWLEDGEMENTS W1I09860
02F8 D90A 1001 | STD 1 ACK-T W1I09870
02F9 1010 1002 | RPEAT SLA 16 W1I09880
02FA D155 1003 | STO 1 XNAK-T TURN OFF XMIT NAK IND. W1I09890
1004 | * * W1I09900
02FB 090E 1005 | XIO 1 STRED-T START READ AGAIN 2-9 W1I09905
02FC C13F 1006 | LD 1 COUNT-T GIVE USER THE WORD COUNT W1I09910
02FD 4C08 0227R 1007 | BSC L CLBSY,+ ONLY OF CHARS RECD 2-6 W1I09920
02FF 4C00 0225R 1008 | BSC L CLBY2 2-6 W1I09930
1009 | * W1I09940
0301 10A0 1010 | ITBBC SLT 32 2-7 W1I09950
0302 D15A 1011 | STO 1 ITBRD-T RESET ITB READ INDR 2-6 W1I09960
0303 D958 1012 | STD 1 TRANS-T TRANSPARENT 2-7 W1I09970
1013 | * BCC1 BCC TIME 2-7 W1I09980
0304 C141 1014 | LD 1 BCCR-T COMPARE BCC RCVD 2-6 W1I09990
0305 F15B 1015 | EOR 1 BCCA-T WITH BCC ACCD 2-6 W1I10000
0306 E95E 1016 | OR 1 ITBER-T SAVE PREV ERROR IF ANY 2-6 W1I10010
0307 D15E 1017 | STO 1 ITBER-T SET ERROR IF NOT EQUAL 2-6 W1I10020
0308 1010 1018 | SLA 16 2-6 W1I10030
0309 D15B 1019 | STO 1 BCCA-T RESET BCC ACCUM 2-6 W1I10040
030A 703D 1020 | MDX INT4 EXIT TO ILS 2-6 W1I10050
1021 | * W1I10060
030B C14D 1022 | E0800 LD 1 H0800-T BAD BCC ERROR CODE W1I10070
030C 7401 018ER 1023 | MDX L BCCER,+1 COUNT CRC-16 ERRORS 2-4 W1I10080
030E 1000 1024 | NOP 2-4 W1I10090
030F 7001 1025 | MDX ERROR GO DECRE RETRY W1I10100
1026 | * * W1I10110
0310 C125 1027 | E1000 LD 1 H1000-T OVERFLOW ERROR CODE W1I10120
0311 404B 1028 | ERROR BSI ERRCK GO CHECK RETRY COUNTER W1I10130
1029 | * * W1I10140
0312 4C18 04C8R 1030 | BSC L GOMON,+- MONITOR IF ZERO W1I10150
1031 | * * W1I10160
0314 D155 1032 | STO 1 XNAK-T TURN ON TRANSMIT NAK IND. W1I10170
0315 4C10 01FFR 1033 | BSC L STWT,- RETRY IF POSITIVE W1I10180
1034 | * * W1I10190
0317 70DA 1035 | MDX CKALT BR TO ALTER ACKS, ETC. W1I10200
1036 | * * W1I10210
0318 C137 1037 | GET1 LD 1 BUF-T PICK UP FIRST 8 BITS W1I10220
0319 1808 1038 | SRA 8 OF BCC W1I10230
031A D141 1039 | STO 1 BCCR-T W1I10240
031B C000 1040 | LD * W1I10250
031C D166 1041 | STO 1 BCC2-T TURN ON BCC2 IND. W1I10260
031D 702A 1042 | STRD1 MDX INT4 EXIT TO ILS 2-4 W1I10270
1043 | * * W1I10280
1044 | * W1I10290
031E F135 1045 | ONLIN EOR 1 STXEQ-T IS BUF = ENQ W1I10300
031F 4C20 0355R 1046 | BSC L RCVTM,Z NO, GO LISTEN FOR ENQ 2-4 W1I10310
1047 | * W1I10320
0321 708B 1048 | MDX NAKTM YES, GO SEND NAK W1I10330
1049 | *************************************************** W1I10340
1051 | *************************************************** W1I10360
1052 | * WRITE RESPONSE FOR RECEIVE * W1I10370
1053 | *************************************************** W1I10380
0322 404C 1054 | RCVWT BSI PADIN GO WRITE PADS IF NECESSARY W1I10390
1055 | * * W1I10400
0323 C154 1056 | LD 1 XEOT-T IF XMIT-EOT IND IS ON, W1I10410
0324 4C20 0349R 1057 | BSC L CLEOT,Z BR TO SEND EOT W1I10420
1058 | * * W1I10430
0326 C155 1059 | LD 1 XNAK-T W1I10440
0327 4C18 033DR 1060 | BSC L POS,+- BR IF POSITIVE ACK TO SEND W1I10450
1061 | * * W1I10460
0329 C126 1062 | LD 1 NAK-T 2-4 W1I10470
032A D137 1063 | SETPD STO 1 BUF-T LOG 2-7 W1I10480
032B 0959*3587 1064 | CALL IOLOG NAK OR CURRENT ACK 2-4 W1I10490
032D 091C 1065 | XIO 1 WTBUF-T WRITE NAK OR CUR ACK 2-7 W1I10495
032E 404F 1066 | BSI STPAD BR TO SET PAD INDR 2-4 W1I10500
1067 | * * W1I10510
032F C13B 1068 | RESRT LD 1 IOAR-T INITIALIZE I/O AREA W1I10520
0330 814E 1069 | A 1 H0001-T POINTER W1I10530
0331 D140 1070 | STO 1 POINT-T W1I10540
0332 D161 1071 | STO 1 FIRST-T TURN ON FIRST CHAR. IND. W1I10550
1072 | * * W1I10560
0333 10A0 1073 | SLT 32 2-7 W1I10570
0334 D13F 1074 | STO 1 COUNT-T CLEAR WORD COUNT W1I10580
0335 D95A 1075 | STD 1 ITBRD-T ITB READ INDR 2-7 W1I10590
1076 | * BCCA BCC ACCUMULATED 2-7 W1I10600
0336 D95C 1077 | STD 1 LSDLE-T LAST CHAR DLE 2-7 W1I10610
1078 | * SYN2 INSERT 2 SYN 2-7 W1I10620
0337 D958 1079 | STD 1 TRANS-T TRANSPARENT IND 2-7 W1I10630
1080 | * BCC1 BCC TIME FIRST 2-7 W1I10640
0338 D165 1081 | STO 1 OVFLO-T I/O AREA OVERFLOW W1I10650
0339 D95E 1082 | STD 1 ITBER-T ITB ERROR INDR 2-7 W1I10660
1083 | * PADCK PAD CHECK INDR 2-7 W1I10670
033A 0906 1084 | XIO 1 ENDOP-T RESET CHAR PHASE W1I10680
033B 0920 1085 | XIO 1 RETIM-T RESET TIMERS W1I10690
033C 703E 1086 | MDX STRD BR TO START READ W1I10700
1087 | * * W1I10710
033D C15C 1088 | POS LD 1 LSDLE-T W1I10720
033E 4C18 0342R 1089 | BSC L WTDL,+- BR IF DLE NOT YET WRITTEN W1I10730
1090 | * * W1I10740
0340 C10A 1091 | LD 1 ACK-T LOG 2-4 W1I10760
0341 70E8 1092 | MDX SETPD SET PAD INDR 2-3 W1I10780
1093 | * * W1I10790
0342 0918 1094 | WTDL XIO 1 WTDLE-T WRITE DLE W1I10800
0343 C125 1095 | LD 1 DLE-T LOG 2-4 W1I10810
0344 0959*3587 1096 | CALL IOLOG DLE 2-4 W1I10820
0346 C000 1097 | WTDL1 LD * 2-4 W1I10830
0347 D15C 1098 | STO 1 LSDLE-T TURN ON LAST CHAR=DLE W1I10840
0348 7033 1099 | INT4 MDX INT3 EXIT TO ILS W1I10850
1100 | * W1I10860
0349 0914 1101 | CLEOT XIO 1 WTEOT-T WRITE EOT 2-4 W1I10870
034A C12D 1102 | LD 1 EOT-T LOG 2-4 W1I10880
034B 0959*3587 1103 | CALL IOLOG EOT 2-4 W1I10890
034D 4030 1104 | BSI STPAD BR TO SET PAD INDR 2-4 W1I10900
1105 | * * W1I10910
034E D154 1106 | STO 1 XEOT-T TURN OFF XMIT-EOT INDR 2-3 W1I10920
034F D157 1107 | STO 1 MNBSY-T RESET MONITOR BUSY INDR2-5 W1I10930
0350 702A 1108 | MDX STRD BR TO START READ W1I10940
1109 | *************************************************** W1I10950
SCAT3 - TIMEOUT FOR RECEIVE
1111 | *************************************************** W1I10970
1112 | * TIMEOUT INTERRUPT FOR RECEIVE * W1I10980
1113 | *************************************************** W1I10990
0351 7401 0191R 1114 | RCVT MDX L SLVTO,+1 COUNT SLAVE TIME OUTS 2-4 W1I11000
0353 1000 1115 | NOP 2-4 W1I11010
0354 7003 1116 | MDX TMNIT 2-4 W1I11020
0355 7401 0195R 1117 | RCVTM MDX L SISRV,+1 CNT SLV INVAL SEQ RCVD 2-4 W1I11030
0357 1000 1118 | NOP 2-4 W1I11040
0358 C14F 1119 | TMNIT LD 1 H2000-T ERROR CODE /2000 2-4 W1I11050
0359 4003 1120 | BSI ERRCK GO CHECK RETRY COUNTER W1I11060
1121 | * * W1I11070
035A 4C20 032FR 1122 | BSC L RESRT,Z GO START READ IF A NOT 0 W1I11080
1123 | * * W1I11090
035C 70B5 1124 | MDX ERROR+1 BR TO CLOSE, TERMINATE W1I11100
1125 | *************************************************** W1I11110
1126 | * ERROR ROUTINE * W1I11120
1127 | *************************************************** W1I11130
035D 0000 1128 | ERRCK DC 0 W1I11140
035E D00F 1129 | STO ERRU SAVE ERROR CODE W1I11150
035F C13A 1130 | LD 1 RETRY-T W1I11160
0360 914E 1131 | S 1 H0001-T W1I11170
0361 D13A 1132 | STO 1 RETRY-T W1I11180
0362 4CA0 035DR 1133 | BSC I ERRCK,Z EXIT FOR MORE TRYS W1I11190
1134 | * * W1I11200
0364 C14A 1135 | LD 1 H0007-T SET RETRY COUNT TO SEVEN W1I11210
0365 D13A 1136 | STO 1 RETRY-T W1I11220
0366 0920 1137 | XIO 1 RETIM-T RESET TIMERS W1I11230
0367 C006 1138 | LD ERRU ERROR CODE TO A-REGISTER W1I11240
0368 4480 012ER 1139 | BSI I USERR GO TO USER ERROR ROUTINE W1I11250
036A 6500 0122R 1140 | LDX L1 T W1I11260
036C 4C80 035DR 1141 | BSC I ERRCK EXIT TO CHECK OPTIONS W1I11270
036E 0000 1142 | ERRU DC 0 ERROR CODE HOLDER W1I11280
1143 | *************************************************** W1I11290
1145 | *************************************************** W1I11310
1146 | * TRANSMIT PAD CHARACTERS * W1I11320
1147 | * 5 SYN CHARACTERS BEFORE EVERY * W1I11330
1148 | * TRANSMISSION * W1I11340
1149 | *************************************************** W1I11350
036F 0000 1150 | PADIN DC 0 W1I11360
0370 C142 1151 | LD 1 SYN5-T 2-3 W1I11370
0371 4C98 036FR 1152 | BSC I PADIN,+- BR IF PRECEEDING SYNS SENT W1I11380
1153 | * * W1I11390
0373 74FF 0164R 1154 | MDX L SYN5,-1 DECREE CTR FOR 5 SYNS 2-3 W1I11400
0375 1000 1155 | NOP W1I11410
0376 0916 1156 | XIO 1 WTSYN-T WRITE SYN CHARACTER W1I11420
0377 C124 1157 | LD 1 SYN-T LOG 2-4 W1I11430
0378 0959*3587 1158 | CALL IOLOG SYN 2-4 W1I11440
037A 7001 1159 | MDX INT3 EXIT TO ILS W1I11450
1160 | * * W1I11460
037B 090E 1161 | STRD XIO 1 STRED-T START READ W1I11470
037C 4C80 0004R 1162 | INT3 BSC I INT1 EXIT TO ILS W1I11480
1163 | *************************************************** W1I11490
1164 | * TRANSMIT ONE PAD CHARACTER AFTER 2-3* W1I11500
1165 | * EACH TRANSMISSION 2-3* W1I11510
1166 | *************************************************** W1I11520
037E 0000 1167 | STPAD DC 0 2-4 W1I11530
037F C000 1168 | LD * 2-4 W1I11540
0380 D146 1169 | STO 1 NXTPD-T TURN ON PAD INDR 2-4 W1I11550
0381 70FA 1170 | MDX INT3 EXIT TO ILS 2-4 W1I11560
0382 C12E 1171 | WRPAD LD 1 PAD-T LOG 2-4 W1I11570
0383 D137 1172 | STO 1 BUF-T 2-7 W1I11580
0384 0959*3587 1173 | CALL IOLOG PAD 2-4 W1I11590
0386 091C 1174 | XIO 1 WTBUF-T WRITE PAD 2-7 W1I11595
0387 1010 1175 | SLA 16 2-3 W1I11600
0388 D146 1176 | STO 1 NXTPD-T TURN OFF PAD INDR 2-3 W1I11610
0389 4C80 037ER 1177 | BSC I STPAD RETURN TO NORMAL FLOW 2-4 W1I11620
1178 | *************************************************** W1I11630
1179 | * ERP - 2 OPTIONS, RETRY OR MONITOR * W1I11640
1180 | *************************************************** W1I11650
038B C163 1181 | NTRDY LD 1 FCODE-T IF MONITOR FUNCTION, W1I11660
038C 4C18 04C8R 1182 | BSC L GOMON,+- BR. DO NOT GO TO ERR RTN. W1I11670
1183 | * W1I11680
038E C152 1184 | LD 1 RTBSY-T IF ROUTINE IS NOT BUSY, W1I11690
038F 4C18 0229R 1185 | CLBY4 BSC L CLBY3,+- BR TO START READ W1I11700
1186 | * W1I11710
0391 C007 1187 | LD H8000 DATA SET FAIL ERROR CODE W1I11720
0392 40CA 1188 | BSI ERRCK GO DECRE RETRY W1I11730
1189 | * * W1I11740
0393 4C18 04C8R 1190 | BSC L GOMON,+- MONITOR IF ACC IS ZERO W1I11750
0395 1010 1191 | SLA 16 W1I11760
0396 D15C 1192 | STO 1 LSDLE-T TURN OFF LAST CHAR = DLE W1I11770
0397 D158 1193 | STO 1 TRANS-T TURN OFF TRANSPARENT IND W1I11780
0398 70F6 1194 | MDX CLBY4 BR TO CLBY3,RESET,EXIT W1I11790
1195 | * W1I11800
1196 | * W1I11810
0399 8000 1197 | H8000 DC /8000 DATA SET FAIL ERROR CODE W1I11820
1198 | * W1I11830
1199 | *************************************************** W1I11840
1201 | *************************************************** W1I11860
1202 | * CALCULATE BLOCK CHECK CHAR. CRC-16 * W1I11870
1203 | *************************************************** W1I11880
039A 0000 1204 | CALC DC 0 W1I11890
039B C137 1205 | LD 1 BUF-T W1I11900
039C 1808 1206 | SRA 8 W1I11910
039D F15B 1207 | EOR 1 BCCA-T ADD IN REMAINDER W1I11920
039E 4C04 03B9R 1208 | BSC L EOR1,E BR IF ONE W1I11930
03A0 1801 1209 | SRA 1 W1I11940
03A1 4C04 03BCR 1210 | B2 BSC L EOR2,E BR IF ONE W1I11950
03A3 1801 1211 | SRA 1 W1I11960
03A4 4C04 03BFR 1212 | B3 BSC L EOR3,E BR IF ONE W1I11970
03A6 1801 1213 | SRA 1 W1I11980
03A7 4C04 03C2R 1214 | B4 BSC L EOR4,E BR IF ONE W1I11990
03A9 1801 1215 | SRA 1 W1I12000
03AA 4C04 03C5R 1216 | B5 BSC L EOR5,E BR IF ONE W1I12010
03AC 1801 1217 | SRA 1 W1I12020
03AD 4C04 03C8R 1218 | B6 BSC L EOR6,E BR IF ONE W1I12030
03AF 1801 1219 | SRA 1 W1I12040
03B0 4C04 03CBR 1220 | B7 BSC L EOR7,E BR IF ONE W1I12050
03B2 1801 1221 | SRA 1 W1I12060
03B3 4C04 03CER 1222 | B8 BSC L EOR8,E BR IF ONE W1I12070
03B5 1801 1223 | SRA 1 W1I12080
03B6 D15B 1224 | B9 STO 1 BCCA-T STORE NEW REMAINDER W1I12090
03B7 4C80 039AR 1225 | BSC I CALC W1I12100
1226 | * * W1I12110
03B9 1801 1227 | EOR1 SRA 1 W1I12120
03BA F016 1228 | EOR POLY ADD POLYNOMIAL W1I12130
03BB 70E5 1229 | MDX B2 BR TO TEST NEXT CHAR W1I12140
03BC 1801 1230 | EOR2 SRA 1 W1I12150
03BD F013 1231 | EOR POLY ADD POLYNOMIAL W1I12160
03BE 70E5 1232 | MDX B3 BR TO TEST NEXT CHAR W1I12170
03BF 1801 1233 | EOR3 SRA 1 W1I12180
03C0 F010 1234 | EOR POLY ADD POLYNOMIAL W1I12190
03C1 70E5 1235 | MDX B4 BR TO TEST NEXT CHAR W1I12200
03C2 1801 1236 | EOR4 SRA 1 W1I12210
03C3 F00D 1237 | EOR POLY ADD POLYNOMIAL W1I12220
03C4 70E5 1238 | MDX B5 BR TO TEST NEXT CHAR W1I12230
03C5 1801 1239 | EOR5 SRA 1 W1I12240
03C6 F00A 1240 | EOR POLY ADD POLYNOMIAL W1I12250
03C7 70E5 1241 | MDX B6 BR TO TEST NEXT CHAR W1I12260
03C8 1801 1242 | EOR6 SRA 1 W1I12270
03C9 F007 1243 | EOR POLY ADD POLYNOMIAL W1I12280
03CA 70E5 1244 | MDX B7 BR TO TEST NEXT CHAR W1I12290
03CB 1801 1245 | EOR7 SRA 1 W1I12300
03CC F004 1246 | EOR POLY ADD POLYNOMIAL W1I12310
03CD 70E5 1247 | MDX B8 BR TO TEST NEXT CHAR W1I12320
03CE 1801 1248 | EOR8 SRA 1 W1I12330
03CF F001 1249 | EOR POLY ADD POLYNOMIAL W1I12340
03D0 70E5 1250 | MDX B9 BR STORE REMAINDER W1I12350
1251 | * * W1I12360
03D1 A001 1252 | POLY DC /A001 POLYNOMIAL FOR CRC-16 W1I12370
1253 | *************************************************** W1I12380
1255 | *************************************************** W1I12400
1256 | * WRITE RESPONSE FOR TRANSMIT * W1I12410
1257 | *************************************************** W1I12420
03D2 409C 1258 | XMTWT BSI PADIN GO WRITE PADS IF NECESSARY W1I12430
03D3 C139 1259 | LD 1 TBTX-T W1I12440
03D4 4C28 04C2R 1260 | BSC L ENDWT,+Z BR IF TRANSMIT EOT W1I12450
1261 | * W1I12460
03D6 C155 1262 | LD 1 XNAK-T W1I12470
03D7 4C20 064ER 1263 | BSC L CLNAK,Z BR IF XMIT-NAK IND ON W1I12480
1264 | * W1I12490
03D9 C15D 1265 | LD 1 SYN2-T CK INSERT 2 SYNS W1I12500
03DA 4C18 03FAR 1266 | BSC L XMT1,+- BR IF NOT INSERT TIME W1I12510
1267 | *************************************************** W1I12520
1268 | * INSERT SYNCHRONOUS IDLE ON A TIMEOUT* W1I12530
1269 | * WITH A WRITE RESPONSE IN NORMAL * W1I12540
1270 | * TEXT. TIMEOUT OCCURS ALONE IN * W1I12550
1271 | * TRANSPARENT TEXT AND CAUSES INSERT * W1I12560
1272 | * SYN SYN IN NORMAL TEXT * W1I12570
1273 | * DLE SYN IN TRANSPARENT TEXT * W1I12580
1274 | *************************************************** W1I12590
03DC C15C 1275 | LD 1 LSDLE-T NO INSERT AFTER A DLE W1I12600
03DD 4C20 03FAR 1276 | BSC L XMT1,Z BR AROUND INSERT W1I12610
1277 | * * W1I12620
03DF C160 1278 | LD 1 XMESS-T NO INSERT AFTER ETB OR ETX W1I12630
03E0 4C18 03FAR 1279 | BSC L XMT1,+- BR AROUND INSERT W1I12640
1280 | * * W1I12650
03E2 C138 1281 | LD 1 DSW-T W1I12660
03E3 1002 1282 | SLA 2 IF CHECK BIT IS ON W1I12670
03E4 4C28 03EFR 1283 | BSC L SYN1,+Z BR TO SEND ONLY 1 SYN W1I12680
1284 | * * W1I12690
03E6 74FF 017FR 1285 | MDX L SYN2,-1 DECRE 2 SYN COUNTER BY 1 W1I12700
03E8 7009 1286 | MDX CKDLE CK TRANSPARENT ON FIRST W1I12710
03E9 0916 1287 | WSYN1 XIO 1 WTSYN-T WRITE SYN 2-4 W1I12720
03EA C124 1288 | LD 1 SYN-T LOG 2-4 W1I12730
03EB 0959*3587 1289 | CALL IOLOG SYN 2-4 W1I12740
03ED 4C80 0004R 1290 | INTX2 BSC I INT1 EXIT TO ILS W1I12750
1291 | * * W1I12760
03EF 1010 1292 | SYN1 SLA 16 W1I12770
03F0 D15D 1293 | STO 1 SYN2-T TURN OFF SYN2 IND. W1I12780
03F1 70F7 1294 | MDX WSYN1 BR TO WRITE SYN 2-4 W1I12790
1295 | * * W1I12800
03F2 C158 1296 | CKDLE LD 1 TRANS-T CK TRANSPARENT MODE IND. W1I12810
03F3 4C18 03E9R 1297 | BSC L WSYN1,+- BR TO WRITE SYN,NON TRANS W1I12820
03F5 0918 1298 | CKDL XIO 1 WTDLE-T WRITE DLE, TRANSPARENT 2-4 W1I12830
03F6 C125 1299 | LD 1 DLE-T LOG 2-4 W1I12840
03F7 0959*3587 1300 | CALL IOLOG DLE 2-4 W1I12850
03F9 70F3 1301 | MDX INTX2 EXIT TO ILS W1I12860
1302 | *************************************************** W1I12870
03FA C153 1303 | XMT1 LD 1 XMENQ-T W1I12880
03FB 4C20 04B7R 1304 | BSC L ENQWT,Z BR TO TRANSMIT ENQ W1I12890
1305 | * * W1I12900
03FD C160 1306 | LD 1 XMESS-T IF TRANSMIT MESS. IS OFF, W1I12910
03FE 4C18 0483R 1307 | BSC L NOMES,+- BR TO SEND END FUNCITON W1I12920
1308 | * * W1I12930
1309 | *************************************************** W1I12940
1310 | * SEND MESSAGE * W1I12950
1311 | *************************************************** W1I12960
0400 C145 1312 | LD 1 PACK-T IS DATA UNPACKED 2-4 W1I12970
0401 4C18 0406R 1313 | BSC L WTEVN,+- BR IF IT IS 2-4 W1I12980
0403 C13F 1314 | LD 1 COUNT-T IS COUNT EVEN 2-4 W1I12990
0404 4C04 040ER 1315 | BSC L WTODD,E BR IF ODD 2-4 W1I13000
1316 | * * W1I13010
0406 C480 0162R 1317 | WTEVN LD I POINT PUT CHAR FROM I/O 2-4 W1I13020
0408 E12E 1318 | AND 1 HFF00-T W1I13030
0409 D137 1319 | STO 1 BUF-T AREA INTO BUF W1I13040
040A C161 1320 | LD 1 FIRST-T W1I13050
040B 4C18 044AR 1321 | BSC L NTFST,+- BR IF NOT FIRST CHARACTER W1I13060
040D 7005 1322 | MDX FRST BR TO PROC FIRST CHAR 2-4 W1I13070
1323 | * * W1I13080
040E C480 0162R 1324 | WTODD LD I POINT SHIFT 2ND CHAR IN WORD 2-4 W1I13090
0410 1008 1325 | SLA 8 TO HIGH ORDER END 2-4 W1I13100
0411 D137 1326 | STO 1 BUF-T AND STORE IN BUFFER 2-4 W1I13110
0412 7037 1327 | MDX NTFST 2-4 W1I13120
1328 | *************************************************** W1I13130
1329 | * FIRST CHARACTER TO BE SENT * W1I13140
1330 | *************************************************** W1I13150
0413 C13B 1331 | FRST LD 1 IOAR-T INITLZ I/O AREA PT 2-4 W1I13160
0414 814E 1332 | A 1 H0001-T W1I13170
0415 D140 1333 | STO 1 POINT-T W1I13180
0416 D159 1334 | STO 1 BCC1-T TURN ON BCC1 IND. W1I13190
1335 | * * W1I13200
0417 1010 1336 | SLA 16 W1I13210
0418 D15B 1337 | STO 1 BCCA-T CLEAR BCC ACCUMULATION W1I13220
0419 D15C 1338 | STO 1 LSDLE-T TURN OFF LAST CHAR=DLE IND W1I13230
041A D161 1339 | STO 1 FIRST-T FIRST CHAR. IND. W1I13240
041B C480 0162R 1340 | LD I POINT PUT CHARACTER FROM I/O W1I13250
041D E12E 1341 | AND 1 HFF00-T W1I13260
041E D137 1342 | STO 1 BUF-T AREA INTO BUF W1I13270
1343 | * * W1I13280
041F C13E 1344 | LD 1 TEXTM-T CHECK TEXT MODE W1I13290
0420 4C18 042AR 1345 | BSC L NTRAN,+- BR IF NORMAL TEXT W1I13300
1346 | * * W1I13310
0422 C137 1347 | LD 1 BUF-T W1I13320
0423 F125 1348 | EOR 1 DLE-T W1I13330
0424 4C20 0429R 1349 | BSC L NDLE,Z BR IF BUF NOT DLE W1I13340
1350 | * * W1I13350
1351 | *************************************************** W1I13360
1352 | * .STXIN. ON IF DLE HAS BEEN FOUND * W1I13370
1353 | *************************************************** W1I13380
0426 C000 1354 | LD * W1I13390
0427 D164 1355 | STO 1 STXIN-T TURN ON STX INDICATOR W1I13400
0428 7001 1356 | MDX NTRAN W1I13410
1357 | * * W1I13420
1358 | *************************************************** W1I13430
1359 | * .DLSTX. ON IF DLE HAS NOT BEEN FOUND* W1I13440
1360 | *************************************************** W1I13450
0429 D168 1361 | NDLE STO 1 DLSTX-T TURN ON DLE STX INDICATOR W1I13460
042A C145 1362 | NTRAN LD 1 PACK-T IS DATA UNPACKED 2-4 W1I13470
042B 4C18 0431R 1363 | BSC L UPPTR,+- BR IF IT IS 2-4 W1I13480
042D C13F 1364 | LD 1 COUNT-T COUNT EVEN 2-4 W1I13490
042E 4C04 0431R 1365 | BSC L UPPTR,E BR IF ODD 2-4 W1I13500
0430 7002 1366 | MDX UPCNT INCR CHAR COUNT 2-4 W1I13510
1367 | * * W1I13520
0431 7401 0162R 1368 | UPPTR MDX L POINT,+1 INCR I/O AREA POINTER 2-4 W1I13530
1369 | * * W1I13540
0433 7401 0161R 1370 | UPCNT MDX L COUNT,+1 INCR CHAR COUNT 2-4 W1I13550
0435 C13F 1371 | LD 1 COUNT-T 2-4 W1I13560
0436 F13C 1372 | EOR 1 WDCNT-T 2-4 W1I13570
0437 4C20 0440R 1373 | BSC L ITBCK,Z BR IF NOT LAST CHAR 2-6 W1I13580
1374 | * * W1I13590
0439 1010 1375 | WTBF2 SLA 16 W1I13600
043A D160 1376 | STO 1 XMESS-T TURN OFF TRANSMIT MESS.IND W1I13610
043B 091C 1377 | WTBF XIO 1 WTBUF-T WRITE CONTENTS OF BUF 2-7 W1I13620
043C C137 1378 | LD 1 BUF-T LOG 2-4 W1I13630
043D 0959*3587 1379 | CALL IOLOG BUF CONTENTS 2-4 W1I13640
043F 70AD 1380 | INTX3 MDX INTX2 EXIT TO ILS 2-3 W1I13650
1381 | * * W1I13660
0440 C158 1382 | ITBCK LD 1 TRANS-T 2-6 W1I13670
0441 4C20 043BR 1383 | BSC L WTBF,Z BR IF TRANSPARENT 2-6 W1I13680
0443 C137 1384 | LD 1 BUF-T 2-6 W1I13690
0444 F12A 1385 | EOR 1 ITB-T BUF = ITB 2-6 W1I13700
0445 4C20 043BR 1386 | BSC L WTBF,Z BR IF NOT ITB 2-6 W1I13710
0447 C000 1387 | LD * 2-6 W1I13720
0448 D15A 1388 | STO 1 ITBRD-T SET ITB BCC INDR 2-6 W1I13730
0449 70EF 1389 | MDX WTBF2 BR TO TURN OFF XMESS 2-6 W1I13740
1390 | *************************************************** W1I13750
1391 | * FIRST CHARACTER HAS BEEN SENT * W1I13760
1392 | *************************************************** W1I13770
044A C164 1393 | NTFST LD 1 STXIN-T W1I13780
044B 4C18 0454R 1394 | BSC L XMT2,+- BR IF STX IND. NOT ON W1I13790
1395 | * * W1I13800
044D 1010 1396 | SLA 16 W1I13810
044E D164 1397 | STO 1 STXIN-T TURN OFF STX INDICATOR W1I13820
044F 091A 1398 | LDREG XIO 1 LDDLE-T LOAD SYNC REG WITH DLE W1I13830
0450 C000 1399 | LD * W1I13840
0451 D158 1400 | STO 1 TRANS-T TURN ON IN TRANSPARENT IND W1I13850
0452 091E 1401 | XIO 1 TIMER-T START THIRD TIMER W1I13860
0453 70D6 1402 | MDX NTRAN BR TO WRITE CHARACTER W1I13870
1403 | * * W1I13880
0454 C168 1404 | XMT2 LD 1 DLSTX-T W1I13890
0455 4C18 046ER 1405 | BSC L XMT3,+- BR IF DLE STX IND. OFF W1I13900
1406 | * * W1I13910
0457 C15C 1407 | LD 1 LSDLE-T W1I13920
0458 4C18 0460R 1408 | BSC L XMT4,+- BR IF LAST CHAR NOT A DLE W1I13930
1409 | * * W1I13940
045A 1010 1410 | SLA 16 W1I13950
045B D168 1411 | STO 1 DLSTX-T TURN OFF DLE STX IND. W1I13960
045C D15C 1412 | STO 1 LSDLE-T TURN OFF LAST CHAR=DLE IND W1I13970
045D 4400 039AR 1413 | BSI L CALC GO CALCULATE BCC W1I13980
045F 70EF 1414 | MDX LDREG BR TO LOAD SYNC REGISTER W1I13990
1415 | * * W1I14000
0460 C137 1416 | XMT4 LD 1 BUF-T W1I14010
0461 F125 1417 | EOR 1 DLE-T W1I14020
0462 4C20 0467R 1418 | BSC L XMT4A,Z BR IF BUF NOT A DLE W1I14030
1419 | * * W1I14040
0464 C000 1420 | LD * W1I14050
0465 D15C 1421 | STO 1 LSDLE-T TURN ON LAST CHAR=DLE W1I14060
0466 7004 1422 | MDX XMT4B BR TO CALC BCC W1I14070
1423 | * * W1I14080
0467 C137 1424 | XMT4A LD 1 BUF-T W1I14090
0468 F124 1425 | EOR 1 SYN-T IF BUF = SYN, W1I14100
0469 4C18 042AR 1426 | BSC L NTRAN,+- DO NOT CALCULATE BCC W1I14110
1427 | * W1I14120
046B 4400 039AR 1428 | XMT4B BSI L CALC GO CALCULATE BCC W1I14130
046D 70BC 1429 | MDX NTRAN BR TO WRITE CHARACTER W1I14140
1430 | * * W1I14150
046E C158 1431 | XMT3 LD 1 TRANS-T W1I14160
046F 4C18 0467R 1432 | BSC L XMT4A,+- BR IF NOT IN TRANSPARENT W1I14170
1433 | *************************************************** W1I14180
1434 | * TRANSPARENT TEXT * W1I14190
1435 | *************************************************** W1I14200
0471 C138 1436 | LD 1 DSW-T W1I14210
0472 1002 1437 | SLA 2 IF CHECK BIT IS ON W1I14220
0473 4C28 03E9R 1438 | BSC L WSYN1,+Z BR TO WRITE SYN 2-4 W1I14230
1439 | * * W1I14240
0475 C15C 1440 | LD 1 LSDLE-T W1I14250
0476 4C20 047FR 1441 | BSC L XMT5,Z BR IF LAST CHAR=DLE W1I14260
1442 | * * W1I14270
0478 C137 1443 | LD 1 BUF-T W1I14280
0479 F125 1444 | EOR 1 DLE-T W1I14290
047A 4C20 046BR 1445 | BSC L XMT4B,Z BR IF CHAR NOT A DLE W1I14300
1446 | * * W1I14310
047C C000 1447 | LD * W1I14320
047D D15C 1448 | STO 1 LSDLE-T TURN ON LAST CHAR=DLE IND W1I14330
047E 70EC 1449 | MDX XMT4B BR TO CALCULATE BCC W1I14340
1450 | * * W1I14350
047F 1010 1451 | XMT5 SLA 16 W1I14360
0480 D15C 1452 | STO 1 LSDLE-T TURN OFF LAST CHAR=DLE IND W1I14370
0481 4C00 03F5R 1453 | CKDL1 BSC L CKDL BR TO WRITE DLE 2-4 W1I14380
1454 | *************************************************** W1I14390
1455 | * TRANSMIT ENDING CHARACTERS * W1I14400
1456 | *************************************************** W1I14410
0483 C158 1457 | NOMES LD 1 TRANS-T W1I14420
0484 4C18 049DR 1458 | BSC L XMT6,+- BR IF NOT TRANSPARENT MODE W1I14430
1459 | * * W1I14440
0486 C15C 1460 | LD 1 LSDLE-T W1I14450
0487 4C20 047FR 1461 | BSC L XMT5,Z BR IF LAST CHAR=DLE W1I14460
1462 | * * W1I14470
0489 091E 1463 | XIO 1 TIMER-T STOP THIRD TIMER W1I14480
048A C167 1464 | LD 1 TEND-T W1I14490
048B 4C20 0490R 1465 | BSC L XMT7,Z BR IF XMIT ETX OR ETB ON W1I14500
1466 | * * W1I14510
048D C000 1467 | LD * W1I14520
048E D167 1468 | STO 1 TEND-T TURN ON TRANSMIT END IND W1I14530
048F 70F1 1469 | MDX CKDL1 BR TO WRITE DLE 2-4 W1I14540
1470 | * * W1I14550
0490 1010 1471 | XMT7 SLA 16 W1I14560
0491 D158 1472 | STO 1 TRANS-T TURN OFF IN TRANS MODE IND W1I14570
0492 D167 1473 | STO 1 TEND-T TURN OFF XMIT END IND. W1I14580
0493 C139 1474 | LD 1 TBTX-T W1I14590
0494 4C20 049BR 1475 | BSC L XMT8,Z BR TO WRITE ETX W1I14600
1476 | * * W1I14610
0496 C12B 1477 | LD 1 ETB-T W1I14620
0497 D137 1478 | XMT84 STO 1 BUF-T PUT ETB IN BUF W1I14630
0498 4400 039AR 1479 | BSI L CALC GO CALCULATE BCC W1I14640
049A 70A0 1480 | MDX WTBF BR TO WRITE ETB OR ETX W1I14650
1481 | * * W1I14660
049B C12C 1482 | XMT8 LD 1 ETX-T PUT ETX INTO BUF W1I14670
049C 70FA 1483 | MDX XMT84 BR TO PUT ETX IN BUF W1I14680
1484 | *************************************************** W1I14690
1485 | * TRANSMIT BLOCK CHECK CHARACTERS * W1I14700
1486 | *************************************************** W1I14710
049D C159 1487 | XMT6 LD 1 BCC1-T W1I14720
049E 4C18 04A6R 1488 | BSC L LAST8,+- BR TO WRITE LAST OF BCC W1I14730
1489 | * * W1I14740
04A0 1010 1490 | SLA 16 W1I14750
04A1 D159 1491 | STO 1 BCC1-T TURN OFF BCC1 IND. W1I14760
04A2 C15B 1492 | LD 1 BCCA-T W1I14770
04A3 1008 1493 | SLA 8 W1I14780
04A4 D137 1494 | STO 1 BUF-T W1I14790
04A5 7095 1495 | MDX WTBF GO WRITE FIRST PART OF BCC W1I14800
1496 | * * W1I14810
04A6 C15B 1497 | LAST8 LD 1 BCCA-T 2-4 W1I14820
04A7 D137 1498 | STO 1 BUF-T LOG 2-7 W1I14830
04A8 1808 1499 | SRA 8 LAST 2-4 W1I14840
04A9 1008 1500 | SLA 8 8 BITS 2-4 W1I14850
04AA 0959*3587 1501 | CALL IOLOG OF BCC 2-4 W1I14860
04AC 091C 1502 | XIO 1 WTBUF-T WRITE 8 LAST OF BCC 2-7 W1I14865
04AD 0908 1503 | XIO 1 LOAD-T LOAD SYN INTO SYNC REG. W1I14870
1504 | * * W1I14880
04AE C15A 1505 | LD 1 ITBRD-T 2-6 W1I14890
04AF 4C18 04BCR 1506 | BSC L STPD1,+- BR IF NOT ITB BCC 2-6 W1I14900
04B1 10A0 1507 | SLT 32 2-7 W1I14910
04B2 D95A 1508 | STD 1 ITBRD-T CLEAR ITB READ INDR 2-7 W1I14920
1509 | * BCCA BCC ACCUMULATED 2-7 W1I14930
04B3 C000 1510 | LD * 2-6 W1I14940
04B4 D159 1511 | STO 1 BCC1-T TURN ON FIRST BCC INDR 2-6 W1I14950
04B5 D160 1512 | STO 1 XMESS-T XMESS 2-6 W1I14960
04B6 7088 1513 | MDX INTX3 EXIT TO ILS 2-6 W1I14970
1514 | * * W1I14980
04B7 C127 1515 | ENQWT LD 1 ENQ-T 2-4 W1I14990
04B8 D137 1516 | STO 1 BUF-T LOG 2-7 W1I15000
04B9 0959*3587 1517 | CALL IOLOG ENQ 2-4 W1I15010
04BB 091C 1518 | XIO 1 WTBUF-T WRITE ENQ 2-7 W1I15015
04BC 4400 037ER 1519 | STPD1 BSI L STPAD BR TO SET PAD INDR 2-4 W1I15020
04BE C149 1520 | LD 1 D0008-T 2-6 W1I15030
04BF D147 1521 | STO 1 LGS-T SET LEAD GRAPHS COUNT 2-6 W1I15040
04C0 4C00 037BR 1522 | BSC L STRD BR TO START READ 2-4 W1I15050
1523 | *************************************************** W1I15060
0140R 1524 | DLNKT EQU TIMER CONSTANT FOR EOT CHECK W1I15190
016DR 1525 | WACOD EQU H0080 WACK RCVD ERROR CODE 2-6 W1I15210
1526 | *************************************************** W1I15220
1527 | * TRANSMIT EOT, RETURN TO MONITORING * W1I15230
1528 | *************************************************** W1I15240
04C2 0914 1529 | ENDWT XIO 1 WTEOT-T WRITE EOT 2-4 W1I15250
04C3 C12D 1530 | LD 1 EOT-T LOG 2-4 W1I15260
04C4 0959*3587 1531 | CALL IOLOG EOT 2-4 W1I15270
04C6 4400 037ER 1532 | BSI L STPAD BR TO SET PAD INDR 2-4 W1I15280
1533 | * W1I15290
04C8 10A0 1534 | GOMON SLT 32 2-7 W1I15300
04C9 D156 1535 | STO 1 CMODE-T TURN OFF CONTROL MODE IND. W1I15310
04CA D163 1536 | GOMO2 STO 1 FCODE-T SET FCODE ZERO MONITOR W1I15320
04CB D952 1537 | STD 1 RTBSY-T TURN OFF ROUTINE BUSY 2-7 W1I15330
1538 | * XMENQ TURN OFF XMIT ENQ IND 2-7 W1I15340
04CC 4C00 060CR 1539 | BSC L RESYN BR TO START READ, SET IND. W1I15350
1540 | *************************************************** W1I15360
1541 | * LEADING GRAPHICS COUNT CHECK * W1I15370
1542 | *************************************************** W1I15380
04CE 0000 1543 | LGCHK DC 0 2-6 W1I15390
04CF C147 1544 | LD 1 LGS-T CHECK IF LEADING GRAPH 2-6 W1I15400
04D0 9149 1545 | S 1 D0008-T WAS RECEIVED BEFORE 2-6 W1I15410
04D1 4C98 04CER 1546 | BSC I LGCHK,+- NO - BRANCH BACK 2-6 W1I15420
04D3 7041 1547 | MDX TIMEX YES - ERROR 2-6 W1I15430
1548 | *************************************************** W1I15432
1550 | *************************************************** W1I15450
1551 | * READ RESPONSE FOR TRANSMIT * W1I15460
1552 | *************************************************** W1I15470
04D4 C15C 1553 | XMTRD LD 1 LSDLE-T W1I15480
04D5 4C18 051BR 1554 | BSC L TRD1,+- BR IF LAST CHAR NOT A DLE W1I15490
1555 | * * W1I15500
04D7 1010 1556 | SLA 16 W1I15510
04D8 D15C 1557 | STO 1 LSDLE-T TURN OFF LAST CHAR=DLE IND W1I15520
04D9 C137 1558 | LD 1 BUF-T CHECK FOR CORRECT ACK W1I15530
04DA F10A 1559 | EOR 1 ACK-T W1I15540
04DB 4C20 04F1R 1560 | BSC L EOTCK,Z BR IF NOT CORRECT ACK W1I15550
04DD D16A 1561 | STO 1 RVIRD-T CLEAR RVI READ INDR 2-6 W1I15560
1562 | * * W1I15570
04DE C160 1563 | MESSQ LD 1 XMESS-T CHECK TRANSMIT MESSAGE IND W1I15580
04DF 4C20 04EDR 1564 | BSC L STWT2,Z BR TO ST WRT FOR MESSAGE W1I15590
1565 | * * W1I15600
04E1 D152 1566 | MESQ3 STO 1 RTBSY-T TURN OFF ROUTINE BUSY W1I15610
04E2 0906 1567 | XIO 1 ENDOP-T END OPERATION 2-9 W1I15615
04E3 090E 1568 | XIO 1 STRED-T INITIATE READ AGAIN 2-9 W1I15616
04E4 0920 1569 | XIO 1 RETIM-T RESET TIMERS W1I15620
04E5 10A0 1570 | ENQOF SLT 32 2-7 W1I15630
04E6 D950 1571 | STD 1 TOIND-T TURN OFF TIMEOUT INDR 2-7 W1I15640
1572 | * WRACK TURN OFF WRONG ACK IND 2-7 W1I15650
04E7 D153 1573 | STO 1 XMENQ-T TURN OFF TRANSMIT ENQ IND. W1I15660
04E8 C90A 1574 | LDD 1 ACK-T W1I15670
04E9 18D0 1575 | RTE 16 ALTERNATE W1I15680
04EA D90A 1576 | STD 1 ACK-T ACKNOWLEDGEMENTS W1I15690
04EB 4C80 0004R 1577 | BSC I INT1 EXIT TO ILS W1I15700
1578 | * * W1I15710
04ED 0912 1579 | STWT2 XIO 1 SYNC-T START WRITE WITH TIMER W1I15720
04EE C120 1580 | LD 1 H0005-T SET UP TO TRANSMIT 2-3 W1I15730
04EF D142 1581 | STO 1 SYN5-T 5 SYNS FOR PADDING 2-3 W1I15740
04F0 70F4 1582 | MDX ENQOF BR TO TURN OFF XMIT ENQ W1I15750
1583 | * * W1I15760
04F1 C90A 1584 | EOTCK LDD 1 ACK-T IS BUF EQUAL OTHER ACK W1I15770
04F2 1090 1585 | SLT 16 W1I15780
04F3 F137 1586 | EOR 1 BUF-T W1I15790
04F4 4C18 054BR 1587 | BSC L OTHER,+- BR IF EQUAL OTHER ACK W1I15800
1588 | * * W1I15810
04F6 C137 1589 | LD 1 BUF-T 2-6 W1I15820
04F7 F12F 1590 | EOR 1 WACK-T IS BUF = WACK 2-6 W1I15830
04F8 4C20 0502R 1591 | BSC L RVICK,Z NO,BRANCH 2-6 W1I15840
04FA 40D3 1592 | BSI LGCHK CHECK IF LGS BEFORE 2-6 W1I15850
1593 | * 2-6 W1I15860
04FB 7401 0197R 1594 | MDX L WACNT,+1 INCREMENT WACKS RCVD 2-6 W1I15870
04FD 1000 1595 | NOP 2-6 W1I15880
04FE C14E 1596 | LD 1 H0001-T NO RETRIES WHEN 2-6 W1I15890
04FF D13A 1597 | STO 1 RETRY-T WACK RECEIVED 2-6 W1I15900
1598 | * 2-6 W1I15910
0500 C14B 1599 | LD 1 WACOD-T GET WACK RCVD ERR CODE 2-6 W1I15920
0501 7017 1600 | MDX TIME1 GO DECRE RETRY 2-6 W1I15930
1601 | * 2-6 W1I15935
0502 F136 1602 | RVICK EOR 1 WARVI-T 2-6 W1I15940
0503 4C20 0515R 1603 | BSC L TIMEX,Z BR IF NOT RVI 2-6 W1I15950
0505 40C8 1604 | BSI LGCHK CHECK IF LGS BEFORE 2-6 W1I15960
1605 | * 2-6 W1I15970
0506 C16A 1606 | LD 1 RVIRD-T WAS RVI READ BEFORE 2-6 W1I15980
0507 4C20 054BR 1607 | BSC L OTHER,Z YES,BR-TREAT AS WR ACK 2-6 W1I15990
0509 C130 1608 | LD 1 RVICD-T 2-6 W1I16000
050A D480 015DR 1609 | STO I IOAR GIVE USER -2 2-6 W1I16010
050C D16A 1610 | STO 1 RVIRD-T SET RVI READ INDR 2-6 W1I16020
050D 70D0 1611 | MDX MESSQ 2-6 W1I16030
1612 | * 2-6 W1I16035
050E C137 1613 | GRAPH LD 1 BUF-T 2-6 W1I16040
050F F124 1614 | EOR 1 SYN-T BUF = SYN 2-6 W1I16050
0510 4C98 0004R 1615 | BSC I INT1,+- ACCEPT SYN IN LG 2-6 W1I16060
0512 74FF 0169R 1616 | MDX L LGS,-1 NO,DECRE GRAPH COUNT 2-6 W1I16070
0514 7051 1617 | MDX INTX4 EXIT TO ILS 2-6 W1I16080
1618 | * 2-6 W1I16085
0515 7401 0194R 1619 | TIMEX MDX L MISRV,+1 CNT MSTR INVAL SEQ 2-4 W1I16090
0517 1000 1620 | NOP 2-4 W1I16100
0518 C129 1621 | TIME0 LD 1 H0200-T INVALID SEQ ERR CODE 2-4 W1I16110
0519 D153 1622 | TIME1 STO 1 XMENQ-T TURN ON TRANSMIT ENQ INDR W1I16120
051A 7017 1623 | MDX ERP2 GO DECRE RETRY COUNTER W1I16130
1624 | * * W1I16140
051B C137 1625 | TRD1 LD 1 BUF-T IS BUF=DLE W1I16150
051C F125 1626 | EOR 1 DLE-T W1I16160
051D 4C18 0346R 1627 | BSC L WTDL1,+- YES, BR TO TURN ON LSDLE W1I16170
1628 | * * W1I16180
051F F127 1629 | EOR 1 DLNAK-T IS BUF = NAK 2-3 W1I16190
0520 4C20 053ER 1630 | BSC L NONAK,Z BR IF NOT NAK W1I16200
1631 | * * W1I16210
0522 4032 1632 | BSI PDCHK SET UP FOR PAD CHECK 2-6 W1I16220
0523 4C20 0515R 1633 | BSC L TIMEX,Z BR IF PAD NOT OKEY 2-6 W1I16230
1634 | * * W1I16240
0525 10A0 1635 | MESOK SLT 32 2-7 W1I16250
0526 D950 1636 | STD 1 TOIND-T TURN OFF TIMEOUT INDR 2-7 W1I16260
1637 | * WRACK TURN OFF WRONG ACK IND 2-7 W1I16270
0527 C160 1638 | LD 1 XMESS-T W1I16280
0528 4818 1639 | BSC +- BR IF XMIT MESSAGE IS ON W1I16290
1640 | * * W1I16300
0529 D153 1641 | STO 1 XMENQ-T TURN OFF TRANSMIT ENQ IND W1I16310
052A C800 1642 | LDD * 2-7 W1I16320
052B D960 1643 | STD 1 XMESS-T TURN ON XMIT MESSAGE 2-7 W1I16330
1644 | * FIRST TURN ON FIRST CHAR 2-7 W1I16340
052C 1010 1645 | SLA 16 2-4 W1I16350
052D D13F 1646 | STO 1 COUNT-T CLEAR CHAR COUNT 2-4 W1I16360
1647 | * * W1I16370
052E C14C 1648 | LD 1 H0400-T GET NAK RCVD ERROR CODE W1I16380
052F 7401 018FR 1649 | MDX L RETRS,+1 CNT RETRANSMIT REQS 2-4 W1I16390
0531 1000 1650 | NOP 2-4 W1I16400
0532 4400 035DR 1651 | ERP2 BSI L ERRCK GO DECRE RETRY COUNTER W1I16410
0534 4C18 04C8R 1652 | BSC L GOMON,+- MONITOR IF A-REG IS ZERO W1I16420
0536 4C10 01FFR 1653 | BSC L STWT,- RETRY IF POSITIVE W1I16430
1654 | * * W1I16440
0538 C90A 1655 | LDD 1 ACK-T ALTERNATE ACKS HERE SO W1I16450
0539 18D0 1656 | RTE 16 THAT THEY WILL NOT BE OUT W1I16460
053A D90A 1657 | STD 1 ACK-T OF STEP AT EXIT TO ILS TIM W1I16470
053B 1010 1658 | SLA 16 W1I16480
053C D160 1659 | STO 1 XMESS-T TURN OFF XMIT MESSAGE IND W1I16490
053D 70A3 1660 | MDX MESQ3 BR TO ACCEPT ERROR W1I16500
1661 | * * W1I16510
053E F11E 1662 | NONAK EOR 1 DLNKT-T IS BUF = EOT W1I16520
053F 4C20 050ER 1663 | BSC L GRAPH,Z BR TO CHECK LG IF ANY 2-6 W1I16530
0541 408C 1664 | BSI LGCHK CHECK IF LGS BEFORE 2-6 W1I16540
1665 | * 2-6 W1I16550
0542 7003 1666 | MDX SEPC2 ** SKIP EOT PAD CHECK 2-6 W1I16560
0543 4011 1667 | BSI PDCHK SET UP FOR PAD CHECK 2-6 W1I16570
0544 4C20 0515R 1668 | BSC L TIMEX,Z BR IF PAD NOT OKEY 2-6 W1I16580
1669 | * * W1I16590
0546 D150 1670 | SEPC2 STO 1 TOIND-T TURN OFF TIMEOUT INDR W1I16600
0547 D151 1671 | STO 1 WRACK-T TURN OFF WRONG ACK IND W1I16610
0548 D16A 1672 | STO 1 RVIRD-T CLEAR RVI READ INDR 2-6 W1I16620
0549 4C00 0220R 1673 | BSC L RDEOT BR IF CHAR IS AN EOT W1I16630
1674 | * W1I16640
054B C150 1675 | OTHER LD 1 TOIND-T IF TIMEOUT IND ON, W1I16650
054C 4C20 0551R 1676 | BSC L TOION,Z BR TO CHECK FOR WRONG ACK W1I16660
054E C10E 1677 | OTHR3 LD 1 H0100-T GET WRONG ACK ERR CODE W1I16670
054F D151 1678 | STO 1 WRACK-T TURN ON WRONG ACK IND W1I16680
0550 70C8 1679 | MDX TIME1 BR TO TURN ON XMIT ENQ IND W1I16690
1680 | * W1I16700
0551 C151 1681 | TOION LD 1 WRACK-T IF NOT WRONG ACK FIRST W1I16710
0552 4C18 0525R 1682 | BSC L MESOK,+- BR TO SEND MESSAGE W1I16720
0554 70F9 1683 | MDX OTHR3 BR TO TURN ON XMIT ENQ W1I16730
1684 | *************************************************** W1I16740
SCAT3 - CHECK PAD AFTER EOT/NAK
1686 | *************************************************** W1I16760
1687 | * CHECK PAD AFTER EOT/NAK 2-6* W1I16770
1688 | *************************************************** W1I16780
0555 0000 1689 | PDCHK DC *-* 2-6 W1I16790
0556 C000 1690 | LD * 2-6 W1I16800
0557 D15F 1691 | STO 1 PADCK-T SET PAD CHECK INDR 2-6 W1I16810
0558 700D 1692 | MDX INTX4 EXIT TO ILS 2-6 W1I16820
1693 | *************************************************** W1I16830
0559 1010 1694 | PDCK1 SLA 16 2-6 W1I16840
055A D15F 1695 | STO 1 PADCK-T TURN OFF PAD CHECK IND 2-6 W1I16850
055B C137 1696 | LD 1 BUF-T 2-6 W1I16860
055C F12E 1697 | EOR 1 HFF00-T 2-6 W1I16870
055D 1004 1698 | SLA 4 CHECK FOR 4 1-BITS 2-6 W1I16880
055E 4C80 0555R 1699 | BSC I PDCHK PAD OKEY - RETURN TO 2-6 W1I16890
1700 | * EOT/NAK PROCESS WITH 2-6 W1I16900
1701 | * ZERO IN ACCUMULATOR 2-6 W1I16910
1702 | *************************************************** W1I16920
SCAT3 - TIMEOUT FOR TRANSMIT
1704 | *************************************************** W1I16940
1705 | * TIMEOUT INTERRUPT FOR TRANSMIT * W1I16950
1706 | *************************************************** W1I16960
0560 C158 1707 | XMTTM LD 1 TRANS-T W1I16970
0561 4C18 0568R 1708 | BSC L RECTI,+- BR IF RECEIVE TIMEOUT W1I16980
1709 | * W1I16990
0563 091E 1710 | XIO 1 TIMER-T START TIMER 2-6 W1I17000
0564 C102 1711 | LD 1 H0002-T W1I17010
0565 D15D 1712 | STO 1 SYN2-T TURN ON INSERT 2 SYN IND W1I17020
0566 4C80 0004R 1713 | INTX4 BSC I INT1 EXIT TO ILS W1I17030
1714 | * W1I17040
0568 1010 1715 | RECTI SLA 16 W1I17050
0569 D15C 1716 | STO 1 LSDLE-T TURN OFF LAST CHAR = DLE W1I17060
056A C000 1717 | LD * W1I17070
056B D150 1718 | STO 1 TOIND-T TURN ON TIMEOUT IND W1I17080
056C 7401 0190R 1719 | MDX L MASTO,+1 COUNT MASTER TIME-OUTS 2-4 W1I17090
056E 1000 1720 | NOP 2-4 W1I17100
056F 70A8 1721 | MDX TIME0 BR TO SET UP ERR CODE 2-4 W1I17110
1722 | *************************************************** W1I17120
SCAT3 - READ RESPONSE FOR MONITOR
1724 | *************************************************** W1I17140
1725 | * READ RESPONSE FOR MONITOR * W1I17150
1726 | *************************************************** W1I17160
0570 C156 1727 | MONRD LD 1 CMODE-T W1I17170
0571 4C20 05D5R 1728 | BSC L CNTRL,Z BR IF IN CONTROL MODE W1I17180
1729 | *************************************************** W1I17190
1730 | * SCAT3 NOT IN CONTROL MODE * W1I17200
1731 | *************************************************** W1I17210
0573 C05D 1732 | LD ITBSK IS ITB SKIP ON W1I17220
0574 4C18 057BR 1733 | BSC L NOSKP,+- NO, BR TO CHECK DATA W1I17230
1734 | * W1I17240
1735 | * IGNORE 2 CHARACTERS AFTER ITB * W1I17250
1736 | * W1I17260
0576 74FF 05D1R 1737 | MDX L ITBSK,-1 YES, DECRE SKIP COUNT BY 1 W1I17270
0578 1000 1738 | NOP W1I17280
0579 4C80 0004R 1739 | ILS1 BSC I INT1 EXIT TO ILS W1I17290
1740 | * W1I17300
057B C053 1741 | NOSKP LD TRNSP W1I17310
057C 4C20 0593R 1742 | BSC L TDATA,Z BR TO CHECK TRANS. DATA W1I17320
1743 | *************************************************** W1I17330
1744 | * NORMAL DATA IS.ON THE LINE * W1I17340
1745 | *************************************************** W1I17350
057E C137 1746 | LD 1 BUF-T W1I17360
057F F124 1747 | EOR 1 SYN-T W1I17370
0580 4C20 0589R 1748 | BSC L SYNOF,Z BR IF BUF NOT A SYN W1I17380
1749 | * W1I17390
1750 | * SYN SYN MEANS RESET TIMER * W1I17400
1751 | * W1I17410
0582 C04B 1752 | LD LSSYN IF LAST CHAR=SYN W1I17420
0583 4C20 0618R 1753 | BSC L RTIME,Z BR TO RESET TIMER W1I17430
1754 | * W1I17440
0585 D15C 1755 | STO 1 LSDLE-T TURN OFF LAST CHAR=DLE W1I17450
0586 C000 1756 | LD * W1I17460
0587 D046 1757 | STO LSSYN TURN ON LAST CHAR=SYN W1I17470
0588 70F0 1758 | MDX ILS1 EXIT TO ILS 2-6 W1I17480
1759 | * W1I17490
0589 1010 1760 | SYNOF SLA 16 W1I17500
058A D043 1761 | STO LSSYN TURN OFF LAST CHAR=SYN W1I17510
058B C137 1762 | LD 1 BUF-T W1I17520
058C F129 1763 | EOR 1 STX-T W1I17530
058D 4C18 0611R 1764 | BSC L CMOF2,+- BR IF STX W1I17540
1765 | * W1I17550
058F F043 1766 | EOR H1200 IS BUF=DLE W1I17560
0590 4C18 0346R 1767 | BSC L WTDL1,+- YES, BR TO TURN ON LSDLE W1I17570
1768 | * W1I17580
0592 7007 1769 | MDX TURNQ NO, BR TO CHECK TURNAROUND W1I17590
1770 | *************************************************** W1I17600
1771 | * TRANSPARENT DATA ON THE LINE * W1I17610
1772 | *************************************************** W1I17620
0593 C15C 1773 | TDATA LD 1 LSDLE-T W1I17630
0594 4C18 0604R 1774 | BSC L DLEX,+- BR IF LAST CHAR NOT DLE W1I17640
1775 | * W1I17650
1776 | * IN TRANSPARENT TEXT ALL CONTROL SEQ.* W1I17660
1777 | * START WITH DLE * W1I17670
1778 | * W1I17680
0596 C137 1779 | LD 1 BUF-T W1I17690
0597 F124 1780 | EOR 1 SYN-T W1I17700
0598 4C18 0618R 1781 | BSC L RTIME,+- DLE SYN, RESET TIMERS W1I17710
1782 | *************************************************** W1I17720
1783 | * CHECK FOR TURN-AROUND CHARACTER * W1I17730
1784 | *************************************************** W1I17740
059A C137 1785 | TURNQ LD 1 BUF-T W1I17750
059B F12D 1786 | EOR 1 EOT-T IS BUF=EOT W1I17760
059C 4C20 05A5R 1787 | BSC L EOTN1,Z BRANCH IF NOT EOT 2-6 W1I17770
059E 7003 1788 | MDX SEPC3 ** SKIP EOT PAD CHECK 2-6 W1I17780
059F 40B5 1789 | BSI PDCHK GO SET PAD CHECK INDR 2-6 W1I17790
05A0 4C20 05A5R 1790 | BSC L EOTN1,Z BR IF INVALID PAD 2-6 W1I17800
1791 | * W1I17810
1792 | * EOT PUTS SCAT3 INTO CONTROL MODE * W1I17820
1793 | * W1I17830
05A2 C000 1794 | SEPC3 LD * CHAR = EOT W1I17840
05A3 D156 1795 | STO 1 CMODE-T TURN ON CONTROL MODE W1I17850
05A4 7067 1796 | MDX RESYN BR TO RE-SYNC W1I17860
1797 | * W1I17870
05A5 C137 1798 | EOTN1 LD 1 BUF-T 2-6 W1I17880
05A6 F126 1799 | EOR 1 NAK-T IS BUF = NAK 2-6 W1I17890
05A7 4C20 05ACR 1800 | BSC L NAKN1,Z BRANCH IF NOT NAK 2-6 W1I17900
1801 | * W1I17910
05A9 40AB 1802 | BSI PDCHK GO SET PAD CHECK INDR 2-6 W1I17920
05AA 4818 1803 | BSC +- SKIP IF INVALID PAD 2-6 W1I17930
05AB 7060 1804 | MDX RESYN PAD OK - BR TO RE-SYNC 2-6 W1I17940
1805 | * W1I17950
05AC C137 1806 | NAKN1 LD 1 BUF-T 2-6 W1I17960
05AD F127 1807 | EOR 1 ENQ-T IS BUF = ENQ 2-6 W1I17970
05AE 4C18 060CR 1808 | BSC L RESYN,+- YES, BR TO RE-SYNC W1I17980
1809 | * W1I17990
05B0 F023 1810 | EOR H0B00 IS BUF=ETB W1I18000
05B1 4C18 060CR 1811 | BSC L RESYN,+- YES, BR TO RE-SYNC W1I18010
1812 | * W1I18020
05B3 F132 1813 | EOR 1 H2500-T IS BUF=ETX W1I18030
05B4 4C18 060CR 1814 | BSC L RESYN,+- YES, BR TO RE-SYNC W1I18040
1815 | * W1I18050
05B6 C15C 1816 | LD 1 LSDLE-T W1I18060
05B7 4C18 05C6R 1817 | BSC L ITBQ,+- BR IF LAST CHAR NOT A DLE W1I18070
1818 | * W1I18080
05B9 C137 1819 | LD 1 BUF-T W1I18090
05BA F122 1820 | EOR 1 ACKS-T IS BUF=ACK0 W1I18100
05BB 4C18 060CR 1821 | BSC L RESYN,+- YES, BR TO RE-SYNC W1I18110
1822 | * W1I18120
05BD F134 1823 | EOR 1 H1100-T IS BUF=ACK1 W1I18130
05BE 4C18 060CR 1824 | BSC L RESYN,+- YES, BR TO RE-SYNC W1I18140
1825 | * W1I18150
05C0 F011 1826 | EOR H0A00 IS BUF = WACK 2-6 W1I18160
05C1 4C18 060CR 1827 | BSC L RESYN,+- YES, BR TO RE-SYNC W1I18170
1828 | * W1I18180
05C3 F136 1829 | EOR 1 WARVI-T IS BUF = RVI 2-6 W1I18190
05C4 4C18 060CR 1830 | BSC L RESYN,+- YES,BR TO RE-SYNC 2-6 W1I18200
1831 | *************************************************** W1I18210
1832 | * NOT A TURN-AROUND CHARACTER * W1I18220
1833 | *************************************************** W1I18230
05C6 C137 1834 | ITBQ LD 1 BUF-T W1I18240
05C7 F12A 1835 | EOR 1 ITB-T IS BUF=ITB W1I18250
05C8 4C20 05CCR 1836 | BSC L NOITB,Z NO,BR AROUND ITB SKIP CNT W1I18260
1837 | * W1I18270
1838 | * SKIP 2 CHARACTERS AFTER ITB * W1I18280
1839 | * W1I18290
05CA C102 1840 | LD 1 H0002-T 2-3 W1I18300
05CB D005 1841 | STO ITBSK SET ITB SKIP TO 2 W1I18310
05CC 704C 1842 | NOITB MDX RTIM1 BR TO TURN OFF LSDLE,LSSYN W1I18320
1843 | * W1I18330
1844 | *************************************************** W1I18340
05CD 0000 1845 | NOTME DC 0 ADDRS NOT MEANT FOR ME IND W1I18350
05CE 0000 1846 | LSSYN DC 0 LAST CHAR = SYN IND W1I18360
05CF 0000 1847 | TRNSP DC 0 TRANSPARENT DATA IND W1I18370
05D0 0000 1848 | ADDR DC 0 ADDRS. RCVED IND. W1I18380
05D1 0000 1849 | ITBSK DC 0 ITB SKIP COUNTER W1I18390
0156R 1850 | H1100 EQU DLSOH CONSTANT FOR ACK1 CHECK W1I18400
0157R 1851 | H2F00 EQU STXEQ CONSTANT FOR ENQ CHECK 2-3 W1I18410
05D2 0A00 1852 | H0A00 DC /0A00 CONSTANT FOR EOT CHECK W1I18420
05D3 1200 1853 | H1200 DC /1200 CONSTANT FOR DLE CHECK W1I18430
05D4 0B00 1854 | H0B00 DC /0B00 CONSTANT FOR ETB CHECK W1I18440
0154R 1855 | H2500 EQU ETBTX CONSTANT FOR ETX CHECK W1I18450
1856 | *************************************************** W1I18460
1857 | * W1I18470
1858 | *************************************************** W1I18480
1859 | * CONTROL MODE * W1I18490
1860 | *************************************************** W1I18500
05D5 C137 1861 | CNTRL LD 1 BUF-T W1I18510
05D6 F128 1862 | EOR 1 SOH-T IS BUF = SOH W1I18520
05D7 4C18 0613R 1863 | BSC L CMOFF,+- YES, BR TO TURN OFF CMODE W1I18530
1864 | * W1I18540
05D9 F12C 1865 | EOR 1 ETX-T IS BUF = STX W1I18550
05DA 4C18 0611R 1866 | BSC L CMOF2,+- YES,BR TO TURN OFF CMODE W1I18560
1867 | * W1I18570
05DC F135 1868 | EOR 1 H2F00-T IS BUF = ENQ 2-3 W1I18580
05DD 4C18 062AR 1869 | BSC L CKADR,+- YES, BR TO CHECK ADDRS. W1I18590
1870 | * W1I18600
05DF C0F0 1871 | LD ADDR IS ADDR RCVED IND. ON W1I18610
05E0 4C18 061DR 1872 | BSC L CKPOL,+- NO, BR TO CHECK POLL, SEL. W1I18620
1873 | * W1I18630
05E2 D0EA 1874 | NTME STO NOTME TURN ON NOT ME IND. W1I18640
1875 | *************************************************** W1I18650
1876 | * CHECK FOR TURN-AROUND CHARACTER * W1I18660
1877 | *************************************************** W1I18670
05E3 C137 1878 | LD 1 BUF-T W1I18680
05E4 F126 1879 | EOR 1 NAK-T IS BUF =NAK W1I18690
05E5 4C20 05EBR 1880 | BSC L NAKN2,Z BRANCH IF NOT 2-6 W1I18700
05E7 4400 0555R 1881 | BSI L PDCHK GO SET PAD CHECK INDR 2-6 W1I18710
05E9 4818 1882 | BSC +- SKIP IF INVALID PAD 2-6 W1I18720
05EA 7021 1883 | MDX RESYN PAD OK - BR TO RE-SYNC 2-6 W1I18730
1884 | * W1I18740
05EB C137 1885 | NAKN2 LD 1 BUF-T 2-6 W1I18750
05EC F12D 1886 | EOR 1 EOT-T IS BUF = EOT 2-6 W1I18760
05ED 4C20 05F4R 1887 | BSC L EOTN2,Z BR IF NOT EOT 2-6 W1I18770
05EF 701C 1888 | MDX RESYN ** SKIP EOT PAD CHECK 2-6 W1I18780
05F0 4400 0555R 1889 | BSI L PDCHK GO SET PAD CHECK INDR 2-6 W1I18790
05F2 4818 1890 | BSC +- SKIP IF INVALID PAD 2-6 W1I18800
05F3 7018 1891 | MDX RESYN PAD OK - BR TO RE-SYNC 2-6 W1I18810
1892 | * W1I18820
05F4 C15C 1893 | EOTN2 LD 1 LSDLE-T W1I18830
05F5 4C18 0604R 1894 | BSC L DLEX,+- BR IF LAST CHAR NOT A DLE W1I18840
1895 | * W1I18850
05F7 C137 1896 | LD 1 BUF-T W1I18860
05F8 F122 1897 | EOR 1 ACKS-T IS BUF=ACK0 W1I18870
05F9 4C18 060CR 1898 | BSC L RESYN,+- YES, BR TO RE-SYNC W1I18880
1899 | * W1I18890
05FB F134 1900 | EOR 1 H1100-T IS BUF=ACK1 W1I18900
05FC 4C18 060CR 1901 | BSC L RESYN,+- YES, BR TO RE-SYNC W1I18910
1902 | * W1I18920
05FE F0D3 1903 | EOR H0A00 IS BUF = WACK 2-6 W1I18930
05FF 4C18 060CR 1904 | BSC L RESYN,+- YES, BR TO RE-SYNC W1I18940
1905 | * W1I18950
0601 F136 1906 | EOR 1 WARVI-T IS BUF = RVI 2-6 W1I18960
0602 4C18 060CR 1907 | BSC L RESYN,+- YES,BR TO RE-SYNC 2-6 W1I18970
1908 | * W1I18980
1909 | * NOT A TURN-AROUND CHARACTER * W1I18990
1910 | * W1I19000
0604 C137 1911 | DLEX LD 1 BUF-T W1I19010
0605 F125 1912 | EOR 1 DLE-T IS BUF=DLE W1I19020
1913 | * W1I19030
0606 4C18 0346R 1914 | BSC L WTDL1,+- YES, BR TO TURN ON LSDLE W1I19040
1915 | * W1I19050
0608 1010 1916 | SLA 16 W1I19060
0609 D15C 1917 | STO 1 LSDLE-T TURN OFF LAST CHAR=DLE W1I19070
060A 4C80 0004R 1918 | ILS BSC I INT1 EXIT TO ILS W1I19080
1919 | * W1I19090
1920 | *************************************************** W1I19100
1921 | * DROP CHARACTER PHASE, RE-SYNC * W1I19110
1922 | *************************************************** W1I19120
060C 0906 1923 | RESYN XIO 1 ENDOP-T END OP W1I19130
060D 090E 1924 | XIO 1 STRED-T START READ W1I19140
060E 1010 1925 | SLA 16 W1I19150
060F D0BF 1926 | STO TRNSP TURN OFF TRANSPARENT IND. W1I19160
0610 7004 1927 | MDX CMOP2 BR TO TURN OFF MORE INDRS W1I19170
1928 | * W1I19180
0611 C15C 1929 | CMOF2 LD 1 LSDLE-T IF LAST CHAR = DLE W1I19190
0612 D0BC 1930 | STO TRNSP TURN ON TRANSPARENT IND. W1I19200
1931 | *************************************************** W1I19210
1932 | * TURN OFF CONTROL MODE * W1I19220
1933 | *************************************************** W1I19230
0613 1010 1934 | CMOFF SLA 16 W1I19240
0614 D156 1935 | STO 1 CMODE-T TURN OFF CONTROL MODE IND. W1I19250
0615 D0BB 1936 | CMOP2 STO ITBSK TURN OFF ITB SKIP INDR W1I19260
0616 D0B9 1937 | STO ADDR TURN OFF ADDR RCVED IND. W1I19270
0617 D0B5 1938 | STO NOTME TURN OFF NOT ME IND. W1I19280
0618 0920 1939 | RTIME XIO 1 RETIM-T RESET TIMERS W1I19290
0619 1010 1940 | RTIM1 SLA 16 W1I19300
061A D15C 1941 | STO 1 LSDLE-T TURN OFF LAST CHAR=DLE IND W1I19310
061B D0B2 1942 | STO LSSYN TURN OFF LAST CHAR=SYN IND W1I19320
061C 70ED 1943 | MDX ILS EXIT TO ILS W1I19330
1944 | *************************************************** W1I19340
1945 | * CHECK FOR POLLING, SELECTION ADDRESS* W1I19350
1946 | *************************************************** W1I19360
061D C137 1947 | CKPOL LD 1 BUF-T W1I19370
061E F143 1948 | EOR 1 POLLA-T IS BUF = POLLING ADDRESS W1I19380
061F 4C18 0628R 1949 | BSC L YSPOL,+- YES, BR TO TURN ON ADDRS. W1I19390
1950 | * W1I19400
0621 C137 1951 | LD 1 BUF-T W1I19410
0622 F144 1952 | EOR 1 SELA-T IS BUF=SELECTION ADDRESS W1I19420
0623 4C20 05E2R 1953 | BSC L NTME,Z NO, BR TO CHECK TURNAROUND W1I19430
1954 | * W1I19440
0625 C000 1955 | LD * W1I19450
0626 D0A9 1956 | POLEX STO ADDR SET ADDR NEGATIV FOR SELA W1I19460
0627 70E2 1957 | MDX ILS EXIT TO ILS W1I19470
1958 | * W1I19480
0628 C000 1959 | YSPOL LD * SET ADDR POSITIVE FOR POLL W1I19490
0629 70FC 1960 | MDX POLEX BR TO STORE AND EXIT W1I19500
1961 | *************************************************** W1I19510
1962 | * ENQ JUST RECEIVED * W1I19520
1963 | *************************************************** W1I19530
062A C0A2 1964 | CKADR LD NOTME IF NOT ME IS ON, W1I19540
062B 4C20 060CR 1965 | BSC L RESYN,Z BR TO RE-SYNC W1I19550
1966 | * W1I19560
062D C0A2 1967 | LD ADDR IF ADDR NOT ON, + OR - W1I19570
062E 4C18 060CR 1968 | BSC L RESYN,+- BR TO RE-SYNC W1I19580
1969 | * W1I19590
0630 4C10 063ER 1970 | BSC L ADDRP,- BR TO ADDR IS POSITIVE W1I19600
1971 | *************************************************** W1I19610
1972 | * SELECTION ADDRESS WAS RECEIVED * W1I19620
1973 | *************************************************** W1I19630
0632 7401 0000 1974 | MDX L *-*,+1 ADD 1 TO SELECT IND W1I19640
0633R 1975 | SELI EQU *-1 TELL USER OF SELECTION W1I19650
0634 C163 1976 | LD 1 FCODE-T IF FCODE FOR RECEIVE, W1I19660
0635 4C28 0646R 1977 | BSC L NOTMN,+Z BR TO DISCONTINUE MONITOR W1I19670
1978 | * W1I19680
0637 C000 1979 | LD * W1I19690
0638 D155 1980 | STO 1 XNAK-T TURN ON XMIT NAK IND. W1I19700
0639 D157 1981 | ADDRS STO 1 MNBSY-T SET MONITOR BUSY INDR 2-5 W1I19710
063A 1010 1982 | ADRS1 SLA 16 W1I19720
063B D094 1983 | STO ADDR CLEAR ADDR RCVED IND. W1I19730
063C 4C00 01FFR 1984 | BSC L STWT BR TO START WRITE W1I19740
1985 | *************************************************** W1I19750
1986 | * POLLING ADDRESS WAS RECEIVED * W1I19760
1987 | *************************************************** W1I19770
063E 7401 0000 1988 | ADDRP MDX L *-*,+1 ADD 1 TO POLL IND W1I19780
063FR 1989 | POLLI EQU *-1 TELL USER OF POLLING W1I19790
0640 C163 1990 | LD 1 FCODE-T W1I19800
0641 4C30 0646R 1991 | BSC L NOTMN,-Z BR TO DISCONTINUE MONITOR W1I19810
1992 | * W1I19820
0643 C000 1993 | LD * W1I19830
0644 D154 1994 | STO 1 XEOT-T TURN ON XMIT EOT IND W1I19840
0645 70F3 1995 | MDX ADDRS BR TO CLEAR ADDR AND WRITE W1I19850
1996 | * W1I19860
0646 1010 1997 | NOTMN SLA 16 W1I19870
0647 D162 1998 | STO 1 MONIT-T TURN OFF MONIT IND W1I19880
0648 70F1 1999 | MDX ADRS1 BR TO CLEAR ADDR AND WRITE W1I19890
2000 | *************************************************** W1I19900
SCAT3 - WRITE RESPONSE FOR MONITOR
2002 | *************************************************** W1I19920
2003 | * WRITE RESPONSE FOR MONITOR * W1I19930
2004 | *************************************************** W1I19940
0649 4400 036FR 2005 | MONWT BSI L PADIN GO WRITE PRECEEDING SYNS W1I19950
064B C155 2006 | LD 1 XNAK-T W1I19960
064C 4C18 0349R 2007 | BSC L CLEOT,+- BR IF XMIT-NAK NOT ON W1I19970
2008 | * W1I19980
064E C126 2009 | CLNAK LD 1 NAK-T 2-4 W1I19990
064F D137 2010 | STO 1 BUF-T LOG 2-7 W1I20000
0650 0959*3587 2011 | CALL IOLOG NAK 2-4 W1I20010
0652 091C 2012 | XIO 1 WTBUF-T WRITE NAK 2-7 W1I20015
0653 4400 037ER 2013 | BSI L STPAD 2-4 W1I20020
0655 D155 2014 | STO 1 XNAK-T TURN OFF XMIT-NAK INDR 2-3 W1I20030
0656 D157 2015 | STO 1 MNBSY-T RESET MONITOR BUSY INDR2-5 W1I20040
0657 4C00 037BR 2016 | BSC L STRD BR TO START READ 2-3 W1I20050
2017 | *************************************************** W1I20060
SCAT3 - TIMEOUT FOR MONITOR
2019 | *************************************************** W1I20080
2020 | * TIMEOUT FOR MONITOR * W1I20090
2021 | *************************************************** W1I20100
0659 1010 2022 | MONTM SLA 16 W1I20110
065A D156 2023 | STO 1 CMODE-T TURN OFF CONTROL MODE W1I20120
065B 7401 0198R 2024 | MDX L MONTO,+1 COUNT MONITOR T.O. 2-4 W1I20130
065D 1000 2025 | NOP 2-4 W1I20140
065E 70AD 2026 | MDX RESYN BR TO RE-SYNC, TURN OFF W1I20150
2027 | *************************************************** W1I20160
065F 2028 | END W1I20170
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
$PAUS 00F0 656 655
$PRET 0028 421 419 420
$SCAT 0011 311 178 310
ACK 012CR 505 285 291 293 999 1001 1091 1559 1574 1576 1584 1655 1657
ACKS 0144R 534 284 1820 1897
ADDR 05D0R 1848 1871 1937 1956 1967 1983
ADDRP 063ER 1988 1970
ADDRS 0639R 1981 1995
ADRS1 063AR 1982 1999
ALARM 0033R 163 154
ALOFF 0126R 497 168 499
ALON 0124R 494 165 496
AQ 0008R 120 121 134
B2 03A1R 1210 1229
B3 03A4R 1212 1232
B4 03A7R 1214 1235
B5 03AAR 1216 1238
B6 03ADR 1218 1241
B7 03B0R 1220 1244
B8 03B3R 1222 1247
B9 03B6R 1224 1250
BCC1 017BR 602 934 1334 1487 1491 1511
BCC2 0188R 620 893 973 981 1041
BCCA 017DR 605 989 1015 1019 1207 1224 1337 1492 1497
BCCER 018ER 627 626 1023
BCCR 0163R 572 976 978 988 1014 1039
BCCTM 02DDR 973 877 935
BUF 0159R 562 513 525 704 757 770 795 812 819 841 850 866 887
899 903 940 949 954 977 1037 1063 1172 1205 1319 1326
1342 1347 1378 1384 1416 1424 1443 1478 1494 1498 1516 1558
1586 1589 1613 1625 1696 1746 1762 1779 1785 1798 1806 1819
1834 1861 1878 1885 1896 1911 1947 1951 2010
CALC 039AR 1204 863 870 878 944 953 1225 1413 1428 1479
CKABT 0290R 899 891
CKADR 062AR 1964 1869
CKALT 02F2R 995 1035
CKBCC 02B1R 934 765
CKDL 03F5R 1298 1453
CKDL1 0481R 1453 1469
CKDLE 03F2R 1296 1286
CKEND 0286R 887 957
CKIND 0265R 847 839 864
CKPOL 061DR 1947 1872
CLBSY 0227R 786 1007
CLBY2 0225R 785 1008
CLBY3 0229R 788 695 728 1185
CLBY4 038FR 1185 1194
CLEOT 0349R 1101 1057 2007
CLNAK 064ER 2009 1263
CLOSE 003AR 173 155 174
CMODE 0178R 598 409 1535 1727 1795 1935 2023
CMOF2 0611R 1929 1764 1866
CMOFF 0613R 1934 1863
CMOP2 0615R 1936 1927
CNTRL 05D5R 1861 1728
COUNT 0161R 570 276 804 810 816 911 962 968 1006 1074 1314 1364 1370
1371 1646
D0008 016BR 580 193 218 1520 1545
D2OK 009FR 271 262
D2OK1 008DR 251 239
D2OK2 008FR 253 241
D2OK3 0095R 260 252 256
DLE 0147R 537 521 523 549 796 867 941 955 1095 1299 1348 1417 1444
1626 1912
DLEN1 027ER 873 868
DLEX 0604R 1911 1774 1894
DLNAK 0149R 561 1629
DLNKT 0140R 1524 1662
DLSHX 014ER 560 828
DLSOH 0156R 557 340 826 1850
DLSTX 018AR 622 1361 1404 1411
DRCNT 02DAR 968 963
DRPNT 02D3R 964 961
DSW 015AR 563 654 660 677 696 1281 1436
E0800 030BR 1022 990 993
E1000 0310R 1027 986
EBC 0144R 533
ENDOP 0128R 500 175 195 502 995 1084 1567 1923
ENDWT 04C2R 1529 1260
ENQ 0149R 539 561 771 900 1515 1807
ENQOF 04E5R 1570 1582
ENQWT 04B7R 1515 1304
EOR1 03B9R 1227 1208
EOR2 03BCR 1230 1210
EOR3 03BFR 1233 1212
EOR4 03C2R 1236 1214
EOR5 03C5R 1239 1216
EOR6 03C8R 1242 1218
EOR7 03CBR 1245 1220
EOR8 03CER 1248 1222
EOT 014FR 545 517 1102 1530 1786 1886
EOTCK 04F1R 1584 1560
EOTN1 05A5R 1798 1787 1790
EOTN2 05F4R 1893 1887
EQET 0155R 556 774
ER1 0115R 417 145 245 247 264 266 272
ER11 0116R 418 348
ERP2 0532R 1651 1623
ERRCK 035DR 1128 1028 1120 1133 1141 1188 1651
ERROR 0311R 1028 1025 1124
ERRU 036ER 1142 1129 1138
ETB 014DR 543 888 1477
ETBTX 0154R 555 890 1855
ETX 014ER 544 551 560 1482 1865
EXIT 0015R 132 316 319 426
EXIT1 0016R 133 166 169 185
EXT 00B7R 304 381 413
EXTP2 00B9R 306
FCODE 0185R 617 202 214 222 230 246 265 288 312 323 673 691 711
715 724 736 1181 1536 1976 1990
FIRST 0183R 614 274 767 792 1071 1320 1339
FRST 0413R 1331 1322
GET1 0318R 1037 974
GOMO2 04CAR 1536 783
GOMON 04C8R 1534 1030 1182 1190 1652
GRAPH 050ER 1613 1663
H0001 0170R 585 199 203 333 347 353 396 403 1069 1131 1332 1596
H0002 0124R 496 198 680 754 1711 1840
H0005 0142R 531 379 749 1580
H0007 016CR 581 1135
H0080 016DR 582 1525
H00F0 0126R 499 163
H0100 0130R 512 242 244 257 260 263 1677
H0200 014BR 550 248 1621
H0300 014ER 551 238 251
H0400 016ER 583 1648
H0800 016FR 584 1022
H0A00 05D2R 1852 1826 1903
H0B00 05D4R 1854 1810
H0F00 0128R 502 237
H1000 0147R 549 1027
H1100 0156R 1850 1823 1900
H1200 05D3R 1853 1766
H2000 0171R 586 1119
H2500 0154R 1855 1813
H2F00 0157R 1851 1868
H6FFF 0122R 492 142
H7007 0123R 493 144
H8000 0399R 1197 1187
H8001 016AR 579 346 417
HFF00 0150R 548 336 343 393 400 917 966 1318 1341 1697
ILS 060AR 1918 1943 1957
ILS1 0579R 1739 1758
INT1 0004R 113 720 742 956 1162 1290 1577 1615 1713 1739 1918
INT2 0199R 653 114
INT3 037CR 1162 1099 1159 1170
INT4 0348R 1099 1020 1042
INTX 01FDR 742 751 789 817 836
INTX2 03EDR 1290 1301 1380
INTX3 043FR 1380 1513
INTX4 0566R 1713 1617 1692
IOAR 015DR 566 226 271 332 782 785 1068 1331 1609
ITB 014CR 542 904 1385 1835
ITBBC 0301R 1010 983
ITBCK 0440R 1382 1373
ITBER 0180R 610 992 1016 1017 1082
ITBQ 05C6R 1834 1817
ITBRD 017CR 604 907 982 1011 1075 1388 1505 1508
ITBSK 05D1R 1849 1732 1737 1841 1936
LAST8 04A6R 1497 1488
LDDLE 013CR 523 1398
LDREG 044FR 1398 1414
LGCHK 04CER 1543 1546 1592 1604 1664
LGS 0169R 578 194 1521 1544 1616
LOAD 012AR 503 217 1503
LSDLE 017ER 607 221 802 857 860 937 948 1077 1088 1098 1192 1275 1338
1407 1412 1421 1440 1448 1452 1460 1553 1557 1716 1755 1773
1816 1893 1917 1929 1941
LSSYN 05CER 1846 1752 1757 1761 1942
MASTO 0190R 629 1719
MDX1 002BR 152 143
MESOK 0525R 1635 1682
MESQ3 04E1R 1566 1660
MESSQ 04DER 1563 1611
MISRV 0194R 633 1619
MNBSY 0179R 599 173 189 1107 1981 2015
MONCL 00FFR 392 223
MONIT 0184R 616 286 713 734 1998
MONRD 0570R 1727 712 714
MONTM 0659R 2022 735 738
MONTO 0198R 637 2024
MONWT 0649R 2005 675
NAK 0148R 538 1062 1799 1879 2009
NAKN1 05ACR 1806 1800
NAKN2 05EBR 1885 1880
NAKTM 02ADR 923 912 919 1048
NDLE 0429R 1361 1349
NO50 00C0R 312 307
NOBIN 0271R 860 848
NODLE 0252R 826 797
NOEOT 022BR 791 775
NOFST 025CR 838 768
NOITB 05CCR 1842 1836
NOMES 0483R 1457 1307
NONAK 053ER 1662 1630
NOSKP 057BR 1741 1733
NOSY2 020ER 764 755 759
NOT1 00C9R 323 279
NOTME 05CDR 1845 1874 1938 1964
NOTMN 0646R 1997 1977 1991
NOXM1 007BR 236 231
NOXM2 00C6R 318 313
NRDCH 01CFR 701 698
NTDLE 0277R 866 861
NTEST 0020R 142 127
NTFST 044AR 1393 1321 1327
NTME 05E2R 1874 1953
NTRAN 042AR 1362 1345 1356 1402 1426 1429
NTRCV 00CCR 331 294
NTRDY 038BR 1181 659
NTSYN 0284R 878 874
NWRCH 01AER 671 668
NXTPD 0168R 577 671 1169 1176
OFF 0038R 168 164
OFLOW 0259R 834 806
ONLIN 031ER 1045 852
OTHER 054BR 1675 1587 1607
OTHR3 054ER 1677 1683
OVFLO 0187R 619 835 985 1081
PACK 0167R 576 192 254 258 350 808 814 913 960 1312 1362
PAD 0150R 546 548 1171
PADCK 0181R 611 708 733 1691 1695
PADIN 036FR 1150 1054 1152 1258 2005
PDCHK 0555R 1689 778 1632 1667 1699 1789 1802 1881 1889
PDCK1 0559R 1694 709
POINT 0162R 571 334 335 342 352 354 356 813 821 822 823 915 916
964 965 967 1070 1317 1324 1333 1340 1368
POLEX 0626R 1956 1960
POLLA 0165R 574 394 1948
POLLI 063FR 1989 397
POLY 03D1R 1252 1228 1231 1234 1237 1240 1243 1246 1249
POS 033DR 1088 1060
PROC 000AR 121 106
RCV 00F5R 371 324
RCVRD 0203R 753 717
RCVT 0351R 1114 737
RCVTM 0355R 1117 779 829 1046
RCVWT 0322R 1054 674
RDBUF 01C8R 696 692
RDCNT 0246R 816 824
RDEOT 0220R 781 776 1673
RDEVN 0240R 812 809
RDODD 0249R 819 811
READ 0132R 513 703
READI 01C2R 691 661
REC 0068R 214 207
REC1 0069R 217 204
RECTI 0568R 1715 1708
RESRT 032FR 1068 1122
RESYN 060CR 1923 1539 1796 1804 1808 1811 1814 1821 1824 1827 1830 1883 1888
1891 1898 1901 1904 1907 1965 1968 2026
RET 001ER 139 135
RETIM 0142R 529 412 531 763 788 793 1085 1137 1569 1939
RETRS 018FR 628 1649
RETRY 015CR 565 219 1130 1132 1136 1597
RMCHK 0193R 632 699
ROMQ1 028FR 897 945
ROOMQ 0236R 804 832 871 897 905
RPEAT 02F9R 1002 997
RTBSY 0174R 592 130 187 299 305 694 727 787 1184 1537 1566
RTIM1 0619R 1940 1842
RTIME 0618R 1939 1753 1781
RUPNT 024FR 823 815
RVICD 0152R 552 1608
RVICK 0502R 1602 1591
RVIRD 018CR 624 387 1561 1606 1610 1672
SCAT3 0000R 104
SELA 0166R 575 401 1952
SELI 0633R 1975 404
SENSR 012ER 507 509 653
SEPC2 0546R 1670 1666
SEPC3 05A2R 1794 1788
SETBC 028CR 893 909
SETMN 00B4R 298 289 365
SETPD 032AR 1063 1092
SETPK 0093R 257 243 249
SISRV 0195R 634 1117
SLVTO 0191R 630 1114
SOH 014AR 540 337 1862
STAT 0019R 136 122 422
STDLE 0234R 801 942
STMON 010FR 406 300
STPAD 037ER 1167 1066 1104 1177 1519 1532 2013
STPD1 04BCR 1519 1506
STRD 037BR 1161 1086 1108 1522 2016
STRD1 031DR 1042 969
STRED 0130R 510 411 512 1005 1161 1568 1924
STWT 01FFR 748 772 925 1033 1653 1984
STWT2 04EDR 1579 1564
STX 014BR 541 344 550 851 918 1763
STXEQ 0157R 558 1045 1851
STXIN 0186R 618 800 831 847 1355 1393 1397
STXOF 0257R 831 858
SUBF 015FR 568 261 278 364 371 996
SUPAD 011CR 424 147
SYN 0146R 536 503 519 758 842 950 1157 1288 1425 1614 1747 1780
SYN1 03EFR 1292 1283
SYN2 017FR 608 360 681 753 762 838 846 876 959 1265 1285 1293 1712
SYN5 0164R 573 380 750 1151 1154 1581
SYNC 0134R 515 378 748 1579
SYNC1 00F8R 378 367 388
SYNDL 0153R 554 873
SYNOF 0589R 1760 1748
SYNUP 0281R 876 843
T 0122R 491 124 130 142 144 163 165 168 173 175 176 187 189
191 192 193 194 195 198 199 200 202 203 212 214
217 218 219 221 222 226 228 230 233 237 238 242
244 246 248 251 254 257 258 260 261 263 265 273
274 276 278 284 285 286 288 291 293 299 305 306
309 312 315 323 331 332 333 334 336 337 340 343
344 346 347 350 352 353 354 360 363 364 373 387
396 403 657 671 680 682 685 703 708 733 748 749
750 753 754 757 758 762 763 764 767 770 771 774
787 788 792 793 795 796 800 802 804 805 808 810
812 814 819 826 828 831 835 838 841 842 846 847
850 851 855 857 860 866 867 873 887 888 890 893
895 899 900 903 904 907 913 917 918 924 934 937
940 941 948 949 950 954 955 960 962 966 973 976
977 978 981 982 985 988 989 992 995 996 999 1001
1003 1005 1006 1011 1012 1014 1015 1016 1017 1019 1022 1027
1032 1037 1039 1041 1045 1056 1059 1062 1063 1065 1068 1069
1070 1071 1074 1075 1077 1079 1081 1082 1084 1085 1088 1091
1094 1095 1098 1101 1102 1106 1107 1119 1130 1131 1132 1135
1136 1137 1140 1151 1156 1157 1161 1169 1171 1172 1174 1176
1181 1184 1192 1193 1205 1207 1224 1259 1262 1265 1275 1278
1281 1287 1288 1293 1296 1298 1299 1303 1306 1312 1314 1318
1319 1320 1326 1331 1332 1333 1334 1337 1338 1339 1341 1342
1344 1347 1348 1355 1361 1362 1364 1371 1372 1376 1377 1378
1382 1384 1385 1388 1393 1397 1398 1400 1401 1404 1407 1411
1412 1416 1417 1421 1424 1425 1431 1436 1440 1443 1444 1448
1452 1457 1460 1463 1464 1468 1472 1473 1474 1477 1478 1482
1487 1491 1492 1494 1497 1498 1502 1503 1505 1508 1511 1512
1515 1516 1518 1520 1521 1529 1530 1535 1536 1537 1544 1545
1553 1557 1558 1559 1561 1563 1566 1567 1568 1569 1571 1573
1574 1576 1579 1580 1581 1584 1586 1589 1590 1596 1597 1599
1602 1606 1608 1610 1613 1614 1621 1622 1625 1626 1629 1636
1638 1641 1643 1646 1648 1655 1657 1659 1662 1670 1671 1672
1675 1677 1678 1681 1691 1695 1696 1697 1707 1710 1711 1712
1716 1718 1727 1746 1747 1755 1762 1763 1773 1779 1780 1785
1786 1795 1798 1799 1806 1807 1813 1816 1819 1820 1823 1829
1834 1835 1840 1861 1862 1865 1868 1878 1879 1885 1886 1893
1896 1897 1900 1906 1911 1912 1917 1923 1924 1929 1935 1939
1941 1947 1948 1951 1952 1976 1980 1981 1990 1994 1998 2006
2009 2010 2012 2014 2015 2023
T2 01EDR 730 702 725
TAB4 0172R 588 182
TABCT 018DR 626 424
TBTX 015BR 564 200 212 233 315 1259 1474
TDATA 0593R 1773 1742
TEMP 0007R 119 148 197
TEND 0189R 621 1464 1468 1473
TEST 004BR 187 153 159 188
TEST1 004ER 189 190
TEXTM 0160R 569 363 1344
TIME0 0518R 1621 1721
TIME1 0519R 1622 1600 1679
TIMEI 01E4R 719 663
TIMER 0140R 527 685 1401 1463 1524 1710
TIMEX 0515R 1619 1547 1603 1633 1668
TMNIT 0358R 1119 1116
TMT 00EDR 360 338 345
TMT1 00D9R 342 355
TMT2 00DCR 344 358
TMT3 00E2R 350 341
TMT4 00E9R 356 351
TOIND 0172R 589 1571 1636 1670 1675 1718
TOION 0551R 1681 1676
TRANS 017AR 601 191 682 764 855 895 1012 1079 1193 1296 1382 1400 1431
1457 1472 1707
TRD1 051BR 1625 1554
TRNSP 05CFR 1847 1741 1926 1930
TTDCK 029CR 911 902
TTDCT 0196R 635 920
TTDPA 02A4R 916 914
TURNQ 059AR 1785 1769
UPCNT 0433R 1370 1366
UPPTR 0431R 1368 1363 1365
USERR 012ER 509 228 1139
WACK 0151R 547 1590
WACNT 0197R 636 1594
WACOD 016DR 1525 1599
WARVI 0158R 559 1602 1829 1906
WD17I 018BR 623 176 306 309
WDCNT 015ER 567 273 805 1372
WRACK 0173R 590 1671 1678 1681
WRPAD 0382R 1171 672
WSYN1 03E9R 1287 1294 1297 1438
WTBF 043BR 1377 1383 1386 1480 1495
WTBF2 0439R 1375 1389
WTBUF 013ER 525 1065 1174 1377 1502 1518 2012
WTDL 0342R 1094 1089
WTDL1 0346R 1097 1627 1767 1914
WTDLE 013AR 521 1094 1298
WTEOT 0136R 517 1101 1529
WTEVN 0406R 1317 1313
WTODD 040ER 1324 1315
WTSYN 0138R 519 1156 1287
XBLTX 0067R 213 210
XCODE 0062R 209 201 213
XEND 00FCR 386 234
XEOT 0176R 595 407 1056 1106 1994
XMCHK 0192R 631 669
XMENQ 0175R 593 1303 1573 1622 1641
XMESS 0182R 613 331 1278 1306 1376 1512 1563 1638 1643 1659
XMT 01B8R 679 683 687
XMT1 03FAR 1303 1266 1276 1279
XMT2 0454R 1404 1394
XMT3 046ER 1431 1405
XMT4 0460R 1416 1408
XMT4A 0467R 1424 1418 1432
XMT4B 046BR 1428 1422 1445 1449
XMT5 047FR 1451 1441 1461
XMT6 049DR 1487 1458
XMT7 0490R 1471 1465
XMT8 049BR 1482 1475
XMT84 0497R 1478 1483
XMTRD 04D4R 1553 716
XMTTM 0560R 1707 739
XMTWT 03D2R 1258 679
XNAK 0177R 596 373 924 1003 1032 1059 1262 1980 2006 2014
XR1 001AR 137 104
XR2 001CR 138 123
YSDLE 02BER 947 938
YSPOL 0628R 1959 1949
YSSYN 02CBR 959 951
ZILCH 01FCR 740 730