← #406 Top 1024 #408 →
#407

Zenith 08

Zenith

2.475 lines of code

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

History

Released
May 1989
Music
Markus Schneider — "Elite Intro" (original)
Group
Zenith — United Kingdom, founded December 1987

CSDb catalogues this simply as "Zenith Intro," released in May 1989 — by this point the UK group had been active for nearly eighteen months. Markus Schneider composed "Elite Intro," an original SID preserved in the HVSC. Schneider — also known as Diflex — appears across multiple Zenith productions, including the group's highest-ranked #53 Zenith-01 where he contributed to a four-composer jukebox, and #89 Zenith-02. No coder is credited on CSDb, though Doc Snyder's page documents Ironfist as the group's primary programmer across other releases. Zenith was founded in December 1987 and distinguished itself by attracting continental European musicians despite being a British operation. The tune title "Elite Intro" may reference the iconic space trading game, or simply denote a composition intended for elite-level productions — a common boast in scene nomenclature.

Sources: CSDb · Doc Snyder

zenith-08.asm 2.475 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:37:06
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $2e00  (9729 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $2a00 (10752)
//
// Code: 2713 bytes, Data: 7016 bytes
// Labels: 218, Subroutines: 9
//
// Cross-references: all OK
// ============================================


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

loc_10d8:
        lda $1006
        cmp #$01
        beq loc_1153
        cmp #$02
        bne loc_111f
        jmp loc_1148

loc_10e6:
        tax
        lda $2f
        lsr
        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
        asl
        asl
        asl
        tay
        sty $1049
        lda $18b3,y
        and #$f0
        sta $103b
        lda $18b6,y
        and #$0f
        sta $1057
        cmp #$04
        bcs loc_11b8
        lda $18b4,y
        bne loc_11bb

loc_11b8:
        jmp loc_1249