ASMB,R
      NAM HLP09,7 92080-1X372 REV.2026  800501        
* 
*     SOURCE 92080-18372
* 
      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 USED TO PRINT A HELP MESSAGE  *
*  ON LINES 23 AND 24 OF THE TGP SCREENS                             *
*                   THE CURSOR IS POSITIONEDAT THE FIELD WHERE THE   *
*  HELP SOFT KEY WAS PRESSED.                                        *
*                   THIS SUBROUTINE IS CALLED WITH TWO PARAMETERS :  *
*                                                                    *
*           - PAR#1 =  HELP  MESSAGE # TO OUTPUT                     *
*           - PAR#2 =  HELP  FIELD # ON THE SCREEN                   *
*                                                                    *
**********************************************************************
* 
* 
      ENT HLP09     ENTRY POINT 
      EXT EXEC
      EXT .ENTR 
      EXT &REMP 
      EXT &MVW
      COM ILU       TERM. LU
* 
*  GET CALLING PARAMETERS 
* 
NMESS NOP           FIRST PARM. ADDRESS 
NOF   NOP           SECD. PARM. ADDRESS 
HLP09 NOP           ENTRY POINT 
      JSB .ENTR     SUBR. TO GET
      DEF NMESS     PARM. ADDRESS 
* 
* 
*  MOVE HELP  MESSAGE IN OUTPUT BUFFER
* 
      LDA NMESS,I   GET ERROR MESSAGE # 
      SZA,RSS       IS 0 ?
*     JMP HLPC      YES NO MESSAGE
      LDA =B34      YES, GIVE GENERAL HELP 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 
* 
      LDB BUFAD     COMPUTE CURRENT 
      ADB P2        ADDRESS IN OUTPUT BUFFER
* 
      LDA BUF1      INCLUDE FORMAT ON 
      STA B,I       IN OUTPUT BUFFER
      INB           INCREMENT ADDRESS IN OUT. BUFFER
* 
      LDA D.10      COMPUTE OUTPUT BUFFER LENGTH
      ADA P2
      STA ILN       STORE IT
      JMP HLPB
* 
HLPC  LDA D.10
      STA ILN 
      LDB BUFAD 
      LDA BUF1
      STA B,I 
      INB 
* 
* NOW INCLUDE TABS IN BUFFER
* 
HLPB  LDA NOF,I     GET HELP  FIELD # 
      CPA D.1       IS 1 ?
      JMP HLPA      YES NO TABS 
      ADA .D1       DECREMENT 
      STA P5        STORE # OF FIELD
      ADA ILN       INCREMENT OUTPUT BUFFER 
      STA ILN       LENGTH
      LDA P5        GET FIELD # 
      CMA,INA       MAKE IT NEG 
      STA P4
      LDA B 
      STB P2        SORE B
      LDB TAB 
      JSB &REMP     MOVE TABS IN BUFFER 
P4    NOP 
* 
      LDB P2        RESTORE B 
      LDA P5        INCREMENT ADDRESS IN
      ADB A 
* 
HLPA  LDA BUFA2 
      JSB &MVW      INCLUDE KEY ENABLE
      DEC 3         IN BUFFER 
* 
      JSB EXEC      WRITE MESSAGE 
      DEF *+5 
      DEF D.2 
      DEF ILU 
      DEF BUF 
      DEF ILN 
* 
      JMP HLP09,I 
* 
* 
*  BUFFER DATA
* 
BUF   BYT 33,130,33,46,141,62,62,162,60,103  FORMAT OFF:POS.CURSOR
      BYT 33,112    CLEAR DISPLAY 
BUFER BSS 140       MESSAGE BUFFER
* 
* STORAGE , CONSTANTS ..
* 
BUFAD DEF BUFER     BUFF. ADDRESS 
BUFA2 DEF BUF2
A     EQU 0         A REGISTER
B     EQU 1         B REGISTER
IST   NOP 
P1    NOP           SOURCE ADDRESS BUFFER ADDRESS 
P5    NOP 
ILN   NOP             BUFFER LENGTH 
TAB   BYT 33,111
BUF1  BYT 33,127    FORMAT ON 
BUF2  BYT 0,0,0,33,142,137               ERASE h ,KEY.ENABLE
.D1   DEC -1
D.10  DEC 10
D.1   DEC 1 
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 
* 
*  MESSAGE STORAGE
* 
* 
MES1  BYT 33,46,144,112 
      ASC 22, A function only answer allows only CONTINUE 
      ASC 18,, DELETE or NEXT ENTRY keys as an- 
      BYT 33,46,144,112 
      ASC 12, swers to the question.
      BYT 33,46,141,53,65,66,103,0  POSITION  CURSOR -  81
* 
MES2  BYT 33,46,144,112 
      ASC 22, A value may be displayed from a user subrou 
      ASC 18,tine or IMAGE when asking a ques-
      BYT 33,46,144,112 
      ASC 17, tion to help answer the question. 
      BYT 33,46,141,53,64,66,103,0  POSITION  CURSOR -  81
* 
MES3  BYT 33,46,144,112 
      ASC 22, The displayed value may be taken as the def 
      ASC 18,ault answer when the ENTER key is
      BYT 33,46,144,112 
      ASC 22, pressed on the HP3070 as answer to the ques 
      ASC  3,tion.
      BYT 33,46,141,53,63,60,103,0  POSITION  CURSOR -  81
* 
MES4  BYT 33,46,144,112 
      ASC 22, The default value is the value taken as ans 
      ASC 18,wer when the ENTER key is pressed on 
      BYT 33,46,144,112 
      ASC 19, the HP3070 as answer to the question. 
      BYT 33,46,141,53,64,62,103,0  POSITION  CURSOR -  81
* 
MES5  BYT 33,46,144,112 
      ASC 22, If the value entered is for a data base ite 
      ASC 18,m, its name in the data base schema
      BYT 33,46,144,112 
      ASC 10, must be given here. 
      BYT 33,46,141,53,66,60,103,0  POSITION  CURSOR -  81
* 
MES6  BYT 33,46,144,112 
      ASC 22, The light will be lit when this question is 
      ASC 18, asked. If omitted, the system will
      BYT 33,46,144,112 
      ASC 22, assign the next available light. Specifying 
      ASC 18, "0" will cause no light to be lit.
      BYT 33,46,141,53,60,60,103,0  POSITION  CURSOR -  81
* 
MES7  BYT 33,46,144,103 
      ASC 7,WARNING ONLY :
      BYT 33,46,144,100 
      ASC 19, Light number has been previously used 
MES8  BYT 33,46,144,112 
      ASC 22, The format of the answer must be entered in 
      ASC 18, this field. 
* 
MES9  BYT 33,46,144,112 
      ASC 22, If the answer to the question is supplied b 
      ASC 18,y an optional non-keyboard mini- 
      BYT 33,46,144,112 
      ASC 22, peripheral or Data Subroutine, enter X. 
      BYT 33,46,141,53,64,64,103,0
* 
MES10 BYT 33,46,144,112 
      ASC 22, A text entered here will be used as a quest 
      ASC 18,ion prompt coming from the display 
      BYT 33,46,144,112 
      ASC 10, or strip printer. 
      BYT 33,46,141,53,66,60,103,0
* 
MES11 BYT 33,46,144,112 
      ASC 22, Enter 'C' to CLEAR screen before question,
      ASC 18,'S' to SCROLL. For LARGE char set, 
      BYT 33,46,144,112 
      ASC 22, SCROLL implies write 8 lines, clear screen, 
      ASC  9, write 8 lines ... 
      BYT 33,46,141,53,61,70,103,0
* 
MES12 BYT 33,46,144,112 
      ASC 22, The CRT has 2 character sets. LARGE is 8 li 
      ASC 18,nes of 16 characters per screen. 
      BYT 33,46,144,112 
      ASC 22, SMALL consists of 16 lines of 32 characters 
      ASC  6, per screen. 
      BYT 33,46,141,53,62,64,103,0
MES13 BYT 33,46,144,112 
      ASC 22, To specify that the answer is to be printed 
      ASC 18, on the alphanumeric printer during
      BYT 33,46,144,112 
      ASC 15, the transaction, enter an X.
      BYT 33,46,141,53,65,60,103,0
MES14 BYT 33,46,144,112 
      ASC 22, To specify that the answer is to be printed 
      ASC 18, on the alphanumeric printer after 
      BYT 33,46,144,112 
      ASC 15, the transaction, enter an X.
      BYT 33,46,141,53,65,60,103,0
MES15 BYT 33,46,144,112 
      ASC 22, If the value entered is for a data base ite 
      ASC 18,m, the DATA SET name to which it 
      BYT 33,46,144,112 
      ASC 14, belongs must be given here. 
      BYT 33,46,141,53,65,62,103,0
MES16 BYT 33,46,144,112 
      ASC 22, For IMAGE data base access only. Enter the
      ASC 18,desired IMAGE operation: F, U, A, or 
      BYT 33,46,144,112 
      ASC 15, C as explained on the screen. 
      BYT 33,46,141,53,65,60,103,0
MES17 BYT 33,46,144,112 
      ASC 22, Specify A or I depending on whether the dat 
      ASC 18,a is in ASCII (Hollerith) or card
      BYT 33,46,144,112 
      ASC 12, image (binary) format.
      BYT 33,46,141,53,65,66,103,0
MES18 BYT 33,46,144,112 
      ASC 22, Specify H or M depending on whether punched 
      ASC 18, holes or marked sensed cards are to 
      BYT 33,46,144,112 
      ASC  5, be read.
      BYT 33,46,141,53,67,60,103,0
MES19 BYT 33,46,144,112 
      ASC 22, Clocking deals with data location. For more 
      ASC 18, information on clocking see the 
      BYT 33,46,144,112 
      ASC 22, 3075/6/7 Data Capture Terminals Reference M 
      ASC  3,anual. 
      BYT 33,46,141,53,67,64,103,0
MES20 BYT 33,46,144,112 
      ASC 22, Specify the starting column number of the f 
      ASC 18,ield that is to be used as the 
      BYT 33,46,144,112 
      ASC  4, answer. 
      BYT 33,46,141,53,67,62,103,0
MES21 BYT 33,46,144,112 
      ASC 22, Specify the ending column number of the fie 
      ASC 18,ld that is to be used as the answer. 
MES22 BYT 33,46,144,112 
      ASC 22, Specify whether the answer is to be read as 
      ASC 18, Type V standard numeric (N), or as
      BYT 33,46,144,112 
      ASC 22, an image (I) of the holes punched on the ba 
      ASC  2,dge. 
      BYT 33,46,141,53,67,66,103,0
MES23 BYT 33,46,144,112 
      ASC 22, If the answer to the question is coming fro 
      ASC 18,m a user written data subroutine,
      BYT 33,46,144,112 
      ASC 22, the name of that subroutine must be entered 
      ASC  3, here. 
      BYT 33,46,141,53,67,64,103,0
MES24 BYT 33,46,144,112 
      ASC 22, If this question defines a new pass of the
      ASC 18,Bar Code Reader, enter either U, I,
      BYT 33,46,144,112 
      ASC 22, M, or C for the appropriate type of code. 
      BYT 33,46,141,53,63,66,103,0
MES25 BYT 33,46,144,112 
      ASC 22, Within the characters read by one pass of t 
      ASC 18,he reader, specify the starting and
      BYT 33,46,144,112 
      ASC 22, ending characters of the sequence to be use 
      ASC  9,d for the answer.
      BYT 33,46,141,53,66,62,103,0
MES26 BYT 33,46,144,112 
      ASC 22, If the answer is from a new magnetic card,
      ASC 18,enter X. If a magnetic card was
      BYT 33,46,144,112 
      ASC 22, read last, more data can be picked up off t 
      ASC 18,his card by leaving field blank. 
MES27 BYT 33,46,144,103 
      ASC  8, WARNING ONLY :
      BYT 33,46,144,100 
      ASC 22, The use of Clock On data is not recommended 
MES28 BYT 33,46,144,112 
      ASC 22, Please reference the DATACAP/1000 Reference 
      ASC 18, Manaual for further information.
      BYT 33,46,144,112 
      ASC  1, 
      BYT 33,46,141,53,71,70,103,0
MES29 BYT 33,46,144,103 
      ASC  7,WARNING ONLY : 
      BYT 33,46,144,100 
      ASC 23,  For security purposes, it is recommended to
      ASC 10,enable the check 
      ASC  8, 
      ASC 22,digit when using Industrial or Matrix 2 of 5 
      ASC  1,.
MES30 BYT 33,46,144,103 
      ASC  7,WARNING ONLY:
      BYT 33,46,144,100 
      ASC 23,  The check digit is automatically enabled whe 
      ASC 10,n using UPC/EAN. 
      ASC  8, 
      ASC 11,It cannot be disabled. 
MES31 ASC 1,-1
* 
* 
      END HLP09