← #234 Top 1024 #236 →
#235

Chromance 09

Chromance

2.585 lines of code

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

History

Released
August 1992
Code
HCL
Music
Jeff (Soren Lund) — "Easy Eddie", Compod (Roman Majewski) — "Preparatory School"
Charset
Goblin
Group
Chromance — Hungary, founded 1990

CSDb catalogues this as the "Chromance Intro HCL" — named for its coder, HCL, who also coded for Genesis Project. Released in August 1992, the intro features two SID tunes: "Easy Eddie" by Jeff (Soren Lund) and "Preparatory School" by Compod (Roman Majewski), both preserved in the HVSC. Goblin contributed the charset. Chromance was founded in 1990 in Hungary and became the dominant force in the Hungarian C64 scene — their motto "Light in the Night" reflecting their outsized role in an Eastern European scene that operated with fewer resources than its Western counterparts. This is one of five Chromance entries in the rankings, alongside #55 C-25, #72 C-03, #73 C-05, and #82 C-41. Doc Snyder's page documents their extensive catalogue, showing collaborations with coders including Druid, Alex, Slator, and Atomicro.

Sources: CSDb · Doc Snyder

c-09.asm 2.585 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:17
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $ffff  (63488 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $0e40 (3648)
// IRQ handler:  $0ead (irq_0ead)
//
// Code: 2054 bytes, Data: 61434 bytes
// Labels: 248, Subroutines: 15
//
// Cross-references: all OK
// ============================================


// --- Region $0d05-$0d14 ---
.pc = $0d05 "sub_0d05"
// Referenced by: jsr from $ff9b

sub_0d05:
        ora $06
        .byte $07,$08                               // slo $08 // ILLEGAL
        ora #$0a
        .byte $0b,$0c                               // anc #$0c // ILLEGAL
        ora $0f0e
        bpl loc_0d4a
        ora ($11,x)
        .byte $12                                   // jam // ILLEGAL

// --- Region $0d4a-$0d52 ---
.pc = $0d4a "loc_0d4a"

loc_0d4a:
        .byte $34,$35                               // nop $35,x // ILLEGAL
        .byte $1b,$1c,$1d                           // slo $1d1c,y // ILLEGAL
        asl $3736,x
        brk

// --- Region $0e40-$101a ---
.pc = $0e40 "main_0e40"

main_0e40:
        sei
        ldx #$00

loc_0e43:
        lda #$08
        sta $d800,x
        sta $d900,x
        sta $da00,x
        sta $db00,x
        lda #$00
        sta $0500,x
        sta $0600,x
        inx
        bne loc_0e43

loc_0e5c:
        lda $0d00,x
        sta $0400,x
        sta $06a8,x
        lda $0da0,x
        sta $04a0,x
        sta $0748,x
        inx
        cpx #$a0
        bne loc_0e5c
        lda #$01
        sta $d01a
        lda #$7f
        sta $dc0d
        lda #$ad
        sta $0314
        lda #$0e
        sta $0315
        lda #$00
        sta $d020
        jsr sub_1000
        lda #$a2
        sta $06
        lda #$28
        sta $07
        lda #$40
        sta $09
        lda #$27
        sta $0a
        ldx #$c8
        lda #$0f

loc_0ea3:
        sta $d98f,x
        dex
        bne loc_0ea3
        cli

loc_0eaa:
        jmp loc_0eaa
irq_0ead: {
        inc $d019
        lda #$00
loop1:
        cmp $d012
        bne loop1
        jsr sub_0f8b
        lda #$04
        ldy #$00
        ldx #$00
        sta $d021
        stx $d022
        sty $d023
        jsr sub_1003
        lda #$53
loop2:
        cmp $d012
        bne loop2
        ldy #$02
loop3:
        dey
        bne loop3
        lda #$0b
        ldy #$09
        ldx #$00
        sta $d021
        stx $d022
        sty $d023
        lda #$7d
loop4:
        cmp $d012
        bne loop4
        ldy #$09
loop5:
        dey
        bne loop5
        lda $08
        ldx #$18
        sta $d016
        stx $d018
        lda #$0b
        sta $d020
        sta $d021
        ldy #$0a
loop6:
        dey
        bne loop6
        lda #$00