← #758 Top 1024 #760 →
#759

Mayhem (UK) 04

Mayhem (UK)

1.946 lines of code

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

History

Released
c. 1993-2004
Group
Mayhem [M] — United Kingdom

This crack intro from Mayhem (UK) features a soundtrack by Laxity — Thomas Petersen, the Danish SID composer whose "Ikari Intro" tune became one of the most widely ripped compositions in the C64 scene. CSDb catalogues the British group under ID 582, noting the tagline "Who Needs Law and Order" and classifying it as both a cracker group and graphics group. Doc Snyder's page identifies this as Mayhem's Crack Intro #01, with the scrolltext revealing the crack was performed by Hellraiser on the game "Neuronics." Greetings extend to Deadline, Genetix, Faces, Vision, TRC, Varsity, ICS, Babygang, WOW+IRS, Legend, Enigma, Clique, Fairlight, and Antic. Notable members included Met, Hellraiser, Joker, Primus, and Motion, the latter of whom also coded for Cosine. The group produced over 1,000 releases between 1993 and 2004. This is one of two Mayhem (UK) entries in the rankings — see also Mayhem UK-38.

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

mayhem_uk-04.asm 1.946 lines
// ============================================
// output - Disassembled Source
// ============================================
// 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: $31ff  (11008 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $2a00 (10752)
// IRQ handler:  $2a12 (irq_2a12)
// IRQ handler:  $2ced (nmi_2ced)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 1679 bytes, Data: 9329 bytes
// Labels: 216, Subroutines: 28
//
// Cross-references: all OK
// ============================================


// --- Region $0ee0-$0f24 ---
.pc = $0ee0 "loc_0ee0"

loc_0ee0:
        lda #$31
        ldx #$ea
        sta $0314
        stx $0315
        jsr $ff81
        jsr $ff84
        lda #$00
        sta $d021
        sta $d020
        ldx #$00

loc_0efa:
        lda $0f61,x
        sta $0598,x
        lda #$01
        sta $d800,x
        inx
        cpx #$15
        bne loc_0efa
        nop
        nop
        nop
        sei
        ldx #$00

loc_0f10:
        lda chr_0f24,x
        sta $0340,x
        lda #$00
        sta $d400,x
        inx
        cpx #$50
        bne loc_0f10
        cli
        jmp $0340

chr_0f24:
        // === Charset data (1 bytes, $0f24-$0f24) ===
        .byte $78                                   // char 0 (partial)

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

sub_1000:
        jmp loc_1048
// Referenced by: jsr from $2a62

sub_1003:
        jmp loc_1021

dat_1006:
        .byte $78                                   // x

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

loc_1021:
        ldx #$00
        dec $1090
        bmi loc_1034
        jsr sub_1226
        jsr sub_1225
        jmp sub_1225

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

loc_1034:
        lda #$02
        sta $1090
        jsr sub_1040
        jsr sub_103f
// Referenced by: jsr from $103c

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

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

loc_1048:
        lda #$1f
        sta $d418
        lda #$f0
        sta $d417
        and #$0f
        sta smc_1262                                // SMC: modifies $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