#840

We Against Software Protection [WASP] 05

We Against Software Protection [WASP]

511 lines of code

History

Released
12 November 1985
Group
We Against Software Protection — Sweden, founded 1985

One of the earliest crack intros in the collection, released on 12 November 1985 by We Against Software Protection — a Swedish group whose acronym WASP doubled as a sharp, memorable handle. Founded in 1985, WASP was active during the very first wave of organized C64 software cracking in Scandinavia. No individual credits for code, music, or graphics have been recovered from CSDb or any other scene archive. The absence of music credits is consistent with the era — many 1985-vintage intros predated the widespread adoption of SID music routines in crack intros. The intro survives through both CSDb and intros.c64.org but has left no trace on Demozoo, Doc Snyder's page, or Freeze64. The group's full name is a declarative statement of purpose, typical of the ideological framing that early cracking groups used to justify their activities as a form of consumer advocacy.

Sources: CSDb

wasp-05.asm 511 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:37:00
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0801  End: $845c  (31836 bytes)
// Crunched with PuCrunch — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $7e1f (32287)
// IRQ handler:  $7ea2 (irq_7ea2)
// IRQ handler:  $ea31 (loc_ea31)
//
// Code: 260 bytes, Data: 31576 bytes
// Labels: 68, Subroutines: 2
//
// Verification: 4 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $0850-$0853 ---
.pc = $0850 "loc_0850"

loc_0850:
        .byte $03,$02                               // slo ($02,x) // ILLEGAL
        pla
        rts

// --- Region $7e1f-$7e54 ---
.pc = $7e1f "main_7e1f"

main_7e1f:
        jsr $e518
        lda #$00
        sta $d020
        sta $d021
        sta $d011
        sta $9d
        sta $62
        jsr sub_8002
        jsr sub_7e7c

loc_7e37:
        jsr $ffe4
        beq loc_7e37
        sei
        lda #$ea
        sta $0315
        lda #$31
        sta $0314
        lda #$f0
        sta $d01a
        jsr $ff84
        cli
        jmp $fce2

dat_7e53:
        .byte $60,$08                               // `.

// --- Region $7e60-$7f01 ---
.pc = $7e60 "loc_7e60"

loc_7e60:
        lda #$04
        ldx #$78
        ldy #$08
        jsr $ffbd
        lda #$08
        tax
        tay
        jsr $ffba
        lda #$00
        jsr $ffd5
        jmp loc_0850

dat_7e78:
        .text "NOVA"
// Referenced by: jsr from $7e34

sub_7e7c:
        sei
        lda #$1b
        sta $d011
        lda #$7f
        sta $dc0d
        lda #$00
        sta $fe
        sta $fd
        lda #$c7
        sta $ff
        lda #$01
        sta $d01a
        lda #$a2
        sta $0314
        lda #$7e
        sta $0315
        cli
        rts

irq_7ea2:
        lda $d019
        sta $d019
        lda $fe
        eor #$80
        sta $fe
        bne loc_7ebd
        lda #$00
        sta $d012
        lda $ff
        sta $d016
        jmp $ea7e

loc_7ebd:
        lda #$f1
        sta $d012
        lda #$c8
        sta $d016
        dec $ff
        dec $ff
        lda $ff
        cmp #$c0
        bpl loc_7ef3
        lda #$c6
        sta $ff
        lda #$07
        sta $fc
        lda #$c0
        sta $fb
        ldy #$00

loc_7edf:
        iny
        lda ($fb),y
        dey
        sta ($fb),y
        iny
        cpy #$27
        bne loc_7edf
        ldx $fd
        lda txt_7f02,x
        sta ($fb),y
        inc $fd

loc_7ef3:
        ldx #$00

loc_7ef5: