← #274 Top 1024 #276 →
#275

Extacy 03

Extacy

2.870 lines of code

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

History

Released
August 1994
Code
Masoko
Music
T.L.F. (Chris Lightfoot)
Graphics
Sinister
Charset
Mike
Group
Extacy — Netherlands, founded February 1992

Extacy Intro #3, released in August 1994, is a crack intro from the Dutch group Extacy. The intro was coded by Masoko, features graphics by Sinister, a charset by Mike, and music by T.L.F. -- the SID musician Chris Lightfoot, whose tune "Cops 3" provides the soundtrack. Extacy was founded in February 1992 in the Netherlands under the abbreviation XTC, with the tagline "We bring you to heaven." The group maintained friendly relations with the Airwolf Team, though their scrolltexts were careful to clarify this was a friendship rather than a formal cooperation. Other Extacy intros on Doc Snyder's Page feature code by Darkman and music by Deek (Richard Rinn) and The Syndrom (Matthias Hartung), showing the group's access to quality SID talent from across the European scene.

Sources: CSDb · intros.c64.org · Doc Snyder's Page

extacy-03.asm 2.870 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:48
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0700  End: $57dc  (20701 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $56cb (22219)
// IRQ handler:  $1e03 (irq_1e03)
// IRQ handler:  $ea31 (irq_ea31)
// IRQ handler:  $5798 (irq_5798)
// IRQ handler:  $1e1a (irq_1e1a)
// IRQ handler:  $1e90 (irq_1e90)
// IRQ handler:  $5760 (irq_5760)
// IRQ handler:  $1f0b (irq_1f0b)
// IRQ handler:  $1f22 (irq_1f22)
//
// Code: 1431 bytes, Data: 19270 bytes
// Labels: 268, Subroutines: 7
//
// Cross-references: all OK
// ============================================


// --- Region $08a9-$08d9 ---
.pc = $08a9 "Program $08a9"
        inc $fefe,x
        inc $fefe,x
        inc $fe7c,x
        inc $fefe,x
        inc $fefe,x
        .byte $7c,$fe,$fe                           // nop $fefe,x // ILLEGAL
        inc $fefe,x
        inc $7cfe,x
        inc $fefe,x
        inc $7efe,x
        .byte $3f,$7c,$fe                           // rla $fe7c,x // ILLEGAL
        inc $fefe,x
        inc $3f7e,x
        .byte $7f,$ff,$fe                           // rra $feff,x // ILLEGAL
        inc $fefe,x
        adc.abs $0003,x
        brk

// --- Region $1e00-$1f7d ---
.pc = $1e00 "loc_1e00"

loc_1e00:
        jmp loc_2566

irq_1e03:
        inc $d019
        lda #$81
        sta $d012
        lda #$1a
        sta $0314
        cli
        lda #$1e
        sta $0315
        nop
        jmp $ea81

irq_1e1a:
        lda #$00
        sta $d021
        lda #$7b
        sta $d011
        lda #$18
        sta $d018
        bit $ea
        lda $d012
        cmp #$81
        beq loc_1e32

loc_1e32:
        ldy #$05

loc_1e34:
        dey
        bne loc_1e34
        jsr sub_20f8
        ldy #$58

loc_1e3c:
        dey
        bne loc_1e3c
        lda #$3b
        sta $d011
        ldy smc_1e5c
        beq loc_1e58

loc_1e49:
        dec $2526
        dec $2528
        dec $252a
        dec $252c
        dey
        bne loc_1e49

loc_1e58:
        lda $0a
        sec
.label smc_1e5c = * + 1
        sbc #$02                                    // !SMC: modified by $1ea8
        and #$07
        sta $0a
        bcs loc_1e66
        jsr sub_228e

loc_1e66:
        lda #$00
        and #$1f
        tay
        lda $253e,y
        sta $201b
        ldy #$4f

loc_1e73:
        sta $d828,y
        dey
        bpl loc_1e73
        inc $1e67
        lda #$90
        sta $0314
        lda #$1e
        sta $0315
        ldx $d012
        inx
        stx $d012
        jmp $ea81

irq_1e90:
        lda $a01e
        cmp #$08
        beq loc_1e9e
        lda $a01f
        cmp #$10
        bne loc_1ea3

loc_1e9e:
        lda #$07
        sta smc_1ea4                                // SMC: modifies $1ea4

loc_1ea3:
.label smc_1ea4 = * + 1
        ldy #$00                                    // !SMC: modified by $1ea0
        lda $255e,y