History
- Released
- c. 1991
- Group
- The Force + Tektronix -- Israel / Australia
This crack intro represents a joint release between The Force and Tektronix -- a collaboration spanning Israel and Australia. The Force was an Israeli group founded in 1985 by Danny and Ronny, while CSDb describes Tektronix as an Australian cracking group that operated as a sub-group or label of The Force, active around 1991--1992 with just six documented releases. Tektronix's two known members were Insane (graphician) and Psycho (cracker). The relationship between an Israeli parent group and an Australian sub-label illustrates the global reach of the C64 cracking scene, connecting sceners across hemispheres through postal mail and modem trading. The Force maintained 366 documented releases and operated across multiple scene roles including cracking, demos, music, and magazine production. This joint intro can be contextualized alongside The Force's other entries in this collection -- force-05, force-10, and force-19 -- which document the group's evolution from 1988 through the early 1990s.
Sources: intros.c64.org
// ============================================ // 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: $2ddf (9696 bytes) // Crunched with Cruncher AB — depacked by emulation // Packer entry: $080d (via BASIC SYS 2061) // Entry point: $2800 (10240) // IRQ handler: $28d1 (irq_28d1) // IRQ handler: $ea31 (irq_ea31) // // Code: 2256 bytes, Data: 7440 bytes // Labels: 213, Subroutines: 16 // // Cross-references: all OK // ============================================ // --- Region $1000-$1003 --- .pc = $1000 "sub_1000" // Referenced by: jsr from $296d sub_1000: jmp loc_1106 dat_1003: .byte $0f // . // --- Region $1029-$1529 --- .pc = $1029 "sub_1029" // Referenced by: jsr from $282e sub_1029: ldy #$ad loc_102b: sta $0333,y dey bne loc_102b lda #$ea sta $ab lda #$15 sta $ac ldy #$00 loc_103b: lda $ab sta $033a,y lda $ac sta $034a,y clc lda $ab adc $1004 sta $ab lda $ac adc #$00 sta $ac iny cpy dat_1003 bne loc_103b lda #$9e sta $ab lda #$16 sta $ac lda #$16 sta $a9 lda #$17 sta $aa ldy #$00 loc_106b: lda $ab sta $035a,y lda $ac sta $036a,y lda $a9 sta $037a,y lda $aa sta $038a,y clc lda $ab adc #$08 sta $ab lda $ac adc #$00 sta $ac clc lda $a9 adc #$08 sta $a9 lda $aa adc #$00 sta $aa iny cpy $1008 bne loc_106b lda #$00 sta $03cd ldy $1014 dey sty $03d2 ldy $1012 sty $03cc jsr sub_14c3 ldy #$1c lda #$00 loc_10b8: sta $d400,y sta $02a7,y dey bpl loc_10b8 lda $101a sta $d418 lda $1019 sta $d417 lda #$08 sta $d404 sta $d40b sta $d412 rts dat_10d9: .byte $00 // . // Referenced by: jsr from $1106 sub_10da: inc $03d2 lda $03d2 cmp $1014 beq loc_10e8 jmp loc_1105 loc_10e8: lda #$00 sta $03d2 ldx #$00 ldy #$00 jsr sub_12e2 ldx #$01 ldy #$07 jsr sub_12e2 ldx #$02 ldy #$0e jsr sub_12e2 jsr sub_149a