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