User Tools

Site Tools


ibm:ibm1130-lib:dmsr2v12:w1scat1_lst

W1SCAT1

Table Of Contents
  • [00004] SCAT1 CALL PROCESSING
  • [00480] SCAT1 CONSTANTS
  • [00608] SCAT1 INTERRUPT PROCESSING
  • [00686] SCAT1 OPEN - WRITE RESPONSE
  • [00773] SCAT1 OPEN - READ RESPONSE
  • [00867] SCAT1 OPEN - TIMEOUT
  • [00917] SCAT1 TRANSMIT - WRITE RESPONSE
  • [01034] SCAT1 TRANSMIT - READ RESPONSE
  • [01170] SCAT1 TRANSMIT - TIMEOUT
  • [01182] SCAT1 RECEIVE - WRITE RESPONSE
  • [01249] SCAT1 RECEIVE - READ RESPONSE
  • [01400] SCAT1 RECEIVE - TIMEOUT
  • [01483] SCAT1 CHECK ON 4/8 AND CONTROL
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