#380

Untouchable Cracking Force [UCF] 02

Untouchable Cracking Force [UCF]

5.350 lines of code

MusicSIDSpritesSPRT

History

Released
December 1986
Code
JJ the Breaker
Music
Rob Hubbard, Antony Crowther, Ben Daglish, David Whittaker, Michael French
Graphics
Kid Ice
Group
Untouchable Cracking Force — United States, founded November 1986

A multi-composer jukebox intro from December 1986 — released barely a month after UCF's founding in November of that year. JJ the Breaker coded, with Kid Ice providing graphics. The musical selection draws from five of the era's most prominent SID composers: Rob Hubbard ("Phantoms of the Asteroid"), Ben Daglish and Antony Crowther ("Ark Pandora"), Ben Daglish solo ("Biggles"), David Whittaker ("Miami Dice"), and Michael French. All four HVSC-identified tunes are preserved. JJ the Breaker also coded #301 UCF-04, and his other work included Thee Supreme Council. UCF was an American group founded in November 1986 in the United States. The five-composer approach — assembling a curated selection of ripped game music — was ambitious for late 1986, when many intros still used a single tune. The all-British composer roster reflects the dominance of UK game musicians in the mid-1980s SID landscape.

Sources: CSDb · intros.c64.org

ucf-02.asm 5.350 lines
// ============================================
// output - Part 1 of 3
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:58
// 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:  $105e (4190)
// IRQ handler:  $75ca (irq_75ca)
// IRQ handler:  $ea31 (loc_ea31)
//
// Code: 3753 bytes, Data: 59734 bytes
// Labels: 544, Subroutines: 16
//
// Verification: 4 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $105e-$107f ---
.pc = $105e "main_105e"
// Referenced by: jsr from $dbc7

main_105e:
        ldx #$32
        ldy #$1d
        stx $63
        sty $64
        ldx #$80
        ldy #$1a
        stx $61
        sty $62
        rts

loc_106f:
        sta $69

loc_1071:
        ldx #$00

loc_1073:
        ldy #$00

loc_1075:
        dey
        bne loc_1075
        dex
        bne loc_1073
        dec $69
        bne loc_1071
        rts

// --- Region $11b0-$11d2 ---
.pc = $11b0 "sub_11b0"
// Referenced by: jsr from $dbe7

sub_11b0:
        ldx #$07
        stx $66

loc_11b4:
        txa
        asl
        tay
        lda $0334,y
        sta $d000,y
        lda $d010
        and dat_11d3,x
        ora $0335,y
        sta $d010
        lda $0344,x
        sta $d001,y
        dex
        bpl loc_11b4
        rts

// --- Region $171b-$1768 ---
.pc = $171b "loc_171b"

loc_171b:
        asl $1d,x
        ora $1b1d,x
        .byte $13,$12                               // slo ($12),y // ILLEGAL
        ora $1c16,x
        .byte $1b,$16,$1c                           // slo $1c16,y // ILLEGAL
        ora ($12),y
        ora ($1b),y
        asl $11,x
        .byte $1b,$1b,$11                           // slo $111b,y // ILLEGAL
        ora ($11),y
        ora ($11),y
        .byte $13,$1b                               // slo ($1b),y // ILLEGAL
        .byte $1b,$1b,$11                           // slo $111b,y // ILLEGAL
        ora ($16),y
        ora ($1b),y
        asl $1111,x
        ora ($1e),y
        asl $12,x
        asl $1c,x
        .byte $1b,$13,$1c                           // slo $1c13,y // ILLEGAL
        ora $1616,x
        asl $16,x
        asl $12,x
        .byte $13,$1b                               // slo ($1b),y // ILLEGAL
        asl $16,x
        asl $1b,x
        .byte $1b,$16,$1b                           // slo $1b16,y // ILLEGAL
        asl $13,x
        asl $1b,x
        .byte $1c,$1b,$16                           // nop $161b,x // ILLEGAL
        .byte $13,$16                               // slo ($16),y // ILLEGAL
        asl $1b16,x
        .byte $13,$12                               // slo ($12),y // ILLEGAL
        .byte $12                                   // jam // ILLEGAL

// --- Region $4000-$406d ---
.pc = $4000 "loc_4000"

loc_4000:
        lda dat_406e
        bmi loc_4008
        beq loc_4039
        rts

loc_4008:
        lda #$53
        sta $0344
        lda #$9a
        sta $0334
        lda #$01
        sta $0335
        lda $d01d
        ora #$01
        sta $d01d
        lda #$0f
        sta $d027
        lda #$fd
        sta $07f8
        lda $d015
        ora #$01
        sta $d015
        inc dat_406e

loc_4034:
        rts