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