← #739 Top 1024 #741 →
#740

Fantastic 4 Cracking Group [F4CG] 21

Fantastic 4 Cracking Group [F4CG]

4.315 lines of code

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

History

Group
Fantastic 4 Cracking Group — Italy, founded 1983

The twenty-first numbered crack intro from Fantastic 4 Cracking Group, ranking 740th overall — among the lower-placed F4CG entries in this collection. No CSDb match was found and no individual credits have been identified for code, graphics, or music. Comments on intros.c64.org from Daison (2013) and Mr.Alpha (2005) confirm the intro's presence in the cataloguing community. F4CG was founded in Italy in 1983 and produced an extraordinary volume of crack intros — their numbered series eventually exceeding ninety entries. This twenty-first entry falls in the lower third of that sequence. The group's prolific output is extensively represented in the rankings, from #14 F4CG-32 and #30 F4CG-08 at the top through entries like #691 F4CG-22 in the lower ranks. The sheer number of surviving intros makes F4CG one of the most documented groups in the entire C64 cracking scene archive. Their Italian origin placed them at the core of a smaller but fiercely dedicated Southern European scene.

Sources: intros.c64.org

f4cg-21.asm 4.315 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:29
// 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:  $2d80 (11648)
// IRQ handler:  $2e1e (irq_2e1e)
//
// Code: 3698 bytes, Data: 59790 bytes
// Labels: 481, Subroutines: 20
//
// Cross-references: all OK
// ============================================


// --- Region $0814-$0818 ---
.pc = $0814 "sub_0814"
// Referenced by: jsr from $f20f

sub_0814:
        sei
        .byte $7f,$70,$70                           // rra sub_7070,x // ILLEGAL
        brk

// --- Region $0f0c-$0f1b ---
.pc = $0f0c "sub_0f0c"
// Referenced by: jsr from $f21c

sub_0f0c:
        brk

dat_0f0d:
        .byte $00,$00,$00,$e0,$e0,$e0,$e0           // .......
// Referenced by: jsr from $f20c

sub_0f14:
        cpx #$e0
        cpx #$00
        rol $a0fe,x
        rts

// --- Region $1000-$1006 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $2df0, $fb09

sub_1000:
        jmp loc_1048
// Referenced by: jsr from $2e40, $fb59

sub_1003:
        jmp loc_1021

dat_1006:
        .byte $22                                   // "

// --- Region $1021-$1080 ---
.pc = $1021 "loc_1021"

loc_1021:
        ldx #$00
        dec $1090
        bmi loc_1034
        jsr sub_1226
        jsr sub_1225
        jmp sub_1225

dat_1031:
        .byte $ff,$fe,$ff                           // ...

loc_1034:
        lda #$03
        sta $1090
        jsr sub_1040
        jsr sub_103f
// Referenced by: jsr from $103c

sub_103f:
        inx
// Referenced by: jsr from $1039

sub_1040:
        dec $108a,x
        bmi loc_1091
        jmp sub_1226

loc_1048:
        lda #$1f
        sta $d418
        lda #$f0
        sta $d417
        and #$0f
        sta smc_1262                                // SMC: modifies $1262
        ldx #$0f

loc_1059:
        sta dat_1081,x
        dex
        bpl loc_1059
        ldx #$02

loc_1061:
        lda $14b9,x
        sta $fa
        lda $14bc,x
        sta $fb
        ldy #$00
        lda ($fa),y
        sta $108d,x
        iny
        lda ($fa),y
        sta $10e6,x
        and #$0f
        sta $10e9,x
        dex
        bpl loc_1061
        rts

// --- Region $1091-$10c6 ---
.pc = $1091 "loc_1091"

loc_1091:
        ldy $108d,x
        cpy #$fe
        bne loc_10a1
// Referenced by: jsr from $10c0

sub_1098:
        lda $1084,x
        and #$fe
        sta $1084,x
        rts

loc_10a1:
        lda $1b50,y
        sta $fa
        lda $1b31,y
        sta $fb
        ldy dat_1081,x
        lda ($fa),y
        bmi loc_10d2
        cmp #$60
        bcc loc_10f9

loc_10b6:
        and #$1f