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