SPL,L,O,"" NAME WRD2S(7)"92425-16034 REV.1841 780927" ! !------------------------------------------------------------- ! ! ! F. WARREN 17MAY76 REV. A ! ! "C" COPYRIGHT HEWLETT-PACKARD COMPANY 1976. ! ALL RIGHTS RESERVED. NO PART OF THIS PROGRAM ! MAY BE PHOTOCOPIED, REPRODUCED OR TRANSLATED ! TO ANOTHER PROGRAM LANGUAGE WITHOUT THE PRIOR ! WRITTEN CONSENT OF THE HEWLETT-PACKARD COMPANY. ! !------------------------------------------------------------- ! ! ! THIS ROUTINE CONVERTS A BUFFER OF WORD SIZE WLEN INTO ! A STRING BY CALCULATING THE NUMBER OF CHARACTERS IN THE ! STRING AND STORING THAT VALUE IN WORD 1 OF THE BUFFER. ! NOTE: WBUF DATA SHOULD BEGIN IN WORD 2 OF WBUF. ! ! WRD2S: SUBROUTINE (WBUF,WLEN) GLOBAL ! LET WBUF BE INTEGER(1) ! LWORD_WBUF(WLEN+1) ! GET LAST WORD LWORD_(LWORD AND 377K) ! MASK OFF HIGH BITS EVEN_0 ! CLEAR EVEN FLAG IF LWORD<40K THEN GOTO CVRT ! IF LWORD>137K THEN GOTO CVRT ! EVEN_ -1 ! SET TO EVEN CVRT: WBUF(1)_[IF EVEN THEN (WLEN <- 1)\ ! EVEN WDCNT*2 ,ELSE((WLEN <- 1)-1)] ! ODD WDCNT*2-1 RETURN ! END END END$