#54

Fantastic 4 Cracking Group [F4CG] 43

Fantastic 4 Cracking Group [F4CG]

2.205 lines of code

RasterbarsRSTRMusicSIDScrollerSCRLSpritesSPRT

History

Group
Fantastic 4 Cracking Group — Italy, founded 1983

F4CG's forty-third numbered crack intro, ranking 54th overall — the second-highest F4CG entry in the collection after #14 F4CG-32. Ze Smasher coded the intro while the logo was provided by AD (Air Design), a collaboration between Zagor and Zoris. Ze Smasher commented multiple times on intros.c64.org between 2006 and 2014, noting that the logo originated from F4CG's Italian chapter. F4CG was founded in Italy in 1983 by Ricky and grew into one of the most prolific groups on the Commodore 64 — CSDb documents over 1,600 releases. Ze Smasher described this as a significant production for the group, and its high ranking confirms that assessment. The intro is one of several in the collection credited to Ze Smasher, alongside #392 F4CG-31 and #249 F4CG-55. No music credit has been identified.

Sources: intros.c64.org · CSDb

f4cg-43.asm 2.205 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:  $0de0 (3552)
// IRQ handler:  $1b20 (irq_1b20)
//
// Code: 1770 bytes, Data: 7446 bytes
// Labels: 218, Subroutines: 17
//
// Cross-references: all OK
// ============================================


// --- Region $0de0-$0f1b ---
.pc = $0de0 "main_0de0"

main_0de0:
        jsr sub_1bb4
        lda #$00
        sta $d020
        ldx #$00

loc_0dea:
        lda $1d00,x
        eor #$00
        sta $0428,x
        lda $1d90,x
        eor #$00
        sta $04b8,x
        inx
        bne loc_0dea
        ldx #$00

loc_0dff:
        lda #$08
        sta $d800,x
        sta $d900,x
        sta $d800,x
        sta $d900,x
        inx
        bne loc_0dff
        lda #$05
        sta $d022
        lda #$0b
        sta $d023
        lda #$0d
        sta $d021
        ldx #$00

loc_0e21:
        lda #$af
        sta $0400,x
        sta $05b8,x
        inx
        cpx #$28
        bne loc_0e21
        jsr sub_1048
        ldx #$00
        ldy #$00

loc_0e35:
        lda $0d80,x
        sta $05e0,y
        eor #$80
        sta $0608,y
        iny
        eor #$c0
        sta $05e0,y
        eor #$80
        sta $0608,y
        iny
        inx
        cpx #$14
        bne loc_0e35
        ldx #$00
        ldy #$00

loc_0e55:
        lda $0da0,x
        sta $0630,y
        eor #$80
        sta $0658,y
        iny
        eor #$c0
        sta $0630,y
        eor #$80
        sta $0658,y
        iny
        inx
        cpx #$14
        bne loc_0e55
        ldx #$00

loc_0e73:
        lda #$00
        sta $d9e0,x
        sta $da00,x
        sta $db00,x
        inx
        bne loc_0e73
        ldx #$00
        ldy #$00

loc_0e85:
        lda $0dc0,x
        sta $0680,y
        eor #$80
        sta $06a8,y
        iny
        eor #$c0
        sta $0680,y
        eor #$80
        sta $06a8,y
        iny
        inx
        cpx #$14
        bne loc_0e85
        ldx #$00
        stx smc_1f81                                // SMC: modifies $1f81
        ldx #$2a
        stx smc_1f82                                // SMC: modifies $1f82
        lda #$a7
        sta $07f8
        sta $07f9
        sta $07fa
        sta $07fb
        sta $07fc
        sta $07fd
        sta $07fe
        lda #$7f
        sta $d015
        sta $d01c
        sta $d01b
        sta $d01d
        lda #$d2
        sta $d001
        sta $d003
        sta $d005
        sta $d007
        sta $d009
        sta $d00b
        sta $d00d
        lda #$10