#951

Chromance 50

Chromance

2.119 lines of code

RasterbarsRSTRMusicSIDSpritesSPRTBitmapBMAP

History

Released
c. 1996
Group
Chromance — Hungary, founded 1990

This Chromance intro — catalogued on intros.c64.org but lacking individual credits — represents one of the many productions from Hungary's most prolific C64 cracking group. Chromance was founded in 1990, evolving from FBI Crew, and adopted its name from a portmanteau of "CH" (Switzerland) and "Romance," inspired by an earlier demo project. The group operated under the tagline "Light in the Night" and produced over 1,100 releases spanning cracks, demos, intros, and diskmags. Doc Snyder's page documents multiple Chromance intros with credited coders including Jaydee, Alex, Druid, Slator, and Atomicro — indicating a deep roster of programmers. Musicians contributing to various Chromance intros include The Syndrom, OMP (Ole Marius Pettersen), Sage (Dariusz Paliga), JCH (Jens-Christian Huus), and SMC. The group's sustained output through the mid-to-late 1990s made them one of the most enduring Eastern European scene collectives on the platform.

Sources: CSDb · intros.c64.org · docsnyderspage

c-50.asm 2.119 lines
// ============================================
// output - Part 1 of 2
// ============================================
// 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: $34ff  (11520 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $0c20 (3104)
// IRQ handler:  $090e (nmi_090e)
// IRQ handler:  $0905 (irq_0905)
// IRQ handler:  $0a6c (loc_0a6c)
// IRQ handler:  $ea31 (irq_ea31)
// IRQ handler:  $fe47 (nmi_fe47)
//
// Code: 2038 bytes, Data: 9482 bytes
// Labels: 271, Subroutines: 18
//
// Cross-references: all OK
// ============================================


// --- Region $0810-$0c08 ---
.pc = $0810 "loc_0810"

loc_0810:
        lda #$0e
        sta $0318
        lda #$09
        sta $0319
        lda #$00
        sta $54
        sta $55
        sta $0286
        sta $d011
        jsr $e544
        nop
        nop
        nop
        nop
        nop
        lda #$20
        sta smc_087b                                // SMC: modifies $087b
        lda #$00
        sta smc_0950                                // SMC: modifies $0950
        sta smc_0959                                // SMC: modifies $0959
        sta smc_0963                                // SMC: modifies $0963
        lda #$2f
        sta smc_0989                                // SMC: modifies $0989
        lda #$05
        sta smc_0990                                // SMC: modifies $0990
        lda #$00
        sta smc_0988                                // SMC: modifies $0988
        sta smc_098f                                // SMC: modifies $098f
        lda #$4c
        sta smc_0982                                // SMC: modifies $0982
        lda #$c8
        sta smc_0983                                // SMC: modifies $0983
        lda #$09
        sta smc_0984                                // SMC: modifies $0984
        lda #$20
        sta smc_0925                                // SMC: modifies $0925
        lda #$fe
        sta smc_0926                                // SMC: modifies $0926
        lda #$09
        sta smc_0927                                // SMC: modifies $0927
        lda #$60
        sta $09ff

loc_0873:
.label smc_0874 = * + 1
        lda #$2c                                    // !SMC: modified by $0c2a

loc_0875:
        cmp $d012
        bne loc_0875
.label smc_087b = * + 1
        lda $2130                                   // !SMC: modified by $0830
        sta $d020
        sta $d021
        inc smc_087b
        lda smc_087b
        cmp #$30
        beq loc_0897
        lda #$ff

loc_088f:
        cmp $d012
        bne loc_088f
        jmp loc_0873

loc_0897:
        ldx #$00
        lda #$00

loc_089b:
        sta spr_2000,x
        inx
        bne loc_089b
        ldx #$00

loc_08a3:
        lda chr_2800,x
        sta $0400,x
        lda $2900,x
        sta $0500,x
        lda $2a00,x
        sta $0600,x
        lda $2b00,x
        sta $0700,x
        inx
        bne loc_08a3
        lda #$00
        tay
        tax
        jsr sub_1000
        lda #$88
        sta $07f8
        lda #$89
        sta $07f9
        lda #$8a
        sta $07fa
        lda #$01
        sta $d027
        sta $d028
        sta $d029
        lda #$07
        sta $d010
        sta $d015
        sei
        lda #$7f
        sta $dc0d
        lda #$01
        sta $d01a
        lda #$30
        sta $d012
        lda #$05
        sta $0314
        lda #$09
        sta $0315
        cli

loc_0902:
        jmp loc_0902

irq_0905:
        inc $d019
        jsr sub_090f