#726

Chromance 48

Chromance

176 lines of code

RasterbarsRSTR

History

Released
May 1991
Graphics
Alex
Group
Chromance — Hungary, founded 1990

This extra-short Chromance intro from May 1991 features a Hungarian flag motif designed by Alex, one of the group's core members who handled both coding and graphics across multiple productions. Chromance was a Hungarian cracking group founded in 1990 that became one of the most prolific crews from Eastern Europe, maintaining a steady output of releases well into the late 1990s. The intro's minimalist design — described on CSDb as "extra short" — reflects a practical approach to crack intros, prioritizing speed and efficiency over elaborate visual effects. Alex contributed graphics to several Chromance intros, including #428 c-06 and other productions documented on Doc Snyder's page. The scrolltext references greetings to numerous groups including F4CG, Onslaught, Fairlight, and Atlantis, illustrating Chromance's broad network across both European and American scenes. This intro sits among Chromance's extensive catalogue, which spans dozens of entries in the intros.c64.org archive.

Sources: CSDb · intros.c64.org

c-48.asm 176 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: $0926  (294 bytes)
// Entry point:  $080b (via BASIC SYS 2059)
//
// Code: 191 bytes, Data: 103 bytes
// Labels: 21, Subroutines: 0
//
// Cross-references: all OK
// ============================================


// --- Region $080b-$08d0 ---
.pc = $080b "main_080b"

main_080b:
        ldx #$00

loc_080d:
        lda loc_0877,x
        sta $0334,x
        inx
        bne loc_080d
        stx $0286
        jsr $e544
        jsr $0366
        lda #$ee
        sta $037e
        ldx #$00
        sei

loc_0827:
        lda $d011
        bpl loc_0827

loc_082c:
        lda $d012
        cmp #$30
        bne loc_082c
        lda #$02
        sta $d020
        sta $d021

loc_083b:
        lda $d012
        cmp #$64
        bne loc_083b
        ldy #$09

loc_0844:
        dey
        bpl loc_0844
        lda #$01
        sta $d020
        sta $d021

loc_084f:
        lda $d012
        cmp #$d2
        bne loc_084f
        ldy #$09

loc_0858:
        dey
        bpl loc_0858
        lda #$05
        sta $d020
        sta $d021
        inx
        bne loc_0827
        stx $d020
        stx $d021
        inc $0286
        jsr $e544
        inc $01
        jmp $0334

loc_0877:
        ldx #$00

loc_0879:
        lda $0927,x
        sta dat_0801,x
        inx
        bne loc_0879
        tay
        and #$1f
        cmp #$15
        bcc loc_088b
        and #$0f

loc_088b:
        tax
        tya
        lsr
        lsr
        lsr
        cmp #$15
        bcc loc_0895
        lsr

loc_0895:
        ldy #$03
        clc
        adc #$d8

loc_089a:
        clc
        adc #$28
        bcc loc_08a0
        iny

loc_08a0:
        dex
        bpl loc_089a
        sta $0372
        sty $0373
        ldx #$00
        ldy #$a8

loc_08ad:
        lda $02e4,y
        cmp #$40
        bcc loc_08b9
        sta $059a,x
        lda #$00

loc_08b9:
        stx $02
        adc $02
        tax
        iny
        bne loc_08ad
        rts

dat_08c2:
        .byte $3b,$03,$ee,$38,$03                   // ;..8.

loc_08c7:
        bne loc_0877
        dec $01
        cli
        jmp $fce2

dat_08cf:
        .byte $55,$40                               // U@

// ============================================
// Data blocks
// ============================================

// --- Region $0801-$080a ---
.pc = $0801 "dat_0801"

dat_0801:
        // === BASIC loader stub ===
        .byte $0b,$08                               // next line pointer ($080b)
        .byte $c7,$07                               // line number 1991
        .byte $9e                                   // SYS token
        .text "2059"                                // SYS 2059 → main_080b
        .byte $00                                   // end of line

// --- Region $08d1-$0926 ---
.pc = $08d1 "Program $08d1"
        .byte $72,$6e,$24,$5d,$6b,$73,$6d,$72,$72,$72,$40,$72,$40,$40,$72,$40 // rn$]ksmrrr@r@@r@
        .byte $72,$40,$72,$40,$72,$40,$49,$14,$5d,$5d,$5d,$5d,$5d,$55,$73,$5d // r@r@r@I.]]]]]Us]
        .byte $5d,$5d,$5d,$6b,$7d,$5d,$5d,$5d,$6b,$73,$5d,$5d,$14,$5d,$6b,$73 // ]]]k}]]]ks]].]ks
        .fill 13, $5d
        .byte $6b,$73,$70,$73,$14,$4a,$40,$71,$71,$71,$4b,$4a,$40,$71,$71,$71 // ksps.J@qqqKJ@qqq
        .byte $71,$40,$71,$71,$71,$40,$71,$40,$4b   // q@qqq@q@K