← #32 Top 1024 #34 →
#33

Fantastic 4 Cracking Group [F4CG] 20

Fantastic 4 Cracking Group [F4CG]

3.248 lines of code

RasterbarsRSTRMusicSIDSpritesSPRT
Disassemble Download .asm Download .prg intros.c64.org

History

Released
December 1991
Code
Smasher
Music
MCG Intromusic by Mike (Michael Hendriks)
Group
Fantastic 4 Cracking Group — Italy, founded 1983

Ranked #33 on intros.c64.org, this late-era F4CG release is catalogued on CSDb as "F4CG Intro" and dated December 1991. Smasher is credited for the code and Mike — Michael Hendriks — for the music. The SID tune is "MCG Intromusic," preserved in the HVSC under Hendriks's composer directory; the title suggests it was composed originally in the context of Madonna Cracking Group (MCG) before being reused here. Doc Snyder's page for Fantastic 4 Cracking Group exists but carries no section confirmed to match this specific intro. F4CG were an Italian group founded in 1983. By December 1991 they were one of the oldest cracking groups still active on the C64.

Sources: CSDb · docsnyderspage

f4cg-20.asm 3.248 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:19
// 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:  $1900 (6400)
//
// Code: 2209 bytes, Data: 61279 bytes
// Labels: 345, Subroutines: 2
//
// Cross-references: all OK
// ============================================


// --- Region $0895-$0895 ---
.pc = $0895 "Program $0895"
        rti

// --- Region $0db0-$0dbf ---
.pc = $0db0 "Program $0db0"
        .byte $83,$01                               // sax ($01,x) // ILLEGAL
        and $3f3f,y
        .byte $23,$21                               // rla ($21,x) // ILLEGAL
        and $0101,y
        .byte $3f,$39,$f1                           // rla $f139,x // ILLEGAL
        .byte $e3,$c7                               // isc ($c7,x) // ILLEGAL

dat_0dbf:
        .byte $cf                                   // .

// --- Region $0e95-$0eb2 ---
.pc = $0e95 "Program $0e95"
        .byte $ff,$ff,$ff                           // isc $ffff,x // ILLEGAL
        sbc $01f9,y
        .byte $03,$ff                               // slo ($ff,x) // ILLEGAL
        .byte $ff,$ff,$ff                           // isc $ffff,x // ILLEGAL
        sbc $f9f9,y
        sbc $ffff,y
        .byte $ff,$ff,$39                           // isc $39ff,x // ILLEGAL
        and $8301,y
        .byte $ff,$ff,$ff                           // isc $ffff,x // ILLEGAL
        .byte $ff,$39,$11                           // isc $1139,x // ILLEGAL

dat_0eb2:
        .byte $83                                   // .

// --- Region $1003-$1401 ---
.pc = $1003 "sub_1003"
// Referenced by: jsr from $191c

sub_1003:
        ldx #$5a
        lda #$00
        tay

loc_1008:
        sta $08,x
        dex
        bpl loc_1008
        ldx #$18

loc_100f:
        sta $d400,x
        dex
        bpl loc_100f

loc_1015:
        lda $15c4,y
        sta.abs $003e,y
        iny
        cpy #$06
        bcc loc_1015
        lda #$80
        sta $60
        rts

loc_1025:
        cmp #$ff
        bne loc_1036
        iny
        lda ($02),y
        sta $3e,x
        iny
        lda ($02),y
        sta $41,x
        jmp loc_1054

loc_1036:
        cmp #$a0
        bcs loc_1042
        and #$1f
        sta $4d,x

loc_103e:
        iny
        jmp loc_106a

loc_1042:
        cmp #$c0
        bcs loc_104c
        and #$1f
        sta $50,x
        bpl loc_103e

loc_104c:
        and #$3f
        sta $44,x
        iny
        jmp loc_106a

loc_1054:
        lda $3e,x
        sta $02
        lda $41,x
        sta $03
        lda #$00
        tay
        sta $4a,x
        lda $44,x
        beq loc_106a
        dec $44,x
        jmp loc_109f

loc_106a:
        lda ($02),y
        bmi loc_1025
        asl
        sta $47,x
        iny
        tya
        clc
        adc $3e,x
        sta $3e,x
        bcc loc_109f
        inc $41,x
        jmp loc_109f

loc_107f:
        jmp loc_12c7

loc_1082:
        ldx #$02

loc_1084:
        bit $60