ASMB,Q,C
      NAM ALERR,7 09580-16116 REV.2001 791011 
*-------------------------------------------------------------------
* 
*      RELOC.       09580-16116 
*      SOURCE       09580-18116 
*      ERS        A-09580-16116-1 
* 
*      C. LEATH     REV.A    770501 
*                   REV.2001 791015 
* 
*      HP 92425A TEST SYSTEM SOFTWARE IS THE PROPRIETARY
*      MATERIAL OF THE HEWLETT-PACKARD COMPANY.  USE AND
*      DISCLOSURE THEREOF ARE RESTRICTED BY WRITTEN AGREEMENT.
* 
*      (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1977.
*      ALL RIGHTS RESERVED.  NO PART OF THIS PROGRAM
*      MAY BE PHOTOCOPIED, REPRODUCED OR TRANSLATED 
*      TO ANOTHER PROGRAM LANGUAGE WITHOUT THE PRIOR
*      WRITTEN CONSENT OF THE HEWLETT-PACKARD COMPANY.
* 
*-------------------------------------------------------------------
      SUP PRESS MULTIPLE LINE LISTINGS
      EXT ERROR,.LNUM,LUERR 
      EXT .ENTR 
      ENT ALERR 
* 
*     THIS ROUTINE IS RESPONSIBLE FOR PROCESSING
* ERRORS WHICH OCCUR IN THE ALLOCATE PHASE
* OF THE CONFIGURATION TABLES.
* THE CALLING SEQUENCE FOR THIS ROUTINE IS AS 
* FOLLOWS:
* 
*     CALL ALERR(IERRNUM<,LUERR<,LINE>>)
* WHERE IERRNUM =  THE NUMBER ASSOCIATED WITH ONE OF
*                  THE ERROR MESSAGES IN THIS ROUTINE.
*       LUERR   =  THE LOGICAL UNIT NUMBER TO REPORT THE ERROR ON.
*                  IF NOT SPECIFIED, THEN THE CURRENT LU IS USED. 
*       LINE    =  LINE NUMBER OF ERROR.  IF NOT SPECIFIRD THEN THE 
*                  CURRENT LINE NUMBER IS USED. 
* 
* 
IENUM NOP 
LU    DEF D0
LINE  DEF D0
ALERR NOP 
      JSB .ENTR 
      DEF IENUM 
* 
      LDA LINE,I    GET LINE NUMBER 
      SZA           IF 0, USE CURRENT 
      STA .LNUM     STORE LINE INTO ERROR MODULE
* 
      LDA LU,I      GET LU
      SZA           IF 0, USE CURRENT LU
      STA LUERR     STORE LU INTO ERROR MODULE
* 
      LDB IENUM,I 
      STB IERR      STORE AWAY ERROR NUMBER 
      ADB ERADR     FWA POINTER TO ERROR MESSAGES 
      LDA B,I 
      STA MESS      ERROR ADDRESS 
      JSB ERROR 
      DEF *+3 
      DEF IERR
MESS  NOP 
* 
      LDA DEFD0     GET ADRESS OF "0" 
      STA LINE      SET DEFAULT CONDITION FOR LINE
      STA LU        SET DEFAULT CONDITION FOR LU
      JMP ALERR,I 
* 
IERR  NOP 
B     EQU 1 
D0    DEC 0 
DEFD0 DEF D0
* 
*  ERROR MESSAGE ADDRESSES
* 
ERADR DEF E1-1
E1    DEF ERR1
E2    DEF ERR2
E3    DEF ERR3
E4    DEF ERR4
E5    DEF ERR5
E6    DEF ERR6
E7    DEF ERR7
E8    DEF ERR8
E9    DEF ERR9
E10   DEF ERR10 
E11   DEF ERR11 
E12   DEF ERR12 
E13   DEF ERR13 
E14   DEF ERR14 
E15   DEF ERR15 
E16   DEF ERR16 
E17   DEF ERR17 
* 
* 
* ACTUAL ERROR MESSAGES 
* 
* 
ERR1  DEC 0 
      ASC 4,NOT USED
ERR2  DEC 18
      ASC 9,NO STATION NUMBER 
ERR3  DEC 46
      ASC 23,WARNING ONLY, PREVIOUS CONFIG. TBL DEALLOCATED 
ERR4  DEC 28
      ASC 14,CONFIGURATION FILE NOT FOUND 
ERR5  DEC 32
      ASC 16,LENGTH OF RECORD > 80 CHARARTERS 
ERR6  DEC 34
      ASC 17,CONFIGURATION TABLE IN SAM CORRUPT 
ERR7  DEC 30
      ASC 15,RECORD SET HEADER MISFORMATTED 
ERR8  DEC 48
      ASC 24,ILLEGAL OCTAL, INTEGER, OR FLOATING POINT NUMBER 
ERR9  DEC 22
      ASC 11,WRONG FLAG IN COLUMN 1 
ERR10 DEC 48
      ASC 24,NUMBER OF UNITS > INDICATED IN RECORD SET HEADER 
ERR11 DEC 48
      ASC 24,NUMBER OF UNITS < INDICATED IN RECORD SET HEADER 
ERR12 DEC 14
      ASC 7,ILLEGAL UNIT #
ERR13 DEC 42
      ASC 21,NUMBER OF ENTRIES PER UNIT NOT CONSISTENT
ERR14 DEC 28
      ASC 14,DUPLICATE DEVICE TYPE NUMBER 
ERR15 DEC 22
      ASC 11,DUPLICATE UNIT NUMBER
ERR16 DEC 40
      ASC 20,MISSING RECORD IDENTIFIER OR UNIT NUMBER 
ERR17 DEC 52
      ASC 26,NO CLASS NUMBER, OR NO SAM, OR BUFFER LIMIT EXCEEDED 
      END 
                    