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