← #935 Top 1024 #937 →
#936

Atlantis [ATL] 24

Atlantis [ATL]

2.967 lines of code

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

History

Released
1994
Code
Dr. Zoom
Graphics
Hi-Top
Music
Dr. Zoom (Tobias Erbsland) — "Deep Town"
Group
Atlantis — Switzerland, founded 1 February 1991

CSDb catalogues this as the "Atlantis Intro (Mega Raster)," a 1994 production featuring raster bar effects — a staple visual technique of C64 crack intros. Dr. Zoom both coded the intro and composed the SID tune "Deep Town," preserved in the HVSC under his real name Tobias Erbsland. Hi-Top provided the graphics. Atlantis was a Swiss group founded on 1 February 1991 with the motto "Rising from the Ocean," and they maintained an active presence well into the 2020s — an extraordinary longevity for a C64 crew. Doc Snyder's page documents their extensive catalogue, which spans from early 1990s crack intros through modern cooperative releases with Genesis Project. Their other ranked intro in this collection is #502 atlantis-05. Dr. Zoom's dual role as both coder and musician was relatively uncommon in the scene, where these specialties were usually handled by different members.

Sources: CSDb · docsnyderspage

atlantis-24.asm 2.967 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:09
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $4800  (16385 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $0820 (2080)
// IRQ handler:  $0896 (irq_0896)
// IRQ handler:  $0aec (irq_0aec)
//
// Code: 2993 bytes, Data: 13392 bytes
// Labels: 294, Subroutines: 16
//
// Cross-references: all OK
// ============================================


// --- Region $0820-$08dd ---
.pc = $0820 "main_0820"

main_0820:
        sei
        ldx #$ff
        txs
        lda #$7f
        sta $dc0d
        lda $dc0d
        lda #$01
        sta $d01a
        lda #$00
        sta $d012
        lda #$1b
        sta $d011
        lda #$96
        ldx #$08
        sta $0314
        stx $0315
        lda #$00
        sta $d015
        lda #$00
        tax
        tay
        jsr sub_1300
        ldx #$00

loc_0853:
        lda #$00
        sta $0400,x
        sta $0500,x
        sta $0600,x
        sta $0700,x
        lda #$09
        sta $d800,x
        lda $3d00,x
        sta $d900,x
        lda $3e00,x
        sta $da00,x
        lda #$09
        sta $db00,x
        inx
        bne loc_0853
        jsr sub_0b8c
        inc $d019
        cli
        jmp loc_0c6a

loc_0884:
        sta $0314
        stx $0315
        sty $d012
        inc $d019
        pla
        tay
        pla
        tax
        pla
        rti

irq_0896:
        ldx #$03

loc_0898:
        dex
        bne loc_0898
        ldy #$00

loc_089d:
        lda $120c,y
        sta $d020
        cmp ($00,x)
        cmp ($00,x)
        cmp ($00,x)
        cmp ($00,x)
        cmp ($00,x)
        cmp ($00,x)
        cmp ($00,x)
        cmp ($00,x)
        iny
        cpy #$20
        bne loc_089d

loc_08b8:
        lda $120c,y
        sta $d020
        sta $d021
        tya
        and #$07
        beq dat_08dd
        cmp ($00,x)
        cmp ($00,x)
        cmp ($00,x)
        cmp ($00,x)
        cmp ($00,x)
        cmp $00
        cmp $00
        nop
        iny
        cpy #$58
        bne loc_08b8
        jmp loc_08fb

dat_08dd:
        .byte $ea                                   // .

// --- Region $08fb-$0977 ---
.pc = $08fb "loc_08fb"

loc_08fb:
        ldx #$08

loc_08fd:
        dex
        bne loc_08fd
        lda #$18
        sta $d016
        lda $1079
        beq loc_0914
        lda #$e8
        ldx #$3b
        sta $d018
        stx $d011

loc_0914:
        lda $107e
        bne loc_0938
        jsr sub_0e8b