← #397 Top 1024 #399 →
#398

Empire 10

Empire

2.718 lines of code

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

History

Released
5 September 1993
Music
Vizz (Francois Vezina) — "Empire Intro 10" (original)
Graphics
Zapper
Group
Empire — Canada, founded February 1989

Empire's tenth intro, released on 5 September 1993, features an original SID composition by Vizz (Francois Vezina) titled simply "Empire Intro 10" — preserved in the HVSC along with a second Vizz tune. Zapper contributed the graphics. The coder is not identified on CSDb. Vizz was a Canadian musician whose name appears in the Empire member roster listed in Doc Snyder's scrolltexts, confirming his long-standing membership. Empire was a Canadian group founded in February 1989, and by September 1993 they were among the last North American groups still producing C64 crack intros. Other ranked Empire entries include #76 Empire-01 and #68 Empire-04. A comment on intros.c64.org from "B00ze/Empire#1" — referring to founding member Booze — confirms the group's continued identification with their output decades later. The ten-intro count demonstrates sustained productivity across nearly five years of activity.

Sources: CSDb · docsnyderspage

empire-10.asm 2.718 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:19
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $07ee  End: $3fff  (14354 bytes)
// Crunched with Beta Dynamic v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $0c00 (3072)
// IRQ handler:  $0df2 (irq_0df2)
// IRQ handler:  $0efd (irq_0efd)
// IRQ handler:  $0f5e (irq_0f5e)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 2216 bytes, Data: 12138 bytes
// Labels: 268, Subroutines: 16
//
// Cross-references: all OK
// ============================================


// --- Region $0c00-$0fee ---
.pc = $0c00 "main_0c00"

main_0c00:
        lda #$00
        sta $d020
        sta $d021
        sta $d011
        lda #$08
        sta $0286
        jsr $e544
        ldx #$00

loc_0c15:
        lda #$00
        sta $0400,x
        sta scr_0800,x
        sta $0500,x
        sta $0900,x
        sta $0600,x
        sta $0a00,x
        sta $06e8,x
        sta $0ae8,x
        inx
        bne loc_0c15
        lda #$00
        tax
        tay
        jsr sub_1000
        sei
        lda #$7f
        sta $dc0d
        lda #$81
        sta $d019
        sta $d01a
        lda #$10
        sta $d012
        lda #$1b
        sta $d011
        lda #$f2
        ldx #$0d
        sta $0314
        stx $0315
        cli

loc_0c5c:
        lda #$00
        beq loc_0c5c
        jsr sub_2db0
        jsr sub_2dd7
        jsr sub_2dfe
        jsr sub_2e25
        jsr sub_1003
.label smc_0c70 = * + 1
        ldx #$1e                                    // !SMC: modified by $0e58
        ldy #$00

loc_0c73:
        lda txt_2eab,x
        sta $0ca3,y
        sta $0d49,y
        lda $2ee5,x
        sta $0ca4,y
        sta $0d4a,y
        tya
        clc
        adc #$06
        tay
        inx
        cpy #$96
        bne loc_0c73
        lda smc_0e0f
        and #$30
        cmp #$20
        bne loc_0c9b
        jmp loc_0d44

loc_0c9b:
        jmp loc_0c9e

loc_0c9e:
        ldx #$00
.label smc_0ca1 = * + 1
        ldy #$04                                    // !SMC: modified by $0e70

loc_0ca2:
        lda $3019,x
        sta $0400,y
        lda $302f,x
        sta $0428,y
        lda $3045,x
        sta $0450,y
        lda $305b,x
        sta $0478,y
        lda $3071,x
        sta $04a0,y
        lda $309d,x
        sta $04c8,y
        lda $30c9,x
        sta $04f0,y
        lda $30f5,x
        sta $0518,y
        lda $3121,x
        sta $0540,y
        lda $314d,x
        sta $0568,y
        lda $3179,x
        sta $0590,y
        lda $31a5,x
        sta $05b8,y
        lda $31d1,x
        sta $05e0,y
        lda $31fd,x
        sta $0608,y
        lda $3229,x
        sta $0630,y
        lda $2f27,x
        sta $0658,y
        lda $2f27,x
        sta $0680,y
        lda $2f27,x
        sta $06a8,y
        lda $2f27,x
        sta $06d0,y
        lda $2f27,x
        sta $06f8,y
        lda $2f27,x