#835

Sacred 01

Sacred

2.752 lines of code

RasterbarsRSTRMusicSIDScrollerSCRLSpritesSPRTBitmapBMAP

History

Released
1993
Code
Atomicro
Music
DOS (Andor Cseh) — "EGO game/2"
Graphics
Macho
Group
Sacred — Netherlands, founded 1993

The first crack intro from Sacred, a Dutch group founded in 1993 and operating under the short tag "[S]." Atomicro coded the intro, Macho provided the graphics, and DOS (Andor Cseh) contributed the music with "EGO game/2," preserved in the HVSC. The coder himself commented on the intros.c64.org entry in 2013, confirming his identity — a rare instance of original sceners verifying their own work decades later. Sacred was based in the Netherlands, joining a long lineage of Dutch cracking groups that included Hotline, Ikari, and the Dominators. The group's founding in 1993 placed it in the later phase of C64 cracking, when the scene had contracted but remained active in parts of Western Europe. No scrolltext or additional historical context has been recovered from Doc Snyder's page or Freeze64.

Sources: CSDb

sacred-01.asm 2.752 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:42
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $43ff  (15360 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $4000 (16384)
// IRQ handler:  $40cb (irq_40cb)
//
// Code: 2522 bytes, Data: 12838 bytes
// Labels: 271, Subroutines: 17
//
// Cross-references: all OK
// ============================================


// --- Region $1100-$1205 ---
.pc = $1100 "sub_1100"
// Referenced by: jsr from $41b2

sub_1100:
        jmp loc_11aa
// Referenced by: jsr from $401c

sub_1103:
        stx smc_1135                                // SMC: modifies $1135
        lda $182c,x
        sta smc_11bc                                // SMC: modifies $11bc
        lda #$80
        sta smc_11d0                                // SMC: modifies $11d0
        ldx #$0f
        stx smc_13eb                                // SMC: modifies $13eb
        stx $d418
        dex
        jsr sub_1134
        ldx #$07
        jsr sub_1134
        ldx #$00
        stx smc_11ab                                // SMC: modifies $11ab
        stx $fc
        stx $fd
        stx smc_11b5                                // SMC: modifies $11b5
        stx $d417
        stx $d416
// Referenced by: jsr from $111a, $111f

sub_1134:
.label smc_1135 = * + 1
        lda #$00                                    // !SMC: modified by $1103
        clc
        adc $17b2,x
        tay
        lda $184d,y
        sta $17af,x
        sta $ff
        lda $1850,y
        sta $17b0,x
        sta $fe
        lda #$00
        sta $d406,x
        sta $d405,x
        lda #$18
        sta $d404,x
        ldy #$00
        tya
        sta $17dc,x
        lda #$03
        sta $17b1,x
        sta $17b5,x
        lda ($fe),y
        sec
        sbc #$a0
        sta $17da,x
        iny
        lda ($fe),y
        and #$7f
        sta $17db,x
        iny
        lda ($fe),y
        tay
        lda $18ef,y
        sta $17b4,x
        sta $fe
        lda $18fb,y
        sta $17b3,x
        sta $ff
        ldy #$00
        lda ($fe),y
        and #$3f
        sta $17dd,x
        iny
        lda ($fe),y
        sta $17c8,x
        and #$1f
        sta $17c7,x

loc_119e:
        iny
        lda ($fe),y
        sta $17de,x
        inx
        cpy #$04
        bne loc_119e
        rts

loc_11aa:
.label smc_11ab = * + 1
        lda #$00                                    // !SMC: modified by $1124
        beq loc_11b4

dat_11ae:
        .byte $29,$00,$8d,$18,$d4,$60               // )....`

loc_11b4:
.label smc_11b5 = * + 1
        ldy #$00                                    // !SMC: modified by $112b, $11bd
        sta $fb
        dey
        bpl dat_1206
.label smc_11bc = * + 1
        ldy #$01                                    // !SMC: modified by $1109
        sty smc_11b5                                // SMC: modifies $11b5
        ldx #$0e
        jsr sub_12e1
        ldx #$07
        jsr sub_12e1
        ldx #$00
        jsr sub_12e1
.label smc_11d0 = * + 1
        ldy #$80                                    // !SMC: modified by $110e
        cpy #$fc
        beq loc_11f4
        bmi loc_1218

loc_11d7:
        dey
        bne loc_11ee
        lda smc_13eb
        clc
        adc #$ff
        cmp #$ff
        beq loc_11ec
        sta smc_13eb
        ora $fd
        sta $d418