← #110 Top 1024 #112 →
#111

Plutonium Crackers [PC] 04

Plutonium Crackers [PC]

1.322 lines of code

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

History

Released
1987
Group
Plutonium Crackers — Germany, founded 1982

A silent intro from one of the oldest German cracking groups — disassembly confirms no writes to SID registers. Plutonium Crackers was founded in Berlin in 1982 — contemporary with #1 Eagle Soft Incorporated and among the very first cracking operations on the C64. No coder is credited on CSDb. Released in 1987, this is the fourth numbered PC intro and came during the group's later period — by 1987 they had already been active for five years. Doc Snyder's page documents the group's extensive history. Plutonium Crackers would later rename themselves Antitrax 2010 and transition to Amiga demo production. Their Berlin base placed them at the heart of the German cracking scene alongside Berlin Cracking Service. The group's five-year tenure by 1987 made them veterans in a scene where most groups measured their lifespans in months rather than years.

Sources: CSDb · docsnyderspage

pc-04.asm 1.322 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: $0800  End: $ffff  (63488 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $0f00 (3840)
// IRQ handler:  $0f7f (irq_0f7f)
//
// Code: 956 bytes, Data: 62532 bytes
// Labels: 150, Subroutines: 13
//
// Cross-references: all OK
// ============================================


// --- Region $0f00-$0fb9 ---
.pc = $0f00 "main_0f00"

main_0f00:
        jsr sub_0f23

loc_0f03:
        jsr $ffe4
        cmp #$00
        beq loc_0f03
        jsr $fd15
        jsr $e518
        jsr $ff81
        ldx #$00

loc_0f15:
        lda dat_128d,x
        sta $0400,x
        inx
        cpx #$29
        bne loc_0f15
        jmp $0400

// Referenced by: jsr from $0f00
sub_0f23: {
        lda #$00
        sta $02
        jsr $e518
        lda #$08
        jsr $ffd2
        lda #$8e
        jsr $ffd2
        lda #$01
        tax
        dex
loop:
        sta $d800,x
        sta $d900,x
        sta $da00,x
        sta $db00,x
        inx
        bne loop
        sei
        lda #$1b
        sta $d011
        lda #$c8
        sta $d016
        lda #$01
        sta $d019
        sta $d01a
        sta $dc0d
        lda #$7f
        ldx #$0f
        sta $0314
        stx $0315
        lda #$89
        ldx #$14
        sta $fa
        stx $fb
        lda #$b0
        ldx #$12
        sta $fe
        stx $ff
        jsr sub_1060
        jsr sub_114b
        cli
        rts
}

irq_0f7f:
        lda #$01
        sta $d019
        ldy $02
        nop
        nop
        nop
        lda chr_0fba,y
        sta $d020
        sta $d021
        lda $0fc3,y
        sta $d012
        lda $0fcc,y
        sta $d016
        inc $02
        lda $02
        cmp #$09
        beq loc_0fa9
        jmp loc_ea81

loc_0fa9:
        lda #$32
        sta $d012
        jsr sub_107f
        jsr sub_0fd5
        jsr sub_1156
        jmp loc_ea31

// --- Region $0fd5-$1136 ---
.pc = $0fd5 "sub_0fd5"
// Referenced by: jsr from $0fb1

sub_0fd5:
        jsr sub_0fe2
        jsr sub_0fe2
        jsr sub_0fe2
        jsr sub_1021
        rts
// Referenced by: jsr from $0fd5, $0fd8, $0fdb

sub_0fe2:
        dec $0fd0
        lda $0fd0
        cmp #$bf
        beq loc_0fed
        rts

loc_0fed:
        ldx #$00

loc_0fef:
        lda $0771,x
        sta $0770,x
        inx
        cpx #$27
        bne loc_0fef

loc_0ffa:
        ldy #$00
        lda ($fa),y
        beq loc_1016