ASMB,Q,C
*     NAME:   CABXY 
*     SOURCE: 92071-18189 
*     RELOC:  92071-1X189 
*     PGMR:   HLC,DJN 
* 
* 
*  **************************************************************** 
*  * (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 CABXY,6  92071-1X189  REV.2041  800411
      ENT .CAX,.CAY,.CBX,.CBY 
      ENT .CXA,.CYA,.CXB,.CYB 
* 
* 
      EXT .X.,.Y.,.ZPRV 
* 
* 
A     EQU 0 
B     EQU 1 
* 
* 
* 
.CAX  NOP           COPY A TO X 
      JSB .ZPRV     SHARABLE ROUTINE
      DEF EXIT1 
      STA .X. 
EXIT1 JMP .CAX,I
      DEF .CAX
* 
* 
.CAY  NOP           COPY A TO Y 
      JSB .ZPRV     SHARABLE
      DEF EXIT2 
      STA .Y. 
EXIT2 JMP .CAY,I
      DEF .CAY
* 
* 
.CBX  NOP           COPY B TO X 
      JSB .ZPRV     SHARABLE
      DEF EXIT3 
      STB .X. 
EXIT3 JMP .CBX,I
      DEF .CBX
* 
* 
.CBY  NOP           COPY B TO Y 
      JSB .ZPRV     SHARABLE ROUTINE
      DEF EXIT4 
      STB .Y. 
EXIT4 JMP .CBY,I
      DEF .CBY
* 
* 
.CXA  NOP           COPY X TO A 
      JSB .ZPRV     SHARABLE
      DEF EXIT5 
      LDA .X. 
EXIT5 JMP .CXA,I
      DEF .CXA
* 
* 
.CXB  NOP           COPY X TO B 
      JSB .ZPRV     SHARABLE ROUTINE
      DEF EXIT6 
      LDB .X. 
EXIT6 JMP .CXB,I
      DEF .CXB
* 
* 
.CYA  NOP           COPY Y TO A 
      JSB .ZPRV     SHARABLE
      DEF EXIT7 
      LDA .Y. 
EXIT7 JMP .CYA,I
      DEF .CYA
* 
* 
.CYB  NOP           COPY Y TO B 
      JSB .ZPRV     SHARABLE ROUTINE
      DEF EXIT8 
      LDB .Y. 
EXIT8 JMP .CYB,I
      DEF .CYB
* 
* 
      END 
                                                                                                                                            