← #850 Top 1024 #852 →
#851

Triad 29

Triad

470 lines of code

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

History

Released
1992
Code
Seal
Group
Triad — Sweden, founded 28 July 1986

This 1992 crack intro from Triad is catalogued on CSDb as the "Dutch intro 1," coded by Seal. It is one of the group's many productions that lack SID music — a characteristic sometimes seen in Triad's utility or regional intros where brevity was prioritized over presentation. Triad, founded on 28 July 1986 in Sweden with the abbreviation "3AD," is one of the longest-running cracking groups in C64 history. The group's prolific output is well represented in this collection, with entries ranging from the early #9 Triad Intro #1 through later productions such as #861 Triad Intro #24. Doc Snyder's page documents an extensive roster of Triad coders and musicians spanning decades of activity. The intro was submitted to intros.c64.org with a comment from Twoflower in November 2008.

Sources: CSDb · intros.c64.org · Doc Snyder's Page

triad-29.asm 470 lines
// ============================================
// output - Disassembled Source
// ============================================
// 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: $0801  End: $0baf  (943 bytes)
// Entry point:  $0813 (via BASIC SYS 2067)
// IRQ handler:  $08f4 (irq_08f4)
//
// Code: 644 bytes, Data: 299 bytes
// Labels: 50, Subroutines: 6
//
// Cross-references: all OK
// ============================================


// --- Region $0813-$097e ---
.pc = $0813 "main_0813"

main_0813:
        jsr $e544
        dex
        stx $d017
        stx $03
        stx $04
        stx $05

loc_0820:
        lda #$00
        sta $0340,x
        sta $0440,x
        sta $0700,x
        lda #$02
        sta $d7f0,x
        lda #$01
        sta $d8f0,x
        sta $d9f8,x
        lda #$06
        sta $db00,x
        inx
        bne loc_0820

loc_0840:
        lda dat_0a77,x
        sta $0660,x
        inx
        cpx #$20
        bne loc_0840

loc_084b:
        lda $0a8e,x
        sta $06e0,x
        inx
        cpx #$25
        bne loc_084b
        ldx #$08
        ldy #$14

loc_085a:
        tya
        sta $07f7,x
        lda dat_0a77,x
        sta $0658,x
        lda #$01
        sta $d9f0,x
        dey
        dex
        bpl loc_085a
        ldx #$00

loc_086f:
        lda txt_0a97,x
        sta $04a8,x
        lda #$07
        sta $d8a8,x
        inx
        cpx #$17
        bne loc_086f
        lda #$cb
        ldx #$0b
        jsr sub_0a4d
        lda #$7f
        sta $d015
        sta $d01d
        ldx #$00
        lda #$18
        ldy #$d8

loc_0894:
        sta $d000,x
        pha
        tya
        sta $d001,x
        pla
        sec
        adc #$2f
        inx
        inx
        cpx #$10
        bne loc_0894
        lda #$60
        sta $d010
        lda #$06
        sta $d022
        lda #$0e
        sta $d023
        jsr sub_0a16
        sei
        inc $d01a
        dec $dc0e
        lda #$08
        sta $0315
        lda #$f4
        sta $0314
        cli
        lda #$00
        sta $d012
        lda #$1b
        sta $d011

loc_08d4:
        lda $dc01
        cmp #$ef
        bne loc_08d4
        jsr $ff81
        jsr $ff84
        jsr $ff8a
        stx $d020
        stx $d021
        lda #$64
        ldx #$0f
        jsr sub_0a4d
        jmp loc_0b7b

irq_08f4:
        lda #$02
        jsr sub_0a21
        jsr sub_0987
        jsr sub_0ab3
        lda #$52
        jsr sub_0a28
        ldx #$07

loc_0906:
        dex
        bne loc_0906
        lda #$c7
        sta $d016