← #753 Top 1024 #755 →
#754

Crest 12

Crest

2.525 lines of code

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

History

Released
1989
Code
Crossbow
Music
Diflex (Markus Schneider) — "TLI Intro 1"
Group
Crest — Germany, founded July 1988

An early Crest intro coded by Crossbow with music from Diflex (Markus Schneider), released in 1989 — just a year after the German group's founding in July 1988. Diflex's "TLI Intro 1" provides the soundtrack, preserved in the HVSC. Doc Snyder's page documents Crossbow as the primary coder for Crest's crack intros, with the scrolltext for a related entry revealing the group's internal culture — lengthy greetings lists, friendly rivalries, and connections to groups like Pulsar, Stardom, and Rough Trade Inc. Crest would become better known in subsequent years for their technically ambitious demo productions, but their early work included crack intros like this one. The group's motto "Thumbs Up!" appears on Doc Snyder's page. Schneider's composition — filed under his real name in the HVSC — reflects the early German SID music tradition. Crest operated from Germany alongside contemporaries like Censor Design, X-Ray, and Success.

Sources: CSDb · docsnyderspage

crest-12.asm 2.525 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:14
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $2fff  (10240 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $1c00 (7168)
// IRQ handler:  $1d00 (irq_1d00)
// IRQ handler:  $2218 (irq_2218)
//
// Code: 2574 bytes, Data: 7666 bytes
// Labels: 250, Subroutines: 9
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$1004 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $214e

sub_1000:
        jmp loc_1908

scr_1003:
        // === Screen RAM (2 bytes, $1003-$1004) ===
        .byte $4c,$e0                               // scrcode: ..

// --- Region $102a-$1300 ---
.pc = $102a "loc_102a"

loc_102a:
        inc $1942
        inc $1943
        inc $1944
        lda #$1f
        sta $d418
        ldx #$02
        dec $1973
        bpl loc_1045
        lda $191d
        sta $1973

loc_1045:
        bit $d020
        stx $ff
        lda $191e,x
        sta $1956
        tay
        lda $1973
        cmp $191d
        bne loc_106b
        lda dat_1749,x
        sta $fb
        lda $174c,x
        sta $fc
        dec $1927,x
        bmi loc_106e
        jmp loc_11fa

loc_106b:
        jmp loc_120a

loc_106e:
        ldy $1921,x
        lda ($fb),y
        cmp #$fe
        beq loc_108c
        cmp #$ff
        bne loc_1094
        lda #$00
        sta $1927,x
        sta $1921,x
        sta $1924,x
        sta $1972
        jmp loc_106e

loc_108c:
        lda #$02
        sta $1974
        jmp loc_190b

loc_1094:
        sta $1967
        and #$80
        beq loc_10a9
        lda $1967
        and #$1f
        sta $194f,x
        inc $1921,x
        jmp loc_106e

loc_10a9:
        lda $1967
        and #$40
        beq loc_10be
        lda $1967
        and #$3f
        sta $1976,x
        inc $1921,x
        jmp loc_106e

loc_10be:
        lda $1967
        asl
        tay
        lda $174f,y
        sta $fd
        lda $1750,y
        sta $fe
        lda #$00
        sta $193f,x
        ldy $1924,x
        sta $1942,x
        lda #$03
        sta $1961,x

loc_10dd:
        lda ($fd),y
        sta $f8
        and #$f0
        cmp #$f0
        bne loc_10f7
        lda #$01
        sta dat_1980,x
        inc $1924,x
        iny
        lda ($fd),y
        sta $f8
        jmp loc_1157

loc_10f7:
        lda #$00
        sta dat_1980,x
        lda $f8
        and #$f0
        cmp #$e0
        bne loc_1130
        lda $f8
        and #$01
        clc
        adc #$01
        sta $193f,x
        lda $f8
        and #$0e
        lsr