#783

Wanderer [WDR] 10

Wanderer [WDR]

3.801 lines of code

RasterbarsRSTRMusicSIDScrollerSCRLSpritesSPRT

History

Group
Wanderer [WDR]

The tenth intro from Wanderer — a group that, despite producing at least ten numbered intros, left virtually no footprint in major scene archives. CSDb lists The Wanderer Group (TWG) as a German group (group ID 700) and a separate US branch, but neither directly matches the "WDR" abbreviation used on intros.c64.org. The scrolltext from the Warriors of Darkness intro in this collection greets "The Wanderer Group" alongside Triad and Ikari, placing the name within the German scene of early 1988. The intros.c64.org listing generated notable community discussion — comments from Scott Brockway, Eclipse, Fungus, Changeling, and archivist iAN CooG suggest the intro attracted preservation interest. Multiple posts from iAN CooG indicate efforts at identification or attribution. The high intro number confirms sustained activity, yet the incomplete CSDb mapping leaves the group's precise identity — whether this is the same Wanderer Group greeted by WOD or a distinct formation — unresolved. No individual credits for code, music, or graphics have been identified.

Sources: intros.c64.org

wdr-10.asm 3.801 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:37:01
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $40ff  (14592 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $1000 (4096)
// IRQ handler:  $106c (irq_106c)
// IRQ handler:  $10b8 (irq_10b8)
// IRQ handler:  $1103 (irq_1103)
// IRQ handler:  $1130 (irq_1130)
// IRQ handler:  $1164 (irq_1164)
// IRQ handler:  $1197 (irq_1197)
// IRQ handler:  $ea31 (loc_ea31)
//
// Code: 2540 bytes, Data: 12052 bytes
// Labels: 352, Subroutines: 12
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$11ec ---
.pc = $1000 "main_1000"

main_1000:
        lda #$00
        jsr sub_1800
        jsr sub_1321
        jsr sub_13bb
        lda #$ea
        sta $0328
        jsr $e544
        ldx #$00
        lda #$09

loc_1017:
        sta $d82d,x
        sta $d92c,x
        inx
        bne loc_1017
        ldx #$00

loc_1022:
        lda #$08
        sta $da08,x
        sta $daf8,x
        lda #$01
        sta $06f8,x
        sta $0608,x
        inx
        bne loc_1022
        lda #$17
        sta $d6
        lda #$0e
        ldy #$12
        jsr $ab1e
        lda #$01
        sta $07e7
        sta $dbe7
        jsr sub_13ca
        sei
        lda #$01
        sta $dc0d
        sta $d01a
        lda #$1b
        sta $d011
        lda #$6c
        sta $0314
        lda #$10
        sta $0315
        lda #$f0
        sta $d012
        cli

loc_1069:
        jmp loc_1069
irq_106c: {
        inc $d019
        lda #$1b
        sta $d018
        lda #$00
        sta $d021
        lda #$d8
        sta $d016
        lda #$06
        sta $d022
        lda #$0e
        sta $d023
        ldx #$00
loop1:
        ldy $123d,x
        lda $d012
loop2:
        cmp $d012
        beq loop2
        sty $d020
        sty $d021
        inx
        cpx #$02
        bne loop1
        jsr sub_1240
        jsr sub_11c8
        lda #$b8
        sta $0314
        lda #$10
        sta $0315
        lda #$60
        sta $d012
        jmp $ea81
}
irq_10b8: {
        inc $d019
        ldy #$06
        lda $d012
loop1:
        cmp $d012
        beq loop1
        sty $d020
        sty $d021
        lda #$0e
        sta $d022
        lda #$06
        sta $d020
        sta $d021
        ldx #$00
loop2:
        ldy dat_11ed,x
        lda $d012
loop3:
        cmp $d012
        beq loop3
        and #$07
        ora #$10
        sty $d016
        inx
        cpx #$1e
        bne loop2
        lda #$03
        sta $0314
        lda #$11
        sta $0315
        lda #$8e
        sta $d012
        jmp $ea81
}