home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1B / DATAFILE_PDCD1B.iso / _pocketbk / pocketbook / 004 / oplexamp_z / S3SERIAL.TXT < prev    next >
Text File  |  1994-07-02  |  4KB  |  91 lines
  1. > Can any help with my problem ? Basically, I want to be able to read and
  2. > write individual bytes to and from the serial port with no handshaking
  3. > fromwithin OPL for the Series 3. I need the input to be buffered also.
  4. > 
  5. READING FROM THE SERIAL PORT ON AN S3 (CLASSIC)
  6. ===============================================
  7.  
  8. (This info works for the S3a too; however it is already included, in
  9. the S3a Programming manual, in a form slightly better for the S3a.)
  10.  
  11. Appendix C of the S3 Programming manual explains how to set up the port 
  12. (with an "rsset:" procedure) and then write to it.
  13.  
  14. Having used the rsset: procedure, though, you can read from the serial 
  15. port with something like this:
  16.     ret%=IOW(-1,1,ADDR(buf$)+1,len%)
  17.  
  18. However, you can also specify that one or more characters should be
  19. treated as terminating characters. (Without this, the read terminates
  20. only after reading exactly the number of bytes requested.)
  21.  
  22. To do this, add a final "term&" parameter onto the "rsset" declaration:
  23.     PROC rsset:(baud%,parity%,data%,stop%,hand%,term&)
  24. and add in this line before the IOW line in rsset:
  25.     POKEL ADDR(srchar%(5)),term&
  26.  
  27. When *writing* to the port, just pass 0 for term& - eg:
  28.   rsset:(8,0,8,1,0,&0)
  29.  
  30. When *reading*, the 32 bits of "term&" control whether the
  31. corresponding ASCII character, from 1 to 31, should terminate the
  32. read. For example, to terminate on Control-Z, <CR> or <LF>, set
  33. bits 26, 10 and 13. In binary, this is:
  34.     0000 0100 0000 0000 0010 0100 0000 0000
  35. Converting to a long integer gives &04002400, the value to use.
  36.  
  37. The terminating character itself is read into your buffer too,
  38. allowing your program to act differently according to its value.
  39.  
  40. This example assumes that each line is a maximum of 255 characters and is 
  41. terminated by a <CR>, and that Control-Z marks the end of the data. It 
  42. calls rsset to receive at 2400 Baud without handshaking.
  43.  
  44. PROC testread:
  45.   LOCAL ret%,pbuf%,buf$(255),end%,len%,pbf2%
  46.   PRINT "Test reading from serial port"
  47.   LOPEN "TTY:A"
  48.   LOADM "rsset"
  49.   REM this example receives at 2400 without h/shake
  50.   rsset:(11,0,8,1,0,&04002000) REM Control-Z or CR
  51.   pbuf%=ADDR(buf$)
  52.   IF pbuf%=$7FFF :pbf2%=$8000 :ELSE pbf2%=pbuf%+1 :ENDIF
  53.   DO
  54.     REM read max 255 bytes, after leading count byte
  55.     len%=255
  56.     ret%=IOW(-1,1,#pbf2%,len%)
  57.     POKEB pbuf%,len%
  58.     REM len% = length actually read, including terminator char
  59.     end%=LOC(buf$,CHR$(26)) REM non-zero for Control-Z
  60.     IF ret%<0 and ret%<>-43
  61.       BEEP 3,500
  62.       PRINT
  63.       PRINT "Serial read error: ";ERR$(ret%)
  64.     ENDIF
  65.     IF ret%<>-43         REM if received with terminator
  66.       POKEB pbuf%,len%-1 REM remove terminator
  67.       PRINT buf$         REM echo with CRLF
  68.     ELSE
  69.       PRINT buf$;        REM echo without CRLF
  70.     ENDIF
  71.   UNTIL end%
  72.   PRINT "End of session" :PAUSE -30 :KEY
  73. ENDP
  74.  
  75. Notes:
  76.     - passing -1 as the first argument to I/O keywords means that
  77. the LOPEN handle is to be used.
  78.     - OPL strings have a leading byte giving the length of the rest
  79. of the string, so the data is read beyond this byte. The byte is then
  80. poked to the length that was read.)
  81.     - The "IF pBuf%=$7FFF..." line, which is used instead of using
  82. #pBuf%+1 in the IOW line, protects against an "Overflow" error
  83. which you'd get if ADDR(buf$) was &7FFF. (The S3a has a "UADD"
  84. instruction - unsigned add - to get round this.)
  85.  
  86. Disclaimer: while I've made every effort to be accurate, and checked
  87. it works, I won't be held responsible for any damage caused. :-)
  88.  
  89. Nick H
  90. at Psion plc, London
  91.