ASMB
  HED .              T M P G N   ERROR MESSAGES 
      NAM TMPGE,7 92080-1X420 REV.2026  800414
   SPC 2
*     **************************************************************
*     * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  ALL RIGHTS    *
*     * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- *
*     * PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH-  *
*     * OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.  *
*     **************************************************************
  SPC 3 
**********************************************************************
*                                                                    *
*     NAME:   TMPGE     TMPGN ERROR MESSAGES MODULE                  *
*     SOURCE: &TMPGE    92080-18420                                  *
*     BINARY: %TMPGE    92080-1X420    PART OF  $TMGL1               *
*                                                                    *
*     PGMR:   FRANCOIS GAULLIER                                      *
*                                                                    *
**********************************************************************
  SPC 3 
*     **********************************************************
*     * THIS SUBROUTINE IS CALLED BY THE SEGMENTS OF " TMPGN " *
*     * PROGRAM TO WRITE AN ERROR MESSAGE ON THE SCREEN OF THE *
*     * TERMINAL. THE ERROR MESSAGE IS PRINTED ON LINE  24 OF  *
*     * THE SCREEN AND THE CURSOR IS MOVED TO THE WRONG FIELD. *
*     *                                                        *
*     *   PARAMETERS:       P1 = ERROR MESSAGE # TO OUTPUT     *
*     *                     P2 = WRONG FIELD # ON THE SCREEN   *
*     *                     P3 = ASCII STRING TO ADD TO TEXT   *
*     **********************************************************
  SPC 2 
      ENT TMPGE 
      EXT EXEC,.ENTR,&REMP,&MVW 
      SUP 
  SPC 2 
*                   DEFINE LABEL COMMON 
* 
      EXT TMGC1 
* 
ILU   EQU TMGC1 
   SPC 2
*  GET CALLING PARAMETERS AND INITIALISE
* 
NMESS NOP           FIRST PARM. ADDRESS 
NOF   NOP           SECD. PARM. ADDRESS 
LUDU  DEF *         DEFECTIVE LOGICAL UNIT
TMPGE NOP           ENTRY POINT 
      JSB .ENTR     SUBR. TO GET
      DEF NMESS     PARM. ADDRESS 
      LDA ILU       GET TERM LU 
      STA ICNWD     STORE IT IN CNWD
      LDA BUFAD     INITIALIZE
      LDB SPACE     ERROR MESSAGE 
      JSB &REMP     BUFFER
      DEC -35       TO BLANK
      LDA BUFA1     INITIALIZE
      LDB NULL      TAB BUFFER
      JSB &REMP      TO NULL
      DEC -50 
* 
*  MOVE ERROR MESSAGE IN OUTPUT BUFFER
* 
      DLD LUDU,I    GET DEFECTIVE LU NUMBER 
      STA BELU      STORE IT IN THE ERROR MESSAGE 
      STA CELU      STORE IT IN THE ERROR MESSAGE 
      STA DELU      STORE IT IN THE ERROR MESSAGE 
      DST IMGER     STORE IMAGE ERROR # IN ERROR MESSAGE
      LDA NMESS,I   GET ERROR MESSAGE # 
      ADA AMES0     COMPUTE MESSAGE 
      LDB A,I       ADDRESS 
      STB P1        STORE IT
      CMB,INB       MINUS STARTING ADDRESS
      STB IST        OF MESSAGE IN IST
      INA            COMPUTE NEXT MESSAGE 
      LDA A,I       STARTING ADDRESS
      ADA IST       COMPUTE MESSAGE LENGTH
      STA P2        STORE IT
      LDA P1        BUFFER SOURCE ADDRESS 
      LDB BUFAD     BUFFER DEST ADDRESS 
      JSB &MVW      MOVE WORDS
P2    NOP           BUFFER LENGTH 
* 
*  INCLUDE # OF NECESSARY TABS
* 
      LDA NOF,I     GET WRONG FIELD # 
      CMA,INA       MAKE IT NEG.
      ISZ A         INCREMENT: IS FIRST FIELD ? 
      RSS           NO
      JMP WRIT      YES OUTPUT BUFFER 
      STA P3        STORE NEG. # OF TABS
      LDA BUFA1     TAB BUFFER ADDRESS
      LDB TAB       TAB 
      JSB &REMP     INCLUDE TABS
P3    NOP           IN BUFFER 
* 
*  WRITE MESSAGE
* 
WRIT  JSB EXEC      WRITE EXEC CALL 
      DEF *+5       RETURN POINT
      DEF D.2       CODE EXEC 
      DEF ICNWD     CONTROL WORD
      DEF BUF       BUFFER LOCATION 
      DEF ILN       BUFFER LENGTH 
* 
*  RETURN TO CALLING PROGRAM
* 
      JMP TMPGE,I 
* 
*  BUFFER DATA
* 
BUF   BYT 33,130,33,46,141,62,63,162,61,103  FORMAT OFF:POS.CURSOR
      BYT 33,46,144,103 INVERSE VIDEO BLINKING
      ASC 2,ERRO
      BYT 122,33,46,144,100 END ENHANCEMENT 
      ASC 2,  : 
BUFER BSS 35        MESSAGE BUFFER
      BYT 33,127,33,110 FORMAT ON * HOME CURSOR 
BUF1  BSS 50        TAB BUFFER
      BYT 33,142    KEYBOARD ENABLE 
EBUF  BYT 0,137     SUPPRESS <CR>,<LF>
* 
* STORAGE , CONSTANTS ..
* 
BUFAD DEF BUFER     BUFF. ADDRESS 
BUFA1 DEF BUF1      TAB BUFFER ADDRESS
A     EQU 0         A REGISTER
STAD  EQU BUF       BUFFER STARTING ADDRESS 
LTAD  EQU EBUF      BUFFER LAST ADDRESS 
IST   NOP 
ICNWD NOP           CONTROL WORD
P1    NOP           SOURCE ADDRESS BUFFER ADDRESS 
ILN   ABS LTAD-STAD+1 BUFFER LENGTH 
SPACE BYT 40,40 
NULL  BYT 0,0 
TAB   BYT 33,111
D.2   DEC 2 
* 
*  MESSAGE ADDRESS
* 
AMES0 DEF AMES1-1 
AMES1 DEF MES1      UNCKNOWN MODE OF OPERATION
      DEF MES2      ILLEGAL NUMBER
      DEF MES3      ILLEGAL LOGICAL UNIT NUMBER 
      DEF MES4      TMP IS ACTIVE !! CAN'T RUN TMPGN
      DEF MES5      ILLEGAL CARTRIDGE NUMBER
      DEF MES6      BAD SECURITY CODE 
      DEF MES7      * 
      DEF MES8      DUPLICATE LU NUMBER:
      DEF MES9      THE LOGGING LU MUST BE A MAG TAPE 
      DEF MES10     "FROM" LU # MUST BE SPECIFIED 
      DEF MES11     UNDEFINED LOGICAL UNIT NUMBER 
      DEF MES12     LU# : XX DOES NOT CORRESPOND TO A HP3070
      DEF MES13     PARTITION REQUIREMENT TOO BIG 
      DEF MES14     NON EXISTENT PARTITION NUMBER 
      DEF MES15     DUPLICATE MODULE NAME 
      DEF MES16     INCOMPLETE SCREEN 
      DEF MES17     MEMORY OVERFLOW, NEED ROOM
      DEF MES18     ILLEGAL NAME
      DEF MES19     ANSWER X !
      DEF MES20     MUST DEFINE 1 TUS/UPT AT LEAST
      DEF MES21     ILLEGAL TRANSACTION SPECIFICATION NUMBER
      DEF MES22     * 
      DEF MES23     * 
      DEF MES24     * 
      DEF MES25     NO BUFFER SPACE FOR IMAGE 
      DEF MES26     DATA BASE IS LOCKED ! 
      DEF MES27     DATA BASE DOES NOT EXIST !
      DEF MES28     NOT THE HIGHEST ACCESS LEVEL WORD ! 
      DEF MES29     WRONG DATA BASE SECURITY CODE 
      DEF MES30     IMAGE ERROR :  XXXX 
      DEF MES31     * 
      DEF MES32     * 
      DEF MES33     PREVIOUS SCREEN IS ILLEGAL
      DEF MES34     BAD CHARACTER, TRY AGAIN
      DEF MES35     CR NOT MOUNTED OR LOCKED
      DEF MES36     * 
      DEF MES37     * 
      DEF MES38     SPECIFIED TMP COPY HAS BEEN CORRUPTED ! 
      DEF MES39     INCONSISTENT DATA BASE DEFINITION 
      DEF MES40     DUPLICATE DATA BASES
      DEF MES41     "TO" LU# MUST BE GREATER THAN "FROM" LU # 
      DEF MES42     * 
      DEF MES43     AT LEAST ONE HP3070 MUST BE SPECIFIED 
      DEF MES44     LU # MUST BE BETWEEN 1 AND XX 
      DEF MES45     20TH SUBROUTINE MUST BE LEFT BLANK
      DEF MES46     3RD LIBRARY MUST BE LEFT BLANK
      DEF MES47     CANNOT CHANGE LOGGING NAMR/LU 
      DEF MES48     IF CHANGING LOG NAMR/LU, MUST BE MODE I OR M
      DEF MES49     IMAGE DATA BASE NOT AVAILABLE TO THIS TMP 
      DEF MES50     DIFFERENT DATA BASE WITH SAME NAME IS ACTIVE
      DEF MES51     DATA BASE ACTIVE, CANNOT GENERATE NOW 
      DEF MES52     DUPLICATE LIBRARY NAMES IN THE SAME PROGRAM 
      DEF MES53     *************************************** 
* 
*  MESSAGE STORAGE
* 
MES1  ASC 13,Unknown mode of operation. 
MES2  ASC 10,Illegal number ! 
MES3  ASC 09,Illegal LU number
MES4  ASC 20,TMP is active, TMPGN cannot modify it !
MES5  ASC 13,Illegal cartridge number.
MES6  ASC 12,Invalid security code !
MES7  ASC 13,Invalid TMP copy number. 
MES8  ASC 11,Duplicate LU number: 
BELU  NOP 
MES9  ASC 24,The logging LU # must be a mag tape device 
MES10 ASC 15,"FROM" LU # must be specified. 
MES11 ASC 15,Undefined Logical unit number. 
MES12 ASC 03,LU # 
CELU  NOP 
      ASC 20, does not correspond to a data capture t 
      ASC 05,erminal !
MES13 ASC 15,Partition requirement too big. 
MES14 ASC 15,Non existent partition number. 
MES15 ASC 22,This module is already defined, either as a
      ASC 11,System or user module. 
MES16 ASC 09,Incomplete screen. 
MES17 ASC 20,Too many prog. unit or too many user wri 
      ASC 7,tten modules. 
MES18 ASC 08,Illegal format ! 
MES19 ASC 5,Answer X !
MES20 ASC 20,If a library is defined, at least one us 
      ASC 13,er module must be defined. 
MES21 ASC 21,Illegal Transaction Specification number!
MES22 ASC 1,
MES23 ASC 1,
MES24 ASC 1,
MES25 ASC 21,Can't use IMAGE, increase TMPGN partition
      ASC 7, size to 18KW.
MES26 ASC 13,The data base is locked !
MES27 ASC 15,The data base does not exist ! 
MES28 ASC 24,This is not the highest level access word !
MES29 ASC 10,Wrong security code
MES30 ASC 7,IMAGE error # 
IMGER BSS 2 
      ASC 19,, Please consult IMAGE documentation.
MES31 ASC 1,
MES32 ASC 1,
MES33 ASC 19,"Previous Screen" Key is not allowed ! 
MES34 ASC 13,Bad character, try again.
MES35 ASC 23,This Cartridge is not mounted or is locked ! 
MES36 ASC 01, 
MES37 ASC 1,
MES38 ASC 23,TMP definition file is corrupted, TMPGN cannot 
      ASC 06, modify it ! 
MES39 ASC 20,The data base definition is incomplete ! 
MES40 ASC 23,This Data Base has already been defined in thi 
      ASC 04,s TMP !
MES41 ASC 22,"TO" LU # must be greater than "FROM" LU #.
MES42 ASC 1,
MES43 ASC 22,At least one data capture terminal LU # must 
      ASC 07, be specified. 
MES44 ASC 14,LU # must be between: 1 and
DELU  NOP 
MES45 ASC 10, Illegal file name.
MES46 ASC 13, Field must be left blank. 
MES47 ASC 21,DCLOG was created with a different NAMR/LU 
MES48 ASC 27, I, M or K must be specified when changing log NAMR/LU 
MES49 ASC 26,This data base is already accessed by the other TMP. 
MES50 ASC 24,Another data base with the same name is active.
MES51 ASC 14,Data Base program is active. 
MES52 ASC 12,Duplicate library name.
MES53 ASC 1,-1
* 
* 
* 
      END 
                                                