← #77 Top 1024 #79 →
#78

Fucked Beyond Repair [FBR] 12

Fucked Beyond Repair [FBR]

3.075 lines of code

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

History

Released
25 August 1988
Code
Death Demon
Music
Markus Schneider — "Shake Your Brain" (ripped)
Group
Fucked Beyond Repair — United States, founded 1986

CSDb catalogues this as "FBR Intro (Death Demon 4)" — the fourth in Death Demon's numbered series for the group, following the earlier #24 Death Demon 3. Markus Schneider's "Shake Your Brain" (tune 4) provides the music — Schneider (also known as Diflex) was a German musician whose work appeared in numerous crack intros of the era. Death Demon again handles all coding solo. FBR was an American group founded in 1986, and by August 1988 they were one of the last US operations maintaining regular output. The HVSC preserves Schneider's composition. The fact that an American coder chose a German musician's tune reflects the international reach of SID music distribution — tunes circulated on compilations that crossed all geographic boundaries.

Sources: CSDb

fbr-12.asm 3.075 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:  $c665 (irq_c665)
// IRQ handler:  $ea31 (irq_ea31)
// IRQ handler:  $c631 (irq_c631)
// IRQ handler:  $1e95 (irq_1e95)
//
// Code: 2692 bytes, Data: 60795 bytes
// Labels: 213, Subroutines: 10
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$102f ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $c603

sub_1000:
        lda #$ed
        sta $ab
        lda #$20
// Referenced by: jsr from $ca4c

sub_1006:
        sta $aa
        lda #$3d
        sta $af
        lda #$c0
        sta $ae
        jsr sub_ce1a
        lda #$ed
        sta $ad
        lda #$20
        sta $ac
        lda #$00
        sta $ae
        lda #$10
        sta $af
        lda #$f8
        sta $ab
        lda #$08
        sta $aa
        jsr sub_ce1a
        rts

dat_102f:
        .byte $02                                   // .

// --- Region $1045-$1079 ---
.pc = $1045 "loc_1045"

loc_1045:
        php
        ora ($ad,x)
        .byte $07,$cd                               // slo $cd // ILLEGAL
        tay
        ldx #$00

loc_104d:
        lda $cd08,x
        sta dat_cd07,x
        inx
        cpx #$09
        bne loc_104d
        sty $cd10
        ldx #$00

loc_105d:
        lda $d8f1,x
        sta $d8f0,x
        sta $d918,x
        sta $d940,x
        sta $d968,x
        inx
        cpx #$27
        bne loc_105d
        lda dat_cd07
        sta $d917
        jmp loc_ca42

// --- Region $10f0-$10ff ---
.pc = $10f0 "Segment $10f0"
        dec $adcd,x
        ora #$ce
        clc
        adc #$06
        sta $ce09
        jmp sub_cdab

dat_10fe:
        .byte $a9,$06                               // ..

// --- Region $1363-$1365 ---
.pc = $1363 "loc_1363"

loc_1363:
        ora $e3
        .byte $02                                   // jam // ILLEGAL

// --- Region $1375-$1380 ---
.pc = $1375 "loc_1375"

loc_1375:
        tya
        .byte $b3,$b4                               // lax ($b4),y // ILLEGAL
        ldy $7e,x
        .byte $c2,$9a                               // nop #$9a // ILLEGAL
        tsx
        tsx
        txs
        .byte $da                                   // nop // ILLEGAL
        .byte $5a                                   // nop // ILLEGAL

// --- Region $140d-$1410 ---
.pc = $140d "loc_140d"

loc_140d:
        bcc loc_142f
        tay
        rts

// --- Region $142f-$144f ---
.pc = $142f "loc_142f"

loc_142f:
        .byte $74,$e4                               // nop $e4,x // ILLEGAL
        iny
        cpy #$30
        dey
        inx
        .byte $64,$34                               // nop $34 // ILLEGAL
        ldy $b4,x
        cpx #$18

loc_143c:
        cpx $f4
        .byte $34,$74                               // nop $74,x // ILLEGAL
        cpx $c8