← #660 Top 1024 #662 →
#661

Chromance 83

Chromance

2.450 lines of code

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

History

Released
1992
Code
Atomicro
Music
EVS (Edwin van Santen) — "(S)addamski's Killer"; MAC2 (Tom Hoffer) — "Introsongy"
Group
Chromance — Hungary, founded 1990

CSDb catalogues this as "Chromance Intro AT3" — a 1992 production coded by Atomicro with two music tracks: EVS (Edwin van Santen) contributing "(S)addamski's Killer" and MAC2 (Tom Hoffer) providing "Introsongy," both preserved in the HVSC. Atomicro also coded Chromance's fourth intro documented on Doc Snyder's page, where his work was paired with SMC's "A Merit Society." The "AT3" designation likely refers to this being Atomicro's third personal intro for the group. EVS was a Dutch composer who contributed music to multiple Hungarian and Dutch scene groups, while MAC2 was a Hungarian musician. Released in 1992, this came during Chromance's early expansion under the tagline "Light in the Night." Chromance built one of the largest intro catalogues in the collection, with other entries including #47 C-25, #117 C-05, and #123 C-03.

Sources: CSDb · docsnyderspage

c-83.asm 2.450 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: $31ff  (10752 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $2c20 (11296)
// IRQ handler:  $299a (irq_299a)
//
// Code: 2612 bytes, Data: 8140 bytes
// Labels: 258, Subroutines: 16
//
// Cross-references: all OK
// ============================================


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

sub_1000:
        jmp loc_10c9
// Referenced by: jsr from $2a55

sub_1003:
        jmp loc_112e

dat_1006:
        .byte $4c                                   // L

// --- Region $10c9-$1822 ---
.pc = $10c9 "loc_10c9"

loc_10c9:
        asl
        asl
        asl
        tay
        lda $1b27,y
        sta $1053
        lda $1b28,y
        sta $1054
        lda #$0f
        sta $1059
        ldx #$00

loc_10e0:
        iny
        iny
        lda $1b27,y
        sta $107b,x
        lda $1b28,y
        sta $107e,x
        lda #$01
        sta $105a,x
        sta $1052
        lda #$00
        sta $1078,x
        sta $1075,x
        sta $1081,x
        sta $1066,x
        sta $1072,x
        sta $10c5,x
        inx
        cpx #$03
        bne loc_10e0
        sta $10c8
        sta $1058
        sta $1051
        sta $1050

loc_111b:
        sta $d404
        sta $d40b
        sta $d412
        sta $1055
// Referenced by: jsr from $1210, $1229

sub_1127:
        sta $1056
        sta $1057
        rts

loc_112e:
        lda $1050
        bne loc_111b
        cld
        ldx #$02
        lda $1056
        beq loc_114b
        ldy $1059
        beq loc_114b
        dec $1057
        bne loc_114b
        sta $1057
        dec $1059

loc_114b:
        dec $1052
        bpl loc_1158
        lda $1054
        sta $1052
        bne loc_116c

loc_1158:
        dec $1051
        bpl loc_116c
        lda $1053
        sta $1051
        dec $105a
        dec $105b
        dec $105c

loc_116c:
        stx $104e
        lda $105a,x
        beq loc_1177
        jmp loc_13af

loc_1177:
        sta $109f,x
        sta $1060,x
        sta $1093,x
        sta $10ae,x
        lda $1084,x
        ldy dat_1823,x
        and #$fe
        sta $d404,y
        lda $107b,x
        sta $fe
        lda $107e,x
        sta $ff
        ldy $1078,x
        lda ($fe),y
        bpl loc_11df
        cmp #$ff
        bne loc_11ae
        iny
        lda ($fe),y
        sta $1078,x
        tay
        lda ($fe),y
        bpl loc_11df

loc_11ae:
        cmp #$c0