#38

Ikari+Talent 04

Ikari+Talent

4.867 lines of code

RasterbarsRSTRMusicSIDScrollerSCRLBitmapBMAP

History

Released
8 December 1989
Code
Fletch
Charset
Spacie
Music
Oregon Power by A-Man; additional tunes by JCH, Drax and Scarzix
Group
Ikari+Talent — United Kingdom, founded July 1987

Ranked #38 on intros.c64.org. This release shares the CSDb record "Ikari & Talent Intro" (release #53854, dated 8 December 1989) with the higher-ranked #15 Ikari. CSDb credits Fletch for the code, Spacie for the charset, and four composers for the music: A-Man (Steven Diemer), JCH (Jens-Christian Huus), Drax (Thomas Mogensen) and Scarzix (Carsten Berggreen). The intro's SID player cycles through fifteen tunes: "Oregon Power" by A-Man; "Acid," "Echo Lead," "Carcrash," "That's Ok," "Kurt's Bass," "NATO Demo," "Zammis" and "Intro Zax" by Drax; "Ode to JO," "Blizzard," "Laxin'," "Carcrash," "Louisiana" and "Skaermtrolden Hugo" by JCH; and "Axel F." by Scarzix. All fifteen tunes are preserved in the HVSC.

Sources: CSDb · docsnyderspage

i_t-04.asm 4.867 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: $ffff  (63488 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $2490 (9360)
// IRQ handler:  $24b1 (irq_24b1)
// IRQ handler:  $ea31 (loc_ea31)
//
// Code: 5861 bytes, Data: 57627 bytes
// Labels: 480, Subroutines: 23
//
// Cross-references: all OK
// ============================================


// --- Region $0ab0-$0ab7 ---
.pc = $0ab0 "Program $0ab0"
        .byte $7c,$7c,$7f                           // nop $7f7c,x // ILLEGAL
        .byte $7c,$7c,$fe                           // nop $fe7c,x // ILLEGAL
        brk

dat_0ab7:
        .byte $00                                   // .

// --- Region $1000-$1009 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $2751, $fa64

sub_1000:
        jmp loc_1187

dat_1003:
        .byte $00,$00,$00                           // ...
// Referenced by: jsr from $f894

sub_1006:
        jmp loc_1179

dat_1009:
        .byte $00                                   // .

// --- Region $1176-$18a6 ---
.pc = $1176 "loc_1176"

loc_1176:
        sbc $f1fb,x

loc_1179:
        lda $100c
        cmp #$01
        beq loc_11dd
        cmp #$02
        bne loc_11a7
        jmp loc_11cd

loc_1187:
        tax
        lda txt_1e96,x
        sta $10ab
        txa
        asl
        sta $1080
        ldx #$00
        asl
        clc
        adc $1080
        tay

loc_119b:
        lda $19f2,y
        sta $19ec,x
        iny
        inx
        cpx #$06
        bne loc_119b

loc_11a7:
        ldx #$9f

loc_11a9:
        lda #$00
        sta $1008,x
        dex
        bne loc_11a9
        ldx #$02

loc_11b3:
        lda #$00
        sta $18a9,x
        lda #$01
        sta $102b,x
        sta $1058,x
        dex
        bpl loc_11b3
        lda #$10
        sta $11de
        lda #$01
        sta $100c

loc_11cd:
        ldx #$18

loc_11cf:
        lda #$08
        sta $d400,x
        lda #$00
        sta $d400,x
        dex
        bpl loc_11cf
        rts

loc_11dd:
        lda #$1f
        sta $d418
        lda $10a6
        beq loc_1200
        clc
        adc $10a7
        sta $10a7
        lda $11de
        adc #$00
        cmp #$20
        bcc loc_121f
        lda #$00
        sta $10a6
        lda #$1f
        bne loc_121f

loc_1200:
        lda $10a5
        beq loc_1222
        lda $10a7
        sec
        sbc $10a5
        sta $10a7
        lda $11de
        sbc #$00
        cmp #$10
        bcs loc_121f
        lda #$00
        sta $10a5
        lda #$10

loc_121f: