ASMB,R
      NAM DUPL,7 92080-1X311 REV.2026 791210                        
* 
*     SOURCE 92080-18311
* 
      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 ON THE         * 
*    TERMINAL A SCREEN TO ASK THE THE USER A NEW IDENTIFICATION       * 
*    FOR A FORM .                                                     * 
*                                                                     * 
*********************************************************************** 
* 
* 
*                                                                     * 
      ENT DUPL
      EXT EXEC
      EXT .ENTR 
      EXT MOVCX 
      COM ILU 
* 
NBUF  NOP           ADDRESS OF DATA BUFFER
IMODE NOP           MODE OF OPERATION,IE, AUTO OR MANUAL
DUPL  NOP           ENTRY POINT 
      JSB .ENTR 
      DEF NBUF
* 
      LDA IMODE,I   GET MODE
      CLB 
      SZA           AUTOMATIC MODE? 
      STB IMODE,I   YES, SET IT TO MANUAL.
* 
      JSB MOVCX     MOVE DATA IN SCREEN 
      DEF *+6 
      DEF NBUF,I    SOURCE DATA BUFFER
      DEF SOF30     TABLE OF OFFSETS IN SOURCE BUFFER 
      DEF BD30      TABLE OF DEST. BUFFER ADDRESS 
      DEF D.0       DEST OFFSET 
      DEF DBL30 
* 
      JSB EXEC      WRITE SCREEN
      DEF *+5 
      DEF D.2 
      DEF ILU 
      DEF BSC30 
      DEF ILS30 
* 
      JMP DUPL,I
* 
* 
*  DATA SCREEN
* 
* 
* 
*     LINE # :   1
* 
BSC30 BYT 33,46,153,61,102  SET BLOCK MODE
      BYT 33,130,33,110,33,112,33,143 
      BYT 33,46,141,53,61,63,103,0  POSITION  CURSOR -  14
      ASC 22,CHANGE TRANSACTION SPECIFICATION IDENTIFICAT 
      ASC  1,IO 
      BYT 116,0 
      BYT 15,12 
* 
*     LINE # :   2
* 
      BYT 15,12 
* 
*     LINE # :   3
* 
      BYT 15,12 
* 
*     LINE # :   4
* 
      ASC 22,     A transaction specification with the fo 
      ASC 15,llowing identification already 
      BYT 15,12 
* 
*     LINE # :   5
* 
      ASC 20,     exists on the destination library : 
      BYT 15,12 
* 
*     LINE # :   6
* 
      BYT 15,12 
* 
*     LINE # :   7
* 
      BYT 33,46,141,53,61,63,103,0  POSITION  CURSOR -  14
      ASC  2,Name 
      BYT 33,46,141,53,61,63,103,0  POSITION  CURSOR -  31
      ASC  3,Number 
      BYT 33,46,141,53,61,63,103,0  POSITION  CURSOR -  50
      ASC  6,Security cod 
      BYT 145,0 
      BYT 15,12 
* 
*     LINE # :   8
* 
      BYT 33,46,141,53,61,62,103,0  POSITION  CURSOR -  13
      BYT 33,46,144,102 
T3000 ASC  3, 
      BYT 33,46,144,100 
      BYT 33,46,141,53,61,63,103,0  POSITION  CURSOR -  32
      BYT 33,46,144,102 
T3001 ASC  2, 
      BYT 33,46,144,100 
      BYT 33,46,141,53,61,67,103,0  POSITION  CURSOR -  53
      BYT 33,46,144,102 
T3002 ASC  3, 
      BYT 15,12 
* 
*     LINE # :   9
* 
      BYT 15,12 
* 
*     LINE # :  10
* 
      BYT 15,12 
* 
*     LINE # :  11
* 
      ASC 22,     Since two specifications with the same
      ASC 15,name or number cannot be store 
      BYT 144,0 
      BYT 15,12 
* 
*     LINE # :  12
* 
      ASC 22,     on a library the identification of the
      ASC 14,transaction being copied mus 
      BYT 164,0 
      BYT 15,12 
* 
*     LINE # :  13
* 
      ASC  8,     be changed
      BYT 72,0
      BYT 15,12 
* 
*     LINE # :  14
* 
      BYT 15,12 
* 
*     LINE # :  15
* 
      BYT 33,46,141,53,61,63,103,0  POSITION  CURSOR -  14
      ASC  2,Name 
      BYT 33,46,141,53,61,63,103,0  POSITION  CURSOR -  31
      ASC  3,Number 
      BYT 33,46,141,53,61,63,103,0  POSITION  CURSOR -  50
      ASC  6,Security cod 
      BYT 145,0 
      BYT 15,12 
* 
*     LINE # :  16
* 
      BYT 33,46,141,53,61,62,103,0  POSITION  CURSOR -  13
      BYT 33,46,144,102,33,133
T3003 ASC  3, 
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,61,63,103,0  POSITION  CURSOR -  32
      BYT 33,46,144,102,33,133
T3004 ASC  2, 
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,61,67,103,0  POSITION  CURSOR -  53
      BYT 33,46,144,102,33,133
T3005 ASC  3, 
      BYT 33,135,33,46,144,100
      BYT 15,12 
* 
*     LINE # :  17
* 
      BYT 33,142,33,127 
ESC30 BYT 0,137 
* 
STAD  EQU BSC30 
LTAD  EQU ESC30 
ILS30 ABS LTAD-STAD+1 
DBL30 NOP 
D.2   DEC 2 
D.0   DEC 0 
* 
BD30  DEF T3000 
      DEF T3001 
      DEF T3002 
      DEF T3003 
      DEF T3004 
      DEF T3005 
* 
SOF30 DEC 1,7,11,17,23,27,33,-1 
* 
      END DUPL
                                                                                                                                                    