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 
                                                                                                                                                                                