← #315 Top 1024 #317 →
#316

Lepsi 04

Lepsi

2.356 lines of code

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

History

Released
1994
Code
Frank
Music
Moby (Artur Pietrzak) — "Eiger (tune 1)"
Graphics
Relax
Group
Lepsi De — Poland, founded July 1994

An intro from Lepsi De, a Polish group founded in July 1994 — representing the Eastern European scene that flourished on the C64 after the fall of the Iron Curtain. Frank coded the intro, Relax provided graphics, and Moby (Artur Pietrzak) composed the music — his tune "Eiger (tune 1)," preserved in the HVSC. The three-person credited team with dedicated roles for code, graphics, and music follows the standard production model. A 1994 release date makes this a late-era C64 intro, produced years after the platform's commercial peak in Western Europe. The Polish scene maintained strong C64 activity well into the mid-1990s, producing both crack intros and demo scene content. CSDb lists the group under the full name "Lepsi De" while intros.c64.org uses the shorter "Lepsi." The group left minimal traces in scene archives beyond CSDb — no entries were found on Doc Snyder's page, Demozoo, or other consulted sources.

Sources: CSDb

lepsi-04.asm 2.356 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:54
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $35ff  (11776 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $3200 (12800)
// IRQ handler:  $ea31 (irq_ea31)
// IRQ handler:  $3308 (irq_3308)
// IRQ handler:  $3307 (nmi_3307)
//
// Code: 2556 bytes, Data: 9220 bytes
// Labels: 251, Subroutines: 13
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$1006 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $3271

sub_1000:
        jmp loc_101d
        jmp loc_1085

dat_1006:
        .byte $4c                                   // L

// --- Region $101d-$101f ---
.pc = $101d "loc_101d"

loc_101d:
        jmp loc_1807

// --- Region $1050-$162e ---
.pc = $1050 "loc_1050"

loc_1050:
        lda $1a7c,y
        sta $1716
        lda $1a7d,y
        sta $1717
        sta $d418
        ldx #$00
        txa

loc_1062:
        sta $1718,x
        inx
        cpx #$86
        bne loc_1062
        ldx #$00
        lda #$01

loc_106e:
        sta $100c,x
        sta $173b,x
        inx
        cpx #$03
        bne loc_106e
        ldx #$00
        txa

loc_107c:
        sta $d400,x
        inx
        cpx #$18
        bne loc_107c
        rts

loc_1085:
        dec $1718
        bpl loc_1090
        lda $1716
        sta $1718

loc_1090:
        ldx #$00
        stx $1720
        jsr sub_10b0
        inx
        jsr sub_10b0
        inx
        jsr sub_10b0
        lda $171c
        sta $d416
        lda $1018
        ora $1723
        sta $d417
        rts
// Referenced by: jsr from $1095, $1099, $109d

sub_10b0:
        lda $100c,x
        beq loc_10c5
        lda $1716
        cmp $1718
        bne loc_10c5
        dec $173b,x
        lda $173b,x
        beq loc_10c8

loc_10c5:
        jmp loc_11f9

loc_10c8:
        lda $1707,x
        sta $f8
        lda $170a,x
        sta $f9

loc_10d2:
        ldy $1726,x
        lda ($f8),y
        bpl loc_1101
        cmp #$ff
        bne loc_10e5
        lda #$00
        sta $1726,x
        jmp loc_10d2

loc_10e5:
        cmp #$fe
        bne loc_10ef
        lda #$00
        sta $100c,x
        rts

loc_10ef:
        sec
        sbc #$a0
        bcs loc_10f8
        eor #$1f
        adc #$01

loc_10f8:
        sta $172c,x
        inc $1726,x
        iny
        lda ($f8),y

loc_1101:
        tay
        lda $1bc6,y
        sta $f8