C128-FASTER.SRC
FILE INFORMATION
FILENAME(S): C128-FASTER.SRC
FILE TYPE(S): PRG
FILE SIZE: 1.5K
FIRST SEEN: 2025-11-30 01:13:14
APPEARS ON: 1 disk(s)
FILE HASH
25a1b954c50ab9c3e07ac072fe04ce777dbeb842247ce6d9ba1b3e072ad4e761
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15722 SEITE A | C128-FASTER.SRC | PRG | C64er | 31 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 0D 1C 0A 00 20 2E 4C 49 34 2C 34 00 1B 1C |...... .LI4,4...| 00000010: 14 00 20 2E 42 41 24 31 33 30 30 00 61 1C E8 03 |.. .BA$1300.a...| 00000020: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************| 00000030: 2A 2A 2A 2A 20 49 4E 54 45 52 55 50 54 20 49 4E |**** INTERUPT IN| 00000040: 49 54 49 41 4C 49 53 49 45 52 45 4E 20 2A 2A 2A |ITIALISIEREN ***| 00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000060: 2A 00 7C 1C F2 03 20 53 45 49 3B 49 4E 54 45 52 |*.|... SEI;INTER| 00000070: 52 55 50 54 20 53 50 45 52 52 45 4E 00 97 1C FC |RUPT SPERREN....| 00000080: 03 20 4C 44 41 23 3C 28 49 52 51 29 3B 49 4E 54 |. LDA#<(IRQ);INT| 00000090: 45 52 52 55 50 54 2D 00 AC 1C 06 04 20 53 54 41 |ERRUPT-..... STA| 000000A0: 24 30 33 31 34 3B 56 45 4B 54 4F 52 00 BC 1C 10 |$0314;VEKTOR....| 000000B0: 04 20 4C 44 41 23 3E 28 49 52 51 29 00 D4 1C 1A |. LDA#>(IRQ)....| 000000C0: 04 20 53 54 41 24 30 33 31 35 3B 56 45 52 42 49 |. STA$0315;VERBI| 000000D0: 45 47 45 4E 00 F0 1C 24 04 20 4C 44 41 24 44 30 |EGEN...$. LDA$D0| 000000E0: 31 31 3B 52 41 53 54 45 52 5A 45 49 4C 45 4E 2D |11;RASTERZEILEN-| 000000F0: 00 05 1D 2E 04 20 41 4E 44 23 24 37 46 3B 48 49 |..... AND#$7F;HI| 00000100: 47 48 42 49 54 00 1C 1D 38 04 20 53 54 41 24 44 |GHBIT...8. STA$D| 00000110: 30 31 31 3B 4C 4F 45 53 43 48 45 4E 00 44 1D 42 |011;LOESCHEN.D.B| 00000120: 04 20 4C 44 41 23 24 33 32 3B 52 41 53 54 45 52 |. LDA#$32;RASTER| 00000130: 49 4E 54 45 52 52 55 50 54 41 4E 46 41 4E 47 53 |INTERRUPTANFANGS| 00000140: 57 45 52 54 00 59 1D 4C 04 20 53 54 41 24 44 30 |WERT.Y.L. STA$D0| 00000150: 31 32 3B 53 45 54 5A 45 4E 00 76 1D 56 04 20 4C |12;SETZEN.v.V. L| 00000160: 44 41 23 24 38 31 3B 52 41 53 54 45 52 49 4E 54 |DA#$81;RASTERINT| 00000170: 45 52 52 55 50 54 00 8E 1D 60 04 20 53 54 41 24 |ERRUPT...`. STA$| 00000180: 44 30 31 41 3B 46 52 45 49 47 45 42 45 4E 00 AA |D01A;FREIGEBEN..| 00000190: 1D 6A 04 20 43 4C 49 3B 49 4E 54 45 52 52 55 50 |.j. CLI;INTERRUP| 000001A0: 54 20 5A 55 4C 41 53 53 45 4E 00 C4 1D 74 04 20 |T ZULASSEN...t. | 000001B0: 52 54 53 3B 5A 55 52 55 45 43 4B 20 5A 55 20 42 |RTS;ZURUECK ZU B| 000001C0: 41 53 49 43 00 0A 1E 7E 04 3B 2A 2A 2A 2A 2A 2A |ASIC...~.;******| 000001D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000001E0: 20 49 4E 54 45 52 55 50 54 52 4F 55 54 49 4E 45 | INTERUPTROUTINE| 000001F0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************| 00000200: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 24 1E 88 04 49 |**********.$...I| 00000210: 52 51 20 4C 44 41 24 44 38 3B 54 45 58 54 4D 4F |RQ LDA$D8;TEXTMO| 00000220: 44 55 53 3F 00 3A 1E 92 04 20 42 45 51 45 49 4E |DUS?.:... BEQEIN| 00000230: 53 50 52 3B 4A 41 20 2D 2D 3E 00 59 1E 9C 04 20 |SPR;JA -->.Y... | 00000240: 41 4E 44 23 36 34 3B 47 52 41 50 48 49 43 20 4F |AND#64;GRAPHIC O| 00000250: 48 4E 45 20 54 45 58 54 3F 00 70 1E A6 04 20 42 |HNE TEXT?.p... B| 00000260: 45 51 45 49 4E 53 50 52 32 3B 4A 41 20 2D 2D 3E |EQEINSPR2;JA -->| 00000270: 00 8C 1E B0 04 45 49 4E 53 50 52 20 4C 44 41 24 |.....EINSPR LDA$| 00000280: 44 30 31 31 3B 42 49 54 4D 41 50 2D 00 9F 1E BA |D011;BITMAP-....| 00000290: 04 20 41 4E 44 23 32 32 33 3B 4D 4F 44 55 53 00 |. AND#223;MODUS.| 000002A0: B1 1E C4 04 20 53 54 41 24 44 30 31 31 3B 41 55 |.... STA$D011;AU| 000002B0: 53 00 CB 1E CE 04 20 4C 44 41 23 31 31 35 3B 53 |S..... LDA#115;S| 000002C0: 54 41 4E 44 41 52 54 57 45 52 54 00 DF 1E D8 04 |TANDARTWERT.....| 000002D0: 20 53 54 41 31 3B 46 55 45 52 20 54 45 58 54 00 | STA1;FUER TEXT.| 000002E0: F9 1E E2 04 20 4C 44 41 24 44 30 31 36 3B 4D 55 |.... LDA$D016;MU| 000002F0: 4C 54 49 43 4F 4C 4F 52 2D 00 0C 1F EC 04 20 41 |LTICOLOR-..... A| 00000300: 4E 44 23 32 33 39 3B 4D 4F 44 55 53 00 1E 1F F6 |ND#239;MODUS....| 00000310: 04 20 53 54 41 24 44 30 31 36 3B 41 55 53 00 3A |. STA$D016;AUS.:| 00000320: 1F 00 05 20 4C 44 41 24 30 41 32 43 3B 41 44 52 |... LDA$0A2C;ADR| 00000330: 45 53 53 45 4E 20 46 55 45 52 00 63 1F 0A 05 20 |ESSEN FUER.c... | 00000340: 53 54 41 24 44 30 31 38 3B 42 49 4C 44 53 43 48 |STA$D018;BILDSCH| 00000350: 49 52 4D 20 55 4E 44 20 5A 45 49 43 48 45 4E 53 |IRM UND ZEICHENS| 00000360: 41 54 5A 00 85 1F 14 05 20 4C 44 41 24 44 30 31 |ATZ..... LDA$D01| 00000370: 39 3B 52 41 53 54 45 52 49 4E 52 45 52 52 55 50 |9;RASTERINRERRUP| 00000380: 54 46 4C 41 47 00 9C 1F 1E 05 20 53 54 41 24 44 |TFLAG..... STA$D| 00000390: 30 31 39 3B 4C 4F 45 53 43 48 45 4E 00 C6 1F 28 |019;LOESCHEN...(| 000003A0: 05 45 49 4E 53 50 52 32 20 4C 44 41 24 44 30 31 |.EINSPR2 LDA$D01| 000003B0: 32 3B 41 4B 54 55 45 4C 4C 45 20 52 41 53 54 45 |2;AKTUELLE RASTE| 000003C0: 52 5A 45 49 4C 45 00 DA 1F 32 05 20 43 4D 50 23 |RZEILE...2. CMP#| 000003D0: 24 46 41 3B 3E 3D 24 46 41 3F 00 F1 1F 3C 05 20 |$FA;>=$FA?...<. | 000003E0: 42 43 53 5A 57 45 49 54 45 52 3B 4A 41 20 2D 2D |BCSZWEITER;JA --| 000003F0: 3E 00 07 20 46 05 20 4C 44 41 23 30 3B 32 20 4D |>.. F. LDA#0;2 M| 00000400: 48 5A 4D 4F 44 55 53 00 19 20 50 05 20 53 54 41 |HZMODUS.. P. STA| 00000410: 24 44 30 33 30 3B 41 55 53 00 3A 20 5A 05 20 4C |$D030;AUS.: Z. L| 00000420: 44 41 23 24 46 41 3B 57 45 52 54 20 46 55 45 52 |DA#$FA;WERT FUER| 00000430: 20 4E 41 45 43 48 53 54 45 4E 00 58 20 64 05 20 | NAECHSTEN.X d. | 00000440: 53 54 41 24 44 30 31 32 3B 52 41 53 54 45 52 49 |STA$D012;RASTERI| 00000450: 4E 54 45 52 52 55 50 54 00 70 20 6E 05 20 4A 4D |NTERRUPT.p n. JM| 00000460: 50 24 46 46 33 33 3B 41 42 53 43 48 4C 55 53 53 |P$FF33;ABSCHLUSS| 00000470: 00 8D 20 78 05 5A 57 45 49 54 45 52 20 4C 44 41 |.. x.ZWEITER LDA| 00000480: 23 31 3B 32 20 4D 48 5A 4D 4F 44 55 53 00 9E 20 |#1;2 MHZMODUS.. | 00000490: 82 05 20 53 54 41 24 44 30 33 30 3B 41 4E 00 BF |.. STA$D030;AN..| 000004A0: 20 8C 05 20 4C 44 41 23 24 33 32 3B 57 45 52 54 | .. LDA#$32;WERT| 000004B0: 20 46 55 45 52 20 4E 41 45 43 48 53 54 45 4E 00 | FUER NAECHSTEN.| 000004C0: DD 20 96 05 20 53 54 41 24 44 30 31 32 3B 52 41 |. .. STA$D012;RA| 000004D0: 53 54 45 52 49 4E 54 45 52 52 55 50 54 00 F5 20 |STERINTERRUPT.. | 000004E0: A0 05 20 4A 4D 50 24 46 41 36 35 3B 41 42 53 43 |.. JMP$FA65;ABSC| 000004F0: 48 4C 55 53 53 00 3B 21 AA 05 3B 2A 2A 2A 2A 2A |HLUSS.;!..;*****| 00000500: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 |*************** | 00000510: 49 4E 54 45 52 55 50 54 20 41 55 53 53 43 48 41 |INTERUPT AUSSCHA| 00000520: 4C 54 45 4E 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |LTEN ***********| 00000530: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 5D 21 B4 05 |***********.]!..| 00000540: 49 52 51 32 20 53 45 49 3B 49 4E 54 45 52 52 55 |IRQ2 SEI;INTERRU| 00000550: 50 54 20 56 45 52 48 49 4E 44 45 52 4E 00 73 21 |PT VERHINDERN.s!| 00000560: BE 05 20 4C 44 41 23 30 3B 32 20 4D 48 5A 4D 4F |.. LDA#0;2 MHZMO| 00000570: 44 55 53 00 85 21 C8 05 20 53 54 41 24 44 30 33 |DUS..!.. STA$D03| 00000580: 30 3B 41 55 53 00 98 21 D2 05 20 4C 44 41 23 24 |0;AUS..!.. LDA#$| 00000590: 36 35 3B 41 4C 54 45 4E 00 B6 21 DC 05 20 53 54 |65;ALTEN..!.. ST| 000005A0: 41 24 30 33 31 34 3B 49 4E 54 45 52 52 55 50 54 |A$0314;INTERRUPT| 000005B0: 56 45 4B 54 4F 52 00 CB 21 E6 05 20 4C 44 41 23 |VEKTOR..!.. LDA#| 000005C0: 24 46 41 3B 57 49 45 44 45 52 2D 00 E4 21 F0 05 |$FA;WIEDER-..!..| 000005D0: 20 53 54 41 24 30 33 31 35 3B 48 45 52 53 54 45 | STA$0315;HERSTE| 000005E0: 4C 4C 45 4E 00 00 22 FA 05 20 43 4C 49 3B 49 4E |LLEN..".. CLI;IN| 000005F0: 54 45 52 52 55 50 54 20 5A 55 4C 41 53 53 45 4E |TERRUPT ZULASSEN| 00000600: 00 1A 22 04 06 20 52 54 53 3B 5A 55 52 55 45 43 |..".. RTS;ZURUEC| 00000610: 4B 20 5A 55 20 42 41 53 49 43 00 00 00 |K ZU BASIC... |
...... .LI4,4..... .BA$1300.A...;******* ************ INTERUPT INITIALISIEREN *** *****************.|... SEI;INTERRUPT SPE RREN..... LDA#<(IRQ);INTERRUPT-..... STA $0314;VEKTOR..... LDA#>(IRQ).T... STA$03 15;VERBIEGEN...$. LDA$D011;RASTERZEILEN- ..... AND#$7F;HIGHBIT...8. STA$D011;LOES CHEN.D.B. LDA#$32;RASTERINTERRUPTANFANGS WERT.Y.L. STA$D012;SETZEN.V.V. LDA#$81;R ASTERINTERRUPT...`. STA$D01A;FREIGEBEN.. .J. CLI;INTERRUPT ZULASSEN.D.T. RTS;ZURU ECK ZU BASIC...~.;********************** INTERUPTROUTINE *********************** **.$...IRQ LDA$D8;TEXTMODUS?.:... BEQEIN SPR;JA -->.Y... AND#64;GRAPHIC OHNE TEXT ?.P... BEQEINSPR2;JA -->.....EINSPR LDA$ D011;BITMAP-..... AND#223;MODUS...D. STA $D011;AUS.K.N. LDA#115;STANDARTWERT...X. STA1;FUER TEXT..... LDA$D016;MULTICOLOR -..... AND#239;MODUS..... STA$D016;AUS.: ... LDA$0A2C;ADRESSEN FUER.C... STA$D018 ;BILDSCHIRM UND ZEICHENSATZ..... LDA$D01 9;RASTERINRERRUPTFLAG..... STA$D019;LOES CHEN.F.(.EINSPR2 LDA$D012;AKTUELLE RASTE RZEILE.Z.2. CMP#$FA;>=$FA?...<. BCSZWEIT ER;JA -->.. F. LDA#0;2 MHZMODUS.. P. STA $D030;AUS.: Z. LDA#$FA;WERT FUER NAECHST EN.X D. STA$D012;RASTERINTERRUPT.P N. JM P$FF33;ABSCHLUSS.. X.ZWEITER LDA#1;2 MHZ MODUS.. .. STA$D030;AN.. .. LDA#$32;WERT FUER NAECHSTEN.. .. STA$D012;RASTERINTE RRUPT.. . JMP$FA65;ABSCHLUSS.;!..;***** *************** INTERUPT AUSSCHALTEN *** *******************.]!..IRQ2 SEI;INTERRU PT VERHINDERN.S!.. LDA#0;2 MHZMODUS..!H. STA$D030;AUS..!R. LDA#$65;ALTEN..!.. ST A$0314;INTERRUPTVEKTOR.K!.. LDA#$FA;WIED ER-..!.. STA$0315;HERSTELLEN..".. CLI;IN TERRUPT ZULASSEN..".. RTS;ZURUECK ZU BAS IC...
> CLICK IMAGE PREVIEW FOR FULL MODAL