#379

Online 03

Online

1.264 lines of code

RasterbarsRSTRScrollerSCRLSpritesSPRTBitmapBMAP

History

Released
1988
Group
Online -- Germany, founded February 1988

The third numbered intro from Online, a German group founded in February 1988 with the motto "Quality is our slogan." Demozoo catalogues this as a 1988 cracktro classified as a 4K intro, and notably tags it as "no-sound" -- an unusual choice for the era when most groups used ripped SID tunes. The 4K size classification places this among the most compact crack intros, reflecting the practical constraint of fitting an intro alongside the cracked game on a single floppy disk. No individual coder or musician is credited for this particular production, though Doc Snyder's page documents other Online intros coded by Paradroid with music by Fred Gray. Comments on intros.c64.org from Paradroid himself confirm the coder's continued interest in the group's archived output. CSDb lists numerous Online releases under group ID 2837, documenting a substantial catalogue. This joins four other Online entries in the collection, including #437 online-01 and #832 online-02. Online operated during the peak of the German C64 scene.

Sources: Demozoo · Doc Snyder's Page · intros.c64.org

online-03.asm 1.264 lines
// ============================================
// output - Part 1 of 2
// ============================================
// 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:  $0818 (2072)
// IRQ handler:  $0c00 (irq_0c00)
// IRQ handler:  $0c1f (irq_0c1f)
// IRQ handler:  $0c39 (irq_0c39)
// IRQ handler:  $0c05 (irq_0c05)
//
// Code: 1029 bytes, Data: 62458 bytes
// Labels: 140, Subroutines: 11
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $0818-$081c ---
.pc = $0818 "main_0818"

main_0818:
        jmp loc_0d11

dat_081b:
        .byte $00,$00                               // ..

// --- Region $0a80-$0aa6 ---
.pc = $0a80 "loc_0a80"

loc_0a80:
        lda $0f4f
        sta tbl_lo_0f2e
        ldx #$20

loc_0a88:
        lda tbl_lo_0f2e,x
        sta $0f2f,x
        dex
        bpl loc_0a88
        lda $0f57
        sta $0f77
        ldx #$00

loc_0a99:
        lda tbl_hi_0f58,x
        sta $0f57,x
        inx
        cpx #$20
        bne loc_0a99
        jmp sub_0b98

// --- Region $0ac3-$0b88 ---
.pc = $0ac3 "sub_0ac3"
// Referenced by: jsr from $0c05

sub_0ac3:
        lda #$13
        sta $d018
        lda $12
        clc
        adc #$00
        sta $d016
        bit $02
        bit $02
        bit $02
        ldy #$00

loc_0ad8:
        cpy #$27
        bcs $0b06
        ldx #$07

loc_0ade:
        lda $0388,y
        sta $d021
        iny
        dex
        bmi loc_0ad8
        lda tbl_lo_0f28,y
        sta $d022
        lda tbl_hi_0f50,y
        sta $d023
        bit $02
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        bit $02
        bit $02
        sec
        bcs loc_0ade
        rts

loc_0b07:
        lda #$00
        ldx #$03

loc_0b0b:
        asl $03
        rol
        dex
        bne loc_0b0b
        clc
        adc #$d0
        sta $04
        lda #$00
        sta $dc0e
        lda #$33
        sta $01
        lda #$00
        sta $07
        lda #$05
        sta $02
        ldy #$00

loc_0b29:
        lda ($03),y
        sta $05
        iny
        lda ($03),y
        sta $06
        iny
        dec $02
        beq $0b57
        ldx #$04

loc_0b39:
        lda #$00
        asl $06
        rol
        asl $06
        rol
        asl $05
        rol
        asl $05
        rol
        sty $09