#357

Fucked Beyond Repair [FBR] 01

Fucked Beyond Repair [FBR]

2.550 lines of code

RasterbarsRSTRMusicSIDScrollerSCRL

History

Released
16 June 1987
Group
Fucked Beyond Repair -- United States, founded 1986

CSDb catalogues this as "FBR Intro (Death Demon's 1st)" -- the very first intro coded by Death Demon, who would go on to become FBR's most prolific programmer. Fucked Beyond Repair was an American cracking group founded in 1986 by Infernal, Ninja, The Punisher, and Microman, operating as a cracker, demo, import, and fixing group until dissolving in 1989. This June 1987 debut intro was used in cracks of "Dukes of Hazzard" and "Quartet +." No music or graphics credits are listed, indicating a lean solo production typical of early American crack intros. FBR produced approximately 594 documented releases during its active years. Death Demon's numbered series of intros -- from this first effort through at least four subsequent versions including #24 Death Demon 3 -- formed the backbone of FBR's visual identity during 1987. The provocative group name was characteristic of the era's countercultural posturing among American cracking crews.

Sources: CSDb

fbr-01.asm 2.550 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:39
// 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:  $1800 (6144)
// IRQ handler:  $0d1c (irq_0d1c)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 2112 bytes, Data: 61376 bytes
// Labels: 269, Subroutines: 17
//
// Cross-references: all OK
// ============================================


// --- Region $0a10-$0a1b ---
.pc = $0a10 "Program $0a10"
        .byte $03,$31                               // slo ($31,x) // ILLEGAL
        and $3139,y
        .byte $03,$ff                               // slo ($ff,x) // ILLEGAL
        .byte $ff,$3f,$3f                           // isc $3f3f,x // ILLEGAL

dat_0a1a:
        .byte $3f,$3f                               // ??

// --- Region $0c40-$0c84 ---
.pc = $0c40 "sub_0c40"
// Referenced by: jsr from $0fac

sub_0c40:
        dec smc_0d7d
        dec smc_0d7d
        lda smc_0d7d
        cmp #$c0
        bpl loc_0c84
        lda #$c7
        sta smc_0d7d                                // SMC: modifies $0d7d
        inc smc_0c5e
        lda smc_0c5e
        bne loc_0c5d
        inc smc_0c5f

loc_0c5d:
.label smc_0c5e = * + 1
.label smc_0c5f = * + 2
        lda $22ff                                   // !SMC: modified by $0c64, $0c69
        bne loc_0c6f
        lda #$00
        sta smc_0c5e                                // SMC: modifies $0c5e
        lda #$23
        sta smc_0c5f                                // SMC: modifies $0c5f
        jmp loc_0c5d

loc_0c6f:
        sta $067f
        adc #$40
        sta $06a7
        ldx #$00

loc_0c79:
        lda $0659,x
        sta $0658,x
        inx
        cpx #$50
        bne loc_0c79

loc_0c84:
        rts

// --- Region $0c90-$0cd7 ---
.pc = $0c90 "sub_0c90"
// Referenced by: jsr from $1848

sub_0c90:
        ldx #$00
        txa

loc_0c93:
        sta $d828,x
        sta $da58,x
        inx
        cpx #$50
        bne loc_0c93
        ldx #$00
        lda #$20

loc_0ca2:
        sta $0658,x
        inx
        cpx #$50
        bne loc_0ca2
        ldx #$00

loc_0cac:
        lda txt_1e00,x
        sta $0400,x
        inx
        cpx #$28
        bne loc_0cac
        ldx #$00
        lda #$0b

loc_0cbb:
        sta $d800,x
        inx
        cpx #$28
        bne loc_0cbb
        ldx #$00

loc_0cc5:
        lda txt_1e28,x
        sta $07c0,x
        lda #$0c
        sta $dbc0,x
        inx
        cpx #$28
        bne loc_0cc5
        jmp loc_0d00

// --- Region $0d00-$0dd4 ---
.pc = $0d00 "loc_0d00"

loc_0d00:
        sei
        lda #$7f
        sta $dc0d
        lda #$01
        sta $d01a
        lda #$1b
        sta $d011
        lda #$1c
        sta $0314
        lda #$0d
        sta $0315
        cli
        rts

irq_0d1c:
        inc $d019
        lda #$d8
        sta $d016
        lda #$12
        sta $d018
        lda #$06