← #417 Top 1024 #419 →
#418

Image 03

Image

2.060 lines of code

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

History

Released
March 1992
Code
Mason
Charset
Ecco
Music
Stein Pedersen — "Oxygene IV"
Group
Image — Denmark, founded March 1992

Image was founded in March 1992 — the same month as this intro's release, making it one of the group's debut productions. Mason coded the intro, a well-known figure in the Danish scene who would later be greeted by name in Nostalgia's scrolltexts. Stein Pedersen composed "Oxygene IV," a SID cover of Jean-Michel Jarre's synthesizer classic, preserved in the HVSC under the Prosonix directory. Ecco contributed the charset. Doc Snyder's page documents Image's output, listing Crossfire (Kim Andersen) as coder and graphician for their other intros, with Zyron providing music for one release. The scrolltexts reveal Image's connections to Empire, Avatar, NEI, Talent, Legend, and Chromance — a broad network spanning Scandinavia and Eastern Europe. Image's Danish origins placed them alongside established compatriots like The Papillons Inc. and Bonzai in one of the scene's most productive countries per capita.

Sources: CSDb · Doc Snyder

image-03.asm 2.060 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:51
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0700  End: $251f  (7712 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $2000 (8192)
// IRQ handler:  $2003 (irq_2003)
// IRQ handler:  $2115 (irq_2115)
// IRQ handler:  $214d (irq_214d)
// IRQ handler:  $2169 (irq_2169)
// IRQ handler:  $2185 (irq_2185)
//
// Code: 2587 bytes, Data: 5125 bytes
// Labels: 252, Subroutines: 9
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$100e ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $2269

sub_1000:
        jmp loc_198d

loc_1003:
        jmp loc_19af

dat_1006:
        .byte $4c,$c0,$19                           // L..
// Referenced by: jsr from $21a6

sub_1009:
.label smc_100a = * + 1
        lda #$00                                    // !SMC: modified by $198f, $19b1
        beq loc_106b

dat_100d:
        .byte $10,$59                               // .Y

// --- Region $106b-$124d ---
.pc = $106b "loc_106b"

loc_106b:
        dec smc_107e
        bpl loc_1075
        lda #$02
        sta smc_107e                                // SMC: modifies $107e

loc_1075:
        ldx #$02
        ldy #$0e

loc_1079:
        stx $04
        sty $05
.label smc_107e = * + 1
        lda #$01                                    // !SMC: modified by $1072
        cmp $1071
        bne loc_1089
        dec $190c,x
        bmi loc_108c

loc_1089:
        jmp loc_1277

loc_108c:
        lda $161c,x
        sta $02
        lda $161f,x
        sta $03
        lda #$00
        sta $18e7

loc_109b:
        ldy $1933,x
        lda ($02),y
        cmp #$48
        bcc loc_10f3

loc_10a4:
        cmp #$ff
        bne loc_10b5
        lda #$02
        sta $1933,x
        lda #$00
        sta $18f1,x
        jmp loc_109b

loc_10b5:
        cmp #$fe
        bne loc_10bc
        jmp loc_1003

loc_10bc:
        cmp #$80
        bcc loc_10d2
        sec
        sbc #$a0
        sta $18f1,x
        inc $1933,x
        iny
        lda ($02),y
        cmp #$48
        bcc loc_10f3
        bcs loc_10a4

loc_10d2:
        cmp #$60
        bcc loc_10e5
        and #$07
        tay
        lda $1790,y
        sta smc_15cf                                // SMC: modifies $15cf
        inc $1933,x
        jmp loc_109b

loc_10e5:
        and #$0f
        sta smc_15cd                                // SMC: modifies $15cd
        inc $1933,x
        jmp loc_109b

loc_10f0:
        jmp loc_1256

loc_10f3:
        tay
        lda $164b,y
        sta $02
        lda $1659,y
        sta $03
        ldy $1936,x
        lda #$00
        sta $18e4
        sta $18e7

loc_1109:
        lda ($02),y
        bpl loc_1176
        cmp #$c0
        bcs loc_111b
        and #$3f