SPRITEEXPAND.SRC
FILE INFORMATION
FILENAME(S): SPRITEEXPAND.SRC
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-11-30 01:12:45
APPEARS ON: 1 disk(s)
FILE HASH
415685abb6abe2b8ceb170a37b5abd10142df8bfc6599d7fe9280a3f73c63b9b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10011 SEITE B | SPRITEEXPAND.SRC | PRG | BrainSkull, Sammlung, C64er, DuncanTwain | 7 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 E8 03 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D |..(...;---------| 00000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000020: 2D 2D 2D 2D 2D 2D 2D 2D 00 45 08 F2 03 3B 20 4D |--------.E...; M| 00000030: 55 4C 54 49 20 45 58 50 41 4E 44 45 44 20 53 50 |ULTI EXPANDED SP| 00000040: 52 49 54 45 53 00 4B 08 FC 03 3B 00 56 08 06 04 |RITES.K...;.V...| 00000050: AA 24 37 30 30 30 00 60 08 10 04 B7 49 4E 49 54 |.$7000.`....INIT| 00000060: 00 66 08 1A 04 3B 00 76 08 24 04 A4 4C 49 4E 45 |.f...;.v.$..LINE| 00000070: 3D 24 33 32 2B 32 00 88 08 2E 04 A4 45 58 50 54 |=$32+2......EXPT| 00000080: 41 42 3D 24 37 32 30 30 00 AF 08 38 04 3B 2D 2D |AB=$7200...8.;--| 00000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.| 000000B0: C7 08 42 04 49 4E 49 54 20 CA 23 24 46 46 3B 20 |..B.INIT .#$FF; | 000000C0: 53 50 52 49 54 45 53 00 DB 08 4C 04 20 D2 24 44 |SPRITES...L. .$D| 000000D0: 30 31 35 3B 20 53 45 54 5A 45 4E 00 E2 08 56 04 |015; SETZEN...V.| 000000E0: 20 E5 00 ED 08 60 04 20 C2 23 24 30 37 00 F8 08 | ....`. .#$07...| 000000F0: 6A 04 20 C3 23 24 30 30 00 03 09 74 04 20 CA 23 |j. .#$00...t. .#| 00000100: 24 34 38 00 0F 09 7E 04 20 D4 24 33 46 46 46 00 |$48...~. .$3FFF.| 00000110: 22 09 88 04 4C 4F 4F 50 30 20 D2 24 44 30 30 30 |"...LOOP0 .$D000| 00000120: 2C 59 00 29 09 92 04 20 DF 00 37 09 9C 04 20 CA |,Y.)... ..7... .| 00000130: 23 4C 49 4E 45 2B 32 00 45 09 A6 04 20 D2 24 44 |#LINE+2.E... .$D| 00000140: 30 30 31 2C 59 00 50 09 B0 04 20 CA 23 24 30 46 |001,Y.P... .#$0F| 00000150: 00 5E 09 BA 04 20 D2 24 44 30 32 37 2C 58 00 69 |.^... .$D027,X.i| 00000160: 09 C4 04 20 CA 23 24 38 30 00 77 09 CE 04 20 D2 |... .#$80.w... .| 00000170: 24 30 37 46 38 2C 58 00 7E 09 D8 04 20 E0 00 85 |$07F8,X.~... ...| 00000180: 09 E2 04 20 ED 00 8C 09 EC 04 20 ED 00 97 09 F6 |... ...... .....| 00000190: 04 20 C5 23 24 31 43 00 9E 09 00 05 20 EE 00 AA |. .#$1C..... ...| 000001A0: 09 0A 05 20 F0 4C 4F 4F 50 30 00 BB 09 14 05 20 |... .LOOP0..... | 000001B0: CA 23 25 31 30 30 30 30 30 30 30 00 C7 09 1E 05 |.#%10000000.....| 000001C0: 20 D2 24 44 30 31 30 00 CD 09 28 05 3B 00 D9 09 | .$D010...(.;...| 000001D0: 32 05 20 E8 3B 20 49 52 51 00 ED 09 3C 05 20 CA |2. .; IRQ...<. .| 000001E0: 23 4C 49 4E 45 3B 20 53 45 54 5A 45 4E 00 05 0A |#LINE; SETZEN...| 000001F0: 46 05 20 C2 23 3C 28 53 54 41 52 54 29 3B 20 28 |F. .#<(START); (| 00000200: 53 49 45 48 45 00 1D 0A 50 05 20 C3 23 3E 28 53 |SIEHE...P. .#>(S| 00000210: 54 41 52 54 29 3B 20 50 52 4F 46 49 2D 00 31 0A |TART); PROFI-.1.| 00000220: 5A 05 20 D2 24 44 30 31 32 3B 20 43 4F 52 4E 45 |Z. .$D012; CORNE| 00000230: 52 00 44 0A 64 05 20 D3 24 30 33 31 34 3B 20 36 |R.D.d. .$0314; 6| 00000240: 2F 39 30 29 00 50 0A 6E 05 20 D4 24 30 33 31 35 |/90).P.n. .$0315| 00000250: 00 5B 0A 78 05 20 CA 23 24 31 42 00 67 0A 82 05 |.[.x. .#$1B.g...| 00000260: 20 D2 24 44 30 31 31 00 72 0A 8C 05 20 CA 23 24 | .$D011.r... .#$| 00000270: 30 31 00 7E 0A 96 05 20 D2 24 44 30 31 41 00 89 |01.~... .$D01A..| 00000280: 0A A0 05 20 CA 23 24 37 46 00 95 0A AA 05 20 D2 |... .#$7F..... .| 00000290: 24 44 43 30 44 00 A1 0A B4 05 20 CA 24 44 43 30 |$DC0D..... .$DC0| 000002A0: 44 00 A8 0A BE 05 20 E7 00 B3 0A C8 05 53 42 20 |D..... ......SB | 000002B0: D5 53 42 00 DA 0A D2 05 3B 2D 2D 2D 2D 2D 2D 2D |.SB.....;-------| 000002C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000002D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 EA 0A DC 05 53 |----------.....S| 000002E0: 54 41 52 54 20 CA 23 24 30 31 00 F6 0A E6 05 20 |TART .#$01..... | 000002F0: D2 24 44 30 31 39 00 01 0B F0 05 20 C2 23 24 31 |.$D019..... .#$1| 00000300: 31 00 12 0B FA 05 57 4C 30 20 EE 3B 20 57 41 52 |1.....WL0 .; WAR| 00000310: 54 45 00 26 0B 04 06 20 F6 57 4C 30 3B 20 53 43 |TE.&... .WL0; SC| 00000320: 48 4C 45 49 46 45 00 30 0B 0E 06 20 CC 24 46 46 |HLEIFE.0... .$FF| 00000330: 00 37 0B 18 06 20 E4 00 3D 0B 22 06 3B 00 60 0B |.7... ..=.".;.`.| 00000340: 2C 06 20 C2 23 24 30 30 3B 20 5A 41 45 48 4C 45 |,. .#$00; ZAEHLE| 00000350: 52 20 49 4E 49 54 49 41 4C 49 53 49 45 52 45 4E |R INITIALISIEREN| 00000360: 00 86 0B 36 06 20 C3 23 24 30 30 3B 20 57 45 52 |...6. .#$00; WER| 00000370: 54 20 46 55 45 52 20 4B 45 49 4E 45 20 45 58 50 |T FUER KEINE EXP| 00000380: 41 4E 53 49 4F 4E 00 BD 0B 40 06 4C 4F 4F 50 31 |ANSION...@.LOOP1| 00000390: 20 D4 24 44 30 31 37 3B 20 57 45 52 54 20 46 55 | .$D017; WERT FU| 000003A0: 45 52 20 4B 45 49 4E 45 20 45 58 50 41 53 49 4F |ER KEINE EXPASIO| 000003B0: 4E 20 41 42 53 50 45 49 43 48 45 52 4E 00 C4 0B |N ABSPEICHERN...| 000003C0: 4A 06 20 E6 00 DA 0B 54 06 20 CA 24 44 30 31 32 |J. ....T. .$D012| 000003D0: 3B 20 5A 45 49 43 48 45 4E 2D 00 EB 0B 5E 06 20 |; ZEICHEN-...^. | 000003E0: D1 23 24 30 32 3B 20 53 41 54 5A 00 00 0C 68 06 |.#$02; SATZ...h.| 000003F0: 20 C6 23 24 30 37 3B 20 44 41 52 53 54 45 4C 4C | .#$07; DARSTELL| 00000400: 00 15 0C 72 06 20 CE 23 24 31 30 3B 20 55 4E 47 |...r. .#$10; UNG| 00000410: 20 56 45 52 2D 00 2A 0C 7C 06 20 D2 24 44 30 31 | VER-.*.|. .$D01| 00000420: 31 3B 20 48 49 4E 44 45 52 4E 00 4C 0C 86 06 20 |1; HINDERN.L... | 00000430: CC 24 46 46 3B 20 33 2A 33 20 54 41 4B 54 5A 59 |.$FF; 3*3 TAKTZY| 00000440: 4B 4C 45 4E 20 57 41 52 54 45 4E 2C 00 74 0C 90 |KLEN WARTEN,.t..| 00000450: 06 20 CC 24 46 46 3B 20 44 41 4D 49 54 20 49 4E |. .$FF; DAMIT IN| 00000460: 4E 45 52 48 41 4C 42 20 44 45 52 20 53 43 48 4C |NERHALB DER SCHL| 00000470: 45 49 46 45 00 A7 0C 9A 06 20 CC 24 46 46 3B 20 |EIFE..... .$FF; | 00000480: 34 34 20 54 41 4B 54 5A 59 4B 4C 45 4E 20 28 36 |44 TAKTZYKLEN (6| 00000490: 33 2D 31 39 29 20 56 45 52 42 52 41 55 43 48 54 |3-19) VERBRAUCHT| 000004A0: 20 57 45 52 44 45 4E 00 D4 0C A4 06 20 CA 45 58 | WERDEN..... .EX| 000004B0: 50 54 41 42 2C 58 3B 20 57 45 52 54 20 46 55 45 |PTAB,X; WERT FUE| 000004C0: 52 20 45 58 50 41 4E 53 49 4F 4E 20 41 55 53 4C |R EXPANSION AUSL| 000004D0: 45 53 45 4E 00 EF 0C AE 06 20 D2 24 44 30 31 37 |ESEN..... .$D017| 000004E0: 3B 20 55 4E 44 20 53 50 45 49 43 48 45 52 4E 00 |; UND SPEICHERN.| 000004F0: F6 0C B8 06 20 EF 00 01 0D C2 06 20 C0 23 24 36 |.... ...... .#$6| 00000500: 38 00 0D 0D CC 06 20 F6 4C 4F 4F 50 31 00 13 0D |8..... .LOOP1...| 00000510: D6 06 3B 00 25 0D E0 06 20 CA 23 24 31 42 3B 20 |..;.%... .#$1B; | 00000520: 24 44 30 31 31 00 3F 0D EA 06 20 D2 24 44 30 31 |$D011.?... .$D01| 00000530: 31 3B 5A 55 52 55 45 43 4B 53 45 54 5A 45 4E 00 |1;ZURUECKSETZEN.| 00000540: 4A 0D F4 06 20 D6 4D 4F 56 45 00 63 0D FE 06 20 |J... .MOVE.c... | 00000550: D5 24 46 45 42 43 3B 20 49 52 51 20 42 45 45 4E |.$FEBC; IRQ BEEN| 00000560: 44 45 4E 00 8A 0D 08 07 3B 2D 2D 2D 2D 2D 2D 2D |DEN.....;-------| 00000570: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000580: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 AC 0D 12 07 4D |----------.....M| 00000590: 4F 56 45 20 C2 23 24 36 38 3B 20 45 58 50 41 4E |OVE .#$68; EXPAN| 000005A0: 53 49 4F 4E 53 54 41 42 45 4C 4C 45 00 C7 0D 1C |SIONSTABELLE....| 000005B0: 07 20 CA 23 24 46 46 3B 20 49 4E 49 54 49 41 4C |. .#$FF; INITIAL| 000005C0: 49 53 49 45 52 45 4E 00 DA 0D 26 07 4C 52 20 D2 |ISIEREN...&.LR .| 000005D0: 45 58 50 54 41 42 2D 31 2C 58 00 E1 0D 30 07 20 |EXPTAB-1,X...0. | 000005E0: EE 00 EA 0D 3A 07 20 F6 4C 52 00 F0 0D 44 07 3B |....:. .LR...D.;| 000005F0: 00 06 0E 4E 07 20 C2 23 24 31 34 3B 20 32 30 20 |...N. .#$14; 20 | 00000600: 4E 55 4C 4C 45 4E 00 18 0E 58 07 4D 4F 44 43 20 |NULLEN...X.MODC | 00000610: C3 54 41 42 3B 20 49 4E 00 2B 0E 62 07 4C 4F 50 |.TAB; IN.+.b.LOP| 00000620: 20 CA 23 24 30 30 3B 20 44 49 45 00 4C 0E 6C 07 | .#$00; DIE.L.l.| 00000630: 20 D2 45 58 50 54 41 42 2C 59 3B 20 45 50 41 4E | .EXPTAB,Y; EPAN| 00000640: 53 49 4F 4E 53 54 41 42 45 4C 4C 45 00 5E 0E 76 |SIONSTABELLE.^.v| 00000650: 07 20 D9 3B 20 53 43 48 52 45 49 42 45 4E 00 6F |. .; SCHREIBEN.o| 00000660: 0E 80 07 4D 4F 44 44 20 C5 54 41 42 2C 58 3B 00 |...MODD .TAB,X;.| 00000670: 77 0E 8A 07 20 DA 3B 00 7F 0E 94 07 20 EE 3B 00 |w... .;..... .;.| 00000680: 8A 0E 9E 07 20 F6 4C 4F 50 3B 00 97 0E A8 07 20 |.... .LOP;..... | 00000690: C9 4D 4F 44 43 2B 31 00 A4 0E B2 07 20 C9 4D 4F |.MODC+1..... .MO| 000006A0: 44 44 2B 31 00 B1 0E BC 07 20 CA 4D 4F 44 43 2B |DD+1..... .MODC+| 000006B0: 31 00 BC 0E C6 07 20 C4 23 24 35 30 00 C7 0E D0 |1..... .#$50....| 000006C0: 07 20 F6 45 4E 44 44 00 D2 0E DA 07 20 CA 23 24 |. .ENDD..... .#$| 000006D0: 30 30 00 DF 0E E4 07 20 D2 4D 4F 44 43 2B 31 00 |00..... .MODC+1.| 000006E0: EC 0E EE 07 20 D2 4D 4F 44 44 2B 31 00 F7 0E F8 |.... .MODD+1....| 000006F0: 07 45 4E 44 44 20 E3 00 1E 0F 02 08 3B 2D 2D 2D |.ENDD ......;---| 00000700: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000710: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 29 |--------------.)| 00000720: 0F 0C 08 AA 24 37 31 30 30 00 66 0F 16 08 54 41 |....$7100.f...TA| 00000730: 42 20 A5 31 2C 31 2C 31 2C 31 2C 32 2C 32 2C 32 |B .1,1,1,1,2,2,2| 00000740: 2C 32 3B 54 41 42 45 4C 4C 45 20 4D 49 54 20 56 |,2;TABELLE MIT V| 00000750: 45 52 47 52 4F 45 53 53 45 52 55 4E 47 53 46 41 |ERGROESSERUNGSFA| 00000760: 4B 54 4F 52 45 4E 00 A0 0F 20 08 20 A5 33 2C 33 |KTOREN... . .3,3| 00000770: 2C 33 2C 33 2C 34 2C 34 2C 34 2C 34 2C 35 2C 35 |,3,3,4,4,4,4,5,5| 00000780: 2C 35 2C 35 3B 44 45 52 20 45 49 4E 5A 45 4C 4E |,5,5;DER EINZELN| 00000790: 45 4E 20 53 50 52 49 54 45 2D 5A 45 49 4C 45 4E |EN SPRITE-ZEILEN| 000007A0: 00 BE 0F 2A 08 20 A5 36 2C 36 2C 36 2C 36 2C 35 |...*. .6,6,6,6,5| 000007B0: 2C 35 2C 35 2C 35 2C 34 2C 34 2C 34 2C 34 00 DC |,5,5,5,4,4,4,4..| 000007C0: 0F 34 08 20 A5 33 2C 33 2C 33 2C 33 2C 32 2C 32 |.4. .3,3,3,3,2,2| 000007D0: 2C 32 2C 32 2C 31 2C 31 2C 31 2C 31 00 FA 0F 3E |,2,2,1,1,1,1...>| 000007E0: 08 20 A5 32 2C 32 2C 32 2C 32 2C 33 2C 33 2C 33 |. .2,2,2,2,3,3,3| 000007F0: 2C 33 2C 34 2C 34 2C 34 2C 34 00 18 10 48 08 20 |,3,4,4,4,4...H. | 00000800: A5 35 2C 35 2C 35 2C 35 2C 36 2C 36 2C 36 2C 36 |.5,5,5,5,6,6,6,6| 00000810: 2C 35 2C 35 2C 35 2C 35 00 36 10 52 08 20 A5 34 |,5,5,5,5.6.R. .4| 00000820: 2C 34 2C 34 2C 34 2C 33 2C 33 2C 33 2C 33 2C 32 |,4,4,4,3,3,3,3,2| 00000830: 2C 32 2C 32 2C 32 00 54 10 5C 08 20 A5 31 2C 31 |,2,2,2.T.\. .1,1| 00000840: 2C 31 2C 31 2C 32 2C 32 2C 32 2C 32 2C 33 2C 33 |,1,1,2,2,2,2,3,3| 00000850: 2C 33 2C 33 00 72 10 66 08 20 A5 34 2C 34 2C 34 |,3,3.r.f. .4,4,4| 00000860: 2C 34 2C 35 2C 35 2C 35 2C 35 2C 36 2C 36 2C 36 |,4,5,5,5,5,6,6,6| 00000870: 2C 36 00 90 10 70 08 20 A5 35 2C 35 2C 35 2C 35 |,6...p. .5,5,5,5| 00000880: 2C 34 2C 34 2C 34 2C 34 2C 33 2C 33 2C 33 2C 33 |,4,4,4,4,3,3,3,3| 00000890: 00 AE 10 7A 08 20 A5 32 2C 32 2C 32 2C 32 2C 31 |...z. .2,2,2,2,1| 000008A0: 2C 31 2C 31 2C 31 2C 32 2C 32 2C 32 2C 32 00 00 |,1,1,1,2,2,2,2..| 000008B0: 00 |. |
..(...;--------------------------------- .E...; MULTI EXPANDED SPRITES.K...;.V... .$7000.`....INIT.F...;.V.$..LINE=$32+2.. ....EXPTAB=$7200...8.;------------------ ---------------.G.B.INIT J#$FF; SPRITES. ..L. R$D015; SETZEN...V. ....`. B#$07... J. C#$00...T. J#$48...~. T$3FFF."...LOOP 0 R$D000,Y.)... ..7... J#LINE+2.E... R$D 001,Y.P... J#$0F.^... R$D027,X.I.D. J#$8 0.W.N. R$07F8,X.~.X. ...... ...... ..... . E#$1C..... ...... .LOOP0..... J#%10000 000.G... R$D010.M.(.;.Y.2. .; IRQ...<. J #LINE; SETZEN...F. B#<(START); (SIEHE... P. C#>(START); PROFI-.1.Z. R$D012; CORNE R.D.D. S$0314; 6/90).P.N. T$0315.[.X. J# $1B.G... R$D011.R... J#$01.~... R$D01A.. . . J#$7F..... R$DC0D..... J$DC0D..... . ...H.SB USB.Z.R.;----------------------- ----------.....START J#$01..... R$D019.. ... B#$11.....WL0 .; WARTE.&... .WL0; SC HLEIFE.0... L$FF.7... ..=.".;.`.,. B#$00 ; ZAEHLER INITIALISIEREN...6. C#$00; WER T FUER KEINE EXPANSION...@.LOOP1 T$D017; WERT FUER KEINE EXPASION ABSPEICHERN.D. J. ..Z.T. J$D012; ZEICHEN-...^. Q#$02; S ATZ...H. F#$07; DARSTELL...R. N#$10; UNG VER-.*.|. R$D011; HINDERN.L... L$FF; 3* 3 TAKTZYKLEN WARTEN,.T... L$FF; DAMIT IN NERHALB DER SCHLEIFE..... L$FF; 44 TAKTZ YKLEN (63-19) VERBRAUCHT WERDEN.T... JEX PTAB,X; WERT FUER EXPANSION AUSLESEN.... . R$D017; UND SPEICHERN..... ....B. .#$6 8...L. .LOOP1...V.;.%... J#$1B; $D011.?. .. R$D011;ZURUECKSETZEN.J... VMOVE.C... U$FEBC; IRQ BEENDEN.....;--------------- ------------------.....MOVE B#$68; EXPAN SIONSTABELLE.G... J#$FF; INITIALISIEREN. Z.&.LR REXPTAB-1,X...0. ....:. .LR...D.; ...N. B#$14; 20 NULLEN...X.MODC CTAB; IN .+.B.LOP J#$00; DIE.L.L. REXPTAB,Y; EPAN SIONSTABELLE.^.V. Y; SCHREIBEN.O...MODD ETAB,X;.W... Z;.... .;..... .LOP;..... IMODC+1..... IMODD+1..... JMODC+1...F. D #$50.G.P. .ENDD.R.Z. J#$00..... RMODC+1. .... RMODD+1.....ENDD ......;----------- ----------------------.)....$7100.F...TA B .1,1,1,1,2,2,2,2;TABELLE MIT VERGROESS ERUNGSFAKTOREN. . . .3,3,3,3,4,4,4,4,5,5 ,5,5;DER EINZELNEN SPRITE-ZEILEN...*. .6 ,6,6,6,5,5,5,5,4,4,4,4...4. .3,3,3,3,2,2 ,2,2,1,1,1,1...>. .2,2,2,2,3,3,3,3,4,4,4 ,4...H. .5,5,5,5,6,6,6,6,5,5,5,5.6.R. .4 ,4,4,4,3,3,3,3,2,2,2,2.T.\. .1,1,1,1,2,2 ,2,2,3,3,3,3.R.F. .4,4,4,4,5,5,5,5,6,6,6 ,6...P. .5,5,5,5,4,4,4,4,3,3,3,3...Z. .2 ,2,2,2,1,1,1,1,2,2,2,2...
> CLICK IMAGE PREVIEW FOR FULL MODAL