← #803 Top 1024 #805 →
#804

Quartet 04

Quartet

1.736 lines of code

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

History

Released
1988
Code
Polonus
Music
Johannes Bjerregaard
Group
Quartet — Poland, founded June 1988

This 1988 intro from Quartet features code by Polonus and music by the renowned Danish composer Johannes Bjerregaard. The SID tune used is "Namnam Special," preserved in the HVSC — a characteristically polished Bjerregaard composition that elevated the intro beyond its utilitarian cracking-screen purpose. Quartet was a Polish group founded in June 1988, operating under the abbreviation QRT, and maintained a web presence at quartet.org.pl. The pairing of a Polish coder with a Danish musician illustrates the international collaboration networks that defined the C64 scene — Bjerregaard's compositions appeared in intros and demos across Europe, his distinctive style making him one of the SID chip's most celebrated artists. That Quartet secured a Bjerregaard tune for their intro in their founding year suggests the group had strong connections from the outset.

Sources: CSDb

quartet-04.asm 1.736 lines
// ============================================
// output - Part 1 of 3
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:32
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0700  End: $2fe7  (10472 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $2000 (8192)
// IRQ handler:  $20c0 (irq_20c0)
// IRQ handler:  $552b (irq_552b)
//
// Code: 866 bytes, Data: 9606 bytes
// Labels: 229, Subroutines: 6
//
// Cross-references: all OK
// ============================================


// --- Region $14c5-$14ce ---
.pc = $14c5 "loc_14c5"

loc_14c5:
        and #$d6
        .byte $2b,$72                               // anc #$72 // ILLEGAL
        rol $3138
        rol $34
        .byte $42                                   // jam // ILLEGAL

// --- Region $1517-$153d ---
.pc = $1517 "loc_1517"

loc_1517:
        sta ($8d,x)
        .byte $1a                                   // nop // ILLEGAL
        bne loc_14c5
        .byte $2b,$8d                               // anc #$8d // ILLEGAL
        .byte $14,$03                               // nop $03,x // ILLEGAL
        lda #$55
        sta $0315
        lda #$7f
        sta $dc0d
        rts

loc_152b:
        lda #$01
        sta $d019
        sta $d020
        jsr $506c
        lda #$00
        sta $d020
        jmp $ea31

// --- Region $1575-$1595 ---
.pc = $1575 "loc_1575"

loc_1575:
        lda $553e,y
        sta $5066,x
        lda $5541,y
        sta $5069,x
        lda #$00
        sta $5035,x
        sta $5038,x
        lda #$01
        sta $5022,x
        dey
        dex
        bpl loc_1575
        sta $5057
        rts

// --- Region $1600-$1602 ---
.pc = $1600 "loc_1600"

loc_1600:
        jmp $fce2

// --- Region $1e00-$1e27 ---
.pc = $1e00 "sub_1e00"
// Referenced by: jsr from $2097

sub_1e00:
        lda #$00
        sta $fb
        sta $fd
        lda #$50
        sta $fe
        lda #$10
        sta $fc

loc_1e0e:
        ldy #$00

loc_1e10:
        lda ($fd),y
        tax
        lda ($fb),y
        sta ($fd),y
        txa
        sta ($fb),y
        iny
        bne loc_1e10
        inc $fc
        inc $fe
        lda $fe
        cmp #$5c
        bne loc_1e0e
        rts

// --- Region $1e50-$1ed3 ---
.pc = $1e50 "loc_1e50"

loc_1e50:
        jsr $506c
        lda #$01
        sta $d019
        sta $d01a
        lda #$1b
        sta $d011
        lda #$42
        sta $d012
        jmp $ea7e

dat_1e68:
        .fill 8, $00

loc_1e70:
        lda #$00
        sta $fb
        sta $fd
        lda #$50
        sta $fe
        lda #$10
        sta $fc

loc_1e7e:
        ldy #$00

loc_1e80:
        lda ($fb),y
        tax
        lda ($fd),y
        sta ($fb),y
        txa
        sta ($fd),y
        iny
        bne loc_1e80