← #670 Top 1024 #672 →
#671

Xakk Cracking Section 05

Xakk Cracking Section

2.547 lines of code

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

History

Released
February 1989
Code
Cleo
Music
Knatter (Bjorn Fogelberg) — "Huele-song"
Group
XAKK — Sweden, founded August 1986

Cleo coded this XAKK Cracking Section intro, released in February 1989, with music by Knatter (Bjorn Fogelberg) — a Swedish SID composer whose "Huele-song" is preserved in the HVSC. XAKK was a Swedish group founded in August 1986, making them one of the earlier Scandinavian cracking outfits. The group's name appears in greeting lists across multiple other intros in the collection — Crackforce Omega's scrolltext mentions XAKK among their contacts, confirming the group's integration within the Swedish scene network. A comment on intros.c64.org from iAN CooG — a well-known scene archivist and coder — indicates the intro was reviewed by preservation-minded sceners. Released in February 1989, this came during XAKK's third year of operation. Doc Snyder's page does not list the group, suggesting their output was primarily documented through CSDb and intros.c64.org rather than the re-coded intro collections.

Sources: CSDb

xakk-05.asm 2.547 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:37:03
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0801  End: $41f7  (14839 bytes)
// Note: PRG was crunched, depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $1000 (4096)
// IRQ handler:  $124b (irq_124b)
// IRQ handler:  $1316 (nmi_1316)
//
// Code: 2174 bytes, Data: 12665 bytes
// Labels: 258, Subroutines: 12
//
// Verification: 2 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$1231 ---
.pc = $1000 "main_1000"

main_1000:
        sei
        jsr $fd15
        jsr $fda3
        jsr $ff81
        jsr $e544
        lda #$7f
        sta $dc0d
        sta $dd0d
        lda $dc0d
        lda $dd0d
        lda #$1b
        sta $d011
        lda #$01
        sta $d01a
        sta $d019
        lda #$4b
        sta $fffe
        lda #$12
        sta $ffff
        lda #$16
        sta $fffa
        lda #$13
        sta $fffb
        lda $1901
        sta $49
        sta $4c
        lda $1900
        sta $4a
        sta $4d
        lda #$08
        sta smc_11d6                                // SMC: modifies $11d6
        sta smc_11a0                                // SMC: modifies $11a0
        lda #$00
        sta $dc0e
        sta $d012
        sta $60
        sta $62
        sta $66
        sta smc_11d5                                // SMC: modifies $11d5
        sta smc_119f                                // SMC: modifies $119f
        sta $55
        sta $45
        sta $4b
        lda #$ff
        sta $52
        sta $53
        sta $61
        nop
        nop
        nop
        nop
        nop
        ldx #$00

loc_107b:
        lda #$01
        sta $d800,x
        sta $d8a0,x
        lda #$0e
        sta $d930,x
        lda #$0a
        sta $d9b0,x
        sta $da00,x
        sta $db00,x
        lda dat_13c9,x
        sta $0400,x
        lda $14c9,x
        sta $0500,x
        lda $15c9,x
        sta $0600,x
        lda $16c9,x
        sta $0700,x
        lda #$00
        sta $0800,x
        sta $0900,x
        sta $0a00,x
        sta $0b00,x
        sta $0c00,x
        sta $0c40,x
        nop
        nop
        nop
        nop
        nop
        nop
        inx
        bne loc_107b
        lda #$ff
        sta $d015
        sta $d01c
        ldx #$00
        lda #$01

loc_10d4:
        sta $d027,x
        inx
        cpx #$08
        bne loc_10d4
        lda #$0e
        sta $d025
        lda #$06
        sta $d026
        ldx #$00

loc_10e8:
        lda $123b,x
        sta $d000,x
        inx
        cpx #$10
        bne loc_10e8
        jsr sub_1317
        ldx #$00
        lda #$35

loc_10fa:
        sta $07f8,x
        inx
        cpx #$08
        bne loc_10fa
        jsr sub_2029
        lda #$33
        sta $01
        ldx #$08