← #711 Top 1024 #713 →
#712

Fucked Beyond Repair [FBR] 11

Fucked Beyond Repair [FBR]

1.782 lines of code

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

History

Released
31 May 1988
Group
Fucked Beyond Repair -- United States, founded 1986

CSDb catalogues this as "FBR Intro (Mandrake)" -- coded by Mandrake, listed as a member of Public Enemy. Released on 31 May 1988, this silent intro was used in cracks of "Beyond the Ice Palace +2" and "Supreme Squadron." Disassembly confirms no writes to SID registers, making this a text-only presentation. Mandrake's affiliation with Public Enemy while contributing to FBR reflects the fluid membership boundaries typical of the American scene, where coders often worked across multiple groups simultaneously. Fucked Beyond Repair was founded in 1986 and dissolved in 1989, producing 594 documented releases. By mid-1988 the group was drawing on an expanding roster of external coders beyond its core Death Demon series. The intro's lean approach -- scrolltext without audio accompaniment -- was common among American groups that prioritised fast turnaround on cracks over elaborate presentation.

Sources: CSDb

fbr-11.asm 1.782 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:  $1000 (4096)
// IRQ handler:  $1100 (irq_1100)
//
// Code: 1518 bytes, Data: 61970 bytes
// Labels: 196, Subroutines: 16
//
// Verification: 6 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $0810-$081b ---
.pc = $0810 "Program $0810"
        .byte $fc,$46,$7c                           // nop $7c46,x // ILLEGAL
        lsr $fe
        inc.abs $00fc,x
        .byte $3c,$66,$e0                           // nop $e066,x // ILLEGAL
        .byte $f2                                   // jam // ILLEGAL

// --- Region $0917-$0917 ---
.pc = $0917 "sub_0917"
// Referenced by: jsr from $feeb

sub_0917:
        brk

// --- Region $0920-$0920 ---
.pc = $0920 "Program $0920"
        brk

// --- Region $0a48-$0b76 ---
.pc = $0a48 "loc_0a48"

loc_0a48:
        ldy #$00
        lda ($fc),y
        bne loc_0a57
        sty $fc
        lda #$13
        sta $fd
        jmp loc_0a48

loc_0a57:
        clc
        asl
        asl
        asl
        tax
        bcc loc_0a90
        lda $0900,x
        sta $05c2
        lda $0901,x
        sta $05c5
        lda $0902,x
        sta $05c8
        lda $0903,x
        sta $05cb
        lda $0904,x
        sta $05ce
        lda $0905,x
        sta $05d1
        lda $0906,x
        sta $05d4
        lda $0907,x
        sta $05d7
        bcs loc_0ac1

loc_0a90:
        nop
        lda $0800,x
        sta $05c2
        lda dat_0801,x
        sta $05c5
        lda $0802,x
        sta $05c8
        lda $0803,x
        sta $05cb
        lda $0804,x
        sta $05ce
        lda $0805,x
        sta $05d1
        lda $0806,x
        sta $05d4
        lda $0807,x
        sta $05d7

loc_0ac1:
        inc $fc
        bne loc_0ac7
        inc $fd

loc_0ac7:
        lda #$01
        sta $d019
        jmp loc_febc

dat_0acf:
        .byte $00                                   // .

loc_0ad0:
        ldx #$00

loc_0ad2:
        rol $05c2,x
        rol $05c1,x
        rol $05c0,x
        rol $0582,x
        rol $0581,x
        rol $0580,x
        rol $0542,x
        rol $0541,x
        rol $0540,x
        rol $0502,x
        rol $0501,x
        rol $0500,x
        rol $04c2,x
        rol $04c1,x
        rol $04c0,x
        rol $0482,x
        rol $0481,x
        rol $0480,x
        rol $0442,x
        rol $0441,x
        rol $0440,x
        rol $0402,x
        rol $0401,x
        rol $0400,x
        inx
        inx
        inx
        cpx #$18
        bne loc_0ad2
        lda #$01
        sta $d019
        lda $dc01
        cmp #$ef
        beq loc_0b40
        inc $02
        bne loc_0b38