BLANKER C64M.SRC

FILE INFORMATION

FILENAME(S): BLANKER C64M.SRC

FILE TYPE(S): PRG

FILE SIZE: 1.5K

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

APPEARS ON: 2 disk(s)

FILE HASH

00ca488e62ec1944bcb53a602a298ae2aef8f40d967482a966f7f0e194d7e5d9

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
SONDERHEFT 10 86	BLANKER C64M.SRC	PRG	C64er	13	13	DOWNLOAD FILE
15829 SEITE B	BLANKER C64M.SRC	PRG	C64er	5	12	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: D8 1F F7 1F 64 00 3B 20  2A 2A 2A 20 42 4C 41 4E  |....d.; *** BLAN|
00000010: 4B 45 52 20 43 36 34 2D  4D 4F 44 45 20 2A 2A 2A  |KER C64-MODE ***|
00000020: 00 16 20 6E 00 3B 20 2A  2A 2A 20 3D 3D 3D 3D 3D  |.. n.; *** =====|
00000030: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 20 2A 2A 2A 00  |=========== ***.|
00000040: 1C 20 78 00 3B 00 3B 20  82 00 3B 20 2A 2A 2A 20  |. x.;.; ..; *** |
00000050: 43 36 34 2D 56 45 52 53  49 4F 4E 20 41 55 53 3A  |C64-VERSION AUS:|
00000060: 20 2A 2A 2A 00 5A 20 8C  00 3B 20 2A 2A 2A 20 53  | ***.Z ..; *** S|
00000070: 4F 4E 44 45 52 48 45 46  54 20 20 37 2F 38 36 20  |ONDERHEFT  7/86 |
00000080: 2A 2A 2A 00 60 20 96 00  3B 00 7F 20 A0 00 3B 20  |***.` ..;.. ..; |
00000090: 2A 2A 2A 20 41 4E 50 41  53 53 55 4E 47 20 41 4E  |*** ANPASSUNG AN|
000000A0: 20 44 45 4E 20 2A 2A 2A  00 9E 20 AA 00 3B 20 2A  | DEN ***.. ..; *|
000000B0: 2A 2A 20 36 34 2D 4D 4F  44 55 53 20 49 4D 20 43  |** 64-MODUS IM C|
000000C0: 31 32 38 20 2A 2A 2A 00  BD 20 B4 00 3B 20 2A 2A  |128 ***.. ..; **|
000000D0: 2A 20 20 56 4F 4E 20 46  2E 20 4D 55 45 4C 4C 45  |*  VON F. MUELLE|
000000E0: 52 20 20 2A 2A 2A 00 C3  20 BE 00 3B 00 E7 20 C8  |R  ***.. ..;.. .|
000000F0: 00 2E 45 51 20 49 52 51  56 45 43 20 3D 20 24 30  |..EQ IRQVEC = $0|
00000100: 33 31 34 20 3B 20 49 52  51 2D 56 45 4B 54 4F 52  |314 ; IRQ-VEKTOR|
00000110: 00 15 21 D2 00 2E 45 51  20 54 41 53 54 45 20 20  |..!...EQ TASTE  |
00000120: 3D 20 20 20 24 43 42 20  3B 20 41 4B 54 55 45 4C  |=   $CB ; AKTUEL|
00000130: 4C 45 52 20 54 41 53 54  45 4E 43 4F 44 45 00 4C  |LER TASTENCODE.L|
00000140: 21 DC 00 2E 45 51 20 41  4C 54 49 52 51 20 3D 20  |!...EQ ALTIRQ = |
00000150: 24 45 41 33 31 20 3B 20  41 44 52 45 53 53 45 20  |$EA31 ; ADRESSE |
00000160: 44 45 52 20 41 4C 54 45  4E 20 49 52 51 2D 52 4F  |DER ALTEN IRQ-RO|
00000170: 55 54 49 4E 45 00 76 21  E6 00 2E 45 51 20 42 4C  |UTINE.v!...EQ BL|
00000180: 41 4E 4B 31 20 3D 20 24  44 30 31 31 20 3B 20 56  |ANK1 = $D011 ; V|
00000190: 49 43 2D 52 45 47 49 53  54 45 52 20 23 31 37 00  |IC-REGISTER #17.|
000001A0: A0 21 F0 00 2E 45 51 20  42 4C 41 4E 4B 32 20 3D  |.!...EQ BLANK2 =|
000001B0: 20 24 44 30 33 30 20 3B  20 56 49 43 2D 52 45 47  | $D030 ; VIC-REG|
000001C0: 49 53 54 45 52 20 23 34  38 00 D1 21 FA 00 2E 45  |ISTER #48..!...E|
000001D0: 51 20 43 54 52 4C 46 4C  20 3D 20 24 30 32 38 44  |Q CTRLFL = $028D|
000001E0: 20 3B 20 46 4C 41 47 20  46 55 45 52 20 53 48 49  | ; FLAG FUER SHI|
000001F0: 46 54 2C 43 3D 2C 43 54  52 4C 00 F2 21 04 01 2E  |FT,C=,CTRL..!...|
00000200: 45 51 20 5A 41 45 48 4C  20 20 3D 20 20 20 24 42  |EQ ZAEHL  =   $B|
00000210: 36 20 3B 20 5A 41 45 48  4C 45 52 00 F8 21 0E 01  |6 ; ZAEHLER..!..|
00000220: 3B 00 19 22 18 01 2E 42  41 20 24 43 30 30 30 20  |;.."...BA $C000 |
00000230: 3B 20 41 42 20 34 39 31  35 32 20 41 42 4C 45 47  |; AB 49152 ABLEG|
00000240: 45 4E 00 1F 22 22 01 3B  00 25 22 2C 01 3B 00 51  |EN.."".;.%",.;.Q|
00000250: 22 36 01 3B 20 49 4E 49  54 49 41 4C 49 53 49 45  |"6.; INITIALISIE|
00000260: 52 55 4E 47 20 44 45 52  20 4E 45 55 45 4E 20 49  |RUNG DER NEUEN I|
00000270: 52 51 2D 52 4F 55 54 49  4E 45 00 57 22 40 01 3B  |RQ-ROUTINE.W"@.;|
00000280: 00 76 22 4A 01 20 53 45  49 3B 20 49 4E 54 45 52  |.v"J. SEI; INTER|
00000290: 52 55 50 54 20 41 42 53  43 48 41 4C 54 45 4E 00  |RUPT ABSCHALTEN.|
000002A0: 7C 22 54 01 3B 00 9B 22  5E 01 20 4C 44 41 23 3C  ||"T.;.."^. LDA#<|
000002B0: 28 4E 45 55 49 52 51 29  3B 20 49 52 51 2D 56 45  |(NEUIRQ); IRQ-VE|
000002C0: 4B 54 4F 52 00 B8 22 68  01 20 4C 44 59 23 3E 28  |KTOR.."h. LDY#>(|
000002D0: 4E 45 55 49 52 51 29 3B  20 41 55 46 20 4E 45 55  |NEUIRQ); AUF NEU|
000002E0: 45 00 D4 22 72 01 20 53  54 41 49 52 51 56 45 43  |E.."r. STAIRQVEC|
000002F0: 3B 20 49 52 51 2D 52 4F  55 54 49 4E 45 00 EE 22  |; IRQ-ROUTINE.."|
00000300: 7C 01 20 53 54 59 49 52  51 56 45 43 2B 31 3B 20  ||. STYIRQVEC+1; |
00000310: 53 54 45 4C 4C 45 4E 00  F4 22 86 01 3B 00 00 23  |STELLEN.."..;..#|
00000320: 90 01 20 4C 44 41 23 33  30 00 1E 23 9A 01 20 53  |.. LDA#30..#.. S|
00000330: 54 41 5A 41 45 48 4C 3B  20 5A 41 45 48 4C 45 52  |TAZAEHL; ZAEHLER|
00000340: 20 53 45 54 5A 45 4E 00  24 23 90 01 3B 00 4B 23  | SETZEN.$#..;.K#|
00000350: 9A 01 20 43 4C 49 3B 20  49 4E 54 45 52 52 55 50  |.. CLI; INTERRUP|
00000360: 54 20 57 49 45 44 45 52  20 45 49 4E 53 43 48 41  |T WIEDER EINSCHA|
00000370: 4C 54 45 4E 00 6E 23 A4  01 20 52 54 53 3B 20 45  |LTEN.n#.. RTS; E|
00000380: 4E 44 45 20 44 45 52 20  49 4E 49 54 49 41 4C 49  |NDE DER INITIALI|
00000390: 53 49 45 52 55 4E 47 00  74 23 AE 01 3B 00 88 23  |SIERUNG.t#..;..#|
000003A0: B8 01 4E 45 55 49 52 51  20 4C 44 58 5A 41 45 48  |..NEUIRQ LDXZAEH|
000003B0: 4C 00 91 23 C2 01 20 44  45 58 00 B7 23 CC 01 20  |L..#.. DEX..#.. |
000003C0: 53 54 58 5A 41 45 48 4C  3B 20 5A 41 45 48 4C 45  |STXZAEHL; ZAEHLE|
000003D0: 52 20 44 45 4B 52 45 4D  45 4E 54 49 45 52 45 4E  |R DEKREMENTIEREN|
000003E0: 00 C5 23 D6 01 20 42 4D  49 50 52 55 45 46 00 F5  |..#.. BMIPRUEF..|
000003F0: 23 E0 01 45 4E 44 45 49  52 51 20 4A 4D 50 41 4C  |#..ENDEIRQ JMPAL|
00000400: 54 49 52 51 3B 20 57 45  49 54 45 52 20 57 49 45  |TIRQ; WEITER WIE|
00000410: 20 42 45 49 20 41 4C 54  45 4D 20 49 52 51 00 FB  | BEI ALTEM IRQ..|
00000420: 23 E5 01 3B 00 0C 24 EA  01 50 52 55 45 46 20 4C  |#..;..$..PRUEF L|
00000430: 44 41 23 33 30 00 31 24  F4 01 20 53 54 41 5A 41  |DA#30.1$.. STAZA|
00000440: 45 48 4C 3B 20 5A 41 45  48 4C 45 52 20 57 49 45  |EHL; ZAEHLER WIE|
00000450: 44 45 52 20 53 45 54 5A  45 4E 00 37 24 F9 01 3B  |DER SETZEN.7$..;|
00000460: 00 45 24 FE 01 20 4C 44  41 54 41 53 54 45 00 62  |.E$.. LDATASTE.b|
00000470: 24 08 02 20 43 4D 50 23  32 38 3B 20 41 55 46 20  |$.. CMP#28; AUF |
00000480: 22 42 22 20 50 52 55 45  46 45 4E 00 84 24 12 02  |"B" PRUEFEN..$..|
00000490: 20 42 4E 45 45 4E 44 45  49 52 51 3B 20 45 4E 44  | BNEENDEIRQ; END|
000004A0: 45 20 57 45 4E 4E 20 3C  3E 20 22 42 22 00 8A 24  |E WENN <> "B"..$|
000004B0: 17 02 3B 00 AE 24 1C 02  20 4C 44 41 23 34 3B 20  |..;..$.. LDA#4; |
000004C0: 42 49 54 20 46 55 45 52  20 22 43 54 52 4C 22 20  |BIT FUER "CTRL" |
000004D0: 47 45 53 45 54 5A 54 00  D5 24 26 02 20 42 49 54  |GESETZT..$&. BIT|
000004E0: 43 54 52 4C 46 4C 3B 20  41 55 46 20 43 54 52 4C  |CTRLFL; AUF CTRL|
000004F0: 2D 54 41 53 54 45 20 50  52 55 45 46 45 4E 00 06  |-TASTE PRUEFEN..|
00000500: 25 30 02 20 42 45 51 45  4E 44 45 49 52 51 3B 20  |%0. BEQENDEIRQ; |
00000510: 4E 49 43 48 54 20 43 54  52 4C 20 47 45 44 52 55  |NICHT CTRL GEDRU|
00000520: 45 43 4B 54 2C 20 44 41  4E 4E 20 45 4E 44 45 00  |ECKT, DANN ENDE.|
00000530: 0C 25 35 02 3B 00 1B 25  3A 02 20 4C 44 41 42 4C  |.%5.;..%:. LDABL|
00000540: 41 4E 4B 31 00 3A 25 44  02 20 45 4F 52 23 31 36  |ANK1.:%D. EOR#16|
00000550: 3B 20 42 4C 41 4E 4B 2D  42 49 54 20 46 4C 49 50  |; BLANK-BIT FLIP|
00000560: 50 45 4E 00 5A 25 4E 02  20 53 54 41 42 4C 41 4E  |PEN.Z%N. STABLAN|
00000570: 4B 31 3B 20 55 4E 44 20  41 42 53 50 45 49 43 48  |K1; UND ABSPEICH|
00000580: 45 52 4E 00 60 25 53 02  3B 00 6F 25 58 02 20 4C  |ERN.`%S.;.o%X. L|
00000590: 44 41 42 4C 41 4E 4B 32  00 90 25 62 02 20 45 4F  |DABLANK2..%b. EO|
000005A0: 52 23 31 3B 20 46 41 53  54 2D 42 49 54 20 49 4E  |R#1; FAST-BIT IN|
000005B0: 56 45 52 54 49 45 52 45  4E 00 B0 25 6C 02 20 53  |VERTIEREN..%l. S|
000005C0: 54 41 42 4C 41 4E 4B 32  3B 20 55 4E 44 20 41 42  |TABLANK2; UND AB|
000005D0: 53 50 45 49 43 48 45 52  4E 00 B6 25 71 02 3B 00  |SPEICHERN..%q.;.|
000005E0: DC 25 76 02 20 4A 4D 50  41 4C 54 49 52 51 3B 20  |.%v. JMPALTIRQ; |
000005F0: 57 45 49 54 45 52 20 42  45 49 4D 20 41 4C 54 45  |WEITER BEIM ALTE|
00000600: 4E 20 49 52 51 00 00 00                           |N IRQ...        |

X...D.; *** BLANKER C64-MODE ***.. N.; *
** ================ ***.. X.;.; ..; *** 
C64-VERSION AUS: ***.Z ..; *** SONDERHEF
T  7/86 ***.` ..;.  .; *** ANPASSUNG AN
 DEN ***.. ..; *** 64-MODUS IM C128 ***.
. ..; ***  VON F. MUELLER  ***.C ..;.. H
..EQ IRQVEC = $0314 ; IRQ-VEKTOR..!R..EQ
 TASTE  =   $CB ; AKTUELLER TASTENCODE.L
!...EQ ALTIRQ = $EA31 ; ADRESSE DER ALTE
N IRQ-ROUTINE.V!...EQ BLANK1 = $D011 ; V
IC-REGISTER #17. !...EQ BLANK2 = $D030 ;
 VIC-REGISTER #48.Q!...EQ CTRLFL = $028D
 ; FLAG FUER SHIFT,C=,CTRL..!...EQ ZAEHL
  =   $B6 ; ZAEHLER..!..;.."...BA $C000 
; AB 49152 ABLEGEN.."".;.%",.;.Q"6.; INI
TIALISIERUNG DER NEUEN IRQ-ROUTINE.W"@.;
.V"J. SEI; INTERRUPT ABSCHALTEN.|"T.;.."
^. LDA#<(NEUIRQ); IRQ-VEKTOR.."H. LDY#>(
NEUIRQ); AUF NEUE.T"R. STAIRQVEC; IRQ-RO
UTINE.."|. STYIRQVEC+1; STELLEN.."..;..#
.. LDA#30..#.. STAZAEHL; ZAEHLER SETZEN.
$#..;.K#.. CLI; INTERRUPT WIEDER EINSCHA
LTEN.N#.. RTS; ENDE DER INITIALISIERUNG.
T#..;..#..NEUIRQ LDXZAEHL..#B. DEX..#L. 
STXZAEHL; ZAEHLER DEKREMENTIEREN.E#V. BM
IPRUEF..#..ENDEIRQ JMPALTIRQ; WEITER WIE
 BEI ALTEM IRQ..#..;..$..PRUEF LDA#30.1$
.. STAZAEHL; ZAEHLER WIEDER SETZEN.7$..;
.E$.. LDATASTE.B$.. CMP#28; AUF "B" PRUE
FEN..$.. BNEENDEIRQ; ENDE WENN <> "B"..$
..;..$.. LDA#4; BIT FUER "CTRL" GESETZT.
U$&. BITCTRLFL; AUF CTRL-TASTE PRUEFEN..
%0. BEQENDEIRQ; NICHT CTRL GEDRUECKT, DA
NN ENDE..%5.;..%:. LDABLANK1.:%D. EOR#16
; BLANK-BIT FLIPPEN.Z%N. STABLANK1; UND 
ABSPEICHERN.`%S.;.O%X. LDABLANK2..%B. EO
R#1; FAST-BIT INVERTIEREN..%L. STABLANK2
; UND ABSPEICHERN..%Q.;..%V. JMPALTIRQ; 
WEITER BEIM ALTEN IRQ...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL