← #222 Top 1024 #224 →
#223

Strike Force, The 01

Strike Force, The

3.900 lines of code

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

History

Group
Strike Force — Germany, founded September 1987

A crack intro from Strike Force, most likely the German group founded in September 1987 and documented on CSDb under group ID 670. The German Strike Force operated as a cracker, demo, and import group until its dissolution on 7 December 1988 — reportedly when police confiscated founder Conan’s computer equipment. Key members included Conan (coder, cracker, and graphician), Drago (cracker and swapper), Pershy (coder and cracker), and Creator (coder and cracker). The group’s name was inspired by a wrestling tag team from the late 1980s. Strike Force maintained a cooperation with The Movers during its brief active period. No individual credits for code, music, or graphics on this particular intro could be confirmed. Multiple groups used variations of the "Strike Force" name across different national scenes, but the German outfit is the most prominent match. A second Strike Force intro appears in this collection at position #371.

Sources: CSDb · intros.c64.org

strikeforce-01.asm 3.900 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:32
// 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:  $1800 (6144)
// IRQ handler:  $18e9 (irq_18e9)
//
// Code: 3797 bytes, Data: 59691 bytes
// Labels: 463, Subroutines: 15
//
// Cross-references: all OK
// ============================================


// --- Region $0a16-$0a20 ---
.pc = $0a16 "Program $0a16"
        tax
        .byte $33,$82                               // rla ($82),y // ILLEGAL
        .byte $03,$00                               // slo ($00,x) // ILLEGAL
        beq loc_0a29
        php
        ldy #$33
        .byte $02                                   // jam // ILLEGAL

// --- Region $0a29-$0a29 ---
.pc = $0a29 "loc_0a29"

loc_0a29:
        brk

// --- Region $0d49-$0d49 ---
.pc = $0d49 "Program $0d49"
        rts

// --- Region $0ef0-$0ef0 ---
.pc = $0ef0 "Program $0ef0"
        brk

// --- Region $1000-$1009 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $18c3, $f6f6

sub_1000:
        jmp loc_1112

dat_1003:
        .byte $00,$00,$00                           // ...
// Referenced by: jsr from $190c, $f73f

sub_1006:
        jmp loc_111c

dat_1009:
        .byte $00                                   // .

// --- Region $10d4-$10d7 ---
.pc = $10d4 "loc_10d4"

loc_10d4:
        ora ($ff,x)
        brk

dat_10d7:
        .byte $13                                   // .

// --- Region $10f0-$138d ---
.pc = $10f0 "sub_10f0"
// Referenced by: jsr from $1117, $ef94; jmp from $1127, $efa4

sub_10f0:
        lda #$ff
        sta $109e
        sta $109f
        sta $10a0
        lda #$00
        ldx #$02

loc_10ff:
        sta $1046,x
        sta $1049,x
        sta $104c,x
        sta $1649,x
        dex
        bpl loc_10ff
        sta $10cb
        rts

loc_1112:
        lda #$01
        sta $10cb
        jsr sub_10f0
        rts

dat_111b:
        .byte $60                                   // `

loc_111c:
        lda $10cb
        cmp #$02
        beq loc_112a
        cmp #$01
        bne loc_112b
        jmp sub_10f0

loc_112a:
        rts

loc_112b:
        inc $109e
        inc $109f
        inc $10a0
        ldx #$02
        dec $10ca
        bpl loc_1141
        lda $1042
        sta $10ca

loc_1141:
        stx $48
        lda $1043,x
        sta $177d
        tay
        lda $10ca
        cmp $1042
        bne loc_1166
        lda $15d3,x
        sta smc_116d                                // SMC: modifies $116d
        lda $15d6,x
        sta smc_116e                                // SMC: modifies $116e
        dec $104c,x
        bmi loc_1169
        jmp loc_12c8

loc_1166:
        jmp loc_12f6

loc_1169:
        ldy $1046,x
.label smc_116d = * + 1
.label smc_116e = * + 2
        lda $10cc,y                                 // !SMC: modified by $1155, $115b
        cmp #$ff
        bne loc_1181
        lda #$00