← #832 Top 1024 #834 →
#833

Slaves of Keyboard [SOK] 04

Slaves of Keyboard [SOK]

481 lines of code

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

History

Group
Slaves of Keyboard — Poland, dissolved 1991

Doc Snyder’s Page catalogues this as Crack Intro #02 from Slaves of Keyboard, a Polish cracking and importing group whose motto was "The Power of Chain." Mosquito — who joined SOK in April 1990 according to CSDb — handled both the code and the artwork for this silent intro. The scrolltext reveals that it accompanied a crack of "Legend of Kage" by Storm of Extend, with Kruger of SOK linking the release. CSDb (group ID 2121) documents that SOK dissolved in 1991 when the group merged with Deuter and Cruel Soldiers to form Asphyxia. The greetings list names dozens of groups including Adroit, Crest, Fairlight, HTL, Triad, and X-Rated — reflecting SOK’s connections across the European trading network. A separate SOK intro appears in this collection at position #680, featuring different personnel and visual style. Mosquito’s dual role as coder and graphician kept the production compact — a one-person effort typical of smaller Eastern European groups.

Sources: CSDb · Doc Snyder's Page · intros.c64.org

sok-04.asm 481 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:46
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0700  End: $105f  (2400 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $0ee0 (3808)
// IRQ handler:  $0dc0 (irq_0dc0)
// IRQ handler:  $0df8 (irq_0df8)
// IRQ handler:  $ea34 (irq_ea34)
//
// Code: 282 bytes, Data: 2118 bytes
// Labels: 68, Subroutines: 2
//
// Cross-references: all OK
// ============================================


// --- Region $0d30-$0d84 ---
.pc = $0d30 "loc_0d30"

loc_0d30:
        lda #$0e
        sta $0286
        jsr $e544
        sei
        ldx #$00
        stx $dc0e
        stx $d020
        stx $d021
        stx $fb
        inx
        stx $d01a
        lda #$c0
        sta $0314
        lda #$0d
        sta $0315
        ldx #$00

loc_0d56:
        lda $0c00,x
        sta $0400,x
        sta $06a8,x
        lda $0c28,x
        sta $0428,x
        sta $06d0,x
        inx
        bne loc_0d56
        ldx #$04
        lda #$06

loc_0d6f:
        sta $d9b8,x
        sta $d9da,x
        dex
        bpl loc_0d6f
        lda #$b0
        sta $d012
        lda #$02
        sta $fe
        cli

loc_0d82:
        jmp loc_0d82

// --- Region $0dc0-$0e5b ---
.pc = $0dc0 "irq_0dc0"

irq_0dc0:
        lda #$12
        sta $d018
        lda #$0f
        sta $d022
        lda #$0e
        sta $d023
        lda #$1b
        sta $d011
        lda #$18
        sta $d016
        lda #$80
        sta $d012
        lda #$f8
        sta $0314
        lda #$0d
        sta $0315
        inc $d019
        jsr sub_0e20
        jmp $ea7d

dat_0df1:
        .byte $fd,$8d,$16,$d0,$00,$00,$00           // .......

irq_0df8:
        lda $fd
        sta $d016
        lda #$14
        sta $d018
        lda #$b0
        sta $d012
        lda #$1b
        sta $d011
        inc $d019
        lda #$c0
        sta $0314
        jsr sub_0e70
        jmp $ea81

dat_0e1a:
        .byte $14,$03,$00,$00,$00,$00               // ......
// Referenced by: jsr from $0deb

sub_0e20:
        lda #$00
        beq loc_0e28

dat_0e24:
        .byte $ce,$21,$0e                           // .!.

loc_0e27:
        rts

loc_0e28:
        lda $fd
        sec
        sbc $fe
        and #$07
        sta $fd
        bcs loc_0e27
        ldx #$00

loc_0e35:
        lda $05b9,x
        sta $05b8,x
        inx
        cpx #$27
        bne loc_0e35
        inc $fb
        bne loc_0e46
        inc $fc

loc_0e46:
        ldy #$00

loc_0e48:
        lda ($fb),y
        bne loc_0e54