#767

Me+Clonekid 01

Me+Clonekid

193 lines of code

History

Released
1983
Group
Me + Clonekid — Sweden

A crack intro from 1983, attributed to the partnership of two Swedish sceners operating under the combined name "Me & Clonekid." CSDb documents this as release 62854, noting the intro was used in cracks of Archon, Beach-Head (turbo tape), Drelbs, Son of Blagger, and Survivor. Clonekid (scener ID 11024) was a Swedish cracker who collaborated frequently with handles Oddball and Me, while the scener known simply as "Me" (ID 11026) remains otherwise undocumented. The 1983 release date places this among the earliest crack intros in the collection — a period when the C64 cracking scene was still nascent and individual crackers or small partnerships were the norm rather than organised groups. Clonekid's other known releases from 1983-1984 include cracks of Flak, Havoc, and Trollie Wallie. The intro's survival across multiple cracked titles demonstrates how a single intro could serve as a persistent group identity across many releases.

Sources: CSDb · intros.c64.org

me_clonekid-01.asm 193 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:56
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0700  End: $d011  (51474 bytes)
// Crunched with Exomizer — depacked by emulation
// Packer entry: $082a (via BASIC SYS 2090)
// Entry point:  $7724 (30500)
//
// Code: 135 bytes, Data: 51339 bytes
// Labels: 33, Subroutines: 2
//
// Cross-references: all OK
// ============================================


// --- Region $7530-$75b1 ---
.pc = $7530 "sub_7530"
// Referenced by: jsr from $7724

sub_7530:
        jsr sub_75a9
        ldx #$b3
        ldy #$75
        stx smc_753e                                // SMC: modifies $753e
        sty smc_753f                                // SMC: modifies $753f

loc_753d:
.label smc_753e = * + 1
.label smc_753f = * + 2
        lda $0a00                                   // !SMC: modified by $7537, $753a
        cmp #$ff
        beq loc_7554
        jsr $ffd2
        inc smc_753e
        bne loc_753d
        inc smc_753f
        jmp loc_753d

dat_7552:
        .byte $02,$07                               // ..

loc_7554:
        ldx #$00
        ldy #$d8
        stx smc_756c                                // SMC: modifies $756c
        sty smc_756d                                // SMC: modifies $756d
        stx smc_7577                                // SMC: modifies $7577
        sty smc_7578                                // SMC: modifies $7578
        ldy #$00

loc_7566:
        ldx #$00
        lda dat_7552

loc_756b:
.label smc_756c = * + 1
.label smc_756d = * + 2
        sta $d800,x                                 // !SMC: modified by $7558, $755b, $758d, $7593
        inx
        cpx #$80
        bne loc_756b
        lda $7553

loc_7576:
.label smc_7577 = * + 1
.label smc_7578 = * + 2
        sta $d800,x                                 // !SMC: modified by $755e, $7561, $7590, $7596
        inx
        bne loc_7576
        inc smc_756d
        inc smc_7578
        lda smc_7578
        cmp #$dc
        bne loc_7566
        ldx #$00
        lda #$d8
        stx smc_756c                                // SMC: modifies $756c
        stx smc_7577                                // SMC: modifies $7577
        sta smc_756d                                // SMC: modifies $756d
        sta smc_7578                                // SMC: modifies $7578
        lda dat_7552
        ldx $7553
        sta $7553
        stx dat_7552
        iny
        bne loc_7566
        rts
// Referenced by: jsr from $7530

sub_75a9:
        lda #$00
        sta $d020
        sta $d021
        rts

// --- Region $7724-$7729 ---
.pc = $7724 "main_7724"

main_7724:
        jsr sub_7530
        jmp $fce2

// --- Region $8dd0-$8dd0 ---
.pc = $8dd0 "Segment $8dd0"
        brk

// ============================================
// Data blocks
// ============================================

// --- Region $0800-$0800 ---
.pc = $0800 "dat_0800"

dat_0800:
        // === Fill data (1 bytes, $0800-$0800) ===
        .byte $00                                   // .

// --- Region $75b2-$7723 ---
.pc = $75b2 "dat_75b2"

dat_75b2:
        // === Data block (370 bytes, $75b2-$7723) ===
        .byte $ff,$93,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11 // ................
        .fill 9, $11

txt_75cb:
        .text "               *  * ***"
        .byte $0d                                   // string terminator

txt_75e3:
        .text "               *"
        .byte $bf                                   // '?' | $80 (end-of-string marker)
        .byte $12,$bf,$92                           // ...

txt_75f7:
        .text "* * "
        .byte $0d                                   // string terminator

txt_75fc:
        .text "               *  * **"
        .byte $0d                                   // string terminator

txt_7613:
        .text "               *  * *"
        .byte $0d                                   // string terminator

txt_7629:
        .text "               *  * ****"
        .byte $0d                                   // string terminator
        .byte $11,$11,$11,$11                       // ....

txt_7646:
        .text "                  "
        .byte $9d,$41,$4e,$44,$0d,$11,$11,$11,$11   // .AND.....

txt_7661:
        .text "   *** *     **  *  * ***  * *  * ***"
        .byte $0d                                   // string terminator

txt_7687:
        .text "  *    *    *  * ** * *    **   * *  *"
        .byte $0d                                   // string terminator

txt_76ae:
        .text "  *    *    *  * * ** **   **   * *  *"
        .byte $0d                                   // string terminator

txt_76d5:
        .text "  *    *    *  * *  * *    * *  * *  *"
        .byte $0d                                   // string terminator

txt_76fc:
        .text "   *** ****  **  *  * **** *  * * ***"
        .byte $11,$11,$ff                           // ...

// --- Region $772a-$772a ---
.pc = $772a "dat_772a"

dat_772a:
        // === Fill data (1 bytes, $772a-$772a) ===
        .byte $00                                   // .

// --- Region $8dd1-$8dd1 ---
.pc = $8dd1 "dat_8dd1"

dat_8dd1:
        // === Fill data (1 bytes, $8dd1-$8dd1) ===
        .byte $00                                   // .