← #330 Top 1024 #332 →
#331

Triad 19

Triad

525 lines of code

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

History

Released
October 1990
Code
Sony
Music
Zeb (Sebastian Bjornerud) — "Psykolog (end)"; Jason Brooke — "Inspector Gadget"; Demon (Neil Baldwin) — "Snowflakes in Summer"
Group
Triad — Sweden, founded 28 July 1986

CSDb catalogues this as the "Sony intro" — named after its coder, Sony. Three SID tunes are featured: Zeb's "Psykolog (end)," Jason Brooke's "Inspector Gadget," and Neil Baldwin's "Snowflakes in Summer," all preserved in the HVSC. The three-composer lineup draws from both Scandinavian and British talent pools, reflecting the international connections that Swedish groups cultivated. Released in October 1990, this came four years into Triad's existence — the group having been founded on 28 July 1986. By this point Triad was firmly established as one of Sweden's premier cracking operations. Doc Snyder's page documents the group's extensive catalogue under the abbreviation 3AD, with coders including Tao, Nith, Quorthon, and others spanning decades of production. Another Triad intro appears at #12 Triad-01. Triad remains active to this day, making them one of the longest-running groups in scene history.

Sources: CSDb · Doc Snyder

triad-19.asm 525 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:53
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $0f6c  (1901 bytes)
// Note: PRG was crunched, depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $0815 (2069)
//
// Code: 397 bytes, Data: 1504 bytes
// Labels: 72, Subroutines: 1
//
// Verification: 6 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $0815-$0819 ---
.pc = $0815 "main_0815"

main_0815:
        jmp loc_0d02

dat_0818:
        .byte $0e,$1e                               // ..

// --- Region $0842-$0847 ---
.pc = $0842 "loc_0842"

loc_0842:
        ror $66
        inc $c6c6,x
        brk

// --- Region $085d-$0862 ---
.pc = $085d "loc_085d"

loc_085d:
        dec.abs $00c6
        bvs loc_0842
        rts

// --- Region $08a2-$08a7 ---
.pc = $08a2 "loc_08a2"

loc_08a2:
        bmi loc_08d4
        bmi loc_08d6
        sec
        rts

// --- Region $08d4-$08e7 ---
.pc = $08d4 "loc_08d4"

loc_08d4:
        .byte $32                                   // jam // ILLEGAL

dat_08d5:
        .byte $66                                   // f

loc_08d6:
        inc $3c00,x
        bmi loc_090b
        bmi loc_090d
        bmi loc_091b
        brk

loc_08e0:
        ldx #$19
        stx $0404
        jmp $02c0

// --- Region $08f0-$0900 ---
.pc = $08f0 "loc_08f0"

loc_08f0:
        ldx #$40

loc_08f2:
        lda $0c01,x
        sta $0300,x
        inx
        cpx #$de
        bne loc_08f2
        jmp loc_0a39

dat_0900:
        .byte $00                                   // .

// --- Region $090b-$0932 ---
.pc = $090b "loc_090b"

loc_090b:
        sec
.label loc_090d = * + 1
        bvs loc_090e

loc_090e:
        sec
        bvs loc_0977
        ror $66
        brk

dat_0914:
        .byte $00,$00,$00,$00,$ff,$e9,$e9           // .......

loc_091b:
        sbc #$e9
        sbc #$e9
.label loc_0920 = * + 1
        eor $ad,x
        ora ($dc,x)
        and #$10
        beq loc_092a
        jmp loc_0a47

loc_092a:
        sei
        jsr $fd15
        jmp loc_0ce0

dat_0931:
        .byte $66,$3c                               // f<

// --- Region $0960-$0968 ---
.pc = $0960 "loc_0960"

loc_0960:
        stx $0aa1
        lda #$63
        jmp loc_0978

dat_0968:
        .byte $00                                   // .

// --- Region $0977-$097e ---
.pc = $0977 "loc_0977"

loc_0977:
        brk

loc_0978:
        sta $0a84
        jmp loc_0a6d

dat_097e: