← #917 Top 1024 #919 →
#918

Triad 30

Triad

505 lines of code

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

History

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

CSDb identifies this as "TRIAD Dutch intro 2," a 1992 production coded by Seal. The "Dutch" designation likely refers to the intro's connection to Triad's Netherlands-based members or contacts — Seal himself was a Dutch scener who also appears as a coder for Amnesia, demonstrating the fluid membership boundaries of the early-1990s scene. No musician or graphic artist is credited, and no SID files are associated with this release. Triad was Sweden's longest-running cracking group, founded on 28 July 1986 and remaining active for decades under the tagline "Dealer Quality Software." This intro joins #9 Triad-01 and #162 Triad-02 among the group's ranked entries. Doc Snyder's page documents Triad's extensive catalogue across multiple eras, from early 1980s releases through modern-day productions. The high intro number — 30 — reflects the group's prolific output across their multi-decade history.

Sources: CSDb · docsnyderspage

triad-30.asm 505 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: $0c8a  (1162 bytes)
// Entry point:  $0813 (via BASIC SYS 2067)
// IRQ handler:  $08fd (irq_08fd)
//
// Code: 587 bytes, Data: 575 bytes
// Labels: 61, Subroutines: 9
//
// Cross-references: all OK
// ============================================


// --- Region $0813-$098b ---
.pc = $0813 "main_0813"

main_0813:
        jsr sub_0a75
        sei
        lda #$33
        sta $01
        ldx #$00
        txa

loc_081e:
.label smc_0820 = * + 2
        sta $ff00,x                                 // !SMC: modified by $0a7a
        inx
        bne loc_081e
        inc smc_0820
        ldy smc_0820
        cpy #$ff
        bne loc_081e
        ldx #$08
        ldy #$d4
        stx $fa
        sty $fb
        ldy #$f8
        stx $fc
        sty $fd
        ldy #$fa
        sty $ff
        stx $fe
        ldx #$00

loc_0844:
        ldy #$00

loc_0846:
        lda ($fa),y
        jsr sub_09ff
        iny
        cpy #$04
        bne loc_0846

loc_0850:
        lda ($fa),y
        jsr sub_0a09
        iny
        cpy #$08
        bne loc_0850
        clc
        lda $fa
        adc #$08
        sta $fa
        lda $fb
        adc #$00
        sta $fb
        cmp #$d6
        bne loc_0844
        ldx #$00

loc_086d:
        lda $0a67,x
        sta $fc00,x
        inx
        cpx #$20
        bne loc_086d
        lda #$80
        ldx #$0b
        ldy #$f5
        jsr sub_0a13
        ldx #$16

loc_0883:
        lda txt_0a87,x
        sta $0458,x
        lda #$07
        sta $d858,x
        dex
        bpl loc_0883
        jsr sub_09e6
        sei
        inc $d01a
        dec $dc0e
        lda #$fd
        sta $0314
        lda #$08
        sta $0315
        cli
        ldx #$00
        stx $d012
        lda #$1b
        sta $d011
        lda #$06
        sta $d022

loc_08b5:
        sta $db70,x
        pha
        lda #$20
        sta $f770,x
        pla
        inx
        cpx #$50
        bne loc_08b5
        lda #$0e
        sta $d023

loc_08c9:
        jmp loc_08c9

loc_08cc:
        lda #$37
        sta $01
        jsr $ff81
        jsr $ff84
        jsr $ff8a
        ldx #$00
        txa

loc_08dc:
        sta $d800,x
        sta $d900,x
        sta $da00,x
        sta $db00,x
        inx
        bne loc_08dc
        stx $d020
        stx $d021
        lda #$64
        ldx #$01
        ldy #$05
        jsr sub_0a13
        jmp loc_0a7f