home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 November / 64er_Magazin_90-11_1990_Markt__Technik_de_Side_B.d64 / spriteexpand.src (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  119 lines
  1. 1000 ;---------------------------------
  2. 1010 ; multi expanded sprites
  3. 1020 ;
  4. 1030 +$7000
  5. 1040 usrinit
  6. 1050 ;
  7. 1060 toline=$32+2
  8. 1070 toexptab=$7200
  9. 1080 ;---------------------------------
  10. 1090 init mid$#$ff; sprites
  11. 1100  (NULL)$d015; setzen
  12. 1110  (NULL)
  13. 1120  peek#$07
  14. 1130  len#$00
  15. 1140  mid$#$48
  16. 1150  (NULL)$3fff
  17. 1160 loop0 (NULL)$d000,y
  18. 1170  (NULL)
  19. 1180  mid$#line+2
  20. 1190  (NULL)$d001,y
  21. 1200  mid$#$0f
  22. 1210  (NULL)$d027,x
  23. 1220  mid$#$80
  24. 1230  (NULL)$07f8,x
  25. 1240  (NULL)
  26. 1250  (NULL)
  27. 1260  (NULL)
  28. 1270  val#$1c
  29. 1280  (NULL)
  30. 1290  (NULL)loop0
  31. 1300  mid$#%10000000
  32. 1310  (NULL)$d010
  33. 1320 ;
  34. 1330  (NULL); irq
  35. 1340  mid$#line; setzen
  36. 1350  peek#<(start); (siehe
  37. 1360  len#>(start); profi-
  38. 1370  (NULL)$d012; corner
  39. 1380  (NULL)$0314; 6/90)
  40. 1390  (NULL)$0315
  41. 1400  mid$#$1b
  42. 1410  (NULL)$d011
  43. 1420  mid$#$01
  44. 1430  (NULL)$d01a
  45. 1440  mid$#$7f
  46. 1450  (NULL)$dc0d
  47. 1460  mid$$dc0d
  48. 1470  (NULL)
  49. 1480 sb (NULL)sb
  50. 1490 ;---------------------------------
  51. 1500 start mid$#$01
  52. 1510  (NULL)$d019
  53. 1520  peek#$11
  54. 1530 wl0 (NULL); warte
  55. 1540  (NULL)wl0; schleife
  56. 1550  (NULL)$ff
  57. 1560  (NULL)
  58. 1570 ;
  59. 1580  peek#$00; zaehler initialisieren
  60. 1590  len#$00; wert fuer keine expansion
  61. 1600 loop1 (NULL)$d017; wert fuer keine expasion abspeichern
  62. 1610  (NULL)
  63. 1620  mid$$d012; zeichen-
  64. 1630  (NULL)#$02; satz
  65. 1640  asc#$07; darstell
  66. 1650  (NULL)#$10; ung ver-
  67. 1660  (NULL)$d011; hindern
  68. 1670  (NULL)$ff; 3*3 taktzyklen warten,
  69. 1680  (NULL)$ff; damit innerhalb der schleife
  70. 1690  (NULL)$ff; 44 taktzyklen (63-19) verbraucht werden
  71. 1700  mid$exptab,x; wert fuer expansion auslesen
  72. 1710  (NULL)$d017; und speichern
  73. 1720  (NULL)
  74. 1730  tan#$68
  75. 1740  (NULL)loop1
  76. 1750 ;
  77. 1760  mid$#$1b; $d011
  78. 1770  (NULL)$d011;zuruecksetzen
  79. 1780  (NULL)move
  80. 1790  (NULL)$febc; irq beenden
  81. 1800 ;---------------------------------
  82. 1810 move peek#$68; expansionstabelle
  83. 1820  mid$#$ff; initialisieren
  84. 1830 lr (NULL)exptab-1,x
  85. 1840  (NULL)
  86. 1850  (NULL)lr
  87. 1860 ;
  88. 1870  peek#$14; 20 nullen
  89. 1880 modc lentab; in
  90. 1890 lop mid$#$00; die
  91. 1900  (NULL)exptab,y; epansionstabelle
  92. 1910  (NULL); schreiben
  93. 1920 modd valtab,x;
  94. 1930  (NULL);
  95. 1940  (NULL);
  96. 1950  (NULL)lop;
  97. 1960  right$modc+1
  98. 1970  right$modd+1
  99. 1980  mid$modc+1
  100. 1990  str$#$50
  101. 2000  (NULL)endd
  102. 2010  mid$#$00
  103. 2020  (NULL)modc+1
  104. 2030  (NULL)modd+1
  105. 2040 endd (NULL)
  106. 2050 ;---------------------------------
  107. 2060 +$7100
  108. 2070 tab fn1,1,1,1,2,2,2,2;tabelle mit vergroesserungsfaktoren
  109. 2080  fn3,3,3,3,4,4,4,4,5,5,5,5;der einzelnen sprite-zeilen
  110. 2090  fn6,6,6,6,5,5,5,5,4,4,4,4
  111. 2100  fn3,3,3,3,2,2,2,2,1,1,1,1
  112. 2110  fn2,2,2,2,3,3,3,3,4,4,4,4
  113. 2120  fn5,5,5,5,6,6,6,6,5,5,5,5
  114. 2130  fn4,4,4,4,3,3,3,3,2,2,2,2
  115. 2140  fn1,1,1,1,2,2,2,2,3,3,3,3
  116. 2150  fn4,4,4,4,5,5,5,5,6,6,6,6
  117. 2160  fn5,5,5,5,4,4,4,4,3,3,3,3
  118. 2170  fn2,2,2,2,1,1,1,1,2,2,2,2
  119.