← #684 Top 1024 #686 →
#685

Quality 01

Quality

4.704 lines of code

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

History

Released
1989
Code
H.I.C.
Music
Hayes (Markus Muller) — "Quality Intro #3"
Group
Quality — Hungary, founded December 1988

Released in 1989, this is the first numbered crack intro from Quality, a Hungarian group founded in December 1988. The code is by H.I.C., while the music — titled "Quality Intro #3" — is by Hayes, identified in the HVSC as Markus Muller under the Sidbusters moniker. The SID file is preserved at /MUSICIANS/M/Mueller_Markus/Quality_Intro_3.sid. The "#3" in the music title suggests the tune was composed specifically for Quality's intros and that at least two earlier compositions existed for the group. Quality was part of the Hungarian C64 scene, which — despite being behind the Iron Curtain during the group's founding year — produced several notable cracking and demo groups. Hungary's scene was particularly strong relative to other Eastern Bloc countries, with groups like Chromance also emerging from the same geographic base in the years that followed.

Sources: CSDb

quality-01.asm 4.704 lines
// ============================================
// output - Disassembled Source
// ============================================
// 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: $0800  End: $ffff  (63488 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $16a0 (5792)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 4384 bytes, Data: 59104 bytes
// Labels: 475, Subroutines: 24
//
// Cross-references: all OK
// ============================================


// --- Region $0f03-$0f08 ---
.pc = $0f03 "sub_0f03"
// Referenced by: jsr from $fcec

sub_0f03:
        asl
        and $26
        rol $26
        brk

// --- Region $0f14-$0f20 ---
.pc = $0f14 "Program $0f14"
        rol $26
        and $0a
        stx $58,y
        stx $26,y
        rol $a6
        lsr $a8,x
        brk

// --- Region $113c-$144c ---
.pc = $113c "sub_113c"

// Referenced by: jsr from $1347, $eb23
sub_113c: {
        lda $1056,x
        beq skip1
        dec $1056,x
        rts
skip1:
        ldy $1009
        lda $1026,x
        tax
        lda $1012,x
        sta $a3
        lda $1013,x
        sta $a4
        lda ($a3),y
        sta $107a
        lda $100e,x
        sta $a3
        lda $100f,x
        sta $a4
        lda $1010,x
        sta $a5
        lda $1011,x
        sta $a6
        lda ($a3),y
        sta $a3
        lda ($a5),y
        sta $a4
        stx $a6
        ldx $100c
        ldy $1067,x
        iny
        lda ($a3),y
        sta $a5
        and #$0f
        bne skip2
        lda $a5
        lsr
        lsr
        lsr
        lsr
        sta $1056,x
        iny
        tya
        sta $1067,x
        rts
skip2:
        lda $a5
        lsr
        lsr
        lsr
        lsr
        sta $1056,x
        iny
        tya
        sta $1067,x
        dey
        dey
        lda ($a3),y
        sta $a3
        bit $a3
        bmi skip3
        clc
        adc $107a
skip3:
        and #$7f
        sta $102c,x
        lda #$00
        sta $d404,x
        sta $1028,x
        sta $1029,x
        lda $a5
        asl
        asl
        asl
        asl
        tay
        ldx $a6
        lda $1014,x
        sta $a3
        lda $1015,x
        sta $a4
        ldx $100c
        lda ($a3),y
        iny
        sta $d405,x
        lda ($a3),y
        iny
        sta $d406,x
        lda ($a3),y
        iny
        sta $103b,x
        lda #$00
        sta $1041,x
        lda ($a3),y
        iny
        sta $103c,x
        lda ($a3),y
        iny
        sta $103d,x
        sta $1065,x
        lda ($a3),y
        iny
        sta $103e,x
        lda ($a3),y
        iny
        sta $103f,x