← #587 Top 1024 #589 →
#588

Tankard 04

Tankard

3.749 lines of code

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

History

Released
25 August 2007
Graphics
Daniel Malone
Music
Jammer (Kamil Wolnikowski) — "Art of Sound (intro)"
Group
Tankard — Sweden, founded February 1990

A notably late production, this Tankard intro was released on 25 August 2007 — nearly two decades after the group's founding in February 1990. Daniel Malone provided the graphics while Jammer (Kamil Wolnikowski) composed "Art of Sound (intro)," preserved in the HVSC. The use of a Polish musician's work in a Swedish group's intro demonstrates the international character of the C64 scene even in its revival era. No coder is specifically credited on CSDb, though someone clearly programmed the intro. Tankard operated under the abbreviation TRD and was one of many Swedish groups active during the 1990s. The 2007 release date places this firmly in the retro-computing revival period, when dedicated sceners continued producing new C64 content long after the platform's commercial death. This is the only Tankard entry in the rankings.

Sources: CSDb · intros.c64.org

tankard-04.asm 3.749 lines
// ============================================
// output - Part 1 of 3
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:48
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $ffff  (63488 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $0810 (2064)
// IRQ handler:  $0dd4 (nmi_0dd4)
// IRQ handler:  $0d00 (irq_0d00)
//
// Code: 1833 bytes, Data: 61655 bytes
// Labels: 327, Subroutines: 8
//
// Verification: 2 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $0810-$0943 ---
.pc = $0810 "main_0810"

main_0810:
        sei
        lda #$34
        sta $01
        jsr sub_0c96
        ldx #$00

loc_081a:
        lda $5418,x
        sta scr_dc00,x
        lda $5518,x
        sta $dd00,x
        lda $5618,x
        sta $de00,x
        lda $5700,x
        sta $dee8,x
        dex
        bne loc_081a
        txa

loc_0836:
        sta $d000
        ldx $0838
        cpx #$d7
        bne loc_0847
        ldx $0837
        cpx #$40
        beq loc_0852

loc_0847:
        inc $0837
        bne loc_084f
        inc $0838

loc_084f:
        jmp loc_0836

loc_0852:
        ldx #$3e

loc_0854:
        lda $3480,x
        sta $d700,x
        dex
        bpl loc_0854
        lda #$35
        sta $01
        ldx #$00

loc_0863:
        lda $5800,x
        sta $d800,x
        lda $5900,x
        sta $d900,x
        lda $5a00,x
        sta $da00,x
        lda $5ae8,x
        sta $dae8,x
        dex
        bne loc_0863
        lda #$3b
        ldx #$18
        ldy #$78
        sta $d011
        stx $d016
        sty $d018
        lda #$00
        sta $dd00
        lda #$00
        sta $d021
        lda #$00
        sta $d020
        lda #$c0
        sta $d015
        sta $d01c
        lda #$00
        sta $d01d
        sta $d01b
        jsr sub_1000
        lda #$34
        sta $01
        ldx #$5c
        stx $dffe
        stx $dfff
        lda #$35
        sta $01
        lda #$64
        sta $d00c
        lda #$96
        sta $d00e
        lda #$c4
        sta $d00d
        sta $d00f
        lda #$0e
        sta $d025
        lda #$0b
        sta $d026
        lda #$0a
        sta $d027
        sta $d028
        jsr sub_0c64
        cli

loc_08e7:
        jsr sub_096e
        lda #$3b
        sta $d011
        jsr sub_09d8
        jsr sub_1003
        lda #$7f
        sta scr_dc00
        lda $dc01
        cmp #$ef
        bne loc_08e7
        sei
        lda #$07
        sta $dd00
        lda #$37
        sta $01
        ldx #$17
        lda #$00

loc_090f:
        sta $d400,x