#696

Fantasy 04

Fantasy

2.862 lines of code

RasterbarsRSTRMusicSIDScrollerSCRLSpritesSPRT

History

Released
10 November 1989
Code
Wanderer
Graphics
Spacie, Terry Lloyd
Charset
Malcolm Smith
Music
Iron Cat (Alain Hertenstein) — "The Look"
Group
Fantasy — United States, founded 18 May 1989

Released on 10 November 1989, this is the fourth numbered crack intro from Fantasy, an American group founded on 18 May 1989 with the tagline "The Class Act." CSDb titles this release "Fantasy Intro (You Got the Look)," referencing the music — "The Look" by Iron Cat, real name Alain Hertenstein, preserved in the HVSC. Wanderer coded the intro, with graphics by Spacie and Terry Lloyd and the charset by Malcolm Smith — an unusually detailed set of credits for the era. Doc Snyder's Page documents additional Fantasy intros, including work by coders Kickback and Mr. Neutron. The group's first release scrolltext from May 1989 names early members as Technique, Front 242, and Hardrock, and sends greetings to US contacts ATC, FBR, XDS, TWG, RFO, INC, and NEC. Fantasy operated within the American cracking network, sharing contacts with groups like NEC, TSM, INC, and Excalibur.

Sources: CSDb · Doc Snyder's Page

fantasy-04.asm 2.862 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:38
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0700  End: $37ff  (12544 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $3000 (12288)
// IRQ handler:  $311a (irq_311a)
// IRQ handler:  $315c (irq_315c)
// IRQ handler:  $31c4 (irq_31c4)
// IRQ handler:  $3219 (irq_3219)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 2912 bytes, Data: 9632 bytes
// Labels: 266, Subroutines: 14
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$1563 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $3003; jmp from $34b1

sub_1000:
        jmp loc_1908
// Referenced by: jsr from $349f

sub_1003:
        jmp loc_1917
// Referenced by: jsr from $3204

sub_1006:
        lda $1974

loc_1009:
        cmp #$02
        beq loc_1014
        cmp #$01
        bne loc_102a
        jmp loc_18e8

loc_1014:
        rts

dat_1015:
        .byte $01,$56,$ee,$16                       // .V..

loc_1019:
        bpl loc_1009
        asl $10,x
        lda $1016
        cmp #$32
        bne loc_1029
        lda #$01
        sta dat_1015

loc_1029:
        rts

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

loc_1045:
        bit $d020
        stx $ff
        lda $191e,x
        sta $1956
        tay
        lda $1973
        cmp chr_191d
        bne loc_106b
        lda $16a1,x
        sta $fb
        lda $16a4,x
        sta $fc
        dec $1927,x
        bmi loc_106e
        jmp loc_11fa

loc_106b:
        jmp loc_120a

loc_106e:
        ldy dat_1921,x
        lda ($fb),y
        cmp #$fe
        beq loc_108c
        cmp #$ff
        bne loc_1094
        lda #$00
        sta $1927,x
        sta dat_1921,x
        sta $1924,x
        sta dat_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 dat_1921,x
        jmp loc_106e

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

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