#118

Fantastic 4 Cracking Group [F4CG] 63

Fantastic 4 Cracking Group [F4CG]

1.932 lines of code

RasterbarsRSTRMusicSIDSpritesSPRT

History

Released
1997
Group
Fantastic 4 Cracking Group — Italy, founded 1983

F4CG's sixty-third numbered intro, ranking 118th overall — a late-era production from 1997 with a full creative team. CSDb release 60018 credits Devil with the code, Zyron with the music, and Draz with both graphics and charset. Total Chaos is credited with the original idea, and Jucke assisted — notably by providing a scanned leaf from a plant named Bengt that grew in his kitchen window, which Draz then converted to C64 graphics. Total Chaos confirmed authorship on intros.c64.org, noting the intro belonged to him rather than Devil in the conceptual sense. F4CG was founded in Italy in 1983 by Ricky and is documented on CSDb with over 1,600 releases. By 1997, the group had transitioned from its cracking roots into broader scene activity. The collaboration between multiple contributors — across coding, music, graphics, and concept — reflects F4CG's mature organisational structure during their later period.

Sources: CSDb · intros.c64.org

f4cg-63.asm 1.932 lines
// ============================================
// output - Disassembled Source
// ============================================
// 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: $2bff  (9216 bytes)
// Note: PRG was crunched, depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $1700 (5888)
// IRQ handler:  $1735 (irq_1735)
//
// Code: 1900 bytes, Data: 7316 bytes
// Labels: 205, Subroutines: 8
//
// Cross-references: all OK
// ============================================


// --- Region $0878-$0d99 ---
.pc = $0878 "loc_0878"

loc_0878:
        jmp loc_1479

dat_087b:
        .byte $4c,$8a,$14                           // L..
// Referenced by: jsr from $174a

sub_087e:
.label smc_087f = * + 1
        lda #$00                                    // !SMC: modified by $1459, $147b
        beq loc_0888

dat_0882:
        .byte $10,$01,$60,$4c,$32,$14               // ..`L2.

loc_0888:
        dec smc_089b
        bpl loc_0892
        lda #$02
        sta smc_089b                                // SMC: modifies $089b

loc_0892:
        ldx #$02
        ldy #$0e

loc_0896:
        stx $04
        sty $05
.label smc_089b = * + 1
        lda #$01                                    // !SMC: modified by $088f
        cmp $088e
        bne loc_08a6
        dec $0f1e,x
        bmi loc_08a9

loc_08a6:
        jmp loc_0a7b

loc_08a9:
        lda $1099,x
        sta $02
        lda $109c,x
        sta $03
        lda #$00
        sta $0efc

loc_08b8:
        ldy $0f42,x
        lda ($02),y
        cmp #$50
        bcc loc_090e

loc_08c1:
        cmp #$ff
        bne loc_08d0
        lda #$00
        sta $0f42,x
        sta $0f06,x
        jmp loc_08b8

loc_08d0:
        cmp #$fe
        bne loc_08d7
        jmp loc_0878

loc_08d7:
        cmp #$80
        bcc loc_08ed
        sec
        sbc #$a0
        sta $0f06,x
        inc $0f42,x
        iny
        lda ($02),y
        cmp #$50
        bcc loc_090e
        bcs loc_08c1

loc_08ed:
        cmp #$60
        bcc loc_0900
        and #$07
        tay
        lda $0da2,y
        sta smc_0d95                                // SMC: modifies $0d95
        inc $0f42,x
        jmp loc_08b8

loc_0900:
        and #$0f
        sta smc_0d93                                // SMC: modifies $0d93
        inc $0f42,x
        jmp loc_08b8

loc_090b:
        jmp loc_0a58

loc_090e:
        tay
        lda $10c9,y
        sta $02
        lda $10d7,y
        sta $03
        ldy $0f45,x
        lda #$00
        sta $0ef9
        sta $0efc

loc_0924:
        lda ($02),y
        bpl loc_0991
        cmp #$c0
        bcs loc_0936
        and #$3f

loc_092e:
        sta $0eed,x
        iny
        lda ($02),y
        bpl loc_0991

loc_0936:
        cmp #$f0
        bcs loc_0959
        and #$3f
        cmp #$20
        bcs loc_094a