ASMB,R,L
      HED FREES ROUTINE 
*     NAME:   FREE. 
*     SOURCE: 92067-18172 
*     RELOC:  92002-16125 
*     PGMR:   G.A.A.
* 
*  ***************************************************************
*  * (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 FREE.,8 92067-16125 REV.1903 740801 
      ENT FREE. 
* 
      EXT .ENTR 
* 
* 
NUMBR BSS 1 
ADDR  BSS 1 
* 
FREE. NOP 
      JSB .ENTR 
      DEF NUMBR 
      LDA NUMBR,I 
      AND MASKL 
      ALF,ALF 
      CLB 
      ADA M60 
      MPY D10 
      STA 1 
      LDA NUMBR,I 
      AND B377
      ADA M60 
      ADA 1 
      CMA,INA 
      STA NUMBR 
      LDB ADDR,I
LOOP1 LDA M16 
      STA CNTR
      CLA,INA 
LOOP2 ISZ NUMBR 
      JMP *+4 
      XOR 1,I 
      STA 1,I 
      JMP FREE.,I 
      ISZ CNTR
      JMP *+3 
      INB 
      JMP LOOP1 
      RAL 
      JMP LOOP2 
* 
CNTR  BSS 1 
M16   DEC -16 
M60   OCT -60 
D10   DEC 10
B377  OCT 377 
MASKL OCT 177400
* 
      END 
                                                                                                                                                                                                                                              