ASMB,R,Q,C
      HED MESSAGE PRINTING ROUTINE
* 
*     NAME:    T.MES
*     SOURCE:  92076-18022
*     RELOC:   PART OF 92076-16002
*     PGMR:    B.J.L. 
* 
*  **************************************************************** 
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  ALL RIGHTS      * 
*  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,       * 
*  * REPRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT* 
*  * THE PRIOR WRITTEN CONSENT OF HEWLETT PACKARD COMPANY.        * 
*  **************************************************************** 
* 
      NAM T.MES,8 92076-1X022 REV.2001 800322 92076-16002 
* 
      SUP 
* 
      ENT T.MES 
* 
      EXT .ENTR,EXEC
      EXT T.CON     DEVICE CONTROL WORD.
      EXT T.ERN     ERROR NUMBER
* 
*  THE FOLLOWING ROUTINE PRINTS ALL ERROR MESSAGES. 
*  THE MESSAGES ARE DERIVED FROM THE ERROR NUMBER, T.ERN. 
* 
* 
T.MES NOP 
      LDB T.ERN     GET ERROR MESSAGE 
      SZB           NUMBER AND CHECK
      ADB M31       BOUNDS.  **800117** 
      SSB,RSS 
      JMP ILL       UNDEFINED.
      ADB ADDMS     GET ADDRESS OF MESSAGE. 
      LDA B,I 
      STA MSBUF     SAVE ADDRESS. 
      LDB T.ERN     GET LENGTH OF MESSAGE.
      ADB LENMS 
      LDA B,I 
      STA MSLEN     SAVE LENGTH.
      CMA,INA       SET UP COUNTER FOR
      STA SAVE      MESSAGE LENGTH IN ORDER 
      LDB ADDR      TO PACK THE MESSAGE.
T.M1  LDA MSBUF,I   GO AHEAD AND PACK 
      STA B,I       THE MESSAGE AFTER 
      ISZ MSBUF     THE "*  ERROR  *" 
      INB           IN THE BUFFER, FILL.
      ISZ SAVE
      JMP T.M1
      LDA MSLEN 
      ADA ERLEN 
      STA MSLEN 
      JSB EXEC
      DEF *+5 
      DEF D2
      DEF T.CON 
      DEF ERMSG 
      DEF MSLEN 
      JMP T.MES,I 
ILL   JSB EXEC
      DEF *+5 
      DEF D2
      DEF T.CON 
      DEF RU
      DEF RUL 
      JMP T.MES,I 
* 
B     EQU 1 
D2    DEC 2 
M31   DEC -31         **800117**
SAVE  BSS 1 
MSBUF BSS 1 
MSLEN BSS 1 
* 
ADDMS DEF TBLEN         **800118**
      DEF TMP       1.  TOO MANY PARAMETERS 
      DEF NTL       2.  NAME TOO LARGE
      DEF EPNTL     3.  ENTRY POINT NAME TOO LARGE
      DEF NEP       4.  NOT ENOUGH PARAMETERS 
      DEF IPS       5.  ILLEGAL PARAMETER SPECIFICATION 
      DEF IF        6.  ILLEGAL FORMAT
      DEF TO        7.  TABLE OVERFLOW
      DEF BEPN      8.  BAD ROUTINE NAME     **800311** 
***************************************************************** 
*          FMGR ERRORS START HERE 
***************************************************************** 
      DEF BFN       9.  BAD FILE NAME.
      DEF DD        10. DISC DOWN 
      DEF DODF      11. DIRECTORY FULL
      DEF FO        12. FILE OPEN 
      DEF CL        13. CARTRIDGE LOCKED
      DEF BSC       14. BAD SECURITY CODE 
      DEF DFN       15. DUPLICATE FILE NAME.
      DEF CFNF      16. COMMAND FILE NOT FOUND. 
      DEF CRCF      17. CANNOT READ COMMAND FILE. 
      DEF BKSP      18. BACKSPACE ILLEGAL FOR DEVICE TYPE 
      DEF TYP2      19. TOO MANY RECORDS FOR TYPE 2 FILE
      DEF RECD      20. RECORD LENGTH ILLEGAL 
      DEF DCB       21. DCB NOT OPEN
      DEF EOF       22. EOF OR SOF ERROR
      DEF TYP0      23. ILLEGAL TYPE 0 OR SIZE=0
      DEF SYDC      24. SYSTEM DISC ERROR NOT USED ******800115** 
      DEF CRNF      25. CARTRIDGE NOT FOUND 
      DEF ROOM      26. NOT ENOUGH ROOM ON CARTRIDGE
      DEF MULU      27. MUST BE NUMERIC LIST DEVICE 
      DEF NOLU      28. COMMAND FILE CANNOT BE FROM TERMINAL
      DEF NDCM      29. MUST SPECIFY A COMMAND FILE OR LU **800115**
      DEF OVNO      30. OVERLAY OUT OF NUMERIC ORDER  **800117**
TBLEN EQU *           **800018* 
* 
LENMS DEF * 
      DEC 10
      DEC 7 
      DEC 13
      DEC 11
      DEC 16
      DEC 7 
      DEC 7 
      DEC 8          **800311** 
      DEC 7 
      DEC 5 
      DEC 7 
      DEC 5 
      DEC 8 
      DEC 9 
      DEC 18        **800322**
      DEC 11
      DEC 12
      DEC 17
      DEC 16
      DEC 11
      DEC 6 
      DEC 8 
      DEC 12
      DEC 16                  **800115**
      DEC 10
      DEC 14
      DEC 15
      DEC 19
      DEC 17                  **800115**
      DEC 14                  **800117**
* 
*  MESSAGES 
* 
TMP   ASC 10,TOO MANY PARAMETERS
BEPN  ASC 8,BAD ROUTINE NAME      **800311**
EPNTL ASC 6,ENTRY POINT 
NTL   ASC 7,NAME TOO LARGE
NEP   ASC 11,NOT ENOUGH PARAMETERS
IPS   ASC 16,ILLEGAL PARAMETER SPECIFICATION
DFN   ASC 18,DUPLICATE FILE NAME (SEE LINE ABOVE) 
CRCF  ASC 6,CANNOT READ 
CFNF  ASC 11,COMMAND FILE NOT FOUND 
DD    ASC 5,DISC DOWN 
DODF  ASC 7,DIRECTORY FULL
TO    ASC 7,TABLE OVERFLOW
BFN   ASC 7,BAD FILE NAME 
FO    ASC 5 FILE OPEN 
CL    ASC 8,CARTRIDGE LOCKED
BSC   ASC 9,BAD SECURITY CODE 
IF    ASC 7,ILLEGAL FORMAT
BKSP  ASC 17,BACKSPACE ILLEGAL FOR DEVICE TYPE
TYP2  ASC 16,TOO MANY RECORDS FOR TYPE 2 FILE 
RECD  ASC 11,RECORD LENGTH ILLEGAL
DCB   ASC 6,DCB NOT OPEN
EOF   ASC 8,EOF OR SOF ERROR
TYP0  ASC 12,ILLEGAL TYPE 0 OR SIZE=0 
SYDC  ASC 16,ILLEGAL ACCESS TO SYSTEM DISC   **800115** 
CRNF  ASC 10,CARTRIDGE NOT FOUND
ROOM  ASC 14,NOT ENOUGH ROOM ON CARTRIDGE 
MULU  ASC 15,MUST BE A NUMERIC LIST DEVICE
NOLU  ASC 19,COMMAND FILE CANNOT BE FROM A TERMINAL 
NDCM  ASC 17,MUST SPECIFY A COMMAND FILE OR LU
OVNO  ASC 14,OVERLAY OUT OF NUMERIC ORDER 
RUL   DEC 8 
RU    ASC 8,BATBL UNDEFINED 
* 
ERLEN DEC 6 
ERMSG ASC 6, * ERROR *
FILL  ASC 16, 
ADDR  DEF FILL
* 
      END 
                                                      