← #650 Top 1024 #652 →
#651

Chromance 19

Chromance

350 lines of code

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

History

Released
February 1991
Code
Alex
Group
Chromance — Hungary, founded 1990

CSDb catalogues this as the "Chromance (extra short) Intro ALEX-08" — a February 1991 production coded by Alex with no music credits, suggesting a deliberately compact design. The "extra short" designation indicates this was a minimal-footprint intro intended to conserve disk space for the accompanying crack. Alex appears across multiple Chromance intros documented on Doc Snyder's page, where he served as both coder and graphician. Chromance was a Hungarian group founded in 1990 under the tagline "Light in the Night," and this intro arrived during their first full year of operation. The scrolltext references a crack of "Lucky Egg" with NTSC fixing, training, and shortening by Jaydee, and sends greetings to Empire, SCS+TRC, Avantgarde, F4CG, Fairlight, and other major groups. Chromance built one of the largest intro catalogues in the collection, with other entries including #47 C-25 and #117 C-05.

Sources: CSDb · docsnyderspage

c-19.asm 350 lines
// ============================================
// output - Disassembled Source
// ============================================
// 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: $0801  End: $0c9f  (1183 bytes)
// Entry point:  $080b (via BASIC SYS 2059)
//
// Code: 260 bytes, Data: 923 bytes
// Labels: 44, Subroutines: 1
//
// Cross-references: all OK
// ============================================


// --- Region $080b-$08ff ---
.pc = $080b "main_080b"
main_080b: {
        lda #$00
        sta $d020
        sta $d021
        sta $0286
        sta $07
        jsr $e544
        ldx #$0f
loop1:
        lda $0ae0,x
        sta $063c,x
        lda txt_0af0,x
        sta $06b4,x
        lda #$0f
        sta $da3c,x
        dex
        bpl loop1
        ldx #$00
loop2:
        lda $0900,x
        sta $0400,x
        lda $09e0,x
        sta $04e0,x
        inx
        bne loop2
        ldx #$04
        lda #$d8
        ldy #$00
        stx $03
        sta $05
        sty $02
        sty $04
        jsr sub_085d
        inc $03
        inc $05
        jsr sub_085d
        jmp loc_0884
}
// Referenced by: jsr from $0850, $0857; branch from $0881

sub_085d:
        lda ($02),y
        sty $06
        ldy #$0f
        cmp #$69
        bne loc_0869
        ldy #$0b

loc_0869:
        cmp #$5f
        bne loc_086f
        ldy #$0b

loc_086f:
        ldx #$09

loc_0871:
        cmp $0b10,x
        bne loc_0878
        ldy #$0c

loc_0878:
        dex
        bpl loc_0871
        tya
        ldy $06
        sta ($04),y
        iny
        bne sub_085d
        rts

loc_0884:
        sei
        inc $d018

loc_0888:
        lda #$4e
        sta $09
        lda #$0b
        sta smc_08dc                                // SMC: modifies $08dc

loc_0891:
        lda #$e1

loc_0893:
        cmp $d012
        bne loc_0893
        lda $08
        sta $d016
        ldx #$80

loc_089f:
        dex
        bne loc_089f
        lda #$08
        sta $d016
        ldx $07
        inx
        txa
        and #$0f
        sta $07
        tay
        ldx #$27

loc_08b2:
        lda $0b00,y
        sta $daa8,x
        lda #$01
        sta $db70,x
        dex
        bpl loc_08b2
        lda $08
        sec
        sbc #$02
        and #$07
        sta $08
        bcs loc_08ea
        ldx #$00

loc_08cd:
        lda $0771,x
        sta $0770,x
        inx
        cpx #$27
        bne loc_08cd
        ldx $09
.label smc_08dc = * + 2
        lda $0b00,x                                 // !SMC: modified by $088e
        beq loc_0888
        sta $0797
        inc $09