#45

Wanderer Group, The [TWG] 02

Name: Wanderer Group, The [TWG] 02
Availability: InStock
Author: Wanderer Group, The

Wanderer Group, The [TWG]

2.158 lines of code

RasterbarsRSTRMusicSIDScrollerSCRLSpritesSPRT

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

History

Released: 13 November 1987
Code: Lui
Charset: Jason Kendall
Music: Hysteria by Fred Gray (ripped)
Group: The Wanderer Group — Germany, founded 1987

Ranked #45 on intros.c64.org. This release shares the CSDb record "Wanderer Intro" (release #53407, dated 13 November 1987) with #26 TWG; the same code (Lui), charset (Jason Kendall) and music (Fred Gray's "Hysteria") apply. The tune is preserved in the HVSC under Gray's composer directory. Doc Snyder's page for The Wanderer Group exists but carries no section confirmed to match this specific intro. The two entries in intros.c64.org covering the same CSDb release reflect the practice at that site of listing distinct intro variants or versions separately even when they share a single catalogue record.

Sources: CSDb · docsnyderspage

twg-02.asm 2.158 lines

// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:38
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $2cff  (9472 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $1020 (4128)
// IRQ handler:  $1100 (irq_1100)
// IRQ handler:  $ea31 (loc_ea31)
// IRQ handler:  $1620 (irq_1620)
//
// Code: 2183 bytes, Data: 7289 bytes
// Labels: 223, Subroutines: 5
//
// Cross-references: all OK
// ============================================


// --- Region $1020-$10f1 ---
.pc = $1020 "main_1020"

main_1020:
        lda #$93
        jsr $ffd2
        jsr sub_10e6
        sei
        lda #$0b
        sta $d022
        lda #$0c
        sta $d023
        lda #$08
        ldx #$00

loc_1037:
        sta $d800,x
        sta $d900,x
        inx
        bne loc_1037
        ldx #$00

loc_1042:
        lda $0e90,x
        sta $0400,x
        lda $0f90,x
        sta $0500,x
        inx
        bne loc_1042
        jsr sub_1800
        lda #$01
        sta $d01a
        lda #$7f
        sta $dc0d
        lda #$1b
        sta $d011
        lda #$00
        sta $0314
        lda #$11
        sta $0315
        lda #$0f
        sta $d012
        lda #$03
        sta $d015
        ldx #$c8
        ldy #$6b
        stx $d000
        sty $d001
        ldx #$df
        ldy #$6b
        stx $d002
        sty $d003
        lda #$00
        sta $d027
        sta $d028
        lda #$00
        sta $d017
        sta $d01d
        ldx #$b2
        ldy #$b3
        stx $07f8
        sty $07f9
        ldx #$00

loc_10a7:
        lda dat_12a0,x
        sta $0590,x
        lda $1380,x
        sta $0670,x
        lda #$02
        sta $d9b8,x
        sta $da70,x
        inx
        bne loc_10a7
        lda #$00

loc_10c0:
        sta $d990,x
        inx
        cpx #$28
        bne loc_10c0
        ldx #$00

loc_10ca:
        lda txt_11a8,x
        cmp #$20
        bne loc_10d5
        inx
        jmp loc_10ca

loc_10d5:
        sta $05e0,x
        clc
        adc #$40
        sta $0608,x
        inx
        cpx #$27
        bcc loc_10ca
        jmp loc_1480
// Referenced by: jsr from $1025

sub_10e6:
        lda #$aa
        sta chr_0800
        sta $0801
        sta $0802
        rts

// --- Region $1100-$11a8 ---
.pc = $1100 "irq_1100"

irq_1100:
        inc $d019
        lda #$18
        sta $d016
        lda #$12
        sta $d018
        lda #$31
        sta $d012
        lda #$1e
        sta $0314
        pla
        tay
        pla
        tax
        pla
        rti