#485

Elite (DE) [$] 04

Elite (DE) [$]

2.885 lines of code

RasterbarsRSTRMusicSIDScrollerSCRLSpritesSPRT

History

Released
April 1989
Group
Elite [$] — Germany, founded 17 December 1988

Released in April 1989, this Elite intro was coded by ZAZ and features a SID composition by Speedcracker of Fantasy Cracking Service — the tune "Plastic Age." The cross-group musical contribution from FCS illustrates the fluid exchange of talent between German cracking operations. CSDb documents this intro's deployment across four cracks, including Dark Fusion, Slug, and Zero Gravity. ZAZ's coding credit is one of the few preserved programmer attributions across the Elite intro series. Elite was founded on 17 December 1988 by Conan, Jeff Smart, MWS, and General Zoff, operating as a cracking, demo, and import group with 121 documented releases. This is one of six Elite intros featured here, together charting the group's progression from their December 1988 debut through the 1991 comeback.

Sources: CSDb — Elite Intro · CSDb — Elite Group · intros.c64.org

elite-04.asm 2.885 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:18
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $34bf  (11456 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $2730 (10032)
// IRQ handler:  $1f18 (irq_1f18)
//
// Code: 2881 bytes, Data: 8575 bytes
// Labels: 298, Subroutines: 20
//
// Cross-references: all OK
// ============================================


// --- Region $0ab0-$0ab0 ---
.pc = $0ab0 "Program $0ab0"
        brk

// --- Region $0b00-$0b06 ---
.pc = $0b00 "sub_0b00"
// Referenced by: jsr from $2201

sub_0b00:
        jmp loc_0bd8
// Referenced by: jsr from $2056

sub_0b03:
        jmp loc_0be6

dat_0b06:
        .byte $01                                   // .

// --- Region $0bd8-$1223 ---
.pc = $0bd8 "loc_0bd8"

loc_0bd8:
        lda dat_0b06
        cmp #$01
        beq loc_0c53
        cmp #$02
        bne loc_0c1f
        jmp loc_0c48

loc_0be6:
        tax
        lda $1587,x
        sta $0b46
        txa
        sta $0b7c
        ldx #$00
        asl
        asl
        clc
        adc $0b7c
        adc $0b7c
        tay

loc_0bfd:
        lda $1355,y
        sta $134f,x
        iny
        inx
        cpx #$06
        bne loc_0bfd
        ldy #$00
        lda $0b7c
        asl
        adc $0b7c
        tax

loc_0c13:
        lda $0b07,y
        sta $0b07,y
        inx
        iny
        cpy #$03
        bne loc_0c13

loc_0c1f:
        ldx #$02
        lda #$00

loc_0c23:
        sta $0b30,x
        sta $0b2a,x
        sta $0b27,x
        sta $0b1e,x
        sta $0b80,x
        sta $0b21,x
        sta $0b83,x
        sta $0b24,x
        dex
        bpl loc_0c23
        lda #$1f
        sta smc_0c54                                // SMC: modifies $0c54
        lda #$01
        sta dat_0b06

loc_0c48:
        ldx #$18
        lda #$00

loc_0c4c:
        sta $d400,x
        dex
        bpl loc_0c4c
        rts

loc_0c53:
.label smc_0c54 = * + 1
        lda #$1f                                    // !SMC: modified by $0c40, $1066, $10a2
        sta $d418
        ldx #$02
        stx $0b0c
        dec $0b42
        bpl loc_0c68
        lda $0b46
        sta $0b42

loc_0c68:
        lda $0b1a,x
        sta $0b1d
        lda $0b42
        cmp $0b46
        bne loc_0c95
        txa
        asl
        tay
        lda $134f,y
        sta $14
        lda $1350,y
        sta $15
        dec $0b24,x
        bpl loc_0c8b
        jmp loc_104f

loc_0c8b:
        lda $0b64,x
        beq loc_0c95
        lda #$fe
        sta $0b33,x

loc_0c95:
        lda $0b30,x