← #905 Top 1024 #907 →
#906

Triumwyrat 01

Triumwyrat

1.025 lines of code

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

History

Released
1990
Group
Triumwyrat [3] — Hungary, CSDb group ID #520
Code
Atis
Music
Sphere (Michael Kugel) — "Sidchips Go Berzerk"

This crack intro from Triumwyrat — a Hungarian group founded in August 1988 — dates to 1990 and is catalogued on CSDb as release #198503 under the title "Triumwyrat Intro." The code was written by Atis, and the music is by Sphere (Michael Kugel), using the SID tune "Sidchips Go Berzerk" from the HVSC. Doc Snyder's page confirms these credits for Crack Intro #01 and maps it to CSDb release #198503. Triumwyrat was one of the notable Hungarian groups active in the C64 scene during the late 1980s and early 1990s, operating under the abbreviation [3]. Doc Snyder's page documents three Triumwyrat intros in total, with the other entries featuring work by Pubi, Sylvio, and BSS, and music from Griff (Peter Varga) and JCH (Jens-Christian Huus). The group maintained connections across European borders, with scrolltexts greeting a wide array of international groups including Dominators, Fairlight, F4CG, Success, and many others.

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

triumwyrat-01.asm 1.025 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:54
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $07ee  End: $1dfe  (5649 bytes)
// Crunched with Beta Dynamic v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $1700 (5888)
// IRQ handler:  $ea31 (irq_ea31)
// IRQ handler:  $1778 (irq_1778)
//
// Code: 312 bytes, Data: 5337 bytes
// Labels: 74, Subroutines: 1
//
// Cross-references: all OK
// ============================================


// --- Region $0f40-$0f90 ---
.pc = $0f40 "loc_0f40"

loc_0f40:
        sei
        lda #$31
        sta $0314
        lda #$ea
        sta $0315
        lda #$00
        sta $d01a
        jsr $ff84
        jsr $ff81
        jsr $ff8a
        lda #$00
        sta $d020
        sta $d021
        ldx #$00

loc_0f63:
        sta $d800,x
        sta $d900,x
        sta $da00,x
        sta $db00,x
        inx
        bne loc_0f63
        lda #$01
        ldx #$00

loc_0f76:
        sta $d800,x
        inx
        cpx #$28
        bne loc_0f76
        ldx #$70

loc_0f80:
        lda txt_0f9d,x
        sta $0400,x
        dex
        bpl loc_0f80
        lda #$34
        sta $01
        jmp $0433

scr_0f90:
        // === Screen RAM (1 bytes, $0f90-$0f90) ===
        .encoding "screencode_mixed"
        .text "@"
        .encoding "petscii_upper"

// --- Region $1700-$17ba ---
.pc = $1700 "main_1700"

main_1700:
        lda #$00
        sta $b0
        sta $b2
        lda #$08
        sta $b1
        lda #$f0
        sta $b3
        ldy #$00

loc_1710:
        lda ($b0),y
        sta ($b2),y
        iny
        bne loc_1710
        inc $b1
        inc $b3
        lda $b1
        cmp #$12
        bne loc_1710
        ldx #$00

loc_1723:
        lda txt_1200,x
        sta $e000,x
        lda $1300,x
        sta $e100,x
        lda txt_1200,x
        sta $e230,x
        lda $12d0,x
        sta $e300,x
        inx
        bne loc_1723
        lda #$0f
        sta $d020
        sta $d021
        lda #$00
        sta $dd00
        nop
        lda #$08
        sta $0286
        jsr $e544
        jsr sub_1806
        sei
        lda #$01
        sta $d01a
        sta $dc0d
        lda #$78
        sta $0314
        lda #$17
        sta $0315
        cli

loc_176b:
        lda $dc01
        and $dc00
        and #$10
        bne loc_176b
        jmp loc_0f40

irq_1778:
        asl $d019
        lda #$1b
        sta $d011
        lda #$31
        sta $d012
        lda #$8c
        sta $d018
        lda #$0c
        sta $d022
        lda #$0b
        sta $d023
        lda #$d8
        sta $d016
        lda #$a6