← #659 Top 1024 #661 →
#660

Crackforce Omega [CFO] 01

Crackforce Omega [CFO]

2.555 lines of code

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

History

Code
Injun
Graphics
Injun
Music
Ward Selles
Released
16 July 1988
Group
CrackForce Omega -- CSDb group ID #1270, Sweden

CrackForce Omega Crack Intro #01 is a July 1988 release from the Swedish cracking group CrackForce Omega, preserved on CSDb as entry #53746. The intro was coded and illustrated by Injun, with music by Ward Selles, whose SID track "Jippie" provides the soundtrack and is preserved in the High Voltage SID Collection. The scrolltext announces a crack of "Batman" from Ocean, completed on 8 December 1988, and sends greetings to Dominators, Ikari, CFR, Bros, Hotline, Orion, 2000 A.D., Pulsar, Wanderer, Cosmos, TSK, Tau, Transcom, Noise, Genesis Project, WOT, and Shavers. Injun's dual role as both coder and artist was typical of smaller groups where individuals handled multiple responsibilities. CrackForce Omega also produced a second intro -- catalogued on Doc Snyder's page -- featuring code by Yulk and music by Red (Jeroen Kimmel) with the SID track "Watch it!" The group operated within the Swedish scene during the late 1980s peak of C64 cracking activity.

Sources: CSDb Release · Doc Snyder · intros.c64.org

cfo-01.asm 2.555 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:13
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $2bce  (9167 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $1a00 (6656)
// IRQ handler:  $1cbc (irq_1cbc)
// IRQ handler:  $1e19 (irq_1e19)
//
// Code: 2891 bytes, Data: 6276 bytes
// Labels: 270, Subroutines: 11
//
// Cross-references: all OK
// ============================================


// --- Region $08d0-$08d9 ---
.pc = $08d0 "Program $08d0"
        .byte $ff,$c0,$ff                           // isc $ffc0,x // ILLEGAL
        .byte $5a                                   // nop // ILLEGAL
        adc #$a5
        .byte $ff,$c0,$00                           // isc $00c0,x // ILLEGAL
        brk

// --- Region $11e3-$147c ---
.pc = $11e3 "sub_11e3"
// Referenced by: jsr from $12b1, $1353, $1360, $136c

sub_11e3:
        tya
        sta $101c,x
// Referenced by: jsr from $12df

sub_11e7:
        lda $106e,y
        sta $d401,x
        sta $1033,x
        lda $10ce,y
        sta $d400,x
        sta $1032,x
        rts

// Referenced by: jsr from $13fa
sub_11fa: {
        lda #$01
        sta $1047,x
        lda $101e,x
        sta $fb
        lda $101f,x
        sta $fc
        lda $101d,x
        asl
        tay
        iny
        lda ($fb),y
        cmp #$00
        bne skip1
        lda #$00
        sta $101d,x
        ldy #$01
        lda ($fb),y
        clv
        bvc skip2
skip1:
        cmp #$01
        bne skip2
        lda #$00
        sta $1000
        rts
skip2:
        pha
        dey
        lda ($fb),y
        sta $fb
        pla
        sta $fc
        lda $102f,x
        tay
        clc
        adc #$02
        sta $102f,x
        lda ($fb),y
        cmp #$00
        bne skip3
        lda #$00
        sta $102f,x
        inc $101d,x
        jmp $11ff
skip3:
        sta $101c,x
        iny
        lda ($fb),y
        pha
        and #$1f
        sta $1004,x
        pla
        and #$e0
        lsr
        lsr
        tay
        lda $1059,x
        sta $fb
        lda $105a
        sta $fc
        lda #$00
        sta $d404,x
        sta $d402,x
        sta $1034,x
        lda ($fb),y
        iny
        sta $d403,x
        sta $1035,x
        and #$f0
        sta $1003,x
        lda ($fb),y
        iny
        sta $1005,x
        lda ($fb),y
        iny
        sta $d405,x
        lda ($fb),y
        iny
        sta $d406,x
        lda ($fb),y
        iny
        sta $101a,x
        lda ($fb),y
        iny
        sta $1007,x
        lda ($fb),y
        iny
        sta $1046,x
        lda ($fb),y
        iny
        sta $1008,x
        ldy $101c,x
        jsr sub_11e3
        lda $1033,x
        sta $1049,x
        lda $1032,x
        sta $1048,x
        lda $1005,x
        sta $d404,x
        lda #$00
        sta $1009,x