&LBL     PROC  &P,1                                                     00000000
XDESTTBL NAME  X                                                        00000100
TN#ENTRY NAME  1   90/30 ICAM - DESTINATION TABLE ENTRY                 00000200
.* .                                                                    00000300
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00000400
.* .                                                                  * 00000500
.* . THIS AND ALL RELATED PROGRAMS ARE PROPERTY OF                    * 00000600
.* .                                                                  * 00000700
.* . UNIVAC CONTAINING ITS CONFIDENTIAL INFORMATION                   * 00000800
.* .                                                                  * 00000900
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00001000
         GBL   &TN#ELTP            . PARAM 1 OF LAST CALL               00001100
         GBL   &TN#ESIZ            . DESTINATION TABLE SIZE             00001200
         GBL   &TRANS                                                   00001300
         GBL   &TN#CNME                                                 00001400
         GBL   &CRJE                                                    00001500
.* .                                                                    00001600
.*                                                                      00001700
.*                                                                      00001800
.*       GENERATES DESTINATION TABLE ENTRY                              00001900
.*          CALLED IN DLIST, PRCS AND TERM MACRO INSTRUCTIONS           00002000
.*          &LBL IS DESTINATION NAME: P(1) IS LIST, FILE OR TERM        00002100
.*                                                                      00002200
         DO    &TRANS++&CRJE                                            00002300
         GOTO  .SKPDTB                                                  00002400
         ENDO                                                           00002500
         DO    '&TN#ELTP'=''                                            00002600
&TN#ELTP SET   0                                                        00002700
         ENDO                                                           00002800
         DO    '&TN#ESIZ'=''                                            00002900
&TN#ESIZ SET   0                                                        00003000
         ENDO                                                           00003100
TC#D&TN#CNME CSECT                                                      00003200
         DO    (&TN#ESIZ+0)<8      . FIRST ENTRY                        00003300
TN#CDTB  EQU   *                   . LABEL FOR CCA CONTROL POINTER      00003400
TN#E     EQU   *                   . USED FOR LOCAL REFERENCE           00003500
         ENDO                                                           00003600
         DO    '&P(1)'='WRAPUP'    . WRAPUP CALL FROM ENDCCA            00003700
         ORG   TN#E+&TN#ESIZ-4     . POSITION TO FLAGS OF LAST ENTRY    00003800
         DC    YL1(TN#E&TN#ELTP++TN#END) . TYPE OF LAST ++ END FLAG     00003900
         GOTO  .ZZZZ                                                    00004000
         ENDO                                                           00004100
&TN#ELTP SET   '&P(1)'             . SAVE FOR USE IN WRAPUP             00004200
         DS    0F                                                       00004300
         DC    CL4'&LBL'           . DESTINATION NAME                   00004400
         DC    YL1(TN#E&P(1))      . TYPE FLAG                          00004500
         DC    AL3(&LBL)           . DESTINATION ADDRESS                00004600
&TN#ESIZ SET   &TN#ESIZ+8          . INCREMENT DEST TABLE SIZE          00004700
.ZZZZ    LABEL                                                          00004800
&SYSECT  CSECT                     . RESUME CALLING CSECT               00004900
.SKPDTB  LABEL                                                          00005000
         END                                                            00005100
