← #277 Top 1024 #279 →
#278

Empire 06

Empire

4.815 lines of code

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

History

Code
The Last Dragon
Graphics
Chaos
Music
Sequencer (Neil Voss)
Released
3 August 1991
Group
Empire -- CSDb group ID #275, Canada, founded February 1989

Empire Crack Intro #06 is an August 1991 release from the Canadian cracking group Empire, preserved on CSDb as entry #53677. The intro was coded by The Last Dragon, with graphics by Chaos and music by Sequencer -- the handle of Neil Voss, whose original SID composition "Island Lore" is preserved in the High Voltage SID Collection. Doc Snyder confirms these credits and preserves the scrolltext, which announces a crack of "The Crypt, the sequel of Castlemaster" from Domark, cracked by the Dominators and imported by Empire. Callers are directed to Channel Zer0 at 718-356-1879 and a VMB at 702-594-7983. Greetings go to Dominators, Action, Enigma, Victims, Fairlight, Odissey, TRC+TBI, Pandora, ICS, The Force, Verdict, F4CG, Legend, Hotline, The Boys, Discovery, Ikari, Havok, TSM, and Plague. Sequencer's presence as an in-house musician gave Empire an advantage -- many North American groups relied on ripped European SID tunes rather than original compositions.

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

empire-06.asm 4.815 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:18
// 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:  $08b4 (2228)
// IRQ handler:  $30a0 (irq_30a0)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 3896 bytes, Data: 59592 bytes
// Labels: 521, Subroutines: 19
//
// Cross-references: all OK
// ============================================


// --- Region $0820-$085c ---
.pc = $0820 "sub_0820"
// Referenced by: jsr from $30e4, $31fc, $f234, $f346

sub_0820:
        dec dat_085d
        bne loc_085c
        lda #$02
        sta dat_085d
.label smc_082b = * + 1
        ldx #$03                                    // !SMC: modified by $0859, $31f2
        lda $0860,x
        sta $337e
        sta smc_31e3                                // SMC: modifies $31e3
        lda $0868,x
        sta smc_31df                                // SMC: modifies $31df
        lda $0870,x
        sta smc_3114                                // SMC: modifies $3114
        lda $0878,x
        sta smc_3119                                // SMC: modifies $3119
        lda $0880,x
        sta smc_311e                                // SMC: modifies $311e
        lda #$07
        sta $337f
        inx
        cpx #$04
        bne $0859
        ldx #$00
        stx smc_082b                                // SMC: modifies $082b

loc_085c:
        rts

// --- Region $08a0-$08fb ---
.pc = $08a0 "sub_08a0"

// Referenced by: jsr from $08c8, $0a0b, $3208, $f352
sub_08a0: {
        ldx $01
        lda #$37
        sta $01
        ldy #$1f
loop:
        lda $fd30,y
        sta $0314,y
        dey
        bpl loop
        stx $01
        rts
}

main_08b4:
        sei
        lda #$37
        sta $01
        lda $0330
        sta smc_0a61                                // SMC: modifies $0a61
        lda $0331
        sta smc_0a66                                // SMC: modifies $0a66
        jsr $fda3
        jsr sub_08a0
        inc $d019
        lda $dc0d
        sei
        jsr $ff5b
        lda $02a6
        and #$01
        beq loc_08f6
        lda #$5e
        sta $3442
        dec $3445
        dec $3447
        dec $3448
        dec $344d
        dec $344e
        dec $3450
        dec $3454

loc_08f6:
        lda #$00
        jmp loc_3000

dat_08fb:
        .byte $00                                   // .

// --- Region $0a00-$0a6c ---
.pc = $0a00 "loc_0a00"

loc_0a00:
        lda $dc01
        and #$10
        bne loc_0a00
        sei
        jsr $fda3
        jsr sub_08a0
        jsr $ff5b
        ldx #$00

loc_0a13:
        lda dat_0a1f,x
        sta $0400,x
        inx
        bne loc_0a13
        jmp $0400

dat_0a1f:
        .byte $78,$a9,$34,$85,$01,$a0,$00           // x.4....

loc_0a26:
        ldx #$00

loc_0a28:
        lda $4150,x
        sta $0801,x
        inc $01
        sta $d020
        stx $d020
        sta $d020
        sty $d020
.label loc_0a3d = * + 1
        dec $01
        inx
        bne loc_0a28
        inc $040b
        inc $040e
        lda $040b
        cmp #$00
        bne loc_0a26
        lda #$00