#729

Force, The 05

Force, The

1.691 lines of code

RasterbarsRSTRMusicSIDScrollerSCRL

History

Released
1989
Group
The Force -- Israel, founded 1985

CSDb confirms this Force intro was coded by Nir P. with graphics by Zagor and music by Link of the Cheyens and Vibrants -- specifically his composition "Abnormal," preserved in the HVSC. The Force was an Israeli cracking group founded in 1985 by Danny and Ronny, making it one of the earliest operations outside the traditional European and American scenes. The group functioned as a demo, cracker, music, graphics, magazine, and import group with 366 documented releases. Nir P. served as a coder and graphician within The Force from 1987 to 1992, while Guy Shavitt handled music and co-leadership. Link was a Dutch musician whose compositions reached groups across multiple continents through SID music distribution networks. The Force's motto -- "May The Force be with you... Always!" -- reflected the Star Wars enthusiasm common among young computer enthusiasts. The group also collaborated with Tektronix, an Australian sub-label.

Sources: CSDb

force-05.asm 1.691 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:42
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0700  End: $1c7f  (5504 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $0a00 (2560)
// IRQ handler:  $0ab7 (irq_0ab7)
// IRQ handler:  $0aeb (irq_0aeb)
// IRQ handler:  $0b28 (irq_0b28)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 2071 bytes, Data: 3433 bytes
// Labels: 198, Subroutines: 6
//
// Cross-references: all OK
// ============================================


// --- Region $0a00-$0bee ---
.pc = $0a00 "main_0a00"
main_0a00: {
        lda #$06
        sta $d020
        sta $d021
        lda #$00
        sta $d011
        sta $50
        sta $4b
        sta $4e
        sta $4f
        tax
loop1:
        lda #$20
        sta $0400,x
        sta $0500,x
        sta $0600,x
        sta $0700,x
        lda #$01
        sta $d800,x
        sta $d900,x
        sta $da00,x
        sta $db00,x
        inx
        bne loop1
loop2:
        lda $0c31,x
        sta $0428,x
        sta $0658,x
        lda $0cc1,x
        sta $04b8,x
        sta $06e8,x
        lda $0dc1,x
        sta $d828,x
        sta $da58,x
        lda $0e51,x
        sta $d8b8,x
        sta $dae8,x
        inx
        bne loop2
        ldx #$27
        lda #$08
loop3:
        sta $da08,x
        dex
        bpl loop3
        ldx #$07
loop4:
        lda $08d8,x
        sta chr_0800,x
        dex
        bpl loop4
        lda #$0f
        sta $d022
        lda #$0b
        sta $d023
        lda #$1b
        sta $49
        lda #$a0
        sta $48
        lda #$12
        sta $d018
        lda #$d7
        sta $4a
        lda #$c8
        sta $d016
        sei
        lda #$7f
        sta $dc0d
        lda #$f1
        sta $d01a
        lda #$1b
        sta $d011
        lda #$94
        sta $d012
        lda #$b7
        sta $0314
        lda #$0a
        sta $0315
        jsr sub_1000
        cli
        jmp $0ab4
}

irq_0ab7:
        ldx #$05

loc_0ab9:
        dex
        bne loc_0ab9
        lda #$01
        sta $d020
        sta $d021
        ldx #$0a

loc_0ac6:
        dex
        bne loc_0ac6
        lda #$00
        sta $d020
        sta $d021
        lda $4a
        sta $d016
        rol $d019
        lda #$a6
        sta $d012
        lda #$eb
        sta $0314
        lda #$0a
        sta $0315
        jmp $ea7e

irq_0aeb:
        ldx #$05

loc_0aed:
        dex
        bne loc_0aed
        lda #$01
        sta $d020
        sta $d021
        ldx #$0a

loc_0afa:
        dex
        bne loc_0afa