#692

Chromance 38

Chromance

3.550 lines of code

RasterbarsRSTRMusicSIDSpritesSPRTBitmapBMAP

History

Released
May 1994
Code
Stake
Graphics
Carrion
Music
EVS (Edwin van Santen), PRI (Volker Meitz), SMC (Sanke Michael Choe)
NTSC Fix
Lion
Group
Chromance — Hungary, founded 1990

Released in May 1994, this is the thirty-eighth numbered crack intro from Chromance — titled "Chromance Intro S3" on CSDb. The code is by Stake, graphics by Carrion, and the intro features three selectable SID tunes from EVS (Edwin van Santen), PRI (Volker Meitz), and SMC (Sanke Michael Choe). Lion handled the NTSC fix, ensuring compatibility with North American hardware — a detail that reflects Chromance's transatlantic distribution network. All three tunes are preserved in the HVSC. Chromance, founded in Hungary in 1990, is one of the most extensively documented groups in this collection, with entries spanning from #47 Chromance-25 through #117 Chromance-05 and #123 Chromance-03 to #469 Chromance-94. Doc Snyder's Page catalogues numerous Chromance intros with detailed credits.

Sources: CSDb · Doc Snyder's Page

c-38.asm 3.550 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: $0700  End: $5380  (19585 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $4a00 (18944)
// IRQ handler:  $4b23 (irq_4b23)
// IRQ handler:  $4b22 (nmi_4b22)
//
// Code: 3266 bytes, Data: 16319 bytes
// Labels: 433, Subroutines: 6
//
// Cross-references: all OK
// ============================================


// --- Region $0a03-$0a03 ---
.pc = $0a03 "Program $0a03"
        brk

// --- Region $0ef0-$0ef0 ---
.pc = $0ef0 "Program $0ef0"
        brk

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

sub_1000:
        jmp loc_1020

smc_1003:
        jmp loc_104d                                // !SMC: modified by $1243

txt_1006:
        .text "M"

// --- Region $1020-$1540 ---
.pc = $1020 "loc_1020"

loc_1020:
        ldx #$6e
        lda #$00

loc_1024:
        sta $0337,x
        dex
        bpl loc_1024
        stx $038b
        dex
        stx $0368
        stx $0369
        stx $036a
        ldx #$17

loc_1039:
        sta $d400,x
        dex
        bpl loc_1039
        sta $0334
        lda #$07
        sta $0335
        lda #$0e
        sta $0336
        rts

loc_104d:
        inc $0368
        inc $0369
        inc $036a
        ldx #$02
        dec $038a
        bpl loc_1063
        lda $1875
        sta $038a

loc_1063:
        stx $fe
        lda $0334,x
        sta $036f
        tay
        lda $038a
        cmp $1875
        bne loc_1088
        lda $17d9,x
        sta smc_108f                                // SMC: modifies $108f
        lda $17dc,x
        sta smc_1090                                // SMC: modifies $1090
        dec $033d,x
        bmi loc_108b
        jmp loc_125a

loc_1088:
        jmp loc_1289

loc_108b:
        ldy $0337,x
.label smc_108f = * + 1
.label smc_1090 = * + 2
        lda $193e,y                                 // !SMC: modified by $1077, $107d
        cmp #$ff
        bne loc_10b2
        lda #$00
        sta $033d,x
        sta $033a,x
        lda #$09
        sta $0337
        lda #$05
        sta $0338
        lda #$06
        sta $0339
        jmp loc_108b

dat_10af:
        .byte $4c,$37,$10                           // L7.

loc_10b2:
        sta $037e
        cmp #$80
        bcc loc_10c4
        and #$1f
        sta $036b,x
        inc $0337,x
        jmp loc_108b

loc_10c4:
        lda $037e
        cmp #$40
        bcc loc_10d6
        and #$3f
        sta $038d,x
        inc $0337,x
        jmp loc_108b

loc_10d6:
        lda $037e
        asl
        tay
        lda $17df,y
        sta $fc
        lda $17e0,y
        sta $fd
        lda #$00
        sta $0358,x
        sta $035b,x