ASMB,Q,C
      HED I/O ROUTINES FOR EMA ARRAYS 
*     SOURCE: 92067-18065 
*     RELOC:  PART OF 92067-16035 
*     PGMR:   G.A.A.
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978.  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 .IAE.,7 92067-16035 REV.1805 771012 
* 
* 
*     THESE ROUTINES MAP IN ARRAYS TO BE PASSED TO THE FORMATER 
*     AND THEN PASS THEM TO THE FORMATER.  ARRAYS ARE MAPPED
*     IN 1024 WORDS AT A TIME SO AS TO INSURE THAT THAY ARE 
*     ALWAYS ADDRESSABLE. 
* 
* 
*     CALLING SEQUENCE: 
* 
* 
*     JSB <ENTRY> 
*     DEF OFSET 
*     DEF -ELEMENT COUNT
*     - RETURN -
* 
*     WHERE: <ENTRY> IS: .IAE. FOR ONE WORD VARAIABLE 
*                        .RAE. FOR TWO WORD VARAIABLES
*                        .XAE. FOR THREE WORD VARIABLES 
*                        .YAE. FOR FOUR WORD VARIABLES
* 
*            OFSET   IS THE ARRAYS OFFSET FROM THE START OF EMA 
*                    (A TWO WORD DOUBLE INTEGER)
* 
*            ELEMENT COUNT  IS THE NUMBER OF ELEMENTS OF THE GIVEN SIZE THAT
*                           ARE TO BE TRANSFERED. (THIS IS A NEGATIVE 
*                           DOUBLE INTEGER.)
* 
      EXT .IAY.,.ZAE. 
      ENT .IAE. 
* 
      DEC 1024      THIS IS THE ONE WORD
.IAE. NOP           ENTRY POINT 
      JSB .ZAE.     GO DO IT
      DEC 1024
      DEF .IAY. 
* 
      END 
                                                                                          