ASMB,R
      NAM HLP01,7  92080-1X354 REV.2026  800513           
* 
*     SOURCE 92080-18354
* 
      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 HLP01     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 
HLP01 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 HPLC      YES NO MESSAGE
      LDA =B36      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 HPLB
* 
HPLC  LDA D.10
      STA ILN 
      LDB BUFAD 
      LDA BUF1
      STA B,I 
      INB 
* 
* NOW INCLUDE TABS IN BUFFER
* 
HPLB  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        SAVE 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 HLP01,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, Name (maximum of 6 alphanumeric characters) 
      ASC 18, : It uniquely identifies each 
      BYT 33,46,144,112 
      ASC 14, transaction specification.
      BYT 33,46,141,53,65,62,103,0  POSITION  CURSOR -  81
* 
MES2  BYT 33,46,144,112 
      ASC 22, The name (6 alphanumeric characters) or num 
      ASC 18,ber (from 1 to 9999) uniquely
      BYT 33,46,144,112 
      ASC 20, identify each transaction specification 
      BYT 33,46,141,53,64,60,103,0  POSITION  CURSOR -  81
* 
MES3  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
* 
MES4  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
* 
MES5  BYT 33,46,144,112 
      ASC 22, File name of an output device selected amon 
      ASC 18,g those defined when installing
* 
      BYT 33,46,144,112 
      ASC  4, DATACAP 
      BYT 33,46,141,53,67,62,103,0  POSITION  CURSOR -  81
* 
MES6  BYT 33,46,144,112 
      ASC 22, Number (1=<N<=9999) used to access the tran 
      ASC 18,saction specification from the data
* 
      BYT 33,46,144,112 
      ASC 10, capture terminals.
      BYT 33,46,141,53,66,70,103,0  POSITION  CURSOR -  81
* 
MES7  BYT 33,46,144,112 
      ASC 22, The security code (-32767=<SC<=32767) preve 
      ASC 18,nts access to the transaction speci- 
* 
      BYT 33,46,144,112 
      ASC 18, fication by unauthorized personnel. 
      BYT 33,46,141,53,64,64,103,0  POSITION  CURSOR -  81
* 
MES8  BYT 33,46,144,112 
      ASC 22, User written modules are user subroutines t 
      ASC 18,hat supply data or allow specific
* 
      BYT 33,46,144,112 
      ASC 22, validation, display or storage functions to 
      ASC 18, be performed during a transaction.
* 
MES9  BYT 33,46,144,112 
      ASC 22, The data base name must be identical to the 
      ASC 18, name given in the data base schema
* 
      BYT 33,46,144,112 
      ASC  9, when creating it. 
      BYT 33,46,141,53,66,62,103,0  POSITION  CURSOR -  81
* 
MES10 BYT 33,46,144,112 
      ASC 22, The data base security code must be identic 
      ASC 18,al to the security code given in the 
* 
      BYT 33,46,144,112 
      ASC 18, data base schema when creating it.
      BYT 33,46,141,53,64,64,103,0  POSITION  CURSOR -  81
* 
MES11 BYT 33,46,144,112 
      ASC 22, The transaction will complete without press 
      ASC 18,ing the TC or CS key after the last
* 
      BYT 33,46,144,112 
      ASC 11, question is provided. 
      BYT 33,46,141,53,65,70,103,0  POSITION  CURSOR - 81 
* 
MES12 BYT 33,46,144,112 
      ASC 22,This field enables a light to be left lit fo 
      ASC 18,r the duration of the transaction. 
* 
      BYT 33,46,144,112 
      ASC 19,Light numbers 1 through 14 are valid.
      BYT 33,46,141,53,64,62,103,0  POSITION  CURSOR -  81
* 
MES13 BYT 33,46,144,112 
      ASC 22, This field is used to incorporate the Alpha 
      ASC 18,numeric Strip Printer into the 
      BYT 33,46,144,112 
      ASC 14, transaction specification.
      BYT 33,46,141,53,65,62,103,0  POSITION  CURSOR -  81
* 
MES14 BYT 33,46,144,112 
      ASC 22, This field is used to specify an error head 
      ASC 18,er of up to 12 characters for
      BYT 33,46,144,112 
      ASC  9, display purposes. 
      BYT 33,46,141,53,66,62,103,0  POSITION  CURSOR -  81
* 
MES15 BYT 33,46,144,112 
      ASC 22, Do you need an Alphanumeric Keyboard for th 
      ASC 18,is transaction ?  If so enter
* 
      BYT 33,46,144,112 
      ASC  9, X in this field.
      BYT 33,46,141,53,66,62,103,0  POSITION  CURSOR -  81
* 
MES16 BYT 33,46,144,112 
      ASC 22, If a CRT display is to be used with this tr 
      ASC 18,ansaction enter X in this field
* 
      BYT 33,46,144,112 
      ASC 22, Only terminals with CRTs will then be able
      ASC 18,to run this transaction
      BYT 33,46,141,53,62,66,103,0  POSITION  CURSOR -  81
* 
MES17 BYT 33,46,144,112 
      ASC 22, If an Alpha display is desired for this tra 
      ASC 18,nsaction enter X in this field.
* 
      BYT 33,46,144,112 
      ASC 22, The Alpha display and CRT are mutually excl 
      ASC 18,usive. 
      BYT 33,46,141,53,67,60,103,0  POSITION  CURSOR -  81
* 
MES18 BYT 33,46,144,112 
      ASC  1,XX 
* 
      BYT 33,46,144,112 
      ASC  1,XX 
      BYT 33,46,141,53,64,70,103,0  POSITION  CURSOR -  81
* 
MES19 BYT 33,46,144,112 
      ASC 22, If a Multifunction Card - Type III Badge Re 
      ASC 18,ader is used with this transaction 
* 
      BYT 33,46,144,112 
      ASC 18, enter X in this field.
      BYT 33,46,141,53,64,64,103,0  POSITION  CURSOR -  81
* 
MES20 BYT 33,46,144,112 
      ASC 22, If a Type V Badge Reader is used with this
      ASC 18,transaction enter an X in this 
* 
      BYT 33,46,144,112 
      ASC 22, field 
      ASC 18, 
* 
MES21 BYT 33,46,144,112 
      ASC 22, If a Magstripe Reader is used with this tra 
      ASC 18,nsaction enter an X in this field
* 
      BYT 33,46,144,112 
      ASC  9, 
      BYT 33,46,141,53,66,62,103,0  POSITION  CURSOR -  81
* 
MES22 BYT 33,46,144,112 
      ASC 22, If a Bar Code Reader is used with this tran 
      ASC 18,saction enter an X in this field 
* 
      BYT 33,46,144,112 
      BYT 33,46,141,53,70,60,103,0  POSITION  CURSOR -  81
* 
MES23 BYT 33,46,144,112 
      ASC 22,A 3077 clock can be of 12 or 24 hour format. 
      ASC 18, If a 3077 is being used, enter the
* 
      BYT 33,46,144,112 
      ASC 14,desired format in this field 
      BYT 33,46,141,53,65,62,103,0  POSITION  CURSOR - 81 
* 
MES24 BYT 33,46,144,103 
      ASC 7,WARNING ONLY :
      BYT 33,46,144,100 
      ASC 19, Returning to the previous screen will 
      ASC 14, initialize all fields 
* 
MES25 BYT 33,46,144,103 
      ASC 7,WARNING ONLY :
      BYT 33,46,144,100 
      ASC 19, Light number has been previously used 
* 
MES26 BYT 33,46,144,103 
      ASC 7,WARNING ONLY :
      BYT 33,46,144,100 
      ASC 22, Scrolling with LARGE characters simply fill 
      ASC 11,s 8 lines on screen, t 
      ASC 22,hen blanks screen before printing line 9, re 
      ASC 18,gardless of location within question 
* 
MES27 BYT 33,46,144,112 
      ASC 22, Enter either C, M, L, B, E, or A to select
      ASC 18,the desired mode of operation to be
      BYT 33,46,144,112 
      ASC 22, performed. A set of dynamic screens corresp 
      ASC 18,onding to this choice will follow. 
* 
MES28 BYT 33,46,144,112 
      ASC 22, Logging will protect against lost data in t 
      ASC 18,he event of a system crash. Logged 
      BYT 33,46,144,112 
      ASC 22, data is not a replacement for normal transa 
      ASC 10,ction data storage.
      BYT 33,46,141,53,66,60,103,0
* 
MES29 BYT 33,46,144,112 
      ASC 22, The CARTRIDGE REFERENCE NUMBER and HIGHEST
      ASC 18,LEVEL ACCESS WORD must be identical
      BYT 33,46,144,112 
      ASC 22, to that given in the data base schema upon
      ASC  5,creation.
      BYT 33,46,141,53,67,60,103,0
* 
MES30 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,67,71,103,0
* 
* 
MES31 ASC 1,-1
* 
* 
      END HLP01 
                                                                                                                