ASMB
  HED .                TMPG3   **  TMPGN SCREENS DATA  ** 
      NAM TMPG3,5 92903-16455 REV.1913  790122
      SUP 
* 
      SPC 2 
*     NAME:   TMPG3 
*     SOURCE: &TMPG3    92903-18455 
*     BINARY: %TMPG3    92903-16455 
* 
*     PGMR: D. POT / F. GAULLIER  HPG 
      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 
*     **********************************************
*     * THIS SEGMENT OF TMPGN PROGRAM IS USED TO   *
*     * WRITE ON THE 2640/44/45 DISPLAY TERMINALS  *
*     * THE SCREEN MASKS ALLOWING THE INTERACTIVE  *
*     * DEFINITION OF AN APPLICATION.              *
*     *                                            *
*     *     CALL SCREN(P1,P2)                      *
*     *                                            *
*     *     P1 = SCREEN # TO DISPLAY               *
*     *     P2 = OFFSET IN BYTE ADDED TO THE SOUR- *
*     *          CE OFFSET.                        *
*     **********************************************
  SPC 2 
      EXT TMPGN,TMGSC,EXEC,$OPSY,MOVCX,REIO 
  SPC 2 
*                   DEFINE LABEL COMMON 
* 
      EXT TMGC1,TMGC2,TMGC3 
* 
LU    EQU TMGC1 
  SKP 
TMPG3 JSB CLDPY     CLEARS DISPLAY
* 
*     FIND SCREEN TO DISPLAY
* 
      LDA TMGC1+4     LOAD SCREEN NUMBER
      ADA ADDRS     ADD OFFSET ADRESS 
      JMP 0,I       JUMPS TO THIS ADRESS
  SPC 2 
* 
*     SCREEN IS DISPLAYED, RETURN TO THE RIGHT SEGMENT
* 
SCR0Z CLA           RETURN TO SEGMENT # 0 
* 
RTRN  STA CLDPY     SET SEGMENT # 
      JSB TMGSC     GOTO NEXT SEGMENT 
      DEF *+7 
      DEF CLDPY     SEG # 
      DEF TMGC1+4     1ST PARAM 
      DEF TMGC1+4+1   2ND PARAM 
      DEF TMGC1+4+2   3RD PARAM 
      DEF TMGC1+4+3   4TH PARAM 
      DEF TMGC1+4+4   5TH PARAM 
  SPC 2 
* 
*     SCREEN ADRESSES 
* 
ADDRS DEF *+1,I 
      DEF SCRXX     ILLEGAL ! 
      DEF SCR01     SCREEN # 1    DATACAPTURE TERMINAL LU 
      DEF SCRXX     ILLEGAL ! 
      DEF SCR03     SCREEN # 3    USER SUBROUTINE 
      DEF SCR04     SCREEN # 4    IMAGE DATA-BASE 
      DEF SCRXX     ILLEGAL ! 
      DEF SCR06     SCREEN # 6    MENU FOR CREATION 
      DEF SCR07     SCREEN # 7    MENU FOR MODIFICATION 
      DEF SCR08     SCREEN # 8    SOFT KEY MAP
      DEF SCRXX     ILLEGAL SCREEN #
      DEF SCRXX     ILLEGAL SCREEN #
      DEF SCRXX     ILLEGAL SCREEN #
      DEF SCRXX     ILLEGAL SCREEN #
  SPC 1 
SCRXX HLT 33B       !!! 
  SPC 1 
*     DISPLAY INITIALISATION
*          - DISABLE KEYBOARD 
*          - MEMORY UNLCK 
*          - SET BLOCK MODE KEY 
*          - FORMAT MODE OFF
*          - HOME UP CURSOR 
*          - CLEAR DISPLAY
* 
CLDPY NOP 
      JSB EXEC      WRITE EXEC CALL 
      DEF *+5       RETURN POINT
      DEF D2        WRITE CODE
      DEF LU        CONTROL WORD
      DEF BINIT     BUFFER TO WRITE 
      DEF BLGNH     BUFFER LENGTH 
      JMP CLDPY,I   RETURN
* 
*     DATA FOR INITIALISATION OF TERMINAL 
* 
BINIT BYT 33,143    DISABLE KEYBOARD
      BYT 33,155    MEMORY UNLCK
      BYT 40,33 
      ASC 2,&k1B    SET BLOCK MODE KEY
      BYT 33,130    FORMAT MODE OFF 
      BYT 33,110    HOME UP CURSOR
      BYT 33,112    CLEAR DISPLAY 
      BYT 0,137     SUPPRESS RC/LF
* 
BLGNH ABS *-BINIT 
  SPC 1 
D0    DEC 0 
D1    DEC 1 
D2    DEC 2 
D5    DEC 5 
DM9   DEC -9
   HED TMPGN SCREEN # 1  -  DATACAPTURE TERMINAL'S LU 
CHAX  BYT 130,00
VIDE  BYT 40,00 
PLIN  BYT 61,00 
BCHAR DEF T0102 
ADTIF OCT 62
BKHAR DEF T0123+62B 
SPACE ASC 1,
   SPC 2
SCR01 JSB MOVCX 
      DEF *+6 
      DEF TMGC3+7 
      DEF SOF01 
      DEF DOF01 
      DEF TMGC1+4+1 
      DEF DBL01 
* 
      LDB BCHAR     GET FIRST "X" CHARACTER ADRESS
SC11X LDA 1,I       GET THE CORRESPONDING VALUE 
      CPA PLIN      COMPARE TO "1" ASCII ?
      JMP SC14X     YES, IT SHOULD BE "-1", SET "X" 
      LDA VIDE      NO, IT SHOULD BE "307X", STORE SPACE
      RSS           STORE VALUE 
SC14X LDA CHAX      GET "X" VALUE 
      STA 1,I       STORE VALUE 
      ADB ADTIF     CALCULATES NEXT ADRESS TO BE PROCESSED
      CPB BKHAR     COMPARE TO THE LAST ADRESS
      RSS           END OF CORRECTION 
      JMP SC11X     CONTINUE
* 
      JSB TMP#      ADD TMP COPY NUMBER 
      STA U0100     IN THE SCREEN 
* 
      JSB EXEC
      DEF *+5 
      DEF D2
      DEF LU
      DEF ZAT01 
      DEF LNG01 
      LDA D5        RETURN TO SEG # 5 (LU ANALYSIS) 
      JMP RTRN
  SPC 2 
TMP#  NOP           FORMAT TMP COPY NUMBER
      LDB TMGC2+31+6   RECALL LAST CHARACTER OF APPLICATION NAME
      LDA A.P 
      CPB A.P2
      LDA A.PD
      JMP TMP#,I    AND RETURN WITH RESULT IN A REG.
* 
A.PD  ASC 1,PD
A.P2  ASC 1,P2
A.P   ASC 1,P 
  SPC 3 
* 
*     LINE # :   1
* 
ZAT01 BYT 33,46,141,53,61,62,103,0  POSITION  CURSOR -  13
      ASC 22,DATA CAPTURE TERMINAL CONFIGURATION DEFINITI 
      ASC  3,ON FOR 
      BYT 40,0
      BYT 33,46,144,104 
      ASC  1,TM 
U0100 ASC  1,PD 
      BYT 15,12 
* 
*     LINE # :   2
* 
      BYT 15,12 
* 
*     LINE # :   3
* 
      ASC 22,  - Enter the logical unit numbers (LU#) of
      ASC 13,the data capture terminals 
      BYT 15,12 
* 
*     LINE # :   4
* 
      ASC 21,    to be added to or deleted from the TMP 
      BYT 56,0
      BYT 15,12 
* 
*     LINE # :   5
* 
      ASC 22,  - If some terminals have been assigned con 
      ASC 15,secutive logical unit numbers, 
      BYT 15,12 
* 
*     LINE # :   6
* 
      ASC 22,    enter the first LU# of the sequence in t 
      ASC 15,he FROM field and the last LU# 
      BYT 15,12 
* 
*     LINE # :   7
* 
      ASC 18,    of the sequence in the TO field. 
      BYT 15,12 
* 
*     LINE # :   8
* 
      ASC 22,  - All other terminal LU#'s should be enter 
      ASC 10,ed in the FROM field 
      BYT 56,0
      BYT 15,12 
* 
*     LINE # :   9
* 
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  11
      BYT 33,51,102,16
      ASC 22,R,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,T 
      ASC  8,R,,,,,,,,,,,,,,T 
      BYT 15,12 
* 
*     LINE # :  10
* 
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  11
      BYT 33,51,102,16
      BYT 56,17 
      ASC  5,     FROM
      BYT 33,46,141,53,62,61,103,0  POSITION  CURSOR -  43
      ASC  4,TO 
      BYT 40,16 
      ASC  2,.  . 
      BYT 17,40 
      ASC  6, Enter X to
      BYT 40,16 
      BYT 56,0
      BYT 15,12 
* 
*     LINE # :  11
* 
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  11
      BYT 33,51,102,16
      BYT 56,17 
      ASC  8, Logical Unit #
      BYT 33,46,141,53,60,71,103,0  POSITION  CURSOR -  37
      ASC  7,Logical Unit # 
      BYT 40,16 
      ASC  2,.  . 
      BYT 17,40 
      ASC  6,   delete
      BYT 40,16 
      BYT 56,0
      BYT 15,12 
* 
*     LINE # :  12
* 
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  11
      BYT 33,51,102,16
      BYT 56,17 
      BYT 33,46,141,53,64,60,103,0  POSITION  CURSOR -  52
      BYT 16,56 
      ASC  1, 
      BYT 56,17 
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  70
      BYT 16,56 
      BYT 15,12 
* 
*     LINE # :  13
* 
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  11
      BYT 33,51,102,16
      BYT 56,17 
      ASC  3, 
      BYT 33,46,144,106,33,133
T0100 ASC  1, 
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,62,63,103,0  POSITION  CURSOR -  43
      BYT 33,46,144,106,33,133
T0101 ASC  1, 
      BYT 33,135,33,46,144,100
      ASC  3, 
      BYT 40,16 
      ASC  2,.  . 
      BYT 17,40 
      ASC  3, 
      BYT 33,46,144,106,33,133
T0102 BYT 40,0
      BYT 33,135,33,46,144,100
      ASC  3, 
      BYT 16,56 
      BYT 15,12 
* 
*     LINE # :  14
* 
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  11
      BYT 33,51,102,16
      BYT 56,17 
      ASC  3, 
      BYT 33,46,144,106,33,133
T0103 ASC  1, 
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,62,63,103,0  POSITION  CURSOR -  43
      BYT 33,46,144,106,33,133
T0104 ASC  1, 
      BYT 33,135,33,46,144,100
      ASC  3, 
      BYT 40,16 
      ASC  2,.  . 
      BYT 17,40 
      ASC  3, 
      BYT 33,46,144,106,33,133
T0105 BYT 40,0
      BYT 33,135,33,46,144,100
      ASC  3, 
      BYT 16,56 
      BYT 15,12 
* 
*     LINE # :  15
* 
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  11
      BYT 33,51,102,16
      BYT 56,17 
      ASC  3, 
      BYT 33,46,144,106,33,133
T0106 ASC  1, 
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,62,63,103,0  POSITION  CURSOR -  43
      BYT 33,46,144,106,33,133
T0107 ASC  1, 
      BYT 33,135,33,46,144,100
      ASC  3, 
      BYT 40,16 
      ASC  2,.  . 
      BYT 17,40 
      ASC  3, 
      BYT 33,46,144,106,33,133
T0108 BYT 40,0
      BYT 33,135,33,46,144,100
      ASC  3, 
      BYT 16,56 
      BYT 15,12 
* 
*     LINE # :  16
* 
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  11
      BYT 33,51,102,16
      BYT 56,17 
      ASC  3, 
      BYT 33,46,144,106,33,133
T0109 ASC  1, 
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,62,63,103,0  POSITION  CURSOR -  43
      BYT 33,46,144,106,33,133
T0110 ASC  1, 
      BYT 33,135,33,46,144,100
      ASC  3, 
      BYT 40,16 
      ASC  2,.  . 
      BYT 17,40 
      ASC  3, 
      BYT 33,46,144,106,33,133
T0111 BYT 40,0
      BYT 33,135,33,46,144,100
      ASC  3, 
      BYT 16,56 
      BYT 15,12 
* 
*     LINE # :  17
* 
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  11
      BYT 33,51,102,16
      BYT 56,17 
      ASC  3, 
      BYT 33,46,144,106,33,133
T0112 ASC  1, 
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,62,63,103,0  POSITION  CURSOR -  43
      BYT 33,46,144,106,33,133
T0113 ASC  1, 
      BYT 33,135,33,46,144,100
      ASC  3, 
      BYT 40,16 
      ASC  2,.  . 
      BYT 17,40 
      ASC  3, 
      BYT 33,46,144,106,33,133
T0114 BYT 40,0
      BYT 33,135,33,46,144,100
      ASC  3, 
      BYT 16,56 
      BYT 15,12 
* 
*     LINE # :  18
* 
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  11
      BYT 33,51,102,16
      BYT 56,17 
      ASC  3, 
      BYT 33,46,144,106,33,133
T0115 ASC  1, 
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,62,63,103,0  POSITION  CURSOR -  43
      BYT 33,46,144,106,33,133
T0116 ASC  1, 
      BYT 33,135,33,46,144,100
      ASC  3, 
      BYT 40,16 
      ASC  2,.  . 
      BYT 17,40 
      ASC  3, 
      BYT 33,46,144,106,33,133
T0117 BYT 40,0
      BYT 33,135,33,46,144,100
      ASC  3, 
      BYT 16,56 
      BYT 15,12 
* 
*     LINE # :  19
* 
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  11
      BYT 33,51,102,16
      BYT 56,17 
      ASC  3, 
      BYT 33,46,144,106,33,133
T0118 ASC  1, 
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,62,63,103,0  POSITION  CURSOR -  43
      BYT 33,46,144,106,33,133
T0119 ASC  1, 
      BYT 33,135,33,46,144,100
      ASC  3, 
      BYT 40,16 
      ASC  2,.  . 
      BYT 17,40 
      ASC  3, 
      BYT 33,46,144,106,33,133
T0120 BYT 40,0
      BYT 33,135,33,46,144,100
      ASC  3, 
      BYT 16,56 
      BYT 15,12 
* 
*     LINE # :  20
* 
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  11
      BYT 33,51,102,16
      BYT 56,17 
      ASC  3, 
      BYT 33,46,144,106,33,133
T0121 ASC  1, 
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,62,63,103,0  POSITION  CURSOR -  43
      BYT 33,46,144,106,33,133
T0122 ASC  1, 
      BYT 33,135,33,46,144,100
      ASC  3, 
      BYT 40,16 
      ASC  2,.  . 
      BYT 17,40 
      ASC  3, 
      BYT 33,46,144,106,33,133
T0123 BYT 40,0
      BYT 33,135,33,46,144,100
      ASC  3, 
      BYT 16,56 
      BYT 15,12 
* 
*     LINE # :  21
* 
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  11
      BYT 33,51,102,16
      BYT 56,17 
      ASC  3, 
      ASC  1, 
      BYT 33,46,141,53,62,63,103,0  POSITION  CURSOR -  43
      ASC  1, 
      ASC  3, 
      BYT 40,16 
      ASC  2,.  . 
      BYT 17,40 
      ASC  3, 
      BYT 40,0
      ASC  3, 
      BYT 16,56 
      BYT 15,12 
* 
*     LINE # :  22
* 
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  11
      BYT 33,51,102,16
      ASC 22,F,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,G 
      ASC  8,F,,,,,,,,,,,,,,G 
      BYT 15,12 
* 
*     LINE # :  23
* 
* 
      BYT 40,33,127,137            FORMAT MODE ON,SUP. <CR>,<LF>
  SPC 1 
LNG01 ABS *-ZAT01 
  SPC 2 
* 
*     SOURCE CHARACTER OFFSET ADRESS
* 
SOF01 DEC 1 
      DEC 3 
      DEC 5 
      DEC 7 
      DEC 9 
      DEC 11
      DEC 13
      DEC 15
      DEC 17
      DEC 19
      DEC 21
      DEC 23
      DEC 25
      DEC 27
      DEC 29
      DEC 31
      DEC 33
      DEC 35
      DEC 37
      DEC 39
      DEC 41
      DEC 43
      DEC 45
      DEC 47
      DEC 49
      DEC -1
* 
*     DESTINATION BUFFER ADRESS 
* 
DOF01 DEF T0100,I 
      DEF T0101,I 
      DEF T0102,I 
      DEF T0103,I 
      DEF T0104,I 
      DEF T0105,I 
      DEF T0106,I 
      DEF T0107,I 
      DEF T0108,I 
      DEF T0109,I 
      DEF T0110,I 
      DEF T0111,I 
      DEF T0112,I 
      DEF T0113,I 
      DEF T0114,I 
      DEF T0115,I 
      DEF T0116,I 
      DEF T0117,I 
      DEF T0118,I 
      DEF T0119,I 
      DEF T0120,I 
      DEF T0121,I 
      DEF T0122,I 
      DEF T0123,I 
* 
*     FORMAT OF NUMERIC DATA
* 
DBL01 DEC 2 
      DEC 2 
      DEC 1 
      DEC 2 
      DEC 2 
      DEC 1 
      DEC 2 
      DEC 2 
      DEC 1 
      DEC 2 
      DEC 2 
      DEC 1 
      DEC 2 
      DEC 2 
      DEC 1 
      DEC 2 
      DEC 2 
      DEC 1 
      DEC 2 
      DEC 2 
      DEC 1 
      DEC 2 
      DEC 2 
      DEC 1 
   HED TMPGN SCREEN # 3  -  USER MODULE DEFINITION
* 
*     SCREEN NUMBER: 3
* 
BDDRS BSS 1 
MOINS ASC 1, -
MASK  OCT 77777 
MUSK  OCT 077600
MUPTN DEC -3        (DEC -3)
SWAPP BSS 1 
EXTNS BSS 1 
   SPC 2
SCR03 LDB TMGC1+4+1 
      ADB D2
      BRS 
      ADB .NCRT 
      STB BDDRS     SAVE ADRESS OF EXTENSION NUMBER 
      LDA 1,I 
      STA EXTNS     SAVE EXTENSION BIT
      AND MASK
      STA 1,I       CLEAR EXTENSION BIT FOR  'MOVCX'
      INB 
      LDA 1,I 
      STA SWAPP     SAVE UPT # AND SWAP BIT 
      AND MASK
      ADA MUPTN     CHANGE UPT #  !!! 
      STA 1,I       CLEAR BIT 15 FOR MOVCX
      JSB TMP#      GET TMP COPY NUMBER 
      STA U0300     AND STORE IT
* 
      JSB MOVCX 
      DEF *+6 
.NCRT DEF TMGC3+7 
      DEF SOF03 
      DEF DOF03 
      DEF TMGC1+4+1 
      DEF DBL03 
* 
      LDA BDDRS,I 
      AND MUSK
      LDB SPACE     GET SPACE 
      SZA           EXTENSION NUMBER ?
      LDB MOINS     YES, GET "-"
      STB U0001     SET GOOD WORD BETWEEN UPT# & EXTENSION #
* 
      LDB BDDRS 
      LDA EXTNS     RECALL EXTENSION WORD 
      STA 1,I       AND RESTORE TI
      INB 
      LDA SWAPP     RECALL UPT# AND SWAP BIT
      STA 1,I       AND RESTORE IT
* 
      JSB EXEC
      DEF *+5 
      DEF D2
      DEF LU
      DEF ZAT03 
      DEF LNG03 
* 
      LDA D5        RETURN TO SEG # 5 (T.U.S ANALYSIS)
      JMP RTRN
  SPC 2 
* 
*     LINE # :   1
* 
ZAT03 BYT 33,46,141,53,61,71,103,0  POSITION  CURSOR -  20
      ASC 18,ADDITION OF USER WRITTEN MODULES TO
      BYT 33,46,144,104 
      ASC  1,TM 
U0300 ASC  1,PD 
      BYT 15,12 
* 
*     LINE # :   2
* 
      BYT 15,12 
* 
*     LINE # :   3
* 
      ASC 22,  - The user written modules which are to be 
      ASC 16, used when executing transaction 
      BYT 15,12 
* 
*     LINE # :   4
* 
      ASC 22,    specifications under control of the TMP
      ASC 10,must be entered here 
      BYT 56,0
      BYT 15,12 
* 
*     LINE # :   5
* 
      ASC 22,    They should be grouped into program unit 
      ASC 13,s by the user in such a wa 
      BYT 171,0 
      BYT 15,12 
* 
*     LINE # :   6
* 
      ASC 22,    that memory partition usage will be opti 
      ASC 15,mized. Any subroutine librarie 
      BYT 163,0 
      BYT 15,12 
* 
*     LINE # :   7
* 
      ASC 22,    used by these modules must be specified
      ASC  6,at this time 
      BYT 56,0
      BYT 15,12 
* 
*     LINE # :   8
* 
      BYT 33,46,141,53,65,66,103,0  POSITION  CURSOR -  57
      BYT 33,51,102,16
      ASC 11,R,,,,,,,,,,,,,,,,,,,,T 
      BYT 15,12 
* 
*     LINE # :   9
* 
      BYT 33,51,102,16
      ASC 22,R,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
      ASC  6,,,,,,,,,,,,, 
      BYT 66,17 
      ASC 07,PROGRAM UNIT#
U0000 ASC 1,
U0001 ASC 1,
U0002 ASC 1,
      BYT 16,65 
      ASC  1,,T 
* 
*     LINE # :  10
* 
      BYT 33,51,102,16
      BYT 56,17 
      ASC 22, - Enter the name of the modules grouped in
      ASC  5,this unit: 
      BYT 40,16 
      ASC 12,F,,,,,,,,,,,,,,,,,,,,G . 
* 
*     LINE # :  11
* 
      BYT 33,51,102,16
      ASC  1,.
      BYT 33,46,141,53,67,67,103,0  POSITION  CURSOR -  80
      BYT 56,0
* 
*     LINE # :  12
* 
      BYT 33,51,102,16
      BYT 56,17 
      ASC  3, 
      BYT 33,46,144,102,33,133
T0300 ASC  2, 
      BYT 40,0
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  23
      BYT 33,46,144,102,33,133
T0301 ASC  2, 
      BYT 40,0
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  38
      BYT 33,46,144,102,33,133
T0302 ASC  2, 
      BYT 40,0
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  53
      BYT 33,46,144,102,33,133
T0303 ASC  2, 
      BYT 40,0
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  68
      BYT 33,46,144,102,33,133
T0304 ASC  2, 
      BYT 40,0
      BYT 33,135,33,46,144,100
      ASC  3, 
      BYT 40,16 
      BYT 56,0
* 
*     LINE # :  13
* 
      BYT 33,51,102,16
      ASC  1,.
      BYT 33,46,141,53,67,67,103,0  POSITION  CURSOR -  80
      BYT 56,0
* 
*     LINE # :  14
* 
      BYT 33,51,102,16
      BYT 56,17 
      ASC  3, 
      BYT 33,46,144,102,33,133
T0305 ASC  2, 
      BYT 40,0
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  23
      BYT 33,46,144,102,33,133
T0306 ASC  2, 
      BYT 40,0
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  38
      BYT 33,46,144,102,33,133
T0307 ASC  2, 
      BYT 40,0
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  53
      BYT 33,46,144,102,33,133
T0308 ASC  2, 
      BYT 40,0
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  68
      BYT 33,46,144,102,33,133
T0309 ASC  2, 
      BYT 40,0
      BYT 33,135,33,46,144,100
      ASC  3, 
      BYT 40,16 
      BYT 56,0
* 
*     LINE # :  15
* 
      BYT 33,51,102,16
      ASC  1,.
      BYT 33,46,141,53,67,67,103,0  POSITION  CURSOR -  80
      BYT 56,0
* 
*     LINE # :  16
* 
      BYT 33,51,102,16
      BYT 56,17 
      ASC  3, 
      BYT 33,46,144,102,33,133
T0310 ASC  2, 
      BYT 40,0
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  23
      BYT 33,46,144,102,33,133
T0311 ASC  2, 
      BYT 40,0
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  38
      BYT 33,46,144,102,33,133
T0312 ASC  2, 
      BYT 40,0
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  53
      BYT 33,46,144,102,33,133
T0313 ASC  2, 
      BYT 40,0
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  68
      BYT 33,46,144,102,33,133
T0314 ASC  2, 
      BYT 40,0
      BYT 33,135,33,46,144,100
      ASC  3, 
      BYT 40,16 
      BYT 56,0
* 
*     LINE # :  17
* 
      BYT 33,51,102,16
      ASC  1,.
      BYT 33,46,141,53,67,67,103,0  POSITION  CURSOR -  80
      BYT 56,0
* 
*     LINE # :  18
* 
      BYT 33,51,102,16
      BYT 56,17 
      ASC  3, 
      BYT 33,46,144,102,33,133
T0315 ASC  2, 
      BYT 40,0
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  23
      BYT 33,46,144,102,33,133
T0316 ASC  2, 
      BYT 40,0
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  38
      BYT 33,46,144,102,33,133
T0317 ASC  2, 
      BYT 40,0
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  53
      BYT 33,46,144,102,33,133
T0318 ASC  2, 
      BYT 40,0
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  68
      BYT 33,46,144,102,33,133
T0319 ASC  2, 
      BYT 40,0
      BYT 33,135,33,46,144,100
      ASC  3, 
      BYT 40,16 
      BYT 56,0
* 
*     LINE # :  19
* 
      BYT 33,51,102,16
      ASC  1,.
      BYT 33,46,141,53,67,67,103,0  POSITION  CURSOR -  80
      BYT 56,0
* 
*     LINE # :  20
* 
      BYT 33,51,102,16
      BYT 56,17 
      ASC 22, - Enter the name of the subroutine librarie 
      ASC 13,s used by these modules: 
      BYT 33,46,141,53,70,103       POSITION  CURSOR -  80
      BYT 16,56 
* 
*     LINE # :  21
* 
      BYT 33,51,102,16
      ASC  1,.
      BYT 33,46,141,53,67,67,103,0  POSITION  CURSOR -  80
      BYT 56,0
* 
*     LINE # :  22
* 
      BYT 33,51,102,16
                                                                                                                                                                                                                      