← #43 Top 1024 #45 →
#44

Orion 02

Orion

3.618 lines of code

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

History

Released
January 1989
Code
Emotional Mozes (Michel de Rooij)
Music
Orion Intro by Emotional Mozes (Michel de Rooij)
Group
Orion — Netherlands, founded January 1988

Ranked #44 on intros.c64.org, this Orion release is catalogued on CSDb as "Orion Intro 07" and dated January 1989. Doc Snyder's verified section for this intro — Crack Intro #02 on his numbering — credits Emotional Mozes, real name Michel de Rooij, for both code and music; CSDb confirms the same code credit. The SID tune is titled "Orion Intro" and preserved in the HVSC under de Rooij's composer directory. The scrolltext greets Ikari, ATC, Paramount, Hotline, Elite, Beastie Boys, Rampar, Bros, Destiny, FBR, UCF, DCS, Scouse, Fairlight, 2000 AD, Triangle, Manowar, Radion and Crusade, and notes that the cracked game was imported and fixed by Orion after being cracked by A Touch of Class. Orion were a Dutch group founded in January 1988.

Sources: CSDb · docsnyderspage

orion-02.asm 3.618 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:28
// 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:  $1000 (4096)
// IRQ handler:  $10c7 (irq_10c7)
// IRQ handler:  $1127 (irq_1127)
// IRQ handler:  $115d (irq_115d)
// IRQ handler:  $1183 (irq_1183)
// IRQ handler:  $11ba (irq_11ba)
// IRQ handler:  $edb1 (loc_edb1)
//
// Code: 4161 bytes, Data: 59327 bytes
// Labels: 402, Subroutines: 25
//
// Cross-references: all OK
// ============================================


// --- Region $0ad8-$0afa ---
.pc = $0ad8 "sub_0ad8"
// Referenced by: jsr from $114d

sub_0ad8:
        inc $98
        lda $98
        cmp #$02
        beq loc_0ae1
        rts

loc_0ae1:
        lda #$00
.label loc_0ae4 = * + 1
        sta $98
        ldx $97
        lda $0cd8,x
        sta smc_10e9                                // SMC: modifies $10e9
        inc $97
        lda $97
        cmp #$10
        beq loc_0af6
        rts

loc_0af6:
        lda #$00
        sta $97
        rts

// --- Region $0dd8-$0dec ---
.pc = $0dd8 "sub_0dd8"
// Referenced by: jsr from $114a

sub_0dd8:
        ldx $2e
        lda $1270,x
        sta $2d
        inc $2e
        lda $2e
        cmp #$80
        bne loc_0deb
        lda #$00
        sta $2e

loc_0deb:
        rts

chr_0dec:
        // === Charset data (1 bytes, $0dec-$0dec) ===
        .byte $00                                   // char 0 (partial)

// --- Region $0e28-$0e2e ---
.pc = $0e28 "sub_0e28"
// Referenced by: jsr from $11f2

sub_0e28:
        jsr sub_18e0
        jsr sub_177a
        rts

// --- Region $1000-$1200 ---
.pc = $1000 "main_1000"

main_1000:
        jsr sub_11f8
        sei
        lda #$01
        sta $d019
        sta $d01a
        sta $dc0d
        lda #$1b
        sta $d011
        lda #$10
        ldx #$c7
        sta $0315
        stx $0314
        lda #$1a
        ldx #$a0
        sta smc_1094                                // SMC: modifies $1094
        stx smc_1093                                // SMC: modifies $1093
        lda #$00
        sta $2e
        sta $97
        sta $98
        sta $6c
        sta $50
        sta $51
        sta $26
        sta $27
        sta $28
        sta $34
        lda #$1c
        ldx #$90
        sta $37
        stx $36
        lda #$1d
        ldx #$70
        sta $32
        stx $31
        lda #$00
        sta $52
        sta $53
        sta $55
        sta $56
        lda #$c7
        sta $38
        sta $30
        lda #$00
        sta $d020
        sta $d021
        cli
        ldx #$00

loc_1069:
        lda txt_1400,x
        sta $0400,x
        lda #$0e
        sta $d800,x
        inx
        bne loc_1069
        ldy #$15
        lda #$00
        jsr sub_ab1e

loc_107e: