#910

Public Enemy [PE] 04

Public Enemy [PE]

4.000 lines of code

RasterbarsRSTRMusicSIDSpritesSPRT

History

Group
Public Enemy [PE] — United States, founded 1987

A crack intro from Public Enemy, an American group founded in 1987. The CSDb search returned no matching release for this specific intro, though the group is well documented on CSDb under group ID 2008. Other Public Enemy intros appear at #232 PE-03 — coded by Mandrake with a ripped Jeroen Tel tune — and #269 PE-10, coded by The Codebreaker with Matt Gray's "Hunter's Moon." The Atlantis Prophecy interview archive contains multiple references to Public Enemy across interviews with sceners including Creeper, Depeh, Moppe, and Stein Pedersen, indicating the group was well recognized within the broader international scene. No individual credits for code, music, or graphics have been identified for this particular release. Public Enemy's name — borrowed from the hip-hop group — reflects the pop culture naming conventions common among late-1980s cracking crews, particularly those based in the United States.

Sources: intros.c64.org

pe-04.asm 4.000 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:29
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0801  End: $ffff  (63487 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $c400 (50176)
// IRQ handler:  $c026 (irq_c026)
// IRQ handler:  $ea31 (loc_ea31)
// IRQ handler:  $7025 (irq_7025)
//
// Code: 3363 bytes, Data: 60124 bytes
// Labels: 316, Subroutines: 6
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $091f-$0922 ---
.pc = $091f "Program $091f"
        jmp $0100

dat_0922:
        .byte $b9                                   // .

// --- Region $0e05-$0e3d ---
.pc = $0e05 "sub_0e05"
// Referenced by: jsr from $140d

sub_0e05:
        lda #$35
        sta $01
        lda #$00
        sta $fb
        sta $fd
        sta $b0
        lda #$70
        sta $fc
        lda #$f0
        sta $fe
        lda #$73
        sta $b1
        ldy #$00

loc_0e1f:
        lda ($fb),y
        tax
        lda ($fd),y
        sta ($fb),y
        txa
        sta ($fd),y
        inc $fb
        inc $fd
        bne loc_0e1f
        inc $fc
        inc $fe
        lda $b1
        cmp $fc
        bne loc_0e1f
        lda #$37
        sta $01
        rts

// --- Region $1035-$106a ---
.pc = $1035 "sub_1035"
// Referenced by: jsr from $1405

sub_1035:
        adc $4c
        .byte $1f,$09,$a2                           // slo $a209,x // ILLEGAL
        and ($04,x)
        .byte $a7,$26                               // lax $26 // ILLEGAL
        .byte $e2,$c9                               // nop #$c9 // ILLEGAL
        dey
        lsr
        asl $a20d
        and ($11,x)
        ldx #$2e
        .byte $d4,$96                               // nop $96,x // ILLEGAL
        ldx.abs $00ca
        .byte $f4,$c9                               // nop $c9,x // ILLEGAL
        adc $62
        .byte $14,$08                               // nop $08,x // ILLEGAL
        sty $67ca
        ldx #$22
        sbc $96,x
        ldx #$23
        .byte $fb,$cc,$ca                           // isc $cacc,y // ILLEGAL
        ldx #$27
        adc $1462,x
        php
        tya
        dex
        adc $a2
        .byte $22                                   // jam // ILLEGAL

// --- Region $1210-$121c ---
.pc = $1210 "Segment $1210"
        .byte $3b,$39,$39                           // rla $3939,y // ILLEGAL
        and #$01
        ora ($39),y
        .byte $ff,$33,$11                           // isc $1133,x // ILLEGAL
        .byte $83,$c7                               // sax ($c7,x) // ILLEGAL

dat_121c:
        .byte $83                                   // .

// --- Region $13f0-$1415 ---
.pc = $13f0 "Segment $13f0"
        ldx $21
        .byte $04,$a5                               // nop $a5 // ILLEGAL
        and ($20,x)
        lda $21
        php
        ldx $28
        php
        php
        .byte $1c,$7f,$1c                           // nop $1c7f,x // ILLEGAL
        php
        php
        dec $3280
        jsr sub_1035
        ora $02,x
        .byte $0c,$09,$03                           // nop $0309 // ILLEGAL
        jsr sub_0e05
        ora $0d
        ora $1020,y
        .byte $12                                   // jam // ILLEGAL

// --- Region $21a5-$21b9 ---
.pc = $21a5 "Segment $21a5"
        .byte $e7,$c3                               // isc $c3 // ILLEGAL
        ldx #$c5
        ldx #$c5
        ldx #$c9
        ldx #$c2
        .byte $e7,$cf                               // isc $cf // ILLEGAL
        and ($ef,x)
        inx
        .byte $f3,$c3                               // isc ($c3),y // ILLEGAL
        .byte $23,$1f                               // rla ($1f,x) // ILLEGAL

dat_21b8:
        .byte $0f,$c7                               // ..