#163

Fantastic 4 Cracking Group [F4CG] 09

Fantastic 4 Cracking Group [F4CG]

7.880 lines of code

MusicSIDSpritesSPRTBitmapBMAP

History

Group
Fantastic 4 Cracking Group — Italy, founded 1983

F4CG's ninth numbered crack intro, ranking 163rd overall — the second-highest F4CG entry after #14 F4CG-32. No individual credits for code, music, or graphics have been identified for this specific release; the CSDb search returned no matching entry. Founded in Italy in 1983, Fantastic 4 Cracking Group was active for nearly a decade and produced an extraordinary number of intros, with their numbered series reaching well past ninety entries. The intros.c64.org page attracted comments from scene veterans including Devil and Boardpruck, confirming community awareness of the production. Known contributors across F4CG's broader catalogue include coders Smasher and Kid, and musicians such as JLD (Johan Danielsson) and Mike (Michael Hendriks). Whether any of these individuals contributed to the ninth intro remains unconfirmed. F4CG's Italian origin gave them a distinctive position in the European scene — geographically distant from the dominant Scandinavian hubs but deeply connected through BBS networks and mail-trading.

Sources: intros.c64.org

f4cg-09.asm 7.880 lines
// ============================================
// output - Part 1 of 2
// ============================================
// 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:  $5000 (20480)
// IRQ handler:  $5092 (irq_5092)
// IRQ handler:  $5101 (irq_5101)
// IRQ handler:  $5119 (irq_5119)
// IRQ handler:  $5151 (irq_5151)
//
// Code: 5631 bytes, Data: 57857 bytes
// Labels: 788, Subroutines: 37
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$1006 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $5bf6

sub_1000:
        jmp loc_1040
// Referenced by: jsr from $5095

sub_1003:
        jmp loc_10da

scr_1006:
        // === Screen RAM (1 bytes, $1006-$1006) ===
        .encoding "screencode_mixed"
        .text "a"
        .encoding "petscii_upper"

// --- Region $1040-$1291 ---
.pc = $1040 "loc_1040"

loc_1040:
        asl
        asl
        asl
        tay
        ldx #$00

loc_1046:
        lda $17ef,y
        sta $174e,x
        sta $1754,x
        lda $17f0,y
        sta $1751,x
        sta $1757,x
        iny
        iny
        inx
        cpx #$03
        bne loc_1046
        ldx #$00
        stx $174d
        lda $17ef,y
        sta $100b
        sta $177b
        sta $177c
        sta $177d

loc_1073:
        sta $17d9,x
        inc $174d
        lda $100b
        clc
        adc $17ef,y
        sta $100b
        clc
        adc $174d
        inx
        cpx #$10
        bne loc_1073
        lda txt_1020
        beq loc_10bc
        ldx #$02

loc_1093:
        lda $17f0,y
        sta $174d
        and $175a,x
        sta scr_1006,x
        dex
        bpl loc_1093
        bit $174d
        bpl loc_10bc
        ldx #$00

loc_10a9:
        lda $17f1,y
        sta $1754,x
        lda $17f2,y
        sta $1757,x
        iny
        iny
        inx
        cpx #$03
        bne loc_10a9

loc_10bc:
        ldy #$00
        tya

loc_10bf:
        sta scr_d400,y
        iny
        cpy #$1b
        bne loc_10bf
        tay

loc_10c8:
        sta $177e,y
        sta $1766,y
        iny
        cpy #$0c
        bne loc_10c8
        lda $1009
        sta $d418
        rts

loc_10da:
        ldx #$02

loc_10dc:
        lda $1769,x
        cmp #$02
        bne loc_110f
        ldy $1772,x
        lda $19cf,y
        ldy $1760,x
        sta txt_d405,y
        ldy $1772,x
        lda $19d0,y
        ldy $1760,x
        sta $d406,y
        lda $195e
        beq loc_1109
        lda $195d
        sta $d404,y
        jmp loc_110f