← #799 Top 1024 #801 →
#800

Special Weapons and Tactics [SWAT] 01

Special Weapons and Tactics [SWAT]

4.482 lines of code

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

History

Group
Special Weapons and Tactics — Germany, founded 1987

The sole ranked intro from Special Weapons and Tactics, a German group that operated from 1987 to 1989. CSDb (group ID 3082) classifies SWAT as both a demo group and a cracker group, based in Frankfurt am Main. Key members included Falco (coder and swapper), MC Fox (coder, cracker, and importer), and T’Pau (coder and logo graphician, active until approximately 1988). The group accumulated 65 documented releases during its two-year existence — a respectable output for such a short-lived outfit. CSDb notes that SWAT should not be confused with other similarly named groups, as the abbreviation was used by at least two other C64 scene outfits: S.W.A.T. from the United Kingdom and Software Wizard and Terrorist. The intros.c64.org listing attracted comments from scene archivist iAN CooG and Dragon in 2011, suggesting the intro drew attention from the preservation community. No individual credits for code, music, or graphics on this particular intro could be confirmed.

Sources: CSDb · intros.c64.org

swat-01.asm 4.482 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:47
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0801  End: $fffe  (63486 bytes)
// Crunched with Exomizer — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $c000 (49152)
// IRQ handler:  $c100 (irq_c100)
// IRQ handler:  $ea31 (loc_ea31)
//
// Code: 2438 bytes, Data: 61048 bytes
// Labels: 365, Subroutines: 7
//
// Verification: 4 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $0810-$081f ---
.pc = $0810 "loc_0810"

loc_0810:
        inc $01
        tsx

loc_0813:
        lda $2995,x
        sta.abs $00fc,x
        dex
        bne loc_0813
        jmp loc_2963

dat_081f:
        .byte $80                                   // .

// --- Region $0ad0-$0ae4 ---
.pc = $0ad0 "Program $0ad0"
        and #$03
        and #$d3
        and #$05
        and #$bd
        rol
        eor ($8b,x)
        ora ($e3,x)
        .byte $64,$a3                               // nop $a3 // ILLEGAL
        .byte $dc,$92,$e8                           // nop $e892,x // ILLEGAL
        ldx #$71
        .byte $92                                   // jam // ILLEGAL

// --- Region $15d0-$15da ---
.pc = $15d0 "Segment $15d0"
        lda ($c9,x)
        asl $ec63
        inc $36
        jmp ($6468)

dat_15da:
        .byte $37                                   // 7

// --- Region $2963-$2996 ---
.pc = $2963 "loc_2963"

loc_2963:
        inx
        tya
        and #$0f
        beq loc_297d
        txa
        lsr
        ldx $0333,y

loc_296e:
        rol
        rol $9f
        dex
        bpl loc_296e
        adc $0367,y
        tax
        lda $9f
        adc $039b,y

loc_297d:
        sta $039c,y
        txa
        sta $0368,y
        ldx #$04
        jsr $0100
        sta $0334,y
        iny
        cpy #$34
        bne loc_2963
        ldy #$00
        jmp $0135

dat_2996:
        .byte $80                                   // .

// --- Region $6034-$6034 ---
.pc = $6034 "sub_6034"
// Referenced by: jsr from $aa86

sub_6034:
        brk

// --- Region $8dd0-$8dd0 ---
.pc = $8dd0 "Segment $8dd0"
        brk

// --- Region $a333-$a35e ---
.pc = $a333 "loc_a333"

loc_a333:
        lda $fd0f,x
        cmp $8003,x

loc_a339:
        bne loc_a33e
        dex
        bne loc_a333

loc_a33e:
        rts

dat_a33f:
        .byte $c3,$c2                               // ..

loc_a341:
        cmp $3038
        ldx #$30
        ldy #$fd
        clc
        stx $c3
        sty $c4
        ldy #$1f

loc_a34f:
        lda $0314,y
        bcs $a356
        lda ($c3),y
        sta ($c3),y
        sta $0314,y
        dey
        bpl loc_a34f
        rts