ASMB,R,L,C
*     NAME:   COPY  
*     SOURCE: 92060-18042 
*     RELOC:  92060-16042
*     PGMR:   S.P.K.
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1976.  ALL RIGHTS     *
*  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
*  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
*  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
*  ***************************************************************
* 
      NAM COPY,3,99 92060-16042 REV.1704 770214 
* DISC TO DISC DATA TRANSFER
      EXT DD,EXEC,BUFER,RMPAR,ITASK 
COPY  JSB RMPAR     DISC TO DISC COPY UTILITY 
      DEF *+2 
      DEF IP
      LDA D2
      STA ITASK     TASK=2 FOR COPY 
      JSB BUFER     GET FWA & # OF WORDS IN AVMEM FOR THIS PARTITION
      DEF FWA 
      DEF PLEN
      DEF BFLEN 
      JSB DD        MAIN ROUTINE TO DO COPY OPERATIONS
      DEF *+6 
      DEF FWA,I 
      DEF PLEN      LENGTH OF PARTITION 
      DEF BFLEN 
      DEF FWA,I     7905 TRACK MAP TABLE TO OVERLAY BUFFER
      DEF IP
      JSB EXEC      END COPY PROGRAM
      DEF *+2 
      DEF D6
* 
IP    BSS 5 
FWA   BSS 1 
PLEN  BSS 1 
BFLEN BSS 1 
D2    DEC 2 
D6    DEC 6 
      END COPY
                                                                                                                                                                                                                                                    