#574

Arcade 01

Arcade

4.905 lines of code

RasterbarsRSTRMusicSIDScrollerSCRLSpritesSPRT

History

Released
29 May 1992
Group
Arcade & Deadline — Germany
Graphics
Telemachus
Music
Deek (Richard Rinn) — For Paradize; Rob Hubbard — Thanatos

This joint crack intro from Arcade and Deadline is catalogued on CSDb as release #73884, dated 29 May 1992. CSDb credits Telemachus for graphics, with two SID tunes — "For Paradize" by Deek (Richard Rinn) and "Thanatos" by Rob Hubbard — both preserved in the HVSC. The coder is not individually named on CSDb. Doc Snyder's archive lists this as Arcade's first crack intro, crediting Telemachus for both code and artwork with Hubbard's "Thanatos" as the soundtrack. Arcade was founded on 23 April 1992 in Germany under the motto "We Are Perfect," making this joint intro one of the group's earliest releases. The scrolltext announces a crack of "DJ Puff's Volcanic Capers" from Codemasters by Derbyshire Ram, cracked on 24 June 1992, with greetings spanning Accuracy, Active, Fairlight, F4CG, Crest, Hitmen, and many others.

Sources: CSDb · intros.c64.org · docsnyderspage

arcade-01.asm 4.905 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:08
// 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:  $2200 (8704)
// IRQ handler:  $2313 (irq_2313)
// IRQ handler:  $233f (irq_233f)
// IRQ handler:  $2371 (irq_2371)
// IRQ handler:  $2395 (irq_2395)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 5386 bytes, Data: 58101 bytes
// Labels: 530, Subroutines: 14
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $0814-$0819 ---
.pc = $0814 "sub_0814"
// Referenced by: jsr from $fde2

sub_0814:
        ora ($a2,x)
        ora $bd
        .byte $42                                   // jam // ILLEGAL

dat_0819:
        .byte $08                                   // .

// --- Region $08c4-$08de ---
.pc = $08c4 "loc_08c4"

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

loc_08ce:
        inc $2d
        bne loc_08d4
        inc $2e

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

dat_08de:
        .byte $2c                                   // ,

// --- Region $0ad0-$0aeb ---
.pc = $0ad0 "Program $0ad0"
        lda $1879,x
        and #$7f
        sta $1879,x
        tya
        sta $184c,x
        lda $191d,y
        sta $187c,x
        lda $18be,y
        sta $1867,x
        jmp loc_1370

dat_0aeb:
        .byte $a4                                   // .

// --- Region $0df7-$0f48 ---
.pc = $0df7 "loc_0df7"

loc_0df7:
        sta $188b,x
        jmp loc_145a

dat_0dfd:
        .byte $4c,$d9,$14,$bd                       // L...
        eor ($18),y
        sec
        sbc $1f74,y
.label sub_0e09 = * + 2
        sta $1851,x
        ldy $fc
        cmp $1f70,y
        bcs loc_0e15
        lda #$00
        beq loc_0df7

loc_0e15:
        lda $1851,x
        bit $fd
        bvc loc_0e21
        lda #$80
        sta $1851,x

loc_0e21:
        sta smc_10e3                                // SMC: modifies $10e3
        ldy $ff
        lda $1e2a,y
        and #$f0
        sta smc_10dc                                // SMC: modifies $10dc
        lda $1876,x
        sta $18a0,x
        lda $18a0
        ora $18a7
        ora $18ae
        ora #$f0
        sta $d417
        ldy $ff
        lda $fe
        and #$01
        bne loc_0e9c
        lda $1d1c,y
        bne loc_0e52
        jmp loc_15e4

loc_0e52:
        lda $18a5,x
        beq loc_0e6c
        dec $18a5,x
        lda $1865,x
        clc
        adc $1d37,y
        sta $1865,x
        bcc loc_0e69
        inc $1866,x

loc_0e69:
        jmp loc_15db

loc_0e6c:
        lda $18a6,x
        beq loc_0e86
        dec $18a6,x
        lda $1865,x
        sec
        sbc $1d6d,y
        sta $1865,x
        bcs loc_0e83