← #362 Top 1024 #364 →
#363

Xpert Protection Busters [XPB] 01

Xpert Protection Busters [XPB]

1.126 lines of code

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

History

Released
9 October 1987
Code
Red Rocker
Group
Xpert Protection Busters — United States, founded 1987

A minimalist 1987 American crack intro coded by Red Rocker. Xpert Protection Busters — abbreviated XPB — was a United States-based group founded in 1987. The CSDb entry lists no musician credit and no SID data, indicating this intro either uses no music or relies on simple sound effects rather than a proper SID tune. Released on 9 October 1987, the intro dates from the period when the American C64 cracking scene was at its most active, with dozens of small groups competing for recognition. Red Rocker himself commented on the intro at intros.c64.org in December 2007, confirming his involvement two decades after the original release. The group's name — referencing copy-protection circumvention — is typical of American outfits that emphasised their technical cracking skills rather than intro artistry. No additional documentation exists on Doc Snyder's page, Demozoo, or other scene archives.

Sources: CSDb · intros.c64.org

xpb-01.asm 1.126 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:37:03
// 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:  $13e2 (5090)
// IRQ handler:  $1065 (irq_1065)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 679 bytes, Data: 62809 bytes
// Labels: 90, Subroutines: 3
//
// Cross-references: all OK
// ============================================


// --- Region $0a31-$0a36 ---
.pc = $0a31 "loc_0a31"

loc_0a31:
        sei
        bvs loc_0ab2
        bvs loc_0a96
        rts

// --- Region $0a96-$0a9b ---
.pc = $0a96 "loc_0a96"

loc_0a96:
        .byte $63,$00                               // rra ($00,x) // ILLEGAL
        .byte $7f,$73,$70                           // rra $7073,x // ILLEGAL

dat_0a9b:
        .byte $7f                                   // .

// --- Region $0ab2-$0ab8 ---
.pc = $0ab2 "loc_0ab2"

loc_0ab2:
        .byte $63,$77                               // rra ($77,x) // ILLEGAL
        .byte $7f,$3e,$1c                           // rra $1c3e,x // ILLEGAL
        brk

dat_0ab8:
        .byte $49                                   // I

// --- Region $1000-$10fb ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $134a

sub_1000:
        lda #$00
        sta $02c1
        lda #$c7
        sta $02c0
        ldx #$00

loc_100c:
        lda #$06
        sta $dbc0,x
        sta $d800,x
        inx
        cpx #$27
        bne loc_100c
        lda #$00
        sta $8c
        lda #$11
        sta $8d
        ldx #$00

loc_1023:
        lda #$20
        sta $0798,x
        sta $07c0,x
        sta $0400,x
        sta $0428,x
        inx
        cpx #$28
        bne loc_1023
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        lda $0314
        sta $0336
        lda $0315
        sta $0337
        lda #$65
        sta $0314
        lda #$10
        sta $0315
        lda #$01
        sta $d01a
        lda #$1b
        sta $d011
        cli
        lda #$7f
        sta $dc0d
        rts

irq_1065:
        lda #$01
        sta $d019
        ldx #$3b
        ldy #$c8
        lda $d012
        cmp #$f1
        bcs loc_107e
        lda #$13
        sta $d018
        lda #$f1
        bne loc_108a

loc_107e:
        ldx #$1b
        ldy $02c0
        lda #$13
        sta $d018
        lda #$39

loc_108a:
        nop
        nop
        nop
        sty $d016
        sta $d012
        jmp loc_10a3

loc_1096:
        lda $dc0d
        and #$01
        beq loc_10a0
        jmp ($0336)

loc_10a0:
        jmp loc_febc

loc_10a3:
        dec $02c1
        lda $02c1
        bne loc_1096