← #965 Top 1024 #967 →
#966

Xpert Protection Busters [XPB] 05

Xpert Protection Busters [XPB]

2.563 lines of code

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

History

Released
14 August 1987
Code
Red Rocker
Group
Xpert Protection Busters — United States, founded 1987

A crack intro from Xpert Protection Busters, an American group abbreviated XPB and founded in 1987. Released on 14 August 1987, Red Rocker is credited with the code on CSDb. Graphics are noted but no artist is named, and no SID data is listed. The group's name — Xpert Protection Busters — reflects the literal function of cracking groups in the mid-1980s: defeating the copy protection schemes that software publishers embedded in their titles. XPB was one of numerous small American cracking groups active during the C64's commercial peak. No entries were found on Doc Snyder's page, Demozoo, Pouet, or any other scene archive. CSDb's group page confirms the American origin and 1987 founding but lists no members beyond what appears in the release credits. The sparse documentation is characteristic of mid-1980s American groups that operated primarily through BBS networks and left fewer traces in the European-centric archival databases.

Sources: CSDb · intros.c64.org

xpb-05.asm 2.563 lines
// ============================================
// output - Part 1 of 2
// ============================================
// 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: $0801  End: $c743  (48963 bytes)
// Crunched with Exomizer — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $c000 (49152)
// IRQ handler:  $c265 (irq_c265)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 1629 bytes, Data: 47334 bytes
// Labels: 201, Subroutines: 6
//
// Verification: 4 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $118d-$1194 ---
.pc = $118d "Segment $118d"
        ror
        ror $4967
        lda $d106
        .byte $12                                   // jam // ILLEGAL

// --- Region $203d-$203d ---
.pc = $203d "Segment $203d"
        brk

// --- Region $20d0-$20d0 ---
.pc = $20d0 "Segment $20d0"
        brk

// --- Region $2f3d-$2f3d ---
.pc = $2f3d "Segment $2f3d"
        brk

// --- Region $3d3d-$3d3d ---
.pc = $3d3d "Segment $3d3d"
        brk

// --- Region $3d7d-$3d7d ---
.pc = $3d7d "Segment $3d7d"
        brk

// --- Region $8720-$872d ---
.pc = $8720 "sub_8720"
// Referenced by: jsr from $c000

sub_8720:
        jmp loc_8838
// Referenced by: jsr from $c00b

sub_8723:
        jmp loc_888b
// Referenced by: jsr from $c020

sub_8726:
        jmp loc_8ae2
// Referenced by: jsr from $c02b

sub_8729:
        jmp loc_8c9f

dat_872c:
        // === Packed/compressed data (2 bytes, $872c-$872d) ===
        .byte $5e,$e7                               // ^.

// --- Region $8838-$8ce3 ---
.pc = $8838 "loc_8838"

loc_8838:
        lda #$00
        sta $d020
        sta $d021
        lda $d011
        and #$ef
        sta $d011
        lda #$00
        sta $fb
        lda #$20
        sta $fc
        ldy #$00

loc_8852:
        lda #$00
        sta ($fb),y
        inc $fb
        bne loc_885c

dat_885a:
        .byte $e6,$fc                               // ..

loc_885c:
        lda $fb
        cmp #$40
        bne loc_8852
        lda $fc
        cmp #$3f
        bne loc_8852
        lda $d011
        ora #$20
        sta $d011
        lda $d016
        and #$df
        ora #$10
        sta $d016
        lda $d018
        ora #$08
        sta $d018
        lda $d011
        ora #$10
        sta $d011
        rts

loc_888b:
        lda #$28
        sta $fb
        lda #$83
        sta $fc
        lda #$00
        sta $fd
        lda #$d8
        sta $fe
        ldy #$00

loc_889d:
        lda ($fb),y
        sta ($fd),y
        inc $fb
        bne loc_88a7

dat_88a5:
        .byte $e6,$fc                               // ..

loc_88a7:
        inc $fd
        bne loc_88ad
        inc $fe

loc_88ad:
        lda $fb
        cmp #$10
        bne loc_889d
        lda $fc