home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_25_1988_Transactor_Publishing.d64 / rs232hardcopy (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  48 lines
  1. 100 ad=49152
  2. 110 for t=0 to 94:read x:poke 49152+t,x:next
  3. 120 :
  4. 130 rem set jmp address for open
  5. 140 ol=peek (794):oh=peek (795)
  6. 150 poke ad+24,ol:poke ad+25,oh
  7. 160 ah=int(ad/256):poke 794,ad-(256*ah):poke 795,ah
  8. 170 :
  9. 180 rem set rs-232 output buffer address
  10. 190 bh=int((ad+96)/256):bl=ad+96-(256*bh)
  11. 200 poke ad+16,bl:poke ad+18,bh
  12. 210 :
  13. 220 rem set baud rate
  14. 230 poke ad+11,7
  15. 240 :
  16. 250 rem set temporary storage
  17. 260 sh=int((ad+95)/256):sl=ad+95-(sh*256)
  18. 270 poke ad+29,sl:poke ad+30,sh
  19. 280 poke ad+38,sl:poke ad+39,sh
  20. 290 poke ad+87,sl:poke ad+88,sh
  21. 300 poke ad+90,sl:poke ad+91,sh
  22. 310 :
  23. 320 rem add linefeed 10 yes/0 no
  24. 330 poke ad+45,10
  25. 340 :
  26. 350 rem set ascii conversion flag (56 yes/24 no)
  27. 360 poke ad+51,56
  28. 370 :
  29. 380 rem set jmp address for print
  30. 390 pl=peek (806):ph=peek (807)
  31. 400 poke ad+47,pl:poke ad+48,ph
  32. 410 poke ad+93,pl:poke ad+94,ph
  33. 420 ph=int((ad+28)/256):pl=ad+28-(256*ph)
  34. 430 poke 806,pl:poke 807,ph
  35. 440 :
  36. 1000 data 165,186,201,4,208,17,169,2
  37. 1010 data 133,186,169,7,141,147,2,169
  38. 1020 data 96,162,192,133,249,134,250,32
  39. 1030 data 74,243,24,96,141,95,192,165
  40. 1040 data 154,201,2,208,52,173,95,192
  41. 1050 data 201,13,208,7,169,10,32,202
  42. 1060 data 241,169,13,56,144,32,201,65
  43. 1070 data 144,9,201,91,176,5,24,105
  44. 1080 data 32,208,19,201,193,144,9,201
  45. 1090 data 219,176,5,56,233,128,208,6
  46. 1100 data 201,20,208,2,169,8,141,95
  47. 1110 data 192,173,95,192,76,202,241
  48.