← #139 Top 1024 #141 →
#140

Plutonium Crackers [PC] 03

Plutonium Crackers [PC]

938 lines of code

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

History

Released
July 1987
Group
Plutonium Crackers — Germany, founded 1982

The third numbered intro from Plutonium Crackers — one of Germany's oldest cracking groups, founded in Berlin in 1982. CSDb lists this as a July 1987 release but records no individual credits for code or music. This places PC-03 in the same period as the group's other mid-1987 output, alongside #4 PC-01 — their highest-ranked intro, which features music by Electro. Doc Snyder's page documents the group's Berlin roots, with members Alien, CJW, Don, CPU, and TOS all operating from West Berlin postal addresses. Plutonium Crackers were contemporaries of the earliest C64 cracking operations, having been active since 1982. Comments on intros.c64.org from iAN CooG of Hokuto Force — a prolific preservationist — suggest the intro received attention from the archival community. The group also appears as #111 PC-04 in the rankings, demonstrating a consistent body of work across multiple entries.

Sources: CSDb · intros.c64.org · docsnyderspage

pc-03.asm 938 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: $2fff  (10240 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $1000 (4096)
// IRQ handler:  $ea31 (irq_ea31)
// IRQ handler:  $10a2 (irq_10a2)
//
// Code: 1152 bytes, Data: 9088 bytes
// Labels: 106, Subroutines: 16
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$10e3 ---
.pc = $1000 "main_1000"

main_1000:
        jsr sub_102c

loc_1003:
        jsr $ffe4
        cmp #$20
        bne loc_1003
        sei
        jsr $e518
        jsr $fda3
        lda #$31
        ldx #$ea
        sta $0314
        stx $0315
        cli
        ldx #$00

loc_101e:
        lda dat_1704,x
        sta $0400,x
        inx
        cpx #$a0
        bne loc_101e
        jmp $0400

// Referenced by: jsr from $1000
sub_102c: {
        lda #$00
        sta $0286
        sta $02
        sta $0350
        sta $0370
        sta $0380
        sta $0390
        jsr $e544
        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
        sta $0340
        lda #$a2
        ldx #$10
        sta $0314
        stx $0315
        lda #$7e
        ldx #$12
        sta $fa
        stx $fb
        lda #$ca
        ldx #$13
        sta $fc
        stx $fd
        lda #$3e
        ldx #$14
        sta $fe
        stx $ff
        jsr sub_14b2
        jsr sub_159d
        cli
        rts
}

irq_10a2:
        lda #$01
        sta $d019
        ldy $02
        nop
        nop
        nop
        lda dat_10e4,y
        sta $d020
        sta $d021
        lda $10ed,y
        sta $d012
        lda $10f6,y
        sta $d016
        inc $02
        lda $02
        cmp #$09
        beq loc_10cc
        jmp $ea81

loc_10cc:
        lda #$00
        sta $02
        lda #$32
        sta $d012
        jsr sub_14d1
        jsr sub_10ff
        jsr sub_11cf
        jsr sub_15a8
        jmp $ea31

// --- Region $10ff-$1254 ---
.pc = $10ff "sub_10ff"
// Referenced by: jsr from $10d8

sub_10ff:
        jsr sub_1112
        jsr sub_1112
        jsr sub_1112
        jsr sub_1151
        jsr sub_1151
        jsr sub_1190
        rts
// Referenced by: jsr from $10ff, $1102, $1105