home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #20 / NN_1992_20.iso / spool / comp / sys / atari / 8bit / 4571 < prev    next >
Encoding:
Internet Message Format  |  1992-09-08  |  2.8 KB
  1. Path: sparky!uunet!portal!cup.portal.com!Rick_Michael_Cortese
  2. From: Rick_Michael_Cortese@cup.portal.com
  3. Newsgroups: comp.sys.atari.8bit
  4. Subject: Re: Connecting an RS232 modem to an Atari?
  5. Message-ID: <65470@cup.portal.com>
  6. Date: Tue,  8 Sep 92 11:29:13 PDT
  7. Organization: The Portal System (TM)
  8. References: <1992Sep7.231030.7510@constellation.ecn.uoknor.edu>
  9.   <65456@cup.portal.com>
  10. Lines: 76
  11.  
  12. 1 REM ******* a simple demo *********
  13. 2 REM DO NOT input strings longer then
  14. 3 REM 127 BYTES or if you load a file
  15. 4 REM directly to buffer, don't send
  16. 5 REM the ML more then 127 bytes!
  17. 6 REM BTW: the strings once processed
  18. 7 REM are no longer intact in memory
  19. 8 REM ********************************
  20. 10 GRAPHICS 0:FOR N=0 TO 150:READ BYTE
  21. 20 POKE 1536+N,BYTE:NEXT N:X=USR(1536)
  22. 25 ? CHR$(125);
  23. 30 ? "  Joystick #1 serial out"
  24. 40 ? "    at 300 baud installed"
  25. 50 ? " for ASCII transfers to RS232"
  26. 60 ? " devices. See DOC for details"
  27. 70 ? " on how to make the cord"
  28. 80 CLR :DIM FILE$(255),CR$(2)
  29. 90 CR$=CHR$(13):CR$(2)=CHR$(10):?
  30. 100 ? "SELECT A BAUD RATE <RETURN>=300"
  31. 110 ? "1=50 2=110 3=300 4=1200 5=2400"
  32. 120 ? "6=4800 7=9600 8=19200"
  33. 130 CLOSE #1:TRAP 150:INPUT X
  34. 140 ON X GOSUB 2000,2010,2020,2030,2040,2050,2060,2070
  35. 150 TRAP 40000:TRAP 25
  36. 160 ? "File to transfer? Include Dx:"
  37. 170 INPUT FILE$:OPEN #1,4,0,FILE$
  38. 180 TRAP 300
  39. 190 INPUT #1,FILE$:FILE$(LEN(FILE$)+1)=CR$
  40. 200 X=USR(1558,ADR(FILE$),LEN(FILE$))
  41. 210 FOR DELAY=1 TO 10:NEXT DELAY
  42. 220 GOTO 190
  43. 300 FILE$(LEN(FILE$)+1)=CR$
  44. 310 CLOSE #1:GRAPHICS 0:TRAP 40000:GOTO 25
  45. 1000 DATA 104, 169, 48, 141, 2
  46. 1010 DATA 211, 169, 1, 141, 0
  47. 1020 DATA 211, 169, 52, 141, 2
  48. 1030 DATA 211, 169, 0, 141, 0
  49. 1040 DATA 211, 96, 104, 104, 133
  50. 1050 DATA 204, 104, 133, 203, 104
  51. 1060 DATA 104, 133, 205, 168, 169
  52. 1070 DATA 255, 136, 48, 7, 81
  53. 1080 DATA 203, 145, 203, 76, 34
  54. 1090 DATA 6, 120, 169, 0, 141
  55. 1100 DATA 14, 212, 141, 0, 212
  56. 1110 DATA 133, 207, 164, 207, 177
  57. 1120 DATA 203, 141, 134, 6, 160
  58. 1130 DATA 8, 140, 135, 6, 169
  59. 1140 DATA 1, 141, 0, 211, 234
  60. 1150 DATA 234, 234, 234, 234, 234
  61. 1160 DATA 234, 234, 32, 136, 6
  62. 1170 DATA 173, 134, 6, 141, 0
  63. 1180 DATA 211, 106, 141, 134, 6
  64. 1190 DATA 32, 136, 6, 206, 135
  65. 1200 DATA 6, 208, 238, 169, 0
  66. 1210 DATA 141, 0, 211, 32, 136
  67. 1220 DATA 6, 32, 136, 6, 230
  68. 1230 DATA 207, 166, 207, 228, 205
  69. 1240 DATA 208, 191, 169, 34, 141
  70. 1250 DATA 0, 212, 169, 255, 141
  71. 1260 DATA 14, 212, 88, 96, 0
  72. 1270 DATA 0, 174, 149, 6, 172
  73. 1280 DATA 150, 6, 136, 208, 253
  74. 1290 DATA 202, 208, 247, 96, 8
  75. 1300 DATA 135
  76. 2000 POKE 1685,150:POKE 1686,42:RETURN
  77. 2010 POKE 1685,60:POKE 1686,50:RETURN
  78. 2020 POKE 1685,8:POKE 1686,135:RETURN
  79. 2030 POKE 1685,2:POKE 1686,130:RETURN
  80. 2040 POKE 1685,2:POKE 1686,65:RETURN
  81. 2050 POKE 1685,2:POKE 1686,30:RETURN
  82. 2060 POKE 1685,1:POKE 1686,26:RETURN
  83. 2070 POKE 1685,1:POKE 1686,8:RETURN
  84. r that
  85. matter) connected to each other.
  86.  
  87. Here's a list of standard pin assignments for RS-232 to hel
  88.