ASMB,Q,C * NAME: XABXY * SOURCE: 92071-18219 * RELOC: 92071-1X219 * 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 XABXY,6 92071-1X219 REV.2041 800411 ENT .XAX,.XAY,.XBX,.XBY * * EXT .X.,.Y.,.A.,.B.,.ZPRV * * A EQU 0 B EQU 1 * * .XAX NOP EXCHANGE A AND X JSB .ZPRV SHARABLE ROUTINE DEF EXIT1 STB .B. LDB .X. STA .X. STB A LDB .B. EXIT1 JMP .XAX,I DEF .XAX * * .XBX NOP EXCHANGE B AND X JSB .ZPRV SHARABLE ROUTINE DEF EXIT2 STA .A. LDA .X. STB .X. STA B LDA .A. EXIT2 JMP .XBX,I DEF .XBX * * .XAY NOP EXCHANGE A AND Y JSB .ZPRV SHARABLE ROUTINE DEF EXIT3 STB .B. LDB .Y. STA .Y. STB A LDB .B. EXIT3 JMP .XAY,I DEF .XAY * * .XBY NOP EXCHANGE B AND Y JSB .ZPRV SHARABLE ROUTINE DEF EXIT4 STA .A. LDA .Y. STB .Y. STA B LDA .A. EXIT4 JMP .XBY,I DEF .XBY * * * END