← #897 Top 1024 #899 →
#898

Morx 01

Morx

836 lines of code

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

History

Music
Fred Gray — "Frankie Goes to Hollywood" (ripped)
Group
Morx — Germany

A crack intro coded by Morx, a German scener (CSDb scener ID 11631) who produced a lengthy series of numbered intros throughout the mid-to-late 1980s. CSDb identifies this as "Morx Intro 04" (release ID 225828), featuring music ripped from Fred Gray's "Frankie Goes to Hollywood" game soundtrack — preserved in the HVSC. Morx was a member of Overseas International 1991 and also appeared under the names "Morx International 1991" and "Morx Software Team." The scener's primary role was coder, and the numbered intro series extends to at least twenty entries on CSDb, demonstrating sustained and prolific output. A collaboration reference — "Hey TMC and Morx" — links him to New Balance Bochum, another German group. The use of Fred Gray's music connects this intro to the broader practice of ripping professional game soundtracks, with Gray being one of the most frequently borrowed British composers in the C64 scene.

Sources: CSDb · intros.c64.org

morx-01.asm 836 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:  $1000 (4096)
//
// Code: 505 bytes, Data: 62982 bytes
// Labels: 70, Subroutines: 7
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $0814-$0819 ---
.pc = $0814 "loc_0814"

loc_0814:
        ora ($a2,x)
        ora $bd
        .byte $42                                   // jam // ILLEGAL

dat_0819:
        .byte $08                                   // .

// --- Region $1000-$10ee ---
.pc = $1000 "main_1000"

main_1000:
        lda #$ea
        sta $0328
        lda #$00
        sta $d020
        sta $d021
        lda #$08
        jsr $ffd2
        lda #$93
        jsr $ffd2
        lda #$18
        sta $d018
        lda #$96
        sta $d406
        sta $d401
        lda #$21
        sta $d405
        sta $d404
        lda #$05
        sta $d400
        lda #$0e
        sta $d418
        ldx #$55
        ldy #$1f

loc_103a:
        dey
        stx $d45f
        bne loc_103a
        dex
        stx $d401
        stx $d437
        bne loc_103a
        lda #$00
        sta $d418
        ldy #$00

loc_1050:
        lda $1100,y
        beq loc_1061
        jsr $ffd2
        bcs loc_1061
        jsr sub_1394
        iny
        jmp loc_1050

loc_1061:
        ldy #$00

loc_1063:
        lda $1200,y
        beq loc_1074
        jsr $ffd2
        bcs loc_1074
        jsr sub_1394
        iny
        jmp loc_1063

loc_1074:
        lda #$11
        jsr sub_10a4
        lda #$ff
        jsr sub_10a4
        lda #$cc
        jsr sub_10a4
        lda #$bb
        jsr sub_10a4
        lda #$bb
        jsr sub_10a4
        lda #$cc
        jsr sub_10a4
        lda #$ff
        jsr sub_10a4
        lda #$11
        jsr sub_10a4
        jmp loc_10db

dat_109f:
        .byte $00,$00,$00,$00,$00                   // .....

// Referenced by: jsr from $1076, $107b, $1080, $1085, $108a, $108f, $1094, $1099
sub_10a4: {
        ldx #$00
loop1:
        jsr sub_10b9
        inx
        cpx #$28
        bne loop1
        ldx #$00
        ldy #$1c
loop2:
        inx
        bne loop2
        dey
        bne loop2
        rts
}
// Referenced by: jsr from $10a6

sub_10b9:
        sta $d828,x
        sta $db98,x
        sta $d850,x
        sta $d877,x
        sta $d8a0,x
        sta $d8c7,x
        sta $db20,x
        sta $db70,x
        sta $dbc0,x
        sta $d970,x
        sta $da80,x
        rts

loc_10db:
        sta $10fa