#252

Fantastic 4 Cracking Group [F4CG] 44

Fantastic 4 Cracking Group [F4CG]

1.569 lines of code

RasterbarsRSTRSpritesSPRT

History

Group
Fantastic 4 Cracking Group — Italy, founded 1983

F4CG's forty-fourth numbered crack intro, frequently compared by commenters to the work of Fairlight — CenTraX on intros.c64.org remarked "FLT style?" and staff member iAN CooG described it as "clearly a rip of flt-04 or similar." Whether the intro was a deliberate homage, a stylistic rip, or simply shared visual conventions remains debated. Fantastic 4 Cracking Group was founded in Italy in 1983 by Ricky and is documented on CSDb with over 1,600 releases, making them one of the most long-lived groups on the Commodore 64. No individual credits for code, music, or graphics have been confirmed for this production. The Fairlight comparison is revealing — FLT was among the most respected Swedish cracking groups, and emulating their intro style could be read as a mark of aspiration. Other F4CG intros in this collection include the adjacent #54 F4CG-43 and #421 F4CG-42.

Sources: intros.c64.org · CSDb

f4cg-44.asm 1.569 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:29
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $ffff  (63488 bytes)
// Note: PRG was crunched, depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $f021 (61473)
//
// Code: 973 bytes, Data: 62515 bytes
// Labels: 141, Subroutines: 0
//
// Verification: 6 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $0a12-$0ab5 ---
.pc = $0a12 "loc_0a12"

loc_0a12:
        sei
        lda #$00
        sta $d020
        sta $d021
        tax
        lda #$0f

loc_0a1e:
        sta dat_d900,x
        sta $da00,x
        inx
        bne loc_0a1e
        lda #$df
        sta $d018
        lda #$94
        sta dat_dd00
        lda #$b6

loc_0a33:
        cmp $d012
        bne loc_0a33
        bit $ea
        ldy #$0a

loc_0a3c:
        dey
        bne loc_0a3c
        lda #$05
        sta $d020
        sta $d021
        ldy #$bd

loc_0a49:
        dey
        bne loc_0a49
        dec $ea
        sty $d020
        sty $d021
        lda #$e6

loc_0a56:
        cmp $d012
        bne loc_0a56
        nop
        nop
        jsr $f103
        jsr $f300
        jsr $f340
        lda #$ef
        cmp $dc01
        beq loc_0a70
        jmp loc_f01f

loc_0a70:
        sei
        ldx #$00
        stx $d020
        stx $d021
        lda #$1b
        sta $d011
        lda #$97
        sta dat_dd00
        lda #$15
        sta $d018
        txa

loc_0a89:
        sta chr_d800,x
        sta dat_d900,x
        sta $da00,x
        sta dat_db00,x
        inx
        bne loc_0a89
        stx $d015
        stx $d017
        stx $d01d

loc_0aa1:
        sta chr_d000,x
        inx
        cpx #$11
        bne loc_0aa1

loc_0aa9:
        lda dat_f0a3,x
        sta $0334,x
        dex
        bpl loc_0aa9
        jmp $0334

dat_0ab5:
        .byte $78                                   // x

// --- Region $0ad4-$0b2f ---
.pc = $0ad4 "loc_0ad4"

loc_0ad4:
        lda #$00
        tax

loc_0ad7:
        sta spr_ee00,x
        sta spr_eec0,x
        inx
        bne loc_0ad7
        ldy #$b8

loc_0ae2:
        tya
        sta dat_f7f8,x
        iny
        inx
        cpx #$07
        bne loc_0ae2
        lda $f10d
        ldx #$06

loc_0af1:
        sta $d027,x
        dex
        bpl loc_0af1
        ldx #$0c
        ldy #$06

loc_0afb: