← #801 Top 1024 #803 →
#802

Oase 02

Oase

3.436 lines of code

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

History

Released
August 1991
Code
Peppie
Graphics
Tim
Music
JCH (Jens-Christian Huus) -- "No Birthday!"; Markus Schneider -- "Apoxoly"
Group
Oase -- Netherlands, founded October 1988

This Oase crack intro shares the same CSDb release entry (ID 97717) as #994 oase-01, both mapping to the August 1991 production with code by Peppie, graphics by Tim, and dual music from JCH and Markus Schneider. The two intros.c64.org entries likely represent different versions or variants of the same underlying release -- a common occurrence when groups issued multiple builds of their intro code. Oase was a Dutch group founded in October 1988, and CSDb documents at least five distinct intros plus a dedicated intro-making tool called "Oase Intro Maker V1.1." JCH's "No Birthday!" and Schneider's "Apoxoly" are both preserved in the HVSC. The group's development of an intro-maker tool suggests a methodical approach to production, automating the assembly of standard components. Despite this output, Oase left no footprint on Doc Snyder's page, Demozoo, or other major archives -- their documentation surviving almost entirely through CSDb.

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

oase-02.asm 3.436 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:21
// 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:  $0fc0 (4032)
// IRQ handler:  $1078 (irq_1078)
//
// Code: 3271 bytes, Data: 60217 bytes
// Labels: 384, Subroutines: 14
//
// Cross-references: all OK
// ============================================


// --- Region $0893-$0c41 ---
.pc = $0893 "sub_0893"

// Referenced by: jsr from $10b1, $ed7f
sub_0893: {
        ldy $0890
        bmi skip
        beq done1
        jmp loc_0c01
done1:
        sty $d418
        rts
skip:
        ldx #$02
loop:
        jsr sub_08b9
        dex
        bpl loop
        dec $082f
        bpl done2
        lda #$03
        sta $082f
done2:
        lda #$ff
        sta $0891
        rts
}

// Referenced by: jsr from $08a3, $e5e1
sub_08b9: {
        lda $082f
        bne skip1
        dec dat_082c,x
        bne skip1
        jmp loc_0ad3
skip1:
        lda $0833,x
        bne skip2
        sta $087b,x
        sta $087e,x
        lda $085d,x
        bne skip2
        sta $0887,x
        sta $088a,x
        sta $0842,x
        sta $0881,x
        ldy txt_083c,x
        lda $0dae,y
        sta $085a,x
        lda $0db2,y
        and #$0f
        sta $088d,x
        lda $0db0,y
        pha
        lda $0db1,y
        ldy $0d02,x
        sta $d406,y
        pla
        sta $d405,y
skip2:
        inc $0833,x
        lda $0866,x
        bpl skip4
        ldy $0869,x
        lda $0d23,y
        sta $fe
        lda $0d26,y
        sta $ff
        ldy $0860,x
        lda ($fe),y
        cmp #$ff
        beq skip3
        inc $0860,x
        sta $085a,x
skip3:
        ldy $0863,x
        lda ($fe),y
        cmp #$80
        beq skip4
        inc $0863,x
        sta $0842,x
skip4:
        lda $083f,x
        clc
        adc $0842,x
        tay
        lda $0866,x
        and #$08
        bne skip5
        tya
        adc $0845,x
        tay
skip5:
        sty $ff
        lda dat_0c42,y
        sta $0872,x
        lda $0ca2,y
        sta $0875,x
        lda $0878,x
        beq skip6
        jsr sub_0aa7
skip6:
        lda txt_086f,x
        beq skip7
        jsr sub_0a6a
skip7:
        lda $0866,x
        and #$01
        beq skip8
        lda $086c,x
        and #$1c
        asl
        cmp $0833,x
        bcs skip8
        jsr sub_09d8
skip8:
        lda $0833,x
        cmp #$02
        bne skip9
        lda $0866,x
        and #$40
        beq skip9
        lda #$81
        sta $085a,x
        lda #$f0
        sta $0875,x
        bne skip10
skip9:
        cmp #$03
        bne skip10