SOURCE 2.HA

FILE INFORMATION

FILENAME(S): SOURCE 2.HA

FILE TYPE(S): PRG

FILE SIZE: 2.5K

FIRST SEEN: 2025-11-30 21:12:38

APPEARS ON: 1 disk(s)

FILE HASH

9e2dbd1661c3102543c4f5c83adb7659c2da0f9e6627d6da97ff84db0d33ec03

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
64 ER 04 95	SOURCE 2.HA	PRG	DuncanTwain	19	17	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 14 2D 2C 2D 01 00 3B 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.-,-..;*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A  2A 00 44 2D 02 00 3B 2A  |*********.D-..;*|
00000020: 20 53 50 52 49 54 45 53  43 52 4F 4C 4C 45 52 20  | SPRITESCROLLER |
00000030: 2A 00 5C 2D 03 00 3B 2A  28 57 29 20 42 59 20 4D  |*.\-..;*(W) BY M|
00000040: 48 46 20 4F 46 20 41 44  2A 00 74 2D 04 00 3B 2A  |HF OF AD*.t-..;*|
00000050: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000060: 2A 00 89 2D 0A 00 20 2E  45 51 53 43 52 52 45 47  |*..-.. .EQSCRREG|
00000070: 3D 24 43 45 46 30 00 9F  2D 0B 00 20 2E 45 51 5A  |=$CEF0..-.. .EQZ|
00000080: 41 45 48 4C 45 52 3D 24  43 45 46 31 00 AE 2D 0C  |AEHLER=$CEF1..-.|
00000090: 00 20 2E 45 51 5A 32 3D  24 46 42 00 BD 2D 0D 00  |. .EQZ2=$FB..-..|
000000A0: 20 2E 45 51 5A 31 3D 24  46 43 00 D0 2D 0E 00 20  | .EQZ1=$FC..-.. |
000000B0: 2E 45 51 53 50 52 5A 3D  24 43 45 46 32 00 E4 2D  |.EQSPRZ=$CEF2..-|
000000C0: 0F 00 20 2E 45 51 53 50  52 5A 32 3D 24 43 45 46  |.. .EQSPRZ2=$CEF|
000000D0: 33 00 F2 2D 10 00 20 2E  42 41 24 37 30 30 30 00  |3..-.. .BA$7000.|
000000E0: 09 2E 64 00 4D 41 49 4E  50 52 47 20 4A 53 52 49  |..d.MAINPRG JSRI|
000000F0: 4E 49 54 41 4C 4C 00 12  2E 6E 00 20 53 45 49 00  |NITALL...n. SEI.|
00000100: 21 2E 78 00 54 36 20 4C  44 41 23 24 30 30 00 31  |!.x.T6 LDA#$00.1|
00000110: 2E 82 00 54 35 20 43 4D  50 24 44 30 31 32 00 3C  |...T5 CMP$D012.<|
00000120: 2E 8C 00 20 42 4E 45 54  35 00 4E 2E 96 00 20 4A  |... BNET5.N... J|
00000130: 53 52 53 50 52 53 43 52  4F 4C 4C 00 5C 2E 97 00  |SRSPRSCROLL.\...|
00000140: 20 4A 53 52 53 49 4E 55  53 00 67 2E A0 00 20 4A  | JSRSINUS.g... J|
00000150: 4D 50 54 36 00 98 2E C8  00 3B 48 49 45 52 20 42  |MPT6.....;HIER B|
00000160: 45 47 49 4E 4E 54 20 44  45 52 20 45 49 47 45 4E  |EGINNT DER EIGEN|
00000170: 54 4C 49 43 48 45 20 53  50 52 49 54 45 53 43 52  |TLICHE SPRITESCR|
00000180: 4F 4C 4C 45 52 00 B3 2E  2C 01 53 50 52 53 43 52  |OLLER...,.SPRSCR|
00000190: 4F 4C 4C 20 4C 44 58 23  24 30 30 3B 48 49 45 52  |OLL LDX#$00;HIER|
000001A0: 00 CC 2E 36 01 54 31 20  52 4F 4C 24 34 30 30 30  |...6.T1 ROL$4000|
000001B0: 2C 58 3B 57 45 52 44 45  4E 00 E0 2E 40 01 20 52  |,X;WERDEN...@. R|
000001C0: 4F 4C 24 33 46 43 32 2C  58 3B 44 49 45 00 F8 2E  |OL$3FC2,X;DIE...|
000001D0: 4A 01 20 52 4F 4C 24 33  46 43 31 2C 58 3B 53 50  |J. ROL$3FC1,X;SP|
000001E0: 52 49 54 45 53 00 0D 2F  54 01 20 52 4F 4C 24 33  |RITES../T. ROL$3|
000001F0: 46 43 30 2C 58 3B 4E 41  43 48 00 23 2F 5E 01 20  |FC0,X;NACH.#/^. |
00000200: 52 4F 4C 24 33 46 38 32  2C 58 3B 4C 49 4E 4B 53  |ROL$3F82,X;LINKS|
00000210: 00 37 2F 68 01 20 52 4F  4C 24 33 46 38 31 2C 58  |.7/h. ROL$3F81,X|
00000220: 3B 47 45 2D 00 4F 2F 72  01 20 52 4F 4C 24 33 46  |;GE-.O/r. ROL$3F|
00000230: 38 30 2C 58 3B 53 43 52  4F 4C 4C 54 00 65 2F 7C  |80,X;SCROLLT.e/||
00000240: 01 20 52 4F 4C 24 33 46  34 32 2C 58 3B 37 2E 42  |. ROL$3F42,X;7.B|
00000250: 49 54 00 79 2F 86 01 20  52 4F 4C 24 33 46 34 31  |IT.y/.. ROL$3F41|
00000260: 2C 58 3B 49 4E 53 00 92  2F 90 01 20 52 4F 4C 24  |,X;INS../.. ROL$|
00000270: 33 46 34 30 2C 58 3B 43  41 52 52 59 46 4C 2E 00  |3F40,X;CARRYFL..|
00000280: 9F 2F 9A 01 20 49 4E 58  3B 55 4E 44 00 AD 2F A4  |./.. INX;UND../.|
00000290: 01 20 49 4E 58 3B 44 41  4E 4E 00 BA 2F AE 01 20  |. INX;DANN../.. |
000002A0: 49 4E 58 3B 49 4E 53 00  CD 2F B8 01 20 43 50 58  |INX;INS../.. CPX|
000002B0: 23 24 31 38 3B 30 2E 42  49 54 00 ED 2F C2 01 20  |#$18;0.BIT../.. |
000002C0: 42 4E 45 54 31 3B 44 45  53 20 4E 41 45 43 48 53  |BNET1;DES NAECHS|
000002D0: 54 45 4E 20 57 45 52 54  45 53 00 FD 2F CC 01 20  |TEN WERTES../.. |
000002E0: 4A 53 52 4E 45 57 43 48  41 52 00 06 30 D6 01 20  |JSRNEWCHAR..0.. |
000002F0: 52 54 53 00 31 30 E0 01  4E 45 57 43 48 41 52 20  |RTS.10..NEWCHAR |
00000300: 4C 44 58 53 43 52 52 45  47 3B 54 45 53 54 45 4E  |LDXSCRREG;TESTEN|
00000310: 20 4F 42 20 41 4C 4C 45  20 38 42 49 54 53 00 52  | OB ALLE 8BITS.R|
00000320: 30 EA 01 20 43 50 58 23  24 30 30 3B 44 45 53 20  |0.. CPX#$00;DES |
00000330: 43 48 41 52 53 20 47 45  53 43 52 4F 4C 4C 54 00  |CHARS GESCROLLT.|
00000340: 70 30 F4 01 20 42 45 51  54 32 3B 57 45 4E 4E 20  |p0.. BEQT2;WENN |
00000350: 4A 41 20 44 41 4E 4E 20  5A 55 20 54 32 00 98 30  |JA DANN ZU T2..0|
00000360: FE 01 20 44 45 58 3B 57  45 4E 4E 20 4E 49 43 48  |.. DEX;WENN NICH|
00000370: 54 20 44 41 4E 4E 20 44  45 4B 52 45 4D 45 4E 54  |T DANN DEKREMENT|
00000380: 49 45 52 45 4E 00 A7 30  08 02 20 53 54 58 53 43  |IEREN..0.. STXSC|
00000390: 52 52 45 47 00 B0 30 12  02 20 52 54 53 00 DB 30  |RREG..0.. RTS..0|
000003A0: 1C 02 54 32 20 4C 44 41  23 24 30 37 3B 57 49 45  |..T2 LDA#$07;WIE|
000003B0: 44 45 52 20 37 20 49 4E  53 20 53 43 52 4F 4C 4C  |DER 7 INS SCROLL|
000003C0: 52 45 47 49 53 54 45 52  00 EA 30 26 02 20 53 54  |REGISTER..0&. ST|
000003D0: 41 53 43 52 52 45 47 00  FA 30 30 02 20 4C 44 58  |ASCRREG..00. LDX|
000003E0: 5A 41 45 48 4C 45 52 00  1E 31 3A 02 20 4C 44 41  |ZAEHLER..1:. LDA|
000003F0: 24 36 38 30 30 2C 58 3B  43 48 41 52 20 41 55 53  |$6800,X;CHAR AUS|
00000400: 20 54 45 58 54 20 48 4F  4C 45 4E 00 3B 31 44 02  | TEXT HOLEN.;1D.|
00000410: 20 43 4D 50 23 24 30 30  3B 54 45 53 54 45 4E 20  | CMP#$00;TESTEN |
00000420: 4F 42 20 30 42 59 54 45  00 5D 31 4E 02 20 42 45  |OB 0BYTE.]1N. BE|
00000430: 51 54 45 58 54 49 4E 49  54 3B 44 41 4E 4E 20 5A  |QTEXTINIT;DANN Z|
00000440: 55 20 54 45 58 54 49 4E  49 54 00 68 31 58 02 20  |U TEXTINIT.h1X. |
00000450: 53 54 41 5A 32 00 75 31  62 02 20 4C 44 41 23 24  |STAZ2.u1b. LDA#$|
00000460: 30 30 00 92 31 6C 02 20  53 54 41 5A 31 3B 57 45  |00..1l. STAZ1;WE|
00000470: 52 54 45 20 49 4E 20 5A  45 52 4F 50 41 47 45 00  |RTE IN ZEROPAGE.|
00000480: A8 31 80 02 20 41 53 4C  5A 32 3B 5A 31 2F 5A 32  |.1.. ASLZ2;Z1/Z2|
00000490: 20 4D 41 4C 38 00 B3 31  8A 02 20 52 4F 4C 5A 31  | MAL8..1.. ROLZ1|
000004A0: 00 D8 31 94 02 20 41 53  4C 5A 32 3B 55 4D 20 50  |..1.. ASLZ2;UM P|
000004B0: 4F 53 49 54 49 4F 4E 20  49 4D 20 43 48 41 52 53  |OSITION IM CHARS|
000004C0: 45 54 20 5A 55 00 ED 31  9E 02 20 52 4F 4C 5A 31  |ET ZU..1.. ROLZ1|
000004D0: 3B 45 52 4D 49 54 54 45  4C 4E 00 F8 31 A8 02 20  |;ERMITTELN..1.. |
000004E0: 41 53 4C 5A 32 00 03 32  B2 02 20 52 4F 4C 5A 31  |ASLZ2..2.. ROLZ1|
000004F0: 00 0E 32 BC 02 20 4C 44  41 5A 31 00 30 32 C6 02  |..2.. LDAZ1.02..|
00000500: 20 43 4C 43 3B 44 41 4E  4E 20 42 45 49 4D 20 48  | CLC;DANN BEIM H|
00000510: 42 59 54 45 20 24 36 30  20 44 41 5A 55 00 5D 32  |BYTE $60 DAZU.]2|
00000520: D0 02 20 41 44 43 23 24  36 30 3B 41 44 44 49 45  |.. ADC#$60;ADDIE|
00000530: 52 45 4E 20 44 41 20 43  48 2E 20 42 45 49 20 24  |REN DA CH. BEI $|
00000540: 36 30 30 30 20 4C 49 45  47 54 00 68 32 DA 02 20  |6000 LIEGT.h2.. |
00000550: 53 54 41 5A 31 00 75 32  E4 02 20 4C 44 58 23 24  |STAZ1.u2.. LDX#$|
00000560: 30 30 00 82 32 EE 02 20  4C 44 59 23 24 30 30 00  |00..2.. LDY#$00.|
00000570: AA 32 F8 02 54 33 20 4C  44 41 28 5A 32 29 2C 59  |.2..T3 LDA(Z2),Y|
00000580: 3B 43 48 41 52 20 41 55  53 20 43 48 41 52 53 45  |;CHAR AUS CHARSE|
00000590: 54 20 4C 41 44 45 4E 00  D2 32 0C 03 20 53 54 41  |T LADEN..2.. STA|
000005A0: 24 34 30 30 30 2C 58 3B  55 4E 44 20 49 4E 20 53  |$4000,X;UND IN S|
000005B0: 50 52 49 54 45 20 53 43  48 52 45 49 42 45 4E 00  |PRITE SCHREIBEN.|
000005C0: DB 32 16 03 20 49 4E 59  00 E4 32 20 03 20 49 4E  |.2.. INY..2 . IN|
000005D0: 58 00 ED 32 2A 03 20 49  4E 58 00 F6 32 34 03 20  |X..2*. INX..24. |
000005E0: 49 4E 58 00 03 33 3E 03  20 43 50 58 23 24 31 37  |INX..3>. CPX#$17|
000005F0: 00 0E 33 48 03 20 42 4E  45 54 33 00 1E 33 52 03  |..3H. BNET3..3R.|
00000600: 20 49 4E 43 5A 41 45 48  4C 45 52 00 27 33 5C 03  | INCZAEHLER.'3\.|
00000610: 20 52 54 53 00 4C 33 66  03 49 4E 49 54 41 4C 4C  | RTS.L3f.INITALL|
00000620: 20 4C 44 58 23 24 30 30  3B 41 4C 4C 45 20 42 45  | LDX#$00;ALLE BE|
00000630: 4E 4F 45 54 49 47 54 45  4E 00 6A 33 70 03 54 34  |NOETIGTEN.j3p.T4|
00000640: 20 4C 44 41 23 24 30 30  3B 53 50 45 49 43 48 45  | LDA#$00;SPEICHE|
00000650: 52 5A 45 4C 4C 45 4E 00  86 33 7A 03 20 53 54 41  |RZELLEN..3z. STA|
00000660: 24 33 46 34 30 2C 58 3B  56 4F 52 42 45 52 45 49  |$3F40,X;VORBEREI|
00000670: 54 45 4E 00 8F 33 84 03  20 49 4E 58 00 9A 33 8E  |TEN..3.. INX..3.|
00000680: 03 20 42 4E 45 54 34 00  A7 33 98 03 20 4C 44 58  |. BNET4..3.. LDX|
00000690: 23 24 46 44 00 B5 33 A2  03 20 53 54 58 24 30 37  |#$FD..3.. STX$07|
000006A0: 46 38 00 BE 33 AC 03 20  49 4E 58 00 CC 33 B6 03  |F8..3.. INX..3..|
000006B0: 20 53 54 58 24 30 37 46  39 00 D5 33 C0 03 20 49  | STX$07F9..3.. I|
000006C0: 4E 58 00 E3 33 CA 03 20  53 54 58 24 30 37 46 41  |NX..3.. STX$07FA|
000006D0: 00 F0 33 D4 03 20 4C 44  41 23 24 39 30 00 FE 33  |..3.. LDA#$90..3|
000006E0: DE 03 20 53 54 41 24 44  30 30 31 00 0C 34 E8 03  |.. STA$D001..4..|
000006F0: 20 53 54 41 24 44 30 30  33 00 1A 34 F2 03 20 53  | STA$D003..4.. S|
00000700: 54 41 24 44 30 30 35 00  27 34 FC 03 20 4C 44 41  |TA$D005.'4.. LDA|
00000710: 23 31 34 30 00 35 34 06  04 20 53 54 41 24 44 30  |#140.54.. STA$D0|
00000720: 30 30 00 42 34 10 04 20  4C 44 41 23 31 36 34 00  |00.B4.. LDA#164.|
00000730: 50 34 1A 04 20 53 54 41  24 44 30 30 32 00 5D 34  |P4.. STA$D002.]4|
00000740: 24 04 20 4C 44 41 23 31  38 38 00 6B 34 2E 04 20  |$. LDA#188.k4.. |
00000750: 53 54 41 24 44 30 30 34  00 78 34 38 04 20 4C 44  |STA$D004.x48. LD|
00000760: 41 23 24 30 31 00 86 34  42 04 20 53 54 41 24 44  |A#$01..4B. STA$D|
00000770: 30 32 37 00 94 34 4C 04  20 53 54 41 24 44 30 32  |027..4L. STA$D02|
00000780: 38 00 A2 34 56 04 20 53  54 41 24 44 30 32 39 00  |8..4V. STA$D029.|
00000790: AF 34 60 04 20 4C 44 41  23 24 30 37 00 BD 34 6A  |.4`. LDA#$07..4j|
000007A0: 04 20 53 54 41 24 44 30  31 35 00 CB 34 74 04 20  |. STA$D015..4t. |
000007B0: 4A 53 52 24 45 35 34 34  00 D8 34 75 04 20 4C 44  |JSR$E544..4u. LD|
000007C0: 41 23 24 30 30 00 E5 34  76 04 20 53 54 41 53 50  |A#$00..4v. STASP|
000007D0: 52 5A 00 F3 34 77 04 20  53 54 41 53 50 52 5A 32  |RZ..4w. STASPRZ2|
000007E0: 00 08 35 7E 04 54 45 58  54 49 4E 49 54 20 4C 44  |..5~.TEXTINIT LD|
000007F0: 41 23 24 30 30 00 18 35  88 04 20 53 54 41 5A 41  |A#$00..5.. STAZA|
00000800: 45 48 4C 45 52 00 21 35  92 04 20 52 54 53 00 33  |EHLER.!5.. RTS.3|
00000810: 35 9C 04 53 49 4E 55 53  20 4C 44 58 53 50 52 5A  |5..SINUS LDXSPRZ|
00000820: 00 5B 35 A6 04 20 4C 44  41 24 37 38 30 30 2C 58  |.[5.. LDA$7800,X|
00000830: 3B 53 49 4E 55 53 20 46  55 45 52 20 58 2D 50 4F  |;SINUS FUER X-PO|
00000840: 53 2E 20 4C 41 44 45 4E  00 68 35 B0 04 20 43 4D  |S. LADEN.h5.. CM|
00000850: 50 23 24 30 30 00 78 35  BA 04 20 42 45 51 53 50  |P#$00.x5.. BEQSP|
00000860: 52 49 4E 49 54 00 86 35  C4 04 20 53 54 41 24 44  |RINIT..5.. STA$D|
00000870: 30 30 30 00 A5 35 CE 04  20 43 4C 43 3B 46 55 45  |000..5.. CLC;FUE|
00000880: 52 20 4E 41 45 43 48 53  54 45 53 20 53 50 52 49  |R NAECHSTES SPRI|
00000890: 54 45 00 C2 35 D8 04 20  41 44 43 23 32 34 3B 32  |TE..5.. ADC#24;2|
000008A0: 34 20 44 41 5A 55 20 41  44 44 49 45 52 45 4E 00  |4 DAZU ADDIEREN.|
000008B0: D0 35 E2 04 20 53 54 41  24 44 30 30 32 00 D9 35  |.5.. STA$D002..5|
000008C0: EC 04 20 43 4C 43 00 E5  35 F6 04 20 41 44 43 23  |.. CLC..5.. ADC#|
000008D0: 32 34 00 F3 35 00 05 20  53 54 41 24 44 30 30 34  |24..5.. STA$D004|
000008E0: 00 03 36 01 05 54 37 20  4C 44 58 53 50 52 5A 32  |..6..T7 LDXSPRZ2|
000008F0: 00 2B 36 0A 05 20 4C 44  41 24 37 39 30 30 2C 58  |.+6.. LDA$7900,X|
00000900: 3B 53 49 4E 55 53 20 46  55 45 52 20 59 2D 50 4F  |;SINUS FUER Y-PO|
00000910: 53 2E 20 4C 41 44 45 4E  00 38 36 0B 05 20 43 4D  |S. LADEN.86.. CM|
00000920: 50 23 24 30 30 00 49 36  0D 05 20 42 45 51 53 50  |P#$00.I6.. BEQSP|
00000930: 52 49 4E 49 54 32 00 57  36 14 05 20 53 54 41 24  |RINIT2.W6.. STA$|
00000940: 44 30 30 31 00 65 36 1E  05 20 53 54 41 24 44 30  |D001.e6.. STA$D0|
00000950: 30 33 00 73 36 28 05 20  53 54 41 24 44 30 30 35  |03.s6(. STA$D005|
00000960: 00 80 36 32 05 20 49 4E  43 53 50 52 5A 00 8E 36  |..62. INCSPRZ..6|
00000970: 33 05 20 49 4E 43 53 50  52 5A 32 00 97 36 3C 05  |3. INCSPRZ2..6<.|
00000980: 20 52 54 53 00 AB 36 46  05 53 50 52 49 4E 49 54  | RTS..6F.SPRINIT|
00000990: 20 4C 44 41 23 24 30 30  00 B8 36 50 05 20 53 54  | LDA#$00..6P. ST|
000009A0: 41 53 50 52 5A 00 C6 36  5A 05 20 4A 4D 50 53 49  |ASPRZ..6Z. JMPSI|
000009B0: 4E 55 53 00 DB 36 64 05  53 50 52 49 4E 49 54 32  |NUS..6d.SPRINIT2|
000009C0: 20 4C 44 41 23 24 30 30  00 E9 36 6E 05 20 53 54  | LDA#$00..6n. ST|
000009D0: 41 53 50 52 5A 32 00 F4  36 78 05 20 4A 4D 50 54  |ASPRZ2..6x. JMPT|
000009E0: 37 00 00 00                                       |7...            |

.-,-..;******************.D-..;* SPRITES
CROLLER *.\-..;*(W) BY MHF OF AD*.T-..;*
*****************..-.. .EQSCRREG=$CEF0..
-.. .EQZAEHLER=$CEF1..-.. .EQZ2=$FB..-..
 .EQZ1=$FC.P-.. .EQSPRZ=$CEF2..-.. .EQSP
RZ2=$CEF3..-.. .BA$7000...D.MAINPRG JSRI
NITALL...N. SEI.!.X.T6 LDA#$00.1...T5 CM
P$D012.<... BNET5.N... JSRSPRSCROLL.\...
 JSRSINUS.G. . JMPT6...H.;HIER BEGINNT D
ER EIGENTLICHE SPRITESCROLLER...,.SPRSCR
OLL LDX#$00;HIER.L.6.T1 ROL$4000,X;WERDE
N...@. ROL$3FC2,X;DIE...J. ROL$3FC1,X;SP
RITES../T. ROL$3FC0,X;NACH.#/^. ROL$3F82
,X;LINKS.7/H. ROL$3F81,X;GE-.O/R. ROL$3F
80,X;SCROLLT.E/|. ROL$3F42,X;7.BIT.Y/.. 
ROL$3F41,X;INS../.. ROL$3F40,X;CARRYFL..
./.. INX;UND../.. INX;DANN../.. INX;INS.
M/.. CPX#$18;0.BIT../B. BNET1;DES NAECHS
TEN WERTES../L. JSRNEWCHAR..0V. RTS.10..
NEWCHAR LDXSCRREG;TESTEN OB ALLE 8BITS.R
0.. CPX#$00;DES CHARS GESCROLLT.P0.. BEQ
T2;WENN JA DANN ZU T2..0.. DEX;WENN NICH
T DANN DEKREMENTIEREN..0.. STXSCRREG..0.
. RTS..0..T2 LDA#$07;WIEDER 7 INS SCROLL
REGISTER..0&. STASCRREG..00. LDXZAEHLER.
.1:. LDA$6800,X;CHAR AUS TEXT HOLEN.;1D.
 CMP#$00;TESTEN OB 0BYTE.]1N. BEQTEXTINI
T;DANN ZU TEXTINIT.H1X. STAZ2.U1B. LDA#$
00..1L. STAZ1;WERTE IN ZEROPAGE..1.. ASL
Z2;Z1/Z2 MAL8..1.. ROLZ1.X1.. ASLZ2;UM P
OSITION IM CHARSET ZU..1.. ROLZ1;ERMITTE
LN..1.. ASLZ2..2.. ROLZ1..2.. LDAZ1.02F.
 CLC;DANN BEIM HBYTE $60 DAZU.]2P. ADC#$
60;ADDIEREN DA CH. BEI $6000 LIEGT.H2Z. 
STAZ1.U2.. LDX#$00..2.. LDY#$00..2..T3 L
DA(Z2),Y;CHAR AUS CHARSET LADEN.R2.. STA
$4000,X;UND IN SPRITE SCHREIBEN..2.. INY
..2 . INX..2*. INX..24. INX..3>. CPX#$17
..3H. BNET3..3R. INCZAEHLER.'3\. RTS.L3F
.INITALL LDX#$00;ALLE BENOETIGTEN.J3P.T4
 LDA#$00;SPEICHERZELLEN..3Z. STA$3F40,X;
VORBEREITEN..3.. INX..3.. BNET4..3.. LDX
#$FD..3.. STX$07F8..3.. INX.L3.. STX$07F
9.U3.. INX..3J. STX$07FA..3T. LDA#$90..3
.. STA$D001..4.. STA$D003..4.. STA$D005.
'4.. LDA#140.54.. STA$D000.B4.. LDA#164.
P4.. STA$D002.]4$. LDA#188.K4.. STA$D004
.X48. LDA#$01..4B. STA$D027..4L. STA$D02
8..4V. STA$D029..4`. LDA#$07..4J. STA$D0
15.K4T. JSR$E544.X4U. LDA#$00..4V. STASP
RZ..4W. STASPRZ2..5~.TEXTINIT LDA#$00..5
.. STAZAEHLER.!5.. RTS.35..SINUS LDXSPRZ
.[5.. LDA$7800,X;SINUS FUER X-POS. LADEN
.H5.. CMP#$00.X5.. BEQSPRINIT..5D. STA$D
000..5N. CLC;FUER NAECHSTES SPRITE.B5X. 
ADC#24;24 DAZU ADDIEREN.P5.. STA$D002.Y5
.. CLC..5.. ADC#24..5.. STA$D004..6..T7 
LDXSPRZ2.+6.. LDA$7900,X;SINUS FUER Y-PO
S. LADEN.86.. CMP#$00.I6.. BEQSPRINIT2.W
6.. STA$D001.E6.. STA$D003.S6(. STA$D005
..62. INCSPRZ..63. INCSPRZ2..6<. RTS..6F
.SPRINIT LDA#$00..6P. STASPRZ.F6Z. JMPSI
NUS..6D.SPRINIT2 LDA#$00..6N. STASPRZ2..
6X. JMPT7...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL