ASMB,Q,C
      HED I/O ROUTINES FOR EMA ARRAYS 
*     SOURCE: 92067-18068 
*     RELOC:  PART OF 92067-16035 
*     PGMR:   G.A.A.,D.L.S. 
* 
*  ***************************************************************
*  * (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 .TAE.,7 92067-16035 REV.1901 781128 
* 
* 
*     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 
*                        .TAE. 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 .TAY.,.ZAE. 
      ENT .TAE. 
* 
      DEC 1024      THIS IS THE FOUR WORD/ELEMENT 
.TAE. NOP           ENTRY POINT 
      JSB .ZAE.     GO DO IT
      DEC 256 
      DEF .TAY. 
* 
      END 
                                                                        