ASMB,Q,C * NAME: .STY * SOURCE: 92071-18187 * RELOC: 92071-1X187 * 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 .STY,6 92071-1X187 REV.2041 800411 ENT .STY * * EXT .X.,.Y.,.A.,.B.,.ZPRV * * A EQU 0 B EQU 1 * * .STY NOP STORE Y IN MEMORY JSB .ZPRV SHARABLE ROUTINE DEF EXIT STA .A. LDA .STY,I ISZ .STY BACK SSA JMP RESLV SZA,RSS LDA D.A. REGISTER REFERENCE STA .B. LDA .Y. STA .B.,I LDA .A. EXIT JMP .STY,I DEF .STY * RESLV ELA,CLE,ERA CLEAR INDIRECT BIT SZA,RSS LDA D.A. REGISTER REFERENCE LDA A,I JMP BACK * D.A. DEF .A.+0 END