History
- Released
- 1997
- Group
- Fantastic 4 Cracking Group — Italy, founded 1983
F4CG's sixty-third numbered intro, ranking 118th overall — a late-era production from 1997 with a full creative team. CSDb release 60018 credits Devil with the code, Zyron with the music, and Draz with both graphics and charset. Total Chaos is credited with the original idea, and Jucke assisted — notably by providing a scanned leaf from a plant named Bengt that grew in his kitchen window, which Draz then converted to C64 graphics. Total Chaos confirmed authorship on intros.c64.org, noting the intro belonged to him rather than Devil in the conceptual sense. F4CG was founded in Italy in 1983 by Ricky and is documented on CSDb with over 1,600 releases. By 1997, the group had transitioned from its cracking roots into broader scene activity. The collaboration between multiple contributors — across coding, music, graphics, and concept — reflects F4CG's mature organisational structure during their later period.
Sources: CSDb · intros.c64.org
// ============================================ // 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: $1700 (5888) // IRQ handler: $1735 (irq_1735) // // Code: 1900 bytes, Data: 7316 bytes // Labels: 205, Subroutines: 8 // // Cross-references: all OK // ============================================ // --- Region $0878-$0d99 --- .pc = $0878 "loc_0878" loc_0878: jmp loc_1479 dat_087b: .byte $4c,$8a,$14 // L.. // Referenced by: jsr from $174a sub_087e: .label smc_087f = * + 1 lda #$00 // !SMC: modified by $1459, $147b beq loc_0888 dat_0882: .byte $10,$01,$60,$4c,$32,$14 // ..`L2. loc_0888: dec smc_089b bpl loc_0892 lda #$02 sta smc_089b // SMC: modifies $089b loc_0892: ldx #$02 ldy #$0e loc_0896: stx $04 sty $05 .label smc_089b = * + 1 lda #$01 // !SMC: modified by $088f cmp $088e bne loc_08a6 dec $0f1e,x bmi loc_08a9 loc_08a6: jmp loc_0a7b loc_08a9: lda $1099,x sta $02 lda $109c,x sta $03 lda #$00 sta $0efc loc_08b8: ldy $0f42,x lda ($02),y cmp #$50 bcc loc_090e loc_08c1: cmp #$ff bne loc_08d0 lda #$00 sta $0f42,x sta $0f06,x jmp loc_08b8 loc_08d0: cmp #$fe bne loc_08d7 jmp loc_0878 loc_08d7: cmp #$80 bcc loc_08ed sec sbc #$a0 sta $0f06,x inc $0f42,x iny lda ($02),y cmp #$50 bcc loc_090e bcs loc_08c1 loc_08ed: cmp #$60 bcc loc_0900 and #$07 tay lda $0da2,y sta smc_0d95 // SMC: modifies $0d95 inc $0f42,x jmp loc_08b8 loc_0900: and #$0f sta smc_0d93 // SMC: modifies $0d93 inc $0f42,x jmp loc_08b8 loc_090b: jmp loc_0a58 loc_090e: tay lda $10c9,y sta $02 lda $10d7,y sta $03 ldy $0f45,x lda #$00 sta $0ef9 sta $0efc loc_0924: lda ($02),y bpl loc_0991 cmp #$c0 bcs loc_0936 and #$3f loc_092e: sta $0eed,x iny lda ($02),y bpl loc_0991 loc_0936: cmp #$f0 bcs loc_0959 and #$3f cmp #$20 bcs loc_094a