← #771 Top 1024 #773 →
#772

Culture 03

Culture

2.838 lines of code

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

History

Released
c. 1990
Group
Culture — Netherlands, founded February 1990

This Culture intro — featuring a prominent logo design — drew community attention on intros.c64.org, where one commenter noted a possible misspelling reading "Cultune" instead of "Culture," while another praised it as one of the best C64 logos created, highlighting its design and colour coordination. Culture was a Dutch cracking and import group founded in February 1990, emerging from the ashes of Falcon. The group operated under taglines including "Hollands Best!" and "The Dutch Rulers" and maintained five BBSs as headquarters. Key members included KRS One (founder, cracker/musician/swapper), Druid, Mirage (coder), and Stealth. Doc Snyder's page documents a separate Culture intro coded and designed by Heatcliff with music by The Dutch Composer (Vincent Voois). Culture disbanded in January 1991 — barely eleven months after formation — when members transitioned to groups including Censor Design and Verdict. The group produced 84 releases during this short period, operating within the dense Dutch scene alongside contemporaries like #667 Class (NL) and Decibel.

Sources: CSDb Group · docsnyderspage · intros.c64.org

culture-03.asm 2.838 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:15
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $d030  (51249 bytes)
// Crunched with PuCrunch — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $2c80 (11392)
// IRQ handler:  $2d0e (irq_2d0e)
//
// Code: 2167 bytes, Data: 49082 bytes
// Labels: 270, Subroutines: 22
//
// Cross-references: all OK
// ============================================


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

sub_1000:
        jmp loc_1048
// Referenced by: jsr from $1f00

sub_1003:
        jmp loc_1020

txt_1006:
        .text " "

// --- Region $1020-$1080 ---
.pc = $1020 "loc_1020"

loc_1020:
        ldx #$00
        dec $1090
        bmi loc_1034
        jsr sub_1226
        jsr sub_1225
        jmp sub_1225

dat_1030:
        .byte $00,$ff,$ff,$ff                       // ....

loc_1034:
        lda #$02
        sta $1090
        jsr sub_1040
        jsr sub_103f
// Referenced by: jsr from $103c

sub_103f:
        inx
// Referenced by: jsr from $1039

sub_1040:
        dec $108a,x
        bmi loc_1091
        jmp sub_1226

loc_1048:
        lda #$1f
        sta $d418
        lda #$f0
        sta $d417
        and #$0f
        sta smc_1262                                // SMC: modifies $1262
        ldx #$0f

loc_1059:
        sta dat_1081,x
        dex
        bpl loc_1059
        ldx #$02

loc_1061:
        lda $14b9,x
        sta $fa
        lda $14bc,x
        sta $fb
        ldy #$00
        lda ($fa),y
        sta $108d,x
        iny
        lda ($fa),y
        sta $10e6,x
        and #$0f
        sta $10e9,x
        dex
        bpl loc_1061
        rts

// --- Region $1091-$10c6 ---
.pc = $1091 "loc_1091"

loc_1091:
        ldy $108d,x
        cpy #$fe
        bne loc_10a1
// Referenced by: jsr from $10c0

sub_1098:
        lda $1084,x
        and #$fe
        sta $1084,x
        rts

loc_10a1:
        lda $1d85,y
        sta $fa
        lda $1d53,y
        sta $fb
        ldy dat_1081,x
        lda ($fa),y
        bmi loc_10d2
        cmp #$60
        bcc loc_10f9

loc_10b6:
        and #$1f
        sta $108a,x
        lda #$fe
        sta $1031,x
        jsr sub_1098

loc_10c3:
        jmp loc_1187

dat_10c6:
        .byte $00                                   // .

// --- Region $10d2-$10dd ---
.pc = $10d2 "loc_10d2"

loc_10d2:
        cmp #$a0
        bcc loc_10ec
        and #$1f
        sta $108a,x
        bcs loc_10c3
        brk

// --- Region $10ec-$1141 ---
.pc = $10ec "loc_10ec"

loc_10ec: