History
- Released
- June 1993
- Code
- Atomicro
- Graphics
- SDI / Steve Rowlands
- Music
- EVS (Edwin van Santen) — "PCW-Tune '88"
- Group
- Sacred — Netherlands, founded 1993
This June 1993 crack intro from Sacred was coded by Atomicro, with graphics contributed by both SDI and Steve Rowlands. The SID music is Edwin van Santen's "PCW-Tune '88," preserved in the HVSC under his 20CC alias. EVS was a Dutch musician who also provided tunes for Warriors of the Wasteland releases. Steve Rowlands is known in the C64 scene both as a game developer and graphic artist, making his credited appearance here notable. Sacred was a Dutch group founded in 1993 and abbreviated as [S]. The group's founding year coincides with this intro — their fifth — suggesting rapid early output. No entries appear on Doc Snyder's page, Demozoo, or Pouet, indicating Sacred operated with a relatively contained profile. The dual graphics credit implies collaborative artwork, possibly combining charset and logo design between SDI and Rowlands.
Sources: CSDb · intros.c64.org
// ============================================ // 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: $36ff (12032 bytes) // Crunched with Cruncher AB — depacked by emulation // Packer entry: $080d (via BASIC SYS 2061) // Entry point: $1800 (6144) // IRQ handler: $189b (irq_189b) // // Code: 2019 bytes, Data: 10013 bytes // Labels: 248, Subroutines: 23 // // Cross-references: all OK // ============================================ // --- Region $1000-$135e --- .pc = $1000 "sub_1000" // Referenced by: jsr from $1980 sub_1000: ldy $71 bmi loc_100d beq loc_1009 // Referenced by: jsr from $1818 sub_1006: jmp loc_17ee loc_1009: sty $d418 rts loc_100d: ldx #$02 loc_100f: jsr sub_102b dex bpl loc_100f dec $51 bpl loc_101d lda #$02 sta $51 loc_101d: lda $72 sta $d418 dec $0e bpl loc_102a lda #$02 sta $0e loc_102a: rts // Referenced by: jsr from $100f sub_102b: { lda $0e bne skip1 dec $0b,x bne skip1 jmp loc_120c skip1: lda $12,x bne skip2 lda $1b,x ldy dat_135f,x stx $fe tax lda $147a,x sta $d404,y lda $147c,x sta $d405,y lda $147d,x sta $d406,y ldx $fe skip2: inc $12,x lda $45,x bpl skip4 ldy $48,x lda $143c,y sta $fe lda $143f,y sta $ff ldy $3f,x lda ($fe),y cmp #$ff beq skip3 inc $3f,x ldy dat_135f,x sta $d404,y skip3: ldy $42,x lda ($fe),y cmp #$80 beq skip4 inc $42,x sta $24,x skip4: lda #$10 clc ldy $18,x cpy #$02 beq skip5 cpy #$01 beq skip5 lda $21,x adc $27,x skip5: adc $24,x adc $52,x sta $73 tay lda $1362,y clc adc $5b,x pha lda $13c2,y adc $5e,x ldy dat_135f,x sta $d401,y pla sta $d400,y lda $6b,x sta $d402,y lda $6e,x sta $d403,y lda $12,x cmp #$02 bne skip6 lda $45,x and #$40 beq skip6 lda #$81 sta $d404,y bne skip7 skip6: cmp #$03 bne skip7 lda $45,x bmi skip7 lda $3c,x sta $d404,y skip7: