← #3 Top 1024 #5 →
#4

Plutonium Crackers [PC] 01

Plutonium Crackers [PC]

2.323 lines of code

RasterbarsRSTRMusicSIDScrollerSCRLSpritesSPRT
Disassemble Download .asm Download .prg intros.c64.org

History

Released
28 January 1987
Music
Gyroscope 3 by Electro (André)
Group
Plutonium Crackers — Germany, founded 1982

Ranked #4 on intros.c64.org, this Plutonium Crackers release is catalogued on CSDb as "Plutonium Crackers 2001 Crack Intro 3" with a release date of 28 January 1987. The soundtrack is "Gyroscope 3" by André — better known as Electro — and Doc Snyder's page confirms the music credit and links the SID. The scrolltext dates a subsequent crack to 29 April 1987 and names the group's lineup: Alien, CJW, Don, CPU and TOS, with postal addresses in West Berlin. Greetings go out to Popeye, the New Bencor Brothers, Triad, Trianon, Yeti, Micro Mix, Danish Gold, Wizax, AEK Crackware, TLF, CFO, TDC, RDI and Krabat. Plutonium Crackers were founded in Germany in 1982, making them one of the older continental cracking groups active at the time of this release. A second scrolltext screen closes with the slogan "kill gaddafi," placing the intro firmly in the geopolitical pop culture of early 1987.

Sources: CSDb · docsnyderspage

pc-01.asm 2.323 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:29
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0801  End: $ffff  (63487 bytes)
// Crunched with NSU Packer 1.1 — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $c000 (49152)
// IRQ handler:  $ea31 (irq_ea31)
// IRQ handler:  $c1b7 (irq_c1b7)
//
// Code: 1319 bytes, Data: 62168 bytes
// Labels: 181, Subroutines: 20
//
// Verification: 4 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $148d-$148d ---
.pc = $148d "Segment $148d"
        brk

// --- Region $8dd0-$8dd0 ---
.pc = $8dd0 "Segment $8dd0"
        brk

// --- Region $c000-$c083 ---
.pc = $c000 "main_c000"

main_c000:
        jsr sub_c6ed
        lda #$00
        sta $d011
        lda #$00
        sta $fb
        lda #$c2
        sta $fc
        lda #$37
        sta $fd
        lda #$c2
        sta $fe
        lda #$00
        sta $92
        lda #$c3
        sta $93
        lda #$28
        sta $94
        lda #$c4
        sta $95
        lda #$00
        sta $c6
        lda #$e1
        sta $0328
        lda #$0e
        jsr $ffd2
        lda #$08
        jsr $ffd2
        jsr sub_c57b
        lda #$04
        sta $dd00
        lda #$12
        sta $d018
        lda #$c4
        sta $0288
        jsr sub_ce00
        jsr sub_c1a0
        jsr sub_c57b
        jsr sub_c6f3

loc_c059:
        jsr sub_c100
        jsr sub_c0f9
        jsr sub_ce60
        jsr sub_c0f9
        jsr sub_c6c0
        jsr sub_c0f9
        jsr sub_c6d0
        jsr sub_c0f9
        jsr sub_c0f9
        lda #$ff
        sta $dc01
        lda $dc01
        cmp #$ff
        bne loc_c0c0
        jmp loc_c059

scr_c083:
        // === Screen RAM (1 bytes, $c083-$c083) ===
        .encoding "screencode_mixed"
        .text "@"
        .encoding "petscii_upper"

// --- Region $c09a-$c195 ---
.pc = $c09a "sub_c09a"
// Referenced by: jsr from $c1ef, $ce73, $feb2

sub_c09a:
        ldy #$00

loc_c09c:
        lda $dbc0,y
        sta $0340,y
        iny
        cpy #$27
        bne loc_c09c
        ldy #$00

loc_c0a9:
        lda $0340,y
        sta $dbc1,y
        sta chr_d800,y
        iny
        cpy #$27
        bne loc_c0a9
.label smc_c0b8 = * + 1
        lda $c5b2                                   // !SMC: modified by $c7bb
        sta $dbc0
        jmp loc_c7ab

loc_c0c0:
        sei
        lda #$31
        sta $0314
        lda #$ea
        sta $0315
        lda #$97
        sta $dd00
        lda #$15
        sta $d018
        lda #$04
        sta $0288
        lda #$c8
        sta $d016
        lda #$00
        sta $d020
        sta $d021
        sta $d015
        sta $d418
        sta $d01a
        lda #$93
        jsr $ffd2
        jmp loc_fce2

scr_c0f8:
        // === Screen RAM (1 bytes, $c0f8-$c0f8) ===