BLANKER.SRC
FILE INFORMATION
FILENAME(S): BLANKER.SRC
FILE TYPE(S): PRG
FILE SIZE: 1.4K
FIRST SEEN: 2025-11-02 16:39:38
APPEARS ON: 1 disk(s)
FILE HASH
af8a889387f5023a05f4c82ddb2ec5bdf1d33ff810fda76cb4fb76a6771cf6f6
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 128 | BLANKER.SRC | PRG | Treasure Chest - Plattfuss | 1 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F FA 1F 64 00 3B 20 2A 2A 2A 20 42 4C 41 4E |....d.; *** BLAN| 00000010: 4B 45 52 20 2D 20 51 55 45 4C 4C 54 45 58 54 20 |KER - QUELLTEXT | 00000020: 2A 2A 2A 00 1C 20 6E 00 3B 20 2A 2A 2A 20 20 20 |***.. n.; *** | 00000030: 20 20 28 48 59 50 52 41 2D 41 53 53 29 20 20 20 | (HYPRA-ASS) | 00000040: 20 20 2A 2A 2A 00 22 20 78 00 3B 00 28 20 82 00 | ***." x.;.( ..| 00000050: 3B 00 4C 20 8C 00 2E 45 51 20 49 52 51 56 45 43 |;.L ...EQ IRQVEC| 00000060: 20 3D 20 24 30 33 31 34 20 3B 20 49 52 51 2D 56 | = $0314 ; IRQ-V| 00000070: 45 4B 54 4F 52 00 7A 20 96 00 2E 45 51 20 54 41 |EKTOR.z ...EQ TA| 00000080: 53 54 45 20 20 3D 20 20 20 24 43 42 20 3B 20 41 |STE = $CB ; A| 00000090: 4B 54 55 45 4C 4C 45 52 20 54 41 53 54 45 4E 43 |KTUELLER TASTENC| 000000A0: 4F 44 45 00 B1 20 A0 00 2E 45 51 20 41 4C 54 49 |ODE.. ...EQ ALTI| 000000B0: 52 51 20 3D 20 24 45 41 33 31 20 3B 20 41 44 52 |RQ = $EA31 ; ADR| 000000C0: 45 53 53 45 20 44 45 52 20 41 4C 54 45 4E 20 49 |ESSE DER ALTEN I| 000000D0: 52 51 2D 52 4F 55 54 49 4E 45 00 DB 20 AA 00 2E |RQ-ROUTINE.. ...| 000000E0: 45 51 20 42 4C 41 4E 4B 31 20 3D 20 24 44 30 31 |EQ BLANK1 = $D01| 000000F0: 31 20 3B 20 56 49 43 2D 52 45 47 49 53 54 45 52 |1 ; VIC-REGISTER| 00000100: 20 23 31 37 00 05 21 B4 00 2E 45 51 20 42 4C 41 | #17..!...EQ BLA| 00000110: 4E 4B 32 20 3D 20 24 44 30 33 30 20 3B 20 56 49 |NK2 = $D030 ; VI| 00000120: 43 2D 52 45 47 49 53 54 45 52 20 23 34 38 00 36 |C-REGISTER #48.6| 00000130: 21 BE 00 2E 45 51 20 43 54 52 4C 46 4C 20 3D 20 |!...EQ CTRLFL = | 00000140: 24 30 32 38 44 20 3B 20 46 4C 41 47 20 46 55 45 |$028D ; FLAG FUE| 00000150: 52 20 53 48 49 46 54 2C 43 3D 2C 43 54 52 4C 00 |R SHIFT,C=,CTRL.| 00000160: 57 21 C8 00 2E 45 51 20 5A 41 45 48 4C 20 20 3D |W!...EQ ZAEHL =| 00000170: 20 20 20 24 42 36 20 3B 20 5A 41 45 48 4C 45 52 | $B6 ; ZAEHLER| 00000180: 00 5D 21 D2 00 3B 00 7E 21 DC 00 2E 42 41 20 24 |.]!..;.~!...BA $| 00000190: 43 30 30 30 20 3B 20 41 42 20 34 39 31 35 32 20 |C000 ; AB 49152 | 000001A0: 41 42 4C 45 47 45 4E 00 84 21 E6 00 3B 00 8A 21 |ABLEGEN..!..;..!| 000001B0: F0 00 3B 00 B6 21 FA 00 3B 20 49 4E 49 54 49 41 |..;..!..; INITIA| 000001C0: 4C 49 53 49 45 52 55 4E 47 20 44 45 52 20 4E 45 |LISIERUNG DER NE| 000001D0: 55 45 4E 20 49 52 51 2D 52 4F 55 54 49 4E 45 00 |UEN IRQ-ROUTINE.| 000001E0: BC 21 04 01 3B 00 DB 21 0E 01 20 53 45 49 3B 20 |.!..;..!.. SEI; | 000001F0: 49 4E 54 45 52 52 55 50 54 20 41 42 53 43 48 41 |INTERRUPT ABSCHA| 00000200: 4C 54 45 4E 00 E1 21 18 01 3B 00 00 22 22 01 20 |LTEN..!..;.."". | 00000210: 4C 44 41 23 3C 28 4E 45 55 49 52 51 29 3B 20 49 |LDA#<(NEUIRQ); I| 00000220: 52 51 2D 56 45 4B 54 4F 52 00 1D 22 2C 01 20 4C |RQ-VEKTOR..",. L| 00000230: 44 59 23 3E 28 4E 45 55 49 52 51 29 3B 20 41 55 |DY#>(NEUIRQ); AU| 00000240: 46 20 4E 45 55 45 00 39 22 36 01 20 53 54 41 49 |F NEUE.9"6. STAI| 00000250: 52 51 56 45 43 3B 20 49 52 51 2D 52 4F 55 54 49 |RQVEC; IRQ-ROUTI| 00000260: 4E 45 00 53 22 40 01 20 53 54 59 49 52 51 56 45 |NE.S"@. STYIRQVE| 00000270: 43 2B 31 3B 20 53 54 45 4C 4C 45 4E 00 59 22 4A |C+1; STELLEN.Y"J| 00000280: 01 3B 00 65 22 54 01 20 4C 44 41 23 33 30 00 83 |.;.e"T. LDA#30..| 00000290: 22 5E 01 20 53 54 41 5A 41 45 48 4C 3B 20 5A 41 |"^. STAZAEHL; ZA| 000002A0: 45 48 4C 45 52 20 53 45 54 5A 45 4E 00 89 22 68 |EHLER SETZEN.."h| 000002B0: 01 3B 00 B0 22 72 01 20 43 4C 49 3B 20 49 4E 54 |.;.."r. CLI; INT| 000002C0: 45 52 52 55 50 54 20 57 49 45 44 45 52 20 45 49 |ERRUPT WIEDER EI| 000002D0: 4E 53 43 48 41 4C 54 45 4E 00 D3 22 7C 01 20 52 |NSCHALTEN.."|. R| 000002E0: 54 53 3B 20 45 4E 44 45 20 44 45 52 20 49 4E 49 |TS; ENDE DER INI| 000002F0: 54 49 41 4C 49 53 49 45 52 55 4E 47 00 D9 22 86 |TIALISIERUNG..".| 00000300: 01 3B 00 ED 22 90 01 4E 45 55 49 52 51 20 4C 44 |.;.."..NEUIRQ LD| 00000310: 58 5A 41 45 48 4C 00 F6 22 9A 01 20 44 45 58 00 |XZAEHL..".. DEX.| 00000320: 1C 23 A4 01 20 53 54 58 5A 41 45 48 4C 3B 20 5A |.#.. STXZAEHL; Z| 00000330: 41 45 48 4C 45 52 20 44 45 4B 52 45 4D 45 4E 54 |AEHLER DEKREMENT| 00000340: 49 45 52 45 4E 00 2A 23 AE 01 20 42 4D 49 50 52 |IEREN.*#.. BMIPR| 00000350: 55 45 46 00 5A 23 B8 01 45 4E 44 45 49 52 51 20 |UEF.Z#..ENDEIRQ | 00000360: 4A 4D 50 41 4C 54 49 52 51 3B 20 57 45 49 54 45 |JMPALTIRQ; WEITE| 00000370: 52 20 57 49 45 20 42 45 49 20 41 4C 54 45 4D 20 |R WIE BEI ALTEM | 00000380: 49 52 51 00 60 23 C2 01 3B 00 71 23 CC 01 50 52 |IRQ.`#..;.q#..PR| 00000390: 55 45 46 20 4C 44 41 23 33 30 00 96 23 D6 01 20 |UEF LDA#30..#.. | 000003A0: 53 54 41 5A 41 45 48 4C 3B 20 5A 41 45 48 4C 45 |STAZAEHL; ZAEHLE| 000003B0: 52 20 57 49 45 44 45 52 20 53 45 54 5A 45 4E 00 |R WIEDER SETZEN.| 000003C0: 9C 23 E0 01 3B 00 AA 23 EA 01 20 4C 44 41 54 41 |.#..;..#.. LDATA| 000003D0: 53 54 45 00 C7 23 F4 01 20 43 4D 50 23 32 38 3B |STE..#.. CMP#28;| 000003E0: 20 41 55 46 20 22 42 22 20 50 52 55 45 46 45 4E | AUF "B" PRUEFEN| 000003F0: 00 E9 23 FE 01 20 42 4E 45 45 4E 44 45 49 52 51 |..#.. BNEENDEIRQ| 00000400: 3B 20 45 4E 44 45 20 57 45 4E 4E 20 3C 3E 20 22 |; ENDE WENN <> "| 00000410: 42 22 00 EF 23 08 02 3B 00 13 24 12 02 20 4C 44 |B"..#..;..$.. LD| 00000420: 41 23 34 3B 20 42 49 54 20 46 55 45 52 20 22 43 |A#4; BIT FUER "C| 00000430: 54 52 4C 22 20 47 45 53 45 54 5A 54 00 3A 24 1C |TRL" GESETZT.:$.| 00000440: 02 20 42 49 54 43 54 52 4C 46 4C 3B 20 41 55 46 |. BITCTRLFL; AUF| 00000450: 20 43 54 52 4C 2D 54 41 53 54 45 20 50 52 55 45 | CTRL-TASTE PRUE| 00000460: 46 45 4E 00 6B 24 26 02 20 42 45 51 45 4E 44 45 |FEN.k$&. BEQENDE| 00000470: 49 52 51 3B 20 4E 49 43 48 54 20 43 54 52 4C 20 |IRQ; NICHT CTRL | 00000480: 47 45 44 52 55 45 43 4B 54 2C 20 44 41 4E 4E 20 |GEDRUECKT, DANN | 00000490: 45 4E 44 45 00 71 24 30 02 3B 00 80 24 3A 02 20 |ENDE.q$0.;..$:. | 000004A0: 4C 44 41 42 4C 41 4E 4B 31 00 9F 24 44 02 20 45 |LDABLANK1..$D. E| 000004B0: 4F 52 23 31 36 3B 20 42 4C 41 4E 4B 2D 42 49 54 |OR#16; BLANK-BIT| 000004C0: 20 46 4C 49 50 50 45 4E 00 BF 24 4E 02 20 53 54 | FLIPPEN..$N. ST| 000004D0: 41 42 4C 41 4E 4B 31 3B 20 55 4E 44 20 41 42 53 |ABLANK1; UND ABS| 000004E0: 50 45 49 43 48 45 52 4E 00 C5 24 58 02 3B 00 D4 |PEICHERN..$X.;..| 000004F0: 24 62 02 20 4C 44 41 42 4C 41 4E 4B 32 00 F5 24 |$b. LDABLANK2..$| 00000500: 6C 02 20 45 4F 52 23 31 3B 20 46 41 53 54 2D 42 |l. EOR#1; FAST-B| 00000510: 49 54 20 49 4E 56 45 52 54 49 45 52 45 4E 00 15 |IT INVERTIEREN..| 00000520: 25 76 02 20 53 54 41 42 4C 41 4E 4B 32 3B 20 55 |%v. STABLANK2; U| 00000530: 4E 44 20 41 42 53 50 45 49 43 48 45 52 4E 00 1B |ND ABSPEICHERN..| 00000540: 25 80 02 3B 00 41 25 8A 02 20 4A 4D 50 41 4C 54 |%..;.A%.. JMPALT| 00000550: 49 52 51 3B 20 57 45 49 54 45 52 20 42 45 49 4D |IRQ; WEITER BEIM| 00000560: 20 41 4C 54 45 4E 20 49 52 51 00 00 00 | ALTEN IRQ... |
X...D.; *** BLANKER - QUELLTEXT ***.. N. ; *** (HYPRA-ASS) ***." X.;.( .. ;.L ...EQ IRQVEC = $0314 ; IRQ-VEKTOR.Z ...EQ TASTE = $CB ; AKTUELLER TASTENC ODE.. ..EQ ALTIRQ = $EA31 ; ADRESSE DER ALTEN IRQ-ROUTINE.. ...EQ BLANK1 = $D01 1 ; VIC-REGISTER #17..!...EQ BLANK2 = $D 030 ; VIC-REGISTER #48.6!...EQ CTRLFL = $028D ; FLAG FUER SHIFT,C=,CTRL.W!H..EQ ZAEHL = $B6 ; ZAEHLER.]!R.;.~!...BA $ C000 ; AB 49152 ABLEGEN..!..;..!..;..!.. ; INITIALISIERUNG DER NEUEN IRQ-ROUTINE. .!..;..!.. SEI; INTERRUPT ABSCHALTEN..!. .;.."". LDA#<(NEUIRQ); IRQ-VEKTOR..",. L DY#>(NEUIRQ); AUF NEUE.9"6. STAIRQVEC; I RQ-ROUTINE.S"@. STYIRQVEC+1; STELLEN.Y"J .;.E"T. LDA#30.."^. STAZAEHL; ZAEHLER SE TZEN.."H.;.."R. CLI; INTERRUPT WIEDER EI NSCHALTEN.S"|. RTS; ENDE DER INITIALISIE RUNG.Y"..;.."..NEUIRQ LDXZAEHL..".. DEX. .#.. STXZAEHL; ZAEHLER DEKREMENTIEREN.*# .. BMIPRUEF.Z#..ENDEIRQ JMPALTIRQ; WEITE R WIE BEI ALTEM IRQ.`#B.;.Q#L.PRUEF LDA# 30..#V. STAZAEHL; ZAEHLER WIEDER SETZEN. .#..;..#.. LDATASTE.G#.. CMP#28; AUF "B" PRUEFEN..#.. BNEENDEIRQ; ENDE WENN <> " B"..#..;..$.. LDA#4; BIT FUER "CTRL" GES ETZT.:$.. BITCTRLFL; AUF CTRL-TASTE PRUE FEN.K$&. BEQENDEIRQ; NICHT CTRL GEDRUECK T, DANN ENDE.Q$0.;..$:. LDABLANK1..$D. E OR#16; BLANK-BIT FLIPPEN..$N. STABLANK1; UND ABSPEICHERN.E$X.;.T$B. LDABLANK2..$ L. EOR#1; FAST-BIT INVERTIEREN..%V. STAB LANK2; UND ABSPEICHERN..%..;.A%.. JMPALT IRQ; WEITER BEIM ALTEN IRQ...
> CLICK IMAGE PREVIEW FOR FULL MODAL