ASMB,Q,C * NAME: .STX * SOURCE: 92071-18186 * RELOC: 92071-1X186 * 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 .STX,6 92071-1X186 REV.2041 800411 ENT .STX * * EXT .X.,.Y.,.A.,.B.,.ZPRV * * A EQU 0 B EQU 1 * * .STX NOP STORE X IN MEMORX JSB .ZPRV SHARABLE ROUTINE DEF EXIT STA .A. LDA .STX,I ISZ .STX BACK SSA JMP RESLV SZA,RSS LDA D.A. REGISTER REFERENCE STA .B. LDA .X. STA .B.,I LDA .A. EXIT JMP .STX,I DEF .STX * 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