← #860 Top 1024 #862 →
#861

Triad 24

Triad

1.557 lines of code

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

History

Released
April 1988
Code
Mr. Pinge
Charset
801 DC
Music
Mike (Michael Hendriks) — "Sphinx (2)"
Group
Triad — Sweden, founded 28 July 1986

This April 1988 crack intro from Triad is catalogued on CSDb as the "Import intro," coded by Mr. Pinge with a charset by 801 DC and music by Mike — real name Michael Hendriks — whose SID tune "Sphinx (2)" is archived in the HVSC under the FAME directory. Hendriks was a member of the Dutch group FAME and contributed SID tunes to several Scandinavian and European groups during this period. Triad, founded on 28 July 1986 in Sweden, was among the earliest Scandinavian cracking groups and remains one of the most documented. The group's extensive output spans from #9 Triad Intro #1 through numerous later productions including #851 Triad Intro #29. The intro was submitted to intros.c64.org with a comment from Twoflower in November 2008. Doc Snyder's page lists over a dozen Triad intros with full credits spanning multiple coders and musicians.

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

triad-24.asm 1.557 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: $0800  End: $4800  (16385 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $1900 (6400)
// IRQ handler:  $196a (irq_196a)
// IRQ handler:  $19a3 (irq_19a3)
// IRQ handler:  $19d8 (irq_19d8)
//
// Code: 1235 bytes, Data: 15150 bytes
// Labels: 164, Subroutines: 10
//
// Cross-references: all OK
// ============================================


// --- Region $11a6-$1448 ---
.pc = $11a6 "sub_11a6"
// Referenced by: jsr from $1274, $131f, $132c, $1338

sub_11a6:
        tya
        sta $101c,x
// Referenced by: jsr from $12ab

sub_11aa:
        lda $106e,y
        sta $d401,x
        sta $1033,x
        lda $10ce,y
        sta $d400,x
        sta $1032,x
        rts

// Referenced by: jsr from $13c6
sub_11bd: {
        lda #$01
        sta $1047,x
        lda $101e,x
        sta $fb
        lda $101f,x
        sta $fc
        lda $101d,x
        asl
        tay
        iny
        lda ($fb),y
        cmp #$00
        bne skip1
        lda #$00
        sta $101d,x
        ldy #$01
        lda ($fb),y
        clv
        bvc skip2
skip1:
        cmp #$01
        bne skip2
        lda #$00
        sta dat_1000
        rts
skip2:
        pha
        dey
        lda ($fb),y
        sta $fb
        pla
        sta $fc
        lda $102f,x
        tay
        clc
        adc #$02
        sta $102f,x
        lda ($fb),y
        cmp #$00
        bne skip3
        lda #$00
        sta $102f,x
        inc $101d,x
        jmp $11c2
skip3:
        sta $101c,x
        iny
        lda ($fb),y
        pha
        and #$1f
        sta $1004,x
        pla
        and #$e0
        lsr
        lsr
        tay
        lda $1059,x
        sta $fb
        lda $105a
        sta $fc
        lda #$00
        sta $d404,x
        sta $d402,x
        sta $1034,x
        lda ($fb),y
        iny
        sta $d403,x
        sta $1035,x
        and #$f0
        sta $1003,x
        lda ($fb),y
        iny
        sta $1005,x
        lda ($fb),y
        iny
        sta $d405,x
        lda ($fb),y
        iny
        sta $d406,x
        lda ($fb),y
        iny
        sta $101a,x
        lda ($fb),y
        iny
        sta $1007,x
        lda ($fb),y
        iny
        sta $1046,x
        lda ($fb),y
        iny
        sta $1008,x
        ldy $101c,x
        jsr sub_11a6
        lda $1033,x
        sta $1049,x
        lda $1032,x
        sta $1048,x
        lda $1005,x
        sta $d404,x
        cmp #$81
        beq done
        lda #$00
        sta $c819
done:
        lda #$00
        sta $1009,x
        rts
}