C         N3PALF:  INTERIM REPLACEMENT FOR EOUT$ IN CONVERTED
C                PHASE 3 DEBUGGING PROC REFERENCES.
C
      SUBROUTINE  N3PALF (CTL,PTR)
C
      INCLUDE  FORENV              @ THE ESSENTIALS
      COMPILER (ADR=IND)
      COMPILER (GEN=NOTRA)
      INCLUDE  EXOTIC              @ ADDRESSING AUGMENTATION.
C
      COMMON  /SUBXDZ/ LSBXD,SUBEXD
      INTEGER  SUBEXD(1)
      INTEGER  NAME(6), VAL(6)
C
      NARG = H2(CTL)               @ NUMBER OF ARGS TO PRINT.
      DO 100 I=1,NARG
          NAME(I) = CORE(H1(CORE(PTR+I-1)))
  100     VAL(I) = CORE(H2(CORE(PTR+I-1)))
C
      WRITE (6,9000) CTL, (NAME(I),VAL(I),I=1,NARG)
      RETURN
C
C         N3PSX:  PRINT AN EXPRESSION AND CORRES SUBEXD ENTRY.
C               REPLACES EOUT$ FOR PSX PROC.
C
      ENTRY  N3PSX (EXPRES)
      EX = SUBSCR(VAL,EXPRES)-1
      NUMBER = T1(VAL(EX+2))
        WRITE(6,9020) NUMBER ,EXPRES,(VAL(EX+I),I=1,5),
     1 SUBEXD(NUMBER+1)
      RETURN
C
C         N3XPB:  PRINT A LINE OF OCTAL.
      ENTRY N3XPB (LT,IB)
      NW = H1(LT)
        TAG=SUBSCR(NAME,H2(LT))
      OFFSET = SUBSCR(VAL, CORE(H1(IB))+CORE(H2(IB))-1)
      WRITE (6,9050) NAME(TAG), (VAL(OFFSET+I),I=1,NW)
      RETURN
C
C         N3XPH1:  PRINT A CHARACTER STRING.
      ENTRY N3XPH1 (LT)
      NW = H1(LT)
      OFFSET = SUBSCR(VAL,H2(LT)-1)
      WRITE (6,9060) (VAL(OFFSET+I),I=1,NW)
      RETURN
C
C         N3XPH2:  PRINT A 12-CHAR NAME & OCT ADDR.
      ENTRY N3XPH2 (LT)
      NDX1 = SUBSCR(NAME,H1(LT))
      NDX2 = SUBSCR(VAL,H2(LT))
      WRITE (6,9070) NAME(NDX1), NAME(NDX1+1), VAL(NDX2)
      RETURN
C
C         N3XINS:  PRINT A NAME & ADDRESS / OCTAL LINE.
      ENTRY N3XINS (LT,IB)
      NW = H1(IB)
      NDX1=CORE(H2(IB))
      OFFSET = SUBSCR(VAL,NDX1-1)
      WRITE (6,9080) LT, NDX1, (VAL(OFFSET+I),I=1,NW)
      RETURN
C
 9000 FORMAT (A1,6(A6,1X,O12,2X))
9020   FORMAT(' NUMBER ',O6,' LOCN ',O6, '  EXPRES  ',  5(O12,2X),
     1   ' SUBEXD ',O12)
 9050 FORMAT (5X,O6,6(5X,O12))
 9060 FORMAT ('0',22A6)
 9070 FORMAT ('0',2A6,5X,O6)
 9080 FORMAT (1X,A6,3X,O6,6(5X,O12))
C
      END
