#213

Fantastic 4 Cracking Group [F4CG] 30

Fantastic 4 Cracking Group [F4CG]

3.936 lines of code

RasterbarsRSTRSpritesSPRTBitmapBMAP

History

Group
Fantastic 4 Cracking Group — Italy, founded 1983

The thirtieth numbered intro from Fantastic 4 Cracking Group, ranking 213th overall. According to discussion on intros.c64.org, the distinctive visual design — described as a "Benetton look" — was conceived by Newscopy. The intro was reportedly created during a casual session over beers, lending it a spontaneous character. F4CG was founded in Italy in 1983 by Ricky and is described on CSDb as arguably the most long-lived group on the Commodore 64, with over 1,600 documented releases. The Benetton reference — evoking the Italian fashion brand's colourful advertising campaigns — suggests a multicolour palette that stood out among the group's productions. No code or music credits have been confirmed for this entry. Other F4CG intros in this collection include #14 F4CG-32, #54 F4CG-43, and #249 F4CG-55.

Sources: intros.c64.org · CSDb

f4cg-30.asm 3.936 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)
// Entry point:  $3000 (12288)
// IRQ handler:  $3055 (irq_3055)
// IRQ handler:  $3161 (nmi_3161)
// IRQ handler:  $30ec (irq_30ec)
//
// Code: 2914 bytes, Data: 60574 bytes
// Labels: 390, Subroutines: 17
//
// Verification: 2 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$1003 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $3d65

sub_1000:
        rts

dat_1001:
        .byte $60,$60                               // ``
// Referenced by: jsr from $3142

sub_1003:
        rts

// --- Region $11bd-$11bd ---
.pc = $11bd "Segment $11bd"
        rts

// --- Region $12cd-$12cd ---
.pc = $12cd "Segment $12cd"
        rts

// --- Region $3000-$3712 ---
.pc = $3000 "main_3000"

main_3000:
        lda #$00
        sta $3f3f
        sta $3f40
        lda #$60
        sta smc_3e62                                // SMC: modifies $3e62
        lda #$0d
        sta smc_3e63                                // SMC: modifies $3e63
        jsr sub_3e05
        jsr sub_3baf
        sei
        lda #$55
        sta $0314
        lda #$30
        sta $0315
        lda #$01
        sta $d019
        sta $d01a
        lda #$7f
        sta $dc0d
        lda $dc0d
        lda $d011
        and #$7f
        sta $d011
        lda #$f0
        sta $d012
        lda $0319
        cmp #$90
        beq loc_3051
        lda #$61
        sta $0318
        lda #$31
        sta $0319

loc_3051:
        cli
        jmp loc_3162

irq_3055:
        asl $d019
.label smc_3059 = * + 1
        lda #$19                                    // !SMC: modified by $3488, $3d3f
        sta $d018
        lda #$fa

loc_305f:
        cmp $d012
        bne loc_305f
        lda #$12
        sta $d011
        lda #$fe

loc_306b:
        cmp $d012
        bne loc_306b
        lda #$1b
        sta $d011
        lda #$20

loc_3077:
        cmp $d012
        bne loc_3077
        lda #$00
        sta $d010
        lda #$2a
        sta $d000
        clc
        adc #$18
        sta $d002
        clc
        adc #$18
        sta $d004
        clc
        adc #$18
        sta $d006
        lda #$28
        sta $d008
        clc
        adc #$18
        sta $d00a
        clc
        adc #$18
        sta $d00c
        clc
        adc #$18
        sta $d00e
        ldx #$38
        stx $07f8
        inx
        stx $07f9
        inx
        stx $07fa
        inx
        stx $07fb
        lda #$3c
        sta $d001
        sta $d003
        sta $d005
        sta $d007
        sta $d009
        sta $d00b