← #161 Top 1024 #163 →
#162

Triad 02

Triad

776 lines of code

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

History

Group
Triad [3AD] — Sweden, CSDb group ID #132
Code
Kravin
Charset
Mikael
Music
Scortia (Thomas Bendt) — "Nebulas (v1)"
Music
Iron Cat (Alain Hertenstein) — "Heal the World"

This crack intro from Triad — the legendary Swedish group founded in July 1986 — is catalogued on CSDb as release #110355 under the title "TRIAD 'Kravin intro'." The code was written by Kravin, the charset by Mikael, and the music credits include Scortia (Thomas Bendt) with "Nebulas (v1)" and Iron Cat (Alain Hertenstein) with "Heal the World" — indicating the intro features multiple selectable tunes. A third SID — the "Triad Intro" tune by Kravin himself (Germund Ericsson) — is also listed on CSDb. Doc Snyder's page confirms the code by Kravin and music by Iron Cat for Crack Intro #02, mapping it to CSDb release #110355. No specific release date has been documented for this intro. This is one of eleven Triad intros catalogued on Doc Snyder's page, reflecting the group's prolific output across multiple decades of the C64 scene.

Sources: CSDb Release · Doc Snyder · intros.c64.org

triad-02.asm 776 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:35
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0801  End: $ffff  (63487 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $0816 (2070)
//
// Code: 754 bytes, Data: 62733 bytes
// Labels: 69, Subroutines: 4
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $0816-$0a45 ---
.pc = $0816 "main_0816"

main_0816:
        jsr $fda3
        jsr $e5a0
        sei
        lda #$02
        sta $d022
        ldx #$28

loc_0824:
        lda $0a5c,x
        sta $0697,x
        txa
        clc
        adc #$7f
        sta $0347,x
        adc #$58
        sta $036f,x
        dex
        bne loc_0824
        stx $c6
        stx $8c
        stx $d020
        ldy #$ff
        jsr sub_0a18
        lda #$80
        sta $8e
        jsr sub_0a37

loc_084c:
        lda $a8,x
        sta $03a8,x
        lda $0a85,x
        eor #$5a
        sta $a8,x
        inx
        cpx #$17
        bne loc_084c
        lda #$d4
        jsr sub_09f0

loc_0862:
        ldx #$16

loc_0864:
        jsr sub_0a40
        and #$07
        tay
        lda $0a7d,y
        sta $d8a8,x
        dex
        bpl loc_0864
        ldx #$3f

loc_0875:
        jsr sub_0a40
        and #$07
        tay
        lda $0a75,y
        ldy $d012

loc_0881:
        cpy $d012
        beq loc_0881
        sta $d023
        dex
        bpl loc_0875
        jsr $ff9f
        lda $8c
        ldy #$00
        ldx #$da

loc_0895:
        cpx $d012
        bne loc_0895
        sta $d016
        sty $d018
        ldx #$0d

loc_08a2:
        jsr sub_0a40
        lsr
        and #$07
        tay
        lda $0a6d,y
        ldy $d012

loc_08af:
        cpy $d012
        beq loc_08af
        sta $d021
        dex
        bpl loc_08a2
        inx
        stx $d021
        inc $8f
        lda #$07
        ldx #$eb
        ldy #$04

loc_08c6:
        cpx $d012
        bne loc_08c6
        sta $d016
        sty $d018
        dec $8c
        dec $8c
        bmi loc_08da
        jmp loc_0975

loc_08da:
        sta $8c
        ldx #$00
        stx $02

loc_08e0:
        lda $0349,x
        sta $0348,x
        lda $0371,x
        sta $0370,x
        inx
        cpx #$28
        bne loc_08e0
        lda #$02
        sta $fc
        lda $8e
        tax