#626

Action 01

Action

4.765 lines of code

RasterbarsRSTRMusicSIDScrollerSCRL

History

Released
25 June 1991
Group
Action — Germany, founded February 1989
Code
Jihad
Music
A-Man (Steven Diemer) — To Be Alone; GT (Geir Tjelta) — Melodious
Graphics
Orc
Charset
Apollyon
NTSC-Fix
Grim Reaper

This crack intro from the German group Action is catalogued on CSDb as release #59429, dated 25 June 1991. Jihad coded the intro, with two SID tunes — "To Be Alone" by A-Man (Steven Diemer) and "Melodious" by GT (Geir Tjelta) — both preserved in the HVSC. Orc provided the graphics, Apollyon designed the charset, and Grim Reaper handled the NTSC fix — a six-person production team reflecting serious ambition. Action was founded in February 1989 and positioned itself as one of Germany's fastest cracking crews. Doc Snyder's page confirms Jihad as coder and Orc as artist for this specific intro, crediting Predator for music — an alternate handle for Geir Tjelta. This is one of several ranked Action intros, alongside the higher-placed #56 Action Intro #3 and #327 Action Intro #5.

Sources: CSDb · intros.c64.org · docsnyderspage

action-01.asm 4.765 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:  $1d00 (7424)
//
// Code: 3993 bytes, Data: 59495 bytes
// Labels: 531, Subroutines: 23
//
// Cross-references: all OK
// ============================================


// --- Region $090a-$0917 ---
.pc = $090a "Program $090a"
        .byte $9f,$9f,$9c                           // sha $9c9f,y // ILLEGAL
        .byte $93,$90                               // sha ($90),y // ILLEGAL
        bcc loc_0966
.label sub_0913 = * + 2
        .byte $ff,$ff,$ff                           // isc $ffff,x // ILLEGAL
        cpy.abs $0033
// Referenced by: jsr from $fde2

sub_0917:
        brk

// --- Region $0966-$0966 ---
.pc = $0966 "loc_0966"

loc_0966:
        brk

// --- Region $0c10-$0c10 ---
.pc = $0c10 "sub_0c10"
// Referenced by: jsr from $fda3

sub_0c10:
        brk

// --- Region $0e0f-$0e22 ---
.pc = $0e0f "sub_0e0f"
// Referenced by: jsr from $fdd5

sub_0e0f:
        .byte $04,$05                               // nop $05 // ILLEGAL
        ora ($02,x)
        .byte $03,$04                               // slo ($04,x) // ILLEGAL
        .byte $04,$04                               // nop $04 // ILLEGAL
        asl $04
        .byte $04,$04                               // nop $04 // ILLEGAL
        .byte $07,$08                               // slo $08 // ILLEGAL
        ora #$0a
        .byte $04,$04                               // nop $04 // ILLEGAL
        .byte $0b,$00                               // anc #$00 // ILLEGAL

// --- Region $0f06-$0f09 ---
.pc = $0f06 "sub_0f06"
// Referenced by: jsr from $fdd0

sub_0f06:
        .byte $6b,$6c                               // arr #$6c // ILLEGAL
        brk

chr_0f09:
        // === Charset data (1 bytes, $0f09-$0f09) ===
        .byte $00                                   // char 0 (partial)

// --- Region $1006-$1563 ---
.pc = $1006 "loc_1006"

loc_1006:
        lda $1974

loc_1009:
        cmp #$02
        beq loc_1014
        cmp #$01
        bne loc_102a
        jmp loc_18e8

loc_1014:
        rts

dat_1015:
        .byte $f9,$26,$ee,$16                       // .&..

loc_1019:
        bpl loc_1009
        asl $10,x
        lda $1016
        cmp #$32
        bne loc_1029
        lda #$01
        sta dat_1015

loc_1029:
        rts

loc_102a:
        inc $1942
        inc $1943
        inc $1944
        lda #$1f
        sta $d418
        ldx #$02
        dec $1973
        bpl loc_1045
        lda $191d
        sta $1973

loc_1045:
        bit $d020
        stx $ff
        lda $191e,x
        sta $1956
        tay
        lda $1973
        cmp $191d
        bne loc_106b
        lda $16a1,x
        sta $fb
        lda $16a4,x
        sta $fc
        dec $1927,x
        bmi loc_106e
        jmp loc_11fa

loc_106b:
        jmp loc_120a

loc_106e:
        ldy $1921,x
        lda ($fb),y
        cmp #$fe
        beq loc_108c
        cmp #$ff
        bne loc_1094
        lda #$00
        sta $1927,x
        sta $1921,x
        sta $1924,x
        sta $1972
        jmp loc_106e