← #506 Top 1024 #508 →
#507

Migges+Eurosoft 01

Migges+Eurosoft

2.030 lines of code

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

History

Released
August 1986
Group
Migges + Eurosoft — Germany

This crack intro is a cooperative release between Migges and Eurosoft, two German sceners documented on CSDb as individual handles rather than a formal multi-member group. CSDb identifies the "Migges and Eurosoft Intro" as a crack intro from August 1986, used for a crack of Dragon's Lair. Migges (also known as MGS) was a German coder, cracker, and swapper who was a member of The Amiga Crew and The Direbreaks. Eurosoft (ES) was a German cracker who also served in The Direbreaks and later joined The Lightforce. Their shared membership in The Direbreaks suggests this cooperation grew out of an existing group affiliation. The specific credits for code and music in this intro remain unattributed. With releases documented from 1985 to 1988, both sceners were active during the earliest period of the C64 cracking scene in Germany.

Sources: CSDb · CSDb · intros.c64.org

m_e-01.asm 2.030 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: $0801  End: $ffff  (63487 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $cff8 (53240)
// IRQ handler:  $e0a7 (irq_e0a7)
// IRQ handler:  $e0be (nmi_e0be)
//
// Code: 1065 bytes, Data: 62422 bytes
// Labels: 183, Subroutines: 0
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $addb-$addb ---
.pc = $addb "Segment $addb"
        brk

// --- Region $cff8-$d000 ---
.pc = $cff8 "main_cff8"

main_cff8:
        sei
        lda #$35
        sta $01
        jmp loc_e000

dat_d000:
        // === Fill data (1 bytes, $d000-$d000) ===
        .byte $00                                   // .

// --- Region $e000-$e07d ---
.pc = $e000 "loc_e000"

loc_e000:
        sei
        lda #$7f
        sta $dc0d
        lda $dc0d
        lda #$05
        sta $01
        lda #$a7
        sta $fffe
        lda #$e0
        sta $ffff
        lda #$be
        sta txt_fffa
        lda #$e0
        sta $fffb

loc_e021:
        lda $d012
        bne loc_e021
        bit $d011
        bmi loc_e021
        ldx #$2d

loc_e02d:
        lda $f6df,x
        sta $cfff,x
        dex
        bne loc_e02d
        lda #$94
        sta $dd00
        lda #$01

loc_e03d:
        sta $d800,x
        sta $d900,x
        sta $da00,x
        sta $db00,x
        dex
        bne loc_e03d
        lda #$40
        sta $a0
        lda #$f5
        sta $a1
        cli

loc_e055:
        bit dat_f699
        bpl loc_e055
        ldx #$00
        stx $dc01
        stx $dc03
        dex
        stx $dc02

loc_e066:
.label loc_e068 = * + 2
        cpx $dc01
        bne loc_e066

loc_e06b:
        cpx $dc01
        beq loc_e06b
        sei

loc_e071:
        lda $e07c,x
        sta.abs $00ff,x
        dex
        bne loc_e071
        jmp $0100

dat_e07d:
        .byte $a9                                   // .

// --- Region $e097-$e3b4 ---
.pc = $e097 "loc_e097"

loc_e097:
.label loc_e099 = * + 2
        lda $ecb9,x
        sta dat_d000,x
        dex
        bpl loc_e097
        cli
        jmp loc_fce2

dat_e0a4:
        .byte $4c,$ae,$a7                           // L..
irq_e0a7: {
        pha
        txa
        pha
        tya
        pha
        lda $d019
        sta $d019
        and #$01
        beq skip
        jsr $e0bf
skip:
        pla
        tay
        pla
        tax
        pla
}