FTN4,L
C 
C  ***************************************************************
C  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  ALL RIGHTS     *
C  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
C  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
C  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
C  ***************************************************************
C 
C     SOURCE PART NUMBER :92067-18412 
C 
C     RELOCATABLE PART NUMBER : 92067-16361 
C 
C     PROGRAMER(S)   : J.M.N. 
C 
C 
C 
C     ACERR - ACERR PROCESSING ROUTINE
C 
C     CALLING SEQUENCE:  CALL ACERR(IERR) 
C                WHERE
C                        IERR = ACERR CODE NUMBER 
C 
C     FORMAT:  ACCT NNN 
C 
C 
      SUBROUTINE ACERR(KERR) ,92067-16361 REV.1940 790307 
      DIMENSION IBUF(2) 
      COMMON /ACOMC/IECHO,LULOG,ITLOG,KECHO,IERFG,KERRB(7)
      EQUIVALENCE (KERRB(3),IBUF) 
C 
C     DON'T LET PTERR CHANGE VALUE OF KERR
C 
      IERR=KERR 
C 
C     CONVERT INTEGER ACERR NUMBER TO ASCII 
C 
      CALL ACITA(IERR,IBUF(3),2)
C 
C     POST ACERR MNEMONIC TO SESSION CONTROL BLOCK
C 
      CALL PTERR(IBUF,IERR) 
C 
C     WRITE ACERR MNEMONIC TO INTERACTIVE DEVICE
C 
      JERR=-1 
      CALL ACXFR(IBUF,IDU,JERR) 
      CALL ACWRI(IBUF,4)
      RETURN
      END 
                                                                                                                                                                                      