TEIL 4.LISTING 2

FILE INFORMATION

FILENAME(S): TEIL 4.LISTING 2

FILE TYPE(S): PRG

FILE SIZE: 1.9K

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

APPEARS ON: 3 disk(s)

FILE HASH

a12ccc27b93307d0acb25322b5ef53cdb1b1047602f76e92024ead4362de4b4a

FOUND ON DISKS (3 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
10909 SEITE A	TEIL 4.LISTING 2	PRG	C64er	24	4	DOWNLOAD FILE
10909 SEITE A	TEIL 4.LISTING 2	PRG	DuncanTwain	24	4	DOWNLOAD FILE
10909 SEITE A	TEIL 4.LISTING 2	PRG	DuncanTwain	24	4	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 BF 20 32  00 2E 47 4C 20 52 41 53  |TINE.. 2..GL RAS|
000000C0: 54 45 52 20 3D 20 56 49  43 2B 31 38 20 20 20 20  |TER = VIC+18    |
000000D0: 20 20 3B 52 41 53 54 45  52 5A 45 49 4C 45 4E 2D  |  ;RASTERZEILEN-|
000000E0: 52 45 47 49 53 54 45 52  00 F0 20 3C 00 2E 47 4C  |REGISTER.. <..GL|
000000F0: 20 49 52 51 4D 41 53 4B  3D 20 56 49 43 2B 32 36  | IRQMASK= VIC+26|
00000100: 20 20 20 20 20 20 3B 49  52 51 2D 4D 41 53 4B 45  |      ;IRQ-MASKE|
00000110: 4E 52 45 47 49 53 54 45  52 00 22 21 46 00 2E 47  |NREGISTER."!F..G|
00000120: 4C 20 49 52 51 46 4C 41  47 3D 20 56 49 43 2B 32  |L IRQFLAG= VIC+2|
00000130: 35 20 20 20 20 20 20 3B  49 52 51 2D 52 45 51 55  |5      ;IRQ-REQU|
00000140: 45 53 54 52 45 47 49 53  54 45 52 00 5A 21 50 00  |ESTREGISTER.Z!P.|
00000150: 2E 47 4C 20 48 49 42 49  54 20 20 3D 20 56 49 43  |.GL HIBIT  = VIC|
00000160: 2B 31 37 20 20 20 20 20  20 3B 48 49 2D 42 49 54  |+17      ;HI-BIT|
00000170: 20 56 4F 4D 20 52 41 53  54 45 52 52 45 47 49 53  | VOM RASTERREGIS|
00000180: 54 45 52 00 91 21 5A 00  2E 47 4C 20 43 49 41 54  |TER..!Z..GL CIAT|
00000190: 49 4D 45 3D 20 24 44 43  30 45 20 20 20 20 20 20  |IME= $DC0E      |
000001A0: 20 3B 43 49 41 2D 54 49  4D 45 52 2D 53 54 45 55  | ;CIA-TIMER-STEU|
000001B0: 45 52 52 45 47 49 53 54  45 52 00 B7 21 C8 00 49  |ERREGISTER..!..I|
000001C0: 4E 49 54 20 4A 53 52 4D  41 4B 45 53 50 52 3B 53  |NIT JSRMAKESPR;S|
000001D0: 50 52 49 54 45 20 47 45  4E 45 52 49 45 52 45 4E  |PRITE GENERIEREN|
000001E0: 00 CC 21 D2 00 20 53 45  49 3B 49 52 51 20 53 50  |..!.. SEI;IRQ SP|
000001F0: 45 52 52 45 4E 00 EE 21  DC 00 20 4C 44 41 23 30  |ERREN..!.. LDA#0|
00000200: 3B 52 41 53 54 45 52 2D  49 52 51 20 42 45 49 20  |;RASTER-IRQ BEI |
00000210: 5A 45 49 4C 45 20 30 00  FD 21 E6 00 20 53 54 41  |ZEILE 0..!.. STA|
00000220: 52 41 53 54 45 52 00 0B  22 F0 00 20 4C 44 41 48  |RASTER..".. LDAH|
00000230: 49 42 49 54 00 18 22 FA  00 20 41 4E 44 23 31 32  |IBIT..".. AND#12|
00000240: 37 00 26 22 04 01 20 53  54 41 48 49 42 49 54 00  |7.&".. STAHIBIT.|
00000250: 48 22 0E 01 20 4C 44 41  23 31 32 39 3B 52 41 53  |H".. LDA#129;RAS|
00000260: 54 45 52 2D 49 52 51 20  4D 41 53 4B 49 45 52 45  |TER-IRQ MASKIERE|
00000270: 4E 00 58 22 18 01 20 53  54 41 49 52 51 4D 41 53  |N.X".. STAIRQMAS|
00000280: 4B 00 7E 22 22 01 20 4C  44 41 43 49 41 54 49 4D  |K.~"". LDACIATIM|
00000290: 45 3B 43 49 41 2D 54 49  4D 45 52 20 41 55 53 53  |E;CIA-TIMER AUSS|
000002A0: 43 48 41 4C 54 45 4E 00  8B 22 2C 01 20 41 4E 44  |CHALTEN..",. AND|
000002B0: 23 32 35 34 00 9B 22 36  01 20 53 54 41 43 49 41  |#254.."6. STACIA|
000002C0: 54 49 4D 45 00 CC 22 40  01 20 4C 44 41 23 3C 28  |TIME.."@. LDA#<(|
000002D0: 49 52 51 4E 45 55 29 3B  49 52 51 2D 56 45 4B 54  |IRQNEU);IRQ-VEKT|
000002E0: 4F 52 20 41 55 46 20 49  52 51 4E 45 55 20 53 54  |OR AUF IRQNEU ST|
000002F0: 45 4C 4C 45 4E 00 DF 22  4A 01 20 4C 44 58 23 3E  |ELLEN.."J. LDX#>|
00000300: 28 49 52 51 4E 45 55 29  00 EE 22 54 01 20 53 54  |(IRQNEU).."T. ST|
00000310: 41 49 52 51 56 45 43 00  FF 22 5E 01 20 53 54 58  |AIRQVEC.."^. STX|
00000320: 49 52 51 56 45 43 2B 31  00 23 23 68 01 20 4C 44  |IRQVEC+1.##h. LD|
00000330: 41 49 52 51 46 4C 41 47  3B 49 52 51 2D 52 45 51  |AIRQFLAG;IRQ-REQ|
00000340: 55 45 53 54 52 45 47 49  53 54 45 52 00 3C 23 72  |UESTREGISTER.<#r|
00000350: 01 20 53 54 41 49 52 51  46 4C 41 47 3B 4C 4F 45  |. STAIRQFLAG;LOE|
00000360: 53 43 48 45 4E 00 52 23  7C 01 20 43 4C 49 3B 49  |SCHEN.R#|. CLI;I|
00000370: 52 51 20 5A 55 4C 41 53  53 45 4E 00 6A 23 86 01  |RQ ZULASSEN.j#..|
00000380: 20 52 54 53 3B 55 4E 44  20 5A 55 52 55 45 43 4B  | RTS;UND ZURUECK|
00000390: 2E 2E 2E 00 70 23 90 01  3B 00 9E 23 9A 01 4D 41  |....p#..;..#..MA|
000003A0: 4B 45 53 50 52 20 4C 44  58 23 36 32 3B 53 50 52  |KESPR LDX#62;SPR|
000003B0: 49 54 45 2D 44 41 54 45  4E 20 4E 41 43 48 20 42  |ITE-DATEN NACH B|
000003C0: 4C 4F 43 4B 20 33 32 00  B7 23 A4 01 20 4C 44 41  |LOCK 32..#.. LDA|
000003D0: 23 32 35 35 3B 28 32 30  34 38 2D 32 31 31 30 29  |#255;(2048-2110)|
000003E0: 00 CE 23 AE 01 4D 41 4B  45 4C 4F 4F 50 20 53 54  |..#..MAKELOOP ST|
000003F0: 41 32 30 34 38 2C 58 00  D7 23 B8 01 20 44 45 58  |A2048,X..#.. DEX|
00000400: 00 E8 23 C2 01 20 42 50  4C 4D 41 4B 45 4C 4F 4F  |..#.. BPLMAKELOO|
00000410: 50 00 07 24 CC 01 20 4C  44 41 23 33 32 3B 42 4C  |P..$.. LDA#32;BL|
00000420: 4F 43 4B 20 33 32 20 46  45 53 54 4C 45 47 45 4E  |OCK 32 FESTLEGEN|
00000430: 00 14 24 D6 01 20 53 54  41 32 30 34 30 00 31 24  |..$.. STA2040.1$|
00000440: E0 01 20 4C 44 41 23 30  3B 53 49 4E 47 4C 45 43  |.. LDA#0;SINGLEC|
00000450: 4F 4C 4F 52 2D 4D 4F 44  55 53 00 40 24 EA 01 20  |OLOR-MODUS.@$.. |
00000460: 53 54 41 56 49 43 2B 32  38 00 5C 24 F4 01 20 4C  |STAVIC+28.\$.. L|
00000470: 44 41 23 31 3B 53 50 52  49 54 45 20 30 20 3D 20  |DA#1;SPRITE 0 = |
00000480: 57 45 49 53 53 00 6B 24  FE 01 20 53 54 41 56 49  |WEISS.k$.. STAVI|
00000490: 43 2B 33 39 00 76 24 08  02 20 4C 44 41 23 30 00  |C+39.v$.. LDA#0.|
000004A0: 9C 24 12 02 20 53 54 41  56 49 43 2B 32 39 3B 4B  |.$.. STAVIC+29;K|
000004B0: 45 49 4E 45 20 58 2D 56  45 52 47 52 4F 45 53 53  |EINE X-VERGROESS|
000004C0: 45 52 55 4E 47 00 C2 24  1C 02 20 53 54 41 56 49  |ERUNG..$.. STAVI|
000004D0: 43 2B 32 33 3B 4B 45 49  4E 45 20 59 2D 56 45 52  |C+23;KEINE Y-VER|
000004E0: 47 52 4F 45 53 53 45 52  55 4E 47 00 DF 24 26 02  |GROESSERUNG..$&.|
000004F0: 20 53 54 41 56 49 43 3B  58 2D 4B 4F 4F 52 44 49  | STAVIC;X-KOORDI|
00000500: 4E 41 54 45 20 3D 20 30  00 EE 24 30 02 20 53 54  |NATE = 0..$0. ST|
00000510: 41 56 49 43 2B 31 36 00  0E 25 3A 02 20 4C 44 41  |AVIC+16..%:. LDA|
00000520: 23 31 34 30 3B 59 2D 4B  4F 4F 52 44 49 4E 41 54  |#140;Y-KOORDINAT|
00000530: 45 20 3D 20 31 34 30 00  1C 25 44 02 20 53 54 41  |E = 140..%D. STA|
00000540: 56 49 43 2B 31 00 3C 25  4E 02 20 4C 44 41 23 31  |VIC+1.<%N. LDA#1|
00000550: 3B 53 50 52 49 54 45 20  30 20 45 49 4E 53 43 48  |;SPRITE 0 EINSCH|
00000560: 41 4C 54 45 4E 00 4B 25  58 02 20 53 54 41 56 49  |ALTEN.K%X. STAVI|
00000570: 43 2B 32 31 00 63 25 62  02 20 52 54 53 3B 55 4E  |C+21.c%b. RTS;UN|
00000580: 44 20 5A 55 52 55 45 43  4B 2E 2E 2E 00 69 25 6C  |D ZURUECK....i%l|
00000590: 02 3B 00 93 25 76 02 49  52 51 4E 45 55 20 4C 44  |.;..%v.IRQNEU LD|
000005A0: 41 49 52 51 46 4C 41 47  3B 49 52 51 2D 52 45 51  |AIRQFLAG;IRQ-REQ|
000005B0: 55 45 53 54 52 45 47 49  53 54 45 52 00 AC 25 80  |UESTREGISTER..%.|
000005C0: 02 20 53 54 41 49 52 51  46 4C 41 47 3B 4C 4F 45  |. STAIRQFLAG;LOE|
000005D0: 53 43 48 45 4E 00 D1 25  8A 02 20 49 4E 43 56 49  |SCHEN..%.. INCVI|
000005E0: 43 3B 4C 4F 2D 42 59 54  45 20 44 45 52 20 58 2D  |C;LO-BYTE DER X-|
000005F0: 4B 4F 4F 52 44 49 4E 41  54 45 00 FD 25 94 02 20  |KOORDINATE..%.. |
00000600: 42 45 51 49 4E 43 48 49  3B 45 52 48 4F 45 48 45  |BEQINCHI;ERHOEHE|
00000610: 4E 2D 20 49 53 54 20 45  53 20 30 2C 44 41 4E 4E  |N- IST ES 0,DANN|
00000620: 20 49 4E 43 48 49 00 20  26 9E 02 20 4C 44 41 56  | INCHI. &.. LDAV|
00000630: 49 43 3B 4C 4F 2D 42 59  54 45 20 47 52 4F 45 53  |IC;LO-BYTE GROES|
00000640: 53 45 52 20 31 32 30 20  3F 00 2D 26 A8 02 20 43  |SER 120 ?.-&.. C|
00000650: 4D 50 23 31 32 30 00 53  26 B2 02 20 42 43 43 49  |MP#120.S&.. BCCI|
00000660: 52 51 52 45 54 3B 4E 45  49 4E 2C 20 44 41 4E 4E  |RQRET;NEIN, DANN|
00000670: 20 49 52 51 20 42 45 45  4E 44 45 4E 00 79 26 BC  | IRQ BEENDEN.y&.|
00000680: 02 20 4C 44 41 56 49 43  2B 31 36 3B 4A 41 2C 20  |. LDAVIC+16;JA, |
00000690: 44 41 4E 4E 20 48 49 2D  42 59 54 45 20 3D 20 31  |DANN HI-BYTE = 1|
000006A0: 20 3F 00 84 26 C6 02 20  41 4E 44 23 31 00 AA 26  | ?..&.. AND#1..&|
000006B0: D0 02 20 42 45 51 49 52  51 52 45 54 3B 4E 45 49  |.. BEQIRQRET;NEI|
000006C0: 4E 2C 20 44 41 4E 4E 20  49 52 51 20 42 45 45 4E  |N, DANN IRQ BEEN|
000006D0: 44 45 4E 00 CF 26 DA 02  20 4C 44 41 23 30 3B 4A  |DEN..&.. LDA#0;J|
000006E0: 41 2C 20 44 41 4E 4E 20  58 2D 4B 4F 4F 52 44 49  |A, DANN X-KOORDI|
000006F0: 4E 41 54 45 20 3D 20 30  00 DB 26 E4 02 20 53 54  |NATE = 0..&.. ST|
00000700: 41 56 49 43 00 EA 26 EE  02 20 53 54 41 56 49 43  |AVIC..&.. STAVIC|
00000710: 2B 31 36 00 15 27 F8 02  49 52 51 52 45 54 20 4A  |+16..'..IRQRET J|
00000720: 4D 50 49 52 51 41 4C 54  3B 5A 55 52 20 41 4C 54  |MPIRQALT;ZUR ALT|
00000730: 45 4E 20 49 52 51 2D 52  4F 55 54 49 4E 45 00 3A  |EN IRQ-ROUTINE.:|
00000740: 27 02 03 49 4E 43 48 49  20 49 4E 43 56 49 43 2B  |'..INCHI INCVIC+|
00000750: 31 36 3B 48 49 2D 42 59  54 45 20 45 52 48 4F 45  |16;HI-BYTE ERHOE|
00000760: 48 45 4E 00 55 27 0C 03  20 4A 4D 50 49 52 51 52  |HEN.U'.. JMPIRQR|
00000770: 45 54 3B 49 52 51 20 42  45 45 4E 44 45 4E 00 00  |ET;IRQ BEENDEN..|
00000780: 00                                                |.               |

X.. ...BA 49152                ;START = 
49152.3 ...GL VIC    = $D000       ;VIC-
BASISADRESSE.\ ...GL IRQVEC = $0314     
  ;IRQ-VEKTOR.. (..GL IRQALT = $EA31    
   ;ALTE IRQ-ROUTINE.. 2..GL RASTER = VI
C+18      ;RASTERZEILEN-REGISTER.. <..GL
 IRQMASK= VIC+26      ;IRQ-MASKENREGISTE
R."!F..GL IRQFLAG= VIC+25      ;IRQ-REQU
ESTREGISTER.Z!P..GL HIBIT  = VIC+17     
 ;HI-BIT VOM RASTERREGISTER..!Z..GL CIAT
IME= $DC0E       ;CIA-TIMER-STEUERREGIST
ER..!H.INIT JSRMAKESPR;SPRITE GENERIEREN
.L!R. SEI;IRQ SPERREN..!.. LDA#0;RASTER-
IRQ BEI ZEILE 0..!.. STARASTER..".. LDAH
IBIT..".. AND#127.&".. STAHIBIT.H".. LDA
#129;RASTER-IRQ MASKIEREN.X".. STAIRQMAS
K.~"". LDACIATIME;CIA-TIMER AUSSCHALTEN.
.",. AND#254.."6. STACIATIME.L"@. LDA#<(
IRQNEU);IRQ-VEKTOR AUF IRQNEU STELLEN.."
J. LDX#>(IRQNEU).."T. STAIRQVEC.."^. STX
IRQVEC+1.##H. LDAIRQFLAG;IRQ-REQUESTREGI
STER.<#R. STAIRQFLAG;LOESCHEN.R#|. CLI;I
RQ ZULASSEN.J#.. RTS;UND ZURUECK....P#..
;..#..MAKESPR LDX#62;SPRITE-DATEN NACH B
LOCK 32..#.. LDA#255;(2048-2110).N#..MAK
ELOOP STA2048,X.W#.. DEX..#B. BPLMAKELOO
P..$L. LDA#32;BLOCK 32 FESTLEGEN..$V. ST
A2040.1$.. LDA#0;SINGLECOLOR-MODUS.@$.. 
STAVIC+28.\$.. LDA#1;SPRITE 0 = WEISS.K$
.. STAVIC+39.V$.. LDA#0..$.. STAVIC+29;K
EINE X-VERGROESSERUNG.B$.. STAVIC+23;KEI
NE Y-VERGROESSERUNG..$&. STAVIC;X-KOORDI
NATE = 0..$0. STAVIC+16..%:. LDA#140;Y-K
OORDINATE = 140..%D. STAVIC+1.<%N. LDA#1
;SPRITE 0 EINSCHALTEN.K%X. STAVIC+21.C%B
. RTS;UND ZURUECK....I%L.;..%V.IRQNEU LD
AIRQFLAG;IRQ-REQUESTREGISTER..%.. STAIRQ
FLAG;LOESCHEN.Q%.. INCVIC;LO-BYTE DER X-
KOORDINATE..%.. BEQINCHI;ERHOEHEN- IST E
S 0,DANN INCHI. &.. LDAVIC;LO-BYTE GROES
SER 120 ?.-&.. CMP#120.S&.. BCCIRQRET;NE
IN, DANN IRQ BEENDEN.Y&.. LDAVIC+16;JA, 
DANN HI-BYTE = 1 ?..&F. AND#1..&P. BEQIR
QRET;NEIN, DANN IRQ BEENDEN.O&Z. LDA#0;J
A, DANN X-KOORDINATE = 0..&.. STAVIC..&.
. STAVIC+16..'..IRQRET JMPIRQALT;ZUR ALT
EN IRQ-ROUTINE.:'..INCHI INCVIC+16;HI-BY
TE ERHOEHEN.U'.. JMPIRQRET;IRQ BEENDEN..
.

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL