← #124 Top 1024 #126 →
#125

Extasy 02

Extasy

2.324 lines of code

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

History

Code
Slade
Group
Extasy (XTC) — Finland, founded June 1990

The higher-ranked of two Extasy intros in this collection, placing 125th overall. CSDb credits Slade for the code on the matched release, with no separate music or graphics contributors documented. Extasy was a Finnish group founded in June 1990 under the abbreviation XTC, catalogued on CSDb under group ID 985. Their release history includes crack intros, logo screens, a mega demo, and the "Extasy Writer V1.0" utility — indicating activity across multiple scene disciplines. A notable collaboration with Ikari produced a fusion intro featuring Laxity's 118th intro tune, linking Extasy to one of the Swedish scene's most prominent music composers. Finland's C64 scene, while smaller than Sweden's or Denmark's, produced dedicated groups throughout the late 1980s and early 1990s. The intro attracted engagement on intros.c64.org from 2010 through 2011, with contributions from established scene commentators Rough, Twoflower, and Stainless Steel. The lower-ranked #438 Extasy-01 completes the group's representation in this collection.

Sources: CSDb · CSDb group · intros.c64.org

extasy-02.asm 2.324 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:19
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0700  End: $2a6f  (9072 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $2400 (9216)
// IRQ handler:  $2597 (irq_2597)
// IRQ handler:  $2612 (irq_2612)
// IRQ handler:  $26a8 (irq_26a8)
// IRQ handler:  $26cb (irq_26cb)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 2261 bytes, Data: 6811 bytes
// Labels: 222, Subroutines: 10
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$1009 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $24d8

sub_1000:
        jmp loc_1040

dat_1003:
        .byte $4c,$35,$10                           // L5.
// Referenced by: jsr from $26ba

sub_1006:
        jmp loc_10b4

txt_1009:
        .text "M"

// --- Region $1036-$1511 ---
.pc = $1036 "loc_1036"

loc_1036:
        ora ($8d,x)
        bne loc_104f
        lda #$00
        sta $d418
        rts

loc_1040:
        ldy #$18
        lda #$00

loc_1044:
        sta $d400,y
        dey
        bpl loc_1044
        lda #$1f
        sta $d418

loc_104f:
        lda $15d2
        sta $15d1
        ldx #$00

loc_1057:
        lda #$01
        sta $15d6,x
        lda #$00
        sta $15df,x
        sta $15f1,x
        sta $164f,x
        sta $15dc,x
        lda $15e8,x
        sta $fc
        lda $15eb,x
        sta $fd
        ldy $15df,x
        lda ($fc),y
        cmp #$ff
        bne loc_107d

loc_107d:
        bpl loc_108c
        and #$7f
        sta $15ee,x
        inc $15df,x
        ldy $15df,x
        lda ($fc),y

loc_108c:
        cmp #$40
        bcc loc_109d
        and #$3f
        sta $15f1,x
        inc $15df,x
        ldy $15df,x
        lda ($fc),y

loc_109d:
        asl
        tay
        lda $1694,y
        sta $15e2,x
        lda $1695,y
        sta $15e5,x
        inc $15df,x
        inx
        cpx #$03
        bne loc_1057
        rts

loc_10b4:
        lda $15d0
        beq loc_10ba
        rts

loc_10ba:
        dec $15d1
        beq loc_10c8
        ldx #$02

loc_10c1:
        jsr sub_11cd
        dex
        bpl loc_10c1
        rts

loc_10c8:
        lda $15d2
        sta $15d1
        ldx #$02

loc_10d0:
        dec $15d6,x
        beq loc_10db
        jsr sub_11cd
        jmp loc_11c6

loc_10db:
        lda $15e2,x
        sta $fa
        lda $15e5,x
        sta $fb

loc_10e5:
        ldy $15dc,x
        lda ($fa),y