#319

Plutonium Crackers [PC] 02

Plutonium Crackers [PC]

1.454 lines of code

SpritesSPRT

History

Released
August 1987
Group
Plutonium Crackers — Germany, founded 1982

The second numbered intro from Plutonium Crackers — one of the oldest German cracking groups, founded in Berlin in 1982. CSDb records no individual credits for code, music, or graphics on this release, and no SID files are associated with it. Released in August 1987, this intro came during the group's later years — by then they had already been active for five years. Plutonium Crackers are better represented elsewhere in the ranked collection, with #4 PC-01 ranking fourth overall and #111 PC-04 in the top half. Doc Snyder's page documents the group under the extended name "Plutonium Crackers 2001" and lists their members: Alien, CJW, Don, CPU, and TOS, all based in West Berlin. The group later renamed themselves Antitrax 2010 and transitioned to Amiga demo production. Their Berlin postal addresses place them at the heart of the West German cracking scene of the 1980s.

Sources: CSDb · docsnyderspage

pc-02.asm 1.454 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 — depacked by emulation
// Packer entry: $0812 (via BASIC SYS 2066)
// Entry point:  $0334 (820)
// IRQ handler:  $ea31 (irq_ea31)
// IRQ handler:  $0fa2 (irq_0fa2)
//
// Code: 1119 bytes, Data: 62369 bytes
// Labels: 157, Subroutines: 13
//
// Cross-references: all OK
// ============================================


// --- Region $0f0e-$0f2c ---
.pc = $0f0e "loc_0f0e"

loc_0f0e:
        jsr $fda3
        lda #$31
        ldx #$ea
        sta $0314

loc_0f18:
        stx $0315
        cli
        ldx #$00

loc_0f1e:
        lda dat_1306,x
        sta $0400,x
        inx
        cpx #$29
        bne loc_0f1e
        jmp $0400

dat_0f2c:
        .byte $a9                                   // .

// --- Region $0f41-$0fe0 ---
.pc = $0f41 "loc_0f41"

loc_0f41:
        sbc $a9
        php
        jsr $ffd2
        lda #$8e
        jsr $ffd2
        lda #$01
        tax
        dex

loc_0f50:
        sta $d800,x
        sta $d900,x
        sta $da00,x
        sta $db00,x
        inx
        bne loc_0f50
        sei
        lda #$1b
        sta $d011
        lda #$c8
        sta $d016
        lda #$01
        sta $d019
        sta $d01a
        sta $dc0d
        sta $0340
        lda #$a2
        ldx #$0f
        sta $0314
        stx $0315
        lda #$6e
        ldx #$15
        sta $fa
        stx $fb
        lda #$df
        ldx #$16
        sta $fc
        stx $fd
        lda #$2e
        ldx #$13
        sta $fe
        stx $ff
        jsr sub_10cc
        jsr sub_11b7
        cli
        rts

irq_0fa2:
        lda #$01
        sta $d019
        ldy $02
        nop
        nop
        nop
        lda dat_0fe1,y
        sta $d020
        sta $d021
        lda $0fea,y
        sta $d012
        lda $0ff3,y
        sta $d016
        inc $02
        lda $02
        cmp #$09
        beq loc_0fcc
        jmp loc_ea81

loc_0fcc:
        lda #$00
        sta $02
        lda #$32
        sta $d012
        jsr sub_10eb
        jsr sub_0ffc
        jsr loc_11c2
        jmp irq_ea31

// --- Region $0ffc-$11a2 ---
.pc = $0ffc "sub_0ffc"
// Referenced by: jsr from $0fd8

sub_0ffc:
        jsr sub_100f
        jsr sub_100f
        jsr sub_100f
        jsr sub_104e
.label loc_100a = * + 2
        jsr sub_104e
        jsr sub_108d
        rts
// Referenced by: jsr from $0ffc, $0fff, $1002

sub_100f:
        dec $0ff7
        lda $0ff7
        cmp #$bf
        beq loc_101a
        rts

loc_101a: