ASMB
  HED .              ***  T S E   SCREEN  DATA  *** 
      NAM TSELB,7  92080-1X522 REV.2026  800512 
  SPC 3 
**********************************************************************
*                                                                    *
*     NAME:   TSELB    TSE SCREEN DATA & ERROR MESSAGES              *
*     SOURCE: &TSELB    92080-18522                                  *
*     BINARY: %TSELB    92080-1X522    PART OF  %TSE  92080-16520    *
*                                                                    *
*     PGMR:   FRANCOIS GAULLIER                                      *
*                                                                    *
**********************************************************************
      SPC 2 
*     **************************************************************
*     * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  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,ENTER,DRTFK,DRTFX 
      EXT .ENTR,MOVCX,TMBWR,&MVW,&REMP,TCVTB,TMBCT
      EXT PNAME,$LIBR,$LIBX 
      SUP 
A     EQU 0 
B     EQU 1 
  SKP 
D0    DEC 00        GLOBAL SOURCE MBUFR OFFSET
D6    DEC 6         LENGTH OF CR# IN BYTES
D5    DEC 5 
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
* 
*  CHANGE THE CR# TO ASCII IF REQ'D 
* 
      JSB TCVTB 
      DEF *+3 
      DEF T0004 
      DEF D6
      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 # :   2
* 
      BYT 15,12 
* 
*     LINE # :   3
* 
      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  9, HP 92080A REV.202 
      BYT 66,0
      BYT 15,12 
* 
*     LINE # :   4
* 
      BYT 15,12 
* 
*     LINE # :   5
* 
      BYT 33,46,141,53,62,65,103,0  POSITION  CURSOR -  26
      ASC 15,TRANSACTION SET EDITOR READY ! 
      BYT 15,12 
* 
*     LINE # :   6
* 
      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 # :   7
* 
      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 # :   8
* 
      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 # :   9
* 
      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 # :  10
* 
      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 # :  11
* 
      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 # :  12
* 
      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 # :  13
* 
      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 # :  14
* 
      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 # :  15
* 
      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 # :  16
* 
      BYT 15,12 
* 
*     LINE # :  17
* 
      ASC 22,     - This program assigns the terminal SFK 
      ASC  9,'s as shown above. 
      BYT 15,12 
* 
*     LINE # :  18
* 
      BYT 15,12 
* 
*     LINE # :  19
* 
      ASC 22,     - Once all the correct answers have bee 
      ASC 15,n provided for a given screen, 
      BYT 15,12 
* 
*     LINE # :  20
* 
      ASC 22,       press the NEXT SCREEN key to continue 
      BYT 56,0
      BYT 15,12 
* 
*     LINE # :  21
* 
      BYT 15,12 
* 
*     LINE # :  22
* 
      BYT 15,12 
* 
*     LINE # :  23
* 
      ASC  1, 
      BYT 33,133
T9900 ASC  1, 
      BYT 33,135
      BYT 33,46,141,53,64,64,103,0  POSITION  CURSOR -  49
      BYT 33,46,144,112 
      ASC  3, Press 
      BYT 40,0
      BYT 33,46,144,113 
      ASC  5,NEXT SCREE 
      BYT 116,0 
      BYT 33,46,144,112 
      ASC  2, key 
      BYT 15,12 
* 
*     LINE # :  24
* 
      BYT 33,142          UNLCK KEKBOARD
      BYT 40,33,127,137    FORMAT MODE ON, SUP <CR,LF>
  SPC 1 
LNG08 ABS *-ZAT08 
  HED .         ***  T S E  DUPLICATE FILE ERROR   SCREEN  DATA  ***
  SPC 2 
**********************************************************************
*                                                                    *
*   TSDFE  IS USED TO PRINT OUT THE MESSAGE IN CASE OF DISC STORAGE  *
*   FILE ALREADY CREATED ON THE CARTRIDGE. THE NAME, THE NUMBER OF   *
*   THE TS, THE FILE NAME AND THE CR# ARE MOVED INTO THE MESSAGE AND *
*   THE MESSAGE IS PRINTED.                                          *
*                                                                    *
**********************************************************************
   SPC 2
.CUTS BSS 1         ADDRESS OF THE MBUFR TO MOVE IN ISCRN 
TSDFE NOP           ENTRY POINT 
      JSB .ENTR     GET CALLING PARAMETERS
      DEF .CUTS     ADRESS OF FIRST PARAMETER 
* 
*     MOVE MBUFR INTO THE SCREEN. 
* 
      JSB MOVCX 
      DEF *+6 
      DEF .CUTS,I   ADDRESS OF FIRST MBUFR WORD 
      DEF SOF03     ADDRESS OF SOURCE OFSET TABLE 
      DEF DOF03     ADDRESS OF DESTINATION TABLE
      DEF D0        ADDRESS OF GLOBAL SOURCE OFSET
      DEF FMT03     ADDRESS OF NUMERIC FORMAT TABLE 
* 
*     PRINT THE SCREEN
* 
*  AFTER CONVERTING THE CR# TO 2 ASCII CHARS IF REQ'D 
* 
      JSB TCVTB 
      DEF *+3 
      DEF AF304 
      DEF D5
* 
* 
      JSB TMBWR     USE TMS BUFFERED CALL TO NOT
      DEF *+3       BE SUSPENDED IN THIS SUBROUTINE 
      DEF ZAT03 
      DEF LNG03 
* 
*     RETURN TO CALLING PROGRAM 
* 
      JMP TSDFE,I 
* 
*     SCREEN TO DISPLAY 
* 
* 
ZAT03 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 
* 
*     LINE # :   1
* 
      BYT 15,12 
* 
*     LINE # :   2
* 
      BYT 15,12 
* 
*     LINE # :   3
* 
      BYT 15,12 
* 
*     LINE # :   4
* 
ZAT04 ASC 04,  T.S.:
AF301 ASC 03,TSNAME 
      ASC 02, (#
AF302 ASC 02,9999 
      ASC 15,) uses the Data Storage file:
      BYT 33,46,144,112 
AF303 ASC 03,DATAST 
      BYT 33,46,144,100 
      ASC 04, on CR # 
      BYT 40,0
      BYT 33,46,144,112 
AF304 ASC 02,3276 
      BYT 67,0
      BYT 33,46,144,100 
      BYT 56,0
      BYT 15,12 
* 
*     LINE # :   5
* 
      BYT 33,46,141,53,62,64,103,0  POSITION  CURSOR -  25
      ASC 18,This file already exists and must be 
      BYT 40,0
      BYT 33,46,144,104 
      ASC  3,rename 
      BYT 144,0 
      BYT 33,46,144,100 
      ASC  3, befor 
      BYT 145,0 
      BYT 15,12 
* 
*     LINE # :   6
* 
      BYT 33,46,141,53,62,64,103,0  POSITION  CURSOR -  25
      ASC 22,this transaction specification can be loaded 
      BYT 56,0
      BYT 15,12 
* 
*     LINE # :   7
* 
      BYT 33,46,141,53,62,64,103,0  POSITION  CURSOR -  25
      ASC 22,If no name is specified, the T.S. will not b 
      ASC  4,e loaded 
      BYT 41,0
      BYT 15,12 
* 
*     LINE # :   8
* 
      BYT 15,12 
* 
*     LINE # :   9
* 
      ASC  7,  Specify the
      BYT 33,46,144,104 
      ASC  1,ne 
      BYT 167,0 
      BYT 33,46,144,100 
      ASC 22, name for the old Data Storage file  ....... 
      ASC  4,.......
      BYT 40,0
      BYT 33,46,144,102,33,133
      ASC 03,            ANSWER FIELD (NAME OF THE NEW FILE)
      BYT 33,135,33,46,144,100
      BYT 15,12 
* 
*     LINE # :  10
* 
      BYT 15,12 
* 
*     LINE # :  11
* 
      BYT 15,12 
* 
*     LINE # :  12
* 
      BYT 15,12 
* 
*     LINE # :  13
      BYT 33,142           UNLOCK THE KEYBOARD
      BYT 40,33,127,137    FORMAT MODE ON, SUP <CR>,<LF>
  SPC 1 
LNG03 ABS *-ZAT03 
   SPC 2
* 
*     SOURCE CHARACTER OFFSET TABLE 
* 
SOF03 DEC 1 
      DEC 7 
      DEC 9 
      DEC 11
      DEC 17
      DEC 19
      DEC -1
* 
*     DESTINATION ISCRN ADDRESSES TABLE 
* 
DOF03 DEF AF301 
      DEF AF302,I 
      DEF .BF04     DUMMY BUFFER TO STORE SC
      DEF AF303 
      DEF AF304,I 
* 
*     FORMAT OF NUMERIC DATA
* 
FMT03 DEC 4 
      DEC 5 
  SKP 
**********************************************************************
*                                                                    *
*   MSTSN   IS USED TO RETURN TO TSE THE NAME & NUMBER OF A TS       *
*   FORMATTED INTO A BUFFER OF 12 WORDS.                             *
*                                                                    *
**********************************************************************
  SPC 2 
.BF04 NOP 
.LN04 NOP           LEN RETURNED BY THIS ROUTINE
.DS04 NOP           DESTINATION BUFFER ADDR 
MSTSN NOP 
      JSB .ENTR 
      DEF .BF04 
* 
      JSB MOVCX 
      DEF *+6 
      DEF .BF04,I   FROM BUFFER ADDR
      DEF SOF04 
      DEF DOF03 
      DEF D0
      DEF FMT03 
* 
      LDA D12 
      STA .LN04,I   RETURN LENGTH MOVED 
      LDA .ZAT4     GET FROM ADDR 
      LDB .DS04     GET TO ADDR 
      MVW .LN04,I 
      JMP MSTSN,I 
  SPC 1 
.ZAT4 DEF ZAT04 
D12   DEC 12
  SPC 1 
SOF04 DEC 1 
      DEC 7 
      DEC 9 
      DEC -1
   HED .            ***  T S E   ERROR MESSAGE PRINTOUT  ***
*      *********************************************************
*      *                                                       *
*      * THIS SUBROUTINE IS USED BY THE  T S E  TMS-SUBROUTINE *
*      * TO DISPLAY AN ERROR MESSAGE AT THE BOTTOM OF THE CRT  *
*      * THIS PROGRAM LEAVE THE TERMINAL IN BLOCK MODE, FORMAT *
*      * ON.                                                   *
*      *                                                       *
*      * FORTRAN CALL : CALL TSEOR(P1,P2,P3)                   *
*      *                P1 = ERROR MESSAGE NUMBER              *
*      *                P2 = WRONG FIELD ADRESS                *
*      *                     IF = 0, THEN THE MESSAGE IS       *
*      *                     PRINTED WHERE THE CURSOR IS AND   *
*      *                     THE FORMAT MODE IS NOT RESORED.   *
*      *                P3 = LU # IN ASCII FORMAT              *
*      *                     (USED ONLY FOR GIVEN MESSAGE)     *
*      *                                                       *
*      *********************************************************
   SPC 3
TAB   BYT 33,111
DM1   DEC -1        NEGATIVE CONSTANT 
DM5   DEC -5
.MESA DEF MESSA     ADDRESS OF THE AREA TO FILL IN
LENBU NOP           LENGTH OF ERROR MESSAGE TO BE DISPLAYED 
.FINL DEF FINLX     ADDRESS OF LAST WORDS TO DUMP 
  SPC 2 
.NUBS BSS 1         MESSAGE NUMBER ADDDRESS 
.FILD BSS 1         WRONG FIELD NUMBER ADDDRESS 
.ASC  BSS 1 
TSEOR NOP           ENTRY POINT 
      JSB .ENTR     GET CALLING PARAMETERS
      DEF .NUBS     ADRESS OF FIRST PARAMETER 
* 
*     SET LU # INTO ERROR MESSAGE 
* 
      LDA .ASC,I
      STA QES17 
      STA QES18 
      STA QES19 
      STA QES20 
* 
*     MOVE ERROR MESSAGE IN OUTPUT BUFFER 
* 
      LDA .NUBS,I   GET ERROR MESSAGE NUMBER
      ADA AMES0     COMPUTE APPROPRIATE 
      LDB A,I       MESSAGE ADDRESS 
      STB .ADRS     STORE IT
      INA           COMPUTE NEXT MESSAGE
      LDA A,I       STARTING ADDRESS
      CMB,INB       MINUS STARTING ADDRESS
      ADA B         COMPUTE MESSAGE LENGTH
      STA MESLG     SAVE IT 
      LDA .ADRS     BUFFER SOURCE ADDRESS 
      LDB .MESA     BUFFER DESTINATION ADDRESS
      JSB &MVW      MOVE WORDS IN THE MESSA BUFFER
MESLG BSS 1         MESSAGE LENGTH
* 
      LDA .FILD,I   RECALL THE FIELD NUMBER 
      SZA,RSS       IS IT SPECAIL CASE ?
      JMP TSER3     YES, SKIP CODE TO SET UP FORMAT MODE
* 
*     INCLUDE FORMAT MODE ON, HOME UP CURSOR CTRL. CHAR.
* 
      LDA MESSB     GET CONTROL CHARACTER 
      STA B,I       COPY IT IN MESSAGE BUFFER 
      INB           NEXT MESSA BUFFER ADDRESS 
      STB MESLG     SAVE MESSA BUFFER ADDRESS 
* 
*     INCLUDE NUMBER OF NECESSARY TABS
* 
      LDA .FILD,I   GET ERROR FIELD NUMBER
      ADA DM1       TRANSLATE FIELD # (FROM 0)
      CMA,INA       # TABS NEGATIVE 
      STA TBNUB     SAVE # OF TABS
      SZA,RSS       IF 0 : NO TABS CHARACTERS 
      JMP SUITE     JUMP TO END OF PREPARATION
      LDA B         GET NEXT MESSA BUFFER ADDRESS 
      LDB TAB       GET TAB CHARACTER 
      JSB &REMP     INCLUDE TABS IN THE MESSA BUFFER
TBNUB NOP           NEGATIVE NUMBER OF TABS TO INCLUDE
* 
*     INCLUDE LAST CONTROL CHARACTERS 
* 
SUITE LDB TBNUB     GET NEGATIVE NUMBER OF TABS 
      CMB,INB       MAKE IT POSITIVE
      ADB MESLG     COMPUTE NEXT MESSA BUFFER ADDRESS 
      LDA .FINL     GET CONTROL CHARACTER ADDRESS 
      JSB &MVW      MOVE CONTROL CHARACTERS 
      DEC 2         2 CONTROL WORDS 
* 
*     CALCULATES FINAL MESSA BUFFER LENGTH
* 
TSER3 LDA .BUFR     GET STARTING BUFFER ADDRESS 
                                                                                                                                                                