#24

Fucked Beyond Repair [FBR] 07

Fucked Beyond Repair [FBR]

1.728 lines of code

RasterbarsRSTRScrollerSCRLSpritesSPRT

History

Released
22 September 1987
Code
Death Demon
Group
Fucked Beyond Repair — United States, founded 1986

Ranked #24 on intros.c64.org, this FBR release is catalogued on CSDb as "FBR Intro (Death Demon 3)" and dated 22 September 1987. Death Demon handled the code, with no music or graphics handle attached to the release on CSDb. Fucked Beyond Repair were a US group founded in 1986, and the parenthetical "Death Demon 3" in the CSDb title points to a personal numbered sequence by the same coder within the group's wider output. Doc Snyder's page for Fucked Beyond Repair exists but carries no section confirmed to match this specific intro, so CSDb is the sole primary source for the credits above. The September 1987 date places this release in the window when US crackers were still competing actively with European groups, before the faster UK-to-Europe distribution pipeline pushed North American output into the background.

Sources: CSDb · docsnyderspage

fbr-07.asm 1.728 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:20
// 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:  $c600 (50688)
// IRQ handler:  $c66a (irq_c66a)
// IRQ handler:  $ea31 (loc_ea31)
//
// Code: 1569 bytes, Data: 61918 bytes
// Labels: 149, Subroutines: 5
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $1202-$1211 ---
.pc = $1202 "Segment $1202"
        ror $66
        ldx #$26
        .byte $7c,$7e,$62                           // nop $627e,x // ILLEGAL
        .byte $7c,$62,$7c                           // nop $7c62,x // ILLEGAL
        ldx #$26
        .byte $3c,$7e,$60                           // nop $607e,x // ILLEGAL
        rts

// --- Region $1c27-$1c27 ---
.pc = $1c27 "Segment $1c27"
        brk

// --- Region $2020-$2020 ---
.pc = $2020 "sub_2020"
// Referenced by: jsr from $ccd0

sub_2020:
        brk

// --- Region $690a-$690a ---
.pc = $690a "Segment $690a"
        brk

// --- Region $7e4a-$7e4a ---
.pc = $7e4a "Segment $7e4a"
        brk

// --- Region $8dcb-$8dd0 ---
.pc = $8dcb "Segment $8dcb"
        brk

dat_8dcc:
        .byte $00,$00,$00,$00                       // ....
        brk

// --- Region $9dcb-$9dcb ---
.pc = $9dcb "Segment $9dcb"
        brk

// --- Region $a2cb-$a2cb ---
.pc = $a2cb "Segment $a2cb"
        brk

// --- Region $a9d0-$a9d0 ---
.pc = $a9d0 "Segment $a9d0"
        brk

// --- Region $ab85-$ab85 ---
.pc = $ab85 "Segment $ab85"
        brk

// --- Region $add0-$add0 ---
.pc = $add0 "Segment $add0"
        brk

// --- Region $b74c-$b74c ---
.pc = $b74c "Segment $b74c"
        brk

// --- Region $bda8-$bda8 ---
.pc = $bda8 "Segment $bda8"
        brk

// --- Region $c600-$cb20 ---
.pc = $c600 "main_c600"

main_c600:
        jsr sub_ca18
        sei
        lda #$81
        sta $d01a
        lda #$7f
        sta $dc0d
        lda $d011
        and #$7f
        sta $d011
        lda #$32
        sta $d012
        lda #$6a
        sta $0314
        lda #$c6
        sta $0315
        lda #$73
        sta $ae
        lda #$cc
        sta $af
        lda #$73
        sta $ac
        lda #$cd
        sta $ad
        cli

loc_c636:
        jsr $ffe4
        cmp #$20
        bne loc_c636
        sei
        lda #$0b
        sta $d011
        jsr $ff84
        jsr $ff81
        lda #$f0
        sta $d01a
        lda #$00
        sta $dc0d
        lda #$31
        sta $0314
        lda #$ea
        sta $0315
        cli
        jsr sub_cab3
        jsr $ff5b
        jmp loc_fce2

dat_c667:
        .byte $4c,$ae,$a7                           // L..

irq_c66a:
        ldx #$02
        jsr sub_cb1c
        lda dat_cb20
        sta $d020
        sta $d021
        ldx #$01
        ldy #$34