← #150 Top 1024 #152 →
#151

Untouchable Cracking Force [UCF] 01

Untouchable Cracking Force [UCF]

7.059 lines of code

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

History

Released
24 January 1987
Code
JJ the Breaker
Graphics
Kid Ice
Group
Untouchable Cracking Force — United States, founded November 1986

JJ the Breaker coded this silent Untouchable Cracking Force intro — the same programmer behind #101 Thee Supreme Council, demonstrating the small American scene's overlapping memberships. Kid Ice provided the graphics. Untouchable Cracking Force was an American group founded in November 1986. Released on 24 January 1987, this arrived during the C64 cracking scene's peak activity period in the United States. The visual presentation — with dedicated artwork by Kid Ice — gave UCF a more polished appearance than the text-only intros common among American groups at the time. Disassembly confirms no SID output, making this a purely visual production. UCF's willingness to invest in custom graphics rather than relying solely on scrolltext set them apart from many contemporaries in the American scene.

Sources: CSDb

ucf-01.asm 7.059 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:44
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0801  End: $ffff  (63487 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $0d53 (3411)
//
// Code: 261 bytes, Data: 63226 bytes
// Labels: 268, Subroutines: 0
//
// Verification: 2 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $08c6-$08e8 ---
.pc = $08c6 "loc_08c6"

loc_08c6:
        sbc $20
        bvc loc_08d7
        lda $0330
        sta $c3
        lda $0331
        sta $c8
        lda #$20
.label loc_08d7 = * + 1
        ldx #$06
        sta $de00
        sta $dffe
        stx $de00
        dec $01
        ldy #$00
        jmp $008e

dat_08e8:
        .byte $20                                   //  

// --- Region $0a00-$0a1a ---
.pc = $0a00 "loc_0a00"

loc_0a00:
        lda ($2f),y
        rol
        rol
        rol
        rol
        and #$07
        tax
        lda $011a,x
        sta $0118
        lda ($2f),y
        and #$1f
        tax
        jsr $0122
        jmp $01a4

dat_0a1a:
        .byte $a4                                   // .

// --- Region $0a27-$0a96 ---
.pc = $0a27 "loc_0a27"

loc_0a27:
        bmi loc_0a89
        lda ($2f),y
        jsr $0122

loc_0a2e:
        sta ($2d),y
        inc $2d
        bne loc_0a36
        inc $2e

loc_0a36:
        dex
        bne loc_0a2e
        beq loc_0a00
        lda #$00
        beq loc_0a2e
        lda #$ff
        bne loc_0a2e

loc_0a43:
        lda ($2f),y
        sta ($2d),y
        inc $2f
        bne loc_0a4d
        inc $30

loc_0a4d:
        inc $2d
        bne loc_0a53
        inc $2e

loc_0a53:
        dex
        bne loc_0a43
        beq loc_0a00
        jsr $0171
        lda ($2f),y
        jsr $0122

loc_0a60:
        sta ($2d),y
        inc $2d
        bne loc_0a68
        inc $2e

loc_0a68:
        dex
        bne loc_0a60
        dec $39
        bpl loc_0a60
        bmi loc_0a00
        stx $39
        lda ($2f),y
        tax
        jmp $0122

loc_0a79:
        jsr $0171

loc_0a7c:
        lda ($2f),y
        sta ($2d),y
        inc $2f
        bne loc_0a86
        inc $30

loc_0a86:
        inc $2d
.label loc_0a89 = * + 1
        bne loc_0a8c
        inc $2e

loc_0a8c:
        dex
        bne loc_0a7c
        dec $39
        bpl loc_0a7c
        jmp $0100

dat_0a96: