← #73 Top 1024 #75 →
#74

Ambient 01

Ambient

3.290 lines of code

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

History

Released
1995
Music
Alfatech (Che Lalic) — "Introtune Third Variation"
Group
Ambient — Sweden, founded 1995

A mid-1990s Swedish production from the era when C64 cracking had become an act of platform preservation rather than software piracy. Alfatech (Che Lalic) composed "Introtune Third Variation" — the "Third Variation" suggesting he produced multiple versions specifically for this intro. No coder is credited on CSDb. Ambient was founded in Sweden in 1995, part of a wave of groups that emerged during the C64 revival period when nostalgia and artistic appreciation drove continued scene activity. The HVSC preserves Lalic's composition. By 1995, new commercial C64 software was virtually nonexistent — groups like Ambient were cracking older titles or producing intros as standalone artistic works rather than functional crack accompaniments. Sweden's scene remained one of the last bastions of C64 activity thanks to groups like Triad and Fairlight maintaining infrastructure.

Sources: CSDb

ambient-01.asm 3.290 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:15
// 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:  $1680 (5760)
// IRQ handler:  $196e (irq_196e)
// IRQ handler:  $198b (irq_198b)
// IRQ handler:  $19a8 (irq_19a8)
// IRQ handler:  $19c5 (irq_19c5)
// IRQ handler:  $19e2 (irq_19e2)
// IRQ handler:  $31ea (irq_31ea)
//
// Code: 3980 bytes, Data: 59508 bytes
// Labels: 337, Subroutines: 32
//
// Cross-references: all OK
// ============================================


// --- Region $0814-$0814 ---
.pc = $0814 "sub_0814"
// Referenced by: jsr from $ff8d

sub_0814:
        brk

// --- Region $0917-$0917 ---
.pc = $0917 "Program $0917"
        brk

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

// --- Region $0c10-$0c10 ---
.pc = $0c10 "sub_0c10"
// Referenced by: jsr from $ff88

sub_0c10:
        brk

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

// --- Region $1021-$1080 ---
.pc = $1021 "sub_1021"
// Referenced by: jsr from $19e8, $fb2a

sub_1021:
        ldx #$00
        dec $1090
        bmi loc_1034
        jsr sub_1226
        jsr sub_1225
        jmp sub_1225

dat_1031:
        .byte $ff,$ff,$ff                           // ...

loc_1034:
        lda #$05
        sta $1090
        jsr sub_1040
        jsr sub_103f
// Referenced by: jsr from $103c

sub_103f:
        inx
// Referenced by: jsr from $1039

sub_1040:
        dec $108a,x
        bmi loc_1091
        jmp sub_1226
// Referenced by: jsr from $1859, $f9a1

sub_1048:
        lda #$1f
        sta $d418
        lda #$f0
        sta $d417
        and #$0f
        sta smc_1262                                // SMC: modifies $1262
        ldx #$0f

loc_1059:
        sta dat_1081,x
        dex
        bpl loc_1059
        ldx #$02

loc_1061:
        lda $14b9,x
        sta $fa
        lda $14bc,x
        sta $fb
        ldy #$00
        lda ($fa),y
        sta $108d,x
        iny
        lda ($fa),y
        sta $10e6,x
        and #$0f
        sta $10e9,x
        dex
        bpl loc_1061
        rts

// --- Region $1091-$10c6 ---
.pc = $1091 "loc_1091"

loc_1091:
        ldy $108d,x
        cpy #$fe
        bne loc_10a1
// Referenced by: jsr from $10c0

sub_1098:
        lda $1084,x
        and #$fe
        sta $1084,x
        rts

loc_10a1:
        lda $1642,y
        sta $fa
        lda $162e,y
        sta $fb
        ldy dat_1081,x
        lda ($fa),y
        bmi loc_10d2
        cmp #$60
        bcc loc_10f9

loc_10b6:
        and #$1f
        sta $108a,x
        lda #$fe
        sta dat_1031,x
        jsr sub_1098

loc_10c3:
        jmp loc_1187