ASMB
  HED .              ***  T S E   SCREEN  DATA  *** 
      NAM TSELB,7  92903-16520 REV.1913  790126 
  SPC 3 
**********************************************************************
*                                                                    *
*     NAME:   TSELB    TSE SCREEN DATA & ERROR MESSAGES              *
*     SOURCE: &TSELB    92903-18522                                  *
*     BINARY: %TSELB    ----NONE---    PART OF  %TSE  92903-16520    *
*                                                                    *
*     PGMR:   FRANCOIS GAULLIER                                      *
*                                                                    *
**********************************************************************
      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 3 
*      *********************************************************
*      * THIS SUBROUTINE IS USED BY THE  T S E  TMS-SUBROUTINE *
*      * TO DISPLAY A SCREEN MASK ON THE CRT.                  *
*      *                                                       *
*      * FORTRAN CALL :    CALL TSESC(MBUFR)                   *
*      *                                                       *
*      *********************************************************
   SPC 2
      ENT TSESC,TSEOR,TSDFE,MSTSN,TSESF 
      EXT .ENTR,MOVCX,TMBWR,&MVW,&REMP
      EXT PNAME 
      SUP 
A     EQU 0 
B     EQU 1 
  SKP 
D0    DEC 00        GLOBAL SOURCE MBUFR OFFSET
NAME  BSS 3 
   SPC 2
.MBFR BSS 1         ADDRESS OF THE MBUFR TO MOVE IN ISCRN 
TSESC NOP           ENTRY POINT 
      JSB .ENTR     GET CALLING PARAMETERS
      DEF .MBFR     ADRESS OF FIRST PARAMETER 
* 
*     MOVE MBUFR IN THE VARIABLE ZONE AREA
* 
      JSB MOVCX 
      DEF *+6 
      DEF .MBFR,I   ADDRESS OF FIRST MBUFR WORD 
      DEF SOFST     ADDRESS OF SOURCE OFSET TABLE 
      DEF DOFST     ADDRESS OF DESTINATION TABLE
      DEF D0        ADDRESS OF GLOBAL SOURCE OFSET
      DEF FOMAT     ADDRESS OF NUMERIC FORMAT TABLE 
* 
*     SET THE TMP/TMPD
* 
      JSB PNAME 
      DEF *+2 
      DEF NAME
      LDA NAME+1
      LDB =APD
      CPA =AP1
      LDB =AP 
      STB U0000+1 
* 
*     PRINT THE SCREEN
* 
      JSB TMBWR     USE TMS BUFFERED CALL TO NOT
      DEF *+3       BE SUSPENDED IN THIS SUBROUTINE 
      DEF ZAT00 
      DEF LNG00 
* 
*     RETURN TO CALLING PROGRAM 
* 
      JMP TSESC,I 
* 
*     SCREEN TO DISPLAY 
* 
* 
ZAT00 BYT 33,143,33,130      LOCK KEYBOARD, FORMAT MODE OFF 
      BYT 33,155             MEMORY UNLOCK
      BYT 33,110,33,112      HOME UP, CLEAR DISPLAY 
* 
      BYT 33,46 
      ASC 10,s0a0b0c1d0e0f1g1h0j0 SET 2645A INTERNAL JUMPERS
      BYT 113,00
* 
      BYT 40,33,46,153,61,102     SET BLOCK MODE ON 
* 
*     SOFT KEY ASSIGNMENTS
* 
*     KEY # 1 : NEXT FIELD
*     KEY # 2 : PREVIOUS FIELD
*     KEY # 4 : ABORT  T S E  PROGRAM 
*     KEY # 5 : NEXT SCREEN 
* 
* 
      BYT 33,46,146,61,141,61,153,61,114,11        NEXT FIELD 
      BYT 33,46,146,61,141,62,153,62,114,33,151,40 PREVIOUS FIELD 
      BYT 33,46,146,61,141,63,153,61,114,40        NOT USED 
      BYT 33,46,146,62,141,64,153,61,114,141       ABORT
      BYT 33,46,146,61,141,65,153,64,114,33,110,33,144,40 NEXT SCREEN 
      BYT 33,46,146,61,141,66,153,61,114,40        NOT USED 
      BYT 33,46,146,61,141,67,153,61,114,40        NOT USED 
      BYT 33,46,146,61,141,70,153,61,114,40        NOT USED 
* 
*     LINE # :   1
* 
      BYT 33,46,141,53,62,61,103,0  POSITION  CURSOR -  22
      ASC 16,TRANSACTION SET EDITOR MENU FOR
      BYT 33,46,144,104 
U0000 ASC 2,TMPD
      BYT 15,12 
* 
*     LINE # :   2
* 
      BYT 15,12 
* 
*     LINE # :   3
* 
      ASC 17,  - Select your mode of operation
      BYT 72,0
      BYT 15,12 
* 
*     LINE # :   4
* 
      ASC  3, 
      BYT 33,46,144,104 
      BYT 114,0 
      BYT 33,46,144,100 
      ASC 20,oad a TS LIBRARY into the Working Set
      ASC 11,                    )
      BYT 15,12 
* 
*     LINE # :   5
* 
      ASC  3, 
      BYT 33,46,144,104 
      BYT 101,0 
      BYT 33,46,144,100 
      ASC 22,dd a Transaction Specification to the Workin 
      ASC  8,g Set
      BYT 51,0
      BYT 15,12 
* 
*     LINE # :   6
* 
      ASC  3, 
      BYT 33,46,144,104 
      BYT 104,0 
      BYT 33,46,144,100 
      ASC 22,elete a Transaction Specification from the W 
      ASC 13,orking Set      )  ......
      BYT 33,46,144,102,33,133
T0000 BYT 40,0
      BYT 33,135,33,46,144,100
      BYT 15,12 
* 
*     LINE # :   7
* 
      ASC  3, 
      BYT 33,46,144,104 
      BYT 120,0 
      BYT 33,46,144,100 
      ASC 20,rint a directory list of the Working Set 
      BYT 33,46,141,53,62,60,103,0  POSITION  CURSOR -  68
      BYT 51,0
      BYT 15,12 
* 
*     LINE # :   8
* 
      ASC  3, 
      BYT 33,46,144,104 
      BYT 123,0 
      BYT 33,46,144,100 
      ASC 22,tatus of a Transaction Specification in the
      ASC  6,Working Set
      BYT 33,46,141,53,64,103,0  POSITION  CURSOR -  68 
      BYT 51,0
      BYT 15,12 
* 
*     LINE # :   9
* 
      ASC  3, 
      BYT 33,46,144,104 
      BYT 124,0 
      BYT 33,46,144,100 
      ASC 22,erminate the Transaction Set Editor program
      BYT 33,46,141,53,61,66,103,0  POSITION  CURSOR -  68
      BYT 51,0
      BYT 15,12 
* 
*     LINE # :  10
* 
      BYT 15,12 
* 
*     LINE # :  11
* 
      BYT 33,51,102,16
      ASC  1,R, 
      BYT 54,17 
      ASC 19, For Add, Delete or Status operations
      BYT 16,54 
      ASC 19,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,T 
* 
*     LINE # :  12
* 
      BYT 33,51,102,16
      BYT 56,17 
      ASC 22, - Enter the Transaction specification NAME
      ASC 13,or NUMBER ...............
      BYT 40,0
      BYT 33,46,144,102,33,133
T0001 ASC  3, 
      BYT 33,135,33,46,144,100
      BYT 40,16 
      BYT 56,0
* 
*     LINE # :  13
* 
      BYT 33,51,102,16
      BYT 56,17 
      ASC 22,   and the transaction specification  SECURI 
      ASC 13,TY CODE .................
      BYT 40,0
      BYT 33,46,144,112,33,133
T0002 ASC  3, 
      BYT 33,135,33,46,144,100
      BYT 40,16 
      BYT 56,0
* 
*     LINE # :  14
* 
      BYT 33,51,102,16
      ASC 22,F,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
      ASC 18,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,G 
* 
*     LINE # :  15
* 
      BYT 15,12 
* 
*     LINE # :  16
* 
      BYT 33,51,102,16
      ASC  1,R, 
      BYT 54,17 
      ASC 14, For Load or Add operations
      BYT 16,54 
      ASC 22,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
      ASC  2,,,,T 
* 
*     LINE # :  17
* 
      BYT 33,51,102,16
      BYT 56,17 
      ASC 22, - Enter the LIBRARY NAME:    disc file or d 
      ASC 10,evice (MT,LCTU,RCTU) 
      BYT 33,46,141,53,61,66,103,0  POSITION  CURSOR -  80
      BYT 16,56 
* 
*     LINE # :  18
* 
      BYT 33,51,102,16
      BYT 56,17 
      ASC 22,   on which the Transaction Specification is 
      ASC 13, to be found ............. 
      BYT 40,0
      BYT 33,46,144,102,33,133
T0003 ASC  3, 
      BYT 33,135,33,46,144,100
      BYT 40,16 
      BYT 56,0
* 
*     LINE # :  19
* 
      BYT 33,51,102,16
      BYT 56,17 
      ASC 12, - If the library is on: 
      BYT 00,16 
      BYT 33,46,141,53,65,64,103,0  POSITION  CURSOR -  80
      BYT 56,0
* 
*     LINE # :  20
* 
      BYT 33,51,102,16
      BYT 56,17 
      ASC 19,   A minicartridge or a magnetic tape, 
      BYT 40,0
      BYT 33,46,144,104 
      ASC  6,load device. 
      BYT 33,46,144,100 
      BYT 33,46,141,53,62,67,103,0  POSITION  CURSOR -  80
      BYT 16,56 
* 
*     LINE # :  21
* 
      BYT 33,51,102,16
      BYT 56,17 
      ASC 22,   A disc, give the CARTRIDGE REFERENCE NUMB 
      ASC 13,ER (Optional) ............ 
      BYT 40,0
      BYT 33,46,144,102,33,133
T0004 ASC  3, 
      BYT 33,135,33,46,144,100
      BYT 40,16 
      BYT 56,0
* 
*     LINE # :  22
* 
      BYT 33,51,102,16
      ASC 22,F,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
      ASC 18,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,G 
* 
*     LINE # :  23
* 
      BYT 15,12 
* 
*     LINE # :  24
* 
      BYT 33,142           UNLOCK THE KEYBOARD
      BYT 40,33,127,137    FORMAT MODE ON, SUP <CR>,<LF>
  SPC 1 
LNG00 ABS *-ZAT00 
  SPC 2 
* 
*     SOURCE CHARACTER OFFSET TABLE 
* 
SOFST DEC 1 
      DEC 2 
      DEC 8 
      DEC 10
      DEC 16
      DEC 18
      DEC -1
* 
*     DESTINATION ISCRN ADDRESSES TABLE 
* 
DOFST DEF T0000 
      DEF T0001 
      DEF T0002,I 
      DEF T0003 
      DEF T0004,I 
* 
*     FORMAT OF NUMERIC DATA
* 
FOMAT DEC 6 
      DEC 6 
  HED .              ***  T S E   SCREEN FOR SFK  *** 
TSESF NOP 
      JSB .ENTR 
      DEF TSESF 
* 
*     PRINT THE SCREEN
* 
      JSB TMBWR 
      DEF *+3 
      DEF ZAT08 
      DEF LNG08 
* 
      JMP TSESF,I 
* 
*     SCREEN TO DISPLAY 
* 
* 
ZAT08 BYT 33,143,33,130      LOCK KEYBOARD, FORMAT MODE OFF 
      BYT 33,155             MEMORY UNLOCK
* 
      BYT 33,46 
      ASC 10,s0a0b0c1d0e0f1g1h0j0 SET 2645A INTERNAL JUMPERS
      BYT 113,00
* 
      BYT 40,33,46,153,61,102     SET BLOCK MODE ON 
* 
*     SOFT KEY ASSIGNMENTS
* 
*     KEY # 1 : NEXT FIELD
*     KEY # 2 : PREVIOUS FIELD
*     KEY # 4 : ABORT  T S E  PROGRAM 
*     KEY # 5 : NEXT SCREEN 
* 
* 
      BYT 33,46,146,61,141,61,153,61,114,11        NEXT FIELD 
      BYT 33,46,146,61,141,62,153,62,114,33,151,40 PREVIOUS FIELD 
      BYT 33,46,146,61,141,63,153,61,114,40        NOT USED 
      BYT 33,46,146,62,141,64,153,61,114,141       ABORT
      BYT 33,46,146,61,141,65,153,64,114,33,110,33,144,40 NEXT SCREEN 
      BYT 33,46,146,61,141,66,153,61,114,40        NOT USED 
      BYT 33,46,146,61,141,67,153,61,114,40        NOT USED 
      BYT 33,46,146,61,141,70,153,61,114,40        NOT USED 
* 
      BYT 33,110,33,112      HOME UP, CLEAR DISPLAY 
* 
*     LINE # :   1
* 
      BYT 33,46,144,106 
      ASC  7, DATACAP/1000
      BYT 33,46,144,100 
      BYT 33,46,141,53,61,66,103,0  POSITION  CURSOR -  31
      ASC 10,SOFT KEY ASSIGNMENTS 
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  61
      BYT 33,46,144,106 
      ASC 10, HP 92903A REV.1913
* 
*     LINE # :   2
* 
      BYT 15,12 
* 
*     LINE # :   3
* 
      BYT 33,46,141,53,62,65,103,0  POSITION  CURSOR -  26
      ASC 15,TRANSACTION SET EDITOR READY ! 
      BYT 15,12 
* 
*     LINE # :   4
* 
      BYT 33,51,102,16
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  15
      ASC 22,R,,,,,,,,,,,TR,,,,,,,,,,,TR,,,,,,,,,,,TR,,,, 
      ASC  4,,,,,,,,T 
      BYT 15,12 
* 
*     LINE # :   5
* 
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  15
      BYT 33,51,102,16
      BYT 56,17 
      ASC  5,Next Field 
      BYT 40,16 
      ASC  1,.. 
      BYT 40,17 
      ASC  5, Previous
      BYT 16,56 
      ASC  1,.
      BYT 17,40 
      BYT 33,46,141,53,60,70,103,0  POSITION  CURSOR -  52
      BYT 16,40 
      ASC  1,.. 
      BYT 17,40 
      ASC  5,  Abort
      BYT 16,56 
      BYT 15,12 
* 
*     LINE # :   6
* 
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  15
      BYT 33,51,102,16
      BYT 56,0
      BYT 33,46,144,112 
      ASC  2, 
      BYT 17,146
      ASC  3,1
      BYT 33,46,144,100,16,56 
      BYT 56,0
      BYT 33,46,144,112 
      ASC  2, 
      BYT 17,146
      ASC  3,2
      BYT 33,46,144,100,16,56 
      BYT 56,0
      BYT 33,46,144,112,17,40 
      ASC  5,   f3
      BYT 33,46,144,100,16,56 
      BYT 56,0
      BYT 33,46,144,112,17,40 
      ASC  5,   f4
      BYT 33,46,144,100,16,56 
      BYT 15,12 
* 
*     LINE # :   7
* 
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  15
      BYT 33,51,102,16
      BYT 56,17 
      ASC  5,   (TAB) 
      BYT 40,16 
      ASC  1,.. 
      BYT 17,40 
      ASC  5,  Field
      BYT 16,56 
      ASC  2,.
      BYT 17,40 
      ASC  3, 
      BYT 40,16 
      ASC  1,.. 
      BYT 17,40 
      ASC  5, Program 
      BYT 16,56 
      BYT 15,12 
* 
*     LINE # :   8
* 
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  15
      BYT 33,51,102,16
      ASC 22,F,,,,,,,,,,,GF,,,,,,,,,,,GF,,,,,,,,,,,GF,,,, 
      ASC  4,,,,,,,,G 
      BYT 15,12 
* 
*     LINE # :   9
* 
      BYT 33,51,102,16
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  15
      ASC 22,R,,,,,,,,,,,TR,,,,,,,,,,,TR,,,,,,,,,,,TR,,,, 
      ASC  4,,,,,,,,T 
      BYT 15,12 
* 
*     LINE # :  10
* 
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  15
      BYT 33,51,102,16
      BYT 56,17 
      ASC  5,Next Scree 
      BYT 156,16
      ASC  1,.. 
      BYT 40,17 
      BYT 33,46,141,53,60,71,103,0  POSITION  CURSOR -  39
      BYT 16,40 
      ASC  1,.. 
      BYT 40,17 
      BYT 33,46,141,53,60,71,103,0  POSITION  CURSOR -  52
      BYT 16,40 
      ASC  2,.. 
      BYT 17,40 
      ASC  3, 
      BYT 40,16 
      ASC  1, . 
      BYT 15,12 
* 
*     LINE # :  11
* 
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  15
      BYT 33,51,102,16
      BYT 56,0
      BYT 33,46,144,112 
      ASC  2, 
      BYT 17,146
      ASC  3,5
      BYT 33,46,144,100,16,56 
      BYT 56,0
      BYT 33,46,144,112 
      ASC  2, 
      BYT 17,146
      ASC  3,6
      BYT 33,46,144,100,16,56 
      BYT 56,0
      BYT 33,46,144,112,17,40 
      ASC  5,   f7
      BYT 33,46,144,100,16,56 
      BYT 56,0
      BYT 33,46,144,112,17,40 
      ASC  5,   f8
      BYT 33,46,144,100,16,56 
      BYT 15,12 
* 
*     LINE # :  12
* 
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  15
      BYT 33,51,102,16
      BYT 56,17 
      ASC  5,  (ENTER)
      BYT 40,16 
      ASC  1,.. 
      BYT 40,17 
      BYT 33,46,141,53,60,71,103,0  POSITION  CURSOR -  39
      BYT 16,40 
      ASC  1,.. 
      BYT 40,17 
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  53
      BYT 16,56 
      BYT 56,17 
      BYT 33,46,141,53,61,61,103,0  POSITION  CURSOR -  66
      BYT 16,56 
      BYT 15,12 
* 
*     LINE # :  13
* 
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  15
      BYT 33,51,102,16
      ASC 22,F,,,,,,,,,,,GF,,,,,,,,,,,GF,,,,,,,,,,,GF,,,, 
      ASC  4,,,,,,,,G 
      BYT 15,12 
* 
*     LINE # :  14
* 
      BYT 15,12 
* 
*     LINE # :  15
* 
      ASC 22,     - Please, set in place this label on th 
      ASC  8,e soft keys pad. 
      BYT 15,12 
* 
*     LINE # :  16
* 
      ASC 22,     - During execution of this program, onc 
      ASC 15,e all correct answers have bee 
      BYT 156,0 
      BYT 15,12 
* 
*     LINE # :  17
* 
      ASC 22,       provided for a given screen, press th 
      ASC 15,e NEXT SCREEN key to continue. 
                                                                                                                                                                                                                                          