#427

Fantastic 4 Cracking Group [F4CG] 19

Fantastic 4 Cracking Group [F4CG]

5.351 lines of code

RasterbarsRSTRMusicSIDScrollerSCRLSpritesSPRT

History

Group
Fantastic 4 Cracking Group — Italy, founded 1983

The nineteenth numbered intro from Fantastic 4 Cracking Group, ranking 427th overall. No CSDb match has been confirmed, leaving credits unverified. The intro attracted four comments on intros.c64.org, including contributions from Ze Smasher (2006), Hades (2006), Sneaper (2006), and Rough (2010) — the clustering of scene-veteran comments suggests enduring interest in the production. Ze Smasher was himself an F4CG member — likely the coder Smasher who is credited on later F4CG intros like #105 F4CG-01 and #33 F4CG-20. The nineteenth entry falls in the middle of F4CG's extensive numbered sequence, which eventually exceeded ninety entries. Founded in Italy in 1983, F4CG treated intro production as a sustained creative practice rather than a one-off exercise. Their deep catalogue reflects a group that maintained consistent output across nearly a decade — an extraordinary span in the fast-moving world of C64 cracking.

Sources: intros.c64.org

f4cg-19.asm 5.351 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:28
// 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:  $3000 (12288)
// IRQ handler:  $30bf (irq_30bf)
//
// Code: 4994 bytes, Data: 58494 bytes
// Labels: 608, Subroutines: 30
//
// Cross-references: all OK
// ============================================


// --- Region $0b12-$0b19 ---
.pc = $0b12 "loc_0b12"

loc_0b12:
        sbc $f9f9,y
        sbc $f9f9,y
        rti

dat_0b19:
        .byte $50                                   // P

// --- Region $0b7b-$0b84 ---
.pc = $0b7b "loc_0b7b"

loc_0b7b:
        inc $fefe,x
        lda #$f9
        bcc loc_0b12
        bcc loc_0bc4
        rti

// --- Region $0bc4-$0bc6 ---
.pc = $0bc4 "loc_0bc4"

loc_0bc4:
        ora ($00,x)
        brk

// --- Region $0e13-$0e26 ---
.pc = $0e13 "Program $0e13"
        asl $080f
        ora #$0a
        .byte $0b,$10                               // anc #$10 // ILLEGAL
        ora ($12),y
        .byte $13,$14                               // slo ($14),y // ILLEGAL
        ora $16,x
        .byte $17,$18                               // slo $18,x // ILLEGAL
        ora $1b1a,y
        brk

dat_0e26:
        .byte $00                                   // .

// --- Region $0eb1-$0eb7 ---
.pc = $0eb1 "loc_0eb1"

loc_0eb1:
        bvs loc_0efc
        eor #$2b
        jmp ($0071)

// --- Region $0efc-$0efc ---
.pc = $0efc "loc_0efc"

loc_0efc:
        brk

// --- Region $1021-$1080 ---
.pc = $1021 "sub_1021"
// Referenced by: jsr from $318d, $f849

sub_1021:
        ldx #$00
        dec $1090
        bmi loc_1034
        jsr sub_1226
        jsr sub_1225
        jmp sub_1225

dat_1031:
        .byte $ff,$ff,$ff                           // ...

loc_1034:
        lda #$02
        sta $1090
        jsr sub_1040
        jsr sub_103f
// Referenced by: jsr from $103c

sub_103f:
        inx
// Referenced by: jsr from $1039

sub_1040:
        dec $108a,x
        bmi loc_1091
        jmp sub_1226
// Referenced by: jsr from $306f, $f72b

sub_1048:
        lda #$1f
        sta $d418
        lda #$f0
        sta $d417
        and #$0f
        sta smc_1262                                // SMC: modifies $1262
        ldx #$0f

loc_1059:
        sta dat_1081,x
        dex
        bpl loc_1059
        ldx #$02

loc_1061:
        lda $14b9,x
        sta $fa
        lda $14bc,x
        sta $fb
        ldy #$00
        lda ($fa),y
        sta $108d,x
        iny
.label loc_1074 = * + 1
        lda ($fa),y
        sta $10e6,x
        and #$0f
        sta $10e9,x
        dex
        bpl loc_1061
        rts

// --- Region $1091-$10c6 ---
.pc = $1091 "loc_1091"

loc_1091:
        ldy $108d,x
        cpy #$fe
        bne loc_10a1
// Referenced by: jsr from $10c0