#244

Legend 08

Legend

3.824 lines of code

RasterbarsRSTRMusicSIDScrollerSCRL

History

Released
18 March 1991
Code
Trap
Music
JCH (Jens-Christian Huus) — "Kinetic"
Graphics
Fox
Group
Legend — Belgium

This Legend intro from March 1991 features code by Trap and music by the prolific Danish composer JCH (Jens-Christian Huus), whose "Kinetic" is preserved in the HVSC. Fox provided the graphics. CSDb lists this release under the group Bonzai — a Danish group founded in August 1988 — suggesting either a joint release or a data attribution issue, though the intro itself is catalogued as a Legend production. Legend was a Belgian group whose Doc Snyder page documents a series of intros with contributions from notable musicians including Drax, Jeroen Tel, and Johannes Bjerregaard. Their scrolltexts carried the slogan "Snapshot of the future" and referenced Belgian pride, declaring themselves "the pride of the fatherland." Other Legend intros in this collection include #39 Legend 17. JCH's compositions appeared across dozens of crack intros and demos, making him one of the most frequently borrowed SID musicians in the scene.

Sources: CSDb · docsnyderspage

legend-08.asm 3.824 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:25
// 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:  $3400 (13312)
// IRQ handler:  $3498 (irq_3498)
// IRQ handler:  $34ef (irq_34ef)
// IRQ handler:  $3563 (irq_3563)
// IRQ handler:  $35d1 (irq_35d1)
// IRQ handler:  $3605 (irq_3605)
//
// Code: 2635 bytes, Data: 60853 bytes
// Labels: 404, Subroutines: 10
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$1006 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $346b

sub_1000:
        jmp loc_1040
// Referenced by: jsr from $3622

sub_1003:
        jmp loc_10da

dat_1006:
        .byte $01                                   // .

// --- Region $1040-$136a ---
.pc = $1040 "loc_1040"

loc_1040:
        asl
        asl
        asl
        tay
        ldx #$00

loc_1046:
        lda $17ef,y
        sta $174e,x
        sta $1754,x
        lda $17f0,y
        sta $1751,x
        sta $1757,x
        iny
        iny
        inx
        cpx #$03
        bne loc_1046
        ldx #$00
        stx $174d
        lda $17ef,y
        sta $100b
        sta $177b
        sta $177c
        sta $177d

loc_1073:
        sta $17d9,x
        inc $174d
        lda $100b
        clc
        adc $17ef,y
        sta $100b
        clc
        adc $174d
        inx
        cpx #$10
        bne loc_1073
        lda $1020
        beq loc_10bc
        ldx #$02

loc_1093:
        lda $17f0,y
        sta $174d
        and $175a,x
        sta dat_1006,x
        dex
        bpl loc_1093
        bit $174d
        bpl loc_10bc
        ldx #$00

loc_10a9:
        lda $17f1,y
        sta $1754,x
        lda $17f2,y
        sta $1757,x
        iny
        iny
        inx
        cpx #$03
        bne loc_10a9

loc_10bc:
        ldy #$00
        tya

loc_10bf:
        sta $d400,y
        iny
        cpy #$1b
        bne loc_10bf
        tay

loc_10c8:
        sta $177e,y
        sta $1766,y
        iny
        cpy #$0c
        bne loc_10c8
        lda $1009
        sta $d418
        rts

loc_10da:
        ldx #$02

loc_10dc:
        lda $1769,x
        cmp #$02
        bne loc_110f
        ldy $1772,x
        lda $18c1,y
        ldy $1760,x
        sta $d405,y
        ldy $1772,x
        lda $18c2,y
        ldy $1760,x
        sta $d406,y
        lda $1890
        beq loc_1109
        lda $188f
        sta $d404,y
        jmp loc_110f

loc_1109:
        lda $1778,x