← #655 Top 1024 #657 →
#656

Legend 19

Legend

4.719 lines of code

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

History

Released
25 March 1991
Code
The Bit Bandit
Graphics
Lyon
Music
Egon Larsen (Marcel) — "Enforce"
Group
Legend — Belgium, founded May 1988

The Bit Bandit coded this Legend intro released on 25 March 1991, with graphics by Lyon and music by Egon Larsen — credited on the HVSC under the handle Marcel, with the composition "Enforce" preserved there. Lyon served double duty as both graphician and musician across different Legend intros documented on Doc Snyder's page. Released nearly three years after Legend's May 1988 founding in Belgium, this represents the group's mature period. Legend carried the tagline "Snapshot of the future" and styled itself as "the Belgian 64," aggressively dismissing domestic rivals in their scrolltexts. Doc Snyder's page documents a substantial catalogue with coders including Midfit, Dave, and TMBC, alongside musicians ranging from Drax to JCH to Jeroen Tel. Other Legend intros appear at #30 Legend-17 and #219 Legend-15.

Sources: CSDb · docsnyderspage

legend-19.asm 4.719 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:54
// 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:  $2740 (10048)
// IRQ handler:  $17b0 (irq_17b0)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 4193 bytes, Data: 59295 bytes
// Labels: 545, Subroutines: 28
//
// Cross-references: all OK
// ============================================


// --- Region $090c-$090c ---
.pc = $090c "sub_090c"
// Referenced by: jsr from $30c1, $ff6c

sub_090c:
        brk

// --- Region $0c01-$0c01 ---
.pc = $0c01 "Program $0c01"
        .byte $22                                   // jam // ILLEGAL

// --- Region $0e01-$0e08 ---
.pc = $0e01 "Program $0e01"
        eor $5856,y
        .byte $54,$52                               // nop $52,x // ILLEGAL
        lsr
        rol
        brk

// --- Region $1000-$1006 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $2aef, $faf4

sub_1000:
        jmp loc_1048
// Referenced by: jsr from $ed4a

sub_1003:
        jmp loc_1021

dat_1006:
        .byte $00                                   // .

// --- Region $1021-$1080 ---
.pc = $1021 "loc_1021"

loc_1021:
        ldx #$00
.label loc_1024 = * + 1
        dec $1090
        bmi loc_1034
        jsr sub_1226
        jsr sub_1225
        jmp sub_1225

dat_1031:
        .byte $ff,$ff,$ff                           // ...

loc_1034:
        lda #$03

loc_1036:
        sta $1090
        jsr sub_1040
        jsr sub_103f
// Referenced by: jsr from $103c, $e5de

sub_103f:
        inx
// Referenced by: jsr from $1039, $e5db

sub_1040:
        dec $108a,x
        bmi loc_1091
        jmp sub_1226

loc_1048:
        lda #$1f
        sta $d418
        lda #$f0
        sta $d417
        and #$0f
        sta $1262
        ldx #$0f

loc_1059:
        sta dat_1081,x
        dex
        bpl loc_1059
        ldx #$02

loc_1061:
        lda $14b9,x
        sta $fa
        lda $14bc,x
        sta $fb
        ldy #$00
        lda ($fa),y
        sta $108d,x
        iny
        lda ($fa),y
        sta $10e6,x
        and #$0f
        sta $10e9,x
        dex
        bpl loc_1061
        rts

// --- Region $1091-$10c6 ---
.pc = $1091 "loc_1091"

loc_1091:
        ldy $108d,x
        cpy #$fe
        bne loc_10a1
// Referenced by: jsr from $10c0, $e663

sub_1098:
        lda $1084,x
        and #$fe
        sta $1084,x
        rts

loc_10a1:
        lda $167c,y
        sta $fa
        lda $166d,y
        sta $fb
        ldy dat_1081,x
        lda ($fa),y
        bmi loc_10d2
        cmp #$60
        bcc loc_10f9

loc_10b6:
        and #$1f
        sta $108a,x
        lda #$fe
        sta dat_1031,x