← #847 Top 1024 #849 →
#848

Transcom [TCOM] 16

Transcom [TCOM]

2.935 lines of code

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

History

Released
July 1990
Charset
Damon Redmond
Music
Rob Hubbard — "Rasputin" (ripped)
Group
Transcom — France, founded 1988

CSDb dates this intro to July 1990, released by Transcom — a French group founded in 1988 whose motto was "A Quest for Quality." The music is "Rasputin" by Rob Hubbard, one of the most celebrated SID composers in C64 history, preserved in the HVSC at /MUSICIANS/H/Hubbard_Rob/Rasputin.sid. Damon Redmond is credited with the charset design. Doc Snyder's page preserves the scrolltext, which announces a crack of "Dragon of the Flamme" imported by "the Transcom playboy (Chouans who else)" and sends greetings to Intense, Fantasy, Dominators, Genesis, Legend, Illusion, Crazy Lotus, and F4CG. Transcom is well represented in this collection with #65 Transcom 02 among other entries. The use of a ripped Rob Hubbard tune was a prestige move — his compositions were among the most sought-after SID tracks for crack intros.

Sources: CSDb · Doc Snyder's Page

tcom-16.asm 2.935 lines
// ============================================
// output - Disassembled Source
// ============================================
// 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: $0800  End: $4000  (14337 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $3000 (12288)
// IRQ handler:  $30ee (irq_30ee)
// IRQ handler:  $3249 (irq_3249)
// IRQ handler:  $327d (irq_327d)
// IRQ handler:  $31c3 (irq_31c3)
// IRQ handler:  $1fcc (irq_1fcc)
//
// Code: 3084 bytes, Data: 11253 bytes
// Labels: 266, Subroutines: 17
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$1007 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $306e

sub_1000:
        jmp loc_1f57
// Referenced by: jsr from $10b7

sub_1003:
        jmp loc_1f8d

dat_1006:
        .byte $4c,$93                               // L.

// --- Region $1012-$1448 ---
.pc = $1012 "sub_1012"
// Referenced by: jsr from $1fdb, $31ba

sub_1012:
        dec $153a
        bpl loc_1020
        lda $1539
        sta $153a
        jmp loc_13c5

loc_1020:
        inc $1549
        bit $153d
        bmi loc_1046
        bvc loc_1060
        lda #$00
        sta $1549
        ldx #$02

loc_1031:
        sta $150c,x
        sta $150f,x
        sta $1512,x
        sta $151b,x
        dex
        bpl loc_1031
        sta $153d
        jmp loc_1060

loc_1046:
        bvc loc_105d
        lda #$00
        sta $d404
        sta $d40b
        sta $d412
        lda #$0f
        sta $d418
        lda #$80
        sta $153d

loc_105d:
        jmp loc_13c5

loc_1060:
        ldx #$02
        dec $1536
        bpl loc_106d
        lda $153b
        sta $1536

loc_106d:
        lda $1508,x
        sta $150b
        tay
        lda $1536
        cmp $153b
        bne loc_1091
        lda $1725,x
        sta $fb
        lda $1728,x
        sta $fc
        dec $1512,x
        bmi loc_1094
        jmp loc_1198

dat_108e:
        .byte $4c,$af,$13                           // L..

loc_1091:
        jmp loc_11bf

loc_1094:
        ldy $150c,x
        lda ($fb),y
        cmp #$ff
        beq loc_10bd
        cmp #$fe
        bne loc_10b3
        inc $150c,x
        iny
        lda ($fb),y
        sta $1539
        sta $153a
        inc $150c,x
        jmp loc_1094

loc_10b3:
        cmp #$fd
        bne loc_10ce
        jsr sub_1003
        jmp loc_13c5

loc_10bd:
        lda #$00
        sta $1512,x
        sta $150c,x
        sta $150f,x
        jmp loc_1094

dat_10cb:
        .byte $4c,$af,$13                           // L..

loc_10ce:
        tay
        lda $1737,y
        sta $fd
        lda $1769,y
        sta $fe
        lda #$00
        sta $1544,x
        ldy $150f,x