#246

Alaskan Cracking Service [ACS] 01

Alaskan Cracking Service [ACS]

2.074 lines of code

RasterbarsRSTRSpritesSPRT

History

Released
5 May 1990
Code
Deathangel's Shadow
Music
Antony Crowther — "R1-D1 Unit Attack"
Group
The Alaskan Cracking Service — United States

The Alaskan Cracking Service — one of the more geographically distinctive group names in the American C64 scene — produced this intro released on 5 May 1990. Deathangel's Shadow coded the intro while the music uses Antony Crowther's "R1-D1 Unit Attack," a composition from the prolific British game developer and musician whose work is preserved in the HVSC. Crowther was primarily known as a commercial game developer rather than a scene musician, making this a case of borrowed game music repurposed for a crack intro. Little documentation exists for the group beyond this CSDb entry — no Doc Snyder page, Demozoo listing, or Freeze64 coverage has been found. The group's full name, "The Alaskan Cracking Service," follows the common American naming pattern of "[Location] Cracking Service" seen in groups like Cleveland Cracking Service and Italian Cracking Service. The lack of a founding date on CSDb and minimal online footprint suggest a relatively short-lived operation.

Sources: CSDb

a_c_s-01.asm 2.074 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:14
// 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:  $0817 (2071)
// IRQ handler:  $0955 (irq_0955)
// IRQ handler:  $ea31 (loc_ea31)
// IRQ handler:  $0ce0 (loc_0ce0)
//
// Code: 2109 bytes, Data: 61379 bytes
// Labels: 235, Subroutines: 27
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $0817-$084f ---
.pc = $0817 "main_0817"

main_0817:
        lda #$0b
        sta $d020
        sta $d021
        lda #$93
        jsr $ffd2
        ldx #$00

loc_0826:
        lda dat_084f,x
        cmp #$ff
        beq loc_0834
        jsr $ffd2
        inx
        jmp loc_0826

loc_0834:
        jmp loc_0842

loc_0837:
        cmp #$00
        beq loc_0834
        cmp #$0d
        bne loc_0842
        jmp loc_0b37

loc_0842:
        lda #$93
        jsr $ffd2
        lda #$08
        sta $d011
        jmp loc_087f

dat_084f:
        .byte $90                                   // .

// --- Region $087f-$09f9 ---
.pc = $087f "loc_087f"

loc_087f:
        lda #$32
        sta $d001
        sta $d003
        sta $d005
        lda #$64
        sta $d000
        lda #$a0
        sta $d002
        lda #$dc
        sta $d004
        lda #$07
        sta $d015
        sta $d017
        sta $d01c
        sta $d01d
        lda #$0b
        sta $d025
        lda #$0c
        sta $d026
        ldx #$30
        stx $07f8
        inx
        stx $07f9
        inx
        stx $07fa
        lda #$00
        sta $fb
        lda #$04
        sta $fc
        lda #$00
        sta $fd
        lda #$18
        sta $fe
        ldy #$00

loc_08d0:
        lda ($fd),y
        sta ($fb),y
        inc $fb
        bne loc_08da

dat_08d8:
        .byte $e6,$fc                               // ..

loc_08da:
        inc $fd
        bne loc_08e0
        inc $fe

loc_08e0:
        lda $fd
        cmp #$e9
        bne loc_08d0
        lda $fe
        cmp #$1b
        bne loc_08d0
        lda #$00
        sta $fb
        lda #$d8
        sta $fc
        lda #$0b

loc_08f6:
        sta ($fb),y
        inc $fb
        bne loc_08fe

dat_08fc:
        .byte $e6,$fc                               // ..

loc_08fe:
        ldx $fb
        cpx #$e8
        bne loc_08f6
        ldx $fc
        cpx #$db
        bne loc_08f6
        lda #$00
        sta $30
        lda #$16
        sta $31
        lda #$07
        sta $02