ASMB,L NAM WFIX,7 12824-1X050 REV.2026 800506 ENT WFIX2,WFIX4 EXT .ENTR ************************************************************** * * NAME: WFIX * SOURCE: 12824-18050 * RELOC: PART OF 12824-12002 * PGMR: BG,CG * * *********************************************************** * * (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 CONSENT OF HEWLETT-PACKARD COMPANY. * * *********************************************************** * ************************************************************** * V1 NOP IX1 NOP WFIX2 NOP JSB .ENTR DEF V1 LDB IX1,I DOUBLE INDEX & MAKE DOUBLE INT. CLA ASR 15 CLE ADA V1,I ADD ADDRESS. STA V1,I ISZ V1 SEZ INB ADB V1,I STB V1,I JMP WFIX2,I SPC 3 W1 NOP JX1 NOP WFIX4 NOP JSB .ENTR DEF W1 LDB JX1,I QUADRUPLE INDEX & MAKE DOUBLE INT. CLA ASR 14 CLE ADA W1,I ADD ADDRESS. STA W1,I ISZ W1 SEZ INB ADB W1,I STB W1 JMP WFIX4,I * END