← #320 Top 1024 #322 →
#321

Ikari+Talent 08

Ikari+Talent

2.214 lines of code

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

History

Released
23 November 1989
Code
Doc, Fletch
Music
JCH (Jens-Christian Huus) — "Ode to JO" and "Laxin'"
Group
Ikari+Talent — United Kingdom, founded 21 July 1989

A dual-coder intro from the Ikari+Talent partnership, with Doc and Fletch sharing programming duties. JCH — Jens-Christian Huus, one of the most prolific SID composers of the era — contributed two tunes: "Ode to JO" and "Laxin'," both preserved in the HVSC. CSDb lists the release under Talent's group entry, confirming their role as the primary production arm of the joint venture. Released on 23 November 1989, this arrived just four months after the alliance's founding in July 1989. The dual-coder, dual-tune approach was relatively unusual — most intros featured a single programmer and one SID composition. JCH's "Ode to JO" is a tribute to fellow musician Jesper Olsen, reflecting the tight personal networks within the Danish SID music community. This is one of several Ikari+Talent entries in the rankings, including #15 I+T-03.

Sources: CSDb

i_t-08.asm 2.214 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:23
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $4009  (14346 bytes)
// Crunched with PuCrunch — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $2c00 (11264)
// IRQ handler:  $2c76 (irq_2c76)
// IRQ handler:  $3025 (nmi_3025)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 2273 bytes, Data: 12073 bytes
// Labels: 222, Subroutines: 8
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$1006 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $2e79

sub_1000:
        jmp loc_1028
// Referenced by: jsr from $2cd1

sub_1003:
        jmp loc_1065

dat_1006:
        .byte $01                                   // .

// --- Region $1028-$150a ---
.pc = $1028 "loc_1028"

loc_1028:
        asl
        asl
        asl
        tay
        ldx #$00

loc_102e:
        lda $1020,y
        sta $15ca,x
        sta $15d0,x
        lda $1021,y
        sta $15cd,x
        sta $15d3,x
        iny
        iny
        inx
        cpx #$03
        bne loc_102e
        lda $1020,y
        sta $1656
        sta $1657
        ldy #$00
        tya

loc_1053:
        sta $d400,y
        sta $15e6,y
        iny
        cpy #$1b
        bne loc_1053
        lda $1009
        sta $d418
        rts

loc_1065:
        lda $fb
        pha
        lda $fc
        pha
        ldx #$02
        dec $1656
        bpl loc_1078
        lda $1657
        sta $1656

loc_1078:
        bne loc_108a
        lda dat_1006,x
        bne loc_1082
        jmp loc_14fa

loc_1082:
        lda $15ef,x
        beq loc_108d
        dec $15ef,x

loc_108a:
        jmp loc_1224

loc_108d:
        lda $15f8,x
        sta $15ef,x
        lda $15ca,x
        sta $fb
        lda $15cd,x
        sta $fc
        ldy #$00
        tya
        sta $15f2,x
        lda ($fb),y
        bpl loc_10bd
        and #$7f
        asl
        sta $15e6,x
        inc $15ca,x
        inc $fb
        bne loc_10b9
        inc $15cd,x
        inc $fc

loc_10b9:
        ldy #$00
        lda ($fb),y

loc_10bd:
        tay
        lda $1801,y
        sta $fb
        lda $181b,y
        sta $fc

loc_10c8:
        ldy $15e9,x
        lda ($fb),y
        bmi loc_110f
        beq loc_1105
        cmp #$7e
        beq loc_10fb
        sta $15fb,x
        asl
        clc
        adc $15e6,x
        tay
        lda dat_150a,y
        clc
        adc $1653,x
        sta $1616,x
        lda $150b,y
        adc #$00
        sta $1619,x