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