ASMB,Q,C * NAME: .SBS * SOURCE: 92070-18183 * RELOC: 92070-1X183 * 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 .SBS,6 92070-1X183 REV.1941 790205 ENT .SBS * * EXT .ZPRV * * A EQU 0 B EQU 1 * * .SBS NOP SET BITS JSB .ZPRV HOLD OFF OTHER PROGRAMS DEF EXIT STA .A. LDA .SBS,I ISZ .SBS STA .B. LDA .A. LDA .B.,I STA .EO. SAVE MASK * LDA .SBS,I ISZ .SBS BACK SSA JMP RESLV SZA,RSS LDA D.A. REGISTER REFERENCE STA .B. LDA A,I IOR .EO. 'OR' WITH MEMORY STA .B.,I LDA .A. EXIT JMP .SBS,I DEF .SBS * RESLV ELA,CLE,ERA CLEAR INDIRECT BIT SZA,RSS LDA D.A. REGISTER REFERENCE LDA A,I JMP BACK * D.A. DEF .A. .A. NOP .B. NOP .EO. NOP END