← #350 Top 1024 #352 →
#351

Mechanix 2124 02

Mechanix 2124

1.566 lines of code

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

History

Released
February 1993
Graphics
Mason
Music
Jeff (Soren Lund), Reyn Ouwehand, JCH (Jens-Christian Huus), Laxity (Thomas Petersen), Charles Deenen, Drax (Thomas Mogensen), and others
Group
Mechanix 2124 — Denmark, founded 1987

CSDb catalogues this as "Mechanix Intro #6" — a massive jukebox production featuring over thirty SID tunes from an extraordinary roster of composers. The music credits read like a who's who of C64 sound: Jeff (Soren Lund) contributed multiple tracks including the dedicated "Mechanix Intro" tune, alongside contributions from JCH, Laxity, Drax, Reyn Ouwehand, Charles Deenen, Johannes Bjerregaard, Zardax, and many more. Mason provided the graphics. Released in February 1993, this arrived in the twilight of the C64 commercial era. Mechanix was a Danish group founded in 1987, and their access to so many prominent Danish and Scandinavian composers — JCH, Laxity, Drax, Jeff, and Zeus among them — reflects the tight-knit nature of the Danish scene. The sheer volume of music tracks suggests this was designed as a showcase or compilation intro rather than a standard crack screen.

Sources: CSDb · CSDb Group

mechanix-02.asm 1.566 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:56
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0700  End: $21ff  (6912 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $1f00 (7936)
// IRQ handler:  $1f2e (irq_1f2e)
// IRQ handler:  $1f94 (loc_1f94)
// IRQ handler:  $1fbd (loc_1fbd)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 2091 bytes, Data: 4821 bytes
// Labels: 135, Subroutines: 22
//
// Cross-references: all OK
// ============================================


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

sub_1000:
        jmp loc_1388
// Referenced by: jsr from $1fca

sub_1003:
        jmp loc_1370

txt_1006:
        .text "P"

// --- Region $116e-$16cc ---
.pc = $116e "loc_116e"

loc_116e:
        iny
        lda ($f9),y
        sta $1119
        jmp loc_11a0

loc_1177:
        iny
        lda ($f9),y
        asl
        sta $111b,x
        jmp loc_11ad

loc_1181:
        ldy $1118
        lda $16ef,y
        sta $f9
        lda $16f1,y
        sta $fa
        ldy $1119
        lda ($f9),y
        sta $d416
        iny
        lda ($f9),y
        cmp #$ff
        bcs loc_116e
        inc $1119

loc_11a0:
        ldy $111a,x
        lda $16dd,y
        sta $f9
        lda $16e6,y
        sta $fa

loc_11ad:
        ldy $111b,x
        lda ($f9),y
        cmp #$ff
        bcs loc_1177
        sta $1146,x
        iny
        lda ($f9),y
        sta $111c,x
        iny
        tya
        sta $111b,x
        lda $111d,x
        cmp #$01
        bcs loc_11fc
        lda $111f,x
        clc
        adc $115d,x
        sta $111f,x
        sta $d402,x
        lda $1120,x
        adc #$00
        sta $1120,x
        sta $d403,x
        inc $111e,x
        lda $111e,x
        cmp $115b,x
        bcs loc_11f1
        jmp loc_122a

loc_11f1:
        inc $111d,x
        lda #$00
        sta $111e,x
        jmp loc_122a

loc_11fc:
        lda $111f,x
        sec
        sbc $115e,x
        sta $111f,x
        sta $d402,x
        lda $1120,x
        sbc #$00
        sta $1120,x
        sta $d403,x
        inc $111e,x
        lda $111e,x
        cmp $115c,x
        bcs loc_1222
        jmp loc_122a

loc_1222:
        lda #$00
        sta $111d,x
        sta $111e,x

loc_122a:
        lda $1130,x
        cmp #$03
        bcs loc_1259
        cmp #$02
        bcs loc_12ae
        cmp #$01
        bcs loc_1271
        lda $115a,x
        beq loc_1267
        ldy $111c,x
        lda $1048,y
        sta $d400,x
        lda $10a8,y
        sta $d401,x
        inc $1131,x
        lda $1131,x
        cmp $115a,x