TEIL 2.LISTING 1
FILE INFORMATION
FILENAME(S): TEIL 2.LISTING 1
FILE TYPE(S): PRG
FILE SIZE: 481b
FIRST SEEN: 2025-11-30 01:13:10
APPEARS ON: 1 disk(s)
FILE HASH
77a838931c428bbe4edfaa9a2e5ca1ca7afd2b5536cae146fbfab67d52dad049
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10907 SEITE A | TEIL 2.LISTING 1 | PRG | C64er, DuncanTwain | 5 | 20 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0F 08 0A 00 2E 42 41 20 34 39 31 35 32 00 |.......BA 49152.|
00000010: 37 08 14 00 2E 47 4C 20 49 52 51 56 45 43 20 20 |7....GL IRQVEC |
00000020: 20 20 20 3D 20 24 30 33 31 34 20 20 20 3B 49 52 | = $0314 ;IR|
00000030: 51 56 45 4B 54 4F 52 00 6A 08 1E 00 2E 47 4C 20 |QVEKTOR.j....GL |
00000040: 43 49 41 43 4F 4E 54 52 4F 4C 20 3D 20 24 44 43 |CIACONTROL = $DC|
00000050: 30 44 20 20 20 3B 43 49 41 2D 4B 4F 4E 54 52 4F |0D ;CIA-KONTRO|
00000060: 4C 4C 52 45 47 49 53 54 45 52 00 86 08 64 00 49 |LLREGISTER...d.I|
00000070: 4E 49 54 20 53 45 49 3B 49 52 51 20 56 45 52 48 |NIT SEI;IRQ VERH|
00000080: 49 4E 44 45 52 4E 00 AD 08 6E 00 20 4C 44 41 23 |INDERN...n. LDA#|
00000090: 3C 28 49 52 51 4E 45 55 29 3B 49 52 51 2D 56 45 |<(IRQNEU);IRQ-VE|
000000A0: 4B 54 4F 52 20 41 55 46 20 4E 45 55 45 00 D4 08 |KTOR AUF NEUE...|
000000B0: 78 00 20 4C 44 58 23 3E 28 49 52 51 4E 45 55 29 |x. LDX#>(IRQNEU)|
000000C0: 3B 49 52 51 2D 52 4F 55 54 49 4E 45 20 53 54 45 |;IRQ-ROUTINE STE|
000000D0: 4C 4C 45 4E 00 E3 08 82 00 20 53 54 41 49 52 51 |LLEN..... STAIRQ|
000000E0: 56 45 43 00 F4 08 8C 00 20 53 54 58 49 52 51 56 |VEC..... STXIRQV|
000000F0: 45 43 2B 31 00 11 09 96 00 20 43 4C 49 3B 49 52 |EC+1..... CLI;IR|
00000100: 51 20 57 49 45 44 45 52 20 5A 55 4C 41 53 53 45 |Q WIEDER ZULASSE|
00000110: 4E 00 29 09 A0 00 20 52 54 53 3B 55 4E 44 20 5A |N.)... RTS;UND Z|
00000120: 55 52 55 45 43 4B 2E 2E 2E 00 2F 09 BE 00 3B 00 |URUECK..../...;.|
00000130: 56 09 C8 00 49 52 51 4E 45 55 20 49 4E 43 31 30 |V...IRQNEU INC10|
00000140: 32 34 3B 31 30 32 34 20 49 4E 4B 52 45 4D 45 4E |24;1024 INKREMEN|
00000150: 54 49 45 52 45 4E 00 7B 09 D2 00 20 4C 44 41 43 |TIEREN.{... LDAC|
00000160: 49 41 43 4F 4E 54 52 4F 4C 3B 49 52 51 2D 46 4C |IACONTROL;IRQ-FL|
00000170: 41 47 20 4C 4F 45 53 43 48 45 4E 00 9A 09 DC 00 |AG LOESCHEN.....|
00000180: 20 50 4C 41 3B 52 45 47 49 53 54 45 52 20 5A 55 | PLA;REGISTER ZU|
00000190: 52 55 45 43 4B 48 4F 4C 45 4E 00 A3 09 E6 00 20 |RUECKHOLEN..... |
000001A0: 54 41 59 00 AC 09 F0 00 20 50 4C 41 00 B5 09 FA |TAY..... PLA....|
000001B0: 00 20 54 41 58 00 BE 09 04 01 20 50 4C 41 00 DE |. TAX..... PLA..|
000001C0: 09 0E 01 20 52 54 49 3B 55 4E 44 20 4D 49 54 20 |... RTI;UND MIT |
000001D0: 52 54 49 20 5A 55 52 55 45 43 4B 2E 2E 2E 00 00 |RTI ZURUECK.....|
000001E0: 00 |. |
.......BA 49152.7....GL IRQVEC = $03
14 ;IRQVEKTOR.J....GL CIACONTROL = $DC
0D ;CIA-KONTROLLREGISTER...D.INIT SEI;
IRQ VERHINDERN...N. LDA#<(IRQNEU);IRQ-VE
KTOR AUF NEUE.T.X. LDX#>(IRQNEU);IRQ-ROU
TINE STELLEN..... STAIRQVEC..... STXIRQV
EC+1..... CLI;IRQ WIEDER ZULASSEN.). . R
TS;UND ZURUECK..../...;.V.H.IRQNEU INC10
24;1024 INKREMENTIEREN.{.R. LDACIACONTRO
L;IRQ-FLAG LOESCHEN..... PLA;REGISTER ZU
RUECKHOLEN..... TAY..... PLA..... TAX...
.. PLA..... RTI;UND MIT RTI ZURUECK.....
.
> CLICK IMAGE PREVIEW FOR FULL MODAL