← #122 Top 1024 #124 →
#123

Chromance 03

Chromance

5.903 lines of code

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

History

Released
1996
Code
Jaydee
Music
Froyd (Boleslaw Ogrodowczyk) — "Tekk-Tech"
Charset
Csezso, Pete
Group
Chromance — Hungary, founded 1990

CSDb catalogues this as the "Skull" intro — a 1996 production demonstrating Chromance's continued dedication to the C64 well into the platform's nostalgic era. Jaydee coded while Froyd (Boleslaw Ogrodowczyk) composed "Tekk-Tech" — a Polish musician contributing to a Hungarian group, reflecting the strong Eastern European scene connections of the 1990s. Csezso and Pete shared charset duties. Released in 1996, this came six years after Chromance's founding and represents the group's maturation. Doc Snyder's page documents their output. The HVSC preserves Ogrodowczyk's composition. Chromance's longevity from 1990 through the late 1990s and beyond made them one of the most enduring Eastern European groups — maintaining active C64 production years after Western groups had largely disbanded or moved to other platforms.

Sources: CSDb · docsnyderspage

c-03.asm 5.903 lines
// ============================================
// output - Part 1 of 4
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:17
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $ffff  (63488 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $1bfb (7163)
// IRQ handler:  $ea86 (nmi_ea86)
// IRQ handler:  $3953 (irq_3953)
// IRQ handler:  $3089 (irq_3089)
// IRQ handler:  $3587 (irq_3587)
// IRQ handler:  $363b (irq_363b)
// IRQ handler:  $370d (irq_370d)
// IRQ handler:  $37ca (irq_37ca)
//
// Code: 5467 bytes, Data: 58021 bytes
// Labels: 652, Subroutines: 30
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$100e ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $306a, $f569

sub_1000:
        jmp loc_198d

loc_1003:
        jmp loc_19af

dat_1006:
        .byte $4c,$c0,$19                           // L..
// Referenced by: jsr from $319f, $3599, $3970, $f687, $fa80, $fe2e; jmp from $eb26

sub_1009:
.label smc_100a = * + 1
        lda #$00                                    // !SMC: modified by $198f, $19b1, $ea90
        beq loc_106b

dat_100d:
        .byte $10,$59                               // .Y

// --- Region $106b-$124d ---
.pc = $106b "loc_106b"

loc_106b:
        dec smc_107e
        bpl loc_1075
        lda #$02
        sta smc_107e                                // SMC: modifies $107e

loc_1075:
        ldx #$02
        ldy #$0e

loc_1079:
        stx $04
        sty $05
.label smc_107e = * + 1
        lda #$02                                    // !SMC: modified by $1072
        cmp $1071
        bne loc_1089
        dec $190c,x
        bmi loc_108c

loc_1089:
        jmp loc_1277

loc_108c:
        lda $161c,x
        sta $02
        lda $161f,x
        sta $03
        lda #$00
        sta $18e7

loc_109b:
        ldy $1933,x
        lda ($02),y
        cmp #$48
        bcc loc_10f3

loc_10a4:
        cmp #$ff
        bne loc_10b5
        lda #$02
        sta $1933,x
        lda #$00
        sta $18f1,x
        jmp loc_109b

loc_10b5:
        cmp #$fe
        bne loc_10bc
        jmp loc_1003

loc_10bc:
        cmp #$80
        bcc loc_10d2
        sec
        sbc #$a0
        sta $18f1,x
        inc $1933,x
        iny
        lda ($02),y
        cmp #$48
        bcc loc_10f3
        bcs loc_10a4

loc_10d2:
        cmp #$60
        bcc loc_10e5
        and #$07
        tay
        lda $1790,y
        sta smc_15cf                                // SMC: modifies $15cf
        inc $1933,x
        jmp loc_109b

loc_10e5:
        and #$0f
        sta smc_15cd                                // SMC: modifies $15cd
        inc $1933,x
        jmp loc_109b

loc_10f0:
        jmp loc_1256

loc_10f3:
        tay
        lda $164b,y
        sta $02
        lda $1659,y
        sta $03
        ldy $1936,x
        lda #$00
        sta $18e4
        sta $18e7

loc_1109:
        lda ($02),y
        bpl loc_1176
        cmp #$c0
        bcs loc_111b