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