home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 1 / 64er_Magazin_Sonderheft_01_86-01_19xx_Markt__Technik_de.d64 / fast64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  78 lines
  1. 10 rem fast64 v19-10-85
  2. 20 rem von andreas zeller, hanau
  3. 30 :
  4. 40 rem aufgabe: 128er im 64er-modus
  5. 50 rem          um 35% beschleunigen.
  6. 60 :
  7. 70 rem durch aendern der zeile 170
  8. 80 rem kann das programm in beliebige
  9. 90 rem bereiche gelegt werden.
  10. 100 :
  11. 110 rem wenn das programm zusammen mit
  12. 120 rem "keys128" laufen soll, muss
  13. 130 rem folgende zeile eingefuegt werden:
  14. 140 rem 395 poke code+110,44
  15. 150 :
  16. 160 :
  17. 170 code=49440:rem startadresse
  18. 180 :
  19. 190 poke53265,11:poke53296,1
  20. 200 :
  21. 210 dim p(6):forj=0to6:readp:p(j)=code+p:next
  22. 220 :
  23. 230 data 0,110,159,216,217,218,219
  24. 240 :
  25. 250 fori=0to219:readx$
  26. 260 :
  27. 270 rem umwandlung adressen
  28. 280 a$=right$(x$,1):b$=left$(x$,1)
  29. 290 ifa$="+"thenp=p(asc(b$)-65):x=p/256:goto360
  30. 300 ifa$="-"thenp=p(asc(b$)-65):x=(p/256-int(p/256))*256:goto360
  31. 310 :
  32. 320 rem umwandlung hex => dec
  33. 330 :
  34. 340 x=asc(a$)+(a$>"@")*55+(a$<":")*48
  35. 350 x=x+(asc(b$)+(b$>"@")*55+(b$<":")*48)*16
  36. 360 pokecode+i,x:next
  37. 370 :
  38. 380 poke53296,0:poke53265,27
  39. 390 :
  40. 400 print">das programm benutzt den bereich"
  41. 410 print" von"code"-"code+219"."
  42. 420 print
  43. 430 print">schnell mit: sys"code";"
  44. 440 print"  normal mit: sys"code+116"."
  45. 450 :
  46. 460 end
  47. 470 :
  48. 480 :
  49. 490 :
  50. 1000 data  08,48,78,ad,14,03,c9,c-
  51. 1010 data  ad,15,03,e9,c+,f0,0c,ad
  52. 1020 data  14,03,8d,d-,d+,ad,15,03
  53. 1030 data  8d,e-,e+,ad,02,03,c9,b-
  54. 1040 data  ad,03,03,e9,b+,f0,0c,ad
  55. 1050 data  02,03,8d,f-,f+,ad,03,03
  56. 1060 data  8d,g-,g+,a9,c-,8d,14,03
  57. 1070 data  a9,c+,8d,15,03,a9,b-,8d
  58. 1080 data  02,03,a9,b+,8d,03,03,a9
  59. 1090 data  00,8d,30,d0,ad,12,d0,d0
  60. 1100 data  fb,a9,31,8d,12,d0,ad,11
  61. 1110 data  d0,29,7f,8d,11,d0,a9,01
  62. 1120 data  8d,30,d0,ad,1a,d0,09,01
  63. 1130 data  8d,1a,d0,68,28,60,20,a-
  64. 1140 data  a+,6c,f-,f+,08,48,78,ad
  65. 1150 data  1a,d0,29,fe,8d,1a,d0,a9
  66. 1160 data  00,8d,30,d0,ad,d-,d+,8d
  67. 1170 data  14,03,ad,e-,e+,8d,15,03
  68. 1180 data  ad,f-,f+,8d,02,03,ad,g-
  69. 1190 data  g+,8d,03,03,68,28,60,ac
  70. 1200 data  19,d0,30,07,ad,0d,dc,58
  71. 1210 data  6c,d-,d+,98,4a,90,f9,8c
  72. 1220 data  19,d0,ad,30,d0,49,01,8d
  73. 1230 data  30,d0,4a,b0,03,a9,fa,2c
  74. 1240 data  a9,31,8d,12,d0,68,a8,ba
  75. 1250 data  bd,04,01,d0,03,de,05,01
  76. 1260 data  de,04,01,68,aa,68,28,60
  77. 1270 data  31,ea,83,a4
  78.