home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 March / 64er_Magazin_89-03_1989_Markt__Technik_de_Side_A.d64 / uhr.run (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  92 lines
  1. 10 m=200:d=50:e=14:z=-1:vn=z:print"* microcomp v1.0 *":print"code area: ";
  2. 15 dim l$(m),lv(m),c$(m),c(m),o$(m),p$(m),v$(d),w$(e),le(e),lx(e),x(e,30)
  3. 20 forn=0toe:readw$(n),le(n),lx(n):fori=0tolx(n):readx(n,i):nexti,n
  4. 30 vn=vn+1:readv$(vn):on-(v$(vn)<>"*=")goto30:read sa,vb,l$
  5. 35 z=z+1:l$(z)=l$:readc$(z),o$(z),p$(z):zm=z:readl$:on-(l$<>"_")goto35:ad=sa
  6. 50 printsa;"-";:forz=0tozm:lv(z)=ad:forn=0toe:ifc$(z)=w$(n)thenc(z)=n:ad=ad+le(n)
  7. 55 nextn,z:ce=ad:printce:ad=sa:forz=0tozm:c=c(z):v$=o$(z):gosub80:o(0)=v:v$=p$(z)
  8. 60 gosub80:o(2)=v:forn=0tolx(c):x=x(c,n):ifx>=0thenpokead,x:ad=ad+1:nextn,z:end
  9. 65 onxand4goto,,,75:j=int(o(xand2)/256):pokead,j:ifxand1thenpokead,o(xand2)-j*256
  10. 70 ad=ad+1:nextn,z:end
  11. 75 i=o(xand2)+(xand1):pokead+1,i/256:pokead,i-int(i/256)*256:ad=ad+2:nextn,z:end
  12. 80 v=val(v$):v=v-65536*(v<0):fori=0tovn-1:v=v-(v$=v$(i))*(2*i+vb-ce*(vb=0)):next
  13. 85 fori=0tozm:v=v-lv(i)*(v$=l$(i)):next:return
  14. 90 dataadd,19,12,24,173,-4,109,-2,141,-2,173,-3,109,-1,141,-1,sub,19,12,56,173,-2
  15. 91 data237,-4,141,-2,173,-1,237,-3,141,-1,move,12,7,173,-4,141,-2,173,-3,141,-1
  16. 92 datagoto,3,1,76,-4,if,11,7,173,-4,13,-3,240,3,76,-2,move#,10,7,169,-7,141,-2
  17. 93 data169,-8,141,-1,cmove,6,3,173,-4,141,-2,gosub,3,1,32,-4,return,1,0,96,setregs
  18. 94 data9,5,173,-4,174,-2,172,-1,cmove#,5,3,169,-7,141,-2,add#,17,12,24,169,-7,109
  19. 95 data-2,141,-2,169,-8,109,-1,141,-1,goto(),3,1,108,-4,cmove(),26,21,173,-4,133,34
  20. 96 data173,-3,133,35,173,-2,133,36,173,-1,133,37,160,0,177,34,145,36,word,2,0,-4
  21. 100 rem uhr
  22. 110 data a,c,i,aptr,cptr
  23. 120 data todptr,contirq
  24. 130 data *=,49152,0
  25. 190 data       ,gosub,44797,
  26. 200 data       ,cmove#,128,56590
  27. 210 data       ,cmove#,0,56591
  28. 220 data       ,gosub,57943,
  29. 230 data       ,move#,0,c
  30. 240 data       ,cmove,183,c
  31. 250 data       ,add#,-6,c
  32. 260 data       ,if,c,exit
  33. 270 data       ,move#,c,cptr
  34. 272 data       ,move#,a,aptr
  35. 274 data       ,move#,56587,todptr
  36. 278 data       ,move#,3,i
  37. 280 data loop1,cmove(),187,cptr
  38. 285 data       ,move,c,a
  39. 290 data       ,gosub,a=16*a,
  40. 295 data       ,add#,1,187
  41. 300 data       ,cmove(),187,cptr
  42. 305 data       ,add#,-48,c
  43. 310 data       ,add,c,a
  44. 320 data       ,cmove(),aptr,todptr
  45. 330 data       ,move#,0,c
  46. 340 data       ,add#,1,187
  47. 350 data       ,add#,-1,todptr
  48. 360 data       ,add#,-1,i
  49. 370 data       ,if,i,loop1
  50. 375 data       ,cmove#,0,56584
  51. 377 data       ,cmove,56584,c
  52. 380 data       ,gosub,sei,
  53. 390 data       ,move,788,contirq
  54. 400 data       ,move#,irqrout,788
  55. 410 data       ,gosub,cli,
  56. 420 data exit,return,,
  57. 490 rem
  58. 500 data a=16*a,add,a,a
  59. 510 data       ,add,a,a
  60. 520 data       ,add,a,a
  61. 530 data       ,add,a,a
  62. 540 data       ,return,,
  63. 550 rem
  64. 560 data sei,word,24696,
  65. 570 data cli,word,24664,
  66. 590 rem
  67. 600 data irqrout,move#,0,c
  68. 610 data       ,cmove,56587,c
  69. 620 data       ,gosub,toscrn,
  70. 630 data       ,move,245,1058
  71. 640 data       ,cmove,56586,c
  72. 650 data       ,gosub,toscrn,
  73. 660 data       ,move,245,1060
  74. 670 data       ,cmove,56585,c
  75. 680 data       ,gosub,toscrn,
  76. 690 data       ,move,245,1062
  77. 700 data       ,cmove,56584,c
  78. 710 data       ,goto(),contirq,
  79. 790 rem
  80. 800 data toscrn,move,c,a
  81. 810 data       ,gosub,a=16*a,
  82. 820 data       ,move,a,245
  83. 830 data       ,cmove,246,245
  84. 840 data       ,cmove#,0,246
  85. 850 data       ,move,245,a
  86. 860 data       ,gosub,a=16*a,
  87. 870 data       ,sub,a,c
  88. 880 data       ,cmove,c,246
  89. 890 data       ,add#,12336,245
  90. 900 data       ,return,,
  91. 1000 data _
  92.