← #143 Top 1024 #145 →
#144

Mr. Z 01

Mr. Z

624 lines of code

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

History

Released
November 1984
Group
Mr. Z / Triad — Sweden

A crack intro by Mr. Z — a Swedish coder and cracker who co-founded Triad, one of the most enduring groups in C64 history. CSDb documents Mr. Z (scener ID 8072) as a Triad member from 28 July 1986 to June 1987, with over 200 releases to his name. His earliest documented intro (CSDb release ID 102797) dates to November 1984, and his later "Mr. Z intro" from March 1987 was used in over 400 Triad cracks — an extraordinary figure. Mr. Z's intros were characterised by distinctive striped patterns, and he embedded dates in a unique encoding format using the string "baaabonm" in reverse video. His TRIAD-era intros also appear at CSDb under IDs 53379 and 107321. The ranking of this intro at position 144 — the highest of all the Mr. Z entries — reflects the community's recognition of his foundational contributions to Swedish cracking culture. Mr. Z's prolific output during 1984-1987 helped establish Triad's early reputation.

Sources: CSDb · CSDb Scener · intros.c64.org

mrz-01.asm 624 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:29
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0801  End: $ffff  (63487 bytes)
// Crunched with NSU Packer 1.1 — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $c000 (49152)
// IRQ handler:  $c21c (irq_c21c)
// IRQ handler:  $c25d (irq_c25d)
//
// Code: 475 bytes, Data: 63012 bytes
// Labels: 49, Subroutines: 4
//
// Verification: 4 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $8dd0-$8dd0 ---
.pc = $8dd0 "Segment $8dd0"
        brk

// --- Region $c000-$c07c ---
.pc = $c000 "main_c000"

main_c000:
        jsr sub_c076
        jsr sub_c1f8
        ldy #$00
        ldx #$00
        lda #$06
        sta $fb
        jsr sub_c294

loc_c011:
        lda #$00
        sta $dc00
        lda $dc01
        cmp #$ff
        bne loc_c027
        iny
        bne loc_c011
        inx
        bne loc_c011
        dec $fb
        bne loc_c011

loc_c027:
        jsr $ff81
        jsr $ff84
        jsr $ff8a
        jsr $e518
        ldx #$00

loc_c035:
        lda dat_c300,x
        sta $0800,x
        inx
        cpx #$15
        bne loc_c035
        ldx #$40

loc_c042:
        lda dat_c300,x
        sta $f500,x
        inx
        bne loc_c042
        sei
        lda #$35
        sta $01
        lda #$e6
        ldx #$f6
        ldy #$0a
        jsr sub_c06d
        lda #$37
        sta $01
        cli
        lda #$cc
        ldx #$04
        ldy #$04
        jmp loc_fce2

dat_c067:
        .byte $20,$9b,$c1,$4c,$e2,$fc               //  ..L..
// Referenced by: jsr from $c056

sub_c06d:
        sta $fb
        stx $fc
        sty $fd
        jmp loc_c15a
// Referenced by: jsr from $c000, $c15c

sub_c076:
        .byte $af,$e7,$c0                           // lax $c0e7 // ILLEGAL
        .byte $df,$2c,$c1                           // dcp $c12c,x // ILLEGAL

dat_c07c:
        .byte $ff                                   // .

// --- Region $c15a-$c165 ---
.pc = $c15a "loc_c15a"

loc_c15a:
        .byte $f4,$d9                               // nop $d9,x // ILLEGAL
        jsr sub_c076
        .byte $af,$59,$c1                           // lax $c159 // ILLEGAL
        .byte $0b,$ff                               // anc #$ff // ILLEGAL

dat_c164:
        .byte $eb,$80                               // ..

// --- Region $c1f8-$c2a0 ---
.pc = $c1f8 "sub_c1f8"
// Referenced by: jsr from $c003

sub_c1f8:
        sei
        lda #$1c
        sta $0314
        lda #$c2
        sta $0315
        lda #$01
        sta $d01a
        lda #$7f
        sta $dc0d
        lda #$c1
        sta $0318
        lda #$02
        sta $8c
        lda #$00
        sta $8b
        cli
        rts

irq_c21c:
        ldy #$1b
        nop
        nop
        nop
        inc $8b
        ldx $8b
        lda $c2a2,x
        sta $d020
        sta $d021