TEIL 4.LISTING 1

FILE INFORMATION

FILENAME(S): TEIL 4.LISTING 1

FILE TYPE(S): PRG

FILE SIZE: 1.3K

FIRST SEEN: 2025-11-30 01:13:10

APPEARS ON: 3 disk(s)

FILE HASH

d183d266615417a7d9c6554740bc0dc7329e87577c5930cb8b0b8b8b737ac89b

FOUND ON DISKS (3 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
10909 SEITE A	TEIL 4.LISTING 1	PRG	C64er	24	2	DOWNLOAD FILE
10909 SEITE A	TEIL 4.LISTING 1	PRG	DuncanTwain	24	2	DOWNLOAD FILE
10909 SEITE A	TEIL 4.LISTING 1	PRG	DuncanTwain	24	2	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: D8 1F 04 20 0A 00 2E 42  41 20 34 39 31 35 32 20  |... ...BA 49152 |
00000010: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3B  |               ;|
00000020: 53 54 41 52 54 20 3D 20  34 39 31 35 32 00 33 20  |START = 49152.3 |
00000030: 14 00 2E 47 4C 20 56 49  43 20 20 20 20 3D 20 24  |...GL VIC    = $|
00000040: 44 30 30 30 20 20 20 20  20 20 20 3B 56 49 43 2D  |D000       ;VIC-|
00000050: 42 41 53 49 53 41 44 52  45 53 53 45 00 5C 20 1E  |BASISADRESSE.\ .|
00000060: 00 2E 47 4C 20 49 52 51  56 45 43 20 3D 20 24 30  |..GL IRQVEC = $0|
00000070: 33 31 34 20 20 20 20 20  20 20 3B 49 52 51 2D 56  |314       ;IRQ-V|
00000080: 45 4B 54 4F 52 00 8B 20  28 00 2E 47 4C 20 49 52  |EKTOR.. (..GL IR|
00000090: 51 41 4C 54 20 3D 20 24  45 41 33 31 20 20 20 20  |QALT = $EA31    |
000000A0: 20 20 20 3B 41 4C 54 45  20 49 52 51 2D 52 4F 55  |   ;ALTE IRQ-ROU|
000000B0: 54 49 4E 45 00 B1 20 C8  00 49 4E 49 54 20 4A 53  |TINE.. ..INIT JS|
000000C0: 52 4D 41 4B 45 53 50 52  3B 53 50 52 49 54 45 20  |RMAKESPR;SPRITE |
000000D0: 47 45 4E 45 52 49 45 52  45 4E 00 C6 20 D2 00 20  |GENERIEREN.. .. |
000000E0: 53 45 49 3B 49 52 51 20  53 50 45 52 52 45 4E 00  |SEI;IRQ SPERREN.|
000000F0: F7 20 DC 00 20 4C 44 41  23 3C 28 49 52 51 4E 45  |. .. LDA#<(IRQNE|
00000100: 55 29 3B 49 52 51 2D 56  45 4B 54 4F 52 20 41 55  |U);IRQ-VEKTOR AU|
00000110: 46 20 49 52 51 4E 45 55  20 53 54 45 4C 4C 45 4E  |F IRQNEU STELLEN|
00000120: 00 0A 21 E6 00 20 4C 44  58 23 3E 28 49 52 51 4E  |..!.. LDX#>(IRQN|
00000130: 45 55 29 00 19 21 F0 00  20 53 54 41 49 52 51 56  |EU)..!.. STAIRQV|
00000140: 45 43 00 2A 21 FA 00 20  53 54 58 49 52 51 56 45  |EC.*!.. STXIRQVE|
00000150: 43 2B 31 00 40 21 04 01  20 43 4C 49 3B 49 52 51  |C+1.@!.. CLI;IRQ|
00000160: 20 5A 55 4C 41 53 53 45  4E 00 58 21 0E 01 20 52  | ZULASSEN.X!.. R|
00000170: 54 53 3B 55 4E 44 20 5A  55 52 55 45 43 4B 2E 2E  |TS;UND ZURUECK..|
00000180: 2E 00 5E 21 18 01 3B 00  8C 21 22 01 4D 41 4B 45  |..^!..;..!".MAKE|
00000190: 53 50 52 20 4C 44 58 23  36 32 3B 53 50 52 49 54  |SPR LDX#62;SPRIT|
000001A0: 45 2D 44 41 54 45 4E 20  4E 41 43 48 20 42 4C 4F  |E-DATEN NACH BLO|
000001B0: 43 4B 20 33 32 00 A5 21  2C 01 20 4C 44 41 23 32  |CK 32..!,. LDA#2|
000001C0: 35 35 3B 28 32 30 34 38  2D 32 31 31 30 29 00 BC  |55;(2048-2110)..|
000001D0: 21 36 01 4D 41 4B 45 4C  4F 4F 50 20 53 54 41 32  |!6.MAKELOOP STA2|
000001E0: 30 34 38 2C 58 00 C5 21  40 01 20 44 45 58 00 D6  |048,X..!@. DEX..|
000001F0: 21 4A 01 20 42 50 4C 4D  41 4B 45 4C 4F 4F 50 00  |!J. BPLMAKELOOP.|
00000200: F5 21 54 01 20 4C 44 41  23 33 32 3B 42 4C 4F 43  |.!T. LDA#32;BLOC|
00000210: 4B 20 33 32 20 46 45 53  54 4C 45 47 45 4E 00 02  |K 32 FESTLEGEN..|
00000220: 22 5E 01 20 53 54 41 32  30 34 30 00 1F 22 68 01  |"^. STA2040.."h.|
00000230: 20 4C 44 41 23 30 3B 53  49 4E 47 4C 45 43 4F 4C  | LDA#0;SINGLECOL|
00000240: 4F 52 2D 4D 4F 44 55 53  00 2E 22 72 01 20 53 54  |OR-MODUS.."r. ST|
00000250: 41 56 49 43 2B 32 38 00  4A 22 7C 01 20 4C 44 41  |AVIC+28.J"|. LDA|
00000260: 23 31 3B 53 50 52 49 54  45 20 30 20 3D 20 57 45  |#1;SPRITE 0 = WE|
00000270: 49 53 53 00 59 22 86 01  20 53 54 41 56 49 43 2B  |ISS.Y".. STAVIC+|
00000280: 33 39 00 64 22 90 01 20  4C 44 41 23 30 00 8A 22  |39.d".. LDA#0.."|
00000290: 9A 01 20 53 54 41 56 49  43 2B 32 39 3B 4B 45 49  |.. STAVIC+29;KEI|
000002A0: 4E 45 20 58 2D 56 45 52  47 52 4F 45 53 53 45 52  |NE X-VERGROESSER|
000002B0: 55 4E 47 00 B0 22 A4 01  20 53 54 41 56 49 43 2B  |UNG..".. STAVIC+|
000002C0: 32 33 3B 4B 45 49 4E 45  20 59 2D 56 45 52 47 52  |23;KEINE Y-VERGR|
000002D0: 4F 45 53 53 45 52 55 4E  47 00 CD 22 AE 01 20 53  |OESSERUNG..".. S|
000002E0: 54 41 56 49 43 3B 58 2D  4B 4F 4F 52 44 49 4E 41  |TAVIC;X-KOORDINA|
000002F0: 54 45 20 3D 20 30 00 DC  22 B8 01 20 53 54 41 56  |TE = 0..".. STAV|
00000300: 49 43 2B 31 36 00 FC 22  C2 01 20 4C 44 41 23 31  |IC+16..".. LDA#1|
00000310: 34 30 3B 59 2D 4B 4F 4F  52 44 49 4E 41 54 45 20  |40;Y-KOORDINATE |
00000320: 3D 20 31 34 30 00 0A 23  CC 01 20 53 54 41 56 49  |= 140..#.. STAVI|
00000330: 43 2B 31 00 2A 23 D6 01  20 4C 44 41 23 31 3B 53  |C+1.*#.. LDA#1;S|
00000340: 50 52 49 54 45 20 30 20  45 49 4E 53 43 48 41 4C  |PRITE 0 EINSCHAL|
00000350: 54 45 4E 00 39 23 E0 01  20 53 54 41 56 49 43 2B  |TEN.9#.. STAVIC+|
00000360: 32 31 00 51 23 EA 01 20  52 54 53 3B 55 4E 44 20  |21.Q#.. RTS;UND |
00000370: 5A 55 52 55 45 43 4B 2E  2E 2E 00 57 23 F4 01 3B  |ZURUECK....W#..;|
00000380: 00 82 23 FE 01 49 52 51  4E 45 55 20 49 4E 43 56  |..#..IRQNEU INCV|
00000390: 49 43 3B 4C 4F 2D 42 59  54 45 20 44 45 52 20 58  |IC;LO-BYTE DER X|
000003A0: 2D 4B 4F 4F 52 44 49 4E  41 54 45 00 AE 23 08 02  |-KOORDINATE..#..|
000003B0: 20 42 45 51 49 4E 43 48  49 3B 45 52 48 4F 45 48  | BEQINCHI;ERHOEH|
000003C0: 45 4E 2D 20 49 53 54 20  45 53 20 30 2C 44 41 4E  |EN- IST ES 0,DAN|
000003D0: 4E 20 49 4E 43 48 49 00  D1 23 12 02 20 4C 44 41  |N INCHI..#.. LDA|
000003E0: 56 49 43 3B 4C 4F 2D 42  59 54 45 20 47 52 4F 45  |VIC;LO-BYTE GROE|
000003F0: 53 53 45 52 20 31 32 30  20 3F 00 DE 23 1C 02 20  |SSER 120 ?..#.. |
00000400: 43 4D 50 23 31 32 30 00  04 24 26 02 20 42 43 43  |CMP#120..$&. BCC|
00000410: 49 52 51 52 45 54 3B 4E  45 49 4E 2C 20 44 41 4E  |IRQRET;NEIN, DAN|
00000420: 4E 20 49 52 51 20 42 45  45 4E 44 45 4E 00 2A 24  |N IRQ BEENDEN.*$|
00000430: 30 02 20 4C 44 41 56 49  43 2B 31 36 3B 4A 41 2C  |0. LDAVIC+16;JA,|
00000440: 20 44 41 4E 4E 20 48 49  2D 42 59 54 45 20 3D 20  | DANN HI-BYTE = |
00000450: 31 20 3F 00 35 24 3A 02  20 41 4E 44 23 31 00 5B  |1 ?.5$:. AND#1.[|
00000460: 24 44 02 20 42 45 51 49  52 51 52 45 54 3B 4E 45  |$D. BEQIRQRET;NE|
00000470: 49 4E 2C 20 44 41 4E 4E  20 49 52 51 20 42 45 45  |IN, DANN IRQ BEE|
00000480: 4E 44 45 4E 00 80 24 4E  02 20 4C 44 41 23 30 3B  |NDEN..$N. LDA#0;|
00000490: 4A 41 2C 20 44 41 4E 4E  20 58 2D 4B 4F 4F 52 44  |JA, DANN X-KOORD|
000004A0: 49 4E 41 54 45 20 3D 20  30 00 8C 24 58 02 20 53  |INATE = 0..$X. S|
000004B0: 54 41 56 49 43 00 9B 24  62 02 20 53 54 41 56 49  |TAVIC..$b. STAVI|
000004C0: 43 2B 31 36 00 C6 24 6C  02 49 52 51 52 45 54 20  |C+16..$l.IRQRET |
000004D0: 4A 4D 50 49 52 51 41 4C  54 3B 5A 55 52 20 41 4C  |JMPIRQALT;ZUR AL|
000004E0: 54 45 4E 20 49 52 51 2D  52 4F 55 54 49 4E 45 00  |TEN IRQ-ROUTINE.|
000004F0: EB 24 76 02 49 4E 43 48  49 20 49 4E 43 56 49 43  |.$v.INCHI INCVIC|
00000500: 2B 31 36 3B 48 49 2D 42  59 54 45 20 45 52 48 4F  |+16;HI-BYTE ERHO|
00000510: 45 48 45 4E 00 06 25 80  02 20 4A 4D 50 49 52 51  |EHEN..%.. JMPIRQ|
00000520: 52 45 54 3B 49 52 51 20  42 45 45 4E 44 45 4E 00  |RET;IRQ BEENDEN.|
00000530: 00 00                                             |..              |

X.. ...BA 49152                ;START = 
49152.3 ...GL VIC    = $D000       ;VIC-
BASISADRESSE.\ ...GL IRQVEC = $0314     
  ;IRQ-VEKTOR.. (..GL IRQALT = $EA31    
   ;ALTE IRQ-ROUTINE.. H.INIT JSRMAKESPR
;SPRITE GENERIEREN.F R. SEI;IRQ SPERREN.
. .. LDA#<(IRQNEU);IRQ-VEKTOR AUF IRQNEU
 STELLEN..!.. LDX#>(IRQNEU)..!.. STAIRQV
EC.*!.. STXIRQVEC+1.@!.. CLI;IRQ ZULASSE
N.X!.. RTS;UND ZURUECK....^!..;..!".MAKE
SPR LDX#62;SPRITE-DATEN NACH BLOCK 32..!
,. LDA#255;(2048-2110)..!6.MAKELOOP STA2
048,X.E!@. DEX.V!J. BPLMAKELOOP..!T. LDA
#32;BLOCK 32 FESTLEGEN.."^. STA2040.."H.
 LDA#0;SINGLECOLOR-MODUS.."R. STAVIC+28.
J"|. LDA#1;SPRITE 0 = WEISS.Y".. STAVIC+
39.D".. LDA#0..".. STAVIC+29;KEINE X-VER
GROESSERUNG..".. STAVIC+23;KEINE Y-VERGR
OESSERUNG.M".. STAVIC;X-KOORDINATE = 0..
".. STAVIC+16.."B. LDA#140;Y-KOORDINATE 
= 140..#L. STAVIC+1.*#V. LDA#1;SPRITE 0 
EINSCHALTEN.9#.. STAVIC+21.Q#.. RTS;UND 
ZURUECK....W#..;..#..IRQNEU INCVIC;LO-BY
TE DER X-KOORDINATE..#.. BEQINCHI;ERHOEH
EN- IST ES 0,DANN INCHI.Q#.. LDAVIC;LO-B
YTE GROESSER 120 ?..#.. CMP#120..$&. BCC
IRQRET;NEIN, DANN IRQ BEENDEN.*$0. LDAVI
C+16;JA, DANN HI-BYTE = 1 ?.5$:. AND#1.[
$D. BEQIRQRET;NEIN, DANN IRQ BEENDEN..$N
. LDA#0;JA, DANN X-KOORDINATE = 0..$X. S
TAVIC..$B. STAVIC+16.F$L.IRQRET JMPIRQAL
T;ZUR ALTEN IRQ-ROUTINE..$V.INCHI INCVIC
+16;HI-BYTE ERHOEHEN..%.. JMPIRQRET;IRQ 
BEENDEN...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL