#617

Zorro Soft Switzerland [ZSS] 01

Zorro Soft Switzerland [ZSS]

2.731 lines of code

RasterbarsRSTRMusicSIDSpritesSPRT

History

Group
Zorro Soft Switzerland [ZSS] — Switzerland, founded 1985

The sole ranked intro from Zorro Soft Switzerland (ZSS), a Swiss demo, cracking, and import group founded in 1985 by Cpt Trubble and Macho Man. CSDb documents the group as dissolved in 1989, placing their active period at roughly four years. Their mottos — "We've got the Power" and "We are the Power you need" — capture the competitive spirit typical of mid-1980s cracking groups. ZSS produced 78 releases, primarily cracks and imports concentrated between 1987 and 1989. The group organized at least two events — the "Crazy & ZSS Party 1988" and the "ZSS Copy Party 1988" — indicating an active role in the Swiss scene's social infrastructure. No individual credits for code, music, or graphics are identified for this specific intro. Switzerland was a smaller but strategically positioned participant in the European C64 scene, situated at the crossroads of German, French, and Italian scene networks. ZSS's 1985 founding places them among the earlier Swiss scene formations.

Sources: CSDb · intros.c64.org

zss-01.asm 2.731 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:37:06
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $3910  (12561 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $3840 (14400)
// IRQ handler:  $ea31 (irq_ea31)
// IRQ handler:  $3500 (irq_3500)
// IRQ handler:  $387f (nmi_387f)
//
// Code: 2476 bytes, Data: 10085 bytes
// Labels: 297, Subroutines: 12
//
// Cross-references: all OK
// ============================================


// --- Region $1900-$1a52 ---
.pc = $1900 "sub_1900"
// Referenced by: jsr from $35a9

sub_1900:
        ldx $1800
        inx
        stx $1800
        cpx #$08
        beq loc_190e
        jmp loc_1b40

loc_190e:
        ldx #$00
        stx $1800
        ldx $1801
        inx
        stx $1801
        cpx #$08
        beq loc_1921
        jmp loc_1940

loc_1921:
        ldx #$00
        stx $1801
        ldx $1802
        inx
        stx $1802
        cpx $1803
        beq loc_1935
        jmp loc_1940

loc_1935:
        ldx $1804
        stx $1802
        jmp loc_1940

dat_193e:
        .byte $00,$00                               // ..

loc_1940:
        ldx $1802
        lda $1580,x
        sta $fe
        lda dat_1500,x
        asl
        asl
        asl
        clc
        adc $1801
        tax
        stx $ff
        lda $1100,x
        cmp #$00
        bne loc_195f
        jmp loc_19bb

loc_195f:
        tax
        and #$80
        cmp #$80
        bne loc_1984
        lda #$05
        sta $1805
        lda $1832
        sta $d405
        lda $1833
        sta $d406
        lda #$00
        sta $1806
        lda #$81
        sta $d404
        jmp loc_19aa

loc_1984:
        lda #$0e
        sta $1808
        sta $d403
        lda #$c0
        sta $d402
        sta $1807
        lda #$41
        sta $d404
        lda #$01
        sta $1806
        lda dat_1830
        sta $d405
        lda $1831
        sta $d406

loc_19aa:
        txa
        and #$7f
        clc
        adc $fe
        tax
        lda $1000,x
        sta $d400
        lda dat_1080,x
.label loc_19bb = * + 1
        sta $d401
        nop
        nop
        nop
        ldx $1802
        lda $1680,x
        sta $fe
        lda $1600,x
        asl
        asl
        asl
        clc
        adc $1801
        tax
        stx $ff
        lda $1200,x
        cmp #$00
        bne loc_19df
        jmp loc_1a90

loc_19df:
        and #$7f
        sta $fd
        lda $1300,x
        asl
        asl
        tay
        ldx #$00