#997

Mystic 01

Mystic

12.383 lines of code

RasterbarsRSTRMusicSIDSpritesSPRTBitmapBMAP

History

Group
Mystic — Australia, founded 1990

The sole ranked intro from Mystic, an Australian cracking and demo group founded in 1990 by Sweetooth. CSDb documents the group under ID 1342 with over 100 releases, placing it among the most prolific Australian C64 outfits. The group's tagline — "We're soo cool; we are pissin' ice-cubes!!" — captured the irreverent humour typical of the scene. Key members included Sweetooth (coder, graphician, musician, and organiser), Slash (coder and diskmag editor), and Maxell (cracker and coder). Mystic published the diskmags Vandalism News and Mystic Review. No individual credits for code, music, or graphics have been confirmed for this particular intro. Comments on intros.c64.org from Conrad of Onslaught, ZTH of Abnormal, and CenTraX confirm the production's visibility among European scene figures — notable given the geographic distance between Australia and the European C64 heartland. The group dissolved around 1991 after a brief but productive existence.

Sources: CSDb Group · intros.c64.org

mystic-01.asm 12.383 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:23
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0801  End: $ffff  (63487 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $0e00 (3584)
// IRQ handler:  $fec1 (nmi_fec1)
// IRQ handler:  $329c (nmi_329c)
// IRQ handler:  $2900 (irq_2900)
//
// Code: 6260 bytes, Data: 57227 bytes
// Labels: 719, Subroutines: 18
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $0e00-$0e59 ---
.pc = $0e00 "main_0e00"

main_0e00:
        sei
        lda #$c1
        sta $0318
        lda #$fe
        sta $0319
        ldx #$00

loc_0e0d:
        lda $d011
        bpl loc_0e0d

loc_0e12:
        lda $d011
        bmi loc_0e12
        ldy smc_d020
        lda spr_0f00,y
        sta smc_d020                                // SMC: modifies $d020
        ldy smc_d021
        lda spr_0f00,y
        sta smc_d021                                // SMC: modifies $d021

loc_0e29:
        ldy scr_d800,x
        lda spr_0f00,y
        sta scr_d800,x
        ldy $d900,x
        lda spr_0f00,y
        sta $d900,x
        ldy $da00,x
        lda spr_0f00,y
        sta $da00,x
        ldy $db00,x
        lda spr_0f00,y
        sta $db00,x
        inx
        bne loc_0e29
        lda #$10
        dec $0e51
        bne loc_0e0d
        jmp loc_1e00

// --- Region $1000-$1006 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $22c0, $d3b6

sub_1000:
        jmp loc_101d
// Referenced by: jsr from $291e, $d9ea

sub_1003:
        jmp loc_1085

dat_1006:
        .byte $4c                                   // L

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

loc_101d:
        jmp loc_1807

// --- Region $1041-$162e ---
.pc = $1041 "sub_1041"
// Referenced by: jsr from $1314

sub_1041:
        sta $d404,y
        cpy #$00
        bne loc_104a
        inc $0f

loc_104a:
        rts

dat_104b:
        .byte $00,$00,$4e,$18,$d4                   // ..N..

loc_1050:
        lda $1b9f,y
        sta dat_1716
        lda $1ba0,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 dat_1716
        sta $1718

loc_1090:
        ldx #$00
        stx $1720
        jsr sub_10b0
        inx
        jsr sub_10b0