← #903 Top 1024 #905 →
#904

Archaos 01

Archaos

1.655 lines of code

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

History

Released
December 1992
Music
JCH (Jens-Christian Huus) — "Strike Force"; Chotaire (Marc) — "Party Hymn Prv"
Group
Archaos — Denmark, founded November 1992

The debut intro from Archaos, a Danish cracking group founded in November 1992 and releasing this production just one month later in December 1992. The intro features two SID tunes — JCH's "Strike Force" and Chotaire's "Party Hymn Prv" — both preserved in the HVSC. JCH (Jens-Christian Huus) was one of the most prolific SID composers in the C64 scene, and his compositions appear in crack intros from dozens of different groups. Chotaire (Marc) was also a recognized Danish musician whose contributions spanned multiple scene productions. No coder or graphic artist is individually credited on CSDb for this release. The group used the abbreviation ACS and operated from Denmark — one of the strongest Scandinavian scene nations alongside Sweden and Norway. Archaos emerged very late in the C64's commercial lifecycle, when the platform had already been commercially superseded but retained a dedicated community of enthusiasts.

Sources: CSDb

archaos-01.asm 1.655 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: $1fff  (6144 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $1dcb (7627)
// IRQ handler:  $1df9 (irq_1df9)
// IRQ handler:  $1e1d (irq_1e1d)
// IRQ handler:  $1e4d (irq_1e4d)
// IRQ handler:  $1e74 (irq_1e74)
// IRQ handler:  $1e96 (irq_1e96)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 2025 bytes, Data: 4119 bytes
// Labels: 158, Subroutines: 4
//
// Cross-references: all OK
// ============================================


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

sub_1000:
        jmp loc_1040
// Referenced by: jsr from $1eef

sub_1003:
        jmp loc_10dc

dat_1006:
        .byte $01                                   // .

// --- Region $1040-$134e ---
.pc = $1040 "loc_1040"

loc_1040:
        asl
        asl
        asl
        tay
        ldx #$00

loc_1046:
        lda $177b,y
        sta $16e9,x
        sta $16ef,x
        lda $177c,y
        sta $16ec,x
        sta $16f2,x
        iny
        iny
        inx
        cpx #$03
        bne loc_1046
        ldx #$00
        stx $100b
        lda $177b,y
        sta $16e8

loc_106a:
        sta $1765,x
        inc $100b
        lda $16e8
        clc
        adc $177b,y
        sta $16e8
        clc
        adc $100b
        inx
        cpx #$10
        bne loc_106a
        lda dat_1020
        beq loc_10b3
        ldx #$02

loc_108a:
        lda $177c,y
        sta $100b
        and $16f5,x
        sta dat_1006,x
        dex
        bpl loc_108a
        bit $100b
        bpl loc_10b3
        ldx #$00

loc_10a0:
        lda $177d,y
        sta $16ef,x
        lda $177e,y
        sta $16f2,x
        iny
        iny
        inx
        cpx #$03
        bne loc_10a0

loc_10b3:
        ldy #$00
        tya

loc_10b6:
        sta $d400,y
        iny
        cpy #$1b
        bne loc_10b6
        tay

loc_10bf:
        sta $1014,y
        sta $170d,y
        iny
        cpy #$0c
        bne loc_10bf
        lda #$02
        sta $1716
        sta $1717
        sta $1718
        lda $1009
        sta $d418
        rts

loc_10dc:
        ldx #$02
        lda $fb
        pha
        lda $fc
        pha

loc_10e4:
        lda dat_1006,x
        bne loc_10ec
        jmp loc_161b

loc_10ec:
        lda $1716,x
        beq loc_110a
        cmp $1707,x
        bne loc_1104
        lda #$00
        sta $1707,x
        lda $1710,x
        ldy $16fb,x