home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh13a.d64 / frequenzmessung (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.