#760

Mr. Fiend 01

Mr. Fiend

357 lines of code

History

Released
March 1987
Group
Trianon — Germany, founded 1986

An intro attributed to Mr. Fiend — real name Chris — a German scener who was a member of Trianon from 1986 to October 1987. CSDb catalogues this as "Mr.Fiend Intro" (release ID 102789), released in March 1987 under the Trianon banner. The intro was used in the crack "Delta +" by Trianon. Mr. Fiend's handle derived from his fandom of the band Alien Sex Fiend. He went on to found both Octagon (1988) and Paramount (January 1989) — the latter being the successor to Madonna Cracking Group, whose intros appear at #71 MCG-08, #383 MCG-06, and #648 MCG-02. His career also included stints with Beastie Boys, Fantasy Cracking Service, Frankenstein Cracking Service, and The Magic Breakers. Over 100 releases are credited to Mr. Fiend across these groups, establishing him as one of the more active German crackers of the 1985-1989 period.

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

mrfiend-01.asm 357 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:57
// 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:  $cf30 (53040)
//
// Code: 129 bytes, Data: 63358 bytes
// Labels: 44, Subroutines: 0
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


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

// --- Region $ca30-$ca53 ---
.pc = $ca30 "loc_ca30"

loc_ca30:
        jsr $e544
        lda #$0f
        sta $d020
        sta $d021
        lda #$47
        sta.abs $002d
        sta.abs $002f
        sta.abs $0031
        lda #$93
        sta.abs $002e
        sta.abs $0030
        sta.abs $0032
        jmp loc_fce2

// --- Region $cf30-$cf6d ---
.pc = $cf30 "main_cf30"

main_cf30:
        jsr $e544

loc_cf33:
        lda dat_c200,x
        sta $0400,x
        lda $c300,x
        sta $0500,x
        lda $c400,x
        sta $0600,x
        lda $c500,x
        sta $0700,x
        inx
        bne loc_cf33
        lda #$01
        ldx #$00

loc_cf52:
        sta $d800,x
        sta $d900,x
        sta $da00,x
        sta $db00,x
        inx
        bne loc_cf52
        lda #$e1
        sta $0328

loc_cf66:
        jsr $ffe4
        beq loc_cf66
        jmp loc_ca30

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

// --- Region $fce2-$fce2 ---
.pc = $fce2 "loc_fce2"

loc_fce2:
        brk

// --- Region $ffe2-$fffd ---
.pc = $ffe2 "loc_ffe2"

loc_ffe2:
        sta $d800,x
        sta $d900,x
        sta $da00,x
        sta $db00,x
        inx
        bne loc_ffe2
        lda #$e1
        sta $0328

loc_fff6:
        jsr $ffe4
        beq loc_fff6
        jmp loc_ca30

// ============================================
// Data blocks
// ============================================

// --- Region $0801-$0aaa ---
.pc = $0801 "dat_0801"

dat_0801:
        // === BASIC loader stub ===
        .byte $0d,$08                                                     // [corrected] was: .byte $0c,$08                               // next line pointer ($080c)
        .byte $ce,$07                                                     // [corrected] was: .byte $00,$00                               // line number 0
        .byte $9e                                   // SYS token
        .byte $20,$28,$32,$30,$36
        .byte $34                                                         // [corrected] was: .byte $00                                   // end of line
        .byte $29,$00                                                     // [corrected] was: .byte $00,$00                               // end of BASIC program
        .byte $00,$00,$78,$a9,$34,$85,$01,$a2,$05,$bd,$42,$08,$9d,$2d,$00,$ca // ..x.4.....B..-..
        .byte $10,$f7,$9a,$a0,$00,$c6,$32,$ce,$2c,$08,$b1,$31,$99,$00,$fe,$c8 // ......2.,..1....
        .byte $d0,$f8,$a5,$32,$c9,$08,$d0,$ed,$b9,$48,$08,$99,$00,$01,$c8,$d0 // ...2.....H......
        .byte $f7
        .byte $4c,$00,$01,$00,$c2,$8e,$fe,$ab,$0a,$b1
        .text "/****"
        .byte $29,$07,$aa,$bd,$1a,$01,$8d,$18,$01,$b1,$2f,$29,$1f,$aa,$20,$22 // )........./).. "
        .byte $01
        .byte $4c,$ff,$01,$a4
        .byte $43,$ab,$79
        .text "X;?)"
        .byte $e6
        .byte $2f,$d0,$02
        .byte $e6,$30,$60,$b1,$2f,$20,$22,$01,$91,$2d,$e6,$2d,$d0,$02,$e6,$2e // .0`./ "..-.-....
        .byte $ca,$d0,$f5,$f0,$c5,$a9,$00,$f0,$ef,$a9,$ff,$d0,$eb,$b1,$2f,$91 // ............../.
        .byte $2d,$e6,$2f,$d0,$02,$e6,$30,$e6,$2d,$d0,$02,$e6,$2e,$ca,$d0,$ed // -./...0.-.......
        .byte $f0,$a8,$20,$71,$01,$b1,$2f,$20,$22,$01,$91,$2d,$e6,$2d,$d0,$02 // .. q../ "..-.-..
        .byte $e6,$2e,$ca,$d0,$f5,$c6,$39,$10,$f1,$30,$8f,$86,$39,$b1,$2f,$aa // ......9..0..9./.
        .byte $4c,$22,$01,$20,$71,$01,$b1,$2f,$91,$2d,$e6,$2f,$d0,$02,$e6,$30 // L". q../.-./...0
        .byte $e6,$2d,$d0,$02,$e6,$2e,$ca,$d0,$ed,$c6,$39,$10,$e9,$4c,$00,$01 // .-........9..L..
        .byte $2c,$da,$01,$a9,$37,$85,$01,$58,$20,$30,$cf,$4c,$ae,$a7,$e0,$00 // ,...7..X 0.L....
        .byte $f0,$ee,$a9,$04,$2c,$a9,$08,$85,$ff,$b1,$2f,$91,$2d,$c8,$c4,$ff // ....,...../.-...
        .byte $d0,$f7,$18,$a5,$2d,$65,$ff,$85,$2d,$a5,$2e,$69,$00,$85,$2e,$a0 // ....-e..-..i....
        .byte $00,$ca,$d0,$e5,$18,$a5,$2f,$65,$ff,$85,$2f,$a5,$30,$69,$00,$85 // ....../e../.0i..
        .byte $30,$4c,$00,$01,$b9,$00,$ef,$99,$00,$ff,$c8,$d0,$f7,$ce,$dc,$01 // 0L..............
        .byte $ce,$df,$01,$ad,$df,$01,$c9,$df,$d0,$ea,$60,$80,$84,$20,$2d,$15 // ..........`.. -.
        .byte $13,$08,$09,$20,$2d,$20,$0d,$01,$14,$01,$20,$21,$80,$44,$20,$2a // ... - .... !.D *
        .byte $02,$19,$20,$0d,$01,$12,$14,$05,$03,$08,$80,$39,$20,$80,$28,$2d // .. ........9 .(-
        .byte $80,$52,$20,$60,$25,$12,$05,$2d,$06,$12,$0f,$01,$1a,$05,$0e,$20 // .R `%..-.......