← #121 Top 1024 #123 →
#122

C64 Comics Group [C64CG] 03

C64 Comics Group [C64CG]

4.524 lines of code

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

History

Released
c. 1987–1988
Group
C64 Comics Group — Belgium, founded 1987

The highest-ranked of three C64 Comics Group intros in the collection, this production features "Think Twice III" by Red (Jeroen Kimmel) — a prolific Dutch SID composer whose work appears across dozens of crack intros from the era. Community comments on intros.c64.org praise the intro's sprite multiplexing technique, noting it was uncommon for 1987–1988 productions. The intro ranks at position 122, well above the group's other entries at 376 and 396, suggesting this particular design resonated strongly with the community. C64 Comics Group was a Belgian collective active from 1987 to 1988, whose French-speaking members used a border-region postal address. The group contained two subgroups — Le Groupe and FBD'C — and produced around 90 releases before dissolving. Its successor, Transcom, carried forward the cracking tradition. Red's "Think Twice" series of SID compositions circulated widely through the cracking scene, and this third installment is preserved in the HVSC.

Sources: CSDb Group · intros.c64.org

c64cg-03.asm 4.524 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:17
// 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:  $1a00 (6656)
// IRQ handler:  $1ae6 (irq_1ae6)
//
// Code: 4699 bytes, Data: 58789 bytes
// Labels: 511, Subroutines: 32
//
// Cross-references: all OK
// ============================================


// --- Region $0f0d-$0f17 ---
.pc = $0f0d "sub_0f0d"
// Referenced by: jsr from $fce2

sub_0f0d:
        .byte $ff,$fe,$7f                           // isc $7ffe,x // ILLEGAL
        eor $7e,x
        .byte $7f,$80,$56                           // rra $5680,x // ILLEGAL
        .byte $7f,$80,$00                           // rra $0080,x // ILLEGAL

// --- Region $11e3-$147c ---
.pc = $11e3 "sub_11e3"
// Referenced by: jsr from $12b1, $1353, $1360, $136c, $ebae, $ec50, $ec5d, $ec69

sub_11e3:
        tya
        sta $101c,x
// Referenced by: jsr from $12df, $ebdc

sub_11e7:
        lda $106e,y
        sta $d401,x
        sta $1033,x
        lda $10ce,y
        sta $d400,x
        sta $1032,x
        rts
// Referenced by: jsr from $13fa, $ecf7

sub_11fa:
        lda #$01
        sta $1047,x

loc_11ff:
        lda $101e,x
        sta $fb
        lda $101f,x
        sta $fc
        lda $101d,x
        asl
        tay
        iny
        lda ($fb),y
        cmp #$00
        bne loc_1221
        lda #$00
        sta $101d,x
        ldy #$01
        lda ($fb),y
        clv
        bvc loc_122b

loc_1221:
        cmp #$01
        bne loc_122b
        lda #$00
        sta $1000
        rts

loc_122b:
        pha
        dey
        lda ($fb),y
        sta $fb
        pla
        sta $fc
        lda $102f,x
        tay
        clc
        adc #$02
        sta $102f,x
        lda ($fb),y
        cmp #$00
        bne loc_124f
        lda #$00
        sta $102f,x
        inc $101d,x
        jmp loc_11ff

loc_124f:
        sta $101c,x
        iny
        lda ($fb),y
        pha
        and #$1f
        sta $1004,x
        pla
        and #$e0
        lsr
        lsr
        tay
        lda $1059,x
        sta $fb
        lda $105a
        sta $fc
        lda #$00
        sta $d404,x
        sta $d402,x
        sta $1034,x
        lda ($fb),y
        iny
        sta $d403,x
        sta $1035,x
        and #$f0
        sta $1003,x
        lda ($fb),y
        iny
        sta $1005,x
        lda ($fb),y
        iny
        sta $d405,x
        lda ($fb),y
        iny
        sta $d406,x
        lda ($fb),y
        iny
        sta $101a,x
        lda ($fb),y
        iny
        sta $1007,x
        lda ($fb),y
        iny
        sta $1046,x
        lda ($fb),y
        iny
        sta $1008,x
        ldy $101c,x
        jsr sub_11e3
        lda $1033,x
        sta $1049,x