← #553 Top 1024 #555 →
#554

Brutal 14

Brutal

1.748 lines of code

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

History

Released
18 April 1992
Code
TCH
Music
Danko (Tomas Danko) — "Censor Introtune", Guy Shavitt — "Digital Madness (end)", Flex (Antti Hannula) — "Mindblowing", Bappalander (Ove Oldberg) — "Run to You"
Group
Brutal — Netherlands, founded July 1990

The fourteenth numbered intro from Brutal — a Dutch cracking group founded in July 1990. Released on 18 April 1992, this intro is notable for its four-tune jukebox featuring music from Danko, Guy Shavitt, Flex, and Bappalander — an unusually generous selection for a crack intro. TCH handled the code while the graphics and charset artists are listed on CSDb without named credits. Brutal operated under the motto "Now You're Playing With Power!" and maintained contacts across the European scene, as evidenced by the extensive greeting list in their Doc Snyder entry — namechecking groups from Legend and Triad to Fairlight and Red Sector Inc. The scrolltext from a separate Brutal release preserved on Doc Snyder's page references R.C.S. as an active cracker for the group. Brutal's fourteenth intro demonstrates the group's maturity — by 1992 they had developed a substantial catalogue across their two years of activity.

Sources: CSDb · docsnyderspage

brutal-14.asm 1.748 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:11
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $2fff  (10240 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $2000 (8192)
// IRQ handler:  $2100 (irq_2100)
//
// Code: 1783 bytes, Data: 8457 bytes
// Labels: 200, Subroutines: 8
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$1006 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $200d

sub_1000:
        jmp loc_1040
// Referenced by: jsr from $211d

sub_1003:
        jmp loc_10d8

dat_1006:
        .byte $01                                   // .

// --- Region $1040-$1468 ---
.pc = $1040 "loc_1040"

loc_1040:
        asl
        asl
        asl
        tay
        ldx #$00

loc_1046:
        lda $15a2,y
        sta $1528,x
        sta $152e,x
        lda $15a3,y
        sta $152b,x
        sta $1531,x
        iny
        iny
        inx
        cpx #$03
        bne loc_1046
        ldx #$00
        stx $100b
        lda $15a2,y
        sta $1534

loc_106a:
        sta $158c,x
        inc $100b
        lda $1534
        clc
        adc $15a2,y
        sta $1534
        clc
        adc $100b
        inx
        cpx #$10
        bne loc_106a
        lda txt_1020
        beq loc_10b3
        ldx #$02

loc_108a:
        lda $15a3,y
        sta $100b
        and $1535,x
        sta dat_1006,x
        dex
        bpl loc_108a
        bit $100b
        bpl loc_10b3
        ldx #$00

loc_10a0:
        lda $15a4,y
        sta $152e,x
        lda $15a5,y
        sta $1531,x
        iny
        iny
        inx
        cpx #$03
        bne loc_10a0

loc_10b3:
        ldy #$00
        tya

loc_10b6:
        sta $d400,y
        iny
        cpy #$18
        bne loc_10b6
        ldy #$00

loc_10c0:
        lda #$00
        sta $153b,y
        sta $1014,y
        lda #$04
        sta $1547,y
        iny
        cpy #$0c
        bne loc_10c0
        lda #$1f
        sta $d418
        rts

loc_10d8:
        lda $fb
        pha
        lda $fc
        pha
        ldx #$02

loc_10e0:
        lda dat_1006,x
        bne loc_10e8
        jmp loc_145b

loc_10e8:
        lda $1547,x
        bne loc_10f0
        jmp loc_1223

loc_10f0:
        cmp #$02
        beq loc_10fa
        dec $1547,x
        jmp loc_12d5

loc_10fa:
        dec $1547,x
        lda $1528,x
        sta $fb