#553

Mediator, The [TM] 01

Mediator, The [TM]

595 lines of code

RasterbarsRSTRMusicSID

History

Group
The Mediator — Germany

The sole ranked intro from The Mediator, a German cracking group documented on CSDb under group ID 3375. The group's membership included crackers Cutty Sark, Data Hacker, Hal, Kater Karlo, Snivi, and TCI, with Soma contributing code. CSDb lists approximately 50 releases, primarily cracks from 1985, placing The Mediator among the earliest German cracking operations. No founding or dissolution dates are recorded, but the concentration of releases in 1985 suggests a brief but active period. No specific credits for code, music, or graphics have been confirmed for this particular intro. Comments on intros.c64.org from Daison and Rough — both recognized scene cataloguers — confirm the production's visibility. The Mediator's early-era activity predates the wave of German groups that dominated the late 1980s scene, making it a representative example of the formative period when German crackers first established their presence on the platform.

Sources: CSDb Group · intros.c64.org

mediator-01.asm 595 lines
// ============================================
// output - Part 1 of 2
// ============================================
// 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: $da03  (53764 bytes)
// Note: PRG was crunched, depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $0813 (2067)
// IRQ handler:  $0813 (main_0813)
// IRQ handler:  $ea31 (irq_ea31)
// IRQ handler:  $09c2 (irq_09c2)
//
// Code: 531 bytes, Data: 53233 bytes
// Labels: 73, Subroutines: 8
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $0812-$0951 ---
.pc = $0812 "loc_0812"

loc_0812:
        brk

main_0813:
        sei
        lda #$13
        sta $0318
        lda #$08
        sta $0319
        cli
        lda #$06
        sta $d020
        sta $d021
        lda #$73
        ldy #$0b
        jsr sub_ab1e
        lda #$96
        sta $58
        sta $57
        ldx #$11
        ldy #$00
        jsr $e50c
        lda #$7b
        ldy #$0d
        jsr sub_ab1e
        jsr sub_0987
        jsr sub_0992
        jsr sub_0bb3
        jsr sub_0b94
        lda #$81
        sta $af

loc_0852:
        dec $57
        inc $58
        jsr sub_0b83
        jsr $ffe4
        cmp #$5f
        bne loc_0863
        jmp loc_08e3

loc_0863:
        lda $57
        cmp #$32
        bne loc_0852
        jsr sub_0987
        lda #$07
        sta $ae
        jsr sub_0d6c
        jsr sub_0987
        lda #$41
        sta $af
        lda #$53
        sta $8b
        lda #$0a
        sta $8c
        jsr sub_0987
        lda #$00
        sta $8d
        sta $0286
        sei
        lda #$b1
        sta $0314
        cli

loc_0893:
        ldx #$16
        ldy #$00
        jsr $e50c
        lda $8b
        ldy $8c
        jsr sub_ab1e
        lda $0286
        cmp #$01
        bne loc_08ab
        jsr sub_0b83

loc_08ab:
        lda #$16
        jsr sub_0985
        ldx $8d
        lda $0b78,x
        cmp #$ff
        beq loc_08c1
        sta $0286
        inc $8d
        jmp loc_0893

loc_08c1:
        lda #$00
        sta $8d
        clc
        lda $8b
        adc #$29
        sta $8b
        lda $8c
        adc #$00
        sta $8c
        ldx #$00
        lda ($8b,x)
        cmp #$ff
        beq loc_08e0
        jsr sub_0987
        jmp loc_0893

loc_08e0:
        jsr sub_0987

loc_08e3:
        ldx #$16
        jsr $e9ff
        jsr sub_0bb3
        lda #$06
        sta $ae
        jsr sub_0d6c
        lda #$81
        sta $af

loc_08f6:
        inc $57
        dec $58
        jsr sub_0b83
        lda $57