home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 13 / 64er_Magazin_Sonderheft_13_19xx_Markt__Technik_de_Side_A.d64 / frequenzmessung (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  64 lines
  1. 50 ifpeek(52000)<>120thenload"messroutine",8,1
  2. 60 poke45,100:poke46,20:clr
  3. 100 o2=985248:rem systemtakt
  4. 110 ta=61578:rem 1/16 systemtakt  =$f08a
  5. 120 f$="      frequenz :":h$=" hz  "
  6. 130 f1$="         ****  full  ***         "
  7. 160 t1=138:t2=240:rem lo hi timer a
  8. 170 t3=16:t4=0
  9. 180 cn=52000:fu=708:rem obj-routine
  10. 190 dimtb(32),t1(16),t2(16),t3(16),t4(16)
  11. 250 gosub2000
  12. 300 gosub1000
  13. 499 rem *** messen ***
  14. 500 poke704,t1:poke705,t2:poke706,t3:poke707,t4
  15. 510 syscn
  16. 520 if peek(fu)<>255 then printf1$:goto770
  17. 530 pu=65535-(peek(704)+256*peek(705))
  18. 540 fr=pu/tb
  19. 570 printf$fr;h$;
  20. 770 ifpeek(653)then300
  21. 780 goto500
  22. 999 stop
  23. 1000 print"[147]"
  24. 1010 print"      f r e q u e n z m e s s e r"
  25. 1015 print"    programmed by  bha  (c) 12.4.85"
  26. 1020 print"   torzeit:"
  27. 1100 print" a) 1/128 sec    maximal 65535 zyklen"
  28. 1110 print" b) 1/64  sec"
  29. 1120 print" c) 1/32  sec    werden in der torzeit"
  30. 1130 print" d) 1/16  sec"
  31. 1140 print" e) 1/8   sec    gezaehlt!
  32. 1150 [153]" f) 1/4   sec"
  33. 1160 [153]" g) 1/2   sec"
  34. 1180 [153]" h) 1 ----sec"
  35. 1190 [153]" i) 2     sec"
  36. 1200 [153]" j) 4     sec"
  37. 1210 [153]" k) 8     sec"
  38. 1220 [153]" l) 16    sec"
  39. 1230 [153]" m) 32    sec"
  40. 1240 [153]" n) 64    sec"
  41. 1250 [153]" o) 128   sec"
  42. 1300 [161]q$:[139]q$[178]""[167]1300
  43. 1310 q[178][198](q$)[171]65:[139]q[179]0[176]q[177]14[167]1300
  44. 1320 tb[178]tb(q):t1[178]t1(q):t2[178]t2(q):t3[178]t3(q):t4[178]t4(q)
  45. 1330 [153]"  *** zum aendern 'shift' druecken ***";
  46. 1399 [142]
  47. 2000 [129]s[178]0[164]14:[135]tb(s),t1(s),t2(s),t3(s),t4(s):[130]
  48. 2599 [142]
  49. 10080 [131].0078125,17,30,0,0   :[143] .125 mal
  50. 10090 [131].015625,17,060,0,0   :[143] .25 mal
  51. 10100 [131].03125,069,120,0,0   :[143] .5 mal
  52. 10110 [131].0625,138,240,0,0   :[143] 1 mal
  53. 10120 [131].125 ,138,240,1,0   :[143] 2 mal
  54. 10130 [131].25  ,138,240,3,0   :[143] 4 mal
  55. 10140 [131].5   ,138,240,7,0   :[143] 8 mal
  56. 10150 [131]1    ,138,240,15,0  :[143] 16 mal
  57. 10160 [131]2    ,138,240,31,0  :[143] 32 mal
  58. 10170 [131]4    ,138,240,63,0  :[143] 64 mal
  59. 10180 [131]8    ,138,240,127,0 :[143] 128 mal
  60. 10190 [131]16   ,138,240,255,0 :[143] 256 mal
  61. 10200 [131]32   ,138,240,255,1 :[143] 512 mal
  62. 10210 [131]64   ,138,240,255,2 :[143] 1024 mal
  63. 10220 [131]128  ,138,240,255,4 :[143] 2048 mal
  64.