#328

Spirit 01

Spirit

5.052 lines of code

RasterbarsRSTRMusicSIDScrollerSCRLSpritesSPRT

History

Released
1989
Code
RCC
Music
Jens Blidon, Markus Schneider, MC Lord (Karl Sommer), Scortia (Thomas Bendt & Thomas Mogensen), Metal (Torben Hansen)
Graphics
TTS, Hawk, STMO, CBA
Group
Spirit — Germany, founded 1989

An unusually ambitious production — five musicians and four graphic artists credited on a single crack intro. RCC coded while the music roster reads like a who's who of the German SID scene: Jens Blidon and Markus Schneider collaborating on "Birthday," MC Lord (Karl Sommer) contributing "Living Chips," Scortia providing "CoverGirl Strip Poker," and Metal (Torben Hansen) offering "Sidekick" — all four SIDs preserved in the HVSC. The graphics were handled by TTS, Hawk, STMO, and CBA. Spirit was a German group founded in 1989, and this multi-contributor approach suggests either a jukebox intro with selectable tunes or a group showcase designed to demonstrate their roster's depth. Released in 1989, the ten credited contributors make this one of the largest teams documented on any ranked intro. The intros.c64.org page includes a 2004 comment from Bulldog, identified as "ex-Spirit," confirming the group's alumni retained connections to their work.

Sources: CSDb · intros.c64.org

spirit-01.asm 5.052 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:46
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $ffff  (63488 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $1e40 (7744)
// IRQ handler:  $2f60 (irq_2f60)
// IRQ handler:  $ea31 (loc_ea31)
// IRQ handler:  $1c1a (irq_1c1a)
//
// Code: 5026 bytes, Data: 58462 bytes
// Labels: 480, Subroutines: 9
//
// Cross-references: all OK
// ============================================


// --- Region $090c-$0914 ---
.pc = $090c "Program $090c"
        .byte $07,$15                               // slo $15 // ILLEGAL
        ora $15,x
        .byte $14,$14                               // nop $14,x // ILLEGAL
        .byte $14,$13                               // nop $13,x // ILLEGAL

dat_0914:
        .byte $13                                   // .

// --- Region $0af1-$0af1 ---
.pc = $0af1 "loc_0af1"

loc_0af1:
        brk

// --- Region $10d8-$1723 ---
.pc = $10d8 "loc_10d8"

loc_10d8:
        lda $1006
        cmp #$01
        beq loc_1153
        cmp #$02
        bne loc_111f
        jmp loc_1148
// Referenced by: jsr from $1f09, $f225

sub_10e6:
        tax
        lda $1b45,x
        sta $1046
        txa
        sta $107c
        ldx #$00
        asl
        asl
        clc
        adc $107c
        adc $107c
        tay

loc_10fd:
        lda $1855,y
        sta $184f,x
        iny
        inx
        cpx #$06
        bne loc_10fd
        ldy #$00
        lda $107c
        asl
        adc $107c
        tax

loc_1113:
        lda $1007,y
        sta $1007,y
        inx
        iny
        cpy #$03
        bne loc_1113

loc_111f:
        ldx #$02
        lda #$00

loc_1123:
        sta $1030,x
        sta $102a,x
        sta $1027,x
        sta $101e,x
        sta $1080,x
        sta $1021,x
        sta $1083,x
        sta $1024,x
        dex
        bpl loc_1123
        lda #$1f
        sta $1154
        lda #$01
        sta $1006

loc_1148:
        ldx #$18
        lda #$00

loc_114c:
        sta $d400,x
        dex
        bpl loc_114c
        rts

loc_1153:
        lda #$1f
        sta $d418
        ldx #$02
        stx $100c
        dec $1042
        bpl loc_1168
        lda $1046
        sta $1042

loc_1168:
        lda $101a,x
        sta $101d
        lda $1042
        cmp $1046
        bne loc_1195
        txa
        asl
        tay
        lda $184f,y
        sta $14
        lda $1850,y
        sta $15
        dec $1024,x
        bpl loc_118b
        jmp loc_154f

loc_118b:
        lda $1064,x
        beq loc_1195
        lda #$fe
        sta $1033,x

loc_1195:
        lda $1030,x