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 , * * 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