home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / vrac / vester_e.zip / TX.BAS < prev    next >
BASIC Source File  |  1994-08-08  |  6KB  |  107 lines
  1. 10 CLEAR,32768!:KEY OFF:CLS
  2. 20 X$="system":KEY 10,X$
  3. 21 X$="files":KEY 9,X$
  4. 30 GOTO 1000
  5. 40 DEF SEG=&H4F00
  6. 50 BLOAD "tx64gc.asm",&H100
  7. 60 PRINT:PRINT:PRINT"                           SSTV TRANSMISSION"
  8. 70 PRINT:PRINT"                       Copyright 1993 Ben Vester"
  9. 80 PRINT:PRINT"   This program is for transmitting a 64 shade Color SSTV or FAX-480  PIX."
  10. 90 PRINT"    You can transmit a file copied to the RAMDISK as D:A.P, or load in a"
  11. 100 PRINT"    file from any of your storage disks. The picture file must be configured"
  12. 110 PRINT"    to match the K3BC format (see INFO.TXT). Hit G to start sending and H to"
  13. 120 PRINT"    halt sending before PIX is finished being sent. LOAD this program and"
  14. 130 PRINT"    LIST 1000-2000 to see the SYSTEM CONFIGURATION. Change this CONFIGURATION"
  15. 140 PRINT"    to match your computer and SAVE the modified program for use.":PRINT
  16. 150 PRINT"  Interface to couple the computer to the transmitter uses a Radio Shack"
  17. 160 PRINT"   part 273-1380 transformer for isolation. The 8 ohm leads (red and white)"
  18. 170 PRINT"   connect directly to the txmtr audio (Line) input. The high impedance side"
  19. 180 PRINT"   (green and blue) connects to the computer serial port. Connect the blue"
  20. 190 PRINT"   lead directly to Ground (pin 5 on a 9 pin connector) and the green lead"
  21. 200 PRINT"   to the RTS pin (pin 7 on a 9 pin connector) through a 10 mfd. coupling"
  22. 210 PRINT"   capacitor in  series with a 1000 ohm (or greater) resistor. The capacitor"
  23. 220 PRINT"   blocks DC current flow from the RTS lead and the resistor limits the"
  24. 230 PRINT"   total RTS current to a safe value and is varied to set the audio level."
  25. 240 PRINT:PRINT"  What mode (1)or(11)Robot 36 (2)or(22)Robot 72 (3)Scottie 1 (4)Scottie 2 "
  26. 250 INPUT"(5)AVT 90 (6)AVT 94 (7)Martin 1 (77)Martin 2 (8)Wraase 96 (9)FAX480 ";I
  27. 260 IF I=1 THEN LL=306:LT=LT1:LD=282:L=90:EA=24:SC=24:POKE &H1D8,240:POKE &H3A5,17:GOTO 410
  28. 270 IF I=2 THEN LL=614:LT=LT2:L=282:LD=589:EA=25:SC=24:POKE &H1D8,240:POKE &H3A5,48:GOTO 410
  29. 280 IF I=3 THEN LL=878:LT=LT3:L=288:EA=14:SC=14:POKE &H3A5,60:POKE &H523,96:POKE &H510,3:POKE &H373,233:POKE &H374,39:POKE &H375,1:POKE &H52B,227:GOTO 420
  30. 290 IF I=4 THEN LL=568:LT=LT4:L=184:EA=16:SC=15:POKE &H3A5,29:POKE &H373,233:POKE &H374,39:POKE &H375,1:POKE &H523,41:POKE &H510,2:POKE &H52B,227:GOTO 420
  31. 300 IF I=5 THEN LL=768:LT=LT5:SC=21:POKE &H30F,235:POKE &H1D8,240:POKE &H3F8,0:POKE &H400,160:POKE &H3A5,34:POKE &H529,63:GOTO 390
  32. 310 IF I=7 THEN LL=915:LT=LT7:L=302:EA=9:SC=8:POKE &H3A5,53:POKE &H373,233:POKE &H374,39:POKE &H375,1:POKE &H564,12:GOTO 420
  33. 320 IF I=6 THEN LL=960:LT=LT6:L=320:SC=21:POKE &H30F,235:POKE &H1D8,200:POKE &H3A5,18:POKE &H3F8,0:POKE &H529,63:GOTO 390
  34. 330 IF I=22 THEN LL=614:LT=LT2:L=282:LD=589:EA=8:SC=23:POKE &H1D8,240:POKE &H3A5,48:GOTO 410
  35. 340 IF I=11 THEN LL=306:LT=LT1:LD=282:L=90:EA=6:SC=24:POKE &H1D8,240:POKE &H3A5,17:GOTO 410
  36. 350 IF I=9 THEN LL=546:LT=LT9:LD=536:L=178:EA=10:SC=9:POKE &H1D8,224:POKE &H1D9,1:POKE &H172,232:POKE &H564,12:GOTO 410
  37. 360 IF I=8 THEN LL=745:LT=LT8:L=248:EA=1:SC=1:POKE &H3A5,57:POKE &H373,233:POKE &H374,39:POKE &H375,1:POKE &H564,12:POKE &H523,233:POKE &H510,2:POKE &H52B,227:GOTO 420
  38. 370 IF I=77 THEN LL=464:LT=LT77:L=152:EA=8:SC=8:POKE &H3A5,20:POKE &H373,233:POKE &H374,39:POKE &H375,1:POKE &H564,12:GOTO 420
  39. 380 GOTO 240
  40. 390 LB=INT(LL/256):LA=LL-256*LB:LD=INT((LL-5)/256):LC=LL-5-256*LD
  41. 400 POKE &H1E8,LA:POKE &H1E9,LB:GOTO 510
  42. 410 LB=INT(LD/256):LA=LD-256*LB:GOTO 430
  43. 420 LB=INT(3*L/256):LA=3*L-256*LB:RB=INT((LL+4)/256):RA=LL+4-256*RB:POKE &H216,RA:POKE &H217,RB
  44. 430 POKE &H1E8,LA:POKE &H1E9,LB
  45. 440 L3B=INT((L-3)/256):L3A=L-3-256*L3B:POKE &H4C4,L3A:POKE &H4C5,L3B
  46. 450 LLB=INT(LL/256):LLA=LL-256*LLB:POKE &H4D2,LLA:POKE &H4D3,LLB
  47. 460 LL4=INT((4*LL)/256):LL5=4*LL-256*LL4:POKE &H4E0,LL5:POKE &H4E1,LL4
  48. 470 LRB=INT ((LL-40)/256):LRA=LL-40-256*LRB:POKE &H504,LRA:POKE &H505,LRB
  49. 480 FOR K=&H58A TO &H5AC
  50. 490 READ Q:POKE K,Q
  51. 500 NEXT K
  52. 510 LTB=INT(LT/256):LTA=LT-256*LTB
  53. 520 POKE &H32A,LTA:POKE &H32B,LTB
  54. 530 IF I=9 THEN POKE &H454,LTA:POKE &H455,LTB
  55. 540 IF CO=2 THEN POKE &H2F7,2:POKE &H241,2
  56. 550 POKE &H295,SW         'SW is sync window
  57. 555 POKE &H3C6,71   'pixel delay from end of VIS to pix. Affects initial offset
  58. 556                 'of pix txmit on all but AVT modes.
  59. 560 POKE &H4A0,91:POKE &H4EA,5:POKE &H55C,4
  60. 570 POKE &H317,EA:POKE &H31A,EA:POKE &H310,SC 'EA=discarded bytes-SC=synch cycles
  61. 580 PRINT:PRINT:INPUT"Transmit what PATH/FILE-Program adds mode suffix (default=D:A.P).";F$
  62. 590 IF F$="" THEN F$=DR$+":A.P":GOTO 720
  63. 600 IF I=1 THEN F$=F$+".36"
  64. 610 IF I=11 THEN F$=F$+".36a"
  65. 620 IF I=2 THEN F$=F$+".72"
  66. 630 IF I=22 THEN F$=F$+".72a"
  67. 640 IF I=3 THEN F$=F$+".s1"
  68. 650 IF I=4 THEN F$=F$+".s2"
  69. 660 IF I=5 THEN F$=F$+".90"
  70. 670 IF I=6 THEN F$=F$+".94"
  71. 680 IF I=7 THEN F$=F$+".m1"
  72. 690 IF I=8 THEN F$=F$+".96"
  73. 700 IF I=9 THEN F$=F$+".fax"
  74. 710 IF I=77 THEN F$=F$+".m2"
  75. 720 IF TI=2 THEN POKE &H1DE,1
  76. 730 PRINT:PRINT:PRINT:PRINT"           After file LOADs hit G to transmit or Q to Quit."
  77. 740 POKE &H1A9,GT
  78. 750 K=&H100:CALL K(F$)
  79. 760 PRINT:PRINT:PRINT:PRINT:PRINT"           PICTURE TRANSMITTED!"
  80. 770 KEY ON:END
  81. 780 DATA &h11,&h38,&hf0,&he0,&h00:REM Call sign array-5 bytes/line=40 pixels
  82. 790 DATA &h12,&h04,&h89,&h10,&h00:REM Array is 40 pixels wide and 7 pixels high
  83. 800 DATA &h14,&h04,&h89,&h00,&h00:REM These DATA write out K3BC. If you take
  84. 810 DATA &h18,&h18,&hf1,&h00,&h00:REM Each byte and write it out in binary form
  85. 820 DATA &h14,&h04,&h89,&h00,&h00:REM on a 40x7 cross-ruled paper,you can see
  86. 830 DATA &h12,&h04,&h89,&h10,&h00:REM the pattern. For example: &H11=00010001
  87. 840 DATA &h11,&h38,&hf0,&he0,&h00:REM &h73=01110011; and &hCE=11001110
  88. 1000  '                        SYSTEM CONFIGURATION
  89. 1010  '    xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  90. 1020 LT1=30270    'Line timing for different Modes-same as receive
  91. 1030 LT2=60540!
  92. 1040 LT3=38825!
  93. 1050 LT4=7294
  94. 1060 LT99=13500
  95. 1070 LT7=16795!
  96. 1080 LT77=16930
  97. 1090 LT5=42890!
  98. 1100 LT9=47959!
  99. 1110 LT6=4487
  100. 1120 LT8=15860
  101. 1130 GT=138       'Gross Timer-use same number as worked on receive program
  102. 1140 CO=1         'CO=1 connects COM1---CO=2 connects COM2
  103. 1150 DR$="d"      'Ramdisk drive designation-change letter between quotes
  104. 1160 TI=1         'Tone tick    TI=1 is ON     TI=2 is OFF
  105. 1170 SW=25        'Sync Window in microseconds--may need larger for slower PC's
  106. 1180 GOTO 40
  107.