← #846 Top 1024 #848 →
#847

Warriors of the Wasteland [WOW] 27

Warriors of the Wasteland [WOW]

2.324 lines of code

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

History

Group
Warriors of the Wasteland — Belgium, founded 1986

Another crack intro from Warriors of the Wasteland (WOW), the Belgian group founded in 1986 by Le Sollitaire and Scorpie. Doc Snyder's page catalogues this as "Crack Intro #02" — sharing the same Ispace code and artwork, and EVS (Edwin van Santen) music titled "Edwin's Dreeam" (sic). CSDb lists WOW as a demo group, cracking group, and import group based in Belgium, with over 1,100 documented releases spanning nearly four decades. Key members across the group's history include Einstein, Stormlord, xIII, Vinzz, Topic, and Rank 01. The scrolltext names Jones as the cracker, who handled "Head the Ball" by Hewson. WOW maintained cooperations with Intruders and Rush Division. The group's greetings reference Dynamix, Abstract, Censor, Fairlight, X-Factor, F4CG, Transcom, and others — a broad cross-section of European scene elite. Other WOW entries in this collection include #392 WOW 03.

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

wow-27.asm 2.324 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:37:02
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $27f8  (8185 bytes)
// Note: PRG was crunched, depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $1a00 (6656)
// IRQ handler:  $1b00 (irq_1b00)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 2322 bytes, Data: 5863 bytes
// Labels: 239, Subroutines: 8
//
// Cross-references: all OK
// ============================================


// --- Region $0e80-$0e8e ---
.pc = $0e80 "loc_0e80"

loc_0e80:
        ldx #$2e

loc_0e82:
        lda $0e90,x
        sta $0340,x
        dex
        bpl loc_0e82
        jmp $0340

chr_0e8e:
        // === Charset data (1 bytes, $0e8e-$0e8e) ===
        .byte $00                                   // char 0 (partial)

// --- Region $1000-$1006 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $1a58

sub_1000:
        jmp loc_116b
// Referenced by: jsr from $1f50

sub_1003:
        jmp loc_11a8

txt_1006:
        .text "("

// --- Region $116b-$1775 ---
.pc = $116b "loc_116b"

loc_116b:
        ldx #$78
        lda #$00

loc_116f:
        sta $101a,x
        dex
        bpl loc_116f
        jsr sub_119d
        lda $1800,y
        sta smc_1187                                // SMC: modifies $1187
        lda $1801,y
        sta smc_1188                                // SMC: modifies $1188
        ldx #$05

loc_1186:
.label smc_1187 = * + 1
.label smc_1188 = * + 2
        lda $1802,x                                 // !SMC: modified by $117b, $1181
        sta $1044,x
        lda #$03
        sta $103b,x
        dex
        bpl loc_1186
        ldx #$02

loc_1196:
        jsr sub_1328
        dex
        bpl loc_1196
        rts
// Referenced by: jsr from $1175

sub_119d:
        ldx #$18
        lda #$00

loc_11a1:
        sta $d400,x
        dex
        bpl loc_11a1
        rts

loc_11a8:
        lda #$0f
        ora #$10
        sta $d418
        lda #$90
        sta $11c7
        ldx #$02

loc_11b6:
        stx $fb
        lda $101a,x
        bne loc_11c3
        jsr sub_11cc
        inc $1029,x

loc_11c3:
        dex
        bpl loc_11b6
        lda #$91
        sta $d417
        rts
// Referenced by: jsr from $11bd

sub_11cc:
        lda $1020,x
        sta $fe
        lda $1023,x
        sta $ff
        ldy $1026,x
        lda $1029,x
        cmp $102c,x
        beq loc_11f6
        txa
        clc
        adc #$01
        cmp $1029,x
        bne loc_11f3
        lda ($fe),y
        cmp #$ff
        bne loc_11f3
        jmp loc_131b

loc_11f3:
        jmp loc_14bd

loc_11f6:
        lda #$00
        sta $1029,x
        sta $1056,x

loc_11fe:
        lda ($fe),y