ASMB,Q,C * NAME: .CBS * SOURCE: 92070-18166 * RELOC: 92070-1X166 * 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 .CBS,6 92070-1X166 REV.1941 790205 ENT .CBS * * EXT .ZPRV * * A EQU 0 B EQU 1 * * .CBS NOP CLEAR BITS JSB .ZPRV HOLD OFF OTHER PROGRAMS DEF EXIT STA .A. LDA .CBS,I ISZ .CBS STA .B. LDA .A. LDA .B.,I CMA STA .EO. SAVE MASK * LDA .CBS,I ISZ .CBS BACK SSA JMP RESLV SZA,RSS LDA D.A. REGISTER REFERENCE STA .B. LDA A,I AND .EO. 'AND' WITH MEMORY STA .B.,I LDA .A. EXIT JMP .CBS,I DEF .CBS * 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