← #70 Top 1024 #72 →
#71

Madonna Cracking Group [MCG] 08

Madonna Cracking Group [MCG]

3.478 lines of code

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

History

Released
27 July 1988
Charset
Mr. Cursor
Group
Madonna Cracking Group — Germany, founded 1986

A minimalist production — only Mr. Cursor is credited (for the charset), with no coder or musician listed on CSDb. Madonna Cracking Group was a German outfit founded in 1986, named after the pop star in a practice common among 1980s cracking groups. The July 1988 release places this during MCG's active period. Mr. Cursor's involvement connects this intro to a wider web of German and international productions — his charset work and coding appears across #99 Fantasy Cracking Service, #55 Zenith, #20 Shining 8, and Genesis Project. The absence of other credits suggests either a lost attribution or a genuinely solo production where Mr. Cursor handled all aspects. MCG's name lent itself to a memorable abbreviation that appeared on numerous cracked game loading screens across Germany.

Sources: CSDb

mcg-08.asm 3.478 lines
// ============================================
// output - Part 1 of 2
// ============================================
// 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: $0800  End: $ffff  (63488 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $1700 (5888)
// IRQ handler:  $103f (irq_103f)
//
// Code: 1417 bytes, Data: 62071 bytes
// Labels: 453, Subroutines: 27
//
// Cross-references: all OK
// ============================================


// --- Region $0e09-$0e0d ---
.pc = $0e09 "sub_0e09"
// Referenced by: jsr from $fd1c

sub_0e09:
        .byte $97,$97                               // sax $97,y // ILLEGAL
        .byte $97,$97                               // sax $97,y // ILLEGAL

chr_0e0d:
        // === Charset data (1 bytes, $0e0d-$0e0d) ===
        .byte $97                                   // char 0 (partial)

// --- Region $0f14-$0f16 ---
.pc = $0f14 "sub_0f14"
// Referenced by: jsr from $fd19

sub_0f14:
        brk

chr_0f15:
        // === Charset data (1 bytes, $0f15-$0f15) ===
        .byte $00                                   // char 0 (partial)
// Referenced by: jsr from $fec6

sub_0f16:
        brk

// --- Region $1000-$101f ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $17ea

sub_1000:
        sei
        lda #$3f
        sta $0314
        lda #$10
        sta $0315
        ldx #$00
        stx $dc0e
        inx
        stx $d01a
        lda #$1b
        sta $d011
        lda #$32
        sta $d012
        cli
        rts

// --- Region $103f-$1099 ---
.pc = $103f "irq_103f"

irq_103f:
        lda #$01
        sta $d019
        lda #$32

loc_1046:
        cmp $d012
        bne loc_1046
        lda #$1b
        sta $d011
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        ldy #$00

loc_105b:
        ldx #$08
        lda $1100,y

loc_1060:
        sta $d020
        sta $d021
        iny
        dex
        beq loc_105b
        lda $1400,y
        sta $d022
        lda dat_1200,y
        sta $d016
        lda dat_1300,y
        sta $d018
        lda $1100,y
        cpy #$70
        bit $1fff
        nop
        nop
        bcs $108e
        bit $1fff
        clc
        bcc loc_1060
        lda #$a5

loc_1090:
        cmp $d012
        bne loc_1090
        jmp loc_1e78

scr_1098:
        // === Screen RAM (2 bytes, $1098-$1099) ===
        .encoding "screencode_mixed"
        .text "@@"
        .encoding "petscii_upper"

// --- Region $10a4-$10d9 ---
.pc = $10a4 "sub_10a4"
// Referenced by: jsr from $1eb6

sub_10a4:
        ldx #$00

loc_10a6:
        lda chr_1800,x
        sta $1100,x
.label smc_10ad = * + 1
.label smc_10ae = * + 2
        lda $12a0,x                                 // !SMC: modified by $17e2, $17e7, $1d4a, $1d4f
        sta $126f,x
        lda $1860,x
        sta $1140,x
        inx
        cpx #$33
        bcc loc_10a6
        ldx #$00