&DL      PROC  &P,0,&DEVICE=,&TYPE=,&TERMS=,&CALL=,                    X00000000
               &QUEUES=0,&EDIT=,&ID=,&IMS=,&LBL=0,                     X00000100
               &MPPS=,&PRCS=,&STATS=,&DIALER=,                         X00000200
               &RETRY=,&TIMEOUT=                                        00000201
XLINE    NAME  X                                                        00000300
LINE     NAME  0       . GENERATE LINE CONTROL TABLE                    00000400
.* .                                                                    00000500
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00000600
.* .                                                                  * 00000700
.* . THIS AND ALL RELATED PROGRAMS ARE PROPERTY OF                    * 00000800
.* .                                                                  * 00000900
.* . UNIVAC CONTAINING ITS CONFIDENTIAL INFORMATION                   * 00001000
.* .                                                                  * 00001100
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00001200
         GBL   &U93                                                     00001300
         GBL   &TN#CNME                                                 00001400
         GBL   &TN#LNDX            . 9700 LINE INDEX                    00001500
         GBL   &TS#LINS            . TOTAL NUMBER OF LINES              00001600
         GBL   &TN#GCUR,&TN#GNXT,&TN#GCNT,&TN#GIDX                      00001700
         GBL   &TN#GONE            . CHECK FOR FIRST AND LAST TCT       00001800
         GBL   &T                  . LINE TYPE FOR TCT                  00001900
         GBL   &TN#UNAT            . USED IN TCT TERM PROC              00002000
         GBL   &TN#SPED            . LINE SPEED CPS                     00002100
         GBL   &TN#BTLN            . LENGTH OF BATCH WORK AREA          00002200
         GBL   &CNTR               . NTR NETWORK                        00002300
         GBL   &TN#LTND,&CDDI,&CRJE                                     00002400
         GBL   &TN#STAT            . STATISTICS ACCUMULATION            00002500
         GBL   &TRANS                                                   00002600
         GBL   &CTCIYES,&CTCIPUT,&TCITRNS,&TCIRES,&TCIDOUT              00002700
         GBL   &LLLLL,&MMMMM,&PPPPP,&TTTTT                              00002800
         GBL   &ST                 . LINE TYPE                          00002900
         GBL   &TS#BPN3                                                 00003000
         GBLA  &FIQ                                                     00003010
         LCL   &TN#DSPD,&TN#DF,&TN#DA,&TN#DSW,&TN#DSYN,&TN#DUNA         00003100
         LCL   &NPHONES,&NOPHON                                         00003200
         LCL   &LBATCH                                                  00003300
.* .                                                                    00003400
         CNOP  0,4                                                      00003500
         DO    '&U93'=''                                                00003600
&U93     SET   1                                                        00003700
         ENDO                                                           00003800
         DO    '&TRANS'=''                                              00003900
&TRANS   SET   0                                                        00004000
         ENDO                                                           00004100
         DO    '&CDDI'=''                                               00004200
&CDDI    SET   0                                                        00004300
         ENDO                                                           00004400
         DO    '&CRJE'=''                                               00004500
&CRJE    SET   0                                                        00004600
         ENDO                                                           00004700
         DO    '&TCITRNS'=''                                            00004800
&TCITRNS SET   0                                                        00004900
         ENDO                                                           00005000
         DO    '&TCIDOUT'=''                                            00005100
&TCIDOUT SET   0                                                        00005200
         ENDO                                                           00005300
         DO    '&TS#LINS'=''                                            00005400
&TS#LINS SET   0                                                        00005500
         ENDO                                                           00005600
         DO    '&TN#LNDX'=''                                            00005700
&TN#LNDX SET   0                                                        00005800
         ENDO                                                           00005900
&TN#UNAT SET   X'00'                                                    00006000
&TN#LNDX SET   &TN#LNDX+1          . INCREMENT LINE INDEX               00006100
&TS#LINS SET   &TS#LINS+1                                               00006200
&FIQ     SETA  0                                                        00006210
.* .                                                                    00006300
.*       FOLLOWING ARE USED FOR POLL GROUP LNKING AND GROUPING          00006400
.* .                                                                    00006500
.* .                                                                    00006600
.*   FOLLOWING ARE USED TO DEFINE LINE CHARACTERISTICS; USED MAINLY BY  00006700
.*   DUST                                                               00006800
.* .                                                                    00006900
&TN#DF   SET   0                   . FULL DUPLEX LINE INDICATOR         00007000
&TN#DA   SET   0                   . AUTODIAL LINE INDICATOR            00007100
&TN#DSW  SET   0                   . SWITCHED LINE INDICATOR            00007200
&TN#DSYN SET   0                   . SYNC LINE INDICATOR                00007300
&TN#DUNA SET   0                   . UNATTENDED ANSWERING LINE INDICATR 00007400
&TN#GCUR SET   X'FF'                                                    00007500
&TN#GNXT SET   0                   . NEXT POSSIBLE RID VALUE            00007600
&TN#GCNT SET   0                   . USED FOR POLL GROUP INDEXING       00007700
&TN#GIDX SET   1                   . GENERATES STATION ID               00007800
&TN#GONE SET   0                                                        00007900
&TN#STAT SET   0                   . SET STAT ACCUM OFF                 00008000
         DO    '&DL'=''=0                                               00008400
&DL      EQU   *                                                        00008700
         ENDO                                                           00008800
&MMMMM   SET   &MMMMM+1                                                 00008900
TN#X&MMMMM EQU *                   . USED TO GENERATE DISPLACEMENTS     00009000
TN#L&TN#LNDX EQU *                 . USED FOR QUEUE DISP TO LCT         00009100
.*                                 . GENERATE LINK WORD FOR LCT         00009200
         DO    '&DL'='&TN#LTND'                                         00009300
TN#LC&LLLLL DC F'0'                . LAST LCT LINK WORD                 00009400
&LLLLL   SET   &LLLLL+1            . LAST LCT SPECIFICATION             00009500
TN#D&LLLLL EQU *-4                                                      00009600
         GOTO  .LBYP1                                                   00009700
         ENDO                                                           00009800
TN#LC&LLLLL EQU *                  . LABEL FROM LAST LCT LINK           00009900
&LLLLL   SET   &LLLLL+1                                                 00010000
         DC    A(TN#LC&LLLLL)      . LINK TO NEXT LCT                   00010100
TN#D&LLLLL EQU *-4                                                      00010200
.LBYP1   LABEL                                                          00010300
         DC    CL4'&DL'            . LCT NAME                           00010400
.* .                                                                    00010500
.*       GENERATE DISPLACEMENT TO FIRST TERMINAL TABLE                  00010600
.* .                                                                    00010700
         DC    AL2(TN#T&TTTTT-TN#D&LLLLL) . DISPL TO FIRST TCT          00010800
.* .                                                                    00010900
.*       GENERATE DISPLACEMENT TO FIRST QUEUE TABLE                     00011000
.* .                                                                    00011100
         DO    &CDDI++&CRJE++&TCITRNS++&TCIDOUT                         00011200
         DC    AL2(0)              . NO QUEUES FOR THIS CCA             00011300
         ENDO                                                           00011400
         DO    (&CDDI++&CRJE++&TCITRNS++&TCIDOUT)=0                     00011500
.*                                 . GENERATE QUEUE DISPLACEMENT        00011600
         DC    AL2(TN#Q&LLLLL-TN#D&LLLLL) . DISP TO FIRST QCT           00011700
         ENDO                                                           00011800
.* .                                                                    00011900
.*   SET LINE CHARACTERISTICS ACCORDING TO TYPE KEYWORD                 00012000
.*  .                                                                   00012100
&DSSSS   DO    N'&TYPE                                                  00012200
         DO    '&TYPE(&DSSSS)'='FULL'                                   00012300
&TN#DF   SET   1                                                        00012400
         ENDO                                                           00012500
         DO    '&TYPE(&DSSSS)'='AUTO'                                   00012600
&TN#DA   SET   1                                                        00012700
&TN#DSW  SET   1                                                        00012800
         ENDO                                                           00012900
         DO    '&TYPE(&DSSSS)'='UNAT'                                   00013000
&TN#DUNA SET   1                                                        00013100
&TN#DSW  SET   1                                                        00013200
         ENDO                                                           00013300
         DO    '&TYPE(&DSSSS)'='SYNC'                                   00013400
&TN#DSYN SET   1                                                        00013500
         ENDO                                                           00013600
         DO    '&TYPE(&DSSSS)'='SWCH'                                   00013700
&TN#DSW  SET   1                                                        00013800
         ENDO                                                           00013900
         ENDO                                                           00014000
.* .                                                                    00014100
.*       GENERATE DEVICE TYPE VALUE FROM KEYWORD DEVICE                 00014200
.* .                                                                    00014300
&LBATCH  SET   'TN#LBTCH'                                               00014400
         DO    ('&DEVICE(1)'='TTY')++('&DEVICE(1)'='U100')++('&DEVICE(3X00014500
               )'='U100')                                               00014600
&LBATCH  SET   0                                                        00014700
         ENDO                                                           00014800
         DO    ('&DEVICE(2)'='INTER')++('&DEVICE(1)'='DCT500')          00014900
&LBATCH  SET   0                                                        00015000
         ENDO                                                           00015100
         DO    ('&DEVICE(1)'='U200')++('&DEVICE(3)'='U200')++('&DEVICE(X00015200
               1)'='UNISCOPE')++('&DEVICE(3)'='UNISCOPE')               00015300
&LBATCH  SET   0                                                        00015400
         ENDO                                                           00015500
         DO    ('&DEVICE(2)'='BATCH')**('&DEVICE(3)'=''=0)              00015600
         PNOTE 'P','BATCH AND INTER DEVICES ARE NOT MIXABLE'            00015700
         ENDO                                                           00015800
         DO    '&DEVICE(1)'='TTY'                                       00015900
&T       SET   X'02'               . TELETYPE DEVICE                    00016000
         DO    ('&DEVICE(2)'='28')++('&DEVICE(2)'='32')                 00016100
&T       SET   X'00'               . BAUDOT TELETYPE                    00016200
         ENDO                                                           00016300
         ENDO                                                           00016400
.*                                 . CHECK FOR DCT500                   00016500
         DO    ('&DEVICE(1)'='DCT500')++('&DEVICE(1)'='DCT524')++('&DEVX00016600
               ICE(1)'='DCT475')                                        00016700
&LBATCH  SET   0                                                        00016701
         DO    ('&DEVICE(2)'='')++('&DEVICE(2)'='TTY')                  00016800
&T       SET   X'02'               . DCT500 TELETYPE MODE               00016900
         ENDO                                                           00017000
         DO    '&DEVICE(2)'='AUTO'                                      00017100
&T       SET   X'03'               . DCT500 AUTOMATIC MODE              00017200
         ENDO                                                           00017300
&TN#UNAT SET   0                                                        00017400
         DO    &TN#DUNA                                                 00017500
&TN#UNAT SET   X'40'                                                    00017600
         ENDO                                                           00017700
         ENDO                                                           00017800
.*                                 . CHECK FOR U100 OR DCT1000          00017900
         DO    '&DEVICE(1)'='DCT1000'                                   00018000
&T       SET   X'10'               . DCT1000 DEVICE                     00018100
         ENDO                                                           00018200
         DO    ('&DEVICE(1)'='U100')++('&DEVICE(3)'='U100')             00018300
&T       SET   X'10'               . U100 DEVICE                        00018400
         ENDO                                                           00018500
         DO    ('&DEVICE(1)'='U200')++('&DEVICE(3)'='U200')             00018600
&T       SET   X'10'               . U200 DEVICE                        00018700
         ENDO                                                           00018800
         DO    ('&DEVICE(1)'='UNISCOPE')++('&DEVICE(3)'='UNISCOPE')     00018900
&T       SET   X'10'               . MIX OF U100 AND U200 DEVICES       00019000
         ENDO                                                           00019100
.*                                 . CHECK FOR DCT2000                  00019200
         DO    '&DEVICE(1)'='DCT2000'                                   00019300
&T       SET   X'20'               . DCT2000 DEVICE                     00019400
         ENDO                                                           00019500
         DO    '&DEVICE(1)'='DCT2EM'                                    00019600
&T       SET   X'21'                                                    00019700
         ENDO                                                           00019800
         DO    '&DEVICE(1)'='BSC'                                       00019900
&T       SET   X'54'               . SET BSC LINE TYPE = ASCII          00020000
         DO    '&DEVICE(3)'='ASCII'                                     00020100
&T       SET   X'58'               . SET BSC LINE TYPE=EBCDIC           00020200
         ENDO                                                           00020300
         DO    '&DEVICE(3)'='TRANSCOD'                                  00020400
&T       SET   X'50'               . SET BSC LINE TYPE = TRANSCODE      00020500
         ENDO                                                           00020600
         ENDO                                                           00020700
.*                                 . CHECK FOR 1004                     00020800
         DO    '&DEVICE(1)'='1004'                                      00020900
&T       SET   X'40'               . 1004 DEVICE                        00021000
         ENDO                                                           00021100
.*                                 . CHECK FOR 9200 OR 9300             00021200
         DO    '&DEVICE(1)'='9200'                                      00021300
&T       SET   X'41'               . 9200 DEVICE                        00021400
         ENDO                                                           00021500
         DO    '&DEVICE(1)'='9300'                                      00021600
&T       SET   X'42'               . 9300 DEVICE                        00021700
         ENDO                                                           00021800
         DO    '&DEVICE(1)'='1004EM'                                    00021900
&T       SET   X'A0'                                                    00022000
         ENDO                                                           00022100
         DO    '&DEVICE(1)'='NTR'                                       00022200
&T       SET   X'B0'               . NTR NETWORK                        00022300
         ENDO                                                           00022400
&ST      SET   &T                  . SET &ST TO LINE TYPE               00022500
         DO    '&ID'=''                                                 00022600
         DC    H'255'              . NO DEDICATED OUTPUT CHAN/PORT ID   00022700
         DC    H'255'              . NO DEDICATED INPUT  CHAN/PORT ID   00022800
         GOTO  .LBYP2                                                   00022900
         ENDO                                                           00023000
         DC    AL1(0)              . OUTPUT CHANNEL ID                  00023100
         DC    AL1(&ID)            .INPUT PORT ID                       00023200
         DC    AL1(0)              . INPUT CHANNEL ID                   00023300
.*  GENERATE INPUT PORT ADDRESS BASED ON ID AND TN#DF. IF TN#DF IS      00023400
.*  ZERO(HALF DUPLEX)THE INPUT ADDRESS WILL EQUAL ID. HOWEVER IF        00023500
.*  TN#DF IS ONE(FULL DUPLEX)THE INPUT ADDRESS WILL BE ID PLUS OR       00023600
.*  MINUS 1 DEPENDING ON THE VALUE OF ID. IF ID IS EVEN,THE INPUT       00023700
.*  ADDRESS IS EQUAL TO ID+1. CONVERSELY IF ID IS ODD THE INPUT         00023800
.*  ADDRESS IS EQUAL TO ID-1.                                           00023900
.*                                                                      00024000
         DC    AL1(&ID+&TN#DF*(1-2*(&ID**1)))  . INPUT PORT ID          00024100
.LBYP2   LABEL                                                          00024200
         DC    AL2(&TYPE(1))       . LINE SPEED CHAR PER SECOND         00024300
&TN#SPED SET   &TYPE(1)            . SETS SPEED IN TCT                  00024400
         DC    AL1(0)              . LINE CONTROL FLAGS                 00024500
.* .                                                                    00024600
.*       GENERATE DEVICE TYPE VALUE                                     00024700
.* .                                                                    00024800
         DC    AL1(&T)             . DEVICE TYPE ON LINE                00024900
         DO    '&RETRY'=''         . DEFAULT                            00025000
         DC    AL1(4)              . MAXIMUM OUTPUT RETRY COUNT         00025100
         DC    AL1(0)              .OUTPUT RETRY COUNTER                00025200
         DC    AL1(6-4*&TRANS)     . MAXIMUM INPUT RETRY COUNT          00025300
         DC    AL1(0)              . INPUT RETRY COUNT                  00025400
         GOTO  .RETBYPS                                                 00025500
         ENDO                                                           00025600
         DO    ('&RETRY(1)'='0')++('&RETRY(2)'='0')++('&RETRY(2)'='')   00025700
         PNOTE 'P','INVALID RETRY PARAMETER. DEFAULT GENERATED'         00025800
         DC    XL2'0400'           . DEFAULT OUTPUT RETRY               00025900
         DC    XL2'0600'           . DEFAULT INPUT RETRY                00026000
         GOTO  .RETBYPS                                                 00026100
         ENDO                                                           00026200
         DC    AL1(&RETRY(2))      . USER SPECIFIED OUTPUT RETRY        00026300
         DC    AL1(0)              . OUTPUT RETRY COUNTER               00026400
         DC    AL1(&RETRY(1))      . USER SPECIFIED INPUT RETRY         00026500
         DC    AL1(0)              . INPUT RETRY COUNTER                00026600
.RETBYPS LABEL                                                          00026700
         DC    Y(0)                . UNUSED                             00026800
         DO    '&CALL'=''                                               00026900
         DC    Y(0)                . ZERO IF NO PHONES SPECIFIED        00027000
         GOTO  .LBL1                                                    00027100
         ENDO                                                           00027200
         DC    Y(LPHDIR&MMMMM-TN#X&MMMMM) . DISP TO PHONE DIRECTORY     00027300
.LBL1    LABEL                                                          00027400
         DO    '&TERMS'=''                                              00027500
         PNOTE 'E','NUMBER OF TERMS NOT SPECIFIED. DEFAULT IS ONE'      00027600
         DC    XL2'0001'           . DEFAULT NUMBER OF TERMS            00027700
         GOTO  .TBYP1                                                   00027800
         ENDO                                                           00027900
         DC    AL2(&TERMS)         . NUMBER OF TERMINALS                00028000
.TBYP1   LABEL                                                          00028100
         DO    '&TRANS'='0'                                             00028200
         DC    AL1(&QUEUES)        . NUMBER OF QUEUES                   00028300
         ENDO                                                           00028400
         DO    &TRANS                                                   00028500
         DC    AL1(&TS#LINS)       . LINE NUMBER TRANS ICAM             00028600
         ENDO                                                           00028700
         DC    AL1(0)              . RESERVED FOR ICAM                  00028800
         DC    A(CCA#&TN#CNME)     . USERS CCA ADDRESS                  00028900
         DO    '&TRANS'='0'                                             00029000
         DC    A(0)                . MCT BATCH MODE POINTER             00029100
         ENDO                                                           00029200
         DO    &TRANS                                                   00029300
         DC    A(TN#T&TTTTT)       . TRANS 1ST TCT LINK                 00029400
         ENDO                                                           00029500
         DC    F'0'                . PT. PAST END OF NET BUFFER         00029600
         DC    F'0'                . PT. PAST END OF LINE BUFFER        00029700
.*                                 . CHECK FOR BATCH TYPE BUFF LINKS    00029800
&T       SET   0                                                        00029900
         DO    '&DEVICE(1)'='DCT2EM'                                    00030000
&T       SET   1                   . 929 COMPUTER TO COMPUTER MODE      00030100
         DC    A(TN#WA&LLLLL)      . POINTER TO LINE BUFFER             00030200
         ENDO                                                           00030300
         DO    '&DEVICE(1)'='DCT2000'                                   00030400
&T       SET   1                                                        00030500
         DC    A(TN#WA&LLLLL)      . POINTER TO LINE BUFFER             00030600
         ENDO                                                           00030700
         DO    (&ST=X'40')++(&ST=X'41')++(&ST=X'42')                    00030800
&T       SET   2                   .                                    00030900
         DC    A(TN#WA&LLLLL)      . POINTER TO 1004 LINE BUFFER        00031000
         ENDO                                                           00031100
         DO    '&DEVICE(1)'='BSC'                                       00031200
&T       SET   1                                                        00031300
         DO    '&DEVICE(2)'='TOGGLE'                                    00031400
         DC    A(TN#WA&LLLLL)      . ADDR OF 1ST LINE BUFFER            00031500
         DC    A(TN#WB&LLLLL)      . ADDR OF 2ND LINE BUFFER            00031600
         GOTO  .WABYP0                                                  00031700
         ENDO                                                           00031800
         DC    A(TN#WA&LLLLL)      . POINTER TO BSC LINE BUFFER         00031900
         ENDO                                                           00032000
         DO    &ST=X'A0'                                                00032100
         DC    A(TN#WA&LLLLL)      . ADDR OF LARGE INPUT LB # 1         00032200
         DC    A(TN#WB&LLLLL)      . ADDR OF LARGE INPUT LB # 2         00032300
         GOTO  .WABYP0                                                  00032400
         ENDO                                                           00032500
         DO    '&TRANS'='0'                                             00032600
         DO    &ST<X'20'                                                00032700
         DC    A(TN#WA&LLLLL)      . ADDR OF 1ST LINE BUFFER            00032800
         DC    A(TN#WB&LLLLL)      . ADDR OF 2ND LINE BUFFER            00032900
         GOTO  .WABYP0                                                  00033000
         ENDO                                                           00033100
         ENDO                                                           00033200
         DO    &TRANS                                                   00033300
         DC    A(TN#LBONE)         . LINE BUFFER 1 TRANS ICAM           00033400
         DC    A(0)                . LINE BUFFER 2 TRANS ICAM           00033500
         GOTO  .WABYP0                                                  00033600
         ENDO                                                           00033700
         DO    '&DEVICE(1)'='NTR'  . NTR NETWORK                        00033800
         DC    A(TN#WA&LLLLL)      . NTR ACK NAK LINE BUFFER            00033900
         DC    A(0)                . NTR WORK AREA                      00034000
&T       SET   1                                                        00034100
         GOTO  .WABYP0                                                  00034200
         ENDO                                                           00034300
.*                                 . GENERATE REMAINDER OF WORK AREA    00034400
         DO    &T=0                                                     00034500
         DC    A(0)                . ADDR. LINE BUFFER #1               00034600
         DC    A(0)                . ADDR. LINE BUFFER #2               00034700
         GOTO  .WABYP0                                                  00034800
         ENDO                                                           00034900
         DC    A(0)                . ADDR. LINE BUFFER #2               00035000
.WABYP0  LABEL                                                          00035100
         DC    A(0)                . ADDR. CPIOCP #1                    00035200
         DC    A(0)                . ADDR. CPIOCP #2                    00035300
         DC    A(0)                . ADDR. CPIOCP #3                    00035400
         DO    &TRANS                                                   00035500
         DC    Y(60)               . TRANS 60 SEC CLOCK                 00035600
         DC    Y(0)                                                     00035700
         GOTO  .INMCT                                                   00035800
         ENDO                                                           00035900
         DO    '&CDDI'='0'                                              00036000
         DC    A(0)                . MCTI WORK AREA                     00036100
         ENDO                                                           00036200
         DO    &CDDI                                                    00036300
         DC    A(TN#STMCT)         . ADDR DDI STATUS MCT. ONE/NETWORK   00036400
         ENDO                                                           00036500
.INMCT   LABEL                                                          00036600
         DC    A(0)                . ADDR. INPUT MCT                    00036700
         DC    A(0)                . ADDR. OUTPUT MCT                   00036800
         DC    A(0)                . OUTMCT TAIL OR CPIOCP #4           00036900
         DO    '&DEVICE(1)'='NTR'  . NTR NETWORK                        00037000
         DC    A(0)                . NTR NAK SEQ & OUT MSG NUM          00037100
         DC    XL4'00010003'       . NTR INPUT MSG NUM & IN CPIOCP CNT  00037200
         DC    XL4'00020000'       . NTR OUT CPIOCP CNT & FLAGS         00037300
         DC    A(0)                . NTR SERVICE MCT HEAD               00037400
         DC    A(0)                . NTR SERVICE MCT TAIL               00037500
         GOTO  .WABYP1                                                  00037600
         ENDO                                                           00037700
         DC    A(0)                . REGISTER SAVE                      00037800
         DC    A(0)                . REGISTER SAVE                      00037900
         DC    A(0)                . REGISTER SAVE                      00038000
         DC    A(0)                . REGISTER SAVE                      00038100
         DC    A(0)                . REGISTER SAVE                      00038200
.WABYP1  LABEL                                                          00038300
         DO    '&DL'='&TN#LTND'    . DO IF CURRENT LCT = LAST LCT       00038400
         DC    YL1(TN#LPOLL++TN#LPNAL++TN#LDOWN++TN#LININ++TN#LLAST++&LX00038500
               BATCH)                                                   00038600
         GOTO  .WABYP2                                                  00038700
         ENDO                                                           00038800
         DC    YL1(TN#LPOLL++TN#LPNAL++TN#LDOWN++TN#LININ++&LBATCH)     00038900
.WABYP2  LABEL                                                          00039000
         DO    (&ST=X'00')++(&ST=X'02')++(&ST=X'03')                    00039100
         DC    AL3(4)              . INDEX FOR TF#POLER                 00039300
         GOTO  .LBYP3                                                   00039400
         ENDO                                                           00039500
         DO    '&TRANS'='0'                                             00039600
         DO    &ST=X'10'                                                00039700
         DC    AL3(8)              . INDEX FOR TH#IPOLL                 00039900
         GOTO  .LBYP3                                                   00040000
         ENDO                                                           00040100
         ENDO                                                           00040200
         DO    (&ST=X'20')++(&ST=X'21')++(&ST=X'22')                    00040300
         DC    AL3(12)             . INDEX FOR TE#POLL                  00040500
         GOTO  .LBYP3                                                   00040600
         ENDO                                                           00040700
         DO    (&ST=X'40')++(&ST=X'41')++(&ST=X'42')                    00040800
         DC    AL3(16)             . INDEX FOR TT#POLL                  00041000
         GOTO  .LBYP3                                                   00041100
         ENDO                                                           00041200
         DO    (&ST=X'50')++(&ST=X'54')++(&ST=X'58')                    00041300
         DC    AL3(28)                  .INDEX FOR TB#POLL              00041500
         GOTO  .LBYP3                                                   00041600
         ENDO                                                           00041700
         DO    &ST=X'A0'                                                00041800
         DC    AL3(24)             . INDEX FOR TY#POLL                  00042000
         GOTO  .LBYP3                                                   00042100
         ENDO                                                           00042200
         DO    '&DEVICE(1)'='NTR'                                       00042300
         DC    AL3(20)                  .INDEX FOR TX#POLLE             00042500
         GOTO  .LBYP3                                                   00042600
         ENDO                                                           00042700
         DC    AL3(0)              . NO POLLING                         00042800
.LBYP3   LABEL                                                          00042900
.* .                                                                    00043000
.*       GENERATE POLL TIME INTERVAL SELECTIVELY BY DEVICE              00043100
.* .                                                                    00043200
         DO    &ST=X'10'                                                00043300
         DC    XL2'0101'           . U100 POLL TIME INTERVAL            00043400
         GOTO  .PTIBYP                                                  00043500
         ENDO                                                           00043600
.* .                                                                    00043700
         DO    (&ST=X'00')++(&ST=X'02')++(&ST=X'03')                    00043800
         DC    XL2'0101'           . TTY/500 POLL TIME INTERVAL         00043900
         GOTO  .PTIBYP                                                  00044000
         ENDO                                                           00044100
.* .                                                                    00044200
         DO    '&DEVICE(1)'='DCT2000'                                   00044300
         DC    XL2'0202'           . DCT2000 POLL TIME INTERVAL         00044400
         GOTO  .PTIBYP                                                  00044500
         ENDO                                                           00044600
.*  .                                                                   00044700
         DO    '&DEVICE(1)'='DCT2EM'                                    00044800
         DC    XL2'0101'           . DC929 POLL TIME INTERVAL           00044900
         GOTO  .PTIBYP                                                  00045000
         ENDO                                                           00045100
.* .                                                                    00045200
         DO    (&ST=X'40')++(&ST=X'41')++(&ST=X'42')                    00045300
         DC    XL2'0404'           . 1004 POLL TIME INTERVAL            00045400
         GOTO  .PTIBYP                                                  00045500
         ENDO                                                           00045600
.*  .                                                                   00045700
         DO    '&DEVICE(1)'='BSC'                                       00045800
         DC    XL2'0101'           . BSC POLL TIME INTERVAL             00045900
         GOTO  .PTIBYP                                                  00046000
         ENDO                                                           00046100
         DC    XL2'0202'           . ARBITRARY POLL TIME INTERVAL       00046200
.PTIBYP  LABEL                                                          00046300
         DO    '&TRANS'='0'                                             00046400
         DO    ((&ST=X'20')++(&ST=X'21'))**('&DEVICE(2)'='')            00046500
         DC    AL2(84)             . LINE UBFFER LENGTH - DEFAULT       00046600
         GOTO  .BLNBYP                                                  00046700
         ENDO                                                           00046800
         DO    ('&DEVICE(1)'='BSC')**('&DEVICE(2)'='')                  00046900
         DC    AL2(220)            . LINE BUFFER LENGTH - DEFAULT       00047000
         GOTO  .BLNBYP                                                  00047100
         ENDO                                                           00047200
         DO    (&ST=X'20')++(&ST=X'21')++(('&DEVICE(1)'='BSC')**('&DEVIX00047300
               CE(2)'='TOGGLE'=0))                                      00047400
         DC    AL2(&DEVICE(2))     . LENGTH OF LINE BUFFER              00047500
         GOTO  .BLNBYP                                                  00047600
         ENDO                                                           00047700
         DC    AL2(TN#LWA&LLLLL)   . LENGTH OF DEDICATED LINE BUFFER    00047800
         ENDO                                                           00047900
         DO    &TRANS                                                   00048000
         DC    Y(12)               . LENGTH TRANS LINE BUFFER 1         00048100
         ENDO                                                           00048200
.BLNBYP  LABEL                                                          00048300
&T       SET   1                                                        00048400
         DO    '&TIMEOUT(1)'=''=0  . USER HAS SPECIFIED TIMEOUT         00048500
         DO    ('&TIMEOUT(1)'='0')++('&TIMEOUT(2)'='0')++('&TIMEOUT(2)'X00048600
               ='')                                                     00048700
         PNOTE 'P','INVALID TIMEOUT. DEFAULT GENERATED.'                00048800
         GOTO  .TIMEBP1                                                 00048900
         ENDO                                                           00049000
         DC    AL2(&TIMEOUT(1))    . USER SPECIFIED INPUT TIMEOUT       00049100
         DC    AL2(&TIMEOUT(2))    . USER SPECIFIED OUTPUT TIMEOUT      00049200
&T       SET   0                                                        00049300
         GOTO  .TIMBYPS                                                 00049400
         ENDO                                                           00049500
.TIMEBP1 LABEL                                                          00049600
         DO    (&ST=X'20')++(&ST=X'21')                                 00049700
         DC    AL2(9)              . INPUT TIME OUT VALUE               00049800
         DC    AL2(5)              . OUTPUT TIME OUT VALUE              00049900
&T       SET   0                                                        00050000
         ENDO                                                           00050100
         DO    '&DEVICE(1)'='BSC'                                       00050200
         DC    AL2(4)              . INPUT TIMEOUT VALUE                00050300
         DC    AL2(10)             . OUTPUT TIMEOUT                     00050400
&T       SET   0                                                        00050500
         ENDO                                                           00050600
         DO    (&ST=X'40')++(&ST=X'41')++(&ST=X'42')                    00050700
         DC    XL4'00040004'       . INPUT AND OUTPUT TIME-OUT VALUES   00050800
&T       SET   0                                                        00050900
         ENDO                                                           00051000
         DO    &ST=X'A0'                                                00051100
         DC    AL2(8)              . INPUT TIME OUT VALUE               00051200
         DC    AL2(5)              . OUTPUT TIME OUT VALUE              00051300
&T       SET   0                                                        00051400
         ENDO                                                           00051500
         DO    &ST=X'10'                                                00051600
         DO    '&TRANS'='0'                                             00051700
         DC    AL2((10*TN#LWA&LLLLL//&TYPE(1))+2) INPUT TIMEOUT         00051800
         DC    AL2((10*TN#LWA&LLLLL//&TYPE(1))+2) OUTPUT TIMEOUT        00051900
         ENDO                                                           00052000
         DO    &TRANS                                                   00052100
         DC    AL2((30*&TS#BPN3//&TYPE(1))+1) INPUT TIMEOUT             00052200
         DC    AL2((30*&TS#BPN3//&TYPE(1))+1) OUTPUT TIMEOUT            00052300
         ENDO                                                           00052400
&T       SET   0                                                        00052500
         ENDO                                                           00052600
         DO    (&ST=X'00')++(&ST=X'02')++(&ST=X'03')                    00052700
         DC    XL2'0200'           . INPUT TIMEOUT                      00052800
         DC    XL2'0005'           . OUTPUT TIMEOUT VALUE               00052900
&T       SET   0                                                        00053000
         ENDO                                                           00053100
         DO    '&DEVICE(1)'='NTR'                                       00053200
         DC    XL2'000A'           . NTR DEFAULT INPUT TIME OUT         00053300
         DC    XL2'000A'           . NTR DEFAULT OUTPT TIME OUT         00053400
&T       SET   0                                                        00053500
         ENDO                                                           00053600
         DO    &T                                                       00053700
         DC    F'0'                . INPUT AND OUTPUT TIME OUT VALUES   00053800
         ENDO                                                           00053900
.TIMBYPS LABEL                                                          00054000
         DC    AL2(0)              . PARTIAL INPUT CHARACTER COUNT      00054100
         DO    ('&DEVICE(1)'='BSC')                                     00054200
         DO    '&DEVICE(2)'='TOGGLE'                                    00054300
         DC    AL1(TN#LSNBU++TN#LSEPK++TN#LSBTG)                        00054400
         GOTO  .LBYPBU                                                  00054500
         ENDO                                                           00054600
         DC    AL1(TN#LSNBU++TN#LSEPK)  . BUFFER FLAG                   00054700
         GOTO  .LBYPBU                                                  00054800
         ENDO                                                           00054900
         DO    (&ST=X'20')++(&ST=X'21')                                 00055000
         DC    AL1(TN#LSNBU++TN#LS4PK)  . BUFFER FLAG                   00055100
         GOTO  .LBYPBU                                                  00055200
         ENDO                                                           00055300
         DO    (&ST=X'40')++(&ST=X'41')++(&ST=X'42')                    00055400
         DC    AL1(TN#LSNBU++TN#LSNBI++TN#LSEPK) . FLAG FOR SETUP       00055500
         GOTO  .LBYPBU                                                  00055600
         ENDO                                                           00055700
         DO    &ST=X'A0'                                                00055800
         DC    AL1(TN#LSNBU++TN#LSNBI++TN#LS4PK) . BUFFER FLAG          00055900
         GOTO  .LBYPBU                                                  00056000
         ENDO                                                           00056100
         DO    (&ST=X'00')++(&ST=X'02')++(&ST=X'03')                    00056200
         DC    AL1(TN#LSEPK)       . BUFFER FLAG-EXTRA PACKET           00056300
         GOTO  .LBYPBU                                                  00056400
         ENDO                                                           00056500
         DO    &ST=X'10'                                                00056600
         DC    AL1(TN#LSNBU++TN#LSEPK)  . BUFFER FLAG                   00056700
         GOTO  .LBYPBU                                                  00056800
         ENDO                                                           00056900
         DO    '&DEVICE(1)'='NTR'                                       00057000
         DC    AL1(TN#LS4PK++TN#LSEPK) . CPIOCP CONTROL FLAG            00057100
         GOTO  .LBYPBU                                                  00057200
         ENDO                                                           00057300
         DC    AL1(0)              . BUFFER FLAG BYTE                   00057400
.LBYPBU  LABEL                                                          00057500
         DC    AL1(0)              . DICE FUNCTION                      00057600
         DC    H'0'                . DICE X-Y ARGUMENTS.                00057700
         DC    H'0'                . TOTAL MSGS. QUEUED TO LINE.        00057800
         DC    H'0'                . TOTAL INPUT CHARACTER COUNT.       00057900
&TN#DSPD SET   X'FF'                                                    00058000
         DO    &TN#DSYN                                                 00058100
         DO    &TYPE(1)<2000                                            00058101
&TN#DSPD SET   0                        . SET UP FOR 2000
         ENDO
         DO    &TYPE(1)=2000                                            00058200
&TN#DSPD SET   0                                                        00058300
         ENDO                                                           00058400
         DO    &TYPE(1)=2400                                            00058500
&TN#DSPD SET   1                                                        00058600
         ENDO                                                           00058700
         DO    &TYPE(1)=4800                                            00058800
&TN#DSPD SET   2                                                        00058900
         ENDO                                                           00059000
         DO    &TYPE(1)=9600                                            00059100
&TN#DSPD SET   3                                                        00059200
         ENDO                                                           00059300
         DO    &TYPE(1)>9600                                            00059400
&TN#DSPD SET   4                                                        00059500
         ENDO                                                           00059600
         DO    &TN#DSPD=X'FF'                                           00059700
         PNOTE 'P','INVALID LINE SPEED FOR SYNC LINE - &DL'             00059800
         ENDO                                                           00059900
         ENDO                                                           00060000
         DO    &TN#DSYN=0                                               00060100
         DO    &TYPE(1)=45                                              00060200
&TN#DSPD SET   0                                                        00060300
         ENDO                                                           00060400
         DO    &TYPE(1)=50                                              00060500
&TN#DSPD SET   1                                                        00060600
         ENDO                                                           00060700
         DO    &TYPE(1)=56                                              00060800
&TN#DSPD SET   2                                                        00060900
         ENDO                                                           00061000
         DO    &TYPE(1)=74                                              00061100
&TN#DSPD SET   3                                                        00061200
         ENDO                                                           00061300
         DO    &TYPE(1)=75                                              00061400
&TN#DSPD SET   4                                                        00061500
         ENDO                                                           00061600
         DO    &TYPE(1)=100                                             00061700
&TN#DSPD SET   5                                                        00061800
         ENDO                                                           00061900
         DO    &TYPE(1)=110                                             00062000
&TN#DSPD SET   6                                                        00062100
         ENDO                                                           00062200
         DO    &TYPE(1)=134                                             00062300
&TN#DSPD SET   7                                                        00062400
         ENDO                                                           00062500
         DO    &TYPE(1)=150                                             00062600
&TN#DSPD SET   8                                                        00062700
         ENDO                                                           00062800
         DO    &TYPE(1)=200                                             00062900
&TN#DSPD SET   9                                                        00063000
         ENDO                                                           00063100
         DO    &TYPE(1)=300                                             00063200
&TN#DSPD SET   10                                                       00063300
         ENDO                                                           00063400
         DO    &TYPE(1)=600                                             00063500
&TN#DSPD SET   11                                                       00063600
         ENDO                                                           00063700
         DO    &TYPE(1)=1050                                            00063800
&TN#DSPD SET   12                                                       00063900
         ENDO                                                           00064000
         DO    &TYPE(1)=1200                                            00064100
&TN#DSPD SET   13                                                       00064200
         ENDO                                                           00064300
         DO    &TYPE(1)=1800                                            00064400
&TN#DSPD SET   14                                                       00064500
         ENDO                                                           00064600
         DO    &TYPE(1)=2400                                            00064700
&TN#DSPD SET   15                                                       00064800
         ENDO                                                           00064900
         DO    &TN#DSPD=X'FF'                                           00065000
         PNOTE 'P','INVALID LINE SPEED FOR ASYNC LINE - &DL'            00065100
         ENDO                                                           00065200
         ENDO                                                           00065300
         DO    (&TN#DUNA**('&ID'=''))                                   00065400
         PNOTE 'P','UNAT. ANS. INDICATED FOR LINE AND NO PORT NUMBER SPX00065500
               EC. IN ID KEYWORD - &DL'                                 00065600
         ENDO                                                           00065700
         DO    (&TN#DA**('&CALL'=''))                                   00065800
         PNOTE 'P','AUTO-DIALING IND. FOR LINE, BUT NO PHONE NUMBER SPEX00065900
               C. IN CALL KEYWORD - &DL'                                00066000
         ENDO                                                           00066100
         DO    (&TN#DA**&TN#DUNA)                                       00066200
         PNOTE 'P','AUTO-DIALING AND UNAT. ANS. INDICATED FOR SAME LINEX00066300
               , NOT ALLOWED - &DL'                                     00066400
         ENDO                                                           00066500
         DC    AL1((TN#LUNAT*&TN#DUNA)++(TN#LACU*&TN#DA))               00066600
         DC    AL1((TN#LFDX*&TN#DF)++(TN#LSWT*&TN#DSW)++(TN#LSYN*&TN#DS;00066700
               YN)+&TN#DSPD)                                            00066800
&T       SET   1                                                        00066900
         DO    &ST=X'10'                                                00067000
         DC    F'0'                . U100 WORK AREA                     00067100
         DC    A(TN#T&TTTTT)       . ADDRESS 1ST TCT FOR POLLING        00067200
         DO    &TRANS=0                                                 00067300
         DC    F'0'                                                     00067400
         ENDO                                                           00067500
         DO    &TRANS                                                   00067600
         DC    A(TN#T&TTTTT)       . ADDRESS 1ST TCT FOR POLL CYCLE     00067700
         ENDO                                                           00067800
         DC    3F'0'                                                    00067900
&T       SET   0                                                        00068000
         ENDO                                                           00068100
         DO    &T                                                       00068200
         DC    6F'0'               . RDH WORK AREA.                     00068300
         ENDO                                                           00068400
         DC    A(0)                . DDI OUTPUT BATCH POINTER           00068500
.* .                                                                    00068600
.*       GENERATE MPPS ENTRY POINT OR PRCS FILE NAME                    00068700
.* .                                                                    00068800
         DO    &CDDI               . CHECK DDI TYPE FROM CCA CALL       00068900
         DC    F'0'                . NO MPPS REQUIRED FOR DDI           00069000
         GOTO  .B                                                       00069100
         ENDO                                                           00069200
         DO    '&MPPS'=''          . MPPS SPECIFIED?                    00069300
         DO    '&PRCS'=''=0        . PRCS SPECIFIED?                    00069400
         DC    A(&PRCS)            . MPPS DEFAULT = PRSC ADDR.          00069500
         GOTO  .B                                                       00069600
         ENDO                                                           00069700
         DO    &CTCIYES=0                                               00069800
         PNOTE 'P','NEITHER MPPS OR PRCS SPECIFIED FOR THIS LINE'       00069900
         ENDO                                                           00070000
         DC    F'0'                                                     00070100
         GOTO  .B                                                       00070200
         ENDO                                                           00070300
         DC    X'80'               . MPPS FLAG.                         00070400
         DC    AL3(&MPPS(1))       . MPPS ENTRY POINT.                  00070500
.B       LABEL                                                          00070600
         DC    A(0)                . CURRENT DEQUE CONTROL              00070700
         DO    (&ST=X'02')++(&ST=X'03')                                 00070800
         DC    AL1(1)              . LINE DISCIPLINE NUMBER             00070900
         ENDO                                                           00071000
         DO    &ST=X'10'                                                00071100
         DC    AL1(2)              . LINE DISCIPLINE NUMBER             00071200
         ENDO                                                           00071300
         DO    (&ST=X'20')++(&ST=X'21')++(&ST=X'22')                    00071400
         DC    AL1(3)              . LINE DISCIPLINE NUMBER             00071500
         ENDO                                                           00071600
         DO    (&ST=X'40')++(&ST=X'41')++(&ST=X'42')++(&ST=X'A0')       00071700
         DC    AL1(7)              . LINE DISCIPLINE NUMBER             00071800
         ENDO                                                           00071900
         DO    &ST=X'50'                                                00072000
         DC    AL1(8)              . LINE DISCIPLINE NUMBER             00072100
         ENDO                                                           00072200
         DO    &ST=X'54'                                                00072300
         DC    AL1(5)              . LINE DISCIPLINE NUMBER             00072400
         ENDO                                                           00072500
         DO    &ST=X'58'                                                00072600
         DC    AL1(4)              . LINE DISCIPLINE NUMBER             00072700
         ENDO                                                           00072800
         DO    &ST=X'00'                                                00072900
         DC    AL1(6)              . LINE DISCIPLINE NUMBER             00073000
         ENDO                                                           00073100
         DO    '&DEVICE(1)'='NTR'                                       00073200
         DC    AL1(9)              . LINE DISCIPLINE NUMBER             00073300
         ENDO                                                           00073400
         DO    '&STATS(1)'='YES'                                        00073500
&TN#STAT SET   1                                                        00073600
         DC    AL1(1)              . STATUS BYTE (STATISTICS ON)        00073700
         GOTO  .B2                                                      00073800
         ENDO                                                           00073900
         DC    AL1(0)              . STATUS BYTE                        00074000
.B2      LABEL                                                          00074100
         DC    AL1(0)              . FLAG BYTE                          00074200
.* .                                                                    00074300
.*       FOLLOWING GENERATES BLANKS FOR IMS OR MPPS INSERTIONS IN HDR.  00074400
.* .                                                                    00074500
         DO    '&MPPS(2)'=''=0                                          00074600
         DC    YL1(&MPPS(2))       . BLANKS FOR MPPS INSERTIONS         00074700
         GOTO  .D                                                       00074800
         ENDO                                                           00074900
         DO    '&IMS(1)'='YES'                                          00075000
         DC    YL1(11)             . BLANKS FOR IMS INSERTIONS          00075100
         GOTO  .D                                                       00075200
         ENDO                                                           00075300
         DC    YL1(0)              . NO BLANKS FOR IMS OR MPPS          00075400
.D       LABEL                                                          00075500
         DC    A(0)                . MCTI SAVE AREA                     00075600
         DC    A(0)                . MCTI SAVE AREA                     00075700
         DO    &CDDI                                                    00075800
         DO    '&DL'='&TN#LTND'    . LAST LCT IN NETWORK                00075900
TN#STMCT EQU   *                   . DDI STATUS MCT                     00076000
         DC    XL1'10'             . INPUT FUNCTION                     00076100
         DC    XL3'0'              . RESERVED                           00076200
TN#SMBUF DC    F'0'                . STATUS MCT BUFFER FIELD            00076300
         DC    XL1'01'             . TN#MCSID FIELD                     00076400
         DC    XL3'0'              . RESERVED                           00076500
         DC    2F'0'               . RESERVED                           00076600
         DC    A(TN#SMBUF)         . STATUS BUFFER ADDR                 00076700
         DC    H'4'                . BUFFER LENGTH                      00076800
         DC    H'0'                . RESERVED                           00076900
         DC    2F'0'               . RESERVED                           00077000
         ENDO                                                           00077100
         ENDO                                                           00077200
.*       GEN WORK AREA FOR SIM1 OR LINE BUFFERS FOR DCT2000 OR 1004     00077300
         DO    '&DEVICE'='SIM1'                                         00077500
         IPAGE 120                                                      00077510
TN#WA&LLLLL EQU *                                                       00077511
         DC    30F'0'                                                   00077600
         ENDO                                                           00077700
.* .                                                                    00077800
.*       FOLLOWING GENERATES LINE BUFFERS FOR BATCH DEVICE HANDLERS     00077900
.*       POINTER TO THESE IS IN LOCATION TN#LBAD1                       00078000
.* .                                                                    00078100
&TN#BTLN SET   0                   . START CONTROL VALUE                00078200
         DO    ('&DEVICE(1)'='BSC')**('&DEVICE(2)'='')                  00078300
         IPAGE 224                                                      00078310
TN#WA&LLLLL EQU *                                                       00078311
         DC    55F'0'              . LINE BUFFER - DEFAULT              00078400
TN#LWA&LLLLL EQU *-TN#WA&LLLLL                                          00078500
         DC    F'0'                                                     00078600
&TN#BTLN SET   220                                                      00078700
         GOTO  .TN4EEND                                                 00078800
         ENDO                                                           00078900
         DO    (((&ST=X'20')++(&ST=X'21'))**('&DEVICE(2)'=''=0))++(('&DX00079000
               EVICE(1)'='BSC')**('&DEVICE(2)'='TOGGLE'=0))             00079100
&TN#BTLN SET   &DEVICE(2)                                               00079200
         IPAGE &TN#BTLN+4                                               00079201
TN#WA&LLLLL EQU *                                                       00079202
         DO    &TN#BTLN//4                                              00079300
         DC    F'0'                                                     00079400
         ENDO                                                           00079500
         DC    F'0'                                                     00079600
         GOTO  .TN4EEND                                                 00079700
         ENDO                                                           00079800
         DO    ((&ST=X'20')++(&ST=X'21'))**('&DEVICE(2)'='')            00079900
         IPAGE 88                                                       00079910
TN#WA&LLLLL EQU *                                                       00079911
         DC    21F'0'                                                   00080000
TN#LWA&LLLLL EQU *-TN#WA&LLLLL                                          00080100
         DC    F'0'                                                     00080200
&TN#BTLN SET   84                                                       00080300
         GOTO  .TN4EEND                                                 00080400
         ENDO                                                           00080500
         DO    (&ST=X'40')++(&ST=X'41')++(&ST=X'42')                    00080600
         IPAGE 336                                                      00080610
TN#WA&LLLLL EQU *                                                       00080611
         DC    166H'0'             . U1004 LINE BUFFER                  00080700
TN#LWA&LLLLL EQU *-TN#WA&LLLLL     . LENGTH OF LINE BUFFER              00080800
         DC    1F'0'               . U1004/9200/9300 WORD FOR INPUT     00080900
         GOTO  .TN4EEND                                                 00081000
         ENDO                                                           00081100
         DO    &ST=X'A0'                                                00081200
         IPAGE 333                                                      00081210
TN#WA&LLLLL EQU *                                                       00081211
         DC    166H'0'             . 1004EM LARGE INPUT BUFFER # 1      00081300
         DC    X'00'                                                    00081400
TN#LWA&LLLLL EQU *-TN#WA&LLLLL     . LENGTH OF LINE BUFFER              00081500
         IPAGE 334                                                      00081510
TN#WB&LLLLL EQU *                                                       00081600
         DC    166H'0'             . 1004EM LARGE INPUT BUFFER # 2      00081700
         DC    X'00'                                                    00081800
         IPAGE 334                                                      00081810
TN#WC&LLLLL EQU *                                                       00081900
         DC    166H'0'             . 1004EM LARGE OUTPUT BUFFER         00082000
         DC    X'00'                                                    00082100
         GOTO  .TN4EEND                                                 00082200
         ENDO                                                           00082300
.* .                                                                    00082400
.*       GENERATION OF LINE BUFFERS FOR INTERACTIVE DEVICES             00082500
.* .                                                                    00082600
         DO    '&DEVICE(1)'='NTR'                                       00082700
         IPAGE 24                                                       00082710
TN#WA&LLLLL EQU *                                                       00082711
         DC    XL7'01808002808003' . NTR-RDH NAK2 MSG BUFFER            00082800
         DC    XL7'01808001808003' . NTR-RDH NAK1 MSG BUFFER            00082900
         DC    XL7'01808080808003' . NTR-RDH ACK MSG BUFFER             00083000
         DC    XL3'000000'         . PRESERVE BOUNDRIES.                00083100
&TN#BTLN SET   24                                                       00083200
TN#LWA&LLLLL EQU *-TN#WA&LLLLL                                          00083300
         GOTO  .TN4EEND                                                 00083400
         ENDO                                                           00083500
         DO    '&TRANS'='0'                                             00083600
         DO    (&ST=X'10')++(('&DEVICE(1)'='BSC')**('&DEVICE(2)'='TOGGLX00083700
               E'))                                                     00083800
         DO    &LBL>0              . USER SELECTED LINE BUFFERS         00083900
         IPAGE (&LBL)*4                                                 00083910
TN#WA&LLLLL EQU *                                                       00083911
*                                                                       00084000
*                                                                       00084001
         DO    &LBL/256
         DC    256F'0'                  . LINE BUFFER OVERRIDE
         ENDO
         DO    &LBL//256-&LBL/256
         DC    (&LBL-&LBL/256*256)F'0'  . LINE BUFFER OVERRIDE
         ENDO
TN#LWA&LLLLL EQU *-TN#WA&LLLLL     . LENGTH LINE BUFFER                 00084100
         IPAGE (&LBL)*4                                                 00084110
TN#WB&LLLLL EQU *                                                       00084200
         DO    &LBL/256                                                 00084300
         DC    256F'0'             . LINE BUFFER 2 OVERRIDE             00084301
         ENDO
         DO    &LBL//256-&LBL/256
         DC    (&LBL-&LBL/256*256)F'0'  . LINE BUFFER 2 OVERRIDE
         ENDO
         GOTO  .TN4EEND                                                 00084400
         ENDO                                                           00084500
         DO    (('&TYPE(1)'='2400')++('&TYPE(1)'<'2400'))               00084600
         IPAGE 20                                                       00084610
TN#WA&LLLLL EQU *                                                       00084611
         DC    5F'0'               . LINE BUFFER 1                      00084700
TN#LWA&LLLLL EQU *-TN#WA&LLLLL     . LENGTH LINE BUFFER                 00084800
         IPAGE 20                                                       00084810
TN#WB&LLLLL EQU *                                                       00084900
         DC    5F'0'               . LINE BUFFER 2                      00085000
         GOTO  .TN4EEND                                                 00085100
         ENDO                                                           00085200
         DO    '&TYPE(1)'='4800'                                        00085300
         IPAGE 40                                                       00085310
TN#WA&LLLLL EQU *                                                       00085311
         DC    10F'0'              . LINE BUFFER 1                      00085400
TN#LWA&LLLLL EQU *-TN#WA&LLLLL     . LENGTH LINE BUFFER                 00085500
         IPAGE 40                                                       00085510
TN#WB&LLLLL EQU *                                                       00085600
         DC    10F'0'              . LINE BUFFER 2                      00085700
         GOTO  .TN4EEND                                                 00085800
         ENDO                                                           00085900
         DO    '&TYPE(1)'='9600'                                        00086000
         IPAGE 80                                                       00086010
TN#WA&LLLLL EQU *                                                       00086011
         DC    20F'0'              . LINE BUFFER 1                      00086100
TN#LWA&LLLLL EQU *-TN#WA&LLLLL     . LENGTH LINE BUFFER                 00086200
         IPAGE 80                                                       00086210
TN#WB&LLLLL EQU *                                                       00086300
         DC    20F'0'              . LINE BUFFER 2                      00086400
         GOTO  .TN4EEND                                                 00086500
         ENDO                                                           00086600
         ENDO                                                           00086700
         DO    (&ST=X'00')++(&ST=X'02')++(&ST=X'03')                    00086800
         IPAGE 16                                                       00086810
TN#WA&LLLLL EQU *                                                       00086811
         DC    4F'0'               . LINE BUFFER 1                      00086900
TN#LWA&LLLLL EQU *-TN#WA&LLLLL     . LENGTH LINE BUFFER                 00087000
         IPAGE 16                                                       00087010
TN#WB&LLLLL EQU *                                                       00087100
         DC    4F'0'               . LINE BUFFER 2                      00087200
         GOTO  .TN4EEND                                                 00087300
         ENDO                                                           00087400
         PNOTE 'P','ILLEGAL LINE SPEED, NO LINE BUFFERS GENERATED. '    00087500
TN#LWA&LLLLL EQU *-TN#WA&LLLLL     . LENGTH LINE BUFFER                 00087600
.TN4EEND LABEL                                                          00087700
         ENDO                                                           00087800
         DO    '&CALL'=''=0                                             00087900
LPHDIR&MMMMM EQU *                                                      00088000
         DC    YL1(LNPHN&MMMMM)    . # PHONE #'S IN DIRECTORY           00088100
&NOPHON  SET   0                                                        00088200
&NPHONES SET   1                                                        00088300
         DO    5                                                        00088400
         DO    '&CALL(&NPHONES)'=''=0                                   00088500
LOLD&PPPPP EQU *                                                        00088600
         DC    YL1(LNEW&PPPPP-LOLD&PPPPP-1)                             00088700
         DC    C'&CALL(&NPHONES)'  . PHONE NUMBER                       00088800
LNEW&PPPPP EQU *                                                        00088900
&PPPPP   SET   &PPPPP+1                                                 00089000
&NOPHON  SET   &NOPHON+1                                                00089100
&NPHONES SET   &NPHONES+1                                               00089200
         ENDO                                                           00089300
         ENDO                                                           00089400
LNPHN&MMMMM EQU &NOPHON                                                 00089500
         ENDO                                                           00089600
         EJECT                                                          00089700
         END                                                            00089800
