#622

Fantastic 4 Cracking Group [F4CG] 26

Fantastic 4 Cracking Group [F4CG]

3.140 lines of code

RasterbarsRSTRMusicSIDScrollerSCRLSpritesSPRT

History

Group
Fantastic 4 Cracking Group — Italy, founded 1983

The twenty-sixth numbered intro from Fantastic 4 Cracking Group, coded by ADF. According to Ze Smasher — himself an F4CG member — ADF was the author and this intro was one of the most frequently used by the group to brand their cracks. F4CG was founded in Italy in 1983 by Ricky, making them one of the earliest cracking groups on the Commodore 64 and — as CSDb notes — arguably the longest-lived group on the platform, with over 1,600 documented releases. One commenter noted the intro despite its appeal had "annoying music," though the composer remains unidentified. The group's Italian roots placed them within the smaller but fiercely dedicated Southern European scene. Other F4CG intros in this collection include the top-ranked #14 F4CG-32 and #54 F4CG-43, among many others spanning the group's decade-long output.

Sources: intros.c64.org · CSDb

f4cg-26.asm 3.140 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:30
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0700  End: $36ff  (12288 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $3600 (13824)
// IRQ handler:  $092a (irq_092a)
// IRQ handler:  $0944 (smc_0944)
//
// Code: 3702 bytes, Data: 8586 bytes
// Labels: 327, Subroutines: 18
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $0812-$08cf ---
.pc = $0812 "loc_0812"

loc_0812:
        sei
        lda #$00
        jsr sub_0dd0
        sta $d021
        sta $0286
        sta $0fff
        jsr sub_1000
        jsr $e544
        ldx #$10
        lda #$00

loc_082b:
        sta $02,x
        dex
        bpl loc_082b
        lda #$18
        sta $d018

loc_0835:
        dey
        bne loc_0835
        dex
        bne loc_0835
        jsr sub_0b80
        lda #$00
        ldx #$27

loc_0842:
        sta $0518,x
        sta $0680,x
        dex
        bpl loc_0842

loc_084b:
        inx
        sta $0e60,x
        cpx #$1f
        bne loc_084b
        sta $09ea
        sta $09ef
        sta $09f4
        sta $8d
        sta $8b
        lda #$07
        sta $f9
        sta $fa
        lda #$01
        sta $0b7b
        lda #$80
        sta $0b7c
        lda #$02
        sta $0b7d
        lda #$0f
        sta $0fff
        lda #$ff
        sta $d015
        sta $d01c
        lda #$03
        ldx #$07
        sta $d025
        lda #$06
        sta $d026
        lda #$0e

loc_0890:
        sta $d027,x
        dex
        bpl loc_0890
        lda #$ee
        sta $0a84

smc_089b:
        cli                                         // !SMC: modified by $3691
.label smc_089d = * + 1
.label smc_089e = * + 2
        jmp loc_0900                                // !SMC: modified by $3698, $369b

dat_089f:
        .byte $00                                   // .

loc_08a0:
        sei
        lda #$37
        sta $01
        jsr sub_3540
        lda #$00
        sta $dc0d
        ldx #$18

loc_08af:
        sta $d400,x
        dex
        bpl loc_08af
        sta $d020
        sta $d021
        sta $0286
        jsr $e544
        ldx #$28

loc_08c3:
        lda dat_08cf,x
        sta $0100,x
        dex
        bpl loc_08c3
        jmp $0100

dat_08cf:
        .byte $78                                   // x

// --- Region $08d8-$08f3 ---
.pc = $08d8 "loc_08d8"

loc_08d8:
        lda $3700,y
        sta $0337,y

loc_08de:
        iny
        bne loc_08d8
        bit $010b
        bit $010e
        bit $d0
        nop