#199

Action 07

Action

2.140 lines of code

RasterbarsRSTRMusicSID

History

Released
January 1991
Code
Crisp
Music
EVS (Edwin van Santen) — "Dutch Breeze Advertisement" / Drax (Thomas Mogensen) — "Classic"
Group
Action — Germany, founded February 1989

A Dutch-Danish musical pairing for this German group — EVS contributing "Dutch Breeze Advertisement" and Drax adding "Classic." Crisp coded. Both compositions are preserved in the HVSC. Action was founded in Germany in February 1989 and maintained output into January 1991, a two-year span of consistent activity. This is the seventh numbered Action intro alongside #56 Action 03, indicating a prolific production schedule. EVS's tune title explicitly references Dutch identity — appropriate given the strong Netherlands-Germany musical pipeline. Drax (Thomas Mogensen) was among the most prolific Danish composers of the late era. Doc Snyder's page documents Action's catalogue. The combination of two established composers for a group entering its third year reflects mature international networking.

Sources: CSDb · docsnyderspage

action-07.asm 2.140 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: $3707  (12040 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $3000 (12288)
//
// Code: 2097 bytes, Data: 9943 bytes
// Labels: 221, Subroutines: 8
//
// Cross-references: all OK
// ============================================


// --- Region $0af0-$0af0 ---
.pc = $0af0 "Program $0af0"
        .byte $02                                   // jam // ILLEGAL

// --- Region $1072-$176b ---
.pc = $1072 "sub_1072"
// Referenced by: jsr from $3059

sub_1072:
        asl
        asl
        asl
        tay
        lda $182a,y
        sta $1100
        lda $182b,y
        sta $10f4
        ldx #$18
        lda #$00

loc_1086:
        sta $d400,x
        dex
        bpl loc_1086
        stx $106d

loc_108f:
        inx
        iny
        iny
        lda $182a,y
        sta $101e,x
        lda $182b,y
        sta $1021,x
        lda #$01
        sta $1000,x
        sta $1069
        lda #$00
        sta $101b,x
        sta $1018,x
        sta $1024,x
        sta $100c,x
        cpx #$02
        bne loc_108f
        sta $1068
        sta $12a6
        sta $1461
        sta $106a
        sta $106b
        sta $d404
        sta $d40b
        sta $d412
        lda #$0f
        sta $145f
        rts

loc_10d6:
        cld
        ldx #$02
        lda $106a
        beq loc_10ee
        dec $106b
        bpl loc_10ee
        sta $106b
        dec $145f
        bne loc_10ee
        inc $106d

loc_10ee:
        dec $1069
        bpl loc_10fa
        lda #$00
        sta $1069
        bne loc_110d

loc_10fa:
        dec $1068
        bpl loc_110d
        lda #$02
        sta $1068
        dec $1000
        dec $1001
        dec $1002

loc_110d:
        lda $1000,x
        beq loc_1115
        jmp loc_12e1

loc_1115:
        sta $1045,x
        sta $1006,x
        sta $105a,x
        sta $1039,x
        sta $104b,x
        lda $1027,x
        ldy $182c,x
        and #$fe
        sta $d404,y
        lda $101e,x
        sta $fe
        lda $1021,x
        sta $ff
        ldy $101b,x
        lda ($fe),y
        bpl loc_1182
        cmp #$fe
        bcc loc_1155
        bne loc_114a
        inc $106d
        rts

loc_114a:
        iny
        lda ($fe),y
        sta $101b,x
        tay
        lda ($fe),y
        bpl loc_1182

loc_1155:
        cmp #$e0
        bcc loc_1166
        and #$1f
        sta $1024,x
        inc $101b,x
        iny
        lda ($fe),y
        bpl loc_1182

loc_1166: