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