#181

Fucked Beyond Repair [FBR] 09

Fucked Beyond Repair [FBR]

2.466 lines of code

RasterbarsRSTRScrollerSCRL

History

Released
23 December 1987
Group
Fucked Beyond Repair -- United States, founded 1986

CSDb catalogues this as "FBR Intro (Microman)" -- coded by Microman, one of FBR's four founding members alongside Infernal, Ninja, and The Punisher. Jon Hare provided the charset. Released on 23 December 1987, this intro was used in cracks of Gauntlet II +1D. Microman's contribution as both a founding member and active coder illustrates the hands-on involvement of FBR's leadership. The charset credit to Jon Hare -- an external contributor -- shows the common practice of sharing graphical assets between groups and individuals. Fucked Beyond Repair was a US cracking group founded in 1986 that accumulated 594 documented releases before dissolving in 1989. This late-1987 release places it alongside other FBR intros from the same period, including the Fat Raster Logo intro released just days earlier, demonstrating the group's rapid production cadence during its peak.

Sources: CSDb

fbr-09.asm 2.466 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:  $c66b (irq_c66b)
// IRQ handler:  $ea31 (irq_ea31)
// IRQ handler:  $78f2 (irq_78f2)
//
// Code: 1228 bytes, Data: 62259 bytes
// Labels: 192, Subroutines: 6
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $1884-$1896 ---
.pc = $1884 "Segment $1884"
        rol $82ff
        .byte $1f,$1c,$ff                           // slo $ff1c,x // ILLEGAL
        stx $1f
        .byte $34,$0f                               // nop $0f,x // ILLEGAL
        and $3b0f,y
        .byte $1f,$34,$ff                           // slo $ff34,x // ILLEGAL
        .byte $82,$07                               // nop #$07 // ILLEGAL

dat_1896:
        .byte $2f                                   // /

// --- Region $20cb-$20cb ---
.pc = $20cb "Segment $20cb"
        brk

// --- Region $302e-$302e ---
.pc = $302e "Segment $302e"
        brk

// --- Region $78e0-$78e0 ---
.pc = $78e0 "sub_78e0"
// Referenced by: jsr from $c606

sub_78e0:
        brk

// --- Region $78f2-$78f2 ---
.pc = $78f2 "irq_78f2"

irq_78f2:
        brk

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

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

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

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

main_c600:
        jsr $ff5b
        jsr sub_c797
        jsr sub_78e0
        sei
        lda $0314
        sta $cb6e
        lda $0315
        sta $cb6f
        lda #$f1
        sta $d01a
        lda #$7f
        sta $dc0d
        lda $d011
        and #$7f
        sta $d011
        lda #$30
        sta $d012
        lda #$6b
        sta $0314
        lda #$c6
        sta $0315
        ldx #$2b
        lda #$00

loc_c63b:
        sta main_c600,x
        dex
        bne loc_c63b
        cli

loc_c642:
        jsr $ffe4
        cmp #$20
        bne loc_c642
        sei
        lda #$ea
        sta $0315
        lda #$31
        sta $0314
        lda #$f0
        sta $d01a
        cli
        jsr $ff5b
        jsr sub_c937
        lda #$00
        sta $d418
        jmp loc_fce2

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

irq_c66b:
        lda #$10
        sta $d016
        lda #$18
        sta $d018
        lda $caf8
        sta $d021
        sta $d020
        lda $caed
        sta $d023
        lda $cad9
        sta $d022
        ldy #$32
        ldx #$07

loc_c68e:
        dex
        bne loc_c68e
        inx
        lda $caed,x
        sta $d023
        lda $cad9,x
        sta $d022
        ldx #$06