← #319 Top 1024 #321 →
#320

Fucked Beyond Repair [FBR] 19

Fucked Beyond Repair [FBR]

4.112 lines of code

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

History

Released
12 September 1988
Group
Fucked Beyond Repair -- United States, founded 1986

CSDb catalogues this as "FBR Intro (Raster Blaster)" -- coded and illustrated by Raster Blaster of Impulse, with JCH's "Can't Stop" providing the ripped music. The SID composition is preserved in the HVSC. Released on 12 September 1988, this proved to be one of FBR's most widely used intros, appearing in 13 different cracks by the group and its partners. JCH (Jens Christian Huus) was a member of the Dominators and one of the C64's most celebrated SID composers -- his work appearing in an American crack intro demonstrates the universal appeal of elite SID music across scene boundaries. Raster Blaster handled both code and graphics, a dual role that kept production self-contained. Fucked Beyond Repair was a US group founded in 1986 that produced 594 releases before dissolving in 1989. This intro's wide reuse across 13 cracks suggests it was considered a particularly strong visual calling card for the group.

Sources: CSDb

fbr-19.asm 4.112 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:41
// 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:  $1000 (4096)
// IRQ handler:  $107d (irq_107d)
// IRQ handler:  $10cc (irq_10cc)
// IRQ handler:  $1132 (irq_1132)
// IRQ handler:  $1032 (irq_1032)
// IRQ handler:  $ea31 (loc_ea31)
// IRQ handler:  $2024 (loc_2024)
//
// Code: 4348 bytes, Data: 59140 bytes
// Labels: 453, Subroutines: 9
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$11cb ---
.pc = $1000 "main_1000"

main_1000:
        jsr $e544
        lda #$00
        sta $02
        lda #$2b
        sta $03
        ldx #$00
        lda #$0f

loc_100f:
        sta $d800,x
        sta $d900,x
        sta $da00,x
        sta $dae7,x
        inx
        bne loc_100f
        ldx #$00

loc_1020:
        lda txt_126e,x
        sta $0400,x
        lda $136e,x
        sta $0500,x
        lda $146e,x
        sta $0600,x

irq_1032:
        lda $156e,x
        sta $0700,x
        inx
        bne loc_1020
        ldx #$00
        lda #$00

loc_103f:
        sta $dbc0,x
        inx
        cpx #$28
        bne loc_103f
        lda #$09
        sta $d022
        lda #$05
        sta $d023
        lda #$d8
        sta $d016
        lda #$12
        sta $d018
        jsr sub_1800
        sei
        lda #$7d
        sta $0314
        lda #$10
        sta $0315
        inc $dc0d
        inc $d01a
        lda #$1b
        sta $d011
        lda #$32
        sta $d012
        cli
        jmp loc_16a3
irq_107d: {
        inc $d019
        ldx #$00
loop1:
        lda $1222,x
        sta $d016
        ldy $1246,x
loop2:
        dey
        bne loop2
        inx
        cpx #$2c
        bne loop1
        lda #$00
        sta $d020
        lda #$d8
        sta $d016
        ldy #$2a
        ldx $1245
loop3:
        lda $1222,y
        sta $1223,y
        dey
        cpy #$ff
        bne loop3
        stx $1222
        lda #$89
        sta $d012
        lda #$cc
        sta $0314
        lda #$10
        sta $0315
        lda #$1a
        sta $d018
        lda #$08
        sta $d016
        jmp loc_ea81
}

irq_10cc:
        inc $d019
        ldy #$2b

loc_10d1:
        dey
        bne loc_10d1
        ldx #$00

loc_10d6:
        lda $11e0,x
        sta $d021
        sta $d020
        ldy #$04

loc_10e1:
        dey
        bne loc_10e1
        lda $1201,x
        sta $d021
        sta $d020
        lda $d012