TEIL 2.LISTING 3
FILE INFORMATION
FILENAME(S): TEIL 2.LISTING 3
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-30 01:13:10
APPEARS ON: 1 disk(s)
FILE HASH
b66a6ca79fd4c76b4e016f6902e991f1178098bf9e42b6b38b9e4dba71b7fe96
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10907 SEITE A | TEIL 2.LISTING 3 | PRG | C64er, DuncanTwain | 31 | 12 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2D 08 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: 50 52 4F 47 52 41 4D 4D 53 54 41 52 54 00 56 08 |PROGRAMMSTART.V.| 00000030: 14 00 2E 47 4C 20 49 52 51 56 45 43 20 3D 20 24 |...GL IRQVEC = $| 00000040: 30 33 31 34 20 20 20 20 20 20 20 3B 49 52 51 2D |0314 ;IRQ-| 00000050: 56 45 4B 54 4F 52 00 85 08 1E 00 2E 47 4C 20 49 |VEKTOR......GL I| 00000060: 52 51 41 4C 54 20 3D 20 24 45 41 33 31 20 20 20 |RQALT = $EA31 | 00000070: 20 20 20 20 3B 41 4C 54 45 20 49 52 51 2D 52 4F | ;ALTE IRQ-RO| 00000080: 55 54 49 4E 45 00 B8 08 28 00 2E 47 4C 20 56 49 |UTINE...(..GL VI| 00000090: 43 20 20 20 20 3D 20 24 44 30 30 30 20 20 20 20 |C = $D000 | 000000A0: 20 20 20 3B 42 41 53 49 53 41 44 52 45 53 53 45 | ;BASISADRESSE| 000000B0: 20 44 45 53 20 56 49 43 00 E9 08 32 00 2E 47 4C | DES VIC...2..GL| 000000C0: 20 49 52 51 4D 41 53 4B 3D 20 56 49 43 2B 32 36 | IRQMASK= VIC+26| 000000D0: 20 20 20 20 20 20 3B 49 52 51 2D 4D 41 53 4B 45 | ;IRQ-MASKE| 000000E0: 4E 52 45 47 49 53 54 45 52 00 1B 09 3C 00 2E 47 |NREGISTER...<..G| 000000F0: 4C 20 49 52 51 46 4C 41 47 3D 20 56 49 43 2B 32 |L IRQFLAG= VIC+2| 00000100: 35 20 20 20 20 20 20 3B 49 52 51 2D 52 45 51 55 |5 ;IRQ-REQU| 00000110: 45 53 54 52 45 47 49 53 54 45 52 00 4E 09 46 00 |ESTREGISTER.N.F.| 00000120: 2E 47 4C 20 52 41 53 54 45 52 20 3D 20 56 49 43 |.GL RASTER = VIC| 00000130: 2B 31 38 20 20 20 20 20 20 3B 52 41 53 54 45 52 |+18 ;RASTER| 00000140: 5A 45 49 4C 45 4E 52 45 47 49 53 54 45 52 00 81 |ZEILENREGISTER..| 00000150: 09 50 00 2E 47 4C 20 42 4F 52 44 45 52 20 3D 20 |.P..GL BORDER = | 00000160: 56 49 43 2B 33 32 20 20 20 20 20 20 3B 52 41 48 |VIC+32 ;RAH| 00000170: 4D 45 4E 46 41 52 42 45 2D 52 45 47 49 53 54 45 |MENFARBE-REGISTE| 00000180: 52 00 B1 09 5A 00 2E 47 4C 20 4F 42 45 4E 20 20 |R...Z..GL OBEN | 00000190: 20 3D 20 31 30 30 20 20 20 20 20 20 20 20 20 3B | = 100 ;| 000001A0: 4F 42 45 52 45 20 52 41 53 54 45 52 5A 45 49 4C |OBERE RASTERZEIL| 000001B0: 45 00 E2 09 64 00 2E 47 4C 20 55 4E 54 45 4E 20 |E...d..GL UNTEN | 000001C0: 20 3D 20 32 30 30 20 20 20 20 20 20 20 20 20 3B | = 200 ;| 000001D0: 55 4E 54 45 52 45 20 52 41 53 54 45 52 5A 45 49 |UNTERE RASTERZEI| 000001E0: 4C 45 00 1D 0A 6E 00 2E 47 4C 20 48 49 42 49 54 |LE...n..GL HIBIT| 000001F0: 20 20 3D 20 56 49 43 2B 31 37 20 20 20 20 20 20 | = VIC+17 | 00000200: 3B 42 49 54 20 38 20 44 45 52 20 52 41 53 54 45 |;BIT 8 DER RASTE| 00000210: 52 5A 45 49 4C 45 4E 4E 55 4D 4D 45 52 00 23 0A |RZEILENNUMMER.#.| 00000220: 78 00 3B 00 3C 0A C8 00 49 4E 49 54 20 53 45 49 |x.;.<...INIT SEI| 00000230: 3B 49 52 51 20 53 50 45 52 52 45 4E 00 63 0A D2 |;IRQ SPERREN.c..| 00000240: 00 20 4C 44 41 23 4F 42 45 4E 3B 49 52 51 20 46 |. LDA#OBEN;IRQ F| 00000250: 55 45 52 20 52 41 53 54 45 52 5A 45 49 4C 45 20 |UER RASTERZEILE | 00000260: 31 30 30 00 72 0A DC 00 20 53 54 41 52 41 53 54 |100.r... STARAST| 00000270: 45 52 00 8F 0A E6 00 20 4C 44 41 48 49 42 49 54 |ER..... LDAHIBIT| 00000280: 3B 42 49 54 20 38 20 4C 4F 45 53 43 48 45 4E 00 |;BIT 8 LOESCHEN.| 00000290: 9C 0A F0 00 20 41 4E 44 23 31 32 37 00 AA 0A FA |.... AND#127....| 000002A0: 00 20 53 54 41 48 49 42 49 54 00 C5 0A 04 01 20 |. STAHIBIT..... | 000002B0: 4C 44 41 23 31 32 39 3B 49 52 51 20 4D 41 53 4B |LDA#129;IRQ MASK| 000002C0: 49 45 52 45 4E 00 E0 0A 0E 01 20 53 54 41 49 52 |IEREN..... STAIR| 000002D0: 51 4D 41 53 4B 3B 52 41 53 54 45 52 2D 49 52 51 |QMASK;RASTER-IRQ| 000002E0: 00 07 0B 18 01 20 4C 44 41 23 3C 28 49 52 51 4E |..... LDA#<(IRQN| 000002F0: 45 55 29 3B 49 52 51 2D 56 45 4B 54 4F 52 20 41 |EU);IRQ-VEKTOR A| 00000300: 55 46 20 4E 45 55 45 00 2E 0B 22 01 20 4C 44 58 |UF NEUE...". LDX| 00000310: 23 3E 28 49 52 51 4E 45 55 29 3B 49 52 51 2D 52 |#>(IRQNEU);IRQ-R| 00000320: 4F 55 54 49 4E 45 20 53 54 45 4C 4C 45 4E 00 3D |OUTINE STELLEN.=| 00000330: 0B 2C 01 20 53 54 41 49 52 51 56 45 43 00 4E 0B |.,. STAIRQVEC.N.| 00000340: 36 01 20 53 54 58 49 52 51 56 45 43 2B 31 00 6B |6. STXIRQVEC+1.k| 00000350: 0B 40 01 20 43 4C 49 3B 49 52 51 20 57 49 45 44 |.@. CLI;IRQ WIED| 00000360: 45 52 20 5A 55 4C 41 53 53 45 4E 00 83 0B 4A 01 |ER ZULASSEN...J.| 00000370: 20 52 54 53 3B 55 4E 44 20 5A 55 52 55 45 43 4B | RTS;UND ZURUECK| 00000380: 2E 2E 2E 00 89 0B 54 01 3B 00 A4 0B 5E 01 44 45 |......T.;...^.DE| 00000390: 49 4E 49 54 20 53 45 49 3B 49 52 51 20 53 50 45 |INIT SEI;IRQ SPE| 000003A0: 52 52 45 4E 00 C4 0B 68 01 20 4C 44 41 23 30 3B |RREN...h. LDA#0;| 000003B0: 41 4C 4C 45 20 42 49 54 53 20 49 4D 20 4D 41 53 |ALLE BITS IM MAS| 000003C0: 4B 45 4E 2D 00 E6 0B 72 01 20 53 54 41 49 52 51 |KEN-...r. STAIRQ| 000003D0: 4D 41 53 4B 3B 52 45 47 49 53 54 45 52 20 4C 4F |MASK;REGISTER LO| 000003E0: 45 53 43 48 45 4E 00 09 0C 7C 01 20 4C 44 41 23 |ESCHEN...|. LDA#| 000003F0: 3C 28 49 52 51 41 4C 54 29 3B 56 45 4B 54 4F 52 |<(IRQALT);VEKTOR| 00000400: 20 41 55 46 20 41 4C 54 45 00 2F 0C 86 01 20 4C | AUF ALTE./... L| 00000410: 44 58 23 3E 28 49 52 51 41 4C 54 29 3B 49 52 51 |DX#>(IRQALT);IRQ| 00000420: 52 4F 55 54 49 4E 45 20 53 54 45 4C 4C 45 4E 00 |ROUTINE STELLEN.| 00000430: 3E 0C 90 01 20 53 54 41 49 52 51 56 45 43 00 4F |>... STAIRQVEC.O| 00000440: 0C 9A 01 20 53 54 58 49 52 51 56 45 43 2B 31 00 |... STXIRQVEC+1.| 00000450: 6C 0C A4 01 20 43 4C 49 3B 49 52 51 20 57 49 45 |l... CLI;IRQ WIE| 00000460: 44 45 52 20 5A 55 4C 41 53 53 45 4E 00 8C 0C AE |DER ZULASSEN....| 00000470: 01 20 4C 44 41 23 31 34 3B 4E 4F 52 4D 41 4C 45 |. LDA#14;NORMALE| 00000480: 20 52 41 48 4D 45 4E 46 41 52 42 45 00 A6 0C B8 | RAHMENFARBE....| 00000490: 01 20 53 54 41 42 4F 52 44 45 52 3B 45 49 4E 53 |. STABORDER;EINS| 000004A0: 54 45 4C 4C 45 4E 00 BE 0C C2 01 20 52 54 53 3B |TELLEN..... RTS;| 000004B0: 55 4E 44 20 5A 55 52 55 45 43 4B 2E 2E 2E 00 C4 |UND ZURUECK.....| 000004C0: 0C CC 01 3B 00 EE 0C D6 01 49 52 51 4E 45 55 20 |...;.....IRQNEU | 000004D0: 4C 44 41 49 52 51 46 4C 41 47 3B 56 49 43 2D 49 |LDAIRQFLAG;VIC-I| 000004E0: 52 51 2D 46 4C 41 47 53 20 4C 45 53 45 4E 00 13 |RQ-FLAGS LESEN..| 000004F0: 0D E0 01 20 53 54 41 49 52 51 46 4C 41 47 3B 55 |... STAIRQFLAG;U| 00000500: 4E 44 20 57 49 45 44 45 52 20 53 43 48 52 45 49 |ND WIEDER SCHREI| 00000510: 42 45 4E 00 42 0D EA 01 20 42 4D 49 56 49 43 49 |BEN.B... BMIVICI| 00000520: 52 51 3B 57 45 4E 4E 20 42 49 54 20 37 20 47 45 |RQ;WENN BIT 7 GE| 00000530: 53 45 54 5A 54 2C 20 44 41 4E 4E 20 56 49 43 49 |SETZT, DANN VICI| 00000540: 52 51 00 6D 0D F4 01 20 4A 4D 50 49 52 51 41 4C |RQ.m... JMPIRQAL| 00000550: 54 3B 53 4F 4E 53 54 20 5A 55 52 20 41 4C 54 45 |T;SONST ZUR ALTE| 00000560: 4E 20 49 52 51 2D 52 4F 55 54 49 4E 45 00 73 0D |N IRQ-ROUTINE.s.| 00000570: FE 01 3B 00 A3 0D 08 02 56 49 43 49 52 51 20 4C |..;.....VICIRQ L| 00000580: 44 41 52 41 53 54 45 52 3B 52 41 53 54 45 52 5A |DARASTER;RASTERZ| 00000590: 45 49 4C 45 4E 52 45 47 49 53 54 45 52 20 4C 45 |EILENREGISTER LE| 000005A0: 53 45 4E 00 C8 0D 12 02 20 43 4D 50 23 55 4E 54 |SEN..... CMP#UNT| 000005B0: 45 4E 3B 47 52 4F 45 53 53 45 52 2F 47 4C 45 49 |EN;GROESSER/GLEI| 000005C0: 43 48 20 32 30 30 20 3F 00 F2 0D 1C 02 20 42 43 |CH 200 ?..... BC| 000005D0: 53 4F 4C 44 43 4F 4C 4F 52 3B 4A 41 2C 20 44 41 |SOLDCOLOR;JA, DA| 000005E0: 4E 4E 20 41 4C 54 45 20 52 41 4D 45 4E 46 41 52 |NN ALTE RAMENFAR| 000005F0: 42 45 00 F8 0D 26 02 3B 00 22 0E 30 02 4E 45 57 |BE...&.;.".0.NEW| 00000600: 43 4F 4C 4F 52 20 4C 44 41 23 36 3B 53 4F 4E 53 |COLOR LDA#6;SONS| 00000610: 54 20 4E 45 55 45 20 52 41 48 4D 45 4E 46 41 52 |T NEUE RAHMENFAR| 00000620: 42 45 00 31 0E 3A 02 20 53 54 41 42 4F 52 44 45 |BE.1.:. STABORDE| 00000630: 52 00 5C 0E 44 02 20 4C 44 41 23 55 4E 54 45 4E |R.\.D. LDA#UNTEN| 00000640: 3B 4E 41 45 43 48 53 54 45 52 20 49 52 51 20 42 |;NAECHSTER IRQ B| 00000650: 45 49 20 5A 45 49 4C 45 20 32 30 30 00 6B 0E 4E |EI ZEILE 200.k.N| 00000660: 02 20 53 54 41 52 41 53 54 45 52 00 71 0E 58 02 |. STARASTER.q.X.| 00000670: 3B 00 99 0E 62 02 49 52 51 52 45 54 55 52 4E 20 |;...b.IRQRETURN | 00000680: 50 4C 41 3B 52 45 47 49 53 54 45 52 20 5A 55 52 |PLA;REGISTER ZUR| 00000690: 55 45 43 4B 48 4F 4C 45 4E 00 A2 0E 6C 02 20 54 |UECKHOLEN...l. T| 000006A0: 41 59 00 AB 0E 76 02 20 50 4C 41 00 B4 0E 80 02 |AY...v. PLA.....| 000006B0: 20 54 41 58 00 BD 0E 8A 02 20 50 4C 41 00 DD 0E | TAX..... PLA...| 000006C0: 94 02 20 52 54 49 3B 55 4E 44 20 4D 49 54 20 52 |.. RTI;UND MIT R| 000006D0: 54 49 20 5A 55 52 55 45 43 4B 2E 2E 2E 00 E3 0E |TI ZURUECK......| 000006E0: 9E 02 3B 00 07 0F A8 02 4F 4C 44 43 4F 4C 4F 52 |..;.....OLDCOLOR| 000006F0: 20 4C 44 41 23 31 34 3B 41 4C 54 45 20 52 41 4D | LDA#14;ALTE RAM| 00000700: 45 4E 46 41 52 42 45 00 16 0F B2 02 20 53 54 41 |ENFARBE..... STA| 00000710: 42 4F 52 44 45 52 00 40 0F BC 02 20 4C 44 41 23 |BORDER.@... LDA#| 00000720: 4F 42 45 4E 3B 4E 41 45 43 48 53 54 45 52 20 49 |OBEN;NAECHSTER I| 00000730: 52 51 20 42 45 49 20 5A 45 49 4C 45 20 31 30 30 |RQ BEI ZEILE 100| 00000740: 00 4F 0F C6 02 20 53 54 41 52 41 53 54 45 52 00 |.O... STARASTER.| 00000750: 74 0F D0 02 20 4A 4D 50 49 52 51 52 45 54 55 52 |t... JMPIRQRETUR| 00000760: 4E 3B 55 4E 44 20 49 52 51 20 42 45 45 4E 44 45 |N;UND IRQ BEENDE| 00000770: 4E 2E 2E 2E 00 7C 0F 60 EA 2E 45 4E 00 00 00 |N....|.`..EN... |
..-....BA 49152 ;PROGRAMM
START.V....GL IRQVEC = $0314 ;IRQ-
VEKTOR......GL IRQALT = $EA31 ;ALT
E IRQ-ROUTINE...(..GL VIC = $D000
;BASISADRESSE DES VIC...2..GL IRQMASK
= VIC+26 ;IRQ-MASKENREGISTER...<..G
L IRQFLAG= VIC+25 ;IRQ-REQUESTREGIS
TER.N.F..GL RASTER = VIC+18 ;RASTER
ZEILENREGISTER...P..GL BORDER = VIC+32
;RAHMENFARBE-REGISTER...Z..GL OBEN
= 100 ;OBERE RASTERZEILE...D..G
L UNTEN = 200 ;UNTERE RASTERZEI
LE...N..GL HIBIT = VIC+17 ;BIT 8 D
ER RASTERZEILENNUMMER.#.X.;.<.H.INIT SEI
;IRQ SPERREN.C.R. LDA#OBEN;IRQ FUER RAST
ERZEILE 100.R... STARASTER..... LDAHIBIT
;BIT 8 LOESCHEN..... AND#127..... STAHIB
IT.E... LDA#129;IRQ MASKIEREN..... STAIR
QMASK;RASTER-IRQ..... LDA#<(IRQNEU);IRQ-
VEKTOR AUF NEUE...". LDX#>(IRQNEU);IRQ-R
OUTINE STELLEN.=.,. STAIRQVEC.N.6. STXIR
QVEC+1.K.@. CLI;IRQ WIEDER ZULASSEN...J.
RTS;UND ZURUECK......T.;...^.DEINIT SEI
;IRQ SPERREN.D.H. LDA#0;ALLE BITS IM MAS
KEN-...R. STAIRQMASK;REGISTER LOESCHEN..
.|. LDA#<(IRQALT);VEKTOR AUF ALTE./... L
DX#>(IRQALT);IRQROUTINE STELLEN.>... STA
IRQVEC.O... STXIRQVEC+1.L... CLI;IRQ WIE
DER ZULASSEN..... LDA#14;NORMALE RAHMENF
ARBE..... STABORDER;EINSTELLEN...B. RTS;
UND ZURUECK....D.L.;...V.IRQNEU LDAIRQFL
AG;VIC-IRQ-FLAGS LESEN..... STAIRQFLAG;U
ND WIEDER SCHREIBEN.B... BMIVICIRQ;WENN
BIT 7 GESETZT, DANN VICIRQ.M... JMPIRQAL
T;SONST ZUR ALTEN IRQ-ROUTINE.S...;.....
VICIRQ LDARASTER;RASTERZEILENREGISTER LE
SEN.H... CMP#UNTEN;GROESSER/GLEICH 200 ?
..... BCSOLDCOLOR;JA, DANN ALTE RAMENFAR
BE...&.;.".0.NEWCOLOR LDA#6;SONST NEUE R
AHMENFARBE.1.:. STABORDER.\.D. LDA#UNTEN
;NAECHSTER IRQ BEI ZEILE 200.K.N. STARAS
TER.Q.X.;...B.IRQRETURN PLA;REGISTER ZUR
UECKHOLEN...L. TAY...V. PLA..... TAX....
. PLA..... RTI;UND MIT RTI ZURUECK......
..;.....OLDCOLOR LDA#14;ALTE RAMENFARBE.
.... STABORDER.@... LDA#OBEN;NAECHSTER I
RQ BEI ZEILE 100.O.F. STARASTER.T.P. JMP
IRQRETURN;UND IRQ BEENDEN....|.`..EN...
> CLICK IMAGE PREVIEW FOR FULL MODAL