#901

Fatum 12

Fatum

2.856 lines of code

RasterbarsRSTRMusicSIDScrollerSCRLSpritesSPRT

History

Released
1994
Code
Axon
Music
Bax (Bartek Wilk) — "Excuse"
Graphics
Fazee
Group
Fatum — Poland

A 1994 crack intro from Fatum, a Polish group identified on CSDb by the single-letter abbreviation "F." Axon handled the code while Fazee contributed the graphics. Bax (Bartek Wilk) composed the soundtrack "Excuse" — preserved in the HVSC. Doc Snyder's page confirms the same credits and also attributes the charset to Axon, indicating he served a dual role. The scrolltext — preserved on Doc Snyder's page — reveals the intro accompanied a crack of "Alien Smash +2" by Moonchild of Fatum, trained on 20 April 1994, with the original supplied by Blaster. Fatum operated from Poland, part of the Eastern European scene that grew significantly in the early 1990s as political changes opened up access to Western software and scene contacts. The scrolltext's phone number references a Finnish BBS connection, suggesting the group maintained international trading channels.

Sources: CSDb · docsnyderspage

fatum-12.asm 2.856 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: $0800  End: $39ff  (12800 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $0803 (2051)
// IRQ handler:  $08da (irq_08da)
// IRQ handler:  $0b5c (irq_0b5c)
// IRQ handler:  $0d70 (irq_0d70)
//
// Code: 3244 bytes, Data: 9556 bytes
// Labels: 292, Subroutines: 11
//
// Cross-references: all OK
// ============================================


// --- Region $0803-$0bff ---
.pc = $0803 "main_0803"

main_0803:
        lda #$37
        sta $01
        jsr $ff5b
        sei
        lda #$00
        sta $d020
        sta $d021
        sta $d027
        sta $d028
        sta $d029
        sta $d02a
        sta $02
        sta $d01b
        tax
        tay
        jsr sub_1000
        jsr sub_0eb4
        lda #$ff
        sta $d015
        lda #$08
        sta $03
        sta $d00c
        lda #$e8
        sta $d00e
        lda #$50
        sta $d00a
        lda #$b3
        sta $d010
        lda #$0f
        sta $d017                                // SMC: modifies $d017
        sta $d01d
        sta $1717
        ldx #$00
        txa

loc_0855:
        sta $da98,x
        sta $0698,x
        sta $0400,x
        sta $d800,x
        inx
        bne loc_0855
        lda #$03
        sta $dd00
        lda #$18
        sta $d016
        sta $d018
        ldx #$00

loc_0873:
        lda dat_3600,x
        sta $04e8,x
        lda $3700,x
        sta $05e8,x
        lda dat_3800,x
        sta $d8e8,x
        lda $3900,x
        sta $d9e8,x
        lda #$00
        sta $2400,x
        sta $2500,x
        inx
        bne loc_0873
        lda #$ff

loc_0898:
        sta spr_2580,x
        inx
        cpx #$40
        bne loc_0898
        ldx #$90
        stx $07fc
        inx
        stx $07fd
        inx
        stx $07fe
        inx
        stx $07ff
        lda smc_0b8d
        sta smc_0d2b                                // SMC: modifies $0d2b
        sei
        lda #$da
        sta $0314
        lda #$08
        sta $0315
        lda #$7f
        sta $dc0d
        lda #$01
        sta $d01a
        lda #$9b
        sta $d011
        lda #$1b
        sta $d012
        cli

loc_08d7:
.label smc_08d8 = * + 1
.label smc_08d9 = * + 2
        jmp loc_08d7                                // !SMC: modified by $0e22, $0e27

irq_08da:
        ldy #$06
        sta scr_0800
        nop
        nop
        nop
        bit $ea
        ldx #$0d

loc_08e6:
        dex
        bne loc_08e6
        nop
        lda $d012
        cmp #$1c
        beq loc_08f1

loc_08f1:
        ldx #$0a

loc_08f3:
        dex
        bne loc_08f3
        nop