#202

FBI Crew 01

FBI Crew

4.547 lines of code

RasterbarsRSTRMusicSIDScrollerSCRLSpritesSPRT

History

Music
JCH (Jens-Christian Huus) — "Brown Ice"
Group
FBI Crew — Hungary, founded 1988

JCH's "Brown Ice" provides the soundtrack — one of his many compositions distributed across the European scene. No coder is credited and CSDb records no release date. FBI Crew was a Hungarian group founded in 1988 — part of the early wave of Eastern European C64 activity that predated the post-1989 expansion. The HVSC preserves Huus's composition. Hungary produced several notable C64 groups during this period, with FBI Crew joining the ranks alongside Chromance. The lack of metadata on CSDb — no date, no coder — makes this one of the less documented entries in the collection. FBI Crew's Hungarian origin places them among the pioneers of Eastern European C64 cracking, active before the fall of the Berlin Wall made Western software and distribution networks freely accessible.

Sources: CSDb

fbi-01.asm 4.547 lines
// ============================================
// output - Part 1 of 2
// ============================================
// 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: $0800  End: $ffff  (63488 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// IRQ handler:  $0900 (irq_0900)
// IRQ handler:  $0940 (irq_0940)
// IRQ handler:  $09c0 (irq_09c0)
// IRQ handler:  $0a00 (irq_0a00)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 4275 bytes, Data: 59213 bytes
// Labels: 510, Subroutines: 10
//
// Cross-references: all OK
// ============================================


// --- Region $0810-$08c9 ---
.pc = $0810 "main_0810"

main_0810:
        lda #$00
        sta $d016
        sta $d018
        lda #$fb
        sta $0328
        lda #$0e
        sta $0286
        lda #$93
        jsr $ffd2
        jsr sub_0851
        sei
        ldx #$01
        stx $d01a
        stx $dc0d
        lda #$72
        sta $d012
        lda #$00
        sta $0314
        lda #$09
        sta $0315
        lda #$1b
        sta $d011
        nop
        nop
        nop
        cli
        jmp loc_0fb0

dat_084e:
        .byte $ea,$ea,$ea                           // ...
// Referenced by: jsr from $0827

sub_0851:
        ldx #$03

loc_0853:
        ldy #$00
        ldy #$00

loc_0857:
        jsr $eeb3
        dey
        bne loc_0857
        dex
        bne loc_0853
        ldx #$00

loc_0862:
        txa
        sta $0450,x
        inx
        cpx #$f0
        bne loc_0862
        ldx #$00
        lda #$08

loc_086f:
        sta $d9b8,x
        sta $da58,x
        inx
        cpx #$50
        bne loc_086f
        ldx #$00
        ldy #$00

loc_087e:
        lda txt_1b32,y
        and #$3f
        sta $05b8,x
        clc
        adc #$80
        sta $05e0,x
        sec
        sbc #$40
        inx
        sta $05b8,x
        clc
        adc #$80
        sta $05e0,x
        iny
        inx
        cpx #$28
        bne loc_087e
        lda #$3c
        sta $0745
        lda #$3d
        sta $0746
        lda #$3e
        sta $0747
        lda #$36
        sta $01
        lda #$00
        jsr sub_1000
        jsr sub_0b51
        ldx #$00
        lda #$00

loc_08be:
        sta $0c00,x
        sta $0e80,x
        inx
        cpx #$7d
        bne loc_08be
        rts

// --- Region $0900-$09b4 ---
.pc = $0900 "irq_0900"

irq_0900:
        sei
.label smc_0902 = * + 1
        ldx #$0d                                    // !SMC: modified by $0ac3
        nop
        beq $091d

loc_0906:
        nop
        nop
        nop
        lda $d012
        and #$07
        ora #$18
        sta $d011