#386

Legend 12

Legend

4.420 lines of code

RasterbarsRSTRMusicSIDScrollerSCRLSpritesSPRTBitmapBMAP

History

Released
29 March 1990
Code
Daryl
Music
FCS (Juha Granberg) — "Around the Planet" / Wuiti (Stefan Woltran) — "The Sky"
Graphics
Scorp
Group
Legend — Belgium, founded May 1988

Legend's twelfth intro, released on 29 March 1990, features a collaborative effort across multiple roles. Daryl coded the intro while Scorp contributed the graphics. Two SID tunes provide the soundtrack: "Around the Planet" by FCS (Juha Granberg) and "The Sky" by Wuiti (Stefan Woltran), both preserved in the HVSC. FCS — Finland Cracking Service — was itself a Finnish group, and Granberg's involvement as a credited musician demonstrates the cross-group collaborations common in the European scene. Legend was a Belgian group founded in May 1988, operating under the tagline "Snapshot of the Future." Doc Snyder's page documents their catalogue, listing a roster that included coders like Midfit, Dave, and TMBC alongside musicians such as Drax, Jeroen Tel, and JCH. The group's highest-ranked entry is #39 Legend-17, rated 9.4/10 on CSDb. This earlier intro from 1990 shows Legend already attracting international talent less than two years after founding.

Sources: CSDb · docsnyderspage

legend-12.asm 4.420 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:  $1000 (4096)
// IRQ handler:  $10b1 (irq_10b1)
// IRQ handler:  $2024 (irq_2024)
//
// Code: 3721 bytes, Data: 59767 bytes
// Labels: 487, Subroutines: 16
//
// Cross-references: all OK
// ============================================


// --- Region $0814-$0814 ---
.pc = $0814 "Program $0814"
        brk

// --- Region $0917-$0917 ---
.pc = $0917 "Program $0917"
        rti

// --- Region $0c25-$0c2c ---
.pc = $0c25 "Program $0c25"
        jsr sub_6020
        .byte $03,$03                               // slo ($03,x) // ILLEGAL
        .byte $03,$03                               // slo ($03,x) // ILLEGAL

dat_0c2c:
        // === Data block (1 bytes, $0c2c-$0c2c) ===
        .byte $03                                   // .

// --- Region $1000-$11cd ---
.pc = $1000 "main_1000"

main_1000:
        lda #$0b
        sta $0286
        jsr $e544
        sei
        lda #$00
        sta $d020
        sta $d021
        sta $d012
        sta $033d
        sta $033c
        sta $033f
        sta $033e
        sta $0340
        sta $0341
        sta $0344
        sta $0345
        lda #$30
        sta $0342
        sta $0343
        adc #$0a
        lda #$01
        sta $d01a
        lda #$7f
        sta $dc0d
        lda #$1b
        sta $d011
        lda #$b1
        sta $0314
        lda #$10
        sta $0315
        lda #$00
        jsr sub_1800
        jsr sub_1242
        jsr sub_13ae
        jsr sub_1367
        ldx #$00

loc_105f:
        lda $3800,x
        sta $0400,x
        lda $388c,x
        sta $048c,x
        inx
        cpx #$a0
        bne loc_105f
        ldx #$00

loc_1072:
        lda $3940,x
        sta $0518,x
        lda $39e0,x
        sta $05b8,x
        inx
        cpx #$a0
        bne loc_1072
        ldx #$00

loc_1085:
        lda #$0e
        sta $d918,x
        sta $d9b8,x
        inx
        cpx #$a0
        bne loc_1085
        ldx #$00

loc_1094:
        lda #$a0
        sta $0658,x
        lda #$0c
        sta $da58,x
        inx
        cpx #$50
        bne loc_1094
        nop
        nop
        nop
        cli

loc_10a7:
        lda $dc01
        cmp #$ef
        bne loc_10a7
        jmp loc_13c3

irq_10b1:
        lda #$00
        sta $d021
        lda #$1b
        sta $d011
        lda #$13
        sta $d018
        lda #$09
        sta $d022
        lda #$05
        sta $d023
        lda #$18
        sta $d016
        jsr sub_11ba
        jsr sub_1806
        lda #$00
        sta $d015
        lda #$6a

loc_10dc:
        cmp $d012
        bne loc_10dc