SPL,L,O,"<WRD2S>" 
     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$
                                                      