← #146 Top 1024 #148 →
#147

Australian Cracking Service [ACS] 02

Australian Cracking Service [ACS]

2.344 lines of code

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

History

Released
1987
Code
The Final Solution
Music
Red (Jeroen Kimmel) — "Crazy Sample II"
Group
Australian Cracking Service — Australia, founded August 1983

One of the rarest geographic origins in the collection — Australian Cracking Service was founded in August 1983, making them not only Australia's premier C64 group but among the oldest cracking operations worldwide. The Final Solution coded while Red (Jeroen Kimmel) contributed "Crazy Sample II" from the Netherlands. The trans-hemispheric collaboration between an Australian group and a Dutch musician seems remarkable for 1987 — but mail-trading routes connected even the most geographically isolated scenes. ACS's 1983 founding predates almost every European group in this collection. The HVSC preserves Kimmel's composition. Red's work reaching Australia demonstrates the truly global distribution of SID music. The group name's abbreviation "ACS" — identical to the common computing term — may have helped with recognition in an era of three-letter group identities.

Sources: CSDb

acs-02.asm 2.344 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:15
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $ffff  (63488 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $0900 (2304)
// IRQ handler:  $0830 (irq_0830)
// IRQ handler:  $ea31 (loc_ea31)
//
// Code: 2639 bytes, Data: 60849 bytes
// Labels: 235, Subroutines: 21
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $0814-$0814 ---
.pc = $0814 "Program $0814"
        .byte $42                                   // jam // ILLEGAL

// --- Region $0830-$08b5 ---
.pc = $0830 "irq_0830"

irq_0830:
        lda #$01
        sta $d019
        ldx $082f
        lda $0814,x
        sta $d012
        lda $081c,x
        sta $d011
        lda $0824,x
        sta $d016
        lda $082c,x
        sta $082f
        beq loc_0855
        jmp loc_ea81

loc_0855:
        jsr sub_0a50
        jsr sub_100c
        ldx $08ff
        lda dat_08f0,x
        sta $0824
        sta $d022
        inx
        cpx #$0d
        bne loc_087c
        ldx #$00
        lda $d023
        pha
        lda $d024
        sta $d023
        pla
        sta $d024

loc_087c:
        stx $08ff
        dec $0826
        dec $0826
        bpl loc_08b3
        lda #$07
        sta $0826
        ldx #$00

loc_088e:
        lda txt_0fc1,x
        sta $0fc0,x
        inx
        cpx #$27
        bne loc_088e
        ldy #$00

loc_089b:
        lda ($fb),y
        bpl loc_08aa
        lda #$00
        sta $fb
        lda #$18
        sta $fc
        jmp loc_089b

loc_08aa:
        sta $0fe7
        inc $fb
        bne loc_08b3
        inc $fc

loc_08b3:
        jmp loc_ea31

// --- Region $0900-$09cf ---
.pc = $0900 "main_0900"

main_0900:
        sei
        lda #$01
        sta $d01a
        lda #$7f
        sta $dc0d
        lda #$30
        sta $0314
        lda #$08
        sta $0315
        lda #$00
        jsr sub_1000
        lda #$00
        sta smc_d020                                // SMC: modifies $d020
        sta dat_d021
        lda #$35
        sta $d018
        lda #$80
        sta $0291
        lda #$00
        sta $fb
        lda #$18
        sta $fc
        lda #$20
        ldx #$27

loc_0938:
        sta $0fc0,x
        dex
        bpl loc_0938
        ldx #$0f

loc_0940:
        lda dat_0ab0,x
        sta $d000,x
        dex
        bpl loc_0940
        lda #$7f
        sta $d015
        sta $d01c
        sta $d017
        sta $d01d
        lda #$0b
        sta $d022
        lda #$0c
        sta $d023
        lda #$01
        ldx #$50