History
- Released
- 1987
- Group
- C64 Comics Group — Belgium, founded 1987
One of three ranked intros from Belgium's C64 Comics Group, a cracking collective founded in 1987 and dissolved by 1988. The group operated from Belgium, though intros.c64.org comments reveal the members were actually French, using a Belgian Poste Restante address near the border. C64CG had two subgroups — Le Groupe (Greystoke, Malibu, LKJ) and FBD'C (IRQ, Chett, Number 7) — and released approximately 90 titles during its brief existence. Key member Unknow, whose distinctive intro style is noted in community comments, later became a mathematics teacher at a military school. The group's historical significance extends beyond its own output — Transcom, a subsequent and more widely known group, was built from C64CG's ashes. CSDb catalogues a separate "C64 Comics Group Intro" (release 59199) from September 1987 featuring Rob Hubbard's "ACE II" SID, which was used across at least 14 crack releases including Bubble Bobble and IK+.
Sources: CSDb Group · CSDb Release · intros.c64.org
// ============================================ // output - Disassembled Source // ============================================ // KickAssembler syntax // Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:13 // https://restore64.dev by datucker / Rabenauge // // Load address: $0800 End: $2cbf (9408 bytes) // Crunched with Cruncher AB — depacked by emulation // Packer entry: $080d (via BASIC SYS 2061) // Entry point: $1800 (6144) // IRQ handler: $1924 (irq_1924) // IRQ handler: $1ac1 (irq_1ac1) // IRQ handler: $1951 (irq_1951) // IRQ handler: $19cb (loc_19cb) // IRQ handler: $1a18 (irq_1a18) // IRQ handler: $1a59 (irq_1a59) // // Code: 2603 bytes, Data: 6805 bytes // Labels: 253, Subroutines: 27 // // Cross-references: all OK // ============================================ // --- Region $1000-$1012 --- .pc = $1000 "sub_1000" // Referenced by: jsr from $1a68; branch from $100d sub_1000: lda $1450 bne loc_100f sta $1001 lda #$14 sta $1002 bne sub_1000 loc_100f: jmp loc_114d dat_1012: .byte $ee // . // --- Region $114d-$1163 --- .pc = $114d "loc_114d" loc_114d: lda $033e clc adc #$08 sta $033e bne loc_115d dec $033f beq loc_115e loc_115d: rts loc_115e: lda #$64 sta $1010 rts // --- Region $11b0-$11e9 --- .pc = $11b0 "sub_11b0" // Referenced by: jsr from $1aa6 sub_11b0: ldx #$07 loc_11b2: lda $1388,x sta $08f0,x lda $13a8,x sta $08f8,x lda $13c8,x sta $08e8,x lda $13e8,x sta $08e0,x dex bpl loc_11b2 lda $11b3 clc adc #$08 and #$9f ora #$80 sta $11b3 adc #$20 sta $11b9 adc #$20 sta $11bf adc #$20 sta $11c5 rts // --- Region $1200-$1379 --- .pc = $1200 "sub_1200" // Referenced by: jsr from $1a37 sub_1200: { ldx #$18 loop1: clc rol $0fc5,x rol $0fc4,x rol $0fc3,x rol $0f85,x rol $0f84,x rol $0f83,x rol $0f45,x rol $0f44,x rol $0f43,x rol $0f05,x rol $0f04,x rol $0f03,x rol $0ec5,x rol $0ec4,x rol $0ec3,x rol $0e85,x rol $0e84,x rol $0e83,x rol $0e45,x rol $0e44,x rol $0e43,x rol $0e05,x rol $0e04,x rol $0e03,x dex dex dex bne loop1 dec $033d bmi skip1 rts skip1: lda #$07 sta $033d loop2: lda $2914 bne skip2 sta $125c lda #$29 sta $125d bne loop2 nop skip2: ldx #$00 stx $ff asl rol $ff