← #708 Top 1024 #710 →
#709

Legend 25

Legend

5.337 lines of code

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

History

Released
c. 1988-1998
Group
Legend [L] — Belgium, founded May 1988

This crack intro is the twenty-fifth catalogued entry for Legend, the Belgian cracking group that operated from May 1988 to December 1998 under the mottos "The Will of God" and "Snapshot of the Future." Doc Snyder's page credits the code to TMBC and the music to Jozz — Johannes Bjerregaard, the Danish SID composer known for a prolific body of work in the HVSC. Legend was founded by Goldfish and Powerplant in Antwerp. The group counted among its members Antitrack, Brainkiller, Fletch, Jazzcat, Midas, and Razy. The group became one of the most prominent cracking outfits in Europe during the 1990s, also publishing the SH0CK magazine and maintaining connections with SCS+TRC, Alpha Flight, F4CG, Cascade, and Laxity. CSDb catalogues the group under ID 176 with an extensive release library. This is one of two Legend entries in the rankings — see also Legend-05.

Sources: CSDb · Doc Snyder · intros.c64.org

legend-25.asm 5.337 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:55
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0700  End: $6aff  (25600 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $0803 (2051)
// IRQ handler:  $0960 (nmi_0960)
// IRQ handler:  $0967 (irq_0967)
//
// Code: 7130 bytes, Data: 18470 bytes
// Labels: 482, Subroutines: 12
//
// Cross-references: all OK
// ============================================


// --- Region $0803-$0856 ---
.pc = $0803 "main_0803"

main_0803:
        lda #$37
        sta $01
        lda #$2e
        ldx #$00
        stx $50
        sta $51

loc_080f:
        ldx #$00
        lda #$00
        sta ($50,x)
        inc $50
        bne loc_081b

dat_0819:
        .byte $e6,$51                               // .Q

loc_081b:
        lda $51
        cmp #$3f
        bne loc_080f
        ldx #$00

loc_0823:
        lda #$ff
        sta dat_2dc0,x
        sta $2f00,x
        sta $3040,x
        sta $3180,x
        sta $32c0,x
        sta $3400,x
        sta $3540,x
        sta $3680,x
        sta $37c0,x
        sta $3900,x
        sta $3a40,x
        sta $3b80,x
        sta $3cc0,x
        sta $3e00,x
        inx
        cpx #$48
        bne loc_0823
        jmp loc_0873

// --- Region $0873-$0a15 ---
.pc = $0873 "loc_0873"

loc_0873:
        sei

loc_0874:
        jsr sub_0e1f
        lda $d011
        and #$ef
        sta $d011
        lda dat_0e46
        cmp #$ff
        bne loc_0889
        jmp loc_089a

loc_0889:
        sta $d020
        sta $d021
        inc $0880
        bne loc_0897
        inc $0881

loc_0897:
        jmp loc_0874

loc_089a:
        lda #$00
        sta $0286
        jsr $e544
        lda #$00
        tax
        tay
        jsr sub_1000
        ldx #$00

loc_08ab:
        lda $4000,x
        sta $0400,x
        lda $4100,x
        sta $0500,x
        lda #$10
        sta $0600,x
        sta $0700,x
        lda $4400,x
        sta $d800,x
        lda $4500,x
        sta $d900,x
        lda #$01
        sta $da00,x
        sta $db00,x
        lda #$00
        sta dat_6000,x
        sta $6100,x
        sta $6200,x
        sta $6300,x
        sta $6400,x
        sta $6500,x
        inx
        bne loc_08ab
        ldx #$00
        stx $02
        stx $50
        stx $51
        stx $60

loc_08f4:
        lda #$ff
        sta $2e53,x
        sta $3c15,x
        inx
        inx
        inx
        inx
        inx
        inx
        inx
        inx
        cpx #$a0
        bne loc_08f4
        ldx #$00