← #919 Top 1024 #921 →
#920

Amnesia 14

Amnesia

2.680 lines of code

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

History

Released
1992
Code
Wizvis
Music
Drax (Thomas Mogensen) — "Loaded"; Metal (Torben Hansen) — "Note-It 2"
Graphics
Artix
Group
Amnesia — Netherlands

A 1992 crack intro from Amnesia, a Dutch group using the abbreviation AMN. Wizvis coded the intro while Artix handled the graphics. The soundtrack features two prominent Danish SID composers — Drax (Thomas Mogensen) with "Loaded" and Metal (Torben Hansen) with "Note-It 2" — both preserved in the HVSC. Drax was one of the most prolific and respected composers in the C64 scene, and his appearance here underscores Amnesia's access to top-tier musical talent. This intro joins #361 Amnesia-01 and #484 Amnesia-07 among the group's ranked entries. Doc Snyder's page documents a later Amnesia intro featuring Seal on code and Calypso (Terry Wentinck) on graphics, revealing the group's stable of Dutch contributors. The Hugi diskmag archive also references Amnesia, indicating the group's name circulated beyond the C64 cracking scene into the broader demoscene press.

Sources: CSDb · docsnyderspage

amnesia-14.asm 2.680 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:08
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $4fab  (18348 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $1c00 (7168)
// IRQ handler:  $491b (irq_491b)
// IRQ handler:  $4938 (nmi_4938)
//
// Code: 2631 bytes, Data: 15717 bytes
// Labels: 245, Subroutines: 12
//
// Cross-references: all OK
// ============================================


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

sub_1000:
        jmp loc_1040
// Referenced by: jsr from $4a15

sub_1003:
        jmp loc_10c1

dat_1006:
        .byte $01                                   // .

// --- Region $1040-$1277 ---
.pc = $1040 "loc_1040"

loc_1040:
        asl
        asl
        asl
        tay
        ldx #$00

loc_1046:
        lda $17cb,y
        sta $172e,x
        sta $1734,x
        lda $17cc,y
        sta $1731,x
        sta $1737,x
        iny
        iny
        inx
        cpx #$03
        bne loc_1046
        lda $17cb,y
        sta $1747
        lda dat_1020
        beq loc_1095
        ldx #$02

loc_106c:
        lda $17cc,y
        sta $100b
        and $173a,x
        sta dat_1006,x
        dex
        bpl loc_106c
        bit $100b
        bpl loc_1095
        ldx #$00

loc_1082:
        lda $17cd,y
        sta $1734,x
        lda $17ce,y
        sta $1737,x
        iny
        iny
        inx
        cpx #$03
        bne loc_1082

loc_1095:
        ldy #$00
        tya

loc_1098:
        sta $d400,y
        iny
        cpy #$17
        bne loc_1098
        tay

loc_10a1:
        sta $1014,y
        iny
        cpy #$0c
        bne loc_10a1
        ldy #$14

loc_10ab:
        sta $1748,y
        dey
        bpl loc_10ab
        lda #$01
        sta $1794
        lda #$03
        sta $1746
        lda #$0f
        sta $1009
        rts

loc_10c1:
        lda $fb
        pha
        lda $fc
        pha
        dec $1746
        bpl loc_10e9
        lda $1747
        sta $1746
        cmp #$02
        bcs loc_10e9
        ldy $1794
        lda $185b,y
        sta $1746
        dec $1794
        bpl loc_10e9
        lda #$01
        sta $1794

loc_10e9:
        ldx #$02

loc_10eb:
        lda dat_1006,x
        bne loc_10f3
        jmp loc_1660

loc_10f3:
        lda $1746
        beq loc_1104
        cmp #$02
        bne loc_1109
        lda $175a,x
        beq loc_110f
        jmp loc_1409