← #209 Top 1024 #211 →
#210

Men at Work [MAW] 01

Men at Work [MAW]

3.021 lines of code

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

History

Released
15 April 1988
Music
Jeroen Tel — "Ice Age"
Group
Men at Work — Germany

Men at Work's first numbered intro, released on 15 April 1988 and featuring music by Jeroen Tel — one of the most celebrated SID composers of the era. Doc Snyder's page identifies the tune as "Ice Age" and documents this as the group's sole listed intro. The scrolltext mentions the game "Maniax" being cracked and trained by Elvin of Men at Work, and welcomes new members Scanner and Venom to the group. A 2018 comment from Gary K, who identified himself as Venom and the group's swapper, confirms the membership detail. Men at Work operated from Germany — specifically the Duisburg area, as revealed by a contact address in the scrolltext. The group name references the Australian pop band, following the 1980s scene convention of borrowing pop-culture names. Tel's contribution elevates what the scrolltext self-deprecatingly calls a "bad and simple intro" — his music was a sought-after commodity among cracking groups of the period.

Sources: CSDb · docsnyderspage · intros.c64.org

maw-01.asm 3.021 lines
// ============================================
// output - Disassembled Source
// ============================================
// 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: $0801  End: $ffff  (63487 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $1600 (5632)
// IRQ handler:  $ea31 (irq_ea31)
// IRQ handler:  $16de (irq_16de)
// IRQ handler:  $1716 (irq_1716)
// IRQ handler:  $175a (irq_175a)
// IRQ handler:  $1792 (irq_1792)
//
// Code: 2176 bytes, Data: 61311 bytes
// Labels: 329, Subroutines: 5
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $13cc-$13db ---
.pc = $13cc "loc_13cc"

loc_13cc:
        adc #$e9
        adc ($20),y
        jsr $ebea
        cpx $eeed
        .byte $ef,$20,$20                           // isc $2020 // ILLEGAL
        beq loc_13cc
        .byte $f2                                   // jam // ILLEGAL

// --- Region $1400-$1405 ---
.pc = $1400 "sub_1400"
// Referenced by: jsr from $17c7, $f213

sub_1400:
        dec $43
        beq loc_1420
        rts

dat_1405:
        .byte $77                                   // w

// --- Region $1420-$144a ---
.pc = $1420 "loc_1420"

loc_1420:
        ldx #$00
        ldy $1451

loc_1425:
        lda $1452,x
        sta $1451,x
        inx
        cpx #$10
        bne loc_1425
        sty $1461
        ldy $1472
        ldx #$0f

loc_1438:
        lda $1462,x
        sta $1463,x
        dex
        nop
        nop
        bpl loc_1438
        sty $1462
        lda #$03
        sta $43
        rts

// --- Region $1600-$1801 ---
.pc = $1600 "main_1600"

main_1600:
        lda #$09
        sta $0286
        jsr $e544
        lda #$00
        sta $c6
        nop
        nop
        nop
        nop
        sta $3f
        sta $41
        lda #$01
        sta $43
        ldx #$00

loc_161a:
        lda #$e6
        sta $06a8,x
        sta $06f4,x
        inx
        bne loc_161a
        ldx #$00

loc_1627:
        lda #$a0
        sta $0608,x
        lda #$00
        sta $da08,x
        inx
        cpx #$a0
        bne loc_1627
        ldx #$00
        txa

loc_1639:
        sta $0340,x
        inx
        cpx #$40
        bne loc_1639
        ldx #$00

loc_1643:
        lda txt_1200,x
        sta $0400,x
        lda $1300,x
        sta $0500,x
        inx
        bne loc_1643
        sei
        lda #$de
        ldx #$16
        sta $0314
        stx $0315
        lda #$01
        sta $d01a
        lda #$7f
        sta $dc0d
        lda #$32
        jsr sub_19d0
        cli
        lda #$1b
        sta $d011

loc_1672:
        lda $c6
        beq loc_1672
        sei