home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / computervision / kermit.chtoin < prev    next >
Text File  |  2020-01-01  |  717b  |  27 lines
  1. ; 18 jly 85 esj converted
  2. ;;;;;;;;;;;;         CHTOIN             ;;;;;;;;;;;;;;;;;;;;;;;;;;;;C
  3.       E'F A:S(NWLS)
  4.       E'O CHTOIN.(CSTRING,ISTRING,ILENGTH)
  5.  
  6. ;     converts a character string into an integer array, using only the
  7. ;     the last 7 bits, also added an extra EOS into the end of the
  8. ;     integer array string
  9.  
  10. ;     CSTRING is the character string
  11. ;     ISTRING is the integer array which will hold the new string
  12. ;     ILENGTH tell how long the character string is
  13.  
  14. /INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERDEF
  15.  
  16.       I'R ISTRING(1),ILENGTH
  17.  
  18.       I = 0
  19.       W'E I.L. ILENGTH
  20.          ISTRING(I) = LDBYTT.(CSTRING, I) .LAND. '7F'
  21.          I = I + 1
  22.       E'W
  23.  
  24.       ISTRING(I) = EOS
  25.       F'N
  26.       E'N
  27.