ASMB,R,Q,C * NAME: RMPAR * SOURCE: 92071-18213 * RELOC: 92071-1X213 * 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 RMPAR,7 92071-1X213 REV.2041 800409 ENT RMPAR * EXT $TMP1 EXT .MWF,.XLA,.CAX A EQU 0 B EQU 1 * RMPAR NOP LDA RMPAR,I ISZ RMPAR LDB RMPAR STA RMPAR RETURN ADDRESS LDB B,I RBL,CLE,SLB,ERB CLEAR INDIRECTS JMP *-2 LDA D5 PUT COUNT IN X REG JSB .CAX JSB .XLA SOURCE ADDRESS DEF $TMP1 JSB .MWF MOVE 5 WORDS JMP RMPAR,I * D5 DEC 5 END