#947

Force, The 19

Force, The

740 lines of code

RasterbarsRSTRScrollerSCRL

History

Released
April 1988
Group
The Force -- Israel, founded 1985

CSDb lists an early Force intro from April 1988 with no credited coder, musician, or graphician. The Force was an Israeli cracking group founded in 1985 by Danny and Ronny, operating from Rishon le-Zion before expanding to other Israeli cities. This 1988 intro was used in cracks of Advanced Tactical Fighter, Magnetron, and Stocker +2. With 366 documented releases, The Force maintained a prolific output despite Israel's geographic isolation from the European scene's distribution networks. By 1988, key members Guy Shavitt (coder and musician, active 1986--1992) and Nir P. (coder and graphician, active 1987--1992) were driving the group's technical output. The lack of credits on this particular intro may reflect the era's less systematic documentation practices. Other Force intros in this collection -- including force-05 and force-10 -- carry full credit attributions from later years. The group's motto was "May The Force be with you... Always!"

Sources: CSDb

force-19.asm 740 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: $0800  End: $d030  (51249 bytes)
// Crunched with PuCrunch — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $0c08 (3080)
// IRQ handler:  $0cae (irq_0cae)
// IRQ handler:  $0ce4 (irq_0ce4)
// IRQ handler:  $0d0d (irq_0d0d)
// IRQ handler:  $0d33 (irq_0d33)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 511 bytes, Data: 50738 bytes
// Labels: 93, Subroutines: 6
//
// Cross-references: all OK
// ============================================


// --- Region $0c08-$0c87 ---
.pc = $0c08 "main_0c08"

main_0c08:
        lda #$ff
        sta chr_0800
        eor #$02
        sta $0801
        eor #$42
        sta $0802
        eor #$50
        sta $0803
        lda #$0e
        sta $0286
        jsr $e544
        lda #$00
        sta $f9
        sta $fa
        sta $fb
        sta $d020
        sta $d021
        tax

loc_0c33:
        sta $0c00,x
        inx
        cpx #$08
        bne loc_0c33
        ldx #$00

loc_0c3d:
        lda $0ef8,x
        sta $0400,x
        lda $0f38,x
        sta $0440,x
        inx
        bne loc_0c3d

loc_0c4c:
        lda #$3c
        sta $0540,x
        lda chr_0c86,x
        and #$3f
        sta $0590,x
        lda #$0b
        sta $da30,x
        inx
        cpx #$28
        bne loc_0c4c
        lda #$12
        sta $d018
        sei
        ldx #$ae
        ldy #$0c
        stx $0314
        sty $0315
        lda #$01
        sta $d01a
        lda #$7f
        sta $dc0d
        lda #$1b
        sta $d011
        cli

loc_0c83:
        jmp loc_0c83

chr_0c86:
        // === Charset data (2 bytes, $0c86-$0c87) ===
        .byte $20,$20                               // char 0 (partial)

// --- Region $0cae-$0d80 ---
.pc = $0cae "irq_0cae"

irq_0cae:
        inc $d019
        ldx #$31

loc_0cb3:
        cpx $d012
        bne loc_0cb3
        lda #$c8
        sta $d016
        lda #$12
        sta $d018
        ldx #$06
        jsr sub_0dc2
        lda #$06
        sta $d020
        sta $d021
        lda #$72
        sta $d012
        jsr sub_0d8d
        ldx #$e4
        ldy #$0c
        stx $0314
        sty $0315
        jmp $ea7e

irq_0ce4:
        inc $d019
        ldx #$72

loc_0ce9:
        cpx $d012
        bne loc_0ce9
        ldx #$02
        jsr sub_0dc2
        lda #$00
        sta $d020
        sta $d021
        lda #$7a
        sta $d012
        ldx #$0d
        ldy #$0d
        stx $0314
        sty $0315
        jmp $ea7e

irq_0d0d:
        inc $d019
        ldx #$7a

loc_0d12:
        cpx $d012
        bne loc_0d12