← #841 Top 1024 #843 →
#842

Crusade (CH) 04

Crusade (CH)

2.038 lines of code

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

History

Released
November 1990
Group
Crusade — Switzerland, founded November 1990

This Crusade intro features "Tripler Tune 3" by Maduplec (Martin Arentoft), as documented on Doc Snyder's page. Crusade was a Swiss cracking and import group founded in November 1990, built from the ashes of Abstract and Future Concepts. The scrolltext preserved on Doc Snyder's page describes cracking the American version of Crackdown — "+7 trained and iffl packed in the states by horizon and brought to europe by sexton on november, 15th 1990" — providing a precise date and documenting the transatlantic supply chain typical of late-era C64 cracking. Sexton, the group's founder, also handled importing duties. Crusade's greetings list includes major contemporaries — NEC/NEI, Random, Demonix, Legend, Genesis, F4CG, Illusion, Dominators, Censor, and Ikari — placing them within the top tier of the 1990–1991 scene. The group dissolved in 1991 after a brief but active existence. Maduplec was a Danish musician whose SID compositions circulated through multiple Scandinavian and continental groups.

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

crusade-04.asm 2.038 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:14
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0700  End: $2bff  (9472 bytes)
// Crunched with Time Cruncher — depacked by emulation
// Packer entry: $0818 (via BASIC SYS 2072)
// Entry point:  $1f20 (7968)
// IRQ handler:  $1c97 (irq_1c97)
// IRQ handler:  $1d0e (loc_1d0e)
//
// Code: 1939 bytes, Data: 7533 bytes
// Labels: 217, Subroutines: 12
//
// Cross-references: all OK
// ============================================


// --- Region $1003-$1006 ---
.pc = $1003 "sub_1003"
// Referenced by: jsr from $1dd8

sub_1003:
        jmp loc_1095

txt_1006:
        .encoding "screencode_mixed"
        .text "-"
        .encoding "petscii_upper"

// --- Region $106a-$140b ---
.pc = $106a "sub_106a"
// Referenced by: jsr from $1f20

sub_106a:
        lda #$00
        ldx #$33

loc_106e:
        sta $1020,x
        dex
        bne loc_106e
        ldx #$17

loc_1076:
        sta $d400,x
        dex
        bpl loc_1076
        lda #$01
        sta $102c
        sta $102d
        sta $102e
        lda #$f1
        sta $d417
        lda #$1f
        sta $d418
        rts

loc_1092:
        jmp loc_11b3

loc_1095:
        ldx #$02
        lda $90
        pha
        lda $91
        pha

loc_109d:
        dec $102c,x
        bne loc_1092
        lda $1060,x
        sta $90
        lda $1063,x
        sta $91
        ldy $1047,x
        lda ($90),y
        bne loc_10b9
        sta $1047,x
        tay
        lda ($90),y

loc_10b9:
        bpl loc_10c7
        and #$1f
        sta $1020,x
        iny
        tya
        sta $1047,x
        lda ($90),y

loc_10c7:
        tay
        lda dat_140c,y
        sta $90
        lda $141c,y
        sta $91
        lda #$00
        sta $104a,x
        sta $1032,x
        sta $1023,x
        sta $1053,x
        sta $1026,x
        sta $1059,x
        inc $1050,x
        ldy $104d,x
        lda ($90),y
        cmp #$f0
        bcc loc_1115
        and #$01
        clc
        adc #$01
        sta $104a,x
        lda ($90),y
        and #$0e
        lsr
        sta $105c,x
        iny
        lda ($90),y
        pha
        and #$f0
        sta $105f
        pla
        and #$0f
        asl
        sta smc_1261                                // SMC: modifies $1261
        iny
        lda ($90),y

loc_1115:
        cmp #$c0
        bcc loc_1121
        and #$1f
        sta $102f,x
        iny
        lda ($90),y

loc_1121:
        cmp #$80
        bcc loc_112e
        and #$7f
        asl
        sta $1029,x
        iny
        lda ($90),y

loc_112e: