ASMB,R NAM MES01,7 92080-1X353 REV.2026 800401 * * SOURCE 92080-18353 * SPC 2 ************************************************************** * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978. 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 2 SUP * ********************************************************************** * * * THIS SUBROUTINE IS CALLED BY THE SEGMENT ANSWR * * OF THE FORMG PROGRAM TO WRITE AN ERROR MESSAGE ON THE TERMINAL. * * THE ERROR MESSAGE IS PRINTED ON LINE 24 OF THE * * SCREEN AND THE CURSOR IS MOVED TO THE WRONG FIELD. * * THIS SUBROUTINE IS CALLED WITH TWO PARAMETERS : * * * * - PAR#1 = ERROR MESSAGE # TO OUTPUT * * - PAR#2 = WRONG FIELD # ON THE SCREEN * * * ********************************************************************** * * ENT MES01 ENTRY POINT EXT EXEC EXT .ENTR EXT &REMP EXT &MVW COM ILU TERM. LU COM XXXXX(5802) COM IMODE * * GET CALLING PARAMETERS AND INITIALISE * NMESS NOP FIRST PARM. ADDRESS NOF NOP SECD. PARM. ADDRESS NIER NOP MES01 NOP ENTRY POINT JSB .ENTR SUBR. TO GET DEF NMESS PARM. ADDRESS * LDA IMODE GET MODE FLAG. SZA MODE 0? ISZ IMODE NO, HENCE CHANGE MODE 1 TO 2. * 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 * LDA NIER LDB ANMES JSB &MVW DEC 3 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 ILU CONTROL WORD DEF BUF BUFFER LOCATION DEF ILN BUFFER LENGTH * * RETURN TO CALLING PROGRAM * JMP MES01,I * * BUFFER DATA * BUF BYT 33,130,33,46,141,62,62,162,60,103 FORMAT OFF:POS.CURSOR BYT 33,112,15,12,40,0 CLEAR DISP CR,LF 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 ANMES DEF INMES A EQU 0 A REGISTER STAD EQU BUF BUFFER STARTING ADDRESS LTAD EQU EBUF BUFFER LAST ADDRESS IST NOP 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 DEF MES2 DEF MES3 DEF MES4 DEF MES5 DEF MES6 DEF MES7 DEF MES8 DEF MES9 DEF MES10 DEF MES11 DEF MES12 DEF MES13 DEF MES14 DEF MES15 DEF MES16 DEF MES17 DEF MES18 DEF MES19 DEF MES20 DEF MES21 DEF MES22 DEF MES23 DEF MES24 DEF MES25 DEF MES26 DEF MES27 DEF MES28 DEF MES29 DEF MES30 DEF MES31 DEF MES32 DEF MES33 DEF MES34 DEF MES35 DEF MES36 DEF MES37 DEF MES38 DEF MES39 DEF MES40 DEF MES41 DEF MES42 DEF MES43 * * MESSAGE STORAGE * MES1 ASC 13,Illegal mode of operation MES2 ASC 18,Illegal transaction specification # MES3 ASC 24,Illegal transaction specification security code MES4 ASC 9,Illegal file type MES5 ASC 21,This version of TGP does not support IMAGE MES6 ASC 22,Data base security code illegal or not given MES7 ASC 23,Transaction specification name or # not given MES8 ASC 12,Illegal character input MES9 ASC 12,Field must be blank or X MES10 ASC 10,Field must be blank MES11 ASC 10,Illegal logical unit MES12 ASC 12,File name must be given MES13 ASC 9,No file name given MES14 ASC 12,Illegal cartridge number MES15 ASC 23,No transaction specification on the selected m ASC 2,edia MES16 ASC 18,Transaction specification not found MES17 ASC 13,Unable to lock type 0 file MES18 ASC 14,Unable to unlock type 0 file MES19 ASC 10,System error : FMGR INMES ASC 3, MES20 ASC 21,Library could not be found on CR specified MES21 ASC 10,Wrong security code MES22 ASC 19,Illegal transaction specification name MES23 ASC 25,Only 2 of the readers and printer can be specified MES24 ASC 7,Wrong Rev Code MES25 ASC 15,Must be Blank or "12" or "24" MES26 ASC 14,Printer cannot be specified MES27 ASC 14,Keyboard cannot be specified MES28 ASC 17,Error Message cannot be specified MES29 ASC 20,Badge, Card or Magstripe Reader required MES30 ASC 26,Only 1 of Type III, V and Magstripe can be specified MES31 ASC 7,File not found MES32 ASC 20,Field must be blank or between 0 and 14. MES33 ASC 14,Field must be blank, A, or C MES34 ASC 14,Field must be either S or L MES35 ASC 20,No imbedded blanks allowed within name. MES36 ASC 26,CRT Display not allowed with Time Reporting Terminal MES37 ASC 19,Bar Code Reader not allowed with 3077 MES38 ASC 24,3077 not allowed with self complete transaction MES39 ASC 20,Cannot specify auto-complete with a 3077 MES40 ASC 23,CRT and Alphanumeric display not both allowed MES41 ASC 15,Illegal library security code MES42 ASC 26,Light to remain lit and 3077 are mutually exclusive MES43 ASC 1,-1 * * END MES01