← #910 Top 1024 #912 →
#911

Online 04

Online

2.215 lines of code

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

History

Released
7 November 1988
Music
Mike (Michael Hendriks) — "Cave of Thoughts"; Jeroen Soede — "Funky Stuff"
Group
Online — Germany, founded February 1988

Released on 7 November 1988, this is a two-SID crack intro from Online — the German group founded in February 1988 with the tagline "Quality is our slogan." Mike (Michael Hendriks) contributed "Cave of Thoughts" and Jeroen Soede composed "Funky Stuff" — both preserved in the HVSC. Both musicians are Dutch, reflecting the close cross-border ties between the German and Netherlands scenes. No coder or graphic artist is individually credited on CSDb. Demozoo also catalogues this release, classifying it as both a cracktro and an 8K intro. This intro joins #437 Online-01 and #379 Online-03 among the group's ranked entries. Online released this production nine months after the group's formation, by which point they had already built a small catalogue. Doc Snyder's page documents a separate Online intro coded by Paradroid with music by Fred Gray, confirming the group's consistent pattern of featuring prominent musicians.

Sources: CSDb · Demozoo · docsnyderspage

online-04.asm 2.215 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:23
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $2002  (6147 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $1d00 (7424)
//
// Code: 2070 bytes, Data: 4077 bytes
// Labels: 211, Subroutines: 10
//
// Cross-references: all OK
// ============================================


// --- Region $0a00-$0af5 ---
.pc = $0a00 "loc_0a00"

loc_0a00:
        ldx #$00

loc_0a02:
        lda $07c1,x
        sta $07c0,x
        lda $06a9,x
        sta $06a8,x
        lda $06d1,x
        sta $06d0,x
        lda $06f9,x
        sta $06f8,x
        lda $0721,x
        sta $0720,x
        lda $0749,x
        sta $0748,x
        lda $0771,x
        sta $0770,x
        lda $0799,x
        sta $0798,x
        inx
        cpx #$27
        bne loc_0a02
        ldy $0f
        lda $0238,y
        sta $07e7
        lda $0200,y
        sta $06cf
        lda $0208,y
        sta $06f7
        lda $0210,y
        sta $071f
        lda $0218,y
        sta $0747
        lda $0220,y
        sta $076f
        lda $0228,y
        sta $0797
        lda $0230,y
        sta $07bf
        inc $0f
        lda $0f
        cmp #$08
        beq loc_0a72
        rts

loc_0a72:
        lda #$00
        sta $0335
        rts
// Referenced by: jsr from $0af2

sub_0a78:
        lda #$00
        sta $03
        sta $0f

loc_0a7e:
        ldy #$00
        lda ($b0),y
        bne loc_0a8e
// Referenced by: jsr from $1d8c

sub_0a84:
        ldx #$00
        ldy #$1e
        stx $b0
        sty $b1
        bne loc_0a7e

loc_0a8e:
        ldx #$03

loc_0a90:
        asl $03
        clc
        asl
        bcc loc_0a98
        inc $03

loc_0a98:
        dex
        bne loc_0a90
        sta $02
        lda $03
        clc
        adc #$08
        sta $03
        inc $b0
        bne loc_0aaa

chr_0aa8:
        // === Charset data (2 bytes, $0aa8-$0aa9) ===
        .byte $e6,$b1                               // char 0 (partial)

loc_0aaa:
        ldx #$08
        ldy #$00

loc_0aae:
        lda #$02
        sty $0e
        jsr sub_0abf
        clc
        lda $0e
        adc #$08
        tay
        dex
        bne loc_0aae
        rts

// Referenced by: jsr from $0ab2
sub_0abf: {
        sty $10
        sta $11
        lda #$80
        sta $1b
        ldy #$00
        lda ($02),y
        eor #$ff
        sta $ba
loop:
        lda $ba
        and $1b
        beq skip1
        lda #$1c
        sta ($10),y
        jmp $0ae0