← #501 Top 1024 #503 →
#502

Atlantis [ATL] 05

Atlantis [ATL]

2.521 lines of code

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

History

Released
21 August 2016
Group
Atlantis [ATL] — Switzerland, founded 1 February 1991
Code
Dr. Science
Music
Snap (Ronny Nilsen) — Waste of Time

This crack intro from the Swiss group Atlantis is catalogued on CSDb as release #150061, titled "Rising Intro" and dated 21 August 2016. Code is credited to Dr. Science — Atlantis's primary coder across many of their intros — with music by Snap (Ronny Nilsen) using his SID composition "Waste of Time," preserved in the HVSC. Released well into the preservation era, this demonstrates the group's continued activity more than 25 years after their 1 February 1991 founding. Atlantis operated under the tagline "Rising from the Ocean" and the short name ATL, maintaining a website at atlc64.com. Doc Snyder's archive documents an extensive catalogue of Atlantis intros with credits spanning coders Dr. Science, Tsurugi, Smasher, Thirt, and Dano, alongside musicians including Drax, Rock, CeriX, and Stainless Steel. The group's later releases show active cooperation with Genesis Project.

Sources: CSDb · intros.c64.org · docsnyderspage

atlantis-05.asm 2.521 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: $0700  End: $53ff  (19712 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $4000 (16384)
// IRQ handler:  $431c (irq_431c)
// IRQ handler:  $4474 (irq_4474)
//
// Code: 3263 bytes, Data: 16449 bytes
// Labels: 283, Subroutines: 27
//
// Cross-references: all OK
// ============================================


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

sub_1000:
        jmp loc_101d
// Referenced by: jsr from $4486

sub_1003:
        jmp loc_1085

dat_1006:
        .byte $4c                                   // L

// --- Region $101d-$101f ---
.pc = $101d "loc_101d"

loc_101d:
        jmp loc_1807

// --- Region $1042-$162e ---
.pc = $1042 "sub_1042"
// Referenced by: jsr from $12a8

sub_1042:
        sta $1041
        sta $d418
        rts

dat_1049:
        .byte $04,$8d,$18,$d0,$4e,$18,$d4           // ....N..

loc_1050:
        lda $1bc9,y
        sta $1716
        lda $1bca,y
        sta $1717
        sta $d418
        ldx #$00
        txa

loc_1062:
        sta $1718,x
        inx
        cpx #$86
        bne loc_1062
        ldx #$00
        lda #$01

loc_106e:
        sta $100c,x
        sta $173b,x
        inx
        cpx #$03
        bne loc_106e
        ldx #$00
        txa

loc_107c:
        sta $d400,x
        inx
        cpx #$18
        bne loc_107c
        rts

loc_1085:
        dec $1718
        bpl loc_1090
        lda $1716
        sta $1718

loc_1090:
        ldx #$00
        stx $1720
        jsr sub_10b0
        inx
        jsr sub_10b0
        inx
        jsr sub_10b0
        lda $171c
        sta $d416
        lda $1018
        ora $1723
        sta $d417
        rts
// Referenced by: jsr from $1095, $1099, $109d

sub_10b0:
        lda $100c,x
        beq loc_10c5
        lda $1716
        cmp $1718
        bne loc_10c5
        dec $173b,x
        lda $173b,x
        beq loc_10c8

loc_10c5:
        jmp loc_11f9

loc_10c8:
        lda $1707,x
        sta $f8
        lda $170a,x
        sta $f9

loc_10d2:
        ldy $1726,x
        lda ($f8),y
        bpl loc_1101
        cmp #$ff
        bne loc_10e5
        lda #$00
        sta $1726,x
        jmp loc_10d2

loc_10e5:
        cmp #$fe
        bne loc_10ef
        lda #$00
        sta $100c,x
        rts

loc_10ef:
        sec
        sbc #$a0
        bcs loc_10f8
        eor #$1f
        adc #$01