ASMB,R,L ** KCVT ** HED CONVERT ROUTINE * NAME: KCVT * SOURCE: 92067-18279 * RELOC: PART OF 92067-16268 AND 92067-16035 * PGMR: G.A.A. * * *************************************************************** * * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978. 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 KCVT,6 92067-1X279 REV.2013 770621 ENT KCVT * * EXT .ENTP,$CVT3,.ZPRV * NUMBR BSS 1 * KCVT NOP JSB .ZPRV DEF LIBX JSB .ENTP DEF NUMBR LDA NUMBR,I CCE JSB $CVT3 CXA GET LEAST TWO DIGITS LIBX JMP KCVT,I RETURN DEF KCVT END