← #358 Top 1024 #360 →
#359

Chromance+Aristocracy 01

Chromance+Aristocracy

2.069 lines of code

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

History

Released
October 1994
Music
The Syndrom (Matthias Hartung) — "Moneytrain"
Graphics
Thor
Group
Chromance + Aristocracy — Hungary/United States, Aristocracy founded July 1994

A joint release from Chromance and Aristocracy, released in October 1994. The Syndrom (Matthias Hartung) contributed the music — "Moneytrain," preserved in the HVSC — while Thor provided the graphics. CSDb lists Aristocracy as the primary group, an American outfit founded in July 1994, just three months before this release. Chromance was Hungary's most prominent C64 cracking group, well represented in the rankings through entries like #55 C-25. This transatlantic collaboration between a Hungarian and an American group reflects the mature phase of the C64 scene, when geographic barriers had largely dissolved through modem-based distribution. The Syndrom was a German composer, adding a third nationality to the production. By October 1994, the C64 was commercially extinct, making this a product of the dedicated hobbyist community that kept the platform alive.

Sources: CSDb · CSDb Group (Aristocracy)

c_art-01.asm 2.069 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:13
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $47ff  (16384 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $1a00 (6656)
// IRQ handler:  $1d46 (irq_1d46)
// IRQ handler:  $ea31 (irq_ea31)
// IRQ handler:  $1d75 (irq_1d75)
// IRQ handler:  $1d9b (irq_1d9b)
//
// Code: 1690 bytes, Data: 14694 bytes
// Labels: 199, Subroutines: 4
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$1006 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $1a58

sub_1000:
        jmp loc_1040
// Referenced by: jsr from $1d60

sub_1003:
        jmp loc_10b4

dat_1006:
        .byte $4e                                   // N

// --- Region $1040-$12c6 ---
.pc = $1040 "loc_1040"

loc_1040:
        asl
        asl
        asl
        tay
        ldx #$00

loc_1046:
        lda $13c9,y
        sta $1387,x
        sta $138d,x
        lda $13ca,y
        sta $138a,x
        sta $1390,x
        iny
        iny
        inx
        cpx #$03
        bne loc_1046
        ldx #$00
        stx $13b1
        lda $13c9,y
        sta $13c5

loc_106a:
        sta $13b5,x
        inc $13b1
        lda $13c5
        clc
        adc $13c9,y
        sta $13c5
        clc
        adc $13b1
        inx
        cpx #$10
        bne loc_106a
        ldy #$00
        tya

loc_1086:
        sta $d400,y
        iny
        cpy #$18
        bne loc_1086
        ldy #$00

loc_1090:
        lda #$00
        sta $1396,y
        sta $1014,y
        lda #$04
        sta $13a2,y
        iny
        cpy #$0c
        bne loc_1090
        lda #$f1
        sta $d417
        lda $14d4
        asl
        asl
        asl
        asl
        ora #$0f
        sta $d418
        rts

loc_10b4:
        ldx #$02

loc_10b6:
        lda $13a2,x
        bne loc_10be
        jmp loc_11d3

loc_10be:
        cmp #$03
        beq loc_10d3
        cmp #$02
        beq loc_1111
        cmp #$01
        bne loc_10cd
        jmp loc_1185

loc_10cd:
        dec $13a2,x
        jmp loc_1242

loc_10d3:
        dec $13a2,x
        lda $1387,x
        sta $fb
        lda $138a,x
        sta $fc
        ldy #$00
        tya
        sta $1399,x
        lda ($fb),y
        bpl loc_10f9
        asl
        sta $1009,x
        inc $1387,x
        bne loc_10f6
        inc $138a,x

loc_10f6:
        iny
        lda ($fb),y

loc_10f9:
        tay