← #899 Top 1024 #901 →
#900

Action 14

Action

1.334 lines of code

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

History

Released
22 May 1991
Code
Crisp
Music
O'Neill (Morten Kristensen) -- "Ice Cream Castle (orange part)"; Flex (Antti Hannula) -- "Feelin' Blue"
Group
Action -- Germany, founded February 1989

The fourteenth numbered Action intro, coded by Crisp and featuring two SID compositions -- O'Neill's (Morten Kristensen) "Ice Cream Castle (orange part)" and Flex's (Antti Hannula) "Feelin' Blue" -- both preserved in the HVSC. Released on 22 May 1991, this came during Action's final stretch of active output. Crisp also coded #199 Action-07, establishing him as one of the group's primary programmers. Action is well represented across the ranking, with additional entries at #56 Action-03 and #327 Action-05. Doc Snyder's page documents the group's catalogue and preserves scrolltexts that reveal Action's combative stance in the German cracking hierarchy. The dual-musician approach -- pairing a Danish composer (O'Neill) with a Finnish one (Flex) -- reflects the international talent pool that German groups drew upon. Action's consistent production from February 1989 through mid-1991 represents over two years of sustained activity in the competitive German scene.

Sources: CSDb · docsnyderspage

action-14.asm 1.334 lines
// ============================================
// output - Part 1 of 3
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:09
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $1bd0  (5073 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $0c00 (3072)
//
// Code: 1834 bytes, Data: 3239 bytes
// Labels: 136, Subroutines: 4
//
// Cross-references: all OK
// ============================================


// --- Region $0c00-$0dd6 ---
.pc = $0c00 "main_0c00"

main_0c00:
        sei
        lda #$0b
        sta $d011

loc_0c06:
        lda $d012
        bne loc_0c06
        sta $d020
        sta $d021
        tax
        ldy #$04

loc_0c14:
        sta $d800,x
        inx
        bne loc_0c14
        inc $0c16
        dey
        bne loc_0c14
        ldx #$85
        ldy #$0a
        stx $f8
        sty $f9
        ldx #$50
        ldy #$03
        stx $fa
        sty $fb
        ldy #$00

loc_0c32:
        ldx #$01
        jsr sub_0c4f
        bne loc_0c42
        jsr sub_0c4f
        beq loc_0c5a
        tax
        jsr sub_0c4f

loc_0c42:
        sta ($fa),y
        inc $fa
        bne loc_0c4a
        inc $fb

loc_0c4a:
        dex
        bne loc_0c42
        beq loc_0c32
// Referenced by: jsr from $0c34, $0c39, $0c3f

sub_0c4f:
        lda ($f8),y
        inc $f8
        bne loc_0c57
        inc $f9

loc_0c57:
        cmp #$02
        rts

loc_0c5a:
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        ldx #$00

loc_0c65:
        lda $0400,x
        sta $0658,x
        lda $0490,x
        sta $06e8,x
        lda #$01
        sta $d828,x
        sta $d868,x
        sta $da80,x
        sta $dac0,x
        inx
        bne loc_0c65
        ldx #$c8

loc_0c84:
        lda #$40
        sta $058f,x
        dex
        bne loc_0c84
        lda #$33
        sta $01
        lda #$00
        sta $f8
        sta $fa
        lda #$d4
        sta $f9
        lda #$08
        sta $fb
        lda #$3f
        sta $f7
        ldy #$00

loc_0ca4:
        ldx #$07

loc_0ca6:
        lda chr_0dd5,x
        sta $ff
        lda ($f8),y
        inc $f8
        bne loc_0cb3

chr_0cb1:
        // === Charset data (2 bytes, $0cb1-$0cb2) ===
        .byte $e6,$f9                               // char 0 (partial)

loc_0cb3:
        sta ($fa),y
        inc $fa
        bne loc_0cbb
        inc $fb

loc_0cbb:
        dec $ff
        bne loc_0cb3