home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_09_1986_Transactor_Publishing.d64 / timer64.pal (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  840b  |  52 lines
  1. 100 rem save"0:timer64.pal",8
  2. 110 rem time measurements from
  3. 120 rem 1 microsecond to 70 minutes
  4. 130 rem by zoltan szepesi
  5. 140 rem 2611 saybrook drive
  6. 150 rem pittsburgh,pa 15235
  7. 160 :
  8. 170 open 4,8,1,"0:timer64.obj"
  9. 180 sys(700)
  10. 190 .opt o4
  11. 200 *=$9f00
  12. 210 ;
  13. 220 talo  =$dd04    ; timer a
  14. 230 tblo  =$dd06    ; timer b
  15. 240 tcra  =$dd0e    ; control register a
  16. 250 tcrb  =$dd0f    ; control register b
  17. 260 time1 =*+$41
  18. 270 time2 =*+$42
  19. 280 time3 =*+$43
  20. 290 time4 =*+$44
  21. 300 ;
  22. 310 start = *
  23. 320 lda #$ff
  24. 330 sta talo
  25. 340 sta talo+1
  26. 350 sta tblo
  27. 360 sta tblo+1
  28. 370 lda #$41
  29. 380 sta tcrb
  30. 390 lda #1
  31. 400 sta tcra
  32. 410 rts
  33. 420 ;
  34. 430 .byt $ea, $ea, $ea
  35. 440 .byt $ea, $ea, $ea, $ea
  36. 450 ;
  37. 460 stop = *
  38. 470 lda #0
  39. 480 sta tcra
  40. 490 sta tcrb
  41. 500 lda talo
  42. 510 sta time1
  43. 520 lda talo+1
  44. 530 sta time2
  45. 540 lda tblo
  46. 550 sta time3
  47. 560 lda tblo+1
  48. 570 sta time4
  49. 580 rts
  50. 590 ;
  51. 600 .end
  52.