← #857 Top 1024 #859 →
#858

Victims 01

Victims

1.012 lines of code

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

History

Music
Rastislav Smutny (Top Secret) — "Victims of (part 1)"
Group
Victims — Sweden, founded April 1991

A crack intro from Victims, a short-lived Swedish group founded in April 1991 by Dr.Cool and Adolf. The CSDb-linked release uses a SID composition by Rastislav Smutny, working under the handle Top Secret — his "Victims of (part 1)" is preserved in the HVSC. The group assembled an experienced roster: Dr.Cool had recently departed Censor Design, and the founding drew in former members of both Dynamix and Extasy. Despite this talent pool, Victims survived only six months, dissolving in September 1991. Upon disbanding, ex-Extasy members predominantly joined Genesis Project while former Dynamix personnel moved to Extreme — illustrating the constant churn of Scandinavian scene groups during this period. CSDb documents at least twelve numbered Victims intros alongside several standalone releases. Key members included Drake (cracker), God (coder and cracker), Roy (handling code, cracking, graphics, and diskmag editing), and Tronic (coder and swapper).

Sources: CSDb · CSDb Group

victims-01.asm 1.012 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:59
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $ffff  (63488 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $0c18 (3096)
// IRQ handler:  $410d (irq_410d)
// IRQ handler:  $0b00 (irq_0b00)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 491 bytes, Data: 62997 bytes
// Labels: 147, Subroutines: 4
//
// Verification: 6 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $0814-$0817 ---
.pc = $0814 "sub_0814"
// Referenced by: jsr from $ff64

sub_0814:
        ror $7c
        brk

dat_0817:
        .byte $00                                   // .

// --- Region $0b00-$0c6f ---
.pc = $0b00 "irq_0b00"

irq_0b00:
        lda #$32
        sta $d012
        lda #$12
        sta $d018
        lda #$d8
        sta $d016
        lda #$0e
        sta $d022
        lda #$06
        sta $d023
        ldx #$00

loc_0b1b:
        ldy $0c96,x

loc_0b1e:
        dey
        bne loc_0b1e
        lda $0ca6,x
        sta $d020
        sta $d021
        inx
        cpx #$0b
        bne loc_0b1b

loc_0b2f:
        lda $d012
        cmp #$40
        bne loc_0b2f
        ldx #$00

loc_0b38:
        ldy $0cd6,x

loc_0b3b:
        dey
        bne loc_0b3b
        lda $0d0e,x
        sta $d016
        sta $d016
        inx
        cpx #$33
        bne loc_0b38

loc_0b4c:
        lda $d012
        cmp #$74
        bne loc_0b4c
        lda $50
        sta $d016
        ldx #$00

loc_0b5a:
        ldy $0cb6,x

loc_0b5d:
        dey
        bne loc_0b5d
        lda $0cc6,x
        sta $d020
        sta $d021
        inx
        cpx #$0d
        bne loc_0b5a

loc_0b6e:
        lda $d012
        cmp #$f0
        bne loc_0b6e
        lda #$c8
        sta $d016
        lda $50
        sec
        sbc #$02
        sta $50
        cmp #$c0
        bcc loc_0b88
        jmp loc_0bb8

loc_0b88:
        and #$07
        ora #$c0
        sta $50
        ldx #$00

loc_0b90:
        lda $06d1,x
        sta $06d0,x
        inx
        cpx #$27
        bne loc_0b90
        ldy #$00
        lda ($03),y
        cmp #$00
        beq loc_0bb0
        clc
        sta $06f7
        inc $03
        bne loc_0bad
        inc $04

loc_0bad:
        jmp loc_0bb8

loc_0bb0:
        lda #$41
        ldy #$0d
        sta $03
        sty $04

loc_0bb8: