← #436 Top 1024 #438 →
#437

Online 01

Online

4.355 lines of code

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

History

Released
1988
Code
Paradroid
Music
Fred Gray — Hysteria
Group
Online — Germany, founded February 1988

This Online crack intro from 1988 is catalogued on CSDb as release #182994 under the name "Online Intro." Paradroid coded the intro while Fred Gray's "Hysteria" provides the soundtrack, preserved in the HVSC. Both credits are confirmed by Doc Snyder's page, which lists this as Online's sole catalogued intro. Online was a German cracking group founded in February 1988 with the tagline "Quality is our slogan." Demozoo also documents the release, classifying it as both a cracktro and an 8K intro, with a specific date of 7 May 1988 — though under a different CSDb release ID. Fred Gray was a professional game musician whose compositions were frequently ripped for use in crack intros across the European scene. Online operated during the peak period of German C64 cracking, when the country hosted the largest concentration of active groups anywhere in the world. The group's name appears in scrolltext greetings from contemporary groups like Lazer, confirming their presence in the late-1980s trading network.

Sources: CSDb · docsnyderspage · Demozoo

online-01.asm 4.355 lines
// ============================================
// output - Part 1 of 6
// ============================================
// 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: $0801  End: $ffff  (63487 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $1e00 (7680)
//
// Code: 3813 bytes, Data: 59674 bytes
// Labels: 497, Subroutines: 28
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $0848-$0862 ---
.pc = $0848 "loc_0848"

loc_0848:
        lda ($2f),y
        rol
        rol
        rol
        rol
        and #$07
        tax
        lda $011a,x
        sta $0118
        lda ($2f),y
        and #$1f
        tax
        jsr $0122
        jmp $01ff

dat_0862:
        .byte $a4                                   // .

// --- Region $086f-$08de ---
.pc = $086f "loc_086f"

loc_086f:
        bmi loc_08d1
        lda ($2f),y
        jsr $0122

loc_0876:
        sta ($2d),y
        inc $2d
        bne loc_087e
        inc $2e

loc_087e:
        dex
        bne loc_0876
        beq loc_0848
        lda #$00
        beq loc_0876
        lda #$ff
        bne loc_0876

loc_088b:
        lda ($2f),y
        sta ($2d),y
        inc $2f
        bne loc_0895
        inc $30

loc_0895:
        inc $2d
        bne loc_089b
        inc $2e

loc_089b:
        dex
        bne loc_088b
        beq loc_0848
        jsr $0171
        lda ($2f),y
        jsr $0122

loc_08a8:
        sta ($2d),y
        inc $2d
        bne loc_08b0
        inc $2e

loc_08b0:
        dex
        bne loc_08a8
        dec $39
        bpl loc_08a8
        bmi loc_0848
        stx $39
        lda ($2f),y
        tax
        jmp $0122

loc_08c1:
        jsr $0171

loc_08c4:
        lda ($2f),y
        sta ($2d),y
        inc $2f
        bne loc_08ce
        inc $30

loc_08ce:
        inc $2d
.label loc_08d1 = * + 1
        bne loc_08d4
        inc $2e

loc_08d4:
        dex
        bne loc_08c4
        dec $39
        bpl loc_08c4
        jmp $0100

dat_08de:
        .byte $2c                                   // ,

// --- Region $0927-$0991 ---
.pc = $0927 "loc_0927"

loc_0927:
        and ($ed,x)
        ldx #$00
        jsr sub_0a29
        ldx #$07
        jsr sub_0a29
        ldx #$0e
        jsr sub_0a29
        jmp loc_0a41

loc_093b:
        lda $10fc,x
        sta $d406,x
        sta $0a06,x
        jsr sub_1226
        jsr sub_10c2
        jsr sub_1065
        jsr sub_0ee2