#47

Chromance 25

Chromance

2.522 lines of code

RasterbarsRSTRMusicSIDSpritesSPRTBitmapBMAP

History

Released
May 1992
Code
Alex
Graphics
Floris
Charset
Rough
Music
Tunes by Griff, Deek, Ronny Pasch & Francois Prijt, Red Devil and ATOO
Group
Chromance — Hungary, founded 1990

Ranked #47 on intros.c64.org, this Chromance release is catalogued on CSDb as "Chromance Intro ALEX-15 (Rat with gun and bomb)" and dated May 1992 — the parenthetical title describes the bitmap artwork and identifies it as the 15th in Alex's personal series within the group. CSDb credits Alex for the code, Floris for graphics and Rough for the charset. The SID player cycles through five tunes: "Compunet" by Griff (Peter Varga), "Broken Bottles" by Deek (Richard Rinn), "Triplex" by Ronny Pasch and Francois Prijt, "Heavy Tecno" by Red Devil (Emil Helldin), and "Compleeto!" by ATOO (Anders Andréen). All five tunes are preserved in the HVSC. CSDb additionally lists Jeff as a music credit, though no SID under that handle is attached to the release data. Chromance were a Hungarian group founded in 1990. Doc Snyder's page for Chromance exists but carries no section confirmed to match this specific intro.

Sources: CSDb · docsnyderspage

c-25.asm 2.522 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:18
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0700  End: $dbe7  (54504 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $3f40 (16192)
//
// Code: 1935 bytes, Data: 52569 bytes
// Labels: 306, Subroutines: 10
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$1005 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $3fd9

sub_1000:
        jmp loc_119d
// Referenced by: jsr from $403f

sub_1003:
        jmp loc_12e2

// --- Region $119d-$12f7 ---
.pc = $119d "loc_119d"

loc_119d:
        asl
        tay
        lda dat_17bc,y
        sta $1081
        lda $17bd,y
        sta $1082
        lda $17be,y
        sta $1088
        lda $17bf,y
        sta $1089
        lda $17c0,y
        sta $108f
        lda $17c1,y
        sta $1090
        lda $137d
        sta $12fe
        lda $12f9
        sta $10ad
        ldx #$00
        txa
        jsr sub_12e6
        jsr sub_11df
        ldx #$07
        jsr sub_11df
        ldx #$0e
// Referenced by: jsr from $11d5, $11da

sub_11df:
        lda #$03
        sta $1041,x
        lda #$01
        sta $10b4
        sta $1316
        sta smc_12e3                                // SMC: modifies $12e3
        sta $106a,x
        sta $109a,x
        sta $106b,x
        sta $1044,x
        sta $1070,x
        lda #$00
        sta $107f,x
        sta $106e,x
        sta $1080,x
        sta $1040,x
        sta $1098,x
        jsr sub_1391

loc_1212:
        ldy $1040,x
        txa
        bne loc_1250
        lda $10b4,x
        beq loc_1250
        lda $1814,y
        sta $d417
        lda $1812,y
        asl
        tay
        lda $17de,y
        sta $fb
        clc
        adc #$01
        sta $10ae
        lda $17df,y
        sta $fc
        adc #$00
        sta $10af
        ldy #$00
        sty $10bb
        sty $10b5
        sty $10bc
        lda ($fb),y
        sta $10b6
        sta $d416

loc_1250:
        lda #$09
        sta $d404,x
        lda #$00
        sta $106d,x
        sta $1010,x
        sta $1055,x
        sta $1058,x
        sta $1059,x
        sta $1044,x
        sta $1098,x
        ldy $109a,x
        beq loc_12bb
        sta $1043,x
        sta $1042,x
        ldy $1040,x
        lda $1810,y
        asl
        tay
        lda $17c2,y
        sta $1045,x
        lda $17c3,y
        sta $1046,x
        ldy $1040,x
        lda $1811,y
        asl
        tay
        lda $17d6,y
        sta $fb
        clc
        adc #$02
        sta $10a9,x
        lda $17d7,y
        sta $fc
        adc #$00
        sta $10aa,x
        ldy #$00
        lda ($fb),y
        sta $100d,x
        sta $d402,x
        iny