← #248 Top 1024 #250 →
#249

Fantastic 4 Cracking Group [F4CG] 55

Fantastic 4 Cracking Group [F4CG]

1.980 lines of code

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

History

Group
Fantastic 4 Cracking Group — Italy, founded 1983

F4CG's fifty-fifth numbered crack intro, coded by Ze Smasher — who also painted the logo, making this a solo production. On intros.c64.org, Ze Smasher confirmed both credits and noted this was his second intro for the group. Scene members Hades and Jabula praised the result — Hades called it a "nice clean intro" while Jabula simply noted it "looks good." F4CG was founded in Italy in 1983 by Ricky and is documented on CSDb with over 1,600 releases. Ze Smasher was one of the group's most prolific contributors, also responsible for #54 F4CG-43, #392 F4CG-31, and #865 F4CG-47. No music credit has been identified. The clean aesthetic praised by commenters aligns with a deliberate approach — Ze Smasher's dual role as both coder and artist allowed for tight visual coherence between the intro's technical effects and its graphical design.

Sources: intros.c64.org · CSDb

f4cg-55.asm 1.980 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: $31ff  (10752 bytes)
// Note: PRG was crunched, depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $1900 (6400)
//
// Code: 1708 bytes, Data: 9044 bytes
// Labels: 198, Subroutines: 1
//
// Cross-references: all OK
// ============================================


// --- Region $0bb0-$0bd4 ---
.pc = $0bb0 "Program $0bb0"
        inc $eeee
        inc $eeee
        inc $1c7c
        .byte $1c,$38,$38                           // nop $3838,x // ILLEGAL
        sec
        sec
        sec
        sec
        inc $eeee
        inc $eeee
        inc $0e7c
        asl $0e0e
        asl $0e0e
        .byte $fc,$00,$38                           // nop $3800,x // ILLEGAL
        sec
        sec
        brk

// --- Region $1000-$1502 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $192f

sub_1000:
        jmp loc_14f7

dat_1003:
        .byte $4c,$fd,$14                           // L..

loc_1006:
        lda #$1f
        sta $d418
        bit $150b
        bmi loc_1039
        bvs loc_102e
        lda #$00
        ldx #$02

loc_1016:
        sta $24,x
        sta $21,x
        sta $14,x
        sta $1b,x
        sta $1e,x
        dex
        bpl loc_1016
        lda $1509
        sta $150a
        lda #$80
        sta $150b

loc_102e:
        ldx #$17

loc_1030:
        lda #$00
        sta $d400,x
        dex
        bpl loc_1030
        rts

loc_1039:
        dec $150a
        bpl loc_104a
        lda $1509
        sta $150a
        dec $14
        dec $15
        dec $16

loc_104a:
        lda #$00
        sta $150f
        ldx #$02

loc_1051:
        ldy dat_1503,x
        sty $150c
        bit $d020
        lda $14,x
        bmi loc_1061
        jmp loc_11b4

loc_1061:
        lda $1b,x
        bne loc_107e
        lda #$00
        sta $d404,y
        sta $d405,y
        sta $d406,y
        sta $5a,x
        sta $57,x
        sta $08,x
        sta $36,x
        sta $02,x
        lda #$ff
        sta $0e,x

loc_107e:
        lda #$00
        sta $1e,x
        sta $33,x

loc_1084:
        lda $1513,x
        sta $4d
        lda $1516,x
        sta $4e
        ldy $24,x

loc_1090:
        lda ($4d),y
        cmp #$ff
        bne loc_109b
        ldy #$00
        jmp loc_1090

loc_109b:
        cmp #$fe
        bne loc_10a2
        jmp loc_14fd

loc_10a2:
        cmp #$80
        bcc loc_10ae
        and #$1f
        sta $27,x
        iny
        jmp loc_1090