← #191 Top 1024 #193 →
#192

S.W.A.T. 02

S.W.A.T.

1.334 lines of code

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

History

Released
1985
Code
Sim
Idea
Amb
Group
S.W.A.T. — United Kingdom, founded 1984

A 1985 crack intro header from S.W.A.T. — a British cracking group founded in 1984, making them an early-era UK operation. CSDb credits Sim with the code and Amb with the concept. The intro dates from a period when crack intros were still rudimentary affairs — short text displays or simple scroll routines attached to pirated software. S.W.A.T. operated from the United Kingdom, a scene that was active but smaller than the dominant Scandinavian and German circuits. The group's short name — standing for an unrecorded expansion — follows the mid-1980s trend of military-flavoured handles and acronyms. No music credits are listed, consistent with the era's simpler productions. The intro survives on intros.c64.org and CSDb, where it is catalogued as "S.W.A.T. Header 1985." Little additional documentation exists for the group or this release.

Sources: CSDb · intros.c64.org

s_w_a_t-02.asm 1.334 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:31
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0801  End: $ffff  (63487 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $081e (2078)
// IRQ handler:  $09a8 (irq_09a8)
// IRQ handler:  $ea31 (loc_ea31)
//
// Code: 1141 bytes, Data: 62346 bytes
// Labels: 121, Subroutines: 14
//
// Verification: 6 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $081e-$0842 ---
.pc = $081e "main_081e"

main_081e:
        .byte $89,$20                               // nop #$20 // ILLEGAL
        jsr sub_3200
        lda #$0b
        sta $d020
        jsr sub_1000
        jsr sub_086b
        jsr sub_096c
        .byte $0c,$77,$4c                           // nop $4c77 // ILLEGAL
        lda #$bf
        pha
        .byte $dc,$df,$a9                           // nop $a9df,x // ILLEGAL
        lda #$ff
        .byte $64,$85                               // nop $85 // ILLEGAL
        pha
        .byte $14,$20                               // nop $20,x // ILLEGAL
        rts

dat_0842:
        .byte $ff                                   // .

// --- Region $0859-$0953 ---
.pc = $0859 "sub_0859"
// Referenced by: jsr from $08f0

sub_0859:
        inc $d002
        inc $d001
        inc $d003
        inc $d005
        inc $d007
        rts

dat_0869:
        .byte $00,$00                               // ..

// Referenced by: jsr from $082b
sub_086b: {
        sei
        lda #$a8
        sta $0314
        lda #$09
        sta $0315
        cli
        lda #$2b
        sta $07f8
        lda #$2a
        sta $07f9
        lda #$29
        sta $07fa
        lda #$28
        sta $07fb
        lda #$2c
        sta $07fc
        lda #$0b
        sta $d020
        jsr sub_0949
        lda #$0b
        sta $d021
        sta $d009
        lda #$0f
        sta $d01d
        lda #$52
        sta $d000
        lda #$82
        sta $d002
        lda #$b2
        sta $d004
        lda #$e2
        sta $d006
        lda #$a5
        sta $d008
        lda #$ff
        sta $d001
        sta $d003
        sta $d005
        sta $d007
        lda #$0f
        sta $d015
loop1:
        dec $d001
        dec $d003
        dec $d005
        dec $d007
        jsr sub_093e
        lda $d007
        cmp #$54
        bne loop1
loop2:
        inc $d000
        inc $d000
        inc $d000
        jsr sub_0859
        dec $d004
        dec $d006
        dec $d006
        dec $d006
        jsr sub_093e
        jsr sub_093e
        lda $d000
        cmp #$e2
        bne loop2
loop3:
        dec $d000
        dec $d000
        dec $d000
        jsr sub_09e9
        inc $d004
        inc $d006
        inc $d006
        inc $d006
        jsr sub_0934
        jsr sub_0934
        lda $d006
        cmp #$e2
        bne loop3
        jmp $08e7
}
// Referenced by: jsr from $0924, $0927

sub_0934:
        lda $dc01
        cmp #$ff
        beq $093e