#219

Legend 15

Legend

5.404 lines of code

RasterbarsRSTRMusicSIDSpritesSPRT

History

Released
2 January 1990
Graphics
Lyon
Music
Stefan Hartwig — "Ultimate Intro Studio (tune 07)"
Group
Legend — Belgium, founded May 1988

Legend's fifteenth intro, released on 2 January 1990, with graphics by Lyon and music by Stefan Hartwig. Hartwig's composition — titled "Ultimate Intro Studio (tune 07)" in the HVSC — was created using one of the era's SID music editors, reflecting the toolchain-driven approach many intro musicians adopted. Lyon served double duty as both graphic artist and musician on other Legend productions, as documented on Doc Snyder's page. The scrolltext — written in Legend's characteristically combative style — refers to the group as "the Belgian 64" and dismisses other Belgian groups as "pathetic sow-bugs." It lists active members as Goldfish, Powerplant, Lyon, Midas, Ziggy, Daryl, and Wave, while noting Apollo's retirement. Legend was founded in Belgium in May 1988 and maintained an aggressive identity. Another Legend intro appears at #39 Legend-17. The Antwerp postal address in the scrolltext places the group's operations in Belgium's Flemish region.

Sources: CSDb · docsnyderspage · intros.c64.org

legend-15.asm 5.404 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:26
// 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)
//
// Code: 6236 bytes, Data: 57252 bytes
// Labels: 632, Subroutines: 17
//
// Cross-references: all OK
// ============================================


// --- Region $09f0-$0a0d ---
.pc = $09f0 "Program $09f0"
        bvs loc_0a2a
        .byte $1c,$0e,$0e                           // nop $0e0e,x // ILLEGAL
        .byte $1c,$38,$70                           // nop $7038,x // ILLEGAL
        rol $677f,x
        asl.abs $001c
        .byte $1c,$00,$ff                           // nop txt_ff00,x // ILLEGAL
        .byte $ff,$ff,$88                           // isc $88ff,x // ILLEGAL
        sty $a2,x
        cmp $c188,x
        .byte $80,$88                               // nop #$88 // ILLEGAL
        .byte $80,$80                               // nop #$80 // ILLEGAL

dat_0a0d:
        .byte $80                                   // .

// --- Region $0a90-$0abe ---
.pc = $0a90 "Program $0a90"
        sta ($80,x)
        dey
        .byte $80,$81                               // nop #$81 // ILLEGAL
        .byte $80,$88                               // nop #$88 // ILLEGAL
        dey
        cmp ($80,x)
        .byte $83,$81                               // sax ($81,x) // ILLEGAL
        cpy #$e0
        .byte $80,$c1                               // nop #$c1 // ILLEGAL
        .byte $80,$80                               // nop #$80 // ILLEGAL
        cmp ($c1,x)
        cmp ($c1,x)
        cmp ($c1,x)
        dey
        dey
        dey
        dey
        .byte $80,$80                               // nop #$80 // ILLEGAL
        .byte $80,$c1                               // nop #$c1 // ILLEGAL
        dey
        dey
        dey
        dey
        .byte $80,$80                               // nop #$80 // ILLEGAL
        cmp ($e3,x)
        dey
        dey
        dey
        .byte $80,$80                               // nop #$80 // ILLEGAL
        .byte $80,$88                               // nop #$88 // ILLEGAL

// --- Region $0d00-$0db0 ---
.pc = $0d00 "sub_0d00"
// Referenced by: jsr from $10e2

sub_0d00:
        ldx #$00
        txa

loc_0d03:
        sta $0c00,x
        inx
        bne loc_0d03
        ldx #$27

loc_0d0b:
        lda $26d0,x
        sta $0680,x
        lda $26d5,x
        sta $06a8,x
        lda $26d1,x
        sta $06d0,x
        lda $26d6,x
        sta $06f8,x
        lda $26d3,x
        sta $0720,x
        lda $26d7,x
        sta $0748,x
        lda $26d4,x
        sta $0770,x
        lda $26d2,x
        sta $0658,x
        dex
        bpl loc_0d0b
        rts

dat_0d3f:
        .byte $00                                   // .
// Referenced by: jsr from $1122

sub_0d40:
        lda $26c0
        cmp #$30
        bne loc_0d4d
        lda #$03
        sta $0c00
        rts

loc_0d4d:
        cmp #$28
        bne loc_0d57
        lda #$03
        sta $0c02
        rts

loc_0d57:
        cmp #$20
        bne loc_0d61
        lda #$03
        sta $0c04
        rts

loc_0d61:
        cmp #$18
        bne loc_0d6a
        lda #$03
        sta $0c06

loc_0d6a:
        rts

dat_0d6b:
        .byte $00,$00,$00,$00,$00                   // .....
// Referenced by: jsr from $1125

sub_0d70:
        lda $26c0
        cmp #$80
        bcc loc_0d78
        rts

loc_0d78: