&LBL     PROC  &P,250                                                   00000000
XLISTB   NAME  X   . 01/21/74 CONVERTED FROM 9700 ICAM                  00000100
LISTB    NAME  0   9700 ICAM - DLIST, FSEL, DLIST/FSEL TABLE   73/03/30 00000200
DLIST    NAME  1                                                        00000300
FSEL     NAME  2                                                        00000400
.* .                                                                    00000500
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00000600
.* .                                                                  * 00000700
.* . THIS AND ALL RELATED PROGRAMS ARE PROPERTY OF                    * 00000800
.* .                                                                  * 00000900
.* . UNIVAC CONTAINING ITS CONFIDENTIAL INFORMATION                   * 00001000
.* .                                                                  * 00001100
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00001200
         GBL   &TN#DLST            . 1 IF DLIST OR FSEL IN CCA          00001300
         GBL   &TN#LSTD            . LABEL OF LAST DLIST OR FSEL        00001400
         GBL   &TN#DINX            . # DLIST/FSEL                       00001500
         GBL   &TN#CFLT            . CCA ERROR FLAGS                    00001600
         GBL   &TN#NENT            . # ENTRIES IN LIST                  00001700
.* .                                                                    00001800
TN#D     CSECT                                                          00001900
         DO    &P(0)=0                                                  00002000
&TN#LSTD SET   '&P(1)'             . LABEL OF LAST DLIST/FSEL           00002100
&TN#DINX SET   0                   . # DLIST/FSEL                       00002200
         GOTO  .ZZZZ                    EXIT THE PROC                   00002300
         ENDO                                                           00002400
&TN#DLST SET   1                   . DLIST/FSEL PRESENT                 00002500
         DO    &P(0)=1                                                  00002600
         DO    N'&P<2                                                   00002700
         PNOTE 'P','DLIST  &LBL -- < 2 ENTRIES:  NOT GENERATED'         00002800
         GOTO  .ZZZZ                                                    00002900
         ENDO                                                           00003000
&LBL     TN#ENTRY LIST                                                  00003100
         ENDO                                                           00003200
&TN#DINX SET   &TN#DINX+1          . # DLIST/FSEL                       00003300
&LBL     DC    CL4'&LBL'                LIST NAME                       00003400
TN#D&TN#DINX EQU &LBL              . STANDARD LABEL FOR LIST            00003500
         DO    '&LBL'='&TN#LSTD'   . LAST LIST IN TABLE                 00003600
         DC    H'0'                     NO NEXT LIST                    00003700
         GOTO  .BBBB                                                    00003800
         ENDO                                                           00003900
&TN#DINX SET   &TN#DINX+1          . INDEX # OF NEXT LIST               00004000
         DC    Y(TN#D&TN#DINX-&LBL) . DISPL TO NEXT LIST                00004100
&TN#DINX SET   &TN#DINX-1          . INDEX # OF THIS LIST               00004200
.BBBB    LABEL                                                          00004300
&TN#NENT SET   N'&P                                                     00004400
         DC    Y(&TN#NENT)         . # ENTRIES IN LIST                  00004500
         DC    YL1(TN#DFSEL*(&P(0)=2))  FLAGS - SET IF FSEL             00004600
&N       DO    N'&P                     FOR EACH ENTRY FROM 1 TO N      00004700
         DO    &P(0)=1                  DLIST                           00004800
         DC    CL4'&P(&N)'              ENTRY NAME                      00004900
         GOTO  .CCCC                                                    00005000
         ENDO                                                           00005100
&M       DO    3                        FSEL - DO FOR EACH ADDRESS BYTE 00005200
         DC    YL1(X'&P(&N,&M)')        RID, SID, OR DID                00005300
         ENDO                                                           00005400
.CCCC LABEL                                                             00005500
         ENDO                           END EACH ENTRY LOOP             00005600
.ZZZZ    LABEL                          EXIT FROM PROC                  00005700
         END                                                            00005800
