#139

Ace Crackings 01

Ace Crackings

2.153 lines of code

RasterbarsRSTRMusicSIDSpritesSPRT

History

Released
23 November 1987
Code
Coco
Music
Red (Jeroen Kimmel) — "Rhaa Lovely II"
Group
Ace Crackings — Germany, founded September 1987

Red (Jeroen Kimmel) contributed "Rhaa Lovely II" — the same composition that appears in the legendary #28 Fusion intro. The tune's presence in both a British and a German intro demonstrates how popular compositions circulated freely across national boundaries. Coco coded the intro for Ace Crackings, a German group founded in September 1987 — just two months before this release. Released on 23 November 1987, this came during the autumn explosion of German cracking activity. The HVSC preserves Kimmel's composition. Red's work appearing simultaneously in Fusion (UK) and Ace Crackings (Germany) shows either that composers licensed their tunes to multiple groups, or that popular tunes were adopted without exclusive arrangements. Ace Crackings' brief period of activity places them among dozens of German groups that formed during 1987's boom.

Sources: CSDb

ace-01.asm 2.153 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:14
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $1dff  (5632 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $1331 (4913)
// IRQ handler:  $15bd (irq_15bd)
// IRQ handler:  $165e (irq_165e)
// IRQ handler:  $16f2 (irq_16f2)
// IRQ handler:  $1735 (irq_1735)
// IRQ handler:  $179e (irq_179e)
// IRQ handler:  $ea31 (loc_ea31)
//
// Code: 3354 bytes, Data: 2278 bytes
// Labels: 218, Subroutines: 21
//
// Verification: 4 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $0808-$0bce ---
.pc = $0808 "loc_0808"

loc_0808:
        cld
        lda #$01
        sta $d019
        jsr sub_1391
        jsr sub_0909
        jmp $febc

loc_0817:
        lda $fa
        pha
        lda $fb
        pha
        lda $0bd3
        bne loc_0825
        jmp loc_08f3

loc_0825:
        jsr sub_0cad
        jsr sub_1100
        jsr sub_0d24
        dec $0be6
        beq loc_0836
        jmp loc_08f3

loc_0836:
        lda $0be5
        sta $0be6
        lda $0be7
        beq loc_0844
        jmp loc_0a09

loc_0844:
        lda $0bed
        sta $fa
        lda $0bee
        sta $fb
        lda #$00
        sta $0c0a
        ldy #$00
        sty $0bd7
        sty $0bd8

loc_085b:
        ldy #$00
        sty $0bd1
        ldy $0bd1
        lda ($fa),y
        cmp #$7f
        bne loc_089a
        lda $0c35
        clc
        adc #$02
        sta $0c35
        lda $0c36
        adc #$00
        sta $0c36
        jsr sub_0c41
        lda $0bed
        sta $fa
        lda $0bee
        sta $fb
        ora $fa
        bne loc_085b
        lda $0c3b
        sta $0c35
        lda $0c3c
        sta $0c36
        jmp loc_096c

loc_089a:
        cmp #$80
        bcc loc_08b7
        inc $0bd1
        and #$7f
        asl
        tax
        lda dat_118b,x
        sta smc_09a4
        lda $118c,x
        sta smc_09a5
        jsr sub_12a6
        jmp loc_0952

loc_08b7:
        ldx $0bea
        stx $0be7
        ldx $0c2e
        stx $0c2b
        sta $0c07
        jsr sub_0df2
        ldx $0bd4
        beq loc_0902
        lda $0c04
        sta $d400
        sta $0bf3
        lda $0c05
        sta $d401
        sta $0bf4
        lda $0bdc
        sta $d402
        lda $0bdf
        sta $d403
        lda $0bf9
        sta $d405
.label loc_08f3 = * + 1
        lda $8568
        .byte $fb,$68,$85                           // isc $8568,y // ILLEGAL
        .byte $fa                                   // nop // ILLEGAL
        rts

loc_08fa:
        cld
        lda #$01
        sta $d019
.label loc_0902 = * + 2
        jsr sub_1391
        jsr sub_0909
        jmp $febc
// Referenced by: jsr from $0811, $0903, $1783