TEIL 2.LISTING 4
FILE INFORMATION
FILENAME(S): TEIL 2.LISTING 4
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-11-30 01:13:10
APPEARS ON: 1 disk(s)
FILE HASH
acf560772da601c7a4addecaf0b4a4d9c7696e9a294d5f0dbd5d13cb6e61f034
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10907 SEITE A | TEIL 2.LISTING 4 | PRG | C64er, DuncanTwain | 31 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0E 08 05 00 2E 4C 49 31 2C 34 2C 30 00 39 |.......LI1,4,0.9| 00000010: 08 0A 00 2E 42 41 20 34 39 31 35 32 20 20 20 20 |....BA 49152 | 00000020: 20 20 20 20 20 20 20 20 20 20 20 20 3B 53 54 41 | ;STA| 00000030: 52 54 41 44 52 45 53 53 45 00 62 08 14 00 2E 47 |RTADRESSE.b....G| 00000040: 4C 20 49 52 51 56 45 43 20 3D 20 24 30 33 31 34 |L IRQVEC = $0314| 00000050: 20 20 20 20 20 20 20 3B 49 52 51 2D 56 45 4B 54 | ;IRQ-VEKT| 00000060: 4F 52 00 91 08 1E 00 2E 47 4C 20 49 52 51 41 4C |OR......GL IRQAL| 00000070: 54 20 3D 20 24 45 41 33 31 20 20 20 20 20 20 20 |T = $EA31 | 00000080: 3B 41 4C 54 45 20 49 52 51 2D 52 4F 55 54 49 4E |;ALTE IRQ-ROUTIN| 00000090: 45 00 C4 08 28 00 2E 47 4C 20 56 49 43 20 20 20 |E...(..GL VIC | 000000A0: 20 3D 20 24 44 30 30 30 20 20 20 20 20 20 20 3B | = $D000 ;| 000000B0: 42 41 53 49 53 41 44 52 45 53 53 45 20 44 45 53 |BASISADRESSE DES| 000000C0: 20 56 49 43 00 F4 08 32 00 2E 47 4C 20 49 52 51 | VIC...2..GL IRQ| 000000D0: 4D 41 53 4B 3D 20 56 49 43 2B 32 36 20 20 20 20 |MASK= VIC+26 | 000000E0: 20 20 3B 49 52 51 4D 41 53 4B 45 4E 52 45 47 49 | ;IRQMASKENREGI| 000000F0: 53 54 45 52 00 26 09 3C 00 2E 47 4C 20 49 52 51 |STER.&.<..GL IRQ| 00000100: 46 4C 41 47 3D 20 56 49 43 2B 32 35 20 20 20 20 |FLAG= VIC+25 | 00000110: 20 20 3B 49 52 51 2D 52 45 51 55 45 53 54 52 45 | ;IRQ-REQUESTRE| 00000120: 47 49 53 54 45 52 00 59 09 46 00 2E 47 4C 20 52 |GISTER.Y.F..GL R| 00000130: 41 53 54 45 52 20 3D 20 56 49 43 2B 31 38 20 20 |ASTER = VIC+18 | 00000140: 20 20 20 20 3B 52 41 53 54 45 52 5A 45 49 4C 45 | ;RASTERZEILE| 00000150: 4E 52 45 47 49 53 54 45 52 00 8C 09 50 00 2E 47 |NREGISTER...P..G| 00000160: 4C 20 42 4F 52 44 45 52 20 3D 20 56 49 43 2B 33 |L BORDER = VIC+3| 00000170: 32 20 20 20 20 20 20 3B 52 41 48 4D 45 4E 46 41 |2 ;RAHMENFA| 00000180: 52 42 45 2D 52 45 47 49 53 54 45 52 00 BC 09 5A |RBE-REGISTER...Z| 00000190: 00 2E 47 4C 20 4F 42 45 4E 20 20 20 3D 20 31 30 |..GL OBEN = 10| 000001A0: 30 20 20 20 20 20 20 20 20 20 3B 4F 42 45 52 45 |0 ;OBERE| 000001B0: 20 52 41 53 54 45 52 5A 45 49 4C 45 00 ED 09 64 | RASTERZEILE...d| 000001C0: 00 2E 47 4C 20 55 4E 54 45 4E 20 20 3D 20 32 30 |..GL UNTEN = 20| 000001D0: 30 20 20 20 20 20 20 20 20 20 3B 55 4E 54 45 52 |0 ;UNTER| 000001E0: 45 20 52 41 53 54 45 52 5A 45 49 4C 45 00 28 0A |E RASTERZEILE.(.| 000001F0: 6E 00 2E 47 4C 20 48 49 42 49 54 20 20 3D 20 56 |n..GL HIBIT = V| 00000200: 49 43 2B 31 37 20 20 20 20 20 20 3B 42 49 54 20 |IC+17 ;BIT | 00000210: 38 20 44 45 52 20 52 41 53 54 45 52 5A 45 49 4C |8 DER RASTERZEIL| 00000220: 45 4E 4E 55 4D 4D 45 52 00 5D 0A 78 00 2E 47 4C |ENNUMMER.].x..GL| 00000230: 20 43 49 41 54 49 4D 45 3D 20 24 44 43 30 45 20 | CIATIME= $DC0E | 00000240: 20 20 20 20 20 20 3B 54 49 4D 45 52 20 41 20 53 | ;TIMER A S| 00000250: 54 45 55 45 52 52 45 47 49 53 54 45 52 00 63 0A |TEUERREGISTER.c.| 00000260: 82 00 3B 00 7C 0A C8 00 49 4E 49 54 20 53 45 49 |..;.|...INIT SEI| 00000270: 3B 49 52 51 20 53 50 45 52 52 45 4E 00 A3 0A D2 |;IRQ SPERREN....| 00000280: 00 20 4C 44 41 23 4F 42 45 4E 3B 49 52 51 20 46 |. LDA#OBEN;IRQ F| 00000290: 55 45 52 20 52 41 53 54 45 52 5A 45 49 4C 45 20 |UER RASTERZEILE | 000002A0: 31 30 30 00 B2 0A DC 00 20 53 54 41 52 41 53 54 |100..... STARAST| 000002B0: 45 52 00 CF 0A E6 00 20 4C 44 41 48 49 42 49 54 |ER..... LDAHIBIT| 000002C0: 3B 42 49 54 20 38 20 4C 4F 45 53 43 48 45 4E 00 |;BIT 8 LOESCHEN.| 000002D0: DC 0A F0 00 20 41 4E 44 23 31 32 37 00 EA 0A FA |.... AND#127....| 000002E0: 00 20 53 54 41 48 49 42 49 54 00 05 0B 04 01 20 |. STAHIBIT..... | 000002F0: 4C 44 41 23 31 32 39 3B 49 52 51 20 4D 41 53 4B |LDA#129;IRQ MASK| 00000300: 49 45 52 45 4E 00 20 0B 0E 01 20 53 54 41 49 52 |IEREN. ... STAIR| 00000310: 51 4D 41 53 4B 3B 52 41 53 54 45 52 2D 49 52 51 |QMASK;RASTER-IRQ| 00000320: 00 47 0B 18 01 20 4C 44 41 23 3C 28 49 52 51 4E |.G... LDA#<(IRQN| 00000330: 45 55 29 3B 49 52 51 2D 56 45 4B 54 4F 52 20 41 |EU);IRQ-VEKTOR A| 00000340: 55 46 20 4E 45 55 45 00 6E 0B 22 01 20 4C 44 58 |UF NEUE.n.". LDX| 00000350: 23 3E 28 49 52 51 4E 45 55 29 3B 49 52 51 2D 52 |#>(IRQNEU);IRQ-R| 00000360: 4F 55 54 49 4E 45 20 53 54 45 4C 4C 45 4E 00 7D |OUTINE STELLEN.}| 00000370: 0B 2C 01 20 53 54 41 49 52 51 56 45 43 00 8E 0B |.,. STAIRQVEC...| 00000380: 36 01 20 53 54 58 49 52 51 56 45 43 2B 31 00 AE |6. STXIRQVEC+1..| 00000390: 0B 40 01 20 4C 44 41 43 49 41 54 49 4D 45 3B 54 |.@. LDACIATIME;T| 000003A0: 49 4D 45 52 20 41 20 53 54 4F 50 50 45 4E 00 BB |IMER A STOPPEN..| 000003B0: 0B 4A 01 20 41 4E 44 23 32 35 34 00 CB 0B 54 01 |.J. AND#254...T.| 000003C0: 20 53 54 41 43 49 41 54 49 4D 45 00 E8 0B 5E 01 | STACIATIME...^.| 000003D0: 20 43 4C 49 3B 49 52 51 20 57 49 45 44 45 52 20 | CLI;IRQ WIEDER | 000003E0: 5A 55 4C 41 53 53 45 4E 00 00 0C 68 01 20 52 54 |ZULASSEN...h. RT| 000003F0: 53 3B 55 4E 44 20 5A 55 52 55 45 43 4B 2E 2E 2E |S;UND ZURUECK...| 00000400: 00 06 0C 72 01 3B 00 21 0C 7C 01 44 45 49 4E 49 |...r.;.!.|.DEINI| 00000410: 54 20 53 45 49 3B 49 52 51 20 53 50 45 52 52 45 |T SEI;IRQ SPERRE| 00000420: 4E 00 3F 0C 86 01 20 4C 44 41 23 30 3B 49 52 51 |N.?... LDA#0;IRQ| 00000430: 2D 4D 41 53 4B 45 4E 52 45 47 49 53 54 45 52 00 |-MASKENREGISTER.| 00000440: 58 0C 90 01 20 53 54 41 49 52 51 4D 41 53 4B 3B |X... STAIRQMASK;| 00000450: 4C 4F 45 53 43 48 45 4E 00 7F 0C 9A 01 20 4C 44 |LOESCHEN..... LD| 00000460: 41 43 49 41 54 49 4D 45 3B 54 49 4D 45 52 20 41 |ACIATIME;TIMER A| 00000470: 20 57 49 45 44 45 52 20 53 54 41 52 54 45 4E 00 | WIEDER STARTEN.| 00000480: 8A 0C A4 01 20 4F 52 41 23 31 00 9A 0C AE 01 20 |.... ORA#1..... | 00000490: 53 54 41 43 49 41 54 49 4D 45 00 C3 0C B8 01 20 |STACIATIME..... | 000004A0: 4C 44 41 23 3C 28 49 52 51 41 4C 54 29 3B 49 52 |LDA#<(IRQALT);IR| 000004B0: 51 2D 56 45 4B 54 4F 52 20 57 49 45 44 45 52 20 |Q-VEKTOR WIEDER | 000004C0: 41 55 46 00 EF 0C C2 01 20 4C 44 58 23 3E 28 49 |AUF..... LDX#>(I| 000004D0: 52 51 41 4C 54 29 3B 41 4C 54 45 20 49 52 51 2D |RQALT);ALTE IRQ-| 000004E0: 52 4F 55 54 49 4E 45 20 53 54 45 4C 4C 45 4E 00 |ROUTINE STELLEN.| 000004F0: FE 0C CC 01 20 53 54 41 49 52 51 56 45 43 00 0F |.... STAIRQVEC..| 00000500: 0D D6 01 20 53 54 58 49 52 51 56 45 43 2B 31 00 |... STXIRQVEC+1.| 00000510: 2C 0D E0 01 20 43 4C 49 3B 49 52 51 20 57 49 45 |,... CLI;IRQ WIE| 00000520: 44 45 52 20 5A 55 4C 41 53 53 45 4E 00 4C 0D EA |DER ZULASSEN.L..| 00000530: 01 20 4C 44 41 23 31 34 3B 4E 4F 52 4D 41 4C 45 |. LDA#14;NORMALE| 00000540: 20 52 41 48 4D 45 4E 46 41 52 42 45 00 67 0D F4 | RAHMENFARBE.g..| 00000550: 01 20 53 54 41 42 4F 52 44 45 52 3B 45 49 4E 53 |. STABORDER;EINS| 00000560: 43 48 41 4C 54 45 4E 00 7F 0D FE 01 20 52 54 53 |CHALTEN..... RTS| 00000570: 3B 55 4E 44 20 5A 55 52 55 45 43 4B 2E 2E 2E 00 |;UND ZURUECK....| 00000580: 85 0D 08 02 3B 00 AF 0D 12 02 49 52 51 4E 45 55 |....;.....IRQNEU| 00000590: 20 4C 44 41 49 52 51 46 4C 41 47 3B 56 49 43 2D | LDAIRQFLAG;VIC-| 000005A0: 49 52 51 2D 46 4C 41 47 53 20 4C 45 53 45 4E 00 |IRQ-FLAGS LESEN.| 000005B0: D4 0D 1C 02 20 53 54 41 49 52 51 46 4C 41 47 3B |.... STAIRQFLAG;| 000005C0: 55 4E 44 20 57 49 45 44 45 52 20 53 43 48 52 45 |UND WIEDER SCHRE| 000005D0: 49 42 45 4E 00 DA 0D 26 02 3B 00 0A 0E 30 02 56 |IBEN...&.;...0.V| 000005E0: 49 43 49 52 51 20 4C 44 41 52 41 53 54 45 52 3B |ICIRQ LDARASTER;| 000005F0: 52 41 53 54 45 52 5A 45 49 4C 45 4E 52 45 47 49 |RASTERZEILENREGI| 00000600: 53 54 45 52 20 4C 45 53 45 4E 00 2F 0E 3A 02 20 |STER LESEN./.:. | 00000610: 43 4D 50 23 55 4E 54 45 4E 3B 47 52 4F 45 53 53 |CMP#UNTEN;GROESS| 00000620: 45 52 2F 47 4C 45 49 43 48 20 32 30 30 20 3F 00 |ER/GLEICH 200 ?.| 00000630: 59 0E 44 02 20 42 43 53 4F 4C 44 43 4F 4C 4F 52 |Y.D. BCSOLDCOLOR| 00000640: 3B 4A 41 2C 20 44 41 4E 4E 20 41 4C 54 45 20 52 |;JA, DANN ALTE R| 00000650: 41 4D 45 4E 46 41 52 42 45 00 5F 0E 4E 02 3B 00 |AMENFARBE._.N.;.| 00000660: 89 0E 58 02 4E 45 57 43 4F 4C 4F 52 20 4C 44 41 |..X.NEWCOLOR LDA| 00000670: 23 36 3B 53 4F 4E 53 54 20 4E 45 55 45 20 52 41 |#6;SONST NEUE RA| 00000680: 48 4D 45 4E 46 41 52 42 45 00 98 0E 62 02 20 53 |HMENFARBE...b. S| 00000690: 54 41 42 4F 52 44 45 52 00 C3 0E 6C 02 20 4C 44 |TABORDER...l. LD| 000006A0: 41 23 55 4E 54 45 4E 3B 4E 41 45 43 48 53 54 45 |A#UNTEN;NAECHSTE| 000006B0: 52 20 49 52 51 20 42 45 49 20 5A 45 49 4C 45 20 |R IRQ BEI ZEILE | 000006C0: 32 30 30 00 D2 0E 76 02 20 53 54 41 52 41 53 54 |200...v. STARAST| 000006D0: 45 52 00 D8 0E 80 02 3B 00 00 0F 8A 02 49 52 51 |ER.....;.....IRQ| 000006E0: 52 45 54 55 52 4E 20 50 4C 41 3B 52 45 47 49 53 |RETURN PLA;REGIS| 000006F0: 54 45 52 20 5A 55 52 55 45 43 4B 48 4F 4C 45 4E |TER ZURUECKHOLEN| 00000700: 00 09 0F 94 02 20 54 41 59 00 12 0F 9E 02 20 50 |..... TAY..... P| 00000710: 4C 41 00 1B 0F A8 02 20 54 41 58 00 24 0F B2 02 |LA..... TAX.$...| 00000720: 20 50 4C 41 00 44 0F BC 02 20 52 54 49 3B 55 4E | PLA.D... RTI;UN| 00000730: 44 20 4D 49 54 20 52 54 49 20 5A 55 52 55 45 43 |D MIT RTI ZURUEC| 00000740: 4B 2E 2E 2E 00 4A 0F C6 02 3B 00 6E 0F D0 02 4F |K....J...;.n...O| 00000750: 4C 44 43 4F 4C 4F 52 20 4C 44 41 23 31 34 3B 41 |LDCOLOR LDA#14;A| 00000760: 4C 54 45 20 52 41 4D 45 4E 46 41 52 42 45 00 7D |LTE RAMENFARBE.}| 00000770: 0F DA 02 20 53 54 41 42 4F 52 44 45 52 00 A7 0F |... STABORDER...| 00000780: E4 02 20 4C 44 41 23 4F 42 45 4E 3B 4E 41 45 43 |.. LDA#OBEN;NAEC| 00000790: 48 53 54 45 52 20 49 52 51 20 42 45 49 20 5A 45 |HSTER IRQ BEI ZE| 000007A0: 49 4C 45 20 31 30 30 00 B6 0F EE 02 20 53 54 41 |ILE 100..... STA| 000007B0: 52 41 53 54 45 52 00 E2 0F F8 02 20 4A 4D 50 49 |RASTER..... JMPI| 000007C0: 52 51 41 4C 54 3B 55 4E 44 20 5A 55 52 20 41 4C |RQALT;UND ZUR AL| 000007D0: 54 45 4E 20 49 52 51 2D 52 4F 55 54 49 4E 45 2E |TEN IRQ-ROUTINE.| 000007E0: 2E 2E 00 EA 0F 60 EA 2E 45 4E 00 00 00 |.....`..EN... |
.......LI1,4,0.9....BA 49152
;STARTADRESSE.B....GL IRQVEC = $0314
;IRQ-VEKTOR......GL IRQALT = $EA3
1 ;ALTE IRQ-ROUTINE.D.(..GL VIC
= $D000 ;BASISADRESSE DES VIC...2
..GL IRQMASK= VIC+26 ;IRQMASKENREGI
STER.&.<..GL IRQFLAG= VIC+25 ;IRQ-R
EQUESTREGISTER.Y.F..GL RASTER = VIC+18
;RASTERZEILENREGISTER...P..GL BORDER
= VIC+32 ;RAHMENFARBE-REGISTER...Z
..GL OBEN = 100 ;OBERE RASTERZ
EILE...D..GL UNTEN = 200 ;UNTER
E RASTERZEILE.(.N..GL HIBIT = VIC+17
;BIT 8 DER RASTERZEILENNUMMER.].X..GL
CIATIME= $DC0E ;TIMER A STEUERREG
ISTER.C...;.|.H.INIT SEI;IRQ SPERREN...R
. LDA#OBEN;IRQ FUER RASTERZEILE 100.....
STARASTER.O... LDAHIBIT;BIT 8 LOESCHEN.
.... AND#127..... STAHIBIT..... LDA#129;
IRQ MASKIEREN. ... STAIRQMASK;RASTER-IRQ
.G... LDA#<(IRQNEU);IRQ-VEKTOR AUF NEUE.
N.". LDX#>(IRQNEU);IRQ-ROUTINE STELLEN.}
.,. STAIRQVEC...6. STXIRQVEC+1...@. LDAC
IATIME;TIMER A STOPPEN...J. AND#254.K.T.
STACIATIME...^. CLI;IRQ WIEDER ZULASSEN
...H. RTS;UND ZURUECK......R.;.!.|.DEINI
T SEI;IRQ SPERREN.?... LDA#0;IRQ-MASKENR
EGISTER.X... STAIRQMASK;LOESCHEN.... LD
ACIATIME;TIMER A WIEDER STARTEN..... ORA
#1..... STACIATIME.C... LDA#<(IRQALT);IR
Q-VEKTOR WIEDER AUF...B. LDX#>(IRQALT);A
LTE IRQ-ROUTINE STELLEN...L. STAIRQVEC..
.V. STXIRQVEC+1.,... CLI;IRQ WIEDER ZULA
SSEN.L... LDA#14;NORMALE RAHMENFARBE.G..
. STABORDER;EINSCHALTEN.... RTS;UND ZUR
UECK........;.....IRQNEU LDAIRQFLAG;VIC-
IRQ-FLAGS LESEN.T... STAIRQFLAG;UND WIED
ER SCHREIBEN.Z.&.;...0.VICIRQ LDARASTER;
RASTERZEILENREGISTER LESEN./.:. CMP#UNTE
N;GROESSER/GLEICH 200 ?.Y.D. BCSOLDCOLOR
;JA, DANN ALTE RAMENFARBE._.N.;...X.NEWC
OLOR LDA#6;SONST NEUE RAHMENFARBE...B. S
TABORDER.C.L. LDA#UNTEN;NAECHSTER IRQ BE
I ZEILE 200.R.V. STARASTER.X...;.....IRQ
RETURN PLA;REGISTER ZURUECKHOLEN..... TA
Y..... PLA..... TAX.$... PLA.D... RTI;UN
D MIT RTI ZURUECK....J.F.;.N.P.OLDCOLOR
LDA#14;ALTE RAMENFARBE.}.Z. STABORDER...
.. LDA#OBEN;NAECHSTER IRQ BEI ZEILE 100.
.... STARASTER..... JMPIRQALT;UND ZUR AL
TEN IRQ-ROUTINE......`..EN...
> CLICK IMAGE PREVIEW FOR FULL MODAL