#758

Transcom [TCOM] 10

Transcom [TCOM]

1.772 lines of code

RasterbarsRSTRMusicSIDSpritesSPRT

History

Released
3 May 1991
Code
Reset
Graphics
Hobbit
Music
Antti Hannula — "FanFarewell"
Group
Transcom — France, founded 1988

A Transcom intro coded by Reset with graphics by Hobbit, released on 3 May 1991. Antti Hannula — a Finnish composer — provided the SID tune "FanFarewell," preserved in the HVSC. Transcom was a French cracking group founded in 1988 under the motto "A Quest for Quality." Doc Snyder's page documents several of their intros, revealing a varied roster of coders including Unknow, Eid, and Got, alongside musicians such as EVS, Mike, and Rock. Hobbit also appears as a graphician on Doc Snyder's Transcom page for another intro, confirming their ongoing role within the group. The scrolltext from a related Transcom intro mentions cooperation with X-Ray — noting that "Torsten of X-Ray has now joined Transkom" — illustrating the cross-border connections between French and German groups in the early 1990s. Transcom's ability to secure compositions from Finnish, Dutch, and other international musicians reflects the interconnected nature of the European C64 scene.

Sources: CSDb · docsnyderspage

tcom-10.asm 1.772 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:49
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0700  End: $247f  (7552 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $0b08 (2824)
//
// Code: 1249 bytes, Data: 6303 bytes
// Labels: 170, Subroutines: 7
//
// Cross-references: all OK
// ============================================


// --- Region $0b08-$0bef ---
.pc = $0b08 "main_0b08"

main_0b08:
        sei
        ldx #$00
        stx $d020
        stx $d021
        jsr sub_0bb4
        ldx #$00
        lda #$0a

loc_0b18:
        sta $d968,x
        inx
        bne loc_0b18
        ldx #$00

loc_0b20:
        lda txt_0a00,x
        sta $0568,x
        inx
        bne loc_0b20
        lda #$00
        jsr sub_1f00
        ldx #$28

loc_0b30:
        lda tbl_09d7,x
        sta $da7f,x
        dex
        bne loc_0b30

loc_0b39:
        lda #$36

loc_0b3b:
        cmp $d012
        bne loc_0b3b
        lda #$18
        sta $d018
        sta $d016
        lda #$0f
        sta $d022
        lda #$0a
        sta $d023
        lda #$af

loc_0b54:
        cmp $d012
        bne loc_0b54
        lda $02
        sta $d016
        lda #$12
        sta $d018
        jsr sub_1003
        jsr sub_0bc0
        jmp loc_0fb0

chr_0b6c:
        // === Charset data (4 bytes, $0b6c-$0b6f) ===
        .byte $00,$00,$00,$00                       // char 0 (partial)
// Referenced by: jsr from $0bc7

sub_0b70:
        lda $02
        sec
        sbc #$02
        cmp #$c0
        bmi loc_0b7c
        sta $02
        rts

loc_0b7c:
        clc
        adc #$08
        sta $02
        ldx #$00

loc_0b83:
        lda $0681,x
        sta $0680,x
        inx
        cpx #$28
        bne loc_0b83
        nop
        nop
        nop
.label smc_0b92 = * + 1
.label smc_0b93 = * + 2
        lda $0c5e                                   // !SMC: modified by $0ba7, $0bac
        beq sub_0ba5

loc_0b96:
        sta $06a7
        inc smc_0b92
        bne loc_0ba1
        inc smc_0b93

loc_0ba1:
        rts

chr_0ba2:
        // === Charset data (3 bytes, $0ba2-$0ba4) ===
        .byte $00,$00,$00                           // char 0 (partial)
// Referenced by: jsr from $0bb7; branch from $0b94

sub_0ba5:
        lda #$20
        sta smc_0b92                                // SMC: modifies $0b92
        lda #$0c
        sta smc_0b93                                // SMC: modifies $0b93
        lda #$20
        jmp loc_0b96
// Referenced by: jsr from $0b11

sub_0bb4:
        jsr $e544
        jsr sub_0ba5
        rts

chr_0bbb:
        // === Charset data (5 bytes, $0bbb-$0bbf) ===
        .byte $60,$00,$00,$00,$00                   // char 0 (partial)
// Referenced by: jsr from $0b66

sub_0bc0:
        lda $dc01
        cmp #$ef
        beq loc_0bd0
        jsr sub_0b70