home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / maxfltr1 / pr1.bas < prev    next >
Encoding:
BASIC Source File  |  1988-08-03  |  1.3 KB  |  50 lines
  1. 10  PRINT "PRINTER PORT ADDRESS FOR LPT1: "
  2. 20  PRINT "          3BC  ( PORT ON DISPLAY ADAPTER )     =0 "
  3. 30  PRINT "          378  ( PORT NOT ON DISPLAY ADAPTER ) =1 ";
  4. 40  INPUT P : IF P>2 OR P<0 THEN 10 
  5. 50  IF P=0 THEN PORT=956   ELSE PORT=888 ' SET PORT ADDRESS
  6. 60  FOR CHIP=1 TO 2
  7. 70  PRINT "CHIP # ";CHIP
  8. 80  AB$="FILTER A "
  9. 90  GOSUB 180 : REM GET DATA FOR SECTION A 
  10. 100 ADD=0     : REM FILTER A ADDRESS
  11. 110 GOSUB 290 : REM WRITE DATA TO THE PRINTER PORT   
  12. 120 AB$="FILTER B "
  13. 130 GOSUB 180 : REM GET DATA FOR SECTION B 
  14. 140 ADD=32    : REM FILTER B ADDRESS
  15. 150 GOSUB 290 : REM WRITE DATA TO THE PRINTER PORT
  16. 160 NEXT
  17. 170 GOTO 60
  18. 180 PRINT "MODE (1 TO 4, SEE TABLE 5) "; AB$; 
  19. 190 INPUT M
  20. 200 IF M<1 OR M>4 THEN 180
  21. 210 PRINT "CLOCK RATIO (0 TO 63, N OF TABLE 2) "; AB$;
  22. 220 INPUT F
  23. 230 IF F<0 OR F>63 THEN 210
  24. 240 PRINT "Q (0 TO 127, N OF TABLE 3) "; AB$; 
  25. 250 INPUT Q
  26. 260 IF Q<0 OR Q>127 THEN 240 
  27. 270 PRINT
  28. 280 RETURN
  29. 290 X=(ADD+M-1) 
  30. 300 GOSUB 450
  31. 310 ADD=ADD+4
  32. 320 FOR I=1 TO 3 
  33. 330 X=ADD+(F-4*INT(F/4))
  34. 340 GOSUB 450
  35. 350 F=INT(F/4)
  36. 360 ADD=ADD+4
  37. 370 NEXT I
  38. 380 FOR I=1 TO 4 
  39. 390 X=ADD+(Q-4*INT(Q/4))
  40. 400 GOSUB 450
  41. 410 Q=INT(Q/4) 
  42. 420 ADD=ADD+4
  43. 430 NEXT I
  44. 440 RETURN
  45. 450 '>>>>>>>  OUTPUT  <<<<<<<<<<<<
  46. 460 OUT PORT,X
  47. 470 OUT PORT+2,CHIP
  48. 480 OUT PORT+2,0
  49. 490 RETURN
  50.