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