← #939 Top 1024 #941 →
#940

Tristar+Red Sector Inc+Dytec [TRD] 04

Tristar+Red Sector Inc+Dytec [TRD]

4.975 lines of code

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

History

Released
1994
Code
Proton
Graphics
Joop
Music
EVS (Edwin van Santen) — "Hardcore Power"
Charset
Little Big Man
Group
Tristar+Red Sector Inc+Dytec — Germany, founded 1990

CSDb catalogues this as the "TRD Intro," a 1994 production released under the Tristar+Red Sector Inc+Dytec (TRD) alliance. Proton coded the intro, Joop handled the design, Little Big Man provided the charset, and EVS (Edwin van Santen) contributed "Hardcore Power" as the soundtrack, preserved in the HVSC. Van Santen was a Dutch musician active under the 20CC group umbrella whose SID work appears across multiple groups' intros. The TRD merger brought together three established crews: Tristar and Red Sector Inc — both legendary Amiga and C64 groups — with Dytec, a German group founded in 1990. Such multi-group alliances were common in the early-to-mid 1990s as the scene consolidated. CSDb lists this release under the Dytec group ID, suggesting Dytec members primarily produced this particular intro within the larger alliance.

Sources: CSDb

trd-04.asm 4.975 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:52
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0700  End: $503f  (18752 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $4000 (16384)
// IRQ handler:  $406f (irq_406f)
// IRQ handler:  $4223 (irq_4223)
// IRQ handler:  $42ce (irq_42ce)
// IRQ handler:  $41fe (irq_41fe)
//
// Code: 4340 bytes, Data: 14412 bytes
// Labels: 500, Subroutines: 39
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$1006 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $400b

sub_1000:
        jmp loc_1110
// Referenced by: jsr from $4087, $4209, $423f, $4378

sub_1003:
        jmp loc_1189

dat_1006:
        .byte $4c                                   // L

// --- Region $1110-$1827 ---
.pc = $1110 "loc_1110"

loc_1110:
        asl
        asl
        asl
        tay
        lda $02a6
        cmp #$01
        beq loc_1128
        lda #$02
        sta $109a
        lda #$00
        sta $109b
        jmp loc_1134

loc_1128:
        lda $1b5f,y
        sta $109a
        lda $1b60,y
        sta $109b

loc_1134:
        lda #$0f
        sta $10a0
        ldx #$00

loc_113b:
        iny
        iny
        lda $1b5f,y
        sta $10c2,x
        lda $1b60,y
        sta $10c5,x
        lda #$01
        sta $10a1,x
        sta $1099
        lda #$00
        sta $10bf,x
        sta $10bc,x
        sta $10c8,x
        sta $10ad,x
        sta $10b9,x
        sta $110c,x
        inx
        cpx #$03
        bne loc_113b
        sta $110f
        sta $109f
        sta $1098
        sta $1097

loc_1176:
        sta $d404
        sta $d40b
        sta $d412
        sta $109c
// Referenced by: jsr from $1247

sub_1182:
        sta $109d
        sta $109e
        rts

loc_1189:
        lda $1097
        bne loc_1176
        cld
        ldx #$02
        lda $109d
        beq loc_11a6
        ldy $10a0
        beq loc_11a6
        dec $109e
        bne loc_11a6
        sta $109e
        dec $10a0

loc_11a6:
        dec $1099
        bpl loc_11b3
        lda $109b
        sta $1099
        bne loc_11c7

loc_11b3:
        dec $1098
        bpl loc_11c7
        lda $109a
        sta $1098
        dec $10a1
        dec $10a2
        dec $10a3

loc_11c7:
        stx $1095
        lda $10a1,x
        beq loc_11d2
        jmp loc_13cb

loc_11d2:
        sta $10e6,x
        sta $10a7,x
        sta $10da,x
        sta $10f5,x
        lda $10cb,x
        ldy dat_1828,x
        and #$fe
        sta $d404,y
        lda $10c2,x
        sta $fe
        lda $10c5,x