#533

Action 08

Action

4.383 lines of code

RasterbarsRSTRMusicSIDScrollerSCRL

History

Released
29 April 1989
Code
KGB
Music
Hayes (Markus Muller) — "Cinema"; Antti Hannula — "Weekend"; Steel (Mario Laugell) — "2 Different"
Charset
Mr. Cursor
Group
Action — Germany, founded February 1989

A three-SID jukebox intro from Action, coded by KGB with charset work from Mr. Cursor. The music selection features Hayes (Markus Muller) contributing "Cinema," Antti Hannula providing "Weekend," and Steel (Mario Laugell) supplying "2 Different" — all preserved in the HVSC. Released on 29 April 1989, this appeared just two months after Action's founding in February 1989, demonstrating rapid early output. Doc Snyder's page documents Action's catalogue and scrolltexts, which reveal aggressive competitive rhetoric directed at rival groups — a hallmark of the German cracking scene's intense hierarchy battles. This is the eighth numbered Action intro, joining #416 Action-07 and #56 Action-03 in the rankings. The Antti Hannula credit connects this intro to the Finnish scene — Hannula was also known as Flex and contributed music to multiple German and Scandinavian groups.

Sources: CSDb · docsnyderspage

action-08.asm 4.383 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:07
// 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:  $2f00 (12032)
//
// Code: 2661 bytes, Data: 60827 bytes
// Labels: 432, Subroutines: 16
//
// Cross-references: all OK
// ============================================


// --- Region $113c-$144c ---
.pc = $113c "sub_113c"

// Referenced by: jsr from $1347
sub_113c: {
        lda $1056,x
        beq skip1
        dec $1056,x
        rts
skip1:
        ldy $1009
        lda $1026,x
        tax
        lda $1012,x
        sta $a3
        lda $1013,x
        sta $a4
        lda ($a3),y
        sta $107a
        lda $100e,x
        sta $a3
        lda $100f,x
        sta $a4
        lda $1010,x
        sta $a5
        lda $1011,x
        sta $a6
        lda ($a3),y
        sta $a3
        lda ($a5),y
        sta $a4
        stx $a6
        ldx $100c
        ldy $1067,x
        iny
        lda ($a3),y
        sta $a5
        and #$0f
        bne skip2
        lda $a5
        lsr
        lsr
        lsr
        lsr
        sta $1056,x
        iny
        tya
        sta $1067,x
        rts
skip2:
        lda $a5
        lsr
        lsr
        lsr
        lsr
        sta $1056,x
        iny
        tya
        sta $1067,x
        dey
        dey
        lda ($a3),y
        sta $a3
        bit $a3
        bmi skip3
        clc
        adc $107a
skip3:
        and #$7f
        sta $102c,x
        lda #$00
        sta $d404,x
        sta $1028,x
        sta $1029,x
        lda $a5
        asl
        asl
        asl
        asl
        tay
        ldx $a6
        lda $1014,x
        sta $a3
        lda $1015,x
        sta $a4
        ldx $100c
        lda ($a3),y
        iny
        sta $d405,x
        lda ($a3),y
        iny
        sta $d406,x
        lda ($a3),y
        iny
        sta $103b,x
        lda #$00
        sta $1041,x
        lda ($a3),y
        iny
        sta $103c,x
        lda ($a3),y
        iny
        sta $103d,x
        sta $1065,x
        lda ($a3),y
        iny
        sta $103e,x
        lda ($a3),y
        iny
        sta $103f,x
        sta $1066,x
        lda ($a3),y
        iny
        sta $1040,x
        lda ($a3),y
        iny
        sta $1052,x
        sta $1055,x
        lda ($a3),y
        iny
        sta $1053,x
        lda ($a3),y
        iny
        sta $1054,x
        lda ($a3),y
        iny
        sta $1050,x
        lda ($a3),y
        iny
        sta $1051,x
        lda ($a3),y