History
- Released
- 1994
- Code
- Dr. Science
- Graphics
- Shokray
- Music
- Snap (Ronny Nilsen) — "Arcane Rituals"
- Group
- Atlantis — Switzerland, founded 1 February 1991
Released in 1994, this Atlantis intro — titled "Trantro" on CSDb — was coded by Dr. Science, the group's long-serving technical lead, with graphics by Shokray. The SID tune "Arcane Rituals" was composed by Snap, the handle of Norwegian musician Ronny Nilsen, and is preserved in the HVSC. Atlantis was a Swiss cracking group founded on 1 February 1991 under the tagline "Rising from the Ocean," maintaining an active presence from the early 1990s through to the present day. Dr. Science coded numerous Atlantis intros documented on Doc Snyder's page, collaborating with artists like Diamond Design and Tsurugi, and musicians including Drax, Rock, and G-Fellow. The group also cooperated with Genesis Project on joint releases. This intro joins #502 atlantis-05 in the collection. Atlantis remains one of the few C64 cracking groups still actively releasing, with their website at atlc64.com and a telnet BBS serving as ongoing distribution points for their work.
Sources: CSDb · docsnyderspage
// ============================================ // output - Disassembled Source // ============================================ // 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: $3d3f (13888 bytes) // Crunched with Exomizer v2/v3 — depacked by emulation // Packer entry: $080b (via BASIC SYS 2059) // Entry point: $3200 (12800) // IRQ handler: $3265 (irq_3265) // IRQ handler: $33e8 (irq_33e8) // IRQ handler: $3505 (irq_3505) // IRQ handler: $353b (irq_353b) // IRQ handler: $3558 (irq_3558) // // Code: 3190 bytes, Data: 10698 bytes // Labels: 285, Subroutines: 17 // // Cross-references: all OK // ============================================ // --- Region $1000-$1006 --- .pc = $1000 "sub_1000" // Referenced by: jsr from $3231 sub_1000: jmp loc_16b7 // Referenced by: jsr from $3565 sub_1003: jmp loc_11ce dat_1006: .byte $78 // x // --- Region $11ce-$1723 --- .pc = $11ce "loc_11ce" loc_11ce: dec dat_1160 ldx #$00 loc_11d3: jsr sub_123d inx cpx #$03 bne loc_11d3 lda dat_1160 bpl loc_11e6 lda $11cd sta dat_1160 loc_11e6: ldy $11c7 lda $11c6 and #$01 bne loc_1210 lda $11ca beq loc_1203 dec $11ca bne loc_1203 lda $18d3,y sta $11ca inc $11c6 loc_1203: lda $11c9 clc adc $18dc,y sta $11c9 jmp loc_122d loc_1210: lda $11ca beq loc_1223 dec $11ca bne loc_1223 lda $18ca,y sta $11ca inc $11c6 loc_1223: lda $11c9 clc adc $18e5,y sta $11c9 loc_122d: lda $11c9 sta $d416 lda $11c8 sta $d418 rts loc_123a: jmp loc_14ec // Referenced by: jsr from $11d3 sub_123d: lda dat_1160 bpl loc_123a dec $117f,x beq loc_12ab jmp loc_1478 loc_124a: iny lda ($fb),y sta $1161,x loc_1250: lda $11be,x sta $fb lda $11c1,x sta $fc ldy $1161,x lda ($fb),y bpl loc_129e cmp #$c0 bcs loc_1271 sec sbc #$a0 sta $116a,x loc_126b: inc $1161,x jmp loc_1250 loc_1271: cmp #$f0 bcs loc_1286 and #$0f sta $fd lda $11c8 and #$f0 ora $fd sta $11c8 jmp loc_126b loc_1286: cmp #$fd beq loc_124a cmp #$fe bne loc_1297 ldy dat_1724,x lda #$00 sta $d404,y