ASMB
  HED .                TMPG3   **  TMPGN SCREENS DATA  ** 
      NAM TMPG3,5 92080-16455 REV.2026  800410
      SUP 
* 
      SPC 2 
*     NAME:   TMPG3 
*     SOURCE: &TMG3A    92080-18455 
*     BINARY: %TMG3A    92080-16455 
* 
*     PGMR: D. POT / F. GAULLIER  HPG 
      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 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,TCVTA
  SPC 2 
*                   DEFINE LABEL COMMON 
* 
      EXT TMGC1,TMGC2,TMGC3 
      EXT PUTCA 
* 
LU    EQU TMGC1 
  SKP 
TMPG3 NOP 
      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 
TEMP  BSS 1 
BKHAR DEF T0123+73B 
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 T0103 
* 
*  'ADTIF' IS A THE NUMBER OF WORDS BETWEEN THE X-CHARS!!!
* 
ADTIF OCT 73
SPACE ASC 1,
   SPC 2
SCR01 NOP 
      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 
SC14X LDA CHAX      GET "X" VALUE 
      STA 1,I       STORE VALUE 
      ADB ADTIF     CALCULATES NEXT ADRESS TO BE PROCESSED
      CPB BKHAR     COMPARE TO LAST ADDRESS 
      RSS 
      JMP SC11X     NO,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,  - Enter the first and last numbers of any
      ASC 12,consecutive LU# sequence 
      BYT 15,12 
* 
*     LINE # :   6
* 
      ASC 22,    in the FROM and TO fields, respectively. 
      BYT 15,12 
* 
*     LINE # :   7
* 
      ASC 22,  - All other terminal LU#'s should be enter 
      ASC 10,ed in the FROM field 
      BYT 56,0
      BYT 15,12 
* 
*     LINE # :   8
* 
      ASC 22,  - Any HP3077 terminals must be assigned a
      ASC 13,Transaction Specification. 
      BYT 15,12 
* 
*     LINE # :   9
* 
      ASC  1, 
      BYT 33,51,102,16
      ASC 22,R,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
      ASC 14,,,,,,,,,,T  R,,,,,,,,,,,,,,T 
      BYT 15,12 
* 
*     LINE # :  10
* 
      ASC  1, 
      BYT 33,51,102,16
      BYT 56,17 
      ASC  5,     FROM
      BYT 33,46,141,53,61,63,103,0  POSITION  CURSOR -  27
      ASC  1,TO 
      BYT 33,46,141,53,61,62,103,0  POSITION  CURSOR -  41
      ASC  7,Assigned TS# 
      BYT 40,16 
      ASC  2,.  . 
      BYT 17,40 
      ASC  6, Enter X to
      BYT 40,16 
      BYT 56,0
      BYT 15,12 
* 
*     LINE # :  11
* 
      ASC  1, 
      BYT 33,51,102,16
      BYT 56,17 
      ASC 22, Logical Unit #   Logical Unit #      (optio 
      ASC  4,nal) 
      BYT 16,56 
      ASC  1, 
      BYT 56,17 
      ASC  7,    delete 
      BYT 16,56 
      BYT 15,12 
* 
*     LINE # :  12
* 
      ASC  1, 
      BYT 33,51,102,16
      BYT 56,17 
      BYT 33,46,141,53,65,62,103,0  POSITION  CURSOR -  56
      BYT 16,56 
      ASC  1, 
      BYT 56,17 
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  74
      BYT 16,56 
      BYT 15,12 
* 
*     LINE # :  13
* 
      ASC  1, 
      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,61,65,103,0  POSITION  CURSOR -  27
      BYT 33,46,144,106,33,133
T0101 ASC  1, 
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,61,66,103,0  POSITION  CURSOR -  45
      BYT 33,46,144,106,33,133
T0102 ASC  2, 
      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
T0103 BYT 40,0
      BYT 33,135,33,46,144,100
      ASC  3, 
      BYT 16,56 
      BYT 15,12 
* 
*     LINE # :  14
* 
      ASC  1, 
      BYT 33,51,102,16
      BYT 56,17 
      ASC  3, 
      BYT 33,46,144,106,33,133
T0104 ASC  1, 
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,61,65,103,0  POSITION  CURSOR -  27
      BYT 33,46,144,106,33,133
T0105 ASC  1, 
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,61,66,103,0  POSITION  CURSOR -  45
      BYT 33,46,144,106,33,133
T0106 ASC  2, 
      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
T0107 BYT 40,0
      BYT 33,135,33,46,144,100
      ASC  3, 
      BYT 16,56 
      BYT 15,12 
* 
*     LINE # :  15
* 
      ASC  1, 
      BYT 33,51,102,16
      BYT 56,17 
      ASC  3, 
      BYT 33,46,144,106,33,133
T0108 ASC  1, 
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,61,65,103,0  POSITION  CURSOR -  27
      BYT 33,46,144,106,33,133
T0109 ASC  1, 
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,61,66,103,0  POSITION  CURSOR -  45
      BYT 33,46,144,106,33,133
T0110 ASC  2, 
      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 # :  16
* 
      ASC  1, 
      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,61,65,103,0  POSITION  CURSOR -  27
      BYT 33,46,144,106,33,133
T0113 ASC  1, 
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,61,66,103,0  POSITION  CURSOR -  45
      BYT 33,46,144,106,33,133
T0114 ASC  2, 
      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
T0115 BYT 40,0
      BYT 33,135,33,46,144,100
      ASC  3, 
      BYT 16,56 
      BYT 15,12 
* 
*     LINE # :  17
* 
      ASC  1, 
      BYT 33,51,102,16
      BYT 56,17 
      ASC  3, 
      BYT 33,46,144,106,33,133
T0116 ASC  1, 
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,61,65,103,0  POSITION  CURSOR -  27
      BYT 33,46,144,106,33,133
T0117 ASC  1, 
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,61,66,103,0  POSITION  CURSOR -  45
      BYT 33,46,144,106,33,133
T0118 ASC  2, 
      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
T0119 BYT 40,0
      BYT 33,135,33,46,144,100
      ASC  3, 
      BYT 16,56 
      BYT 15,12 
* 
*     LINE # :  18
* 
      ASC  1, 
      BYT 33,51,102,16
      BYT 56,17 
      ASC  3, 
      BYT 33,46,144,106,33,133
T0120 ASC  1, 
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,61,65,103,0  POSITION  CURSOR -  27
      BYT 33,46,144,106,33,133
T0121 ASC  1, 
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,61,66,103,0  POSITION  CURSOR -  45
      BYT 33,46,144,106,33,133
T0122 ASC  2, 
      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 # :  19
* 
      ASC  1, 
      BYT 33,51,102,16
      BYT 56,17 
      ASC  3, 
      BYT 33,46,144,106,33,133
T0124 ASC  1, 
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,61,65,103,0  POSITION  CURSOR -  27
      BYT 33,46,144,106,33,133
T0125 ASC  1, 
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,61,66,103,0  POSITION  CURSOR -  45
      BYT 33,46,144,106,33,133
T0126 ASC  2, 
      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
T0127 BYT 40,0
      BYT 33,135,33,46,144,100
      ASC  3, 
      BYT 16,56 
      BYT 15,12 
* 
*     LINE # :  20
* 
      ASC  1, 
      BYT 33,51,102,16
      BYT 56,17 
      ASC  3, 
      BYT 33,46,144,106,33,133
T0128 ASC  1, 
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,61,65,103,0  POSITION  CURSOR -  27
      BYT 33,46,144,106,33,133
T0129 ASC  1, 
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,61,66,103,0  POSITION  CURSOR -  45
      BYT 33,46,144,106,33,133
T0130 ASC  2, 
      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
T0131 BYT 40,0
      BYT 33,135,33,46,144,100
      ASC  3, 
      BYT 16,56 
      BYT 15,12 
* 
*     LINE # :  21
* 
      BYT 40,0
      BYT 33,51,102,16
      ASC  1, . 
      BYT 17,40 
      BYT 33,46,141,53,65,61,103,0  POSITION  CURSOR -  56
      BYT 16,56 
      ASC  1, 
      BYT 56,17 
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  74
      BYT 16,56 
      BYT 15,12 
* 
*     LINE # :  22
* 
      ASC  1, 
      BYT 33,51,102,16
      ASC 22,F,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
      ASC 14,,,,,,,,,,G  F,,,,,,,,,,,,,,G 
      BYT 15,12 
* 
*     LINE # :  23
* 
      BYT 15,12 
* 
*     LINE # :  24
* 
      BYT 40,33,127,137         FORMAT MODE ON, SUP. <CR>,<LF>
  SPC 1 
LNG01 ABS *-ZAT01 
      SPC 2 
* 
*  SOURCE CHARACTER OFFSET ADDRESS
* 
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 51
      DEC 53
      DEC 55
      DEC 57
      DEC 59
      DEC 61
      DEC 63
      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 
      DEF T0124,I 
      DEF T0125,I 
      DEF T0126,I 
      DEF T0127,I 
      DEF T0128,I 
      DEF T0129,I 
      DEF T0130,I 
      DEF T0131,I 
* 
*     FORMAT OF NUMERIC DATA
* 
DBL01 DEC 2 
      DEC 2 
      DEC 4 
      DEC 1 
      DEC 2 
      DEC 2 
      DEC 4 
      DEC 1 
      DEC 2 
      DEC 2 
      DEC 4 
      DEC 1 
      DEC 2 
      DEC 2 
      DEC 4 
      DEC 1 
      DEC 2 
      DEC 2 
      DEC 4 
      DEC 1 
      DEC 2 
      DEC 2 
      DEC 4 
      DEC 1 
      DEC 2 
      DEC 2 
      DEC 4 
      DEC 1 
      DEC 2 
      DEC 2 
      DEC 4 
      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,100 
T0319 ASC  2, 
      BYT 40,0
      BYT 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
      BYT 56,17 
      ASC  3, 
      BYT 33,46,144,102,33,133
T0320 ASC  3, 
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,60,71,103,0  POSITION  CURSOR -  23
      BYT 33,46,144,102,33,133
T0321 ASC  3, 
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,60,71,103,0  POSITION  CURSOR -  38
      BYT 33,46,144,100 
T0322 ASC  3, 
      BYT 33,46,144,100 
      BYT 33,46,141,53,63,66,103,0  POSITION  CURSOR -  80
      BYT 16,56 
* 
*     LINE # :  23
* 
      BYT 33,51,102,16
      ASC 22,F,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
      ASC 18,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,G 
      BYT 17,00 
* 
*     LINE # :  24
* 
      BYT 40,33,127,137 
  SPC 1 
LNG03 ABS *-ZAT03 
  SPC 2 
* 
*     SOURCE CHARACTER OFFSET ADRESS
* 
SOF03 DEC 3 
      DEC 6 
      DEC 7 
      DEC 12
      DEC 17
      DEC 22
      DEC 27
      DEC 32
      DEC 37
      DEC 42
      DEC 47
      DEC 52
      DEC 57
      DEC 62
      DEC 67
      DEC 72
      DEC 77
      DEC 82
      DEC 87
      DEC 92
      DEC 97
      DEC 102 
      DEC 107 
      DEC 113 
      DEC 119 
      DEC 125 
      DEC -1
* 
*     DESTINATION BUFFER ADRESS 
* 
DOF03 DEF U0002,I 
      DEF U0000,I 
      DEF T0300 
      DEF T0301 
      DEF T0302 
      DEF T0303 
      DEF T0304 
      DEF T0305 
      DEF T0306 
      DEF T0307 
      DEF T0308 
      DEF T0309 
      DEF T0310 
      DEF T0311 
      DEF T0312 
      DEF T0313 
      DEF T0314 
      DEF T0315 
      DEF T0316 
      DEF T0317 
      DEF T0318 
      DEF T0319 
      DEF T0320 
      DEF T0321 
      DEF T0322 
* 
*     FORMAT OF NUMERIC DATA
* 
DBL03 DEC 2 
      DEC 2 
  HED TMPGN SCREEN # 4  -  DATA-BASE DEFINITION 
D4    DEC 4 
  SPC 2 
* 
SCR04 JSB MOVCX 
      DEF *+6 
      DEF TMGC3+7 
      DEF SOF04 
      DEF DOF04 
      DEF TMGC1+4+1 
      DEF DBL04 
* 
      CLB 
      LDA =B10002 
      CMA,INA 
      ADA TMGC1+5 
      DIV =B33
      MPY =B17
      STA TEMP
      LDX TEMP
      LAX TMGC3+41
      SLA 
      JMP NEEDX 
      JSB PUTCA 
      DEF *+4 
      DEF T0404 
      DEF BL
      DEF D1
      JMP SCR4A 
NEEDX JSB PUTCA 
      DEF *+4 
      DEF T0404 
      DEF X 
      DEF D1
* 
SCR4A JSB TMP#      RECALL TMP COPY NUMBER
      STA U0400     AND STORE IT IN THE SCREEN
* 
*  CONVERT SECURITY CODE AND/OR CR# TO 2 ASCII CHARS IF REQ'D 
* 
      JSB TCVTA 
      DEF *+3 
      DEF T0402 
      DEF D5
      JSB TCVTA 
      DEF *+3 
      DEF T0403 
      DEF D6
      JSB EXEC
      DEF *+5 
      DEF D2
      DEF LU
      DEF ZAT04 
      DEF LNG04 
      LDA D4        RETURN TO SEG # 4 (IMAGE ANALYSIS)
      JMP RTRN
  SPC 2 
* 
*     LINE # :   1
* 
ZAT04 BYT 33,46,141,53,61,63,103,0  POSITION  CURSOR -  14
      ASC 22,DEFINITION OF THE IMAGE DATA BASE(S) ACCESSE 
      ASC  2,D BY 
      BYT 40,0
      BYT 33,46,144,104 
      ASC  1,TM 
U0400 ASC  1,PD 
      BYT 15,12 
* 
*     LINE # :   2
* 
      BYT 15,12 
* 
*     LINE # :   3
*