← #869 Top 1024 #871 →
#870

Unicess 13

Unicess

3.150 lines of code

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

History

Group
Unicess — Denmark, founded July 1989

The thirteenth numbered intro from Unicess, a prolific Danish cracking group founded in July 1989 by Mason and Exory. Doc Snyder's page documents the same production team across Unicess intros — The Invisible Man on code, MZK on artwork, and Diflex (Markus Schneider) on music. CSDb credits the group with over 320 releases between 1989 and 1992, though the database notes that "lots of cracks and wares are still missing." Unicess sat within the highly competitive Danish scene alongside groups like Dominators, Legend, and Triad, carving out its niche through sheer volume of cracks. The group also invested in publications — the papermag Imagination and the diskmag Popcorn, which reached ten issues. Additional coders included Ray, Divine, and Digit, the latter doubling as a diskmag editor. Two other Unicess intros appear in this collection: Unicess 10 and Unicess 19.

Sources: CSDb · docsnyderspage

unicess-13.asm 3.150 lines
// ============================================
// output - Disassembled Source
// ============================================
// 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: $0800  End: $ffff  (63488 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $19ec (6636)
// IRQ handler:  $1a8d (nmi_1a8d)
// IRQ handler:  $1afe (irq_1afe)
// IRQ handler:  $1b36 (irq_1b36)
//
// Code: 3263 bytes, Data: 60225 bytes
// Labels: 341, Subroutines: 16
//
// Cross-references: all OK
// ============================================


// --- Region $0a16-$0a16 ---
.pc = $0a16 "Program $0a16"
        brk

// --- Region $1003-$1027 ---
.pc = $1003 "sub_1003"
// Referenced by: jsr from $1a29, $f66d

sub_1003:
        jmp loc_1493

// Referenced by: jsr from $1b23, $f767
sub_1006: {
        jsr sub_1439
        dec $033d
        bpl skip
        lda $033a
        sta $033d
skip:
        ldx #$02
loop:
        jsr sub_101c
        dex
        bne loop
}
// Referenced by: jsr from $1016, $ee95

sub_101c:
        lda $033d
        cmp $033a
        beq loc_1059

loc_1024:
        jmp loc_11f4

dat_1027:
        // === Fill data (1 bytes, $1027-$1027) ===
        .byte $00                                   // .

// --- Region $1059-$1458 ---
.pc = $1059 "loc_1059"

loc_1059:
        dec $0347,x
        bpl loc_1024
        lda $0334,x
        sta $fc
        lda $0337,x
        sta $fd

loc_1068:
        ldy $033e,x
        lda ($fc),y
        bpl loc_10b7
        cmp #$ff
        bne loc_1088
        iny
        lda ($fc),y
        sta $033e,x
        lda #$0f
        sta smc_1450                                // SMC: modifies $1450
        lda #$00
        sta $033c
        sta $034a,x
        beq loc_1068

loc_1088:
        cmp #$fd
        bne loc_1097

dat_108c:
        .byte $ad,$3b,$03,$8d,$3c,$03               // .;..<.

loc_1092:
        inc $033e,x
        bne loc_1068

loc_1097:
        bcc loc_109a
        rts

loc_109a:
        cmp #$c0
        bcc loc_10ac
        clc
        adc #$20
        sta $034a,x
        inc $033e,x
        iny
        lda ($fc),y
        bpl loc_10b7

loc_10ac:
        and #$3f
        sta $0341,x
        inc $033e,x
        iny
        lda ($fc),y

loc_10b7:
        tay
        lda $16e8,y
        sta $fe
        lda $16f5,y
        sta $ff

loc_10c2:
        ldy $0350,x
        inc $0350,x
        lda ($fe),y
        bpl loc_1103
        cmp #$f0
        bcs loc_1145
        cmp #$e0
        bcs loc_1112
        cmp #$c0
        beq loc_1130
        bcs loc_1152
        and #$3f
        sta $0344,x
        sta $0347,x
        bpl loc_10c2

loc_10e4:
        iny
        inc $0350,x
        lda ($fe),y
        and #$3f