*DECK LABELPR 
          PROC  LABELPR((TAB),(LABINDX)); 
*CALL ASMCOMM 
*CALL LOCLAB
*CALL PNAT1 
*CALL TABLETYP
          ITEM  TAB  S:TABLETYPE; 
          ITEM  INDX; 
          ITEM  LABINDX;
          XREF  FUNC VIRTUAL; 
          BEGIN                                                          ADJADDR
          IF  TAB EQ S"LOCAL$"
          THEN
              BEGIN 
              INDX = VIRTUAL(TABLETYPE"WORK4$",LABINDX);
              LABLOCN[INDX] = ORG;
              LABBLK[INDX] = BLOCK; 
              LABEQU[INDX] = 0; 
              RETURN; 
              END 
          ELSE      #PNAT$# 
              BEGIN 
              INDX = LABINDX; 
              PN$FIRSTADDR[VIRTUAL(TABLETYPE"PNAT$",INDX)] = ORG; 
              RETURN; 
              END 
          RETURN;                                                        ADJADDR
          END                                                            ADJADDR
          TERM                                                           ADJADDR
