ASMB,R,L,C
      HED "ABREG" FORTRAN A&B REGISTER GET ROUTINE (DLB)
* 
*     NAME:   ABREG 
*     SOURCE: 92068-18013 
*     RELOC:  PART OF 92067-16268 AND 92067-16035 
*     PGMR:   R.A.G.
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1980.  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 ABREG,7 92068-1X013 REV.2013 750701 
      ENT ABREG 
      SPC 2 
* 
*   CALLING SEQUENCE: 
* 
*    CALL ABREG (IA,IB) 
* 
*   WHERE:   IA  WILL BE THE VALUE OF A-REGISTER BEFORE CALL
*            IB  WILL BE THE VALUE OF B-REGISTER BEFORE CALL
*            REGISTERS ARE LEFT UNMODIFIED. 
* 
*   WARNING!!!!!! 
* 
*       IA  &  IB  MUST NOT BE ARRAY ELEMENTS IN FORTRAN OR ALGOL 
*       BECAUSE THE REGISTERS WILL HAVE BEEN MODIFIED IN THE
*       ARRAY CALCULATIONS AFTER THE EXECUTION OF THE PREVIOUS
*       STATEMENT.
      SPC 2 
ABREG NOP           ENTRY ".ENTR" STYLE 
      STA AREG
      STB BREG
      LDB ABREG,I   GET RETURN ADDRESS
      ISZ ABREG 
      LDA ABREG,I   GET ADDRESS OF IA 
      STA IA
      ISZ ABREG 
      LDA ABREG,I   GET ADDRESS OF IB 
      STB ABREG 
      LDB BREG      GET B-REGISTER
      STB A,I       PUT IN IB 
      LDA AREG      GET A-REGISTER
      STA IA,I      PUT IN IA 
      JMP ABREG,I 
IA    NOP 
AREG  NOP 
BREG  NOP 
A     EQU 0 
      END 
* 
                                                                                                                              