← #64 Top 1024 #66 →
#65

Transcom [TCOM] 02

Transcom [TCOM]

4.481 lines of code

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

History

Released
25 October 1990
Code
Unknow
Music
EVS (Edwin van Santen), Griff (Peter Varga), Drax (Thomas Mogensen)
Graphics
Hobbit
Group
Transcom — France, founded 1988

CSDb catalogues this as the "Violator" intro — a three-composer production with Dutch, Hungarian, and Danish musicians collaborating for a French group. EVS (Edwin van Santen) contributed "Vlindertjes," Griff (Peter Varga) provided "Burning Chrome: The End," and Drax (Thomas Mogensen) added "Gurli Kaj." The coder is credited only as "Unknow" — possibly a handle or a genuine lack of attribution. Hobbit provided the graphics. Transcom was a French group founded in 1988, part of the smaller but dedicated French C64 scene. The HVSC preserves all three tunes. Released on 25 October 1990, this shows how late-era groups assembled international teams through BBS networks and mail-trading contacts. Doc Snyder's page documents Transcom's French origin — France was underrepresented in C64 cracking compared to Germany, Scandinavia, and the UK.

Sources: CSDb · docsnyderspage

tcom-02.asm 4.481 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:33
// 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:  $2000 (8192)
// IRQ handler:  $20da (irq_20da)
// IRQ handler:  $2160 (irq_2160)
// IRQ handler:  $2216 (irq_2216)
// IRQ handler:  $ea31 (loc_ea31)
//
// Code: 4926 bytes, Data: 58562 bytes
// Labels: 434, Subroutines: 19
//
// Cross-references: all OK
// ============================================


// --- Region $0907-$090e ---
.pc = $0907 "Program $0907"
        .byte $ff,$ff,$ff                           // isc $ffff,x // ILLEGAL
        .byte $ff,$fe,$fc                           // isc $fcfe,x // ILLEGAL

dat_090d:
        .byte $fc,$f8                               // ..

// --- Region $0af0-$0af7 ---
.pc = $0af0 "Program $0af0"
        .byte $ff,$ff,$ff                           // isc $ffff,x // ILLEGAL
        .byte $ff,$ff,$ff                           // isc $ffff,x // ILLEGAL

dat_0af6:
        .byte $ff,$ff                               // ..

// --- Region $106c-$1700 ---
.pc = $106c "sub_106c"
// Referenced by: jsr from $1e6c, $f295

sub_106c:
.label smc_106d = * + 1
        lda #$ff                                    // !SMC: modified by $1e68
        bmi loc_10ce

dat_1070:
        .byte $f0                                   // .

loc_1071:
        eor $0a0a
        asl
        tay
        lda $1831,y
        sta $10f8
        lda $1832,y
        sta $10ec
        ldx #$ff
        stx smc_106d

loc_1087:
        inx
        iny
        iny
        lda $1831,y
        sta $101e,x
        lda $1832,y
        sta $1021,x
        lda #$01
        sta $1000,x
        sta $1069
        lda #$00
        sta $101b,x
        sta $1018,x
        sta $1024,x
        sta $100c,x
        cpx #$02
        bne loc_1087
        sta $1068
        sta smc_129e
        sta smc_1459
        sta $106a
        sta $106b
        sta $d404
        sta $d40b
        sta $d412
        lda #$0f
        sta $1457
        rts

loc_10ce:
        cld
        ldx #$02
        lda $106a
        beq loc_10e6
        dec $106b
        bpl loc_10e6
        sta $106b
        dec $1457
        bne loc_10e6
        inc smc_106d

loc_10e6:
        dec $1069
        bpl loc_10f2
        lda #$00
        sta $1069
        bne loc_1105

loc_10f2:
        dec $1068
        bpl loc_1105
        lda #$02
        sta $1068
        dec $1000
        dec $1001
        dec $1002

loc_1105:
        lda $1000,x
        beq loc_110d
        jmp loc_12d9

loc_110d:
        sta $1045,x
        sta $1006,x
        sta $105a,x
        sta $1039,x
        sta $104b,x
        lda $1027,x
        ldy $1833,x
        and #$fe
        sta $d404,y
        lda $101e,x
        sta $fe
        lda $1021,x
        sta $ff
        ldy $101b,x
        lda ($fe),y
        bpl loc_117a
        cmp #$fe
        bcc loc_114d
        bne loc_1142
        inc smc_106d
        rts

loc_1142:
        iny