← #559 Top 1024 #561 →
#560

Unicess 19

Unicess

2.328 lines of code

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

History

Group
Unicess — Denmark, founded July 1989

The nineteenth numbered intro from Unicess, which ranks highest among the group's three entries in this collection. Unicess was a Danish cracking and demo group founded in July 1989 by Mason and Exory under the tagline "Power from Denmark." Doc Snyder's page credits the intro team as The Invisible Man on code, MZK on artwork, and Diflex (Markus Schneider) on music. The scrolltext from a related Unicess intro features Mason defending himself against accusations from rival group X-Factor of stealing trainers — a common inter-group flashpoint during the era. CSDb lists over 320 releases spanning 1989 to 1992, and the group reformed in 1992 "from parts of Image." Divine contributed both code and the Unicess Coder tool, while member Dishy edited the papermag Imagination. The two other Unicess intros in this collection are Unicess 10 and Unicess 13.

Sources: CSDb · docsnyderspage

unicess-19.asm 2.328 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: $0700  End: $2fff  (10496 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $2800 (10240)
// IRQ handler:  $2890 (nmi_2890)
// IRQ handler:  $2925 (irq_2925)
// IRQ handler:  $29bc (irq_29bc)
//
// Code: 2421 bytes, Data: 8075 bytes
// Labels: 248, Subroutines: 13
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$1563 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $282c

sub_1000:
        jmp loc_1800

dat_1003:
        .byte $4c,$0f,$19                           // L..
// Referenced by: jsr from $2a40

sub_1006:
        lda $1974

loc_1009:
        cmp #$02
        beq loc_1014
        cmp #$01
        bne loc_102a
        jmp loc_18e8

loc_1014:
        rts

dat_1015:
        .byte $f9,$26,$ee,$16                       // .&..

loc_1019:
        bpl loc_1009
        asl $10,x
        lda $1016
        cmp #$32
        bne loc_1029
        lda #$01
        sta dat_1015

loc_1029:
        rts

loc_102a:
        inc $1942
        inc $1943
        inc $1944
        lda #$1f
        sta $d418
        ldx #$02
        dec $1973
        bpl loc_1045
        lda $191d
        sta $1973

loc_1045:
        bit $d020
        stx $ff
        lda $191e,x
        sta $1956
        tay
        lda $1973
        cmp $191d
        bne loc_106b
        lda $16a1,x
        sta $fb
        lda $16a4,x
        sta $fc
        dec $1927,x
        bmi loc_106e
        jmp loc_11fa

loc_106b:
        jmp loc_120a

loc_106e:
        ldy $1921,x
        lda ($fb),y
        cmp #$fe
        beq loc_108c
        cmp #$ff
        bne loc_1094
        lda #$00
        sta $1927,x
        sta $1921,x
        sta $1924,x
        sta $1972
        jmp loc_106e

loc_108c:
        lda #$02
        sta $1974
        jmp loc_190b

loc_1094:
        sta $1967
        and #$80
        beq loc_10a9
        lda $1967
        and #$1f
        sta $194f,x
        inc $1921,x
        jmp loc_106e

loc_10a9:
        lda $1967
        and #$40
        beq loc_10be
        lda $1967
        and #$3f
        sta $1976,x
        inc $1921,x
        jmp loc_106e

loc_10be:
        lda $1967
        asl
        tay
        lda $16a7,y
        sta $fd
        lda $16a8,y
        sta $fe
        lda #$00
        sta $193f,x
        ldy $1924,x
        sta $1942,x
        lda #$03
        sta $1961,x

loc_10dd:
        lda ($fd),y
        sta $f8