← #445 Top 1024 #447 →
#446

Legend 05

Legend

3.532 lines of code

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

History

Released
September 1988
Music
Jeroen Tel — Battle Valley
Group
Legend — Belgium, founded May 1988

This Legend crack intro from September 1988 is catalogued on CSDb as release #60508 under the name "Legend Intro." The sole credited contributor is Jeroen Tel, who provided the SID tune "Battle Valley" — one of his celebrated compositions, preserved in the HVSC. No coder or graphics artist is credited on CSDb for this intro. Doc Snyder's page lists it as Legend Crack Intro #05 and confirms only the Jeroen Tel music credit, additionally noting the intro is "missing info." The lack of further credits suggests that documentation for this early Legend production was incomplete at the time of archival. Legend was a Belgian group founded in May 1988, and this intro dates from the group's earliest months of activity. The use of a Jeroen Tel composition — even in an otherwise sparsely documented intro — speaks to Legend's connections within the European scene from their very inception. The group would go on to produce numerous intros featuring music from elite composers including Drax, JCH, and Stefan Hartwig.

Sources: CSDb · docsnyderspage

legend-05.asm 3.532 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:53
// 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:  $3ae0 (15072)
// IRQ handler:  $3b77 (irq_3b77)
// IRQ handler:  $3ba1 (nmi_3ba1)
//
// Code: 2487 bytes, Data: 61001 bytes
// Labels: 332, Subroutines: 14
//
// Cross-references: all OK
// ============================================


// --- Region $0d05-$0d24 ---
.pc = $0d05 "sub_0d05"
// Referenced by: jsr from $0e07

sub_0d05:
        lda #$10
        ldx #$00

loc_0d09:
        ldy $0de7,x
        sta $0cf5,y
        sec
        sbc #$01
        pha
        lda #$0f
        sta dat_0db7,x
        pla
        inx
        cpx #$10
        bne loc_0d09
        lda #$10
        sta $0db0

loc_0d23:
        rts

dat_0d24:
        .byte $01                                   // .

// --- Region $0d4b-$0d68 ---
.pc = $0d4b "loc_0d4b"

loc_0d4b:
        ora $b7de
        ora $e0e8
        bpl loc_0d23
        sbc ($ac,x)
        bcs loc_0d64
        dey
        bpl loc_0d64
        lda #$60
        sta $0d25
        lda #$00
        sta $3d6f

loc_0d64:
        sty $0db0
        rts

dat_0d68:
        .byte $a2                                   // .

// --- Region $0e07-$0e60 ---
.pc = $0e07 "sub_0e07"
// Referenced by: jsr from $3ae3

sub_0e07:
        jsr sub_0d05
        ldx #$00
        txa

loc_0e0d:
        lda #$00
        sta $d800,x
        sta dat_d900,x
        sta $da00,x
        sta $db00,x
        lda #$00
        sta $0400,x
        sta $0500,x
        sta $0600,x
        sta $0700,x
        inx
        bne loc_0e0d
        stx $d020
        stx $d021

loc_0e32:
        lda #$20
        sta $0658,x
        sta $06e8,x
        lda #$01
        sta $da58,x
        sta $dae8,x
        inx
        bne loc_0e32
        ldx #$0b
        stx $d011
        lda #$02
        ldx #$00
        ldy #$00

loc_0e50:
        dex
        bne loc_0e50
        dey
        bne loc_0e50
        sec
        sbc #$01
        bne loc_0e50
        lda #$00
        jsr sub_1000
        rts

// --- Region $0fbe-$1003 ---
.pc = $0fbe "loc_0fbe"

loc_0fbe:
        ldy #$00
        lda ($fb),y
        cmp #$5f
        beq loc_0ff0
        and #$3f
        bne loc_0fd4
        lda #$ad
        sta $fb
        lda #$3e
        sta $fc
        lda ($fb),y

loc_0fd4:
        sta $3e5c
        jsr sub_3e43
        ldy #$07
        ldx #$15

loc_0fde:
        lda ($fd),y
        sta $0a17,x