← #172 Top 1024 #174 →
#173

Triad 08

Triad

2.318 lines of code

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

History

Released
29 November 2013
Group
Triad [3AD] — Sweden, CSDb group ID #132
Code
Tao
Music
dalezy (Ronny Engmann) — "disco intro"

This crack intro from Triad — the legendary Swedish group founded in July 1986 — was released on 29 November 2013 and holds a CSDb rating of 8.35, catalogued as release #125034 under the title "TRIAD 'Disco intro'." The code was written by Tao, and the music by dalezy (Ronny Engmann), using his purpose-composed SID tune "disco intro" from the HVSC. Doc Snyder's page confirms these credits for Crack Intro #08 and maps it to CSDb release #125034. The scrolltext describes a release of "Helicopter Attack / Hubschrauber Angriff" preview — dug up by dalezy, onefiled and trained by Lynx, and translated from German by Taper, with a combined NTSC fix effort. The text acknowledges the source disks were in poor condition with significant bit-rot. Greetings go to G*P, Nostalgia, Armageddon, Laxity, Onslaught, Atlantis+F4CG, Excess, and Mayday. The high CSDb rating reflects the quality of this modern-era intro from a group with over three decades of continuous activity.

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

triad-08.asm 2.318 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:56
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $ffff  (63488 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $1680 (5760)
// IRQ handler:  $1820 (irq_1820)
// IRQ handler:  $1859 (nmi_1859)
//
// Code: 3053 bytes, Data: 60435 bytes
// Labels: 246, Subroutines: 14
//
// Verification: 2 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $0f03-$0f03 ---
.pc = $0f03 "sub_0f03"
// Referenced by: jsr from $20c4

sub_0f03:
        brk

// --- Region $0f14-$0f14 ---
.pc = $0f14 "sub_0f14"
// Referenced by: jsr from $20c1

sub_0f14:
        brk

// --- Region $10fd-$10fd ---
.pc = $10fd "Segment $10fd"
        brk

// --- Region $120f-$120f ---
.pc = $120f "sub_120f"
// Referenced by: jsr from $20ca

sub_120f:
        brk

// --- Region $1309-$1309 ---
.pc = $1309 "Segment $1309"
        brk

// --- Region $1513-$1513 ---
.pc = $1513 "sub_1513"
// Referenced by: jsr from $20d3

sub_1513:
        brk

// --- Region $1680-$1809 ---
.pc = $1680 "main_1680"

main_1680:
        lda #$0b
        sta $d022
        lda #$05
        sta $d023
        lda #$13
        sta $d018
        jsr sub_16ce
        sei
        lda #$35
        sta $01
        lda #$20
        sta $21
        lda #$00
        sta $20
        jsr $f30d
        lda #$7f
        sta $dc0d
        lda #$01
        sta $d01a
        lda #$1b
        sta $d011
        lda #$cd
        sta $d012
        lda #$20
        sta $fffe
        lda #$18
        sta $ffff
        lda #$59
        sta $fffa
        lda #$18
        sta $fffb
        cli

loc_16cb:
        jmp loc_16cb
// Referenced by: jsr from $168f

sub_16ce:
        lda #$0b
        sta $0286
        sta $d021
        jsr $e544
        lda #$00
        sta $d020
        sta $d021
        lda #$ff
        sta $d015
        clc
        ldx #$00
        lda #$60

loc_16eb:
        sta $d000,x
        adc #$18
        inx
        inx
        cpx #$10
        bne loc_16eb
        lda #$80
        sta $d010
        ldx #$00
        ldy #$00

loc_16ff:
        lda #$bb
        sta $d001,x
        lda #$00
        sta $d027,y
        inx
        inx
        iny
        cpy #$08
        bne loc_16ff
        lda #$38
        ldx #$00
        clc

loc_1715:
        sta $07f8,x
        adc #$01
        inx
        cpx #$08
        bne loc_1715
        lda #$0c
        sta $03
        lda #$00
        sta $02