home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 March / 64er_Magazin_89-03_1989_Markt__Technik_de_Side_A.d64 / uhr.lst (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  72 lines
  1. 100 rem uhr
  2. 110 data a,c,i,aptr,cptr
  3. 120 data todptr,contirq
  4. 130 data *=,49152,0
  5. 190 data       ,gosub,44797,
  6. 200 data       ,cmove#,128,56590
  7. 210 data       ,cmove#,0,56591
  8. 220 data       ,gosub,57943,
  9. 230 data       ,move#,0,c
  10. 240 data       ,cmove,183,c
  11. 250 data       ,add#,-6,c
  12. 260 data       ,if,c,exit
  13. 270 data       ,move#,c,cptr
  14. 272 data       ,move#,a,aptr
  15. 274 data       ,move#,56587,todptr
  16. 278 data       ,move#,3,i
  17. 280 data loop1,cmove(),187,cptr
  18. 285 data       ,move,c,a
  19. 290 data       ,gosub,a=16*a,
  20. 295 data       ,add#,1,187
  21. 300 data       ,cmove(),187,cptr
  22. 305 data       ,add#,-48,c
  23. 310 data       ,add,c,a
  24. 320 data       ,cmove(),aptr,todptr
  25. 330 data       ,move#,0,c
  26. 340 data       ,add#,1,187
  27. 350 data       ,add#,-1,todptr
  28. 360 data       ,add#,-1,i
  29. 370 data       ,if,i,loop1
  30. 375 data       ,cmove#,0,56584
  31. 377 data       ,cmove,56584,c
  32. 380 data       ,gosub,sei,
  33. 390 data       ,move,788,contirq
  34. 400 data       ,move#,irqrout,788
  35. 410 data       ,gosub,cli,
  36. 420 data exit,return,,
  37. 490 rem
  38. 500 data a=16*a,add,a,a
  39. 510 data       ,add,a,a
  40. 520 data       ,add,a,a
  41. 530 data       ,add,a,a
  42. 540 data       ,return,,
  43. 550 rem
  44. 560 data sei,word,24696,
  45. 570 data cli,word,24664,
  46. 590 rem
  47. 600 data irqrout,move#,0,c
  48. 610 data       ,cmove,56587,c
  49. 620 data       ,gosub,toscrn,
  50. 630 data       ,move,245,1058
  51. 640 data       ,cmove,56586,c
  52. 650 data       ,gosub,toscrn,
  53. 660 data       ,move,245,1060
  54. 670 data       ,cmove,56585,c
  55. 680 data       ,gosub,toscrn,
  56. 690 data       ,move,245,1062
  57. 700 data       ,cmove,56584,c
  58. 710 data       ,goto(),contirq,
  59. 790 rem
  60. 800 data toscrn,move,c,a
  61. 810 data       ,gosub,a=16*a,
  62. 820 data       ,move,a,245
  63. 830 data       ,cmove,246,245
  64. 840 data       ,cmove#,0,246
  65. 850 data       ,move,245,a
  66. 860 data       ,gosub,a=16*a,
  67. 870 data       ,sub,a,c
  68. 880 data       ,cmove,c,246
  69. 890 data       ,add#,12336,245
  70. 900 data       ,return,,
  71. 1000 data _
  72.