#591

Chromance 89

Chromance

2.671 lines of code

RasterbarsRSTRMusicSIDScrollerSCRLSpritesSPRT

History

Released
c. 1994–1995
Group
Chromance — Hungary, founded 1990

Alex of Chromance coded this intro — identified through intros.c64.org comments as one of the group's earliest productions, likely dating to 1994 or 1995. Alex was a co-founder and key coder for Chromance, a Hungarian cracking group that emerged from FBI Crew in 1990. The group's name derived from a portmanteau of "CH" and "Romance," referencing an earlier Swiss-themed demo project. Alex handled both coding and graphics across multiple Chromance intros, as documented on Doc Snyder's page. Chromance operated under the tagline "Light in the Night" and grew into one of the C64 scene's most prolific Eastern European collectives, amassing over 1,100 releases. The group maintained connections with major Western European groups — their scrolltexts regularly greeted Demonix, Empire, F4CG, Fairlight, Hitmen, Onslaught, and TRC+SCS. This intro predates the more elaborate later Chromance productions that featured artwork by Mermaid and music from international composers.

Sources: CSDb · intros.c64.org · docsnyderspage

c-89.asm 2.671 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: $48ff  (16640 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $1c00 (7168)
// IRQ handler:  $1c45 (irq_1c45)
// IRQ handler:  $1c71 (irq_1c71)
// IRQ handler:  $1ca0 (irq_1ca0)
// IRQ handler:  $1cc2 (irq_1cc2)
// IRQ handler:  $1cf6 (irq_1cf6)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 2517 bytes, Data: 14123 bytes
// Labels: 250, Subroutines: 8
//
// Cross-references: all OK
// ============================================


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

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

sub_1003:
        jmp loc_10da

dat_1006:
        .byte $01                                   // .

// --- Region $1040-$136a ---
.pc = $1040 "loc_1040"

loc_1040:
        asl
        asl
        asl
        tay
        ldx #$00

loc_1046:
        lda $17ef,y
        sta $174e,x
        sta $1754,x
        lda $17f0,y
        sta $1751,x
        sta $1757,x
        iny
        iny
        inx
        cpx #$03
        bne loc_1046
        ldx #$00
        stx $174d
        lda $17ef,y
        sta $100b
        sta $177b
        sta $177c
        sta $177d

loc_1073:
        sta $17d9,x
        inc $174d
        lda $100b
        clc
        adc $17ef,y
        sta $100b
        clc
        adc $174d
        inx
        cpx #$10
        bne loc_1073
        lda $1020
        beq loc_10bc
        ldx #$02

loc_1093:
        lda $17f0,y
        sta $174d
        and $175a,x
        sta dat_1006,x
        dex
        bpl loc_1093
        bit $174d
        bpl loc_10bc
        ldx #$00

loc_10a9:
        lda $17f1,y
        sta $1754,x
        lda $17f2,y
        sta $1757,x
        iny
        iny
        inx
        cpx #$03
        bne loc_10a9

loc_10bc:
        ldy #$00
        tya

loc_10bf:
        sta $d400,y
        iny
        cpy #$1b
        bne loc_10bf
        tay

loc_10c8:
        sta $177e,y
        sta $1766,y
        iny
        cpy #$0c
        bne loc_10c8
        lda $1009
        sta $d418
        rts

loc_10da:
        ldx #$02

loc_10dc:
        lda $1769,x
        cmp #$02
        bne loc_110f
        ldy $1772,x
        lda $18af,y
        ldy $1760,x
        sta $d405,y
        ldy $1772,x
        lda $18b0,y
        ldy $1760,x
        sta $d406,y
        lda $188a
        beq loc_1109
        lda $1889
        sta $d404,y
        jmp loc_110f

loc_1109: