SUBROUTINE BCDASC(NBYTES,BCD,ASCII) C C Routine to convert a BCD buffer to an ASCII buffer C C NBYTES is the number of BCD bytes input (number of bytes output C is double that) C C Maximum input buffer size is 500 bytes (therefore max out = 1000) C BYTE BCD(500),ASCII(1000) C DO 10 I=1,NBYTES ! Convert from BCD to ascii IWORD = BCD(I) IF (IWORD.LT.0) IWORD = IWORD+256 ! Adjust sign extend J = 2*I-1 ASCII(J) = IWORD/16+'0' ASCII(J+1) = MOD(IWORD,16)+'0' 10 CONTINUE RETURN END