ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:11 2020
Source File: \w1scat2.asm
SCAT2 PROLOGUE
2 | *************************************************** W1H00020
3 | * TITLE - SCAT2 * W1H00030
4 | * STATUS - CHANGE LEVEL 10 * W1H00040
5 | * FUNCTION/OPERATION - SCAT2 CAN PERFORM THE * W1H00050
6 | * FOLLOWING BINARY SYNCHRONOUS FUNCTIONS IN A * W1H00060
7 | * POINT-TO-POINT ENVIRONMENT * W1H00070
8 | * * W1H00080
9 | * 1. TEST - SCAT2 TESTS A PROGRAMMED DEVICE RTN. * W1H00090
10 | * BUSY INDICATOR .RTBSY. WHEN .RTBSY. * W1H00100
11 | * IS ON, SCAT2 HAS NOT YET COMPLETED * W1H00110
12 | * THE PREVIOUS OPERATION. * W1H00120
13 | * 2. AUTO ANSWER - SCAT2 ENABLES OR DISABLES THE * W1H00130
14 | * AUTO ANSWER INTERRUPT DEPENDING UPON * W1H00140
15 | * THE VALUE OF DIGIT 3 OF THE CONTROL * W1H00150
16 | * PARAMETER, ZERO - ENABLE. * W1H00160
17 | * 3. ALARM - SCAT2 TURNS ON OR OFF THE AUDIBLE * W1H00170
18 | * ALARM DEPENDING UPON THE VALUE OF * W1H00180
19 | * DIGIT 3 OF THE CONTROL PARAMETER, * W1H00190
20 | * ZERO - ON. * W1H00200
21 | * 4. CLOSE - SCAT2 ENDS ALL S.C.A. OPERATIONS AND* W1H00210
22 | * RESETS SOME PROGRAM INDICATORS TO * W1H00220
23 | * THEIR INITIAL CONDITION. * W1H00230
24 | * 5. RECEIVE INITIAL - SCAT2 MONITORS THE LINE * W1H00240
25 | * FOR ENQ, TRANSMITS ACK0, AND RECEIVES* W1H00250
26 | * THE MESSAGE. * W1H00260
27 | * 6. RECEIVE CONTINUE - SCAT2 TRANSMITS THE * W1H00270
28 | * CORRECT POSITIVE ACKNOWLEDGEMENT * W1H00280
29 | * (ACK0 OR ACK1) FOR THE CURRENT * W1H00290
30 | * MESSAGE AND RECEIVES THE NEXT MESSAGE* W1H00300
31 | * 7. RECEIVE REPEAT - SCAT2 TRANSMITS NAK FOR THE* W1H00310
32 | * CURRENT MESSAGE AND RECEIVES THE NEXT* W1H00320
33 | * MESSAGE. * W1H00330
34 | * 8. TRANSMIT INITIAL BLOCK/TEST - SCAT2 TRANSMIT* W1H00340
35 | * ENQ, RECEIVES ACK0, TRANSMITS MESSAGE* W1H00350
36 | * TRANSMITS CRC-16, AND RECEIVES ACK1. * W1H00360
37 | * 9. TRANSMIT CONTINUE BLOCK/TEXT - SCAT2 * W1H00370
38 | * TRANSMITS THE MESSAGE, TRANSMITS THE * W1H00380
39 | * CRC-16, AND RECEIVES ACKNOWLEDGEMENT.* W1H00390
40 | * 10. TRANSMIT INITIAL/CONTINUE TRANSPARENT * W1H00400
41 | * BLOCK/TEXT - SAME FUNCTION AS * W1H00410
42 | * NON-TRANSPARENT, EXCEPT THAT SCAT2 * W1H00420
43 | * SUPPLIES THE END CHARACTERS, * W1H00430
44 | * DLE ETB/DLE ETX. * W1H00440
45 | * 11. TRANSMIT END - SCAT2 TRANSMITS EOT OR * W1H00450
46 | * DLE EOT DEPENDING UPON THE VALUE OF * W1H00460
47 | * DIGIT 2 OF THE CONTROL PARAMETER, * W1H00470
48 | * ZERO - EOT. * W1H00480
49 | * 12. ERROR STATISTICS - SCAT2 MAINTAINS AN 2-3* W1H00490
50 | * 10-WORD LOG OF ERROR STATISTICS. 2-6* W1H00500
51 | * REFER TO SRL FOR COMPLETE 2-3* W1H00510
52 | * DESCRIPTION FORM C26-3706. 2-3* W1H00520
53 | * 13. LOGGING - SCAT2 PROVIDES THE POSSIBILITY2-3* W1H00530
54 | * FOR A USER-WRITTEN PROGRAM TO LOG 2-3* W1H00540
55 | * ALL CHARACTERS RECEIVED OR TRANS- 2-3* W1H00550
56 | * MITTED,TIMEOUTS AND FUNCTION CODE.2-3* W1H00560
57 | * REFER TO SRL FOR COMPLETE 2-3* W1H00570
58 | * DESCRIPTION FORM C26-3706. 2-3* W1H00580
59 | * 14. READ ENQ - SCAT2 MONITORS THE LINE 2-5* W1H00590
60 | * FOR ENQ. 2-5* W1H00600
61 | * 15. ID SEQUENCE - SCAT2 ALLOWS A MAXIMUM NO 2-6* W1H00610
62 | * OF 15 ID CHARACTERS PRECEDING ENQ 2-6* W1H00620
63 | * ACK0 OR NAK ON RECEIVE INITIAL, 2-6* W1H00630
64 | * TRANSMIT INITIAL BLOCK OR TEXT. 2-6* W1H00640
65 | * * W1H00650
66 | * ENTRY POINTS - .SCAT2. CALL ENTRANCE, LIBF SCAT2* W1H00660
67 | * .INT1. INTERRUPT ENTRANCE, BSI * W1H00670
68 | * FROM ILS01 * W1H00680
69 | * INPUT - UNPACKED, LEFT-JUSTIFIED DATA OR * W1H00690
70 | * PACKED DATA. EBCDIC IF 2-4* W1H00700
71 | * NOT TRANSPARENT. REFER TO SRL FOR A * W1H00710
72 | * COMPLETE DESCRIPTION OF THE I/O AREA,* W1H00720
73 | * FORM C26-3706. * W1H00730
74 | * OUTPUT - SAME AS INPUT * W1H00740
75 | * EXTERNAL ROUTINES - IOLOG 2-3* W1H00750
76 | * EXITS-NORMAL - .RET. RETURN TO MAINLINE AT * W1H00760
77 | * LIBF+2, LIBF+3, OR LIBF+4 DEPENDING * W1H00770
78 | * UPON THE FUNCTION * W1H00780
79 | * ERROR - WORD 41-PRE-OPERATIVE ERROR HALT, * W1H00790
80 | * .USERR. BSI TO USERS ERROR ROUTINE * W1H00800
81 | * ON ALL POST-OPERATIVE ERRORS. * W1H00810
82 | * TABLES/WORK AREAS - THE MAJORITY OF CONSTANTS * W1H00820
83 | * AND INDICATORS USED BY SCAT2 FOLLOW * W1H00830
84 | * .T. AND ARE ACCESSED IN REFERENCE * W1H00840
85 | * TO .T. THE EBCDIC CONTROL CHARACTER* W1H00850
86 | * ARE LOCATED IN TABLE .EBC. * W1H00860
87 | * ATTRIBUTES - REUSABLE * W1H00870
88 | * NOTES - SCAT2 IS AN INTERRUPT SERVICE SUBROUTINE* W1H00880
89 | * THE CALLING SEQUENCE IS AS FOLLOWS * W1H00890
90 | * LIBF SCAT2 * W1H00900
91 | * DC /XXXX CONTROL PARAMETER * W1H00910
92 | * DC IOAR I/O AREA ADDRESS * W1H00920
93 | * DC ERROR ERROR RTN. ADDRS. * W1H00930
94 | * REFERENCE DOCUMENTS - * W1H00940
95 | * SRL - IBM 1130 SYNCHRONOUS COMMUNICATIONS * W1H00950
96 | * ADAPTER SUBROUTINES C26-3706 * W1H00960
97 | * PLM - IBM 1130 MONITOR PROGRAMMING SYSTEM * W1H00970
98 | * PROGRAM LOGIC MANUAL * W1H00980
99 | * Y26-3620 * W1H00990
100 | * IBM 1130/1800 PROGRAMMING SYSTEM * W1H01000
101 | * PROGRAM LOGIC MANUAL * W1H01010
102 | * Y26-3752 * W1H01020
103 | *************************************************** W1H01030
**** SCAT2 - CALL PROCESSING ****
105 | LIBR W1H01050
0000 106 | 1130 ISS 08 SCAT2 1 W1H01060
107 | *************************************************** W1H01070
108 | * CALL ENTRANCE FOR BI-SYNC * W1H01080
109 | * POINT-TO-POINT * W1H01090
110 | *************************************************** W1H01100
0000 6917 111 | SCAT2 STX 1 XR1+1 SAVE XR1 (+0) W1H01110
0001 6580 0000 112 | LDX I1 *-* XR1 - LIBF+1 (+2) W1H01120
0003 7003 113 | MDX PROC BR TO PROCESS CALL W1H01130
114 | *************************************************** W1H01140
115 | * INTERRUPT ENTRANCE * W1H01150
116 | * THE INTERRUPT LEVEL SUBROUTINE FOR * W1H01160
117 | * LEVEL 1 WILL DO A BSI TO .INT1. WHEN* W1H01170
118 | * THERE IS AN ADAPTER INTERRUPT. * W1H01180
119 | *************************************************** W1H01190
0004 0000 120 | INT1 DC 0 (+4) W1H01200
0005 4C00 01E7R 121 | BSC L INT2 BR TO PROCESS INTERRUPT W1H01210
122 | *************************************************** W1H01220
123 | * THIS PORTION OF THE SCAT2 SUBROUTINE* W1H01230
124 | * WILL PROCESS THE CALLING SEQUENCE * W1H01240
125 | *************************************************** W1H01250
0007 D82E 126 | PROC STD AQ SAVE A,Q W1H01260
0008 280D 127 | STS STAT STATUS W1H01270
0009 6A10 128 | STX 2 XR2+1 XR2 W1H01280
000A 6600 0160R 129 | LDX L2 T T=BASE ADDRS OF CONSTANTS W1H01290
000C C100 130 | LD 1 0 CONTROL PARAMETER W1H01300
000D 180C 131 | SRA 12 FUNCTION CODE W1H01310
000E 4C20 001DR 132 | BSC L NTEST,Z BR IF NOT TEST FUNCTION W1H01320
133 | * * W1H01330
134 | **** TEST FUNCTION **** W1H01340
0010 C270 135 | LD 2 RTBSY-T ROUTINE BUSY INDICATOR W1H01350
0011 4818 136 | BSC +- SKIP IF BUSY (ON) W1H01360
0012 7101 137 | EXIT MDX 1 +1 NOT BUSY, RETURN TO LIBF+3 W1H01370
0013 7101 138 | MDX 1 +1 BUSY, RETURN TO LIBF+2 W1H01380
0014 C821 139 | LDD AQ RESTORE A,Q W1H01390
0015 6906 140 | STX 1 RET+1 SET UP EXIT BRANCH W1H01400
0016 2000 141 | STAT LDS 0 RESTORE STATUS W1H01410
0017 6500 0000 142 | XR1 LDX L1 *-* XR1 W1H01420
0019 6600 0000 143 | XR2 LDX L2 *-* XR2 W1H01430
001B 4C00 0000 144 | RET BSC L *-* RETURN TO MAINLINE OR 41 W1H01440
145 | *************************************************** W1H01450
001D 8200 146 | NTEST A 2 H6FFF-T SET UP MDX TO FUNCTION W1H01460
001E D008 147 | STO MDX1 TYPE 1-D W1H01470
001F 9202 148 | S 2 H700D-T 2-6 W1H01480
0020 4C10 013DR 149 | BSC L ER1,- BR IF BAD FUNC CODE 2-6 W1H01490
150 | * * W1H01500
0022 D012 151 | STO TEMP SAVE FOR USE AFTER BUSY W1H01510
0023 C100 152 | LD 1 0 PICK UP DIGIT 3 OF CONTROL W1H01520
0024 035D*3587 153 | CALL CPLOG LOG CONTROL PARAMETER 2-3 W1H01530
0026 E206 154 | AND 2 H00F0-T PARA FOR AUTO ANS, ALARM W1H01540
155 | * * W1H01550
0027 70FF 156 | MDX1 MDX MDX1 MODIFIED BY FUNCTION CODE W1H01560
0028 700F 157 | MDX AUTOA AUTO ANSWER CODE 1 W1H01570
0029 7018 158 | MDX ALARM ALARM CODE 2 W1H01580
002A 701D 159 | MDX CLOS CLOSE CODE 3 W1H01590
002B 4838 160 | BSC +-Z RECEIVE CODE 4 W1H01600
002C 4838 161 | BSC +-Z XMIT BLOCK CODE 5 W1H01610
002D 1000 162 | NOP XMIT TEXT CODE 6 W1H01620
002E 7068 163 | MDX TEST XMIT END CODE 7 2-3 W1H01630
002F 705B 164 | MDX SUPD STATISTICS CODE 8 2-5 W1H01640
0030 705C 165 | MDX RENQ READ ENQ CODE 9 2-5 W1H01650
0031 7024 166 | MDX IDCAL ID CALL CODE A 2-6 W1H01660
0032 1000 167 | NOP RCV ID CODE B 2-6 W1H01670
0033 1000 168 | NOP XMIT BL ID CODE C 2-6 W1H01680
0034 703C 169 | MDX IDCL2 XMIT TX ID CODE D 2-6 W1H01690
170 | *************************************************** W1H01700
0035 0000 171 | TEMP DC 0 TEMPORARY FUNCTION CODE W1H01710
0036 172 | AQ BSS E 2 FOR SAVING ACC AND EXT W1H01720
173 | *************************************************** W1H01730
174 | * AUTO ANSWER * W1H01740
175 | *************************************************** W1H01750
0038 4C18 003CR 176 | AUTOA BSC L ENABL,+- BR IF ENABLE REQUESTED W1H01760
003A 0A00 177 | XIO 2 DISAA-T DISABLE AUTO ANSWER 2-3 W1H01770
003B 70D7 178 | EXIT1 MDX EXIT+1 BR TO RESTORE AND EXIT 2-3 W1H01780
179 | * * W1H01790
003C C101 180 | ENABL LD 1 1 W1H01800
003D D237 181 | STO 2 ANS-T SAVE I/O AREA ADDR 2-3 W1H01810
003E 0A02 182 | XIO 2 ENAA-T ENABLE AUTO ANSWER 2-3 W1H01820
003F 71FF 183 | MDX 1 -1 2-4 W1H01830
0040 4C00 00F8R 184 | BSC L EXT2 BR TO SET $SCAT 2-4 W1H01840
185 | *************************************************** W1H01850
186 | * AUDIBLE ALARM * W1H01860
187 | *************************************************** W1H01870
0042 4C20 0046R 188 | ALARM BSC L OFF,Z BR IF OFF REQUESTED W1H01880
0044 0A04 189 | XIO 2 ALON-T TURN ON ALARM 2-3 W1H01890
0045 70F5 190 | MDX EXIT1 BR TO RESTORE AND EXIT 2-3 W1H01900
191 | * * W1H01910
0046 0A06 192 | OFF XIO 2 ALOFF-T TURN OFF ALARM 2-3 W1H01920
0047 70F3 193 | MDX EXIT1 BR TO RESTORE AND EXIT 2-3 W1H01930
194 | *************************************************** W1H01940
195 | * CLOSE - END OPERATION * W1H01950
196 | *************************************************** W1H01960
0048 0A08 197 | CLOS XIO 2 ENDOP-T END SCA OPERATION 2-4 W1H01970
0049 C275 198 | LD 2 WD17I-T IF WD 17 INDR NOT ON 2-4 W1H01980
004A 4C18 004FR 199 | BSC L NODEC,+- DO NOT DECR IOCS CTR W1H01990
004C 74FF 0011 200 | MDX L $SCAT,-1 DECREMENT IOCS CTR 2-4 W1H02000
004E 1000 201 | NOP W1H02010
004F 621C 202 | NODEC LDX 2 28 2-6 W1H02020
0050 1010 203 | SLA 16 W1H02030
0051 D600 01BFR 204 | LOOP1 STO L2 TAB4-1 RESET INDICATORS W1H02040
0053 72FF 205 | MDX 2 -1 W1H02050
0054 70FC 206 | MDX LOOP1 W1H02060
0055 70E5 207 | MDX EXIT1 BR TO RESTORE AND EXIT 2-3 W1H02070
208 | *************************************************** W1H02080
209 | * ID CALL CODE A 2-6* W1H02090
210 | *************************************************** W1H02100
0056 C270 211 | IDCAL LD 2 RTBSY-T 2-6 W1H02110
0057 4C20 0056R 212 | BSC L IDCAL,Z LOOP IF ROUTINE BUSY 2-6 W1H02120
213 | * W1H02130
0059 C101 214 | LD 1 1 GET LOCAL ID ADDR 2-6 W1H02140
005A 8256 215 | A 2 H0001-T 2-6 W1H02150
005B D24B 216 | STO 2 LOCID-T 2-6 W1H02160
005C C580 0001 217 | LD I1 1 GET LOCAL ID LENGTH 2-6 W1H02170
005E 4C28 013AR 218 | BSC L ER3,Z+ BR IF NEG ID LENGTH 2-7 W1H02180
0060 D278 219 | STO 2 LOCLG-T 2-6 W1H02190
0061 925B 220 | S 2 H000F-T IS ID GREATER THAN 15 2-6 W1H02200
0062 4C30 013AR 221 | BSC L ER3,-Z BR IF YES 2-7 W1H02210
222 | * W1H02220
0064 C102 223 | LD 1 2 GET REMOTE ID ADDR 2-6 W1H02230
0065 8256 224 | A 2 H0001-T 2-6 W1H02240
0066 D24C 225 | STO 2 REMID-T 2-6 W1H02250
0067 C580 0002 226 | LD I1 2 GET REMOTE ID LENGTH 2-6 W1H02260
0069 4C28 013AR 227 | BSC L ER3,Z+ BR IF NEG ID LENGTH 2-7 W1H02270
006B D279 228 | STO 2 REMLG-T 2-6 W1H02280
006C 925B 229 | S 2 H000F-T IS ID GREATER THAN 15 2-6 W1H02290
006D 4C30 013AR 230 | BSC L ER3,-Z BR IF YES 2-7 W1H02300
231 | * W1H02310
006F 7101 232 | MDX 1 1 EXIT TO LIBF+4 2-6 W1H02320
0070 70A1 233 | MDX EXIT BR TO EXIT 2-6 W1H02330
234 | *************************************************** W1H02340
235 | * ID CALLS CODE B,C AND D 2-6* W1H02350
236 | *************************************************** W1H02360
0071 C270 237 | IDCL2 LD 2 RTBSY-T 2-6 W1H02370
0072 4C20 0071R 238 | BSC L IDCL2,Z LOOP IF ROUTINE BUSY 2-6 W1H02380
239 | * W1H02390
0074 C100 240 | LD 1 0 CHECK SUBFUNCTION 2-6 W1H02400
0075 E208 241 | AND 2 H0F00-T INITIAL UNPACKED 2-6 W1H02410
0076 4C18 007BR 242 | BSC L OKSUB,+- BR IF YES 2-6 W1H02420
0078 922B 243 | S 2 H0300-T INITIAL PACKED 2-6 W1H02430
0079 4C20 013DR 244 | BSC L ER1,Z BR IF NO 2-6 W1H02440
007B C0B9 245 | OKSUB LD TEMP -3 RCV,-2 XMBL,-1 XMTX 2-6 W1H02450
007C 925C 246 | S 2 H0007-T SUBTRACT SEVEN 2-6 W1H02460
007D D0B7 247 | STO TEMP ADJUST CODE 2-6 W1H02470
007E D27B 248 | STO 2 IDSEQ-T SET ID SEQUENCE INDR 2-6 W1H02480
007F 825D 249 | A 2 H0009-T 2-6 W1H02490
0080 4C28 0087R 250 | BSC L RCVID,Z+ BR IF RECEIVE W/ID 2-6 W1H02500
0082 C24B 251 | LD 2 LOCID-T 2-6 W1H02510
0083 D24D 252 | STO 2 IDPNT-T XM INIT ID POINTER 2-6 W1H02520
0084 C278 253 | LD 2 LOCLG-T 2-6 W1H02530
0085 D27A 254 | SIDCT STO 2 IDCNT-T REC/XM INIT ID LENGTH 2-6 W1H02540
0086 7010 255 | MDX TEST BR TO NORMAL FLOW 2-6 W1H02550
256 | * 2-6 W1H02560
0087 C24C 257 | RCVID LD 2 REMID-T 2-6 W1H02570
0088 D24D 258 | STO 2 IDPNT-T RCV INIT ID POINTER 2-6 W1H02580
0089 C279 259 | LD 2 REMLG-T 2-6 W1H02590
008A 70FA 260 | MDX SIDCT GO SET ID COUNT 2-6 W1H02600
261 | *************************************************** W1H02610
008B 4C00 0144R 262 | SUPD BSC L SUPAD BR TO STATISTICS 2-5 W1H02620
263 | *************************************************** W1H02630
264 | * READ ENQ ONLY 2-5* W1H02640
265 | *************************************************** W1H02650
008D C270 266 | RENQ LD 2 RTBSY-T 2-5 W1H02660
008E 4C20 008DR 267 | BSC L RENQ,Z LOOP IF RTN BUSY 2-5 W1H02670
268 | * * W1H02680
0090 C100 269 | LD 1 0 2-5 W1H02690
0091 1004 270 | SLA 4 2-5 W1H02700
0092 4C20 013DR 271 | BSC L ER1,Z BR IF INVALID CODE 2-5 W1H02710
0094 C25E 272 | LD 2 HFFF6-T LOAD MINUS TEN 2-6 W1H02720
0095 D271 273 | STO 2 RDENQ-T SET READ ENQ INDR 2-5 W1H02730
0096 D09E 274 | STO TEMP ADJUST CODE 2-5 W1H02740
275 | *************************************************** W1H02750
0097 C270 276 | TEST LD 2 RTBSY-T W1H02760
0098 4C20 0097R 277 | BSC L TEST,Z LOOP IF RTN BUSY W1H02770
278 | * * W1H02780
009A D262 279 | STO 2 TRANS-T RESET TRANS 2-4 W1H02790
009B D249 280 | STO 2 PACK-T RESET PACKED DATA INDR 2-4 W1H02800
009C C251 281 | LD 2 D0008-T 2-6 W1H02810
009D D24E 282 | STO 2 LGS-T SET LEAD GRAPHS COUNT 2-6 W1H02820
009E C096 283 | LD TEMP W1H02830
009F 825D 284 | A 2 H0009-T SET UP TBTX AND FCODE 2-6 W1H02840
00A0 D23A 285 | STO 2 TBTX-T ZERO-BLOCK, ONE-TEXT W1H02850
00A1 4C28 00A6R 286 | BSC L REC,+Z BR IF FUNCTION IS RECEIVE W1H02860
00A3 9204 287 | S 2 H0002-T 2-4 W1H02870
00A4 4820 288 | BSC Z BR IF FUNCTION IS XMIT END W1H02880
00A5 1801 289 | SRA 1 MAKE ACCUMULATOR POSITIVE W1H02890
00A6 D23B 290 | REC STO 2 FCODE-T NEG-RCV, ZERO-END, POS- W1H02900
291 | * BLOCK OR TEXT * W1H02910
292 | * * W1H02920
00A7 0A0C 293 | XIO 2 LOAD-T SYN INTO SYNC/IDLE REG 2-3 W1H02930
00A8 C251 294 | LD 2 D0008-T W1H02940
00A9 D23C 295 | STO 2 RETRY-T SET RETRY COUNTER TO 8 W1H02950
00AA 1010 296 | SLA 16 TURN OFF W1H02960
00AB D264 297 | STO 2 LSDLE-T LAST CHAR= DLE INDICATOR W1H02970
00AC C101 298 | LD 1 1 W1H02980
00AD D23D 299 | STO 2 IOAR-T SAVE I/O AREA ADDRESS W1H02990
00AE C102 300 | LD 1 2 W1H03000
00AF D210 301 | STO 2 USERR-T SAVE ERROR RTN ADDR 2-4 W1H03010
302 | * * W1H03020
00B0 C100 303 | LD 1 0 SAVE SUB-FUNCTION CODE W1H03030
00B1 E208 304 | AND 2 H0F00-T NEG -INITIAL 2-4 W1H03040
00B2 922B 305 | S 2 H0300-T 2-4 W1H03050
00B3 4C28 00C2R 306 | BSC L D2OK1,Z+ BR IF CODE LESS THAN 3 2-4 W1H03060
307 | * * W1H03070
00B5 4C08 00C4R 308 | BSC L D2OK2,+ BR IF CODE EQUAL TO 3 2-4 W1H03080
00B7 9212 309 | S 2 H0100-T 2-4 W1H03090
00B8 4C08 00C8R 310 | BSC L SETPK,+ BR IF CODE EQUAL TO 4 2-4 W1H03100
00BA 9212 311 | S 2 H0100-T 2-4 W1H03110
00BB 4C20 013DR 312 | BSC L ER1,Z BR IF CODE GT 5 2-4 W1H03120
00BD C23B 313 | LD 2 FCODE-T 2-4 W1H03130
00BE 4C10 013DR 314 | BSC L ER1,- BR IF FUNC NOT RECEIVE 2-4 W1H03140
00C0 C229 315 | LD 2 H0200-T SET CODE TO READ REPEAT2-4 W1H03150
00C1 7007 316 | MDX SETPK+1 2-4 W1H03160
317 | * * W1H03170
00C2 822B 318 | D2OK1 A 2 H0300-T ADJUST CODE 2-4 W1H03180
00C3 7006 319 | MDX D2OK3 2-4 W1H03190
00C4 C000 320 | D2OK2 LD * SET PACKED DATA 2-4 W1H03200
00C5 D249 321 | STO 2 PACK-T INDR 2-4 W1H03210
00C6 1010 322 | SLA 16 SET CODE TO INITIAL 2-4 W1H03220
00C7 7002 323 | MDX D2OK3 2-4 W1H03230
00C8 8212 324 | SETPK A 2 H0100-T ADJUST CODE 2-4 W1H03240
00C9 D249 325 | STO 2 PACK-T SET PACKED DATA INDR 2-4 W1H03250
326 | * * W1H03260
00CA 9212 327 | D2OK3 S 2 H0100-T ZERO - CONTINUE 2-4 W1H03270
00CB D240 328 | STO 2 SUBF-T POS - REPEAT W1H03280
00CC 4C08 00D4R 329 | BSC L D2OK,+ BR IF CODE IS ZERO OR ONE W1H03290
00CE 9212 330 | S 2 H0100-T 2-4 W1H03300
00CF 4C20 013DR 331 | BSC L ER1,Z BR IF CODE GREATER THAN 2 W1H03310
00D1 C23B 332 | LD 2 FCODE-T W1H03320
00D2 4C10 013DR 333 | BSC L ER1,- BR IF FUNCTION NOT RECEIVE W1H03330
334 | * * W1H03340
00D4 C23B 335 | D2OK LD 2 FCODE-T W1H03350
00D5 4C18 0131R 336 | BSC L XEND,+- BR IF TRANSMIT END W1H03360
337 | *************************************************** W1H03370
338 | * ALL EXCEPT TRANSMIT END * W1H03380
339 | *************************************************** W1H03390
00D7 C271 340 | LD 2 RDENQ-T READ ENQ FUNCTION 2-5 W1H03400
00D8 4C20 00DFR 341 | BSC L SETFT,Z BRANCH IF YES 2-5 W1H03410
00DA C480 019DR 342 | LD I IOAR W1H03420
00DC 4C08 013DR 343 | BSC L ER1,+ BR IF WORD COUNT INVALID W1H03430
00DE D23E 344 | STO 2 WDCNT-T SAVE WORD COUNT W1H03440
00DF D268 345 | SETFT STO 2 FIRST-T TURN ON FIRST CHAR IND 2-5 W1H03450
00E0 1010 346 | SLA 16 2-4 W1H03460
00E1 D243 347 | STO 2 COUNT-T CLEAR COUNT FIELD 2-4 W1H03470
348 | * * W1H03480
00E2 C240 349 | LD 2 SUBF-T W1H03490
00E3 4C10 0101R 350 | BSC L NOT1,- BR IF NOT INITIAL W1H03500
351 | * * W1H03510
352 | *************************************************** W1H03520
353 | * INITIAL * W1H03530
354 | *************************************************** W1H03540
00E5 CA22 355 | LDD 2 ACKS-T INITIALIZE ALTERNATING 2-4 W1H03550
00E6 DA0E 356 | STD 2 ACK-T ACKNOWLEDGEMENTS TO ACK0 W1H03560
00E7 D26D 357 | STO 2 XMENQ-T TURN ON XMIT/MONITOR ENQ W1H03570
358 | * * W1H03580
00E8 C100 359 | LD 1 0 W1H03590
00E9 E07C 360 | AND H00F0 ZERO - MASTER W1H03600
00EA D241 361 | STO 2 SLVMS-T NON-ZERO - SLAVE W1H03610
362 | * * W1H03620
00EB C23B 363 | LD 2 FCODE-T W1H03630
00EC 4C10 0104R 364 | BSC L NTRCV,- BR IF NOT RECEIVE W1H03640
365 | *************************************************** W1H03650
366 | * RECEIVE INITIAL * W1H03660
367 | *************************************************** W1H03670
00EE 0A08 368 | XIO 2 ENDOP-T DROP CHAR PHASE W1H03680
00EF 0A12 369 | XIO 2 STRED-T START READ W1H03690
00F0 0A20 370 | XIO 2 RETIM-T RESET TIMERS W1H03700
00F1 C24F 371 | LD 2 OPTSW-T 2-4 W1H03710
00F2 100E 372 | SLA 14 THIRD TIMER USED 2-4 W1H03720
00F3 4C10 00F6R 373 | BSC L EXT,- BR IF NOT 2-4 W1H03730
374 | * 2-4 W1H03740
00F5 0A0A 375 | XIO 2 TIMER-T START THIRD TIMER 2-4 W1H03750
376 | *************************************************** W1H03760
377 | * EXIT * W1H03770
378 | *************************************************** W1H03780
00F6 C000 379 | EXT LD * W1H03790
00F7 D270 380 | STO 2 RTBSY-T TURN ON ROUTINE BUSY IND. W1H03800
00F8 C275 381 | EXT2 LD 2 WD17I-T IF WD 17 INDR IS ON 2-4 W1H03810
00F9 4C20 00FFR 382 | BSC L NO50,Z DO NOT INCRE IOCS CNT W1H03820
00FB C000 383 | LD * W1H03830
00FC D275 384 | STO 2 WD17I-T TURN ON WD 17 INDR 2-4 W1H03840
00FD 7401 0011 385 | MDX L $SCAT,+1 INCREMENT IOCS CTR 2-4 W1H03850
0011 386 | $SCAT EQU 17 IOCS CTR IS IN WORD 17 2-4 W1H03860
00FF 7102 387 | NO50 MDX 1 +2 SET EXIT TO LIBF+4 2-4 W1H03870
0100 7057 388 | MDX EXIT3 BR TO RESTORE AND EXIT 2-4 W1H03880
389 | *************************************************** W1H03890
390 | * NOT INITIAL * W1H03900
391 | *************************************************** W1H03910
0101 C23B 392 | NOT1 LD 2 FCODE-T 2-4 W1H03920
0102 4C08 012AR 393 | BSC L RCV,+ BR IF FUNCITON IS RECEIVE W1H03930
394 | *************************************************** W1H03940
395 | * TRANSMIT INITIAL AND CONTINUE * W1H03950
396 | * CHECK IF SOH, STX OR 2-3* W1H03960
397 | * DLE STX START CHARS, 2-3* W1H03970
398 | * OTHERWISE PRE-OP ERROR 2-3* W1H03980
399 | *************************************************** W1H03990
0104 D269 400 | NTRCV STO 2 XMESS-T TURN ON XMIT MESSAGE IND. W1H04000
0105 C23D 401 | LD 2 IOAR-T 2-3 W1H04010
0106 8256 402 | A 2 H0001-T 2-3 W1H04020
0107 D244 403 | STO 2 POINT-T 2-3 W1H04030
0108 C480 01A4R 404 | LD I POINT LOAD START CHAR 2-4 W1H04040
010A E22D 405 | AND 2 HFF00-T 2-4 W1H04050
010B F228 406 | EOR 2 SOH-T 2-3 W1H04060
010C 4C18 0125R 407 | BSC L TMT,+- BR IF SOH 2-3 W1H04070
408 | * * W1H04080
010E F234 409 | EOR 2 DLSOH-T 2-3 W1H04090
010F 4C18 011AR 410 | BSC L TMT3,+- BR IF DLE 2-4 W1H04100
0111 C480 01A4R 411 | TMT1 LD I POINT 2-4 W1H04110
0113 E22D 412 | AND 2 HFF00-T 2-4 W1H04120
0114 F229 413 | TMT2 EOR 2 STX-T 2-4 W1H04130
0115 4C18 0125R 414 | BSC L TMT,+- BR IF STX 2-3 W1H04140
0117 C250 415 | LD 2 H8001-T 2-7 W1H04148
0118 8256 416 | A 2 H0001-T GET ERROR /8002 2-7 W1H04149
0119 7024 417 | MDX ER11 GO TO PREOPERATIVE ERR 2-7 W1H04150
418 | * * W1H04160
011A C249 419 | TMT3 LD 2 PACK-T 2-4 W1H04170
011B 4C20 0121R 420 | BSC L TMT4,Z BR IF PACKED DATA 2-4 W1H04180
011D C244 421 | LD 2 POINT-T 2-4 W1H04190
011E 8256 422 | A 2 H0001-T 2-3 W1H04200
011F D244 423 | STO 2 POINT-T 2-3 W1H04210
0120 70F0 424 | MDX TMT1 TEST IF STX 2-3 W1H04220
0121 C480 01A4R 425 | TMT4 LD I POINT 2-4 W1H04230
0123 1008 426 | SLA 8 2-4 W1H04240
0124 70EF 427 | MDX TMT2 2-4 W1H04250
428 | * * W1H04260
0125 D26A 429 | TMT STO 2 SYN2-T TURN OFF SYN INSERT INDR W1H04270
0126 C100 430 | LD 1 0 W1H04280
0127 100C 431 | SLA 12 DIGIT 4 - ZERO-NORMAL W1H04290
0128 D079 432 | STO TEXTM NON-ZERO - TRANSPARENT W1H04300
0129 7003 433 | MDX SYNC1 BR TO BEGIN I/O OPERATION W1H04310
434 | *************************************************** W1H04320
435 | * RECEIVE CONTINUE OR REPEAT * W1H04330
436 | *************************************************** W1H04340
012A C075 437 | RCV LD SUBF SUB-FUNCTION CODE W1H04350
012B 4830 438 | BSC -Z POSITIVE MEANS REPEAT W1H04360
012C D26C 439 | STO 2 XNAK-T TURN ON XMIT NAK IND. W1H04370
440 | *************************************************** W1H04380
441 | * ALL EXCEPT RECEIVE INITIAL * W1H04390
442 | *************************************************** W1H04400
012D 0848 443 | SYNC1 XIO SYNC WRITE WITH TIMEOUTS W1H04410
012E C051 444 | LD H0005 SET UP TO TRANSMIT 5 2-3 W1H04420
012F D076 445 | STO SYN5 SYNS FOR PADDING 2-3 W1H04430
0130 70C5 446 | MDX EXT BR TO SET RTN. BUSY ON W1H04440
447 | * * W1H04450
448 | *************************************************** W1H04460
449 | * TRANSMIT EOT OR DLE EOT * W1H04470
450 | *************************************************** W1H04480
0131 C850 451 | XEND LDD ACKS INITIALIZE ALTERNATING W1H04490
0132 D83B 452 | STD ACK ACKNOWLEDGEMENTS W1H04500
0133 C100 453 | LD 1 0 DIGIT 4 OF CONTROL PARA. W1H04510
0134 100C 454 | SLA 12 CLOSE IF ZERO W1H04520
0135 D071 455 | STO CLOSE DO NOT CLOSE IF NOT ZERO W1H04530
0136 C100 456 | LD 1 0 DIGIT 3 OF CTRL PARAM 2-4 W1H04540
0137 E02E 457 | AND H00F0 READ RESPONSE IF ZERO 2-4 W1H04550
0138 D06F 458 | STO EOTRP 2-4 W1H04560
0139 70F3 459 | MDX SYNC1 BR TO BEGIN I/O OPERATION W1H04570
460 | *************************************************** W1H04580
461 | * PRE-OPERATIVE ERROR * W1H04590
462 | *************************************************** W1H04600
013A C250 463 | ER3 LD 2 H8001-T 2-7 W1H04605
013B 8204 464 | A 2 H0002-T GET ERROR /8003 2-7 W1H04606
013C 7001 465 | MDX ER11 2-7 W1H04607
013D C072 466 | ER1 LD H8001 ERROR IN CALLING SEQUENCE W1H04610
013E 71FF 467 | ER11 MDX 1 -1 W1H04620
013F 6D00 0028 468 | STX L1 $PRET ADDR OF LIBF INTO 40 W1H04630
0141 6129 469 | LDX 1 $PRET+1 SYSTEM HALT IS AT 41 W1H04640
0028 470 | $PRET EQU 40 PRE-OPERATIVE ERROR TRAP W1H04650
0142 4C00 0015R 471 | BSC L STAT-1 BR TO RESTORE AND EXIT W1H04660
472 | *************************************************** W1H04670
473 | * ERROR STATISTICS 2-4* W1H04680
474 | *************************************************** W1H04690
0144 C100 475 | SUPAD LD 1 0 2-4 W1H04700
0145 E208 476 | AND 2 H0F00-T ISOLATE PARAM 2-4 W1H04710
0146 4C20 014DR 477 | BSC L OPTN,Z BR IF OPTIONS DESIRED 2-4 W1H04720
0148 C27C 478 | LD 2 TABCT-T GET STAT TABLE ADDR 2-4 W1H04730
0149 D580 0001 479 | STO I1 +1 PUT IN LOC PER CALL 2-3 W1H04740
014B 4C00 0012R 480 | EXIT2 BSC L EXIT BR TO RESTORE AND EXIT 2-4 W1H04750
481 | *************************************************** W1H04760
482 | * ENABLE/DISABLE OPTIONS * W1H04770
483 | *************************************************** W1H04780
014D 9212 484 | OPTN S 2 H0100-T 2-4 W1H04790
014E 4C18 015AR 485 | BSC L ENAB,+- BR TO ENABLE OPTIONS 2-4 W1H04800
0150 9212 486 | S 2 H0100-T 2-4 W1H04810
0151 4C20 013DR 487 | BSC L ER1,Z BR IF GREATER THAN 2 2-4 W1H04820
0153 C100 488 | LD 1 0 2-4 W1H04830
0154 E25B 489 | AND 2 H000F-T 2-4 W1H04840
0155 E24F 490 | AND 2 OPTSW-T DISABLE 2-4 W1H04850
0156 F24F 491 | EOR 2 OPTSW-T OPTIONS 2-4 W1H04860
0157 D24F 492 | STO 2 OPTSW-T 2-4 W1H04870
0158 4C00 0013R 493 | EXIT3 BSC L EXIT+1 BR TO RESTORE AND EXIT 2-4 W1H04880
494 | * * W1H04890
015A C100 495 | ENAB LD 1 0 2-4 W1H04900
015B E25B 496 | AND 2 H000F-T ENABLE 2-4 W1H04910
015C D24F 497 | STO 2 OPTSW-T OPTIONS 2-4 W1H04920
015D C101 498 | LD 1 1 SAVE OPTIONAL EXIT 2-4 W1H04930
015E D23F 499 | STO 2 OPERR-T ADDRESS 2-4 W1H04940
015F 70EB 500 | MDX EXIT2 2-4 W1H04950
501 | *************************************************** W1H04960
SCAT2 - CALL PROCESSING SUMMARY 2-4
503 | *************************************************** W1H04980
504 | * * W1H04990
505 | * AT THE COMPLETION OF CALL PROCESSING, THE * W1H05000
506 | * FOLLOWING INDICATORS HAVE BEEN SET FOR RECEIVE,* W1H05010
507 | * TRANSMIT T/B, TRANSMIT END * W1H05020
508 | * .FCODE. - NEGATIVE/RECEIVE * W1H05030
509 | * - ZERO/TRANSMIT END * W1H05040
510 | * - POSITIVE/TRANSMIT T/B* W1H05050
511 | * .RETRY. - 8 * W1H05060
512 | * SYNC REG- SYN * W1H05070
513 | * .LSDLE. - ZERO OFF * W1H05080
514 | * .IOAR. - I/O AREA ADDRS * W1H05090
515 | * .USERR. - USER ERROR RTN ADDRS * W1H05100
516 | * .SUBF. - NEGATIVE/INITIAL/EOT * W1H05110
517 | * - ZERO/CONTINUE/DLE EOT* W1H05120
518 | * - POSITIVE/REPEAT * W1H05130
519 | * .RTBSY. - NON-ZERO ON * W1H05140
520 | * FOR ALL, EXCEPT TRANSMIT END * W1H05150
521 | * .WDCNT. - AS SPECIFIED BY USER * W1H05160
522 | * .FIRST. - POSITIVE ON * W1H05170
523 | * .PACK. - ON IF PACKED DATA * W1H05180
524 | * SPECIFIED BY USER * W1H05190
525 | * .IDSEQ. - ON IF ID SEQUENCE * W1H05200
526 | * SPECIFIED BY USER * W1H05210
527 | * FOR ALL INITIAL * W1H05220
528 | * .ACK. - ACK0/ACK1 * W1H05230
529 | * .XMENQ. - NON-ZERO ON * W1H05240
530 | * .SLVMS. - ZERO/MASTER * W1H05250
531 | * - NON-ZERO/SLAVE * W1H05260
532 | * TRANSMIT INITIAL/CONTINUE * W1H05270
533 | * .TBTX. - ZERO/BLOCK * W1H05280
534 | * - ONE/TEXT * W1H05290
535 | * .TEXTM. - ZERO/NORMAL * W1H05300
536 | * - NON-ZERO/TRANSPARENT * W1H05310
537 | * .XMESS. - NON-ZERO ON * W1H05320
538 | * .SYN2. - ZERO OFF * W1H05330
539 | * RECEIVE REPEAT * W1H05340
540 | * .XNAK. - POSITIVE ON * W1H05350
541 | * TRANSMIT END/EOT * W1H05360
542 | * .ACK. - ACK0/ACK1 * W1H05370
543 | * .CLOSE. - ZERO-CLOSE * W1H05380
544 | * - NONZERO-DO NOT CLOSE * W1H05390
545 | * .EOTRP. - ZERO-READ RESPONSE * W1H05400
546 | * - NONZERO-DO NOT READ * W1H05410
547 | * RESPONSE * W1H05420
548 | * RECEIVE ENQ ONLY * W1H05430
549 | * .RDENQ. - ON * W1H05440
550 | * * W1H05450
551 | * AN XIO START READ IS ISSUED FOR RECEIVE * W1H05460
552 | * INITIAL BEFORE RETURN TO LIBF+4. * W1H05470
553 | * * W1H05480
554 | * AN XIO SYNC IS ISSUED FOR ALL OTHER RECEIVE * W1H05490
555 | * OR TRANSMIT FUNCTIONS * W1H05500
556 | * * W1H05510
557 | *************************************************** W1H05520
559 | *************************************************** W1H05540
560 | * CONSTANTS, INDICATORS, TEMPORARY STORAGE * W1H05550
561 | *************************************************** W1H05560
0160 562 | T BSS E 0 START OF IND, CONSTANTS W1H05570
0160 6FFF 563 | DISAA DC /6FFF DISABLE AUTO ANSWER W1H05580
0161 5440 564 | DC /5440 IOCC W1H05590
0160R 565 | H6FFF EQU DISAA FOR MODIFYING MDX W1H05600
0162 700D 566 | ENAA DC /700D ENABLE AUTO ANSWER 2-6 W1H05610
0163 5480 567 | DC /5480 IOCC W1H05620
0162R 568 | H700D EQU ENAA MAXIMUM MDX 2-6 W1H05630
0164 0002 569 | ALON DC /0002 TURN ON ALARM W1H05640
0165 5102 570 | DC /5102 IOCC W1H05650
0164R 571 | H0002 EQU ALON CONSTANT 2 W1H05660
0166 00F0 572 | ALOFF DC /00F0 TURN OFF ALARM W1H05670
0167 5101 573 | DC /5101 IOCC W1H05680
0166R 574 | H00F0 EQU ALOFF TO ISOLATE DIGIT 3 W1H05690
0168 0F00 575 | ENDOP DC /0F00 END OPERATION W1H05700
0169 5404 576 | DC /5404 IOCC W1H05710
0168R 577 | H0F00 EQU ENDOP TO ISOLATE DIGIT 2 W1H05720
016A 1A00 578 | TIMER DC /1A00 START/STOP THIRD TIMER W1H05730
016B 5420 579 | DC /5420 IOCC W1H05740
016C 0184R 580 | LOAD DC SYN LOAD SYN INTO SYNC REG W1H05750
016D 5104 581 | DC /5104 IOCC W1H05760
016E 0000 582 | ACK DC 0 CURRENT ACK W1H05770
016F 0000 583 | DC 0 NEXT ACK W1H05780
0170 0000 584 | SENSR DC 0 SENSE AND RESET DSW W1H05790
0171 5701 585 | DC /5701 IOCC W1H05800
0170R 586 | USERR EQU SENSR USER ERROR RTN. ADDRESS W1H05810
0172 0100 587 | STRED DC /0100 START READ W1H05820
0173 5600 588 | DC /5600 IOCC W1H05830
0172R 589 | H0100 EQU STRED CONSTANT /0100 W1H05840
0174 0198R 590 | READ DC BUF READ W1H05850
0175 5200 591 | DC /5200 IOCC W1H05860
0176 FFFF 592 | SYNC DC /FFFF START WRITE WITH TIMEOUT W1H05870
0177 5410 593 | DC /5410 IOCC W1H05880
0178 0198R 594 | WTBUF DC BUF WRITE CONTENTS OF BUF W1H05890
0179 5100 595 | DC /5100 IOCC W1H05900
017A 0184R 596 | WTSYN DC SYN WRITE SYN CHARACTER W1H05910
017B 5100 597 | DC /5100 IOCC W1H05920
017C 0185R 598 | WTDLE DC DLE WRITE DLE CHARACTER W1H05930
017D 5100 599 | DC /5100 IOCC W1H05940
017E 0185R 600 | LDDLE DC DLE LOAD DLE TO SYNC REG W1H05950
017F 5104 601 | DC /5104 IOCC W1H05960
0180 0005 602 | RETIM DC /0005 RESET TIMER 2-3 W1H05970
0181 5702 603 | DC /5702 IOCC W1H05980
0180R 604 | H0005 EQU RETIM 5 FOR PRECEEDING SYNS 2-3 W1H05990
605 | *************************************************** W1H06000
0182 606 | EBC BSS 0 EBCDIC CONTROL CHARACTERS W1H06010
0182 7000 607 | ACKS DC /7000 INITIALIZED ACK0 W1H06020
0183 6100 608 | DC /6100 ACKNOWLEDGEMENTS ACK1 W1H06030
0184 3200 609 | SYN DC /3200 SYNCHRONOUS IDLE W1H06040
0185 1000 610 | DLE DC /1000 DATA LINK ESCAPE W1H06050
0186 3D00 611 | NAK DC /3D00 NEGATIVE ACKNOWLEDGEMENT W1H06060
0187 2D00 612 | ENQ DC /2D00 ENQUIRY CHARACTER W1H06070
0188 0100 613 | SOH DC /0100 START OF HEADING W1H06080
0189 0200 614 | STX DC /0200 START OF TEXT W1H06090
018A 2600 615 | ETB DC /2600 END OF BLOCK W1H06100
018B 0300 616 | ETX DC /0300 END OF TEXT W1H06110
018C 3700 617 | EOT DC /3700 END OF TRANSMISSION W1H06120
018D FF00 618 | PAD DC /FF00 PAD CHARACTER 2-3 W1H06130
018E 6B00 619 | WACK DC /6B00 WACK 2-6 W1H06140
018F 1F00 620 | ITB DC /1F00 ITB 2-6 W1H06150
018DR 621 | HFF00 EQU PAD 2-3 W1H06160
0185R 622 | H1000 EQU DLE I/O AREA OVERFLOW CODE 2-3 W1H06170
0189R 623 | H0200 EQU STX INVAL CTRL SEQ ERROR 2-3 W1H06180
018BR 624 | H0300 EQU ETX CONSTANT /0300 2-4 W1H06190
0190 FFFE 625 | RVICD DC /FFFE -2 FOR I/O AREA IF RVI 2-6 W1H06200
626 | *************************************************** W1H06210
0191 2200 627 | SYNDL DC /2200 SYN AND DLE EOR W1H06220
0192 2500 628 | ETBTX DC /2500 ETB AND ETX EOR W1H06230
0193 2700 629 | DLEOT DC /2700 DLE AND EOT EOR W1H06240
0194 1100 630 | DLSOH DC /1100 DLE AND SOH EOR 2-3 W1H06250
0195 3500 631 | STXET DC /3500 STX AND EOT EOR W1H06260
0196 1700 632 | WARVI DC /1700 WACK AND RVI EOR 2-6 W1H06270
016AR 633 | EQET EQU TIMER ENQ AND EOT EOR W1H06280
018BR 634 | DLSHX EQU ETX DLE,SOH AND STX EOR 2-3 W1H06290
0197 0000 635 | ANS DC 0 ADDR FOR ANSWER INDICATOR W1H06300
0198 0000 636 | BUF DC 0 BUFFER FOR TRANSMIT/RCV W1H06310
0199 0000 637 | DSW DC 0 SAVED DEVICE STATUS WORD W1H06320
019A 0000 638 | TBTX DC 0 BLOCK OR TEXT W1H06330
019B 0000 639 | FCODE DC 0 RECEIVE, TRANSMIT, OR END W1H06340
019C 0000 640 | RETRY DC 0 RETRY COUNTER W1H06350
019D 0000 641 | IOAR DC 0 I/O AREA ADDRESS W1H06360
019E 0000 642 | WDCNT DC 0 WORD COUNT W1H06370
019F 0000 643 | OPERR DC 0 OPTIONAL EXIT ADDRESS 2-4 W1H06380
01A0 0000 644 | SUBF DC 0 INITIAL, CONTINUE, REPEAT W1H06390
01A1 0000 645 | SLVMS DC 0 SLAVE OR MASTER W1H06400
01A2 0000 646 | TEXTM DC 0 NORMAL OR TRANSPARENT W1H06410
01A3 0000 647 | COUNT DC 0 COUNTER FOR WORDS W1H06420
01A4 0000 648 | POINT DC 0 I/O AREA POINTER W1H06430
01A5 0000 649 | BCCR DC 0 BCC RECEIVED W1H06440
01A6 0000 650 | SYN5 DC 0 NUMBER OF SYNS TO WRITE2-3 W1H06450
01A7 0000 651 | CLOSE DC 0 CLOSE ON EOT INDICATOR W1H06460
01A8 0000 652 | EOTRP DC 0 READ RESPONSE EOT INDR 2-4 W1H06470
01A9 0000 653 | PACK DC 0 PACKED DATA INDR 2-4 W1H06480
01AA 0000 654 | NXTPD DC 0 NEXT CHAR PAD INDR 2-3 W1H06490
01AB 0000 655 | LOCID DC 0 LOCAL ID ADDRESS 2-6 W1H06500
01AC 0000 656 | REMID DC 0 REMOTE ID ADDRESS 2-6 W1H06510
01AD 0000 657 | IDPNT DC 0 ID POINTER 2-6 W1H06520
01AE 0000 658 | LGS DC 0 LEAD GRAPHICS COUNT 2-6 W1H06530
01AF 0000 659 | OPTSW DC 0 OPTIONS INDR 2-4 W1H06540
01B0 8001 660 | H8001 DC /8001 ERR CODE FOR BAD CALL SEQ. W1H06550
01B1 0008 661 | D0008 DC +8 CONSTANT +8 W1H06560
01B2 4000 662 | H4000 DC /4000 CONTENTION ERROR CODE W1H06570
01B3 0800 663 | H0800 DC /0800 BCC ERROR CODE W1H06580
01B4 0400 664 | H0400 DC /0400 NAK RECEIVED ERROR CODE W1H06590
01B5 0080 665 | H0080 DC /0080 WACK RCVD ERROR CODE 2-6 W1H06600
01B6 0001 666 | H0001 DC /0001 CONSTANT 1 FOR INCREMENTS W1H06610
01B7 2000 667 | H2000 DC /2000 TIMEOUT ERROR CODE FOR RCV W1H06620
01B8 2001 668 | H2001 DC /2001 ID ERROR CODE RCV 2-6 W1H06630
01B9 0201 669 | H0201 DC /0201 ID ERROR CODE XMT 2-6 W1H06640
01BA 0020 670 | H0020 DC /0020 ERROR CODE 0020 2-4 W1H06650
01BB 000F 671 | H000F DC /000F ISOLATE DIGIT 4 2-4 W1H06660
01BC 0007 672 | H0007 DC /0007 RETRY COUNT SEVEN 2-6 W1H06670
01BD 0009 673 | H0009 DC /0009 ADJUST CODE CONSTANT 2-6 W1H06680
01BE FFF6 674 | HFFF6 DC /FFF6 -10,ADJUST CODE CONST 2-6 W1H06690
675 | *************************************************** W1H06700
01C0 676 | TAB4 BSS E 0 START OF IND CLEARED BY CLOSE W1H06710
677 | * W1H06720
01C0 0000 678 | TOIND DC 0 TIMEOUT INDR W1H06730
01C1 0000 679 | WRACK DC 0 WRONG ACK INDR W1H06740
680 | * W1H06750
01C2 0000 681 | TRANS DC 0 TRANSPARENT/BCC INDR W1H06760
01C3 0000 682 | BCC1 DC 0 FIRST BCC INDR W1H06770
683 | * W1H06780
01C4 0000 684 | LSDLE DC 0 LAST CHAR DLE INDR W1H06790
01C5 0000 685 | PADCK DC 0 PAD CHECK INDR 2-6 W1H06800
686 | * W1H06810
01C6 0000 687 | BCCA DC 0 BCC ACCUMULATED W1H06820
01C7 0000 688 | ITBRD DC 0 ITB READ/BCC INDR 2-6 W1H06830
689 | * W1H06840
01C8 0000 690 | FIRST DC 0 FIRST CHARACTER INDR W1H06850
01C9 0000 691 | XMESS DC 0 XMIT MESSAGE INDR W1H06860
692 | * W1H06870
01CA 0000 693 | SYN2 DC 0 INSERT 2 SYNS INDR W1H06880
01CB 0000 694 | OVFLO DC 0 IOAR OVERFLOW INDR W1H06890
695 | * W1H06900
01CC 0000 696 | XNAK DC 0 XMIT NAK INDR W1H06910
01CD 0000 697 | XMENQ DC 0 XMIT/MON ENQ INDR W1H06920
698 | * W1H06930
01CE 0000 699 | STXIN DC 0 STX INDR W1H06940
01CF 0000 700 | RIDOK DC 0 REMOTE ID OK INDR 2-6 W1H06950
701 | * W1H06960
01D0 0000 702 | RTBSY DC 0 ROUTINE BUSY INDR W1H06970
01D1 0000 703 | RDENQ DC 0 READ ENQ INDR 2-5 W1H06980
704 | * W1H06990
01D2 0000 705 | BCC2 DC 0 SECOND BCC INDR W1H07000
01D3 0000 706 | TEND DC 0 XMIT ETB/ETX INDR W1H07010
01D4 0000 707 | DLSTX DC 0 DLE STX INDR W1H07020
01D5 0000 708 | WD17I DC 0 SCAT COUNTER 2-4 W1H07030
01D6 0000 709 | RVIRD DC 0 RVI READ INDR 2-6 W1H07040
01D7 0000 710 | ITBER DC 0 ITB BCC ERROR INDR 2-6 W1H07050
01D8 0000 711 | LOCLG DC 0 LOCAL ID LENGTH 2-6 W1H07060
01D9 0000 712 | REMLG DC 0 REMOTE ID LENGTH 2-6 W1H07070
01DA 0000 713 | IDCNT DC 0 ID COUNT 2-6 W1H07080
01DB 0000 714 | IDSEQ DC 0 ID SEQUENCE INDR 2-6 W1H07090
715 | *************************************************** W1H07100
01DC 01DDR 716 | TABCT DC BCCER ERR STATISTICS TBL ADDR2-3 W1H07110
01DD 0000 717 | BCCER DC *-* CRC-16 ERRORS 2-3 W1H07120
01DE 0000 718 | RETRS DC *-* RETRANSMISSION REQUESTS2-3 W1H07130
01DF 0000 719 | MASTO DC *-* MASTER RCV TIME-OUTS 2-3 W1H07140
01E0 0000 720 | SLVTO DC *-* SLAVE RCV TIME-OUTS 2-3 W1H07150
01E1 0000 721 | XMCHK DC *-* TRANSMIT CHECK ERRORS 2-3 W1H07160
01E2 0000 722 | RMCHK DC *-* RECEIVE CHECK ERRORS 2-3 W1H07170
01E3 0000 723 | MISRV DC *-* INVAL SEQ RCVD AS MSTR 2-3 W1H07180
01E4 0000 724 | SISRV DC *-* INVAL SEQ RCVD AS SLAVE2-3 W1H07190
01E5 0000 725 | TTDCT DC *-* TEMP TEXT DELAY RCVD 2-6 W1H07200
01E6 0000 726 | WACNT DC *-* WACKS RECEIVED 2-6 W1H07210
*** SCAT2 - INTERRUPT PROCESSING **
728 | *************************************************** W1H07230
729 | * INTERRUPT PROCESSING * W1H07240
730 | *************************************************** W1H07250
731 | * THE DEVICE STATUS WORD * W1H07260
732 | * BIT 0 - READ RESPONSE * W1H07270
733 | * BIT 1 - WRITE RESPONSE * W1H07280
734 | * BIT 2 - CHECK * W1H07290
735 | * BIT 3 - TIMEOUT * W1H07300
736 | * BIT 4 - AUTO ANSWER REQUEST * W1H07310
737 | * BIT 5 - BUSY * W1H07320
738 | * BIT 6 - ENABLED * W1H07330
739 | * BIT 7 - READY * W1H07340
740 | * BIT 8 - RECEIVE RUN * W1H07350
741 | *************************************************** W1H07360
01E7 0888 742 | INT2 XIO SENSR SENSE AND RESET DSW W1H07370
01E8 D0B0 743 | STO DSW SAVE DSW W1H07380
01E9 D400 00F0 744 | STO L $PAUS SET $PAUS 2-4 W1H07390
00F0 745 | $PAUS EQU 240 $PAUS IS IN WORD 240 2-4 W1H07400
01EB 6500 0160R 746 | LDX L1 T CONSTANT TABLE ADDRESS W1H07410
01ED 1006 747 | SLA 6 IS AUTO ANS ENABLED W1H07420
01EE 4C10 01F4R 748 | BSC L BUSYX,- NO, BR TO CHECK RTN. BUSY W1H07430
01F0 C0A8 749 | LD DSW W1H07440
01F1 1004 750 | SLA 4 W1H07450
01F2 4C28 0241R 751 | BSC L ANSI,+Z BR IF AUTO ANS REQUEST W1H07460
01F4 C0DB 752 | BUSYX LD RTBSY W1H07470
01F5 4C18 0250R 753 | BSC L DSCRD,+- BR TO START READ IF NT BSY W1H07480
01F7 C0A1 754 | LD DSW W1H07490
01F8 1007 755 | SLA 7 CHECK READY BIT W1H07500
01F9 4C10 049CR 756 | BSC L NTRDY,- BR IF NOT READY W1H07510
01FB C09D 757 | LD DSW W1H07520
01FC 4C28 021BR 758 | BSC L READI,+Z BR IF READ RESPONSE W1H07530
01FE 1001 759 | SLA 1 W1H07540
01FF 4C10 0233R 760 | BSC L TIMEI,- BR IF NOT WRITE RESPONSE W1H07550
761 | *************************************************** W1H07560
762 | * WRITE RESPONSE * W1H07570
763 | *************************************************** W1H07580
0201 1001 764 | SLA 1 2-3 W1H07590
0202 4C10 0207R 765 | BSC L NWRCH,- BR IF NO WRITE CHECK 2-3 W1H07600
0204 7401 01E1R 766 | MDX L XMCHK,+1 COUNT CHECK 2-3 W1H07610
0206 1000 767 | NOP 2-3 W1H07620
0207 C14A 768 | NWRCH LD 1 NXTPD-T IS IT PAD TIME 2-4 W1H07630
0208 4C20 044ER 769 | BSC L WRPAD,Z YES, BR TO SEND PAD 2-4 W1H07640
020A C090 770 | LD FCODE W1H07650
020B 4C28 03C4R 771 | BSC L RCVWT,+Z BR IF RECEIVE FUNCTION W1H07660
020D 4C08 0457R 772 | BSC L ENDWT,+ BR IF TRANSMIT END FUNC. W1H07670
773 | * * W1H07680
020F C089 774 | LD DSW W1H07690
0210 1003 775 | SLA 3 CHECK TIMEOUT BIT W1H07700
0211 4C10 04DBR 776 | XMT BSC L XMTWT,- BR IF TRANSMIT, NO TIMEOUT W1H07710
0213 C104 777 | LD 1 H0002-T 2-3 W1H07720
0214 D0B5 778 | STO SYN2 TURN ON INSERT 2 SYN CHARS W1H07730
0215 C162 779 | LD 1 TRANS-T TRANSPARENT TEXT 2-5 W1H07740
0216 4C18 0211R 780 | BSC L XMT,+- BR TO TRANSMIT IF NOT 2-5 W1H07750
781 | * * W1H07760
0218 090A 782 | XIO 1 TIMER-T START TIMER 2-5 W1H07770
0219 1010 783 | SLA 16 2-5 W1H07780
021A 70F6 784 | MDX XMT BR TO TRANSMIT 2-5 W1H07790
785 | *************************************************** W1H07800
786 | * READ RESPONSE * W1H07810
787 | *************************************************** W1H07820
021B 1002 788 | READI SLA 2 2-3 W1H07830
021C 4C10 0221R 789 | BSC L NRDCH,- BR IF NO READ CHECK 2-3 W1H07840
021E 7401 01E2R 790 | MDX L RMCHK,+1 COUNT CHECK 2-3 W1H07850
0220 1000 791 | NOP 2-3 W1H07860
0221 1001 792 | NRDCH SLA 1 2-3 W1H07870
0222 4C28 0236R 793 | BSC L T2,+Z BR IF TIMEOUT ALSO W1H07880
0224 0914 794 | XIO 1 READ-T READ 1 CHAR INTO BUF 2-3 W1H07890
0225 C138 795 | LD 1 BUF-T LOG 2-3 W1H07900
0226 1808 796 | SRA 8 CHARACTER 2-3 W1H07910
0227 0959*3587 797 | CALL IOLOG RECEIVED 2-3 W1H07920
0229 C165 798 | LD 1 PADCK-T 2-6 W1H07930
022A 4C20 06CCR 799 | BSC L PDCK1,Z BR IF PAD CK ON 2-6 W1H07940
022C C13B 800 | LD 1 FCODE-T W1H07950
022D 4C28 025CR 801 | BSC L RCVRD,+Z BR IF RECEIVE FUNCTION W1H07960
022F 4C08 0470R 802 | BSC L ENDRD,+ BR IF TRANSMIT END FUNC. W1H07970
0231 4C00 05FFR 803 | BSC L XMTRD BR FOR TRANSMIT FUNCTION W1H07980
804 | *************************************************** W1H07990
0233 1002 805 | TIMEI SLA 2 W1H08000
0234 4C90 0004R 806 | BSC I INT1,- EXIT IF NOT TIMEOUT W1H08010
807 | *************************************************** W1H08020
808 | * TIMEOUT * W1H08030
809 | *************************************************** W1H08040
0236 C009 810 | T2 LD ZILCH LOG 2-3 W1H08050
0237 0959*3587 811 | CALL IOLOG TIMEOUT 2-3 W1H08060
0239 C13B 812 | LD 1 FCODE-T 2-3 W1H08070
023A 4C28 03F1R 813 | BSC L RCVT,+Z BR IF RECEIVE FUNCTION 2-3 W1H08080
023C 4C08 049FR 814 | BSC L ENDTM,+ BR IF TRANSMIT END FUNC. W1H08090
023E 4C00 06D3R 815 | BSC L XMTTM BR FOR TRANSMIT FUNCTION W1H08100
0240 1111 816 | ZILCH DC /1111 T.O. LOG INDR 2-3 W1H08110
817 | *************************************************** W1H08120
818 | * AUTO ANSWER REQUEST * W1H08130
819 | *************************************************** W1H08140
0241 D480 0197R 820 | ANSI STO I ANS STORE INDICATION FOR USER W1H08150
0243 0900 821 | XIO 1 DISAA-T DISABLE AUTO ANSWER W1H08160
0244 C170 822 | INTX LD 1 RTBSY-T IS OPERATION COMPLETE 2-4 W1H08170
0245 4CA0 0004R 823 | BSC I INT1,Z NO, RETURN TO ILS 2-4 W1H08180
824 | * * W1H08190
0247 C14F 825 | LD 1 OPTSW-T 2-4 W1H08200
0248 100D 826 | SLA 13 EXIT OPTION ACTIVE 2-4 W1H08210
0249 4C90 0004R 827 | BSC I INT1,- NO, EXIT TO ILS 2-4 W1H08220
024B 1010 828 | SLA 16 YES, BR TO ERROR RTN 2-4 W1H08230
024C 4480 019FR 829 | BSI I OPERR WITH ACC=0 2-4 W1H08240
830 | * * W1H08250
024E 4C80 0004R 831 | DCRD2 BSC I INT1 EXIT TO ILS 2-4 W1H08260
0250 0920 832 | DSCRD XIO 1 RETIM-T RESET TIMERS 2-4 W1H08270
0251 70FC 833 | MDX DCRD2 2-4 W1H08280
835 | *************************************************** W1H08300
836 | * READ RESPONSE FOR RECEIVE * W1H08310
837 | *************************************************** W1H08320
0252 D16D 838 | ENQIN STO 1 XMENQ-T TURN OFF MONITOR INDR 2-4 W1H08330
0253 C171 839 | LD 1 RDENQ-T TEST IF READ ENQ ONLY 2-5 W1H08340
0254 4C18 0258R 840 | BSC L STWT,+- BR IF NOT 2-5 W1H08350
0256 C127 841 | LD 1 ENQ-T ENQ TO USERS AREA 2-5 W1H08360
0257 703A 842 | MDX RDEOT GO TURN OP OFF/ON 2-10 W1H08370
843 | * * W1H08380
0258 0916 844 | STWT XIO 1 SYNC-T START WRITE WITH TIMER W1H08390
0259 C120 845 | LD 1 H0005-T SET UP TO TRANSMIT 5 2-3 W1H08400
025A D146 846 | STO 1 SYN5-T SYNS FOR PADDING 2-4 W1H08410
025B 70E8 847 | MDX INTX EXIT TO ILS W1H08420
848 | *************************************************** W1H08430
025C C16A 849 | RCVRD LD 1 SYN2-T CHECK 2 SYNS RECEIVED IND W1H08440
025D 9104 850 | S 1 H0002-T W1H08450
025E 4C28 0267R 851 | BSC L NOSY2,+Z BR IF SYN2 LESS THAN 2 W1H08460
852 | * * W1H08470
0260 C138 853 | LD 1 BUF-T W1H08480
0261 F124 854 | EOR 1 SYN-T W1H08490
0262 4C18 0267R 855 | BSC L NOSY2,+- BR IF CHAR IS A SYN W1H08500
856 | * * W1H08510
0264 1010 857 | SLA 16 W1H08520
0265 D16A 858 | STO 1 SYN2-T TURN OFF 2 SYNS RCVED IND W1H08530
0266 0920 859 | XIO 1 RETIM-T RESET TIMER W1H08540
0267 C162 860 | NOSY2 LD 1 TRANS-T W1H08550
0268 4C20 0352R 861 | BSC L CKBCC,Z BR IF TRANS MODE OR BCC TM W1H08560
862 | * * W1H08570
026A C168 863 | LD 1 FIRST-T W1H08580
026B 4C18 02DFR 864 | BSC L NOFST,+- BR IF NOT FIRST CHARACTER W1H08590
865 | * * W1H08600
026D C138 866 | LD 1 BUF-T W1H08610
026E F127 867 | EOR 1 ENQ-T W1H08620
026F 4C20 0288R 868 | BSC L NTENQ,Z BR IF NOT ENQ 2-6 W1H08630
869 | * * W1H08640
0271 C17B 870 | LD 1 IDSEQ-T REMOTE ID SPECIFIED 2-6 W1H08650
0272 4C18 0252R 871 | BSC L ENQIN,+- BRANCH IF NOT 2-6 W1H08660
0274 C17A 872 | LD 1 IDCNT-T ALL IDS RECEIVED 2-6 W1H08670
0275 4C20 027FR 873 | BSC L ID3,Z BR IF NO 2-6 W1H08680
0277 C14B 874 | LD 1 LOCID-T INITLZ LOCAL ID ADDR 2-6 W1H08690
0278 D14D 875 | STO 1 IDPNT-T 2-6 W1H08700
0279 C178 876 | LD 1 LOCLG-T INITLZ LOCAL ID LENGTH 2-6 W1H08710
027A D17A 877 | STO 1 IDCNT-T 2-6 W1H08720
027B C000 878 | LD * 2-6 W1H08730
027C D16F 879 | ID32 STO 1 RIDOK-T TURN ON/OFF REMOT ID OK2-6 W1H08740
027D 1010 880 | SLA 16 2-6 W1H08750
027E 70D3 881 | MDX ENQIN 2-6 W1H08760
882 | * * W1H08770
027F F179 883 | ID3 EOR 1 REMLG-T ONLY ENQ RECEIVED 2-6 W1H08780
0280 4C20 0410R 884 | BSC L RCVTM,Z BR IF NO 2-6 W1H08790
0282 C16F 885 | LD 1 RIDOK-T REM ID READ OK BEFORE 2-6 W1H08800
0283 4C18 0410R 886 | BSC L RCVTM,+- BR IF NO 2-6 W1H08810
0285 1010 887 | SLA 16 2-6 W1H08820
0286 D17B 888 | STO 1 IDSEQ-T TURN OFF ID INDR 2-6 W1H08830
0287 70F4 889 | MDX ID32 GO TURN OFF RIDOK 2-6 W1H08840
890 | * * W1H08850
0288 F10A 891 | NTENQ EOR 1 EQET-T W1H08860
0289 4C20 02A0R 892 | BSC L NOEOT,Z BR IF CHAR NOT AN EOT W1H08870
028B 4400 06C8R 893 | BSI L PDCHK SET UP FOR PAD CK 2-6 W1H08880
028D 4C20 0410R 894 | BSC L RCVTM,Z BR IF INVALID PAD 2-6 W1H08890
895 | * W1H08900
028F C171 896 | LD 1 RDENQ-T TEST IF READ ENQ ONLY 2-5 W1H08910
0290 4820 897 | BSC Z SKIP IF NOT,0 TO USER 2-10 W1H08920
0291 C12C 898 | LD 1 EOT-T EOT TO USERS AREA 2-5 W1H08930
899 | * * W1H08950
0292 D480 019DR 900 | RDEOT STO I IOAR STO BEFORE XIO 2-10 W1H08960
0294 0908 901 | LABX1 XIO 1 ENDOP-T TURN OP OFF 2-9 W1H08965
0295 0912 902 | XIO 1 STRED-T RESTART READ 2-9 W1H08966
0296 7002 903 | MDX BY2 (XIO DESTROYS ACC) 2-10 W1H08968
0297 D480 019DR 904 | CLBY2 STO I IOAR SET USERS WORD COUNT W1H08970
0299 10A0 905 | BY2 SLT 32 2-10 W1H08980
029A D17B 906 | STO 1 IDSEQ-T TURN OFF ID INDR 2-6 W1H08990
029B D16F 907 | STO 1 RIDOK-T REMOTE ID OK 2-6 W1H09000
908 | * * W1H09010
029C 10A0 909 | CLBSY SLT 32 2-6 W1H09020
029D D970 910 | STD 1 RTBSY-T RESET ROUTINE BUSY IND 2-6 W1H09030
911 | * RDENQ READ ENQ INDR 2-6 W1H09040
029E 0920 912 | CLBY3 XIO 1 RETIM-T RESET TIMERS 2-5 W1H09050
029F 70A4 913 | INTX6 MDX INTX EXIT TO ILS W1H09060
914 | *************************************************** W1H09070
02A0 0920 915 | NOEOT XIO 1 RETIM-T RESET TIMER W1H09080
916 | * * W1H09090
02A1 C138 917 | LD 1 BUF-T W1H09100
02A2 F125 918 | EOR 1 DLE-T W1H09110
02A3 4C20 02C9R 919 | BSC L NODLE,Z BR IF NOT A DLE W1H09120
02A5 D168 920 | STO 1 FIRST-T TURN OFF 1ST CHAR INDR 2-6 W1H09130
921 | * * W1H09140
02A6 C000 922 | LD * A DLE WAS RECEIVED W1H09150
02A7 D16E 923 | STO 1 STXIN-T TURN ON STX INDICATOR W1H09160
02A8 C000 924 | STDLE LD * W1H09170
02A9 D164 925 | STO 1 LSDLE-T TURN ON LAST CHAR = DLE W1H09180
02AA C171 926 | LD 1 RDENQ-T READ ENQ FUNCTION 2-5 W1H09190
02AB 4C20 0244R 927 | BSC L INTX,Z YES - EXIT TO ILS 2-5 W1H09200
928 | * * W1H09210
02AD C143 929 | ROOMQ LD 1 COUNT-T IS THERE ROOM IN I/O AREA W1H09220
02AE F13E 930 | EOR 1 WDCNT-T W1H09230
02AF 4C18 02DCR 931 | BSC L OFLOW,+- BR IF NO ROOM W1H09240
932 | * * W1H09250
02B1 C149 933 | LD 1 PACK-T 2-4 W1H09260
02B2 4C18 02B7R 934 | BSC L RDEVN,+- BR IF DATA UNPACKED 2-4 W1H09270
02B4 C143 935 | LD 1 COUNT-T CHECK CHARACTER COUNT 2-4 W1H09280
02B5 4C04 02C0R 936 | BSC L RDODD,E IF ODD,SHIFT CHAR 2-4 W1H09290
02B7 C138 937 | RDEVN LD 1 BUF-T 2-4 W1H09300
02B8 D480 01A4R 938 | STO I POINT STORE CHAR IN I/O AREA 2-4 W1H09310
02BA C149 939 | LD 1 PACK-T 2-4 W1H09320
02BB 4C18 02C6R 940 | BSC L RUPNT,+- BR IF DATA UNPACKED 2-4 W1H09330
02BD 7401 01A3R 941 | RDCNT MDX L COUNT,+1 UP CHARACTER COUNT 2-4 W1H09340
02BF 7084 942 | MDX INTX EXIT TO ILS 2-4 W1H09350
943 | * * W1H09360
02C0 C138 944 | RDODD LD 1 BUF-T 2-4 W1H09370
02C1 1808 945 | SRA 8 SHIFT CHAR 2-4 W1H09380
02C2 EC80 01A4R 946 | OR I POINT OR IN FIRST CHAR 2-4 W1H09390
02C4 D480 01A4R 947 | STO I POINT STORE CHAR IN I/O AREA 2-4 W1H09400
02C6 7401 01A4R 948 | RUPNT MDX L POINT,+1 UP I/O AREA POINTER 2-4 W1H09410
02C8 70F4 949 | MDX RDCNT 2-4 W1H09420
950 | *************************************************** W1H09430
02C9 C16D 951 | NODLE LD 1 XMENQ-T W1H09440
02CA 4C18 02D1R 952 | BSC L ENQRD,+- BR IF ENQ RCVD 2-6 W1H09450
02CC C17B 953 | RMON LD 1 IDSEQ-T REMOTE ID SPECIFIED 2-6 W1H09460
02CD 4420 05DDR 954 | BSI L RREID,Z YES - GO REC REMOTE ID 2-6 W1H09470
02CF 4C00 0410R 955 | RMON2 BSC L RCVTM ID ERROR 2-6 W1H09480
956 | * * W1H09490
02D1 C138 957 | ENQRD LD 1 BUF-T W1H09500
02D2 F128 958 | EOR 1 SOH-T IS BUF = SOH W1H09510
02D3 4820 959 | BSC Z SKIP IF BUF = SOH W1H09520
02D4 F12B 960 | EOR 1 DLSHX-T W1H09530
02D5 4C20 02CCR 961 | BSC L RMON,Z BR IF NOT STX OR SOH 2-6 W1H09540
962 | * * W1H09550
02D7 10A0 963 | STXOF SLT 32 2-6 W1H09560
02D8 D96E 964 | STD 1 STXIN-T RESET STX INDR 2-6 W1H09570
965 | * RIDOK REMOTE ID OK IND 2-6 W1H09580
02D9 D168 966 | STO 1 FIRST-T 1ST CHAR INDR 2-6 W1H09590
02DA D17B 967 | STO 1 IDSEQ-T TURN OFF ID INDR 2-6 W1H09600
02DB 70D1 968 | ROMQ2 MDX ROOMQ BR TO STORE IN I/O AREA W1H09610
969 | * * W1H09620
02DC C000 970 | OFLOW LD * W1H09630
02DD D16B 971 | STO 1 OVFLO-T TURN ON OVERFLOW IND. W1H09640
02DE 70C0 972 | INTX1 MDX INTX6 EXIT TO ILS W1H09650
973 | *************************************************** W1H09660
02DF C16A 974 | NOFST LD 1 SYN2-T W1H09670
02E0 4C08 02E8R 975 | BSC L CKIND,+ BR IF LAST CHAR NOT SYN W1H09680
976 | * * W1H09690
02E2 C138 977 | LD 1 BUF-T W1H09700
02E3 F124 978 | EOR 1 SYN-T IF BUF=SYN W1H09710
02E4 4C18 0321R 979 | BSC L SYNUP,+- BR TO INCRE 2 SYN IND. W1H09720
980 | * * W1H09730
02E6 1010 981 | SLA 16 W1H09740
02E7 D16A 982 | STO 1 SYN2-T TURN OFF 2 SYN INDICATOR W1H09750
02E8 C16E 983 | CKIND LD 1 STXIN-T W1H09760
02E9 4C18 0311R 984 | BSC L NOBIN,+- BR IF STX IND NOT ON W1H09770
985 | * * W1H09780
02EB C138 986 | CKIN3 LD 1 BUF-T W1H09790
02EC F129 987 | EOR 1 STX-T W1H09800
02ED 4C20 02F7R 988 | BSC L ONLIN,Z BR IF CHAR NOT AN STX W1H09810
989 | * * W1H09820
02EF C16D 990 | LD 1 XMENQ-T W1H09830
02F0 4C20 0410R 991 | BSC L RCVTM,Z BR DECRE RETRY IF INITIAL W1H09840
992 | * W1H09850
02F2 C000 993 | LD * TURN ON TRANSPARENT W1H09860
02F3 D162 994 | STO 1 TRANS-T MODE INDICATOR W1H09870
02F4 1010 995 | DLOFF SLA 16 2-4 W1H09880
02F5 D164 996 | STO 1 LSDLE-T TURN OFF LAST CHAR=DLE IND W1H09890
02F6 70E0 997 | MDX STXOF BR TO TURN OFF STX IND. W1H09900
998 | * * W1H09910
02F7 F135 999 | ONLIN EOR 1 STXET-T W1H09920
02F8 4C20 03C0R 1000 | BSC L TERMT,Z BR IF BUF NOT EOT W1H09930
1001 | * * W1H09940
02FA C171 1002 | LD 1 RDENQ-T 2-5 W1H09950
02FB 4C20 0301R 1003 | BSC L DISCO,Z BR IF READ ENQ FUNC 2-5 W1H09960
02FD C143 1004 | LD 1 COUNT-T 2-4 W1H09970
02FE 9156 1005 | S 1 H0001-T 2-4 W1H09980
02FF 4C20 02F4R 1006 | BSC L DLOFF,Z BR IF DLE EOT IN MSG 2-4 W1H09990
1007 | * * W1H10000
0301 C116 1008 | DISCO LD 1 SYNC-T DISCONNECT SIGNAL RECEIVED W1H10010
0302 D480 019DR 1009 | STO I IOAR /FFFF IN FIRST WD OF I/O W1H10020
0304 0908 1010 | DISC XIO 1 ENDOP-T END SCA OPERATION 2-6 W1H10030
1011 | * * W1H10040
0305 74FF 0011 1012 | MDX L $SCAT,-1 DECREMENT IOCS CTR 2-4 W1H10050
0307 1000 1013 | NOP W1H10060
0308 611C 1014 | LDX 1 28 2-6 W1H10070
0309 1010 1015 | SLA 16 RESET INDICATORS W1H10080
030A D500 01BFR 1016 | LOOP2 STO L1 TAB4-1 W1H10090
030C 71FF 1017 | MDX 1 -1 W1H10100
030D 70FC 1018 | MDX LOOP2 W1H10110
030E 6500 0160R 1019 | LDX L1 T CONSTANT TABLE ADDRESS 2-4 W1H10120
0310 70CD 1020 | MDX INTX1 EXIT TO ILS W1H10130
1021 | * * W1H10140
0311 C164 1022 | NOBIN LD 1 LSDLE-T W1H10150
0312 4C18 0317R 1023 | BSC L NTDLE,+- BR IF LAST CHAR NOT A DLE W1H10160
1024 | * * W1H10170
0314 4400 04A3R 1025 | BSI L CALC GO CALCULATE BCC W1H10180
0316 70D4 1026 | MDX CKIN3 BR TO CHECK FOR STX W1H10190
1027 | * * W1H10200
0317 C138 1028 | NTDLE LD 1 BUF-T W1H10210
0318 F125 1029 | EOR 1 DLE-T W1H10220
0319 4C20 031ER 1030 | BSC L DLEN1,Z BR IF NOT A DLE W1H10230
1031 | * W1H10240
031B 4400 04A3R 1032 | BSI L CALC CALCULATE BCC W1H10250
031D 708A 1033 | MDX STDLE BR TO TURN ON LSDLE 2-5 W1H10260
1034 | * * W1H10270
031E F131 1035 | DLEN1 EOR 1 SYNDL-T W1H10280
031F 4C20 0325R 1036 | BSC L NTSYN,Z BR IF CHAR NOT A SYN W1H10290
1037 | * * W1H10300
0321 7401 01CAR 1038 | SYNUP MDX L SYN2,+1 UP 2 SYN INDICATOR W1H10310
0323 4C80 0004R 1039 | BSC I INT1 EXIT TO ILS W1H10320
0325 4400 04A3R 1040 | NTSYN BSI L CALC GO CALCULATE BCC W1H10330
1041 | *************************************************** W1H10340
1042 | * .CKEND. - CHECK FOR END * W1H10350
1043 | * CHARACTER, ETB OR ETX * W1H10360
1044 | * IF CHARACTER IS AN ETB OR* W1H10370
1045 | * ETX, SET INDICATORS TO * W1H10380
1046 | * RECEIVE BCC CHARACTERS * W1H10390
1047 | * NEXT * W1H10400
1048 | *************************************************** W1H10410
0327 C138 1049 | CKEND LD 1 BUF-T W1H10420
0328 F12A 1050 | EOR 1 ETB-T W1H10430
0329 4820 1051 | BSC Z SKIP IF CHAR IS AN ETB W1H10440
032A F132 1052 | EOR 1 ETBTX-T W1H10450
032B 4C20 0331R 1053 | BSC L CKABT,Z BR IF NOT ETB OR ETX W1H10460
1054 | * * W1H10470
032D D172 1055 | SETBC STO 1 BCC2-T RESET BCC2 INDR W1H10480
032E C800 1056 | LDD * 2-6 W1H10490
032F D962 1057 | STD 1 TRANS-T TURN ON TRANSPAR MODE 2-6 W1H10500
1058 | * BCC1 BCC TIME INDR 2-6 W1H10510
0330 70AA 1059 | ROMQ1 MDX ROMQ2 BR TO PUT CHAR IN I/O AREA W1H10520
1060 | * W1H10530
0331 C138 1061 | CKABT LD 1 BUF-T W1H10540
0332 F127 1062 | EOR 1 ENQ-T ABORT RECORD ON ENQ W1H10550
0333 4C18 033DR 1063 | BSC L TTDCK,+- BR TO CHECK FOR TTD 2-6 W1H10560
0335 C138 1064 | LD 1 BUF-T 2-6 W1H10570
0336 F12F 1065 | EOR 1 ITB-T BUF = ITB 2-6 W1H10580
0337 4C20 02ADR 1066 | BSC L ROOMQ,Z BR IF NOT ITB 2-6 W1H10590
0339 C000 1067 | LD * 2-6 W1H10600
033A D167 1068 | STO 1 ITBRD-T SET ITB READ INDR 2-6 W1H10610
033B 1010 1069 | SLA 16 2-6 W1H10620
033C 70F0 1070 | MDX SETBC 2-6 W1H10630
1071 | * 2-6 W1H10640
033D 74FF 01A3R 1072 | TTDCK MDX L COUNT,-1 MORE THAN ONE CHAR 2-6 W1H10650
033F 700E 1073 | MDX NAKTM ALREADY RCVD-YES,BR 2-6 W1H10660
0340 C149 1074 | LD 1 PACK-T PACKED DATA 2-6 W1H10670
0341 4C20 0345R 1075 | BSC L TTDPA,Z YES-BRANCH 2-6 W1H10680
0343 74FF 01A4R 1076 | MDX L POINT,-1 NO-BACKDATE POINTER 2-6 W1H10690
0345 C480 01A4R 1077 | TTDPA LD I POINT GET 1ST CHAR 2-6 W1H10700
0347 E12D 1078 | AND 1 HFF00-T MASK OUT 2ND CHAR 2-6 W1H10710
0348 F129 1079 | EOR 1 STX-T WAS IT STX 2-6 W1H10720
0349 4C20 034ER 1080 | BSC L NAKTM,Z NO,BRANCH 2-6 W1H10730
034B 7401 01E5R 1081 | MDX L TTDCT,1 YES,INCR TTD RCVD 2-6 W1H10740
034D 1000 1082 | NOP 2-6 W1H10750
1083 | * W1H10760
034E C000 1084 | NAKTM LD * W1H10770
034F D16C 1085 | STO 1 XNAK-T TURN ON TRANSMIT NAK IND. W1H10780
0350 4C00 0258R 1086 | BSC L STWT BR TO START WRITE W1H10790
1087 | *************************************************** W1H10800
1088 | * .CKBCC. - IF BCC1 IS ON, * W1H10810
1089 | * SCAT2 IS EXPECTING TO * W1H10820
1090 | * RECEIVE THE BCC CHARACTER* W1H10830
1091 | * OTHERWISE, SCAT2 IS STILL* W1H10840
1092 | * RECEIVING TRANSPARENT * W1H10850
1093 | * DATA * W1H10860
1094 | *************************************************** W1H10870
0352 C163 1095 | CKBCC LD 1 BCC1-T W1H10880
0353 4C20 037ER 1096 | BSC L BCCTM,Z BR IF TIME TO CHECK BCC W1H10890
1097 | * * W1H10900
0355 C164 1098 | LD 1 LSDLE-T W1H10910
0356 4C20 035FR 1099 | BSC L YSDLE,Z BR IF LAST CHAR WAS A DLE W1H10920
1100 | * * W1H10930
0358 C138 1101 | LD 1 BUF-T W1H10940
0359 F125 1102 | EOR 1 DLE-T W1H10950
035A 4C18 02A8R 1103 | BSC L STDLE,+- BR IF CHAR IS A DLE 2-5 W1H10960
1104 | * * W1H10970
035C 4400 04A3R 1105 | BSI L CALC GO CALCULATE BCC W1H10980
035E 70D1 1106 | MDX ROMQ1 BR TO PUT CHAR IN I/O AREA W1H10990
1107 | * * W1H11000
035F 1010 1108 | YSDLE SLA 16 W1H11010
0360 D164 1109 | STO 1 LSDLE-T TURN OFF LAST CHAR=DLE IND W1H11020
0361 C138 1110 | LD 1 BUF-T W1H11030
0362 F124 1111 | EOR 1 SYN-T W1H11040
0363 4C18 036CR 1112 | BSC L YSSYN,+- BR IF CHAR IS A SYN W1H11050
1113 | * * W1H11060
0365 4400 04A3R 1114 | BSI L CALC GO CALCULATE BCC W1H11070
0367 C138 1115 | LD 1 BUF-T W1H11080
0368 F125 1116 | EOR 1 DLE-T W1H11090
0369 4C98 0004R 1117 | BSC I INT1,+- EXIT TO ILS IF A DLE W1H11100
036B 70BB 1118 | MDX CKEND BR TO CHECK FOR ETB, ETX W1H11110
1119 | * * W1H11120
036C 7402 01CAR 1120 | YSSYN MDX L SYN2,+2 UP 2 SYN IND. BY 2 W1H11130
036E C149 1121 | LD 1 PACK-T 2-4 W1H11140
036F 4C18 0374R 1122 | BSC L DRPNT,+- BR IF NOT PACKED DATA 2-4 W1H11150
0371 C143 1123 | LD 1 COUNT-T 2-4 W1H11160
0372 4C04 037BR 1124 | BSC L DRCNT,E 2-4 W1H11170
0374 74FF 01A4R 1125 | DRPNT MDX L POINT,-1 DECR COUNT 2-4 W1H11180
0376 C480 01A4R 1126 | LD I POINT REMOVE DLE FROM BUFFER 2-4 W1H11190
0378 E12D 1127 | AND 1 HFF00-T 2-4 W1H11200
0379 D480 01A4R 1128 | STO I POINT 2-4 W1H11210
037B 74FF 01A3R 1129 | DRCNT MDX L COUNT,-1 DECR COUNT 2-4 W1H11220
037D 7041 1130 | MDX INT5 EXIT TO ILS 2-3 W1H11230
1131 | *************************************************** W1H11240
1132 | * BLOCK CHECK CHARACTER * W1H11250
1133 | *************************************************** W1H11260
037E C172 1134 | BCCTM LD 1 BCC2-T W1H11270
037F 4C18 03BAR 1135 | BSC L GET1,+- BR TO GET FIRST BCC CHAR W1H11280
1136 | * * W1H11290
0381 C145 1137 | LD 1 BCCR-T W1H11300
0382 F138 1138 | EOR 1 BUF-T COMBINE TWO CHAR BCC W1H11310
0383 D145 1139 | STO 1 BCCR-T W1H11320
1140 | * * W1H11330
0384 1010 1141 | SLA 16 W1H11340
0385 D172 1142 | STO 1 BCC2-T TURN OFF BCC2 IND W1H11350
0386 C167 1143 | LD 1 ITBRD-T 2-6 W1H11360
0387 4C20 03A3R 1144 | BSC L ITBBC,Z BR IF ITB READ 2-6 W1H11370
1145 | * W1H11380
0389 C16B 1146 | LD 1 OVFLO-T W1H11390
038A 4C20 03B2R 1147 | BSC L E1000,Z BR IF OVERFLOW OCCURRED W1H11400
1148 | * * W1H11410
038C C145 1149 | LD 1 BCCR-T IS BCC CORRECT W1H11420
038D F166 1150 | EOR 1 BCCA-T W1H11430
038E 4C20 03ADR 1151 | BSC L E0800,Z BR TO ERROR IF NOT EQUAL W1H11440
1152 | * W1H11450
0390 C177 1153 | LD 1 ITBER-T 2-6 W1H11460
0391 4C20 03ADR 1154 | BSC L E0800,Z BR IF ITB BCC ERROR 2-6 W1H11470
1155 | * W1H11480
0393 0908 1156 | CKALT XIO 1 ENDOP-T END OPERATION 2-9 W1H11485
0394 C140 1157 | LD 1 SUBF-T 2-9 W1H11490
0395 4C30 039AR 1158 | BSC L RPEAT,Z- BR IF RECEIVE REPEAT W1H11500
1159 | * W1H11510
0397 C90E 1160 | LDD 1 ACK-T W1H11520
0398 18D0 1161 | RTE 16 ALTERNATE ACKNOWLEDGEMENTS W1H11530
0399 D90E 1162 | STD 1 ACK-T W1H11540
039A 10A0 1163 | RPEAT SLT 32 2-6 W1H11550
039B D165 1164 | STO 1 PADCK-T CLEAR PAD CHECK INDR 2-6 W1H11560
039C D96C 1165 | STD 1 XNAK-T RESET XMIT NAK INDR 2-6 W1H11570
1166 | * XMENQ MON ENQ INDR 2-6 W1H11580
1167 | * * W1H11590
039D 0912 1168 | XIO 1 STRED-T START READ AGAIN 2-9 W1H11595
039E C143 1169 | LD 1 COUNT-T GIVE USER THE WORD COUNT W1H11600
039F 4C08 029CR 1170 | BSC L CLBSY,+ ONLY IF CHARS RCVD 2-5 W1H11610
03A1 4C00 0297R 1171 | BSC L CLBY2 BR TO TURN OFF BUSY IND. W1H11620
1172 | * W1H11630
03A3 10A0 1173 | ITBBC SLT 32 2-6 W1H11640
03A4 D167 1174 | STO 1 ITBRD-T TURN OFF ITB READ 2-6 W1H11650
03A5 D962 1175 | STD 1 TRANS-T TRANSPARENT 2-6 W1H11660
1176 | * BCC1 BCC TIME 2-6 W1H11670
03A6 C145 1177 | LD 1 BCCR-T COMPARE BCC RCVD 2-6 W1H11680
03A7 F166 1178 | EOR 1 BCCA-T WITH BCC ACCD 2-6 W1H11690
03A8 E977 1179 | OR 1 ITBER-T SAVE PREV ERROR IF ANY 2-6 W1H11700
03A9 D177 1180 | STO 1 ITBER-T SET ERROR IF NOT EQUAL 2-6 W1H11710
03AA 1010 1181 | SLA 16 2-6 W1H11720
03AB D166 1182 | STO 1 BCCA-T RESET BCC ACCD 2-6 W1H11730
03AC 7062 1183 | MDX INT4 EXIT TO ILS 2-6 W1H11740
03AD C153 1184 | E0800 LD 1 H0800-T BAD BCC ERROR CODE W1H11750
03AE 7401 01DDR 1185 | MDX L BCCER,+1 COUNT CRC-16 ERRORS 2-3 W1H11760
03B0 1000 1186 | NOP 2-3 W1H11770
03B1 7001 1187 | MDX ERROR GO DECRE RETRY W1H11780
1188 | * * W1H11790
03B2 C125 1189 | E1000 LD 1 H1000-T OVERFLOW ERROR CODE W1H11800
03B3 4070 1190 | ERROR BSI ERRCK GO CHECK RETRY COUNTER W1H11810
1191 | * * W1H11820
03B4 4C18 0304R 1192 | ERRO1 BSC L DISC,+- TERMINATE IF ZERO W1H11830
1193 | * * W1H11840
03B6 D16C 1194 | STO 1 XNAK-T TURN ON TRANSMIT NAK IND. W1H11850
03B7 4C10 0258R 1195 | BSC L STWT,- RETRY IF POSITIVE W1H11860
1196 | * * W1H11870
03B9 70D9 1197 | MDX CKALT ACCEPT WHEN NEGATIVE W1H11880
1198 | * * W1H11890
03BA C138 1199 | GET1 LD 1 BUF-T PICK UP FIRST 8 BITS W1H11900
03BB 1808 1200 | SRA 8 OF BCC W1H11910
03BC D145 1201 | STO 1 BCCR-T W1H11920
03BD C000 1202 | LD * W1H11930
03BE D172 1203 | STO 1 BCC2-T TURN ON BCC2 IND. W1H11940
03BF 704F 1204 | INT5 MDX INT4 EXIT TO ILS 2-6 W1H11950
1205 | * * W1H11960
1206 | * W1H11970
03C0 F10A 1207 | TERMT EOR 1 EQET-T IS BUF = ENQ W1H11980
03C1 4C20 0410R 1208 | BSC L RCVTM,Z NO, GO LISTEN FOR ENQ 2-4 W1H11990
1209 | * W1H12000
03C3 708A 1210 | MDX NAKTM YES, GO SEND NAK W1H12010
1211 | * * W1H12020
1212 | *************************************************** W1H12030
1214 | *************************************************** W1H12050
1215 | * WRITE RESPONSE FOR RECEIVE * W1H12060
1216 | *************************************************** W1H12070
03C4 4071 1217 | RCVWT BSI PADIN GO WRITE PAD IF NECESSARY W1H12080
1218 | * * W1H12090
03C5 C16C 1219 | LD 1 XNAK-T W1H12100
03C6 4C18 03DFR 1220 | BSC L POS,+- BR IF POSITIVE ACK TO SEND W1H12110
1221 | * * W1H12120
03C8 C126 1222 | LD 1 NAK-T LOG 2-3 W1H12130
03C9 D138 1223 | SETPD STO 1 BUF-T LOG 2-6 W1H12140
03CA 0959*3587 1224 | CALL IOLOG NAK OR CURRENT ACK 2-3 W1H12150
03CC 0918 1225 | XIO 1 WTBUF-T WRITE NAK OR CUR ACK 2-6 W1H12160
03CD 407C 1226 | BSI STPAD BR TO SET PAD INDR 2-6 W1H12170
03CE 4001 1227 | BSI RESRT BR TO RESET 2-4 W1H12180
03CF 7053 1228 | MDX STRD2 BR TO START READ 2-4 W1H12190
1229 | * * W1H12200
03D0 0000 1230 | RESRT DC 0 2-4 W1H12210
03D1 C13D 1231 | LD 1 IOAR-T INITIALIZE I/O AREA 2-4 W1H12220
03D2 8156 1232 | A 1 H0001-T POINTER W1H12230
03D3 D144 1233 | STO 1 POINT-T W1H12240
03D4 D168 1234 | STO 1 FIRST-T TURN ON FIRST CHAR. IND. W1H12250
1235 | * * W1H12260
03D5 10A0 1236 | SLT 32 2-6 W1H12270
03D6 D143 1237 | STO 1 COUNT-T CLEAR WORD COUNT W1H12280
03D7 D966 1238 | STD 1 BCCA-T BCC ACCUMULATION 2-6 W1H12290
1239 | * ITBRD ITB READ INDR 2-6 W1H12300
03D8 D964 1240 | STD 1 LSDLE-T LAST CHAR = DLE 2-6 W1H12310
1241 | * PADCK PAD CHECK INDR 2-6 W1H12320
03D9 D962 1242 | STD 1 TRANS-T TRANSPARENT MODE 2-6 W1H12330
1243 | * BCC1 BCC TIME 2-6 W1H12340
03DA D96A 1244 | STD 1 SYN2-T INSERT 2 SYN IND 2-6 W1H12350
1245 | * OVFLO I/O AREA OVFLOW 2-6 W1H12360
03DB D177 1246 | STO 1 ITBER-T ITB BCC ERROR 2-6 W1H12370
03DC 0908 1247 | XIO 1 ENDOP-T RESET CHAR PHASE W1H12380
03DD 4C80 03D0R 1248 | BSC I RESRT RETURN 2-4 W1H12390
1249 | * * W1H12400
03DF 4400 05C9R 1250 | POS BSI L WLOID GO WRITE LOC ID IF ANY 2-6 W1H12410
03E1 C164 1251 | LD 1 LSDLE-T W1H12420
03E2 4C18 03EAR 1252 | BSC L WTDL,+- BR IF DLE NOT YET WRITTEN W1H12430
1253 | * * W1H12440
03E4 C14C 1254 | LD 1 REMID-T REINITIALIZE 2-6 W1H12450
03E5 D14D 1255 | STO 1 IDPNT-T REMOTE ID ADDR 2-6 W1H12460
03E6 C179 1256 | LD 1 REMLG-T REINITIALIZE 2-6 W1H12470
03E7 D17A 1257 | STO 1 IDCNT-T REMOTE ID LENGTH 2-6 W1H12480
1258 | * * W1H12490
03E8 C10E 1259 | LD 1 ACK-T LOG ACK 2-3 W1H12500
03E9 70DF 1260 | MDX SETPD SET PAD INDR 2-3 W1H12510
1261 | * * W1H12520
03EA 091C 1262 | WTDL XIO 1 WTDLE-T WRITE DLE W1H12530
03EB C125 1263 | LD 1 DLE-T LOG 2-3 W1H12540
03EC 0959*3587 1264 | CALL IOLOG DLE 2-3 W1H12550
03EE C000 1265 | WTDL1 LD * 2-3 W1H12560
03EF D164 1266 | STO 1 LSDLE-T TURN ON LAST CHAR=DLE W1H12570
03F0 7057 1267 | MDX INT3 EXIT TO ILS W1H12580
1268 | *************************************************** W1H12590
SCAT2 - TIMEOUT FOR RECEIVE
1270 | *************************************************** W1H12610
1271 | * TIMEOUT INTERRUPT FOR RECEIVE * W1H12620
1272 | *************************************************** W1H12630
03F1 7401 01E0R 1273 | RCVT MDX L SLVTO,+1 COUNT SLAVE TIME OUTS 2-3 W1H12640
03F3 1000 1274 | NOP 2-3 W1H12650
03F4 0920 1275 | XIO 1 RETIM-T RESET TIMERS 2-4 W1H12660
03F5 C14F 1276 | LD 1 OPTSW-T 2-4 W1H12670
03F6 100F 1277 | SLA 15 2-4 W1H12680
03F7 4C10 0413R 1278 | BSC L TMNIT,- BR IF NO ERROR EXIT 2-4 W1H12690
03F9 C140 1279 | LD 1 SUBF-T 2-4 W1H12700
03FA 4C10 0413R 1280 | BSC L TMNIT,- BR IF NOT INITIAL 2-4 W1H12710
03FC C16D 1281 | LD 1 XMENQ-T 2-4 W1H12720
03FD 4C18 0413R 1282 | BSC L TMNIT,+- BR IF ENQ RECEIVED 2-4 W1H12730
03FF C15A 1283 | LD 1 H0020-T ERROR CODE 0020 2-4 W1H12740
0400 4480 019FR 1284 | BSI I OPERR BR TO ERROR RTN 2-4 W1H12750
1285 | * * W1H12760
0402 6500 0160R 1286 | LDX L1 T INSURE XR1 2-4 W1H12770
0404 4C28 0393R 1287 | BSC L CKALT,Z+ ACCEPT WHEN NEGATIVE 2-4 W1H12780
1288 | * * W1H12790
0406 4C08 03B4R 1289 | BSC L ERRO1,+ CLOSE IF ZERO 2-4 W1H12800
1290 | * * W1H12810
0408 40C7 1291 | BSI RESRT BR TO RESET AND RESTART2-4 W1H12820
0409 0912 1292 | XIO 1 STRED-T START READ 2-4 W1H12830
040A C14F 1293 | LD 1 OPTSW-T 2-4 W1H12840
040B 100E 1294 | SLA 14 THIRD TIMER USED 2-4 W1H12850
040C 4C90 0004R 1295 | BSC I INT1,- BR IF NOT 2-4 W1H12860
1296 | * * W1H12870
040E 090A 1297 | XIO 1 TIMER-T RESTART THIRD TIMER 2-4 W1H12880
040F 7038 1298 | INT4 MDX INT3 EXIT TO ILS 2-4 W1H12890
0410 7401 01E4R 1299 | RCVTM MDX L SISRV,+1 CNT SLV INVAL SEQ RCVD 2-4 W1H12900
0412 1000 1300 | NOP 2-4 W1H12910
0413 C17B 1301 | TMNIT LD 1 IDSEQ-T REMOTE ID SPECIFIED 2-6 W1H12920
0414 4C18 041CR 1302 | BSC L NTID1,+- BR IF NOT 2-6 W1H12930
0416 C14C 1303 | LD 1 REMID-T REINITIALIZE 2-6 W1H12940
0417 D14D 1304 | STO 1 IDPNT-T REMOTE ID ADDR 2-6 W1H12950
0418 C179 1305 | LD 1 REMLG-T REINITIALIZE 2-6 W1H12960
0419 D17A 1306 | STO 1 IDCNT-T REMOTE ID LENGTH 2-6 W1H12970
041A C158 1307 | LD 1 H2001-T ID ERROR CODE 2-6 W1H12980
041B 7001 1308 | MDX NTID3 2-6 W1H12990
1309 | * * W1H13000
041C C157 1310 | NTID1 LD 1 H2000-T ERROR CODE /2000 W1H13010
041D 4006 1311 | NTID3 BSI ERRCK GO CHECK RETRY COUNTER 2-4 W1H13020
1312 | * * W1H13030
041E 4C28 0393R 1313 | BSC L CKALT,Z+ ACCEPT WHEN NEGATIVE 2-4 W1H13040
1314 | * * W1H13050
0420 4C08 03B4R 1315 | BSC L ERRO1,+ CLOSE IF ZERO 2-4 W1H13060
0422 40AD 1316 | BSI RESRT RESET 2-4 W1H13070
0423 701E 1317 | STRD2 MDX STRD BR TO START READ 2-4 W1H13080
1318 | *************************************************** W1H13090
1319 | * ERROR ROUTINE * W1H13100
1320 | *************************************************** W1H13110
0424 0000 1321 | ERRCK DC 0 W1H13120
0425 D00F 1322 | STO ERRU SAVE ERROR CODE W1H13130
0426 C13C 1323 | LD 1 RETRY-T W1H13140
0427 9156 1324 | S 1 H0001-T W1H13150
0428 D13C 1325 | STO 1 RETRY-T W1H13160
0429 4CA0 0424R 1326 | BSC I ERRCK,Z EXIT FOR MORE TRYS W1H13170
1327 | * * W1H13180
042B C15C 1328 | LD 1 H0007-T SET RETRY COUNT TO SEVEN W1H13190
042C D13C 1329 | STO 1 RETRY-T W1H13200
042D 0920 1330 | XIO 1 RETIM-T RESET TIMERS W1H13210
042E C006 1331 | LD ERRU ERROR CODE TO A-REGISTER W1H13220
042F 4480 0170R 1332 | BSI I USERR GO TO USER ERROR ROUTINE W1H13230
0431 6500 0160R 1333 | LDX L1 T W1H13240
0433 4C80 0424R 1334 | BSC I ERRCK EXIT TO CHECK OPTIONS W1H13250
0435 0000 1335 | ERRU DC 0 ERROR CODE HOLDER W1H13260
1337 | *************************************************** W1H13280
1338 | * TRANSMIT PAD CHARACTERS * W1H13290
1339 | * 5 SYN CHARACTERS BEFORE EVERY * W1H13300
1340 | * TRANSMISSION * W1H13310
1341 | *************************************************** W1H13320
0436 0000 1342 | PADIN DC 0 W1H13330
0437 C146 1343 | LD 1 SYN5-T 2-3 W1H13340
0438 4C98 0436R 1344 | BSC I PADIN,+- BR IF PRECEEDING SYNS SENT W1H13350
1345 | * * W1H13360
043A 74FF 01A6R 1346 | MDX L SYN5,-1 DECREE CR FOR 5 SYNS 2-3 W1H13370
043C 1000 1347 | NOP W1H13380
043D 091A 1348 | XIO 1 WTSYN-T WRITE SYN CHARACTER W1H13390
043E C124 1349 | LD 1 SYN-T LOG 2-3 W1H13400
043F 0959*3587 1350 | CALL IOLOG SYN 2-3 W1H13410
0441 7006 1351 | MDX INT3 EXIT TO ILS W1H13420
1352 | * * W1H13430
0442 0912 1353 | STRD XIO 1 STRED-T START READ W1H13440
0443 C14F 1354 | LD 1 OPTSW-T THIRD TIMER 2-10 W1H13442
0444 100E 1355 | SLA 14 *OPTION CHECK 2-10 W1H13444
0445 4C10 0448R 1356 | BSC L INT3,- BR IF NOT 2-10 W1H13446
0447 090A 1357 | XIO 1 TIMER-T RESTART THIRD TIMER 2-10 W1H13448
0448 4C80 0004R 1358 | INT3 BSC I INT1 EXIT TO ILS W1H13450
1359 | *************************************************** W1H13460
1360 | * TRANSMIT ONE PAD CHARACTER AFTER 2-3* W1H13470
1361 | * EACH TRANSMISSION 2-3* W1H13480
1362 | *************************************************** W1H13490
044A 0000 1363 | STPAD DC 0 2-4 W1H13500
044B C000 1364 | LD * 2-4 W1H13510
044C D14A 1365 | STO 1 NXTPD-T TURN ON PAD INDR 2-4 W1H13520
044D 70FA 1366 | MDX INT3 EXIT TO ILS 2-4 W1H13530
1367 | * * W1H13540
044E C12D 1368 | WRPAD LD 1 PAD-T 2-6 W1H13550
044F D138 1369 | STO 1 BUF-T 2-6 W1H13560
0450 0959*3587 1370 | CALL IOLOG LOG PAD 2-3 W1H13570
0452 0918 1371 | XIO 1 WTBUF-T WRITE PAD 2-6 W1H13580
0453 1010 1372 | SLA 16 2-6 W1H13590
0454 D14A 1373 | STO 1 NXTPD-T TURN OFF NEXT PAD INDR 2-6 W1H13600
0455 4C80 044AR 1374 | BSC I STPAD RETURN TO NORMAL FLOW 2-4 W1H13610
SCAT2 - WRITE RESPONSE TRANSMIT END
1376 | *************************************************** W1H13630
1377 | * WRITE RESPONSE FOR TRANSMIT END * W1H13640
1378 | *************************************************** W1H13650
0457 40DE 1379 | ENDWT BSI PADIN GO WRITE SYN CHARS W1H13660
1380 | * W1H13670
0458 C140 1381 | LD 1 SUBF-T 2-4 W1H13680
0459 4C28 045ER 1382 | BSC L ET,+Z BR TO WT EOT IF NEGATIVE W1H13690
1383 | * * W1H13700
045B C164 1384 | LD 1 LSDLE-T W1H13710
045C 4C18 03EAR 1385 | BSC L WTDL,+- BR TO WRITE DLE W1H13720
1386 | * * W1H13730
045E C12C 1387 | ET LD 1 EOT-T 2-6 W1H13740
045F D138 1388 | STO 1 BUF-T 2-6 W1H13750
0460 0959*3587 1389 | CALL IOLOG EOT 2-3 W1H13760
0462 0918 1390 | XIO 1 WTBUF-T WRITE EOT 2-6 W1H13770
1391 | * * W1H13780
0463 40E6 1392 | BSI STPAD BR TO SET PAD INDR 2-4 W1H13790
0464 C140 1393 | LD 1 SUBF-T BR TO TEST 2-4 W1H13800
0465 4C28 0469R 1394 | BSC L RDTST,+Z WRITE EOT FUNC 2-4 W1H13810
1395 | * * W1H13820
0467 4C00 0304R 1396 | BSC L DISC BRANCH TO CLOSE 2-4 W1H13830
1397 | * * W1H13840
0469 C148 1398 | RDTST LD 1 EOTRP-T TEST IF READ RESPONSE 2-4 W1H13850
046A 4C18 0442R 1399 | BSC L STRD,+- YES, BR TO START READ 2-4 W1H13860
046C C000 1400 | LD * MAKE COUNT TEMP NEG 2-10 W1H13865
046D D143 1401 | STO 1 COUNT-T *FOR BRANCH TO CLBY2 2-9 W1H13866
1402 | * NO, BR TO TURN * W1H13870
046E 4C00 0393R 1403 | BSC L CKALT OFF RTN BUSY 2-9 W1H13880
1405 | *************************************************** W1H13900
1406 | * READ RESPONSE FOR TRANSMIT END * W1H13910
1407 | *************************************************** W1H13920
0470 C164 1408 | ENDRD LD 1 LSDLE-T W1H13930
0471 4C20 0486R 1409 | BSC L DIS,Z BR IF LAST CHAR = DLE W1H13940
1410 | * * W1H13950
0473 C138 1411 | LD 1 BUF-T W1H13960
0474 F125 1412 | EOR 1 DLE-T W1H13970
0475 4C18 03EER 1413 | BSC L WTDL1,+- BR IF CHAR IS A DLE 2-3 W1H13980
1414 | * * W1H13990
0477 F133 1415 | EOR 1 DLEOT-T W1H14000
0478 4C20 0480R 1416 | BSC L NEOT,Z BR IF CHAR NOT AN EOT W1H14010
1417 | * * W1H14020
047A 4400 06C8R 1418 | BSI L PDCHK SET UP FOR PAD CK 2-6 W1H14030
047C 4C20 048AR 1419 | BSC L NENQ,Z BR IF INVALID PAD 2-6 W1H14040
1420 | * * W1H14050
047E C12C 1421 | LD 1 EOT-T EOT IN FIRST WD OF I/O W1H14060
047F 7004 1422 | MDX DISM2 BR TO TURN OFF BUSY W1H14070
1423 | * * W1H14080
0480 F10A 1424 | NEOT EOR 1 EQET-T W1H14090
0481 4C20 048AR 1425 | BSC L NENQ,Z BR IF NOT AN ENQ W1H14100
1426 | * * W1H14110
0483 C127 1427 | LD 1 ENQ-T ENQ IN FIRST WD OF I/O W1H14120
0484 4C00 0297R 1428 | DISM2 BSC L CLBY2 BR TO TURN OFF BUSY W1H14130
1429 | * * W1H14140
0486 C138 1430 | DIS LD 1 BUF-T W1H14150
0487 F12C 1431 | EOR 1 EOT-T W1H14160
0488 4C18 0301R 1432 | BSC L DISCO,+- BR TO DISCONNECT IF EOT W1H14170
1433 | * * W1H14180
048A C129 1434 | NENQ LD 1 H0200-T ERROR CODE W1H14190
048B 7401 01E3R 1435 | MDX L MISRV,1 INCR MSTR INV SEQ RCVD 2-6 W1H14200
048D 1000 1436 | NOP 2-6 W1H14210
048E 4095 1437 | NENQ1 BSI ERRCK GO DECRE RETRY W1H14220
1438 | * * W1H14230
048F 4C28 029CR 1439 | BSC L CLBSY,Z+ RESET AND CONTINUE 2-4 W1H14240
1440 | * * W1H14250
0491 4C18 0304R 1441 | ERP1 BSC L DISC,+- DISCONNECT IF A-REG IS 0 W1H14260
0493 10A0 1442 | SLT 32 2-6 W1H14270
0494 D162 1443 | STO 1 TRANS-T RESET TRANSPARENT 2-6 W1H14280
0495 D964 1444 | STD 1 LSDLE-T LAST CHAR = DLE 2-6 W1H14290
1445 | * PADCK PAD CHECK INDR 2-6 W1H14300
0496 C09E 1446 | LD ERRU W1H14310
0497 F006 1447 | EOR H8000 DO NOT ST WRITE IF NOT RDY W1H14320
0498 4C20 0258R 1448 | BSC L STWT,Z BR TO START WRITE W1H14330
1449 | * W1H14340
049A 4C00 029ER 1450 | BSC L CLBY3 BR TO RESET TIMER,EXIT 2-5 W1H14350
1451 | * W1H14360
1452 | * W1H14370
049C C001 1453 | NTRDY LD H8000 DATA SET FAIL ERROR CODE W1H14380
049D 70F0 1454 | MDX NENQ1 GO DECRE RETRY W1H14390
049E 8000 1455 | H8000 DC /8000 DATA SET FAIL ERROR CODE W1H14400
1456 | *************************************************** W1H14410
1458 | *************************************************** W1H14430
1459 | * TIMEOUT INTERRUPT FOR TRANSMIT END * W1H14440
1460 | * IF A TIMEOUT OCCURS AFTER SCAT2 * W1H14450
1461 | * TRANSMITS AN EOT, SCAT2 WILL * W1H14460
1462 | * PERFORM A CLOSE IF REQUESTED * W1H14470
1463 | *************************************************** W1H14480
049F C147 1464 | ENDTM LD 1 CLOSE-T W1H14490
04A0 4C20 029CR 1465 | BSC L CLBSY,Z BR TO TURN OFF RTN. BUSY W1H14500
1466 | * W1H14510
04A2 70EE 1467 | MDX ERP1 CLOSE IF REQUESTED ON EOT W1H14520
1468 | *************************************************** W1H14530
1470 | *************************************************** W1H14550
1471 | * CALCULATE BLOCK CHECK CHAR. CRC-16 * W1H14560
1472 | *************************************************** W1H14570
04A3 0000 1473 | CALC DC 0 W1H14580
04A4 C138 1474 | LD 1 BUF-T W1H14590
04A5 1808 1475 | SRA 8 W1H14600
04A6 F166 1476 | EOR 1 BCCA-T ADD IN REMAINDER W1H14610
04A7 4C04 04C2R 1477 | BSC L EOR1,E BR IF ONE W1H14620
04A9 1801 1478 | SRA 1 W1H14630
04AA 4C04 04C5R 1479 | B2 BSC L EOR2,E BR IF ONE W1H14640
04AC 1801 1480 | SRA 1 W1H14650
04AD 4C04 04C8R 1481 | B3 BSC L EOR3,E BR IF ONE W1H14660
04AF 1801 1482 | SRA 1 W1H14670
04B0 4C04 04CBR 1483 | B4 BSC L EOR4,E BR IF ONE W1H14680
04B2 1801 1484 | SRA 1 W1H14690
04B3 4C04 04CER 1485 | B5 BSC L EOR5,E BR IF ONE W1H14700
04B5 1801 1486 | SRA 1 W1H14710
04B6 4C04 04D1R 1487 | B6 BSC L EOR6,E BR IF ONE W1H14720
04B8 1801 1488 | SRA 1 W1H14730
04B9 4C04 04D4R 1489 | B7 BSC L EOR7,E BR IF ONE W1H14740
04BB 1801 1490 | SRA 1 W1H14750
04BC 4C04 04D7R 1491 | B8 BSC L EOR8,E BR IF ONE W1H14760
04BE 1801 1492 | SRA 1 W1H14770
04BF D166 1493 | B9 STO 1 BCCA-T STORE NEW REMAINDER W1H14780
04C0 4C80 04A3R 1494 | BSC I CALC W1H14790
1495 | * * W1H14800
04C2 1801 1496 | EOR1 SRA 1 W1H14810
04C3 F016 1497 | EOR POLY ADD POLYNOMIAL W1H14820
04C4 70E5 1498 | MDX B2 BR TO TEST NEXT CHAR W1H14830
04C5 1801 1499 | EOR2 SRA 1 W1H14840
04C6 F013 1500 | EOR POLY ADD POLYNOMIAL W1H14850
04C7 70E5 1501 | MDX B3 BR TO TEST NEXT CHAR W1H14860
04C8 1801 1502 | EOR3 SRA 1 W1H14870
04C9 F010 1503 | EOR POLY ADD POLYNOMIAL W1H14880
04CA 70E5 1504 | MDX B4 BR TO TEST NEXT CHAR W1H14890
04CB 1801 1505 | EOR4 SRA 1 W1H14900
04CC F00D 1506 | EOR POLY ADD POLYNOMIAL W1H14910
04CD 70E5 1507 | MDX B5 BR TO TEST NEXT CHAR W1H14920
04CE 1801 1508 | EOR5 SRA 1 W1H14930
04CF F00A 1509 | EOR POLY ADD POLYNOMIAL W1H14940
04D0 70E5 1510 | MDX B6 BR TO TEST NEXT CHAR W1H14950
04D1 1801 1511 | EOR6 SRA 1 W1H14960
04D2 F007 1512 | EOR POLY ADD POLYNOMIAL W1H14970
04D3 70E5 1513 | MDX B7 BR TO TEST NEXT CHAR W1H14980
04D4 1801 1514 | EOR7 SRA 1 W1H14990
04D5 F004 1515 | EOR POLY ADD POLYNOMIAL W1H15000
04D6 70E5 1516 | MDX B8 BR TO TEST NEXT CHAR W1H15010
04D7 1801 1517 | EOR8 SRA 1 W1H15020
04D8 F001 1518 | EOR POLY ADD POLYNOMIAL W1H15030
04D9 70E5 1519 | MDX B9 BR STORE REMAINDER W1H15040
1520 | * * W1H15050
04DA A001 1521 | POLY DC /A001 POLYNOMIAL FOR CRC-16 W1H15060
1522 | *************************************************** W1H15070
1524 | *************************************************** W1H15090
1525 | * WRITE RESPONSE FOR TRANSMIT * W1H15100
1526 | *************************************************** W1H15110
04DB 4400 0436R 1527 | XMTWT BSI L PADIN GO WRITE PADS IF NECESSARY W1H15120
04DD C16A 1528 | LD 1 SYN2-T CK INSERT 2 SYNS W1H15130
04DE 4C18 04FCR 1529 | BSC L XMT1,+- BR IF NOT INSERT TIME W1H15140
1530 | *************************************************** W1H15150
1531 | * INSERT SYNCHRONOUS IDLE ON A TIMEOUT* W1H15160
1532 | * WITH A WRITE RESPONSE IN NORMAL * W1H15170
1533 | * TEXT. TIMEOUT OCCURS ALONE IN * W1H15180
1534 | * TRANSPARENT TEXT AND CAUSES INSERT * W1H15190
1535 | * SYN SYN IN NORMAL TEXT * W1H15200
1536 | * DLE SYN IN TRANSPARENT TEXT * W1H15210
1537 | *************************************************** W1H15220
04E0 C164 1538 | LD 1 LSDLE-T NO INSERT AFTER A DLE W1H15230
04E1 4C20 04FCR 1539 | BSC L XMT1,Z BR AROUND INSERT W1H15240
1540 | * * W1H15250
04E3 C169 1541 | LD 1 XMESS-T NO INSERT AFTER ETB OR ETX W1H15260
04E4 4C18 04FCR 1542 | BSC L XMT1,+- BR AROUND INSERT W1H15270
1543 | * * W1H15280
04E6 C139 1544 | LD 1 DSW-T W1H15290
04E7 1002 1545 | SLA 2 IF CHECK BIT IS ON W1H15300
04E8 4C28 04F3R 1546 | BSC L SYN1,+Z BR TO SEND ONLY 1 SYN W1H15310
1547 | * * W1H15320
04EA 74FF 01CAR 1548 | MDX L SYN2,-1 DECRE 2 SYN COUNTER BY 1 W1H15330
04EC 7009 1549 | MDX CKDLE CK TRANSPARENT ON FIRST W1H15340
04ED 091A 1550 | WSYN1 XIO 1 WTSYN-T WRITE SYN 2-3 W1H15350
04EE C124 1551 | LD 1 SYN-T LOG 2-3 W1H15360
04EF 0959*3587 1552 | INTXC CALL IOLOG SYN OR DLE 2-3 W1H15370
04F1 4C80 0004R 1553 | INTX2 BSC I INT1 EXIT TO ILS W1H15380
1554 | * * W1H15390
04F3 1010 1555 | SYN1 SLA 16 W1H15400
04F4 D16A 1556 | STO 1 SYN2-T TURN OFF SYN2 IND. W1H15410
04F5 70F7 1557 | MDX WSYN1 BR TO WRITE SYN 2-3 W1H15420
1558 | * * W1H15430
04F6 C162 1559 | CKDLE LD 1 TRANS-T CK TRANSPARENT MODE IND. W1H15440
04F7 4C18 04EDR 1560 | BSC L WSYN1,+- BR TO WRITE SYN, NON TRANS W1H15450
04F9 091C 1561 | CKDL XIO 1 WTDLE-T WRITE DLE, TRANSPARENT 2-4 W1H15460
04FA C125 1562 | LD 1 DLE-T LOG DLE 2-3 W1H15470
04FB 70F3 1563 | MDX INTXC GO LOG AND EXIT W1H15480
1564 | *************************************************** W1H15490
04FC C16D 1565 | XMT1 LD 1 XMENQ-T W1H15500
04FD 4C20 05B9R 1566 | BSC L ENQWT,Z BR TO TRANSMIT ENQ W1H15510
1567 | * * W1H15520
04FF C169 1568 | LD 1 XMESS-T IF TRANSMIT MESS. IS OFF, W1H15530
0500 4C18 0585R 1569 | BSC L NOMES,+- BR TO SEND END FUNCITON W1H15540
1570 | *************************************************** W1H15550
1571 | * SEND MESSAGE * W1H15560
1572 | *************************************************** W1H15570
0502 C149 1573 | LD 1 PACK-T IS DATA UNPACKED 2-4 W1H15580
0503 4C18 0508R 1574 | BSC L WTEVN,+- BR IF IT IS 2-4 W1H15590
0505 C143 1575 | LD 1 COUNT-T IS COUNT EVEN 2-4 W1H15600
0506 4C04 0510R 1576 | BSC L WTODD,E BR IF ODD 2-4 W1H15610
1577 | * * W1H15620
0508 C480 01A4R 1578 | WTEVN LD I POINT PUT CHAR FROM I/O 2-4 W1H15630
050A E12D 1579 | AND 1 HFF00-T 2-3 W1H15640
050B D138 1580 | STO 1 BUF-T AREA INTO BUF W1H15650
050C C168 1581 | LD 1 FIRST-T W1H15660
050D 4C18 054CR 1582 | BSC L NTFST,+- BR IF NOT FIRST CHARACTER W1H15670
050F 7005 1583 | MDX FRST BR TO PROC FIRST CHAR 2-4 W1H15680
1584 | * * W1H15690
0510 C480 01A4R 1585 | WTODD LD I POINT SHIFT 2ND CHAR IN WORD 2-4 W1H15700
0512 1008 1586 | SLA 8 TO HIGH ORDER END 2-4 W1H15710
0513 D138 1587 | STO 1 BUF-T AND STORE IN BUFFER 2-4 W1H15720
0514 7037 1588 | MDX NTFST 2-4 W1H15730
1589 | *************************************************** W1H15740
1590 | * FIRST CHARACTER TO BE SENT * W1H15750
1591 | *************************************************** W1H15760
0515 C13D 1592 | FRST LD 1 IOAR-T INITLZ I/O AREA PT 2-4 W1H15770
0516 8156 1593 | A 1 H0001-T W1H15780
0517 D144 1594 | STO 1 POINT-T W1H15790
0518 D163 1595 | STO 1 BCC1-T TURN ON BCC1 IND. W1H15800
1596 | * * W1H15810
0519 1010 1597 | SLA 16 W1H15820
051A D166 1598 | STO 1 BCCA-T CLEAR BCC ACCUMULATION W1H15830
051B D164 1599 | STO 1 LSDLE-T TURN OFF LAST CHAR=DLE IND W1H15840
051C D168 1600 | STO 1 FIRST-T FIRST CHAR. IND. W1H15850
051D C480 01A4R 1601 | LD I POINT PUT CHARACTER FROM I/O W1H15860
051F E12D 1602 | AND 1 HFF00-T 2-3 W1H15870
0520 D138 1603 | STO 1 BUF-T AREA INTO BUF W1H15880
1604 | * * W1H15890
0521 C142 1605 | LD 1 TEXTM-T CHECK TEXT MODE W1H15900
0522 4C18 052CR 1606 | BSC L NTRAN,+- BR IF NORMAL TEXT W1H15910
1607 | * * W1H15920
0524 C138 1608 | LD 1 BUF-T W1H15930
0525 F125 1609 | EOR 1 DLE-T W1H15940
0526 4C20 052BR 1610 | BSC L NDLE,Z BR IF BUF NOT DLE W1H15950
1611 | * * W1H15960
1612 | *************************************************** W1H15970
1613 | * .STXIN. ON IF DLE HAS BEEN FOUND * W1H15980
1614 | *************************************************** W1H15990
0528 C000 1615 | LD * W1H16000
0529 D16E 1616 | STO 1 STXIN-T TURN ON STX INDICATOR W1H16010
052A 7001 1617 | MDX NTRAN W1H16020
1618 | * * W1H16030
1619 | *************************************************** W1H16040
1620 | * .DLSTX. ON IF DLE HAS NOT BEEN FOUND* W1H16050
1621 | *************************************************** W1H16060
052B D174 1622 | NDLE STO 1 DLSTX-T TURN ON DLE STX INDICATOR W1H16070
052C C149 1623 | NTRAN LD 1 PACK-T IS DATA UNPACKED 2-4 W1H16080
052D 4C18 0533R 1624 | BSC L UPPTR,+- BR IF IT IS 2-4 W1H16090
052F C143 1625 | LD 1 COUNT-T COUNT EVEN 2-4 W1H16100
0530 4C04 0533R 1626 | BSC L UPPTR,E BR IF ODD 2-4 W1H16110
0532 7002 1627 | MDX UPCNT INCR CHAR COUNT 2-4 W1H16120
1628 | * * W1H16130
0533 7401 01A4R 1629 | UPPTR MDX L POINT,+1 INCR I/O AREA POINTER 2-4 W1H16140
1630 | * * W1H16150
0535 7401 01A3R 1631 | UPCNT MDX L COUNT,+1 INCR CHAR COUNT 2-4 W1H16160
0537 C143 1632 | LD 1 COUNT-T LAST CHARACTER 2-4 W1H16170
0538 F13E 1633 | EOR 1 WDCNT-T 2-4 W1H16180
0539 4C20 0542R 1634 | BSC L ITBCK,Z BR IF NOT LAST CHAR 2-6 W1H16190
1635 | * * W1H16200
053B 1010 1636 | WTBF2 SLA 16 W1H16210
053C D169 1637 | STO 1 XMESS-T TURN OFF TRANSMIT MESS.IND W1H16220
053D 0918 1638 | WTBF XIO 1 WTBUF-T WRITE CONTENTS OF BUF W1H16230
053E C138 1639 | LD 1 BUF-T LOG 2-3 W1H16240
053F 0959*3587 1640 | CALL IOLOG BUF CONTENTS 2-3 W1H16250
0541 70AF 1641 | INTX3 MDX INTX2 EXIT TO ILS 2-3 W1H16260
1642 | * W1H16270
0542 C162 1643 | ITBCK LD 1 TRANS-T 2-6 W1H16280
0543 4C20 053DR 1644 | BSC L WTBF,Z BR IF TRANSPARENT 2-6 W1H16290
0545 C138 1645 | LD 1 BUF-T 2-6 W1H16300
0546 F12F 1646 | EOR 1 ITB-T BUF = ITB 2-6 W1H16310
0547 4C20 053DR 1647 | BSC L WTBF,Z BR IF NOT ITB 2-6 W1H16320
0549 C000 1648 | LD * 2-6 W1H16330
054A D167 1649 | STO 1 ITBRD-T SET ITB BCC INDR 2-6 W1H16340
054B 70EF 1650 | MDX WTBF2 BR TO TURN OFF XMESS 2-6 W1H16350
1651 | *************************************************** W1H16360
1652 | * FIRST CHARACTER HAS BEEN SENT * W1H16370
1653 | *************************************************** W1H16380
054C C16E 1654 | NTFST LD 1 STXIN-T W1H16390
054D 4C18 0556R 1655 | BSC L XMT2,+- BR IF STX IND. NOT ON W1H16400
1656 | * * W1H16410
054F 1010 1657 | SLA 16 W1H16420
0550 D16E 1658 | STO 1 STXIN-T TURN OFF STX INDICATOR W1H16430
0551 091E 1659 | LDREG XIO 1 LDDLE-T LOAD SYNC WITH DLE W1H16440
0552 C000 1660 | LD * W1H16450
0553 D162 1661 | STO 1 TRANS-T TURN ON IN TRANSPARENT IND W1H16460
0554 090A 1662 | XIO 1 TIMER-T START THIRD TIMER W1H16470
0555 70D6 1663 | MDX NTRAN BR TO WRITE CHARACTER W1H16480
1664 | * * W1H16490
0556 C174 1665 | XMT2 LD 1 DLSTX-T W1H16500
0557 4C18 0570R 1666 | BSC L XMT3,+- BR IF DLE STX IND. OFF W1H16510
1667 | * * W1H16520
0559 C164 1668 | LD 1 LSDLE-T W1H16530
055A 4C18 0562R 1669 | BSC L XMT4,+- BR IF LAST CHAR NOT A DLE W1H16540
1670 | * * W1H16550
055C 1010 1671 | SLA 16 W1H16560
055D D174 1672 | STO 1 DLSTX-T TURN OFF DLE STX IND. W1H16570
055E D164 1673 | STO 1 LSDLE-T TURN OFF LAST CHAR=DLE IND W1H16580
055F 4400 04A3R 1674 | BSI L CALC GO CALCULATE BCC W1H16590
0561 70EF 1675 | MDX LDREG BR TO LOAD SYNC REGISTER W1H16600
1676 | * * W1H16610
0562 C138 1677 | XMT4 LD 1 BUF-T W1H16620
0563 F125 1678 | EOR 1 DLE-T W1H16630
0564 4C20 0569R 1679 | BSC L XMT4A,Z BR IF BUF NOT A DLE W1H16640
1680 | * * W1H16650
0566 C000 1681 | LD * W1H16660
0567 D164 1682 | STO 1 LSDLE-T TURN ON LAST CHAR=DLE W1H16670
0568 7004 1683 | MDX XMT4B BR TO CALC BCC W1H16680
1684 | * * W1H16690
0569 C138 1685 | XMT4A LD 1 BUF-T W1H16700
056A F124 1686 | EOR 1 SYN-T IF BUF = SYN, W1H16710
056B 4C18 052CR 1687 | BSC L NTRAN,+- DO NOT CALCULATE BCC W1H16720
1688 | * W1H16730
056D 4400 04A3R 1689 | XMT4B BSI L CALC GO CALCULATE BCC W1H16740
056F 70BC 1690 | MDX NTRAN BR TO WRITE CHARACTER W1H16750
1691 | * * W1H16760
0570 C162 1692 | XMT3 LD 1 TRANS-T W1H16770
0571 4C18 0569R 1693 | BSC L XMT4A,+- BR IF NOT IN TRANSPARENT W1H16780
1694 | *************************************************** W1H16790
1695 | * TRANSPARENT TEXT * W1H16800
1696 | *************************************************** W1H16810
0573 C139 1697 | LD 1 DSW-T W1H16820
0574 1002 1698 | SLA 2 IF CHECK BIT IS ON W1H16830
0575 4C28 04EDR 1699 | BSC L WSYN1,+Z BR TO WRITE SYN 2-3 W1H16840
1700 | * * W1H16850
0577 C164 1701 | LD 1 LSDLE-T W1H16860
0578 4C20 0581R 1702 | BSC L XMT5,Z BR IF LAST CHAR=DLE W1H16870
1703 | * * W1H16880
057A C138 1704 | LD 1 BUF-T W1H16890
057B F125 1705 | EOR 1 DLE-T W1H16900
057C 4C20 056DR 1706 | BSC L XMT4B,Z BR IF CHAR NOT A DLE W1H16910
1707 | * * W1H16920
057E C000 1708 | LD * W1H16930
057F D164 1709 | STO 1 LSDLE-T TURN ON LAST CHAR=DLE IND W1H16940
0580 70EC 1710 | MDX XMT4B BR TO CALCULATE BCC W1H16950
1711 | * * W1H16960
0581 1010 1712 | XMT5 SLA 16 W1H16970
0582 D164 1713 | STO 1 LSDLE-T TURN OFF LAST CHAR=DLE IND W1H16980
0583 4C00 04F9R 1714 | CKDL1 BSC L CKDL BR TO WRITE DLE 2-4 W1H16990
1715 | *************************************************** W1H17000
1716 | * TRANSMIT ENDING CHARACTERS * W1H17010
1717 | *************************************************** W1H17020
0585 C162 1718 | NOMES LD 1 TRANS-T W1H17030
0586 4C18 059FR 1719 | BSC L XMT6,+- BR IF NOT TRANSPARENT MODE W1H17040
1720 | * * W1H17050
0588 C164 1721 | LD 1 LSDLE-T W1H17060
0589 4C20 0581R 1722 | BSC L XMT5,Z BR IF LAST CHAR=DLE W1H17070
1723 | * * W1H17080
058B 090A 1724 | XIO 1 TIMER-T STOP THIRD TIMER W1H17090
058C C173 1725 | LD 1 TEND-T W1H17100
058D 4C20 0592R 1726 | BSC L XMT7,Z BR IF XMIT ETX OR ETB ON W1H17110
1727 | * * W1H17120
058F C000 1728 | LD * W1H17130
0590 D173 1729 | STO 1 TEND-T TURN ON TRANSMIT END IND W1H17140
0591 70F1 1730 | MDX CKDL1 BR TO WRITE DLE 2-4 W1H17150
1731 | * * W1H17160
0592 1010 1732 | XMT7 SLA 16 W1H17170
0593 D162 1733 | STO 1 TRANS-T TURN OFF IN TRANS MODE IND W1H17180
0594 D173 1734 | STO 1 TEND-T TURN OFF XMIT END IND. W1H17190
0595 C13A 1735 | LD 1 TBTX-T W1H17200
0596 4C20 059DR 1736 | BSC L XMT8,Z BR TO WRITE ETX W1H17210
1737 | * * W1H17220
0598 C12A 1738 | LD 1 ETB-T W1H17230
0599 D138 1739 | XMT84 STO 1 BUF-T PUT ETB INTO BUF W1H17240
059A 4400 04A3R 1740 | BSI L CALC GO CALCULATE BCC W1H17250
059C 70A0 1741 | MDX WTBF BR TO WRITE ETB OR ETX W1H17260
1742 | * * W1H17270
059D C12B 1743 | XMT8 LD 1 ETX-T PUT ETX INTO BUF W1H17280
059E 70FA 1744 | MDX XMT84 BR TO STORE ETX W1H17290
1745 | *************************************************** W1H17300
1746 | * TRANSMIT BLOCK CHECK CHARACTERS * W1H17310
1747 | *************************************************** W1H17320
059F C163 1748 | XMT6 LD 1 BCC1-T W1H17330
05A0 4C18 05A8R 1749 | BSC L LAST8,+- BR TO WRITE LAST OF BCC W1H17340
1750 | * * W1H17350
05A2 1010 1751 | SLA 16 W1H17360
05A3 D163 1752 | STO 1 BCC1-T TURN OFF BCC1 IND. W1H17370
05A4 C166 1753 | LD 1 BCCA-T W1H17380
05A5 1008 1754 | SLA 8 W1H17390
05A6 D138 1755 | STO 1 BUF-T W1H17400
05A7 7095 1756 | MDX WTBF GO WRITE FIRST PART OF BCC W1H17410
1757 | * * W1H17420
05A8 C166 1758 | LAST8 LD 1 BCCA-T 2-6 W1H17430
05A9 D138 1759 | STO 1 BUF-T 2-6 W1H17440
05AA 1808 1760 | SRA 8 LAST 2-3 W1H17450
05AB 1008 1761 | SLA 8 8 BITS 2-3 W1H17460
05AC 0959*3587 1762 | CALL IOLOG OF BCC 2-3 W1H17470
05AE 0918 1763 | XIO 1 WTBUF-T WRITE 8 LAST BITS 2-6 W1H17480
05AF 090C 1764 | XIO 1 LOAD-T LOAD SYN INTO SYNC REG.2-3 W1H17490
1765 | * W1H17500
05B0 C167 1766 | LD 1 ITBRD-T 2-6 W1H17510
05B1 4C18 05C3R 1767 | BSC L STPD1,+- BR IF NOT ITB BCC 2-6 W1H17520
05B3 10A0 1768 | SLT 32 2-6 W1H17530
05B4 D966 1769 | STD 1 BCCA-T CLEAR BCC ACCUM 2-6 W1H17540
1770 | * ITBRD ITB BCC ACCUM 2-6 W1H17550
05B5 C000 1771 | LD * 2-6 W1H17560
05B6 D163 1772 | STO 1 BCC1-T TURN ON BCC1 2-6 W1H17570
05B7 D169 1773 | STO 1 XMESS-T TURN ON XMESS 2-6 W1H17580
05B8 7088 1774 | INTX5 MDX INTX3 EXIT TO ILS 2-6 W1H17590
1775 | * * W1H17600
05B9 400F 1776 | ENQWT BSI WLOID GO WRITE LOC ID IF ANY 2-6 W1H17610
05BA C127 1777 | LD 1 ENQ-T 2-6 W1H17620
05BB D138 1778 | STO 1 BUF-T 2-6 W1H17630
05BC 0959*3587 1779 | CALL IOLOG ENQ 2-3 W1H17640
05BE 0918 1780 | XIO 1 WTBUF-T WRITE ENQ 2-6 W1H17650
05BF C14C 1781 | LD 1 REMID-T INITIALIZE 2-6 W1H17660
05C0 D14D 1782 | STO 1 IDPNT-T REMOTE ID ADDR 2-6 W1H17670
05C1 C179 1783 | LD 1 REMLG-T INITIALIZE 2-6 W1H17680
05C2 D17A 1784 | STO 1 IDCNT-T REMOTE ID LENGTH 2-6 W1H17690
05C3 4400 044AR 1785 | STPD1 BSI L STPAD BR TO SET PAD INDR 2-4 W1H17700
05C5 C151 1786 | LD 1 D0008-T 2-6 W1H17710
05C6 D14E 1787 | STO 1 LGS-T SET LEAD GRAPHS COUNT 2-6 W1H17720
05C7 4C00 0442R 1788 | BSC L STRD BR TO START READ 2-4 W1H17730
1789 | *************************************************** W1H17740
1790 | * * W1H17750
016AR 1791 | DLNQT EQU TIMER CONSTANT FOR EOT CHECK W1H17760
0187R 1792 | DLNAK EQU ENQ DLE AND NAK EOR 2-3 W1H17770
01B5R 1793 | WACOD EQU H0080 WACK RCVD ERROR CODE 2-6 W1H17780
1794 | *************************************************** W1H17790
SCAT2 - ID SUBROUTINES
1796 | *************************************************** W1H17810
1797 | * WRITE LOCAL ID * W1H17820
1798 | *************************************************** W1H17830
05C9 0000 1799 | WLOID DC *-* 2-6 W1H17840
05CA C17B 1800 | LD 1 IDSEQ-T LOCAL ID SPECIFIED 2-6 W1H17850
05CB 4C98 05C9R 1801 | BSC I WLOID,+- BRANCH IF NOT 2-6 W1H17860
05CD C17A 1802 | LD 1 IDCNT-T ALL ID WORDS WRITTEN 2-6 W1H17870
05CE 4C98 05C9R 1803 | BSC I WLOID,+- BRANCH IF NOT 2-6 W1H17880
1804 | * * W1H17890
05D0 C480 01ADR 1805 | LD I IDPNT GET NEXT ID WORD 2-6 W1H17900
05D2 E12D 1806 | AND 1 HFF00-T MASK OUT RIGHT 8 BITS 2-6 W1H17910
05D3 D138 1807 | STO 1 BUF-T 2-6 W1H17920
05D4 0959*3587 1808 | CALL IOLOG LOG ID 2-6 W1H17930
05D6 0918 1809 | XIO 1 WTBUF-T WRITE ID 2-6 W1H17940
05D7 74FF 01DAR 1810 | MDX L IDCNT,-1 DECR LOCAL ID COUNT 2-6 W1H17950
05D9 1000 1811 | NOP 2-6 W1H17960
05DA 7401 01ADR 1812 | MDX L IDPNT,+1 INCR LOCAL ID POINTER 2-6 W1H17970
05DC 70DB 1813 | MDX INTX5 EXIT TO ILS 2-6 W1H17980
1814 | *************************************************** W1H17990
1815 | * READ REMOTE ID * W1H18000
1816 | *************************************************** W1H18010
05DD 0000 1817 | RREID DC *-* 2-6 W1H18020
05DE C138 1818 | LD 1 BUF-T 2-6 W1H18030
05DF F124 1819 | EOR 1 SYN-T ACCEPT SYN IN ID 2-6 W1H18040
05E0 4C98 0004R 1820 | BSC I INT1,+- EXIT IF SYN IN ID 2-6 W1H18050
05E2 C17A 1821 | LD 1 IDCNT-T 2-6 W1H18060
05E3 4C98 05DDR 1822 | BSC I RREID,+- BR IF ID COUNT ZERO 2-6 W1H18070
05E5 C480 01ADR 1823 | LD I IDPNT GET NEXT ID WORD AND 2-6 W1H18080
05E7 E12D 1824 | AND 1 HFF00-T CHECK ONLY LEFT 8 BITS 2-6 W1H18090
05E8 F138 1825 | EOR 1 BUF-T COMPARE WITH ID READ 2-6 W1H18100
05E9 4CA0 05DDR 1826 | BSC I RREID,Z BR IF NO MATCH 2-6 W1H18110
05EB 74FF 01DAR 1827 | MDX L IDCNT,-1 DECR REMOT ID COUNT 2-6 W1H18120
05ED 1000 1828 | NOP 2-6 W1H18130
05EE 7401 01ADR 1829 | MDX L IDPNT,+1 INCR REMOT ID POINTER 2-6 W1H18140
05F0 70C7 1830 | MDX INTX5 EXIT TO ILS 2-6 W1H18150
1831 | * * W1H18160
05F1 0000 1832 | CREID DC *-* 2-6 W1H18170
05F2 C17B 1833 | LD 1 IDSEQ-T REMOTE ID SPECIFIED 2-6 W1H18180
05F3 4C98 05F1R 1834 | BSC I CREID,+- BRANCH IF NOT 2-6 W1H18190
05F5 C17A 1835 | LD 1 IDCNT-T CORRECT ID RCVD 2-6 W1H18200
05F6 4C98 05F1R 1836 | BSC I CREID,+- YES - BRANCH 2-6 W1H18210
05F8 7048 1837 | MDX TIMEX NO, INVAL SEQ 2-6 W1H18220
1838 | *************************************************** W1H18230
1839 | * LEADING GRAPHICS COUNT CHECK 2-6* W1H18240
1840 | *************************************************** W1H18250
05F9 0000 1841 | LGCHK DC 0 2-6 W1H18260
05FA C14E 1842 | LD 1 LGS-T CHECK IF LEADING GRAPH 2-6 W1H18270
05FB 9151 1843 | S 1 D0008-T WAS RECEIVED BEFORE 2-6 W1H18280
05FC 4C98 05F9R 1844 | BSC I LGCHK,+- NO - BRANCH BACK 2-6 W1H18290
05FE 7042 1845 | MDX TIMEX YES - ERROR 2-6 W1H18300
1846 | *************************************************** W1H18310
1848 | *************************************************** W1H18330
1849 | * READ RESPONSE FOR TRANSMIT * W1H18340
1850 | *************************************************** W1H18350
05FF C164 1851 | XMTRD LD 1 LSDLE-T W1H18360
0600 4C18 065DR 1852 | BSC L TRD1,+- BR IF LAST CHAR NOT A DLE W1H18370
1853 | * * W1H18380
0602 1010 1854 | SLA 16 W1H18390
0603 D164 1855 | STO 1 LSDLE-T TURN OFF LAST CHAR=DLE IND W1H18400
0604 C138 1856 | LD 1 BUF-T CHECK FOR CORRECT ACK W1H18410
0605 F10E 1857 | EOR 1 ACK-T W1H18420
0606 4C20 061ER 1858 | BSC L EOTCK,Z BR IF NOT CORRECT ACK W1H18430
0608 40E8 1859 | BSI CREID CHECK REM ID IF ANY 2-6 W1H18440
0609 D176 1860 | STO 1 RVIRD-T CLEAR RVI READ INDR 2-6 W1H18450
1861 | * * W1H18460
060A C169 1862 | MESSQ LD 1 XMESS-T CHECK TRANSMIT MESSAGE IND W1H18470
060B 4C20 061AR 1863 | BSC L STWT2,Z BR TO ST WRT FOR MESSAGE W1H18480
1864 | * * W1H18490
060D D170 1865 | MESQ3 STO 1 RTBSY-T TURN OFF ROUTINE BUSY W1H18500
060E 0908 1866 | XIO 1 ENDOP-T END OPERATION 2-9 W1H18505
060F 0912 1867 | XIO 1 STRED-T INITIATE READ 2-9 W1H18506
0610 0920 1868 | XIO 1 RETIM-T RESET TIMERS W1H18510
0611 10A0 1869 | ENQOF SLT 32 2-6 W1H18520
0612 D960 1870 | STD 1 TOIND-T RESET TIMEOUT INDR 2-6 W1H18530
1871 | * WRACK WRONG ACK INDR 2-6 W1H18540
0613 D17B 1872 | STO 1 IDSEQ-T TURN OFF ID INDR 2-6 W1H18550
0614 D16D 1873 | STO 1 XMENQ-T XMIT ENQ INDR 2-6 W1H18560
0615 C90E 1874 | LDD 1 ACK-T W1H18570
0616 18D0 1875 | RTE 16 ALTERNATE W1H18580
0617 D90E 1876 | STD 1 ACK-T ACKNOWLEDGEMENTS W1H18590
0618 4C00 0244R 1877 | BSC L INTX EXIT TO ILS 2-4 W1H18600
1878 | * * W1H18610
061A 0916 1879 | STWT2 XIO 1 SYNC-T START WRITE WITH TIMER W1H18620
061B C120 1880 | LD 1 H0005-T SET UP TO TRANSMIT 2-3 W1H18630
061C D146 1881 | STO 1 SYN5-T 5 SYNS FOR PADDING 2-3 W1H18640
061D 70F3 1882 | MDX ENQOF BR TO TURN OFF XMIT ENQ W1H18650
1883 | * * W1H18660
061E C138 1884 | EOTCK LD 1 BUF-T IS BUFF=EOT W1H18670
061F F12C 1885 | EOR 1 EOT-T W1H18680
0620 4C20 0625R 1886 | BSC L EOTN1,Z BR IF NOT DLE EOT 2-6 W1H18690
0622 40D6 1887 | BSI LGCHK CHECK IF LGS BEFORE 2-6 W1H18700
0623 4C00 0301R 1888 | BSC L DISCO NO,BR TO DISCONNECT 2-6 W1H18710
1889 | * * W1H18720
0625 C90E 1890 | EOTN1 LDD 1 ACK-T IS BUF EQUAL OTHER ACK W1H18730
0626 1090 1891 | SLT 16 W1H18740
0627 F138 1892 | EOR 1 BUF-T W1H18750
0628 4C18 06BER 1893 | BSC L OTHER,+- BR IF EQUAL OTHER ACK W1H18760
1894 | * W1H18770
062A C138 1895 | LD 1 BUF-T 2-6 W1H18780
062B F12E 1896 | EOR 1 WACK-T IS BUF = WACK 2-6 W1H18790
062C 4C20 0635R 1897 | BSC L RVICK,Z NO,BRANCH 2-6 W1H18800
062E 40CA 1898 | BSI LGCHK CHECK IF LGS BEFORE 2-6 W1H18810
062F 7401 01E6R 1899 | MDX L WACNT,1 INCRE WACKS RCVD 2-6 W1H18820
0631 1000 1900 | NOP 2-6 W1H18830
0632 C156 1901 | LD 1 H0001-T NO RETRIES WHEN 2-6 W1H18840
0633 D13C 1902 | STO 1 RETRY-T WACK IS RECEIVED 2-6 W1H18850
0634 700F 1903 | MDX REIID 2-6 W1H18860
1904 | * * W1H18870
0635 F136 1905 | RVICK EOR 1 WARVI-T 2-6 W1H18880
0636 4C20 0641R 1906 | BSC L TIMEX,Z BR IF NOT RVI 2-6 W1H18890
0638 40C0 1907 | BSI LGCHK CHECK IF LGS BEFORE 2-6 W1H18900
0639 C176 1908 | LD 1 RVIRD-T WAS RVI READ BEFORE 2-6 W1H18910
063A 4C20 06BER 1909 | BSC L OTHER,Z YES,BR-TREAT AS WR ACK 2-6 W1H18920
063C C130 1910 | LD 1 RVICD-T 2-6 W1H18930
063D D480 019DR 1911 | STO I IOAR /FFFE IN I/O AREA WC 2-6 W1H18940
063F D176 1912 | STO 1 RVIRD-T TURN ON RVI READ INDR 2-6 W1H18950
0640 70C9 1913 | MDX MESSQ BR TO CONTINUE 2-6 W1H18960
1914 | * 2-6 W1H18970
0641 7401 01E3R 1915 | TIMEX MDX L MISRV,+1 CNT MSTR INVAL SEQ RCVD2-3 W1H18980
0643 1000 1916 | NOP 2-3 W1H18990
0644 C17B 1917 | REIID LD 1 IDSEQ-T LOCAL ID SPECIFIED 2-6 W1H19000
0645 4C18 064BR 1918 | BSC L NTID2,+- BR IF NOT 2-6 W1H19010
0647 C14B 1919 | LD 1 LOCID-T REINITIALIZE 2-6 W1H19020
0648 D14D 1920 | STO 1 IDPNT-T LOCAL ID ADDRESS 2-6 W1H19030
0649 C178 1921 | LD 1 LOCLG-T REINITIALIZE 2-6 W1H19040
064A D17A 1922 | STO 1 IDCNT-T LOCAL ID LENGTH 2-6 W1H19050
1923 | * * W1H19060
064B 1010 1924 | NTID2 SLA 16 2-6 W1H19070
064C D165 1925 | STO 1 PADCK-T CLEAR PAD CK INDR 2-6 W1H19080
064D C151 1926 | LD 1 D0008-T 2-6 W1H19090
064E D14E 1927 | STO 1 LGS-T SET LEAD GRAPH COUNT 2-6 W1H19100
1928 | * * W1H19110
064F C138 1929 | LD 1 BUF-T 2-6 W1H19120
0650 F12E 1930 | EOR 1 WACK-T BUF = WACK 2-6 W1H19130
0651 4C20 0655R 1931 | BSC L NWACK,Z BR IF NOT 2-6 W1H19140
0653 C155 1932 | LD 1 WACOD-T ERROR CODE /0080 2-6 W1H19150
0654 7006 1933 | MDX TIME1 2-6 W1H19160
0655 C17B 1934 | NWACK LD 1 IDSEQ-T REMOTE ID SPECIFIED 2-6 W1H19170
0656 4C18 065AR 1935 | BSC L TIME0,+- BR IF NO 2-6 W1H19180
0658 C159 1936 | LD 1 H0201-T ID ERROR CODE 2-6 W1H19190
0659 7001 1937 | MDX TIME1 2-6 W1H19200
065A C129 1938 | TIME0 LD 1 H0200-T INVAL SEQ ERROR CODE 2-3 W1H19210
065B D16D 1939 | TIME1 STO 1 XMENQ-T TURN ON TRANSMIT ENQ INDR W1H19220
065C 7018 1940 | MDX ERP2 GO DECRE RETRY COUNTER W1H19230
1941 | * * W1H19240
065D C138 1942 | TRD1 LD 1 BUF-T IS BUF=DLE W1H19250
065E F125 1943 | EOR 1 DLE-T W1H19260
065F 4C18 03EER 1944 | BSC L WTDL1,+- YES, TURN ON LSDLE 2-3 W1H19270
1945 | * * W1H19280
0661 F127 1946 | EOR 1 DLNAK-T IS BUF=NAK 2-3 W1H19290
0662 4C20 0681R 1947 | BSC L NONAK,Z BR IF NOT NAK W1H19300
1948 | * * W1H19310
0664 4063 1949 | BSI PDCHK SET UP FOR PAD CK 2-6 W1H19320
0665 4C20 0641R 1950 | BSC L TIMEX,Z BR IF INVALID PAD 2-6 W1H19330
0667 4089 1951 | BSI CREID CHECK REM ID IF ANY 2-6 W1H19340
1952 | * * W1H19350
0668 10A0 1953 | MESOK SLT 32 2-6 W1H19360
0669 D960 1954 | STD 1 TOIND-T RESET TIMEOUT INDR 2-6 W1H19370
1955 | * WRACK WRONG ACK INDR 2-6 W1H19380
066A C169 1956 | LD 1 XMESS-T W1H19390
066B 4818 1957 | BSC +- BR IF XMIT MESSAGE IS ON W1H19400
1958 | * * W1H19410
066C D16D 1959 | STO 1 XMENQ-T TURN OFF TRANSMIT ENQ IND W1H19420
066D C800 1960 | LDD * 2-6 W1H19430
066E D968 1961 | STD 1 FIRST-T TURN ON FIRST CHAR IND 2-6 W1H19440
1962 | * XMESS XMIT MESSAGE 2-6 W1H19450
066F 1010 1963 | SLA 16 2-4 W1H19460
0670 D143 1964 | STO 1 COUNT-T CLEAR CHAR COUNT 2-4 W1H19470
1965 | * * W1H19480
0671 C154 1966 | LD 1 H0400-T NAK RECEIVED ERROR CODE W1H19490
0672 7401 01DER 1967 | MDX L RETRS,+1 CNT RETRANSMIT REQS 2-3 W1H19500
0674 1000 1968 | NOP 2-3 W1H19510
0675 4400 0424R 1969 | ERP2 BSI L ERRCK GO DECRE RETRY COUNTER W1H19520
0677 4C18 0304R 1970 | BSC L DISC,+- DISCONNECT IF A-REG IS 0 W1H19530
0679 4C10 0258R 1971 | BSC L STWT,- RETRY IF POSITIVE W1H19540
1972 | * * W1H19550
067B C90E 1973 | LDD 1 ACK-T ALTERNATE ACKS HERE SO W1H19560
067C 18D0 1974 | RTE 16 THAT THEY WILL NOT BE OUT W1H19570
067D D90E 1975 | STD 1 ACK-T OF STEP AT EXIT TO ILS TIM W1H19580
067E 1010 1976 | SLA 16 W1H19590
067F D169 1977 | STO 1 XMESS-T TURN OFF TRANSMIT MESS IND W1H19600
0680 708C 1978 | MDX MESQ3 BR TO ACCEPT ERROR W1H19610
1979 | * * W1H19620
0681 F125 1980 | NONAK EOR 1 DLE-T IS BUF=ENQ W1H19630
0682 4C20 069AR 1981 | BSC L NOTEQ,Z BR IF NOT ENQ W1H19640
0684 4400 05F9R 1982 | BSI L LGCHK CHECK IF LGS BEFORE 2-6 W1H19650
0686 10A0 1983 | SLT 32 2-6 W1H19660
0687 D960 1984 | STD 1 TOIND-T RESET TIMEOUT INDR 2-6 W1H19670
1985 | * WRACK WRONG ACK INDR 2-6 W1H19680
0688 C16D 1986 | LD 1 XMENQ-T W1H19690
0689 4C18 0641R 1987 | BSC L TIMEX,+- BR IF XMIT ENQ NOT ON W1H19700
1988 | * * W1H19710
068B C141 1989 | LD 1 SLVMS-T W1H19720
068C 4C18 0697R 1990 | BSC L E4000,+- BR TO ERROR IF MASTER W1H19730
1991 | * * W1H19740
068E C156 1992 | LD 1 H0001-T W1H19750
068F D13C 1993 | STO 1 RETRY-T SET RETRY TO ONE W1H19760
0690 C152 1994 | LD 1 H4000-T CONTENTION ERROR CODE W1H19770
0691 4400 0424R 1995 | BSI L ERRCK GO TELL USER W1H19780
0693 4C28 029CR 1996 | BSC L CLBSY,Z+ RESET AND CONTINUE 2-4 W1H19790
1997 | * * W1H19800
0695 4C00 0304R 1998 | BSC L DISC BR TO DISCONNECT W1H19810
1999 | * * W1H19820
0697 C152 2000 | E4000 LD 1 H4000-T CONTENTION ERROR CODE W1H19830
0698 4C00 048ER 2001 | BSC L NENQ1 GO DECRE RETRY W1H19840
2002 | * * W1H19850
069A F10A 2003 | NOTEQ EOR 1 DLNQT-T IS BUF = EOT W1H19860
069B 4C18 06B4R 2004 | BSC L EOTRT,+- BRANCH IF EOT 2-6 W1H19870
069D C17B 2005 | LD 1 IDSEQ-T REMOTE ID SPECIFIED 2-6 W1H19880
069E 4C20 06B1R 2006 | BSC L RIDSP,Z YES - BRANCH 2-6 W1H19890
06A0 C169 2007 | LD 1 XMESS-T * THIS PART OF PROGRAM 2-6 W1H19900
06A1 4C18 06A9R 2008 | BSC L GRAPH,+- * TESTS IF LEADING GRA 2-6 W1H19910
06A3 C16D 2009 | LD 1 XMENQ-T * PHICS WERE RECEIVED 2-6 W1H19920
06A4 4C18 06A9R 2010 | BSC L GRAPH,+- * IN ANSWER TO A LINE 2-6 W1H19930
06A6 C140 2011 | LD 1 SUBF-T * BID ENQ 2-6 W1H19940
06A7 4C28 0641R 2012 | BSC L TIMEX,Z+ * BRANCH IF YES 2-6 W1H19950
2013 | * * W1H19960
06A9 C138 2014 | GRAPH LD 1 BUF-T 2-6 W1H19970
06AA F124 2015 | EOR 1 SYN-T BUF = SYN 2-6 W1H19980
06AB 4C98 0004R 2016 | BSC I INT1,+- YES,ACCEPT SYN IN LGS 2-6 W1H19990
06AD 74FF 01AER 2017 | MDX L LGS,-1 NO,DECR GRAPH COUNT 2-6 W1H20000
06AF 7029 2018 | MDX INTX4 EXIT IF LGS STILL POS 2-6 W1H20010
06B0 7090 2019 | MDX TIMEX RETURN - LGS OVERFLOW 2-6 W1H20020
2020 | * * W1H20030
06B1 4400 05DDR 2021 | RIDSP BSI L RREID GO CHECK REMOTE ID 2-6 W1H20040
06B3 708D 2022 | MDX TIMEX ID ERROR 2-6 W1H20050
2023 | * W1H20060
06B4 4013 2024 | EOTRT BSI PDCHK SET UP FOR PAD CHECK 2-6 W1H20070
06B5 4C20 0641R 2025 | BSC L TIMEX,Z BR IF INVALID PAD 2-6 W1H20080
06B7 4400 05F9R 2026 | BSI L LGCHK CHECK IF LGS BEFORE 2-6 W1H20090
06B9 10A0 2027 | SLT 32 2-6 W1H20100
06BA D960 2028 | STD 1 TOIND-T RESET TIMEOUT INDR 2-6 W1H20110
2029 | * WRACK WRONG ACK INDR 2-6 W1H20120
06BB D176 2030 | STO 1 RVIRD-T CLEAR RVI READ INDR 2-6 W1H20130
06BC 4C00 0292R 2031 | BSC L RDEOT BR IF CHAR IS AN EOT W1H20140
2032 | * W1H20150
06BE C160 2033 | OTHER LD 1 TOIND-T IF TIMEOUT IND ON, W1H20160
06BF 4C20 06C4R 2034 | BSC L TOION,Z BR TO CHECK WRACK W1H20170
06C1 C112 2035 | OTHR3 LD 1 H0100-T WRONG ACK ERROR CODE W1H20180
06C2 D161 2036 | STO 1 WRACK-T TURN ON WRONG ACK IND W1H20190
06C3 7097 2037 | MDX TIME1 BR TO TURN ON XMIT ENQ IND W1H20200
2038 | * W1H20210
06C4 C161 2039 | TOION LD 1 WRACK-T IF NOT WRONG ACK FIRST, W1H20220
06C5 4C18 0668R 2040 | BSC L MESOK,+- BR TO SEND MESSAGE W1H20230
06C7 70F9 2041 | MDX OTHR3 BR TO TURN ON XMENQ INDR W1H20240
2042 | *************************************************** W1H20250
SCAT2 - CHECK PAD AFTER EOT/NAK
2044 | *************************************************** W1H20270
2045 | * SET PAD CHECK INDICATOR * W1H20280
2046 | *************************************************** W1H20290
06C8 0000 2047 | PDCHK DC *-* 2-6 W1H20300
06C9 C000 2048 | LD * 2-6 W1H20310
06CA D165 2049 | STO 1 PADCK-T SET PAD CHECK INDR 2-6 W1H20320
06CB 700D 2050 | MDX INTX4 EXIT TO ILS 2-6 W1H20330
2051 | *************************************************** W1H20340
2052 | * CHECK IF PAD WAS INVALID * W1H20350
2053 | *************************************************** W1H20360
06CC 1010 2054 | PDCK1 SLA 16 2-6 W1H20370
06CD D165 2055 | STO 1 PADCK-T RESET PAD CHECK INDR 2-6 W1H20380
06CE C138 2056 | LD 1 BUF-T 2-6 W1H20390
06CF F12D 2057 | EOR 1 HFF00-T 2-6 W1H20400
06D0 1004 2058 | SLA 4 CHECK FOR 4 1-BITS 2-6 W1H20410
06D1 4C80 06C8R 2059 | BSC I PDCHK PAD OKEY - RETURN TO 2-6 W1H20420
2060 | * EOT/NAK PROCESS WITH 2-6 W1H20430
2061 | * ZERO IN ACCUMULATOR 2-6 W1H20440
2062 | *************************************************** W1H20450
SCAT2 - TIMEOUT FOR TRANSMIT
2064 | *************************************************** W1H20470
2065 | * TIMEOUT INTERRUPT FOR TRANSMIT * W1H20480
2066 | *************************************************** W1H20490
06D3 C162 2067 | XMTTM LD 1 TRANS-T W1H20500
06D4 4C18 06DBR 2068 | BSC L RECTO,+- BR IF RECEIVE TIMEOUT W1H20510
2069 | * W1H20520
06D6 090A 2070 | XIO 1 TIMER-T START TIMER W1H20530
06D7 C104 2071 | LD 1 H0002-T W1H20540
06D8 D16A 2072 | STO 1 SYN2-T TURN ON INSERT 2 SYNS IND W1H20550
06D9 4C80 0004R 2073 | INTX4 BSC I INT1 EXIT TO ILS W1H20560
2074 | * W1H20570
06DB 1010 2075 | RECTO SLA 16 W1H20580
06DC D164 2076 | STO 1 LSDLE-T TURN OFF LAST CHAR = DLE W1H20590
06DD C000 2077 | LD * W1H20600
06DE D160 2078 | STO 1 TOIND-T TURN ON TIMEOUT IND W1H20610
06DF 7401 01DFR 2079 | MDX L MASTO,+1 COUNT MASTER TIME OUTS 2-3 W1H20620
06E1 1000 2080 | NOP 2-3 W1H20630
06E2 4C00 0644R 2081 | BSC L REIID BR TO SET UP ERR CODE 2-3 W1H20640
2082 | *************************************************** W1H20650
06E4 2083 | END W1H20660
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
$PAUS 00F0 745 744
$PRET 0028 470 468 469
$SCAT 0011 386 200 385 1012
ACK 016ER 582 356 452 1160 1162 1259 1857 1874 1876 1890 1973 1975
ACKS 0182R 607 355 451
ALARM 0042R 188 158
ALOFF 0166R 572 192 574
ALON 0164R 569 189 571
ANS 0197R 635 181 820
ANSI 0241R 820 751
AQ 0036R 172 126 139
AUTOA 0038R 176 157
B2 04AAR 1479 1498
B3 04ADR 1481 1501
B4 04B0R 1483 1504
B5 04B3R 1485 1507
B6 04B6R 1487 1510
B7 04B9R 1489 1513
B8 04BCR 1491 1516
B9 04BFR 1493 1519
BCC1 01C3R 682 1095 1595 1748 1752 1772
BCC2 01D2R 705 1055 1134 1142 1203
BCCA 01C6R 687 1150 1178 1182 1238 1476 1493 1598 1753 1758 1769
BCCER 01DDR 717 716 1185
BCCR 01A5R 649 1137 1139 1149 1177 1201
BCCTM 037ER 1134 1096
BUF 0198R 636 590 594 795 853 866 917 937 944 957 977 986 1028
1049 1061 1064 1101 1110 1115 1138 1199 1223 1369 1388 1411
1430 1474 1580 1587 1603 1608 1639 1645 1677 1685 1704 1739
1755 1759 1778 1807 1818 1825 1856 1884 1892 1895 1929 1942
2014 2056
BUSYX 01F4R 752 748
BY2 0299R 905 903
CALC 04A3R 1473 1025 1032 1040 1105 1114 1494 1674 1689 1740
CKABT 0331R 1061 1053
CKALT 0393R 1156 1197 1287 1313 1403
CKBCC 0352R 1095 861
CKDL 04F9R 1561 1714
CKDL1 0583R 1714 1730
CKDLE 04F6R 1559 1549
CKEND 0327R 1049 1118
CKIN3 02EBR 986 1026
CKIND 02E8R 983 975
CLBSY 029CR 909 1170 1439 1465 1996
CLBY2 0297R 904 1171 1428
CLBY3 029ER 912 1450
CLOS 0048R 197 159
CLOSE 01A7R 651 455 1464
COUNT 01A3R 647 347 929 935 941 1004 1072 1123 1129 1169 1237 1401 1575
1625 1631 1632 1964
CREID 05F1R 1832 1834 1836 1859 1951
D0008 01B1R 661 281 294 1786 1843 1926
D2OK 00D4R 335 329
D2OK1 00C2R 318 306
D2OK2 00C4R 320 308
D2OK3 00CAR 327 319 323
DCRD2 024ER 831 833
DIS 0486R 1430 1409
DISAA 0160R 563 177 565 821
DISC 0304R 1010 1192 1396 1441 1970 1998
DISCO 0301R 1008 1003 1432 1888
DISM2 0484R 1428 1422
DLE 0185R 610 598 600 622 918 1029 1102 1116 1263 1412 1562 1609 1678
1705 1943 1980
DLEN1 031ER 1035 1030
DLEOT 0193R 629 1415
DLNAK 0187R 1792 1946
DLNQT 016AR 1791 2003
DLOFF 02F4R 995 1006
DLSHX 018BR 634 960
DLSOH 0194R 630 409
DLSTX 01D4R 707 1622 1665 1672
DRCNT 037BR 1129 1124
DRPNT 0374R 1125 1122
DSCRD 0250R 832 753
DSW 0199R 637 743 749 754 757 774 1544 1697
E0800 03ADR 1184 1151 1154
E1000 03B2R 1189 1147
E4000 0697R 2000 1990
EBC 0182R 606
ENAA 0162R 566 182 568
ENAB 015AR 495 485
ENABL 003CR 180 176
ENDOP 0168R 575 197 368 577 901 1010 1156 1247 1866
ENDRD 0470R 1408 802
ENDTM 049FR 1464 814
ENDWT 0457R 1379 772
ENQ 0187R 612 841 867 1062 1427 1777 1792
ENQIN 0252R 838 871 881
ENQOF 0611R 1869 1882
ENQRD 02D1R 957 952
ENQWT 05B9R 1776 1566
EOR1 04C2R 1496 1477
EOR2 04C5R 1499 1479
EOR3 04C8R 1502 1481
EOR4 04CBR 1505 1483
EOR5 04CER 1508 1485
EOR6 04D1R 1511 1487
EOR7 04D4R 1514 1489
EOR8 04D7R 1517 1491
EOT 018CR 617 898 1387 1421 1431 1885
EOTCK 061ER 1884 1858
EOTN1 0625R 1890 1886
EOTRP 01A8R 652 458 1398
EOTRT 06B4R 2024 2004
EQET 016AR 633 891 1207 1424
ER1 013DR 466 149 244 271 312 314 331 333 343 487
ER11 013ER 467 417 465
ER3 013AR 463 218 221 227 230
ERP1 0491R 1441 1467
ERP2 0675R 1969 1940
ERRCK 0424R 1321 1190 1311 1326 1334 1437 1969 1995
ERRO1 03B4R 1192 1289 1315
ERROR 03B3R 1190 1187
ERRU 0435R 1335 1322 1331 1446
ET 045ER 1387 1382
ETB 018AR 615 1050 1738
ETBTX 0192R 628 1052
ETX 018BR 616 624 634 1743
EXIT 0012R 137 178 233 480 493
EXIT1 003BR 178 190 193 207
EXIT2 014BR 480 500
EXIT3 0158R 493 388
EXT 00F6R 379 373 446
EXT2 00F8R 381 184
FCODE 019BR 639 290 313 332 335 363 392 770 800 812
FIRST 01C8R 690 345 863 920 966 1234 1581 1600 1961
FRST 0515R 1592 1583
GET1 03BAR 1199 1135
GRAPH 06A9R 2014 2008 2010
H0001 01B6R 666 215 224 402 416 422 1005 1232 1324 1593 1901 1992
H0002 0164R 571 287 464 777 850 2071
H0005 0180R 604 444 845 1880
H0007 01BCR 672 246 1328
H0009 01BDR 673 249 284
H000F 01BBR 671 220 229 489 496
H0020 01BAR 670 1283
H0080 01B5R 665 1793
H00F0 0166R 574 154 360 457
H0100 0172R 589 309 311 324 327 330 484 486 2035
H0200 0189R 623 315 1434 1938
H0201 01B9R 669 1936
H0300 018BR 624 243 305 318
H0400 01B4R 664 1966
H0800 01B3R 663 1184
H0F00 0168R 577 241 304 476
H1000 0185R 622 1189
H2000 01B7R 667 1310
H2001 01B8R 668 1307
H4000 01B2R 662 1994 2000
H6FFF 0160R 565 146
H700D 0162R 568 148
H8000 049ER 1455 1447 1453
H8001 01B0R 660 415 463 466
HFF00 018DR 621 405 412 1078 1127 1579 1602 1806 1824 2057
HFFF6 01BER 674 272
ID3 027FR 883 873
ID32 027CR 879 889
IDCAL 0056R 211 166 212
IDCL2 0071R 237 169 238
IDCNT 01DAR 713 254 872 877 1257 1306 1784 1802 1810 1821 1827 1835 1922
IDPNT 01ADR 657 252 258 875 1255 1304 1782 1805 1812 1823 1829 1920
IDSEQ 01DBR 714 248 870 888 906 953 967 1301 1800 1833 1872 1917 1934
2005
INT1 0004R 120 806 823 827 831 1039 1117 1295 1358 1553 1820 2016 2073
INT2 01E7R 742 121
INT3 0448R 1358 1267 1298 1351 1356 1366
INT4 040FR 1298 1183 1204
INT5 03BFR 1204 1130
INTX 0244R 822 847 913 927 942 1877
INTX1 02DER 972 1020
INTX2 04F1R 1553 1641
INTX3 0541R 1641 1774
INTX4 06D9R 2073 2018 2050
INTX5 05B8R 1774 1813 1830
INTX6 029FR 913 972
INTXC 04EFR 1552 1563
IOAR 019DR 641 299 342 401 900 904 1009 1231 1592 1911
ITB 018FR 620 1065 1646
ITBBC 03A3R 1173 1144
ITBCK 0542R 1643 1634
ITBER 01D7R 710 1153 1179 1180 1246
ITBRD 01C7R 688 1068 1143 1174 1649 1766
LABX1 0294R 901
LAST8 05A8R 1758 1749
LDDLE 017ER 600 1659
LDREG 0551R 1659 1675
LGCHK 05F9R 1841 1844 1887 1898 1907 1982 2026
LGS 01AER 658 282 1787 1842 1927 2017
LOAD 016CR 580 293 1764
LOCID 01ABR 655 216 251 874 1919
LOCLG 01D8R 711 219 253 876 1921
LOOP1 0051R 204 206
LOOP2 030AR 1016 1018
LSDLE 01C4R 684 297 925 996 1022 1098 1109 1240 1251 1266 1384 1408 1444
1538 1599 1668 1673 1682 1701 1709 1713 1721 1851 1855 2076
MASTO 01DFR 719 2079
MDX1 0027R 156 147
MESOK 0668R 1953 2040
MESQ3 060DR 1865 1978
MESSQ 060AR 1862 1913
MISRV 01E3R 723 1435 1915
NAK 0186R 611 1222
NAKTM 034ER 1084 1073 1080 1210
NDLE 052BR 1622 1610
NENQ 048AR 1434 1419 1425
NENQ1 048ER 1437 1454 2001
NEOT 0480R 1424 1416
NO50 00FFR 387 382
NOBIN 0311R 1022 984
NODEC 004FR 202 199
NODLE 02C9R 951 919
NOEOT 02A0R 915 892
NOFST 02DFR 974 864
NOMES 0585R 1718 1569
NONAK 0681R 1980 1947
NOSY2 0267R 860 851 855
NOT1 0101R 392 350
NOTEQ 069AR 2003 1981
NRDCH 0221R 792 789
NTDLE 0317R 1028 1023
NTENQ 0288R 891 868
NTEST 001DR 146 132
NTFST 054CR 1654 1582 1588
NTID1 041CR 1310 1302
NTID2 064BR 1924 1918
NTID3 041DR 1311 1308
NTRAN 052CR 1623 1606 1617 1663 1687 1690
NTRCV 0104R 400 364
NTRDY 049CR 1453 756
NTSYN 0325R 1040 1036
NWACK 0655R 1934 1931
NWRCH 0207R 768 765
NXTPD 01AAR 654 768 1365 1373
OFF 0046R 192 188
OFLOW 02DCR 970 931
OKSUB 007BR 245 242
ONLIN 02F7R 999 988
OPERR 019FR 643 499 829 1284
OPTN 014DR 484 477
OPTSW 01AFR 659 371 490 491 492 497 825 1276 1293 1354
OTHER 06BER 2033 1893 1909
OTHR3 06C1R 2035 2041
OVFLO 01CBR 694 971 1146
PACK 01A9R 653 280 321 325 419 933 939 1074 1121 1573 1623
PAD 018DR 618 621 1368
PADCK 01C5R 685 798 1164 1925 2049 2055
PADIN 0436R 1342 1217 1344 1379 1527
PDCHK 06C8R 2047 893 1418 1949 2024 2059
PDCK1 06CCR 2054 799
POINT 01A4R 648 403 404 411 421 423 425 938 946 947 948 1076 1077
1125 1126 1128 1233 1578 1585 1594 1601 1629
POLY 04DAR 1521 1497 1500 1503 1506 1509 1512 1515 1518
POS 03DFR 1250 1220
PROC 0007R 126 113
RCV 012AR 437 393
RCVID 0087R 257 250
RCVRD 025CR 849 801
RCVT 03F1R 1273 813
RCVTM 0410R 1299 884 886 894 955 991 1208
RCVWT 03C4R 1217 771
RDCNT 02BDR 941 949
RDENQ 01D1R 703 273 340 839 896 926 1002
RDEOT 0292R 900 842 2031
RDEVN 02B7R 937 934
RDODD 02C0R 944 936
RDTST 0469R 1398 1394
READ 0174R 590 794
READI 021BR 788 758
REC 00A6R 290 286
RECTO 06DBR 2075 2068
REIID 0644R 1917 1903 2081
REMID 01ACR 656 225 257 1254 1303 1781
REMLG 01D9R 712 228 259 883 1256 1305 1783
RENQ 008DR 266 165 267
RESRT 03D0R 1230 1227 1248 1291 1316
RET 001BR 144 140
RETIM 0180R 602 370 604 832 859 912 915 1275 1330 1868
RETRS 01DER 718 1967
RETRY 019CR 640 295 1323 1325 1329 1902 1993
RIDOK 01CFR 700 879 885 907
RIDSP 06B1R 2021 2006
RMCHK 01E2R 722 790
RMON 02CCR 953 961
RMON2 02CFR 955
ROMQ1 0330R 1059 1106
ROMQ2 02DBR 968 1059
ROOMQ 02ADR 929 968 1066
RPEAT 039AR 1163 1158
RREID 05DDR 1817 954 1822 1826 2021
RTBSY 01D0R 702 135 211 237 266 276 380 752 822 910 1865
RUPNT 02C6R 948 940
RVICD 0190R 625 1910
RVICK 0635R 1905 1897
RVIRD 01D6R 709 1860 1908 1912 2030
SCAT2 0000R 111
SENSR 0170R 584 586 742
SETBC 032DR 1055 1070
SETFT 00DFR 345 341
SETPD 03C9R 1223 1260
SETPK 00C8R 324 310 316
SIDCT 0085R 254 260
SISRV 01E4R 724 1299
SLVMS 01A1R 645 361 1989
SLVTO 01E0R 720 1273
SOH 0188R 613 406 958
STAT 0016R 141 127 471
STDLE 02A8R 924 1033 1103
STPAD 044AR 1363 1226 1374 1392 1785
STPD1 05C3R 1785 1767
STRD 0442R 1353 1317 1399 1788
STRD2 0423R 1317 1228
STRED 0172R 587 369 589 902 1168 1292 1353 1867
STWT 0258R 844 840 1086 1195 1448 1971
STWT2 061AR 1879 1863
STX 0189R 614 413 623 987 1079
STXET 0195R 631 999
STXIN 01CER 699 923 964 983 1616 1654 1658
STXOF 02D7R 963 997
SUBF 01A0R 644 328 349 437 1157 1279 1381 1393 2011
SUPAD 0144R 475 262
SUPD 008BR 262 164
SYN 0184R 609 580 596 854 978 1111 1349 1551 1686 1819 2015
SYN1 04F3R 1555 1546
SYN2 01CAR 693 429 778 849 858 974 982 1038 1120 1244 1528 1548 1556
2072
SYN5 01A6R 650 445 846 1343 1346 1881
SYNC 0176R 592 443 844 1008 1879
SYNC1 012DR 443 433 459
SYNDL 0191R 627 1035
SYNUP 0321R 1038 979
T 0160R 562 129 135 146 148 154 177 181 182 189 192 197 198
211 215 216 219 220 224 225 228 229 237 241 243
246 248 249 251 252 253 254 257 258 259 266 272
273 276 279 280 281 282 284 285 287 290 293 294
295 297 299 301 304 305 309 311 313 315 318 321
324 325 327 328 330 332 335 340 344 345 347 349
355 356 357 361 363 368 369 370 371 375 380 381
384 392 400 401 402 403 405 406 409 412 413 415
416 419 421 422 423 429 439 463 464 476 478 484
486 489 490 491 492 496 497 499 746 768 777 779
782 794 795 798 800 812 821 822 825 832 838 839
841 844 845 846 849 850 853 854 858 859 860 863
866 867 870 872 874 875 876 877 879 883 885 888
891 896 898 901 902 906 907 910 912 915 917 918
920 923 925 926 929 930 933 935 937 939 944 951
953 957 958 960 964 966 967 971 974 977 978 982
983 986 987 990 994 996 999 1002 1004 1005 1008 1010
1019 1022 1028 1029 1035 1049 1050 1052 1055 1057 1061 1062
1064 1065 1068 1074 1078 1079 1085 1095 1098 1101 1102 1109
1110 1111 1115 1116 1121 1123 1127 1134 1137 1138 1139 1142
1143 1146 1149 1150 1153 1156 1157 1160 1162 1164 1165 1168
1169 1174 1175 1177 1178 1179 1180 1182 1184 1189 1194 1199
1201 1203 1207 1219 1222 1223 1225 1231 1232 1233 1234 1237
1238 1240 1242 1244 1246 1247 1251 1254 1255 1256 1257 1259
1262 1263 1266 1275 1276 1279 1281 1283 1286 1292 1293 1297
1301 1303 1304 1305 1306 1307 1310 1323 1324 1325 1328 1329
1330 1333 1343 1348 1349 1353 1354 1357 1365 1368 1369 1371
1373 1381 1384 1387 1388 1390 1393 1398 1401 1408 1411 1412
1415 1421 1424 1427 1430 1431 1434 1443 1444 1464 1474 1476
1493 1528 1538 1541 1544 1550 1551 1556 1559 1561 1562 1565
1568 1573 1575 1579 1580 1581 1587 1592 1593 1594 1595 1598
1599 1600 1602 1603 1605 1608 1609 1616 1622 1623 1625 1632
1633 1637 1638 1639 1643 1645 1646 1649 1654 1658 1659 1661
1662 1665 1668 1672 1673 1677 1678 1682 1685 1686 1692 1697
1701 1704 1705 1709 1713 1718 1721 1724 1725 1729 1733 1734
1735 1738 1739 1743 1748 1752 1753 1755 1758 1759 1763 1764
1766 1769 1772 1773 1777 1778 1780 1781 1782 1783 1784 1786
1787 1800 1802 1806 1807 1809 1818 1819 1821 1824 1825 1833
1835 1842 1843 1851 1855 1856 1857 1860 1862 1865 1866 1867
1868 1870 1872 1873 1874 1876 1879 1880 1881 1884 1885 1890
1892 1895 1896 1901 1902 1905 1908 1910 1912 1917 1919 1920
1921 1922 1925 1926 1927 1929 1930 1932 1934 1936 1938 1939
1942 1943 1946 1954 1956 1959 1961 1964 1966 1973 1975 1977
1980 1984 1986 1989 1992 1993 1994 2000 2003 2005 2007 2009
2011 2014 2015 2028 2030 2033 2035 2036 2039 2049 2055 2056
2057 2067 2070 2071 2072 2076 2078
T2 0236R 810 793
TAB4 01C0R 676 204 1016
TABCT 01DCR 716 478
TBTX 019AR 638 285 1735
TEMP 0035R 171 151 245 247 274 283
TEND 01D3R 706 1725 1729 1734
TERMT 03C0R 1207 1000
TEST 0097R 276 163 255 277
TEXTM 01A2R 646 432 1605
TIME0 065AR 1938 1935
TIME1 065BR 1939 1933 1937 2037
TIMEI 0233R 805 760
TIMER 016AR 578 375 633 782 1297 1357 1662 1724 1791 2070
TIMEX 0641R 1915 1837 1845 1906 1950 1987 2012 2019 2022 2025
TMNIT 0413R 1301 1278 1280 1282
TMT 0125R 429 407 414
TMT1 0111R 411 424
TMT2 0114R 413 427
TMT3 011AR 419 410
TMT4 0121R 425 420
TOIND 01C0R 678 1870 1954 1984 2028 2033 2078
TOION 06C4R 2039 2034
TRANS 01C2R 681 279 779 860 994 1057 1175 1242 1443 1559 1643 1661 1692
1718 1733 2067
TRD1 065DR 1942 1852
TTDCK 033DR 1072 1063
TTDCT 01E5R 725 1081
TTDPA 0345R 1077 1075
UPCNT 0535R 1631 1627
UPPTR 0533R 1629 1624 1626
USERR 0170R 586 301 1332
WACK 018ER 619 1896 1930
WACNT 01E6R 726 1899
WACOD 01B5R 1793 1932
WARVI 0196R 632 1905
WD17I 01D5R 708 198 381 384
WDCNT 019ER 642 344 930 1633
WLOID 05C9R 1799 1250 1776 1801 1803
WRACK 01C1R 679 2036 2039
WRPAD 044ER 1368 769
WSYN1 04EDR 1550 1557 1560 1699
WTBF 053DR 1638 1644 1647 1741 1756
WTBF2 053BR 1636 1650
WTBUF 0178R 594 1225 1371 1390 1638 1763 1780 1809
WTDL 03EAR 1262 1252 1385
WTDL1 03EER 1265 1413 1944
WTDLE 017CR 598 1262 1561
WTEVN 0508R 1578 1574
WTODD 0510R 1585 1576
WTSYN 017AR 596 1348 1550
XEND 0131R 451 336
XMCHK 01E1R 721 766
XMENQ 01CDR 697 357 838 951 990 1281 1565 1873 1939 1959 1986 2009
XMESS 01C9R 691 400 1541 1568 1637 1773 1862 1956 1977 2007
XMT 0211R 776 780 784
XMT1 04FCR 1565 1529 1539 1542
XMT2 0556R 1665 1655
XMT3 0570R 1692 1666
XMT4 0562R 1677 1669
XMT4A 0569R 1685 1679 1693
XMT4B 056DR 1689 1683 1706 1710
XMT5 0581R 1712 1702 1722
XMT6 059FR 1748 1719
XMT7 0592R 1732 1726
XMT8 059DR 1743 1736
XMT84 0599R 1739 1744
XMTRD 05FFR 1851 803
XMTTM 06D3R 2067 815
XMTWT 04DBR 1527 776
XNAK 01CCR 696 439 1085 1165 1194 1219
XR1 0017R 142 111
XR2 0019R 143 128
YSDLE 035FR 1108 1099
YSSYN 036CR 1120 1112
ZILCH 0240R 816 810