QUELLTEXT

FILE INFORMATION

FILENAME(S): QUELLTEXT

FILE TYPE(S): PRG

FILE SIZE: 1.2K

FIRST SEEN: 2025-11-30 01:12:36

APPEARS ON: 3 disk(s)

FILE HASH

e4e67e611cd21fb29ae0f41866819665882b6534ae7ec44eafa4e2deb0b8bf2b

FOUND ON DISKS (3 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
HEFT 12 85	QUELLTEXT	PRG	C64er	14	9	DOWNLOAD FILE
HEFT 12 85	QUELLTEXT	PRG	DuncanTwain	14	9	DOWNLOAD FILE
HEFT 12 85	QUELLTEXT	PRG	DuncanTwain	14	9	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: D8 1F E6 1F 0A 00 2E 4C  49 20 34 2C 34 2C 37 00  |.......LI 4,4,7.|
00000010: FA 1F 64 00 20 2E 45 51  49 52 51 4C 4F 3D 24 30  |..d. .EQIRQLO=$0|
00000020: 33 31 34 00 0E 20 6E 00  20 2E 45 51 49 52 51 48  |314.. n. .EQIRQH|
00000030: 49 3D 24 30 33 31 35 00  2B 20 8C 00 20 2E 45 51  |I=$0315.+ .. .EQ|
00000040: 53 54 45 55 45 52 52 45  47 49 53 54 45 52 3D 24  |STEUERREGISTER=$|
00000050: 44 30 31 31 00 45 20 96  00 20 2E 45 51 52 41 53  |D011.E .. .EQRAS|
00000060: 54 45 52 5A 45 49 4C 45  3D 24 44 30 31 32 00 57  |TERZEILE=$D012.W|
00000070: 20 A0 00 20 2E 45 51 49  52 52 3D 24 44 30 31 39  | .. .EQIRR=$D019|
00000080: 00 69 20 AA 00 20 2E 45  51 49 4D 52 3D 24 44 30  |.i .. .EQIMR=$D0|
00000090: 31 41 00 81 20 B4 00 20  2E 45 51 52 41 4E 44 46  |1A.. .. .EQRANDF|
000000A0: 41 52 42 45 3D 24 44 30  32 30 00 A0 20 BE 00 20  |ARBE=$D020.. .. |
000000B0: 2E 45 51 48 49 4E 54 45  52 47 52 55 4E 44 46 41  |.EQHINTERGRUNDFA|
000000C0: 52 42 45 3D 24 44 30 32  31 00 B2 20 C8 00 20 2E  |RBE=$D021.. .. .|
000000D0: 45 51 43 52 41 3D 24 44  43 30 45 00 C7 20 D2 00  |EQCRA=$DC0E.. ..|
000000E0: 20 2E 45 51 49 52 51 4F  52 47 3D 24 45 41 33 31  | .EQIRQORG=$EA31|
000000F0: 00 DD 20 DC 00 20 2E 45  51 41 55 53 47 41 42 45  |.. .. .EQAUSGABE|
00000100: 3D 24 46 46 44 32 00 E3  20 E6 00 3B 00 F1 20 F0  |=$FFD2.. ..;.. .|
00000110: 00 20 2E 42 41 24 43 30  30 30 00 F7 20 F1 00 3B  |. .BA$C000.. ..;|
00000120: 00 0E 21 FA 00 3B 49 52  51 2D 56 45 4B 54 4F 52  |..!..;IRQ-VEKTOR|
00000130: 20 53 45 54 5A 45 4E 00  17 21 36 01 20 53 45 49  | SETZEN..!6. SEI|
00000140: 00 27 21 40 01 20 4C 44  59 23 3C 28 49 52 51 29  |.'!@. LDY#<(IRQ)|
00000150: 00 37 21 4A 01 20 4C 44  58 23 3E 28 49 52 51 29  |.7!J. LDX#>(IRQ)|
00000160: 00 45 21 54 01 20 53 54  59 49 52 51 4C 4F 00 53  |.E!T. STYIRQLO.S|
00000170: 21 5E 01 20 53 54 58 49  52 51 48 49 00 59 21 5F  |!^. STXIRQHI.Y!_|
00000180: 01 3B 00 8F 21 60 01 3B  56 49 43 20 49 4E 49 54  |.;..!`.;VIC INIT|
00000190: 49 41 4C 49 53 49 45 52  45 4E 20 49 4E 54 45 52  |IALISIEREN INTER|
000001A0: 52 55 50 54 20 44 45 53  20 43 49 41 20 41 55 53  |RUPT DES CIA AUS|
000001B0: 53 43 48 41 4C 54 45 4E  00 9C 21 68 01 20 4C 44  |SCHALTEN..!h. LD|
000001C0: 41 23 24 30 30 00 BB 21  72 01 20 53 54 41 43 52  |A#$00..!r. STACR|
000001D0: 41 3B 43 4F 4E 54 52 4F  4C 20 52 45 47 49 53 54  |A;CONTROL REGIST|
000001E0: 45 52 20 41 00 C8 21 7C  01 20 4C 44 41 23 24 46  |ER A..!|. LDA#$F|
000001F0: 31 00 ED 21 86 01 20 53  54 41 49 4D 52 3B 49 4E  |1..!.. STAIMR;IN|
00000200: 54 45 52 52 55 50 54 20  4D 41 53 4B 45 4E 52 45  |TERRUPT MASKENRE|
00000210: 47 49 53 54 45 52 00 FA  21 90 01 20 4C 44 41 23  |GISTER..!.. LDA#|
00000220: 24 46 38 00 0E 22 9A 01  20 53 54 41 52 41 53 54  |$F8..".. STARAST|
00000230: 45 52 5A 45 49 4C 45 00  25 22 A4 01 20 4C 44 41  |ERZEILE.%".. LDA|
00000240: 53 54 45 55 45 52 52 45  47 49 53 54 45 52 00 32  |STEUERREGISTER.2|
00000250: 22 AE 01 20 41 4E 44 23  24 37 46 00 49 22 B8 01  |".. AND#$7F.I"..|
00000260: 20 53 54 41 53 54 45 55  45 52 52 45 47 49 53 54  | STASTEUERREGIST|
00000270: 45 52 00 56 22 C2 01 20  4C 44 58 23 24 32 31 00  |ER.V".. LDX#$21.|
00000280: 5C 22 C3 01 3B 00 93 22  C4 01 3B 42 49 4C 44 53  |\"..;.."..;BILDS|
00000290: 43 48 49 52 4D 20 4C 4F  45 53 43 48 45 4E 20 55  |CHIRM LOESCHEN U|
000002A0: 4E 44 20 45 49 4E 53 43  48 41 4C 54 4D 45 4C 44  |ND EINSCHALTMELD|
000002B0: 55 4E 47 20 41 55 53 47  45 42 45 4E 00 A6 22 CC  |UNG AUSGEBEN..".|
000002C0: 01 4C 4F 4F 50 20 4C 44  41 4E 41 4D 45 2C 58 00  |.LOOP LDANAME,X.|
000002D0: B6 22 D6 01 20 4A 53 52  41 55 53 47 41 42 45 00  |.".. JSRAUSGABE.|
000002E0: BF 22 E0 01 20 44 45 58  00 CC 22 EA 01 20 42 4E  |.".. DEX..".. BN|
000002F0: 45 4C 4F 4F 50 00 D9 22  F4 01 20 4C 44 59 23 24  |ELOOP..".. LDY#$|
00000300: 30 37 00 EB 22 FE 01 20  53 54 59 52 41 4E 44 46  |07..".. STYRANDF|
00000310: 41 52 42 45 00 F8 22 08  02 20 4C 44 59 23 24 30  |ARBE..".. LDY#$0|
00000320: 38 00 11 23 12 02 20 53  54 59 48 49 4E 54 45 52  |8..#.. STYHINTER|
00000330: 47 52 55 4E 44 46 41 52  42 45 00 1A 23 1C 02 20  |GRUNDFARBE..#.. |
00000340: 52 54 53 00 20 23 1D 02  3B 00 4A 23 1E 02 3B 48  |RTS. #..;.J#..;H|
00000350: 49 45 52 20 42 45 47 49  4E 4E 54 20 44 49 45 20  |IER BEGINNT DIE |
00000360: 45 49 47 45 4E 54 4C 49  43 48 45 20 52 4F 55 54  |EIGENTLICHE ROUT|
00000370: 49 4E 45 00 73 23 58 02  49 52 51 20 4C 44 58 23  |INE.s#X.IRQ LDX#|
00000380: 24 31 33 3B 41 55 46 20  32 34 20 5A 45 49 4C 45  |$13;AUF 24 ZEILE|
00000390: 4E 20 55 4D 53 43 48 41  4C 54 45 4E 00 8A 23 62  |N UMSCHALTEN..#b|
000003A0: 02 20 53 54 58 53 54 45  55 45 52 52 45 47 49 53  |. STXSTEUERREGIS|
000003B0: 54 45 52 00 A3 23 6C 02  57 41 52 54 45 20 4C 44  |TER..#l.WARTE LD|
000003C0: 41 52 41 53 54 45 52 5A  45 49 4C 45 00 B1 23 76  |ARASTERZEILE..#v|
000003D0: 02 20 42 4E 45 57 41 52  54 45 00 D7 23 80 02 20  |. BNEWARTE..#.. |
000003E0: 4C 44 58 23 24 31 42 3B  41 55 46 20 32 35 20 5A  |LDX#$1B;AUF 25 Z|
000003F0: 45 49 4C 45 4E 20 55 4D  53 43 48 41 4C 54 45 4E  |EILEN UMSCHALTEN|
00000400: 00 EE 23 8A 02 20 53 54  58 53 54 45 55 45 52 52  |..#.. STXSTEUERR|
00000410: 45 47 49 53 54 45 52 00  FB 23 94 02 20 4C 44 41  |EGISTER..#.. LDA|
00000420: 23 24 30 31 00 19 24 9E  02 20 53 54 41 49 52 52  |#$01..$.. STAIRR|
00000430: 3B 49 4E 54 45 52 52 55  50 54 20 52 45 51 55 45  |;INTERRUPT REQUE|
00000440: 53 54 00 26 24 A8 02 20  4C 44 41 23 24 46 31 00  |ST.&$.. LDA#$F1.|
00000450: 4B 24 B2 02 20 53 54 41  49 4D 52 3B 49 4E 54 45  |K$.. STAIMR;INTE|
00000460: 52 52 55 50 54 20 4D 41  53 4B 45 4E 52 45 47 49  |RRUPT MASKENREGI|
00000470: 53 54 45 52 00 5A 24 BC  02 20 4A 4D 50 49 52 51  |STER.Z$.. JMPIRQ|
00000480: 4F 52 47 00 60 24 BD 02  3B 00 8D 24 16 03 4E 41  |ORG.`$..;..$..NA|
00000490: 4D 45 20 2E 54 58 22 4E  4E 41 4D 52 48 45 47 20  |ME .TX"NNAMRHEG |
000004A0: 52 45 47 4C 4F 48 20 59  42 20 4E 45 45 52 43 53  |REGLOH YB NEERCS|
000004B0: 52 45 50 59 48 22 00 99  24 20 03 20 2E 42 59 31  |REPYH"..$ . .BY1|
000004C0: 34 37 00 00 00 20                                 |47...           |

X......LI 4,4,7...D. .EQIRQLO=$0314.. N.
 .EQIRQHI=$0315.+ .. .EQSTEUERREGISTER=$
D011.E .. .EQRASTERZEILE=$D012.W  . .EQI
RR=$D019.I .. .EQIMR=$D01A.. .. .EQRANDF
ARBE=$D020.  .. .EQHINTERGRUNDFARBE=$D02
1.. H. .EQCRA=$DC0E.G R. .EQIRQORG=$EA31
.. .. .EQAUSGABE=$FFD2.. ..;.. .. .BA$C0
00.. ..;..!..;IRQ-VEKTOR SETZEN..!6. SEI
.'!@. LDY#<(IRQ).7!J. LDX#>(IRQ).E!T. ST
YIRQLO.S!^. STXIRQHI.Y!_.;..!`.;VIC INIT
IALISIEREN INTERRUPT DES CIA AUSSCHALTEN
..!H. LDA#$00..!R. STACRA;CONTROL REGIST
ER A.H!|. LDA#$F1..!.. STAIMR;INTERRUPT 
MASKENREGISTER..!.. LDA#$F8..".. STARAST
ERZEILE.%".. LDASTEUERREGISTER.2".. AND#
$7F.I".. STASTEUERREGISTER.V"B. LDX#$21.
\"C.;.."D.;BILDSCHIRM LOESCHEN UND EINSC
HALTMELDUNG AUSGEBEN.."L.LOOP LDANAME,X.
."V. JSRAUSGABE..".. DEX.L".. BNELOOP.Y"
.. LDY#$07..".. STYRANDFARBE..".. LDY#$0
8..#.. STYHINTERGRUNDFARBE..#.. RTS. #..
;.J#..;HIER BEGINNT DIE EIGENTLICHE ROUT
INE.S#X.IRQ LDX#$13;AUF 24 ZEILEN UMSCHA
LTEN..#B. STXSTEUERREGISTER..#L.WARTE LD
ARASTERZEILE..#V. BNEWARTE.W#.. LDX#$1B;
AUF 25 ZEILEN UMSCHALTEN..#.. STXSTEUERR
EGISTER..#.. LDA#$01..$.. STAIRR;INTERRU
PT REQUEST.&$.. LDA#$F1.K$.. STAIMR;INTE
RRUPT MASKENREGISTER.Z$.. JMPIRQORG.`$..
;..$..NAME .TX"NNAMRHEG REGLOH YB NEERCS
REPYH"..$ . .BY147...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL