← #411 Top 1024 #413 →
#412

Chromance 47

Chromance

1.988 lines of code

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

History

Released
October 1992
Code
Atomicro
Graphics
Carrion
Music
O'Neill (Morten Kristensen) — "Freestyle"
Group
Chromance — Hungary, founded 1990

CSDb catalogues this as the "Chromance Intro AT8" — indicating it belongs to Atomicro's personal intro series within the group. Atomicro coded while Carrion contributed the graphics and O'Neill (Morten Kristensen, also known as MSK) composed "Freestyle," preserved in the HVSC. Released in October 1992, this sits within Chromance's most productive period. O'Neill's contribution represents the Scandinavian musical talent that Hungarian groups frequently drew upon — a Danish musician working for a Budapest-based operation. Chromance was Hungary's most prominent C64 cracking group, founded in 1990, with multiple entries in the rankings including #55 C-25 and #72 C-03. Atomicro also coded #420 C-16, another Chromance intro in this batch. Doc Snyder's page documents the group's extensive catalogue of coders and musicians.

Sources: CSDb · Doc Snyder

c-47.asm 1.988 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:12
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $2dff  (9728 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $1ae0 (6880)
// IRQ handler:  $1b4a (irq_1b4a)
//
// Code: 1579 bytes, Data: 8149 bytes
// Labels: 198, Subroutines: 6
//
// Cross-references: all OK
// ============================================


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

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

sub_1003:
        jmp loc_10d8

dat_1006:
        .byte $01                                   // .

// --- Region $1040-$1468 ---
.pc = $1040 "loc_1040"

loc_1040:
        asl
        asl
        asl
        tay
        ldx #$00

loc_1046:
        lda $15a2,y
        sta $1528,x
        sta $152e,x
        lda $15a3,y
        sta $152b,x
        sta $1531,x
        iny
        iny
        inx
        cpx #$03
        bne loc_1046
        ldx #$00
        stx $100b
        lda $15a2,y
        sta $1534

loc_106a:
        sta $158c,x
        inc $100b
        lda $1534
        clc
        adc $15a2,y
        sta $1534
        clc
        adc $100b
        inx
        cpx #$10
        bne loc_106a
        lda $1020
        beq loc_10b3
        ldx #$02

loc_108a:
        lda $15a3,y
        sta $100b
        and $1535,x
        sta dat_1006,x
        dex
        bpl loc_108a
        bit $100b
        bpl loc_10b3
        ldx #$00

loc_10a0:
        lda $15a4,y
        sta $152e,x
        lda $15a5,y
        sta $1531,x
        iny
        iny
        inx
        cpx #$03
        bne loc_10a0

loc_10b3:
        ldy #$00
        tya

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

loc_10c0:
        lda #$00
        sta $153b,y
        sta $1014,y
        lda #$04
        sta $1547,y
        iny
        cpy #$0c
        bne loc_10c0
        lda #$1f
        sta $d418
        rts

loc_10d8:
        lda $fb
        pha
        lda $fc
        pha
        ldx #$02

loc_10e0:
        lda dat_1006,x
        bne loc_10e8
        jmp loc_145b

loc_10e8:
        lda $1547,x
        bne loc_10f0
        jmp loc_1223

loc_10f0:
        cmp #$02
        beq loc_10fa
        dec $1547,x
        jmp loc_12d5

loc_10fa:
        dec $1547,x
        lda $1528,x
        sta $fb