ASMB,R
      NAM HLP06,7 92080-1X365 REV.2026  800408                
* 
*     SOURCE 92080-18365
* 
      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 HLP06     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 
ILST  NOP           THIRD PARAM ADDRESS 
HLP06 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 =B31      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 ILST,I    IS IT LAST UNPROT. FIELD IN SCREEN ?
      SZA 
      JMP HPLD      YES 
      LDA BUFA2     GET BUFFER ADDRESS
      RSS           SKIP
HPLD  LDA BUFA3     GET ADDRESS BUFFER
      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 HLP06,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
BUFA3 DEF BUF3
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
BUF3  BYT 0,0,33,142,0,137 CLEAR DISP,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 
* 
*  MESSAGE STORAGE
* 
* 
MES1  BYT 33,46,144,112 
      ASC 22, If CONTINUE is selected, pressing that key
      ASC 18,on the Data Capture terminal during
      BYT 33,46,144,112 
      ASC 22, the transaction causes the next question to 
      ASC  5, be asked. 
      BYT 33,46,141,53,64,62,103,0  POSITION  CURSOR -  81
* 
MES2  BYT 33,46,144,112 
      ASC 22, If DELETE is selected, pressing that key du 
      ASC 18,ring the transaction causes the
      BYT 33,46,144,112 
      ASC 22, current data base entry to be deleted at th 
      ASC 18,e end of the transaction.
* 
MES3  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, supply 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
* 
MES4  BYT 33,46,144,112 
      ASC 22, This text is used only on the HP3070 label
      ASC 18,printout given at the end of the 
      BYT 33,46,144,112 
      ASC 22, definition of this transaction specificatio 
      ASC  2,n .
      BYT 33,46,141,53,63,62,103,0  POSITION  CURSOR -  81
* 
MES5  BYT 33,46,144,112 
      ASC 22, This is the name of the user written subrou 
      ASC 18,tine required to pass the value to 
      BYT 33,46,144,112 
      ASC 22, be displayed for this question to the Trans 
      ASC 12,action Monitor Program.
      BYT 33,46,141,53,61,62,103,0  POSITION  CURSOR -  81
* 
MES6  BYT 33,46,144,112 
      ASC 20, Maximum string length accepted is 126.
      BYT 33,46,141,53,64,60,103,0  POSITION  CURSOR -  81
      BYT 33,46,144,112 
      BYT 33,46,141,53,70,60,103,0  POSITION  CURSOR -  81
* 
MES7  BYT 33,46,144,112 
      ASC 22, If the value to display is to be retrieved
      ASC 18,from a data base item, its name in 
      BYT 33,46,144,112 
      ASC 18, the data base schema must be given. 
      BYT 33,46,141,53,64,64,103,0  POSITION  CURSOR -  81
* 
MES8  BYT 33,46,144,112 
      ASC 22, If this information is to be stored directl 
      ASC 18,y into a data base item, its name in 
* 
      BYT 33,46,144,112 
      ASC 18, the data base schema must be given. 
      BYT 33,46,141,53,64,64,103,0  POSITION  CURSOR -  81
* 
MES9  BYT 33,46,144,112 
      ASC 22, Each device in an RTE system is identified
      ASC 18,by a Logical Unit number assigned by 
      BYT 33,46,144,112 
      ASC 22, the system operator at system generation ti 
      ASC  2,me . 
      BYT 33,46,141,53,63,62,103,0  POSITION  CURSOR -  81
* 
MES10 BYT 33,46,144,112 
      ASC 22, The disc file name is composed of 6 printab 
      ASC 18,le alphanumeric characters starting
      BYT 33,46,144,112 
      ASC 15, with an alphabetic character. 
      BYT 33,46,141,53,65,60,103,0  POSITION  CURSOR -  81
* 
MES11 BYT 33,46,144,112 
      ASC 22, Each disc cartridge in an RTE system is ide 
      ASC 18,ntified by a Cartridge Reference # 
      BYT 33,46,144,112 
      ASC 17, assigned by the system operator.
      BYT 33,46,141,53,64,66,103,0  POSITION  CURSOR -  81
* 
MES12 BYT 33,46,144,112 
      ASC 22, The file security code is a user selected n 
      ASC 18,umber (-32767=<FSC<=32767) which is
      BYT 33,46,144,112 
      ASC 22, is attached to the file to prevent unauthor 
      ASC  9,ized access to it. 
      BYT 33,46,141,53,61,70,103,0  POSITION  CURSOR -  81
* 
MES13 BYT 33,46,144,112 
      ASC 22, This is the name of the user written subrou 
      ASC 18,tine to which the data collected 
      BYT 33,46,144,112 
      ASC 22, during the transaction are to be passed by
      ASC 18,the Transaction Monitor Program. 
* 
* 
MES14 BYT 33,46,144,112 
      ASC 22, When the NEXT ENTRY key is pressed as answe 
      ASC 18,r to the question the current entry
      BYT 33,46,144,112 
      ASC 22, in the chain is ignored and the next entry
      ASC  6,is fetched.
      BYT 33,46,141,53,62,64,103,0  POSITION  CURSOR -  81
* 
MES15 BYT 33,46,144,112 
      ASC 22, To allow other programs read access to the
      ASC 18,data storage file, enter X.
MES16 BYT 33,46,144,112 
      ASC 22, The displayed value for a question can be u 
      ASC 18,sed as a default answer to the 
      BYT 33,46,144,112 
      ASC 19, question by entering X in this field. 
      BYT 33,46,141,53,64,62,103,0
MES17 BYT 33,46,144,112 
      ASC 22, A text string entered here will be used as
      ASC 18,a key label as well as being dis-
      BYT 33,46,144,112 
      ASC 18, played prior to a displayed value.
      BYT 33,46,141,53,64,64,103,0
MES18 BYT 33,46,144,112 
      ASC 22, To specify that the displayed value is to b 
      ASC 18,e printed on the alphanumeric
      BYT 33,46,144,112 
      ASC 22, printer during the transaction, enter an X. 
      BYT 33,46,141,53,63,66,103,0
MES19 BYT 33,46,144,112 
      ASC 22, To specify that the displayed value is to b 
      ASC 18,e printed on the alphanumeric
      BYT 33,46,144,112 
      ASC 22, printer after the transaction, enter an X.
      BYT 33,46,141,53,63,66,103,0
MES20 BYT 33,46,144,112 
      ASC 22, The displayed value has a type associated w 
      ASC 18,ith it of String, Integer, or Real.
      BYT 33,46,144,112 
      ASC 22, Specify that type here if a user written di 
      ASC 18,splay module is being used.
MES21 BYT 33,46,144,112 
      ASC 22, When using a display from an IMAGE item, th 
      ASC 18,e DATA SET name that the item is a 
      BYT 33,46,144,112 
      ASC 17, member of must be specified here. 
      BYT 33,46,141,53,64,66,103,0
MES22 BYT 33,46,144,112 
      ASC 22, If the value is to be the total of all entr 
      ASC 18,ies isolated by a previous FIND
      BYT 33,46,144,112 
      ASC 12, operation, enter an X.
      BYT 33,46,141,53,65,66,103,0
MES23 BYT 33,46,144,103 
      ASC  7,WARNING ONLY : 
      BYT 33,46,144,100 
      ASC 19, Light number has been previously used 
MES24 BYT 33,46,144,112 
      ASC 22, Enter the magnetic tape Type 0 file name if 
      ASC 18, data storage to tape is desired.
      BYT 33,46,144,112 
      ASC 1,
      BYT 33,46,141,53,71,70,103,0
MES25 BYT 33,46,144,112 
      ASC 22, Please reference the DATACAP/1000 Reference 
      ASC 18, Manual for further information. 
      BYT 33,46,144,112 
      ASC  1, 
      BYT 33,46,141,53,71,70,103,0
MES26 ASC 1,-1
* 
* 
* 
      END HLP06 
                                                                                                    