ASMB,Q,C
*     NAME:   CABXY 
*     SOURCE: 92070-18189 
*     RELOC:  92070-1X189 
*     PGMR:   HLC 
* 
* 
*  **************************************************************** 
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  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,7  92070-1X189  REV.1941  800109
      ENT .CAX,.CAY,.CBX,.CBY 
      ENT .CXA,.CYA,.CXB,.CYB 
* 
* 
      EXT .X.,.Y. 
* 
* 
A     EQU 0 
B     EQU 1 
* 
* 
* 
.CAX  NOP           COPY A TO X 
      STA .X. 
      JMP .CAX,I
* 
* 
.CAY  NOP           COPY A TO Y 
      STA .Y. 
      JMP .CAY,I
* 
* 
.CBX  NOP           COPY B TO X 
      STB .X. 
      JMP .CBX,I
* 
* 
.CBY  NOP           COPY B TO Y 
      STB .Y. 
      JMP .CBY,I
* 
* 
.CXA  NOP           COPY X TO A 
      LDA .X. 
      JMP .CXA,I
* 
* 
.CXB  NOP           COPY X TO B 
      LDB .X. 
      JMP .CXB,I
* 
* 
.CYA  NOP           COPY Y TO A 
      LDA .Y. 
      JMP .CYA,I
* 
* 
.CYB  NOP           COPY Y TO B 
      LDB .Y. 
      JMP .CYB,I
* 
* 
      END 
                                                                                                                                                                                      