← #702 Top 1024 #704 →
#703

Orion 03

Orion

1.034 lines of code

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

History

Released
August 1988
Code
The Scientific Man
Graphics
HPH
Music
Rock (Sami Seppa) — Faraway
Group
Orion — Netherlands, founded January 1988

Catalogued on CSDb as release #132766 — "Orion Intro 18" — this crack intro was released in August 1988. The Scientific Man coded the intro, HPH created the graphics, and Rock — Sami Seppa — composed the SID tune "Faraway," preserved in the HVSC. Doc Snyder's page lists it as Orion Crack Intro #03 and confirms all three credits. The scrolltext references an import of "Red Storm Rising" obtained by Eaglesoft Inc., and sends greetings to groups including the Scousers, Ikari, Wizax, Powerrun, Science 451, Fairlight, Dominators, and Triad, with USA greetings to Blackbeard, Epic, ATC, UCF, and others. Orion was a Dutch group founded in January 1988 with the tagline "Follow the leader." Released just seven months after the group's founding, this intro demonstrates the rapid pace at which new cracking crews established themselves during the C64 scene's peak years. Rock — a Finnish musician — illustrates the international reach of SID composers contributing to Dutch groups.

Sources: CSDb · docsnyderspage

orion-03.asm 1.034 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:26
// 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:  $0f46 (3910)
//
// Code: 339 bytes, Data: 63149 bytes
// Labels: 106, Subroutines: 2
//
// Cross-references: all OK
// ============================================


// --- Region $0ed0-$0f28 ---
.pc = $0ed0 "loc_0ed0"

loc_0ed0:
        ldx #$00
        txa

loc_0ed3:
        lda $0f70,x
        sta $d000,x
        inx
        bne loc_0ed3
        lda #$13
        ldx #$60
        stx $1628
        sta $1629
        sei
        lda #$7f
        sta $dc0d
        lda #$01
        sta $d019
        sta $d01a
        lda #$10
        ldx #$00
        stx $0314
        sta $0315
        cli

loc_0eff:
        lda $dc01
        cmp #$ef
        bne loc_0eff
        sei
        jsr $fda3
        jsr $fd15
        jsr $ff81
        cli
        jsr $e518
        ldx #$00

loc_0f16:
        lda dat_0f28,x
        sta $0400,x
        inx
        cpx #$1e
        bne loc_0f16
        lda #$36
        sta $01
        jmp $0400

dat_0f28:
        .byte $a2                                   // .

// --- Region $0f46-$0f7f ---
.pc = $0f46 "main_0f46"

main_0f46:
        jsr sub_10f0
        lda #$00
        tax

loc_0f4c:
        lda txt_1150,x
        sta $0608,x
        clc
        adc #$40
        sta $0630,x
        inx
        cpx #$28
        bne loc_0f4c
        lda #$00
        tax

loc_0f60:
        sta $da08,x
        inx
        cpx #$50
        bne loc_0f60
        lda #$00
        sta $160b
        lda #$00
        sta $033c
        lda #$00
        sta $02
        lda #$00
        sta $0801
        jmp loc_0ed0

dat_0f7e:
        .byte $00,$00                               // ..

// --- Region $10e0-$10fb ---
.pc = $10e0 "sub_10e0"
// Referenced by: jsr from $10f3

sub_10e0:
        lda #$0c
        ldx #$00

loc_10e4:
        sta $d800,x
        sta $d900,x
        inx
        bne loc_10e4
        rts

dat_10ee:
        .byte $00,$00                               // ..
// Referenced by: jsr from $0f46

sub_10f0:
        jsr $e544
        jsr sub_10e0
        lda #$00
        sta $0800
        rts

// --- Region $1247-$1277 ---
.pc = $1247 "loc_1247"

loc_1247:
        lda $1408,x
        sta $0478,y
        lda $1458,x
        sta $04a0,y
        lda $14a8,x
        sta $04c8,y
        lda $14f8,x
.label loc_125d = * + 1
        sta $04f0,y
        inx