#657

Mechanix 2124 04

Mechanix 2124

2.712 lines of code

RasterbarsRSTRMusicSIDScrollerSCRLSpritesSPRTBitmapBMAP

History

Released
1993
Code
Sat
Graphics
Mercy, Stiff
Music
SMC (Sanke Michael Choe), GT (Geir Tjelta), King Fisher (Linus Walleij), Jadawin (Kalle Norrman), A-Man (Steven Diemer)
Idea
Heavy Head
Group
Mechanix — Denmark, founded 1987

CSDb lists this as "Mechanix Intro #3" — a 1993 multi-tune production coded by Sat with graphics from Mercy and Stiff. The music credits assemble five composers: SMC (Sanke Michael Choe) contributing "The Royal Scam," GT (Geir Tjelta) with "Off7," King Fisher (Linus Walleij) with "I Want You," Jadawin (Kalle Norrman) with "Vaqueros," and A-Man (Steven Diemer) with "Thriller" — all preserved in the HVSC. Heavy Head is credited with the concept. Mechanix was a Danish group founded in 1987, and like their other multi-tune productions such as #351 Mechanix-02, this intro functioned partly as a music showcase. The roster of Scandinavian and German composers reflects the tight-knit Danish scene where musicians frequently contributed to multiple groups. Released in 1993, this arrived during the platform's twilight commercial era.

Sources: CSDb

mechanix-04.asm 2.712 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:18
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $359f  (11680 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $080d (2061)
// IRQ handler:  $0893 (nmi_0893)
// IRQ handler:  $099b (irq_099b)
// IRQ handler:  $09d9 (irq_09d9)
// IRQ handler:  $0a0d (irq_0a0d)
// IRQ handler:  $0a52 (irq_0a52)
// IRQ handler:  $0b00 (irq_0b00)
//
// Code: 3402 bytes, Data: 8278 bytes
// Labels: 272, Subroutines: 18
//
// Cross-references: all OK
// ============================================


// --- Region $080d-$08ad ---
.pc = $080d "main_080d"

main_080d:
        jsr $e544
        ldx #$00

loc_0812:
        lda $b0,x
        sta $2fd3,x
        inx
        cpx #$10
        bne loc_0812
        ldx #$00
        lda #$00

loc_0820:
        sta dat_2c00,x
        inx
        bne loc_0820
        jsr $ff81
        lda #$00
        sta $d020
        sta $d021
        ldx #$00

loc_0833:
        lda chr_2800,x
        sta $0400,x
        lda $2900,x
        sta $d800,x
        inx
        cpx #$c8
        bne loc_0833
        ldx #$00

loc_0846:
        lda #$0f
        sta $d8f0,x
        sta $d968,x
        sta $da30,x
        inx
        cpx #$50
        bne loc_0846
        jsr sub_0dbe
        lda #$00
        sta $bf
        lda #$00
        jsr sub_1003
        sei
        lda #$35
        sta $01
        lda #$01
        sta $d01a
        sta $dc0d
        lda #$93
        sta $fffa
        lda #$08
        sta $fffb
        lda #$9b
        sta $fffe
        lda #$09
        sta $ffff
        cli

loc_0884:
.label smc_0885 = * + 1
        lda #$01                                    // !SMC: modified by $088d, $0c29
        bne loc_0884
        jsr sub_0d26
        lda #$01
        sta smc_0885                                // SMC: modifies $0885
        jmp loc_0884
// Referenced by: jmp from $09c7

nmi_0893:
        lda #$37
        sta $01
        jsr $e518
        jsr $fd15
        jsr $fda3
        jsr $ff81
        lda #$00
        sta $d020
        sta $d011
        jmp $fce2

// --- Region $0915-$0ae7 ---
.pc = $0915 "sub_0915"

// Referenced by: jsr from $0b09
sub_0915: {
        ldy $d012
        iny
loop1:
        cpy $d012
        bne loop1
        ldx #$0a
loop2:
        dex
        bne loop2
        iny
        cpy $d012
        beq skip1
        bit $ea
        nop
skip1:
        ldx #$09
loop3:
        dex
        bne loop3
        nop
        nop
        nop
        iny
        cpy $d012
        beq skip2
        bit $ea
skip2:
        ldx #$0a
loop4:
        dex
        bne loop4
        nop
        iny