← #382 Top 1024 #384 →
#383

Madonna Cracking Group [MCG] 06

Madonna Cracking Group [MCG]

2.026 lines of code

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

History

Group
Madonna Cracking Group — Germany, founded 1986

The sixth numbered intro from Madonna Cracking Group, a prolific German outfit that produced over 300 releases between 1986 and its dissolution in January 1989. MCG operated as a cracking, demo, and importing group with a substantial membership including coders Tommy and Tom, cracker Maniac, and graphician Scratcher. The group had subgroups including F7CG and Twilight. No individual credits for this particular intro have been recovered from CSDb or other archives. MCG's highest-ranked entry — #71 MCG-08 — credits Mr. Cursor for the charset, while the remaining entries at #648 MCG-02 and #860 MCG-07 lack individual attributions. The group name, borrowed from the pop star, exemplified the playful naming conventions of 1980s German cracking crews. After members faced legal trouble, MCG reformed as Paramount in January 1989.

Sources: CSDb Group · intros.c64.org

mcg-06.asm 2.026 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: $0800  End: $ffff  (63488 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $114c (4428)
// IRQ handler:  $1199 (irq_1199)
//
// Code: 1436 bytes, Data: 62052 bytes
// Labels: 195, Subroutines: 10
//
// Cross-references: all OK
// ============================================


// --- Region $0814-$0818 ---
.pc = $0814 "sub_0814"
// Referenced by: jsr from $1237, $1432

sub_0814:
        .byte $fc,$ee,$fc                           // nop $fcee,x // ILLEGAL
        brk

spr_0818:
        // === Screen RAM (1 bytes, $0818-$0818) ===
        .encoding "screencode_mixed"
        .text "@"
        .encoding "petscii_upper"

// --- Region $0a70-$0aaf ---
.pc = $0a70 "sub_0a70"
// Referenced by: jsr from $114c

sub_0a70:
        lda #$09
        sta $0286
        jsr $e544
        lda #$0c
        sta $d022
        lda #$0b
        sta $d023
        lda #$00
        sta $d020
        sta $d021
        ldx #$00

loc_0a8c:
        lda txt_0b06,x
        sta $0546,x
        inx
        bne loc_0a8c

loc_0a95:
        lda tbl_0c00,x
        sta $0640,x
        inx
        cpx #$df
        bne loc_0a95
        lda #$d8
        sta $d016
        lda #$12
        sta $d018
        lda #$01
        sta $0286
        rts

// --- Region $0d00-$0d4c ---
.pc = $0d00 "sub_0d00"
// Referenced by: jsr from $114f

sub_0d00:
        lda #$00
        ldx #$00

loc_0d04:
        sta $d946,x
        sta $dafe,x
        inx
        cpx #$1c
        bne loc_0d04
        ldy #$00
        lda #$6e
        sta $fa
        lda #$d9
        sta $fb

loc_0d19:
        lda #$00
        sta ($fa),y
        lda $fa
        clc
        adc #$1b
        bcc loc_0d26
        inc $fb

loc_0d26:
        sta $fa
// Referenced by: jsr from $1219

sub_0d28:
        lda #$00
        sta ($fa),y
        lda $fa
        clc
        adc #$0d
        bcc loc_0d35
        inc $fb

loc_0d35:
        sta $fa
        inx
        cpx #$26
        bne loc_0d19
        ldx #$00

loc_0d3e:
        lda chr_0d4d,x
        sta $d946,x
        sta $db0c,x
        inx
        cpx #$0e
        bne loc_0d3e
        rts

// --- Region $0d5b-$0e01 ---
.pc = $0d5b "loc_0d5b"

loc_0d5b:
        lda $d946
        sta $033e
        ldx #$00

loc_0d63:
        lda $d947,x
        sta $d946,x
        inx
        cpx #$1c
        bne loc_0d63
        lda $d989
        sta $d961
        lda $d9b1
        sta $d989
        lda $d9d9
        sta $d9b1
        lda $da01