#528

Fantastic 4 Cracking Group [F4CG] 13

Fantastic 4 Cracking Group [F4CG]

3.951 lines of code

RasterbarsRSTRMusicSID

History

Group
Fantastic 4 Cracking Group — Italy, founded 1983

The thirteenth numbered crack intro from Fantastic 4 Cracking Group, ranking 528th overall. No CSDb match was confirmed and no individual credits have been identified for code, music, or graphics. A comment on intros.c64.org from Ze Smasher — himself an F4CG member — dates from 2004, indicating the intro was catalogued early in the preservation community's efforts. F4CG was founded in Italy in 1983, the same year as the C64's European commercial launch. The group's numbered intro series stretched past ninety entries, making them one of the most prolific intro producers in C64 history. This thirteenth entry falls in the lower portion of the series, likely from the late 1980s. F4CG's longevity — spanning from 1983 well into the 1990s — is remarkable and largely unmatched by contemporaries. Other F4CG intros in this collection include #14 F4CG-32, #163 F4CG-09, #30 F4CG-08, and #105 F4CG-01.

Sources: intros.c64.org

f4cg-13.asm 3.951 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:27
// 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:  $2600 (9728)
// IRQ handler:  $272a (irq_272a)
// IRQ handler:  $2600 (main_2600)
// IRQ handler:  $2627 (nmi_2627)
//
// Code: 3416 bytes, Data: 60072 bytes
// Labels: 394, Subroutines: 8
//
// Cross-references: all OK
// ============================================


// --- Region $0814-$082e ---
.pc = $0814 "Program $0814"
        eor.abs $0065,y
        ora $ff
        tax
        .byte $ff,$5a,$69                           // isc $695a,x // ILLEGAL
        ldx $00
        ora $ff,x
        tax
        .byte $ff,$6a,$ab                           // isc $ab6a,x // ILLEGAL
        ldx $9610
        .byte $ff,$aa,$ff                           // isc $ffaa,x // ILLEGAL
        .byte $eb,$af                               // sbc #$af // ILLEGAL

dat_082d:
        .byte $bf,$7b                               // .{

// --- Region $08ed-$08ff ---
.pc = $08ed "loc_08ed"

loc_08ed:
        adc #$fb
        eor $5a
        adc #$a6
        txs
        ror
        .byte $ab,$fe                               // lax #$fe // ILLEGAL
        adc $3f
        .byte $7b,$6b,$6f                           // rra $6f6b,y // ILLEGAL
        .byte $bb,$6b,$6b                           // las $6b6b,y // ILLEGAL

dat_08ff:
        .byte $af                                   // .

// --- Region $0918-$091c ---
.pc = $0918 "loc_0918"

loc_0918:
        .byte $af,$9f,$6f                           // lax $6f9f // ILLEGAL

dat_091b:
        .byte $af,$bf                               // ..

// --- Region $0928-$0992 ---
.pc = $0928 "sub_0928"
// Referenced by: jsr from $fd00

sub_0928:
        ror
        lda $99
        adc #$aa
        lda $eab9
        ldx $beae
        cpx $bcac
        .byte $fc,$ec,$05                           // nop $05ec,x // ILLEGAL
        ora $14
        jsr sub_1511
        bit $21
        eor ($05,x)
        .byte $14,$51                               // nop $51,x // ILLEGAL
        eor $15
        lsr $59,x
        eor $15
        lsr $59,x
        adc $96
        .byte $6f,$14,$65                           // rra $6514 // ILLEGAL
        stx $b4,y
        adc #$a6
        txs

loc_0956:
        tsx
        .byte $7b,$9b,$8b                           // rra $8b9b,y // ILLEGAL
        lsr $aa9f,x
        ldx $e7,y
        .byte $ab,$ac                               // lax #$ac // ILLEGAL
        cpx $f0ec
        bcs loc_0956
        beq loc_0918
        ora $14,x
        bvc loc_08ed
        eor $54
        sta ($85),y
        ora $14
        eor ($45),y
        ora $56,x
        eor $1564,y
        lsr $59,x
        adc $96
        .byte $5a                                   // nop // ILLEGAL
        ldx $9651,y
        .byte $5a                                   // nop // ILLEGAL
        adc #$a6
        txs
        ror
        .byte $eb,$ee                               // sbc #$ee // ILLEGAL
        ror $7b2f
        .byte $7f,$aa,$db                           // rra $dbaa,x // ILLEGAL
        .byte $9f,$ae,$bf                           // sha $bfae,y // ILLEGAL

dat_0991:
        .byte $bf,$bf                               // ..

// --- Region $1000-$1003 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $2675, $f6c1

sub_1000:
        jmp loc_1028

dat_1003:
        .byte $4c                                   // L

// --- Region $1028-$1529 ---
.pc = $1028 "loc_1028"

loc_1028:
        asl
        asl
        asl
        tay
        ldx #$00

loc_102e:
        lda $1020,y
        sta $15d1,x
        sta $15d7,x
        lda $1021,y