home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9011b.d64 / spriteexpand.src (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.