← #13 Top 1024 #15 →
#14

Fantastic 4 Cracking Group [F4CG] 32

Fantastic 4 Cracking Group [F4CG]

3.636 lines of code

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

History

Group
Fantastic 4 Cracking Group [F4CG]

Ranked #14 on intros.c64.org — the highest-placed F4CG entry in the archive — but with no matching CSDb release identified for this specific intro. The absence of a linked CSDb record means the release date, individual code, graphics and music credits are all undocumented in the primary source data. Doc Snyder's group page for Fantastic 4 Cracking Group exists but carries no section confirmed to map to this release. F4CG were one of the most prolific groups on the platform, producing numbered intros for many years. Community discussion on intros.c64.org continued long after the intro's initial distribution, reflecting the release's recognition among scene veterans.

Sources: intros.c64.org · docsnyderspage

f4cg-32.asm 3.636 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: $ffff  (63488 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $19e0 (6624)
// IRQ handler:  $1b19 (irq_1b19)
//
// Code: 1946 bytes, Data: 61542 bytes
// Labels: 358, Subroutines: 31
//
// Cross-references: all OK
// ============================================


// --- Region $0803-$0803 ---
.pc = $0803 "Program $0803"
        brk

// --- Region $0902-$0909 ---
.pc = $0902 "Program $0902"
        .byte $ff,$ff,$ff                           // isc $ffff,x // ILLEGAL
        .byte $ff,$ff,$ff                           // isc $ffff,x // ILLEGAL

dat_0908:
        .byte $e7,$e7                               // ..

// --- Region $0f0e-$0f14 ---
.pc = $0f0e "sub_0f0e"
// Referenced by: jsr from $ffb1

sub_0f0e:
        .byte $04,$04                               // nop $04 // ILLEGAL
        .byte $ff,$ff,$ff                           // isc $ffff,x // ILLEGAL

dat_0f13:
        .byte $ff,$ff                               // ..

// --- Region $1000-$1005 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $19eb

sub_1000:
        jmp loc_109f
// Referenced by: jsr from $1bdb

sub_1003:
        jmp loc_1213

// --- Region $109f-$10e2 ---
.pc = $109f "loc_109f"

loc_109f:
        ldy #$00

loc_10a1:
        lda dat_13ea,y
        sta $1016,y
        iny
        cpy #$06
        bne loc_10a1
        lda $13eb,y
        and #$0f
        sta $f9
        ldx #$05
        lda #$00

loc_10b7:
        sta $fa,x
        sta $1b,x
        dex
        bpl loc_10b7
        ldx #$18

loc_10c0:
        sta $d400,x
        dex
        bpl loc_10c0
        sta $9e
        rts
// Referenced by: jsr from $1213

sub_10c9:
        ldx #$02
        dec $9e
        bpl loc_10da
        stx $9e
        jsr sub_1146
        jsr sub_1145
        jmp sub_1145

loc_10da:
        jsr sub_1258
        jsr sub_1257
        jmp sub_1257

// --- Region $1145-$13e9 ---
.pc = $1145 "sub_1145"
// Referenced by: jsr from $10d4; jmp from $10d7

sub_1145:
        dex
// Referenced by: jsr from $10d1

sub_1146:
        dec $1b,x
        bmi loc_114d
        jmp loc_12f7

loc_114d:
        lda $1007,x
        sta $1b,x
        lda $1016,x
        sta $02
        lda $1019,x
        sta $03
        ldy $fa,x

loc_115e:
        lda ($02),y
        bpl loc_1177
        cmp #$ff
        bne loc_116e
        lda #$00
        sta $fa,x
        tay
        jmp loc_115e

loc_116e:
        clc
        adc #$40
        sta $100a,x
        iny
        lda ($02),y

loc_1177:
        sty $fa,x
        tay
        lda #$00
        sta $04
        lda $13f2,y
        sta $02
        lda $13fd,y
        sta $03
        ldy $fd,x