#578

1001 Crew 04

1001 Crew

643 lines of code

ScrollerSCRLSpritesSPRT

History

Group
1001 Crew — Netherlands, founded 1985

The fourth numbered intro from the 1001 Crew continues the Dutch group's prolific output of crack intros during the mid-to-late 1980s. Founded in 1985, the 1001 Crew is well-documented on CSDb with at least sixteen crack intros catalogued under group ID #81, plus joint productions with Future Projects and The Stars. No individual code or music credits are listed for this specific release. The group operated from the Netherlands and used the short name "1001" — a distinctive numeric handle in an era when most groups favoured more elaborate names. This intro sits at rank #578 on intros.c64.org, between the group's entries at #255 1001 Crew Intro #1 and #937 1001 Crew Intro #3. A single comment from ZTH of Abnormal in 2008 notes the intro's preservation in the archive.

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

1001-04.asm 643 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:05
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0700  End: $d011  (51474 bytes)
// Crunched with Exomizer — depacked by emulation
// Packer entry: $082a (via BASIC SYS 2090)
// Entry point:  $1371 (4977)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 407 bytes, Data: 51067 bytes
// Labels: 72, Subroutines: 8
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$102d ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $10d5, $10f7

sub_1000:
        jsr sub_1075
        sei
        lda #$01
        sta $d019
        sta $d01a
        lda #$01
        sta $dc0d
        lda #$10
        ldy #$2e
        sty $0314
        sta $0315
        lda #$03
        sta $d012
        lda $d011
        and #$7f
        sta $d011
        lda #$00
        sta $fc
        cli
        rts

// --- Region $1075-$1132 ---
.pc = $1075 "sub_1075"
// Referenced by: jsr from $1000

sub_1075:
        nop
        nop
        nop
        lda #$00
        sta $d060
        sta $d061
        jsr sub_1100
        rts

dat_1084:
        .byte $20,$4b                               //  K

loc_1086:
        ora ($a9),y
        asl $8d
        rol $d0
        lda #$0e
        sta $d025
        ldx #$38
        stx $07f8
        stx $07fb
        stx $07fc
        stx $07ff
        inx
        stx $07f9
        stx $07fa
        stx $07fd
        stx $07fe
        lda #$ff
        sta $d01c
        lda #$ff
        sta $d015
        rts

loc_10b7:
        sta $d012
        lda #$06
        sta $d026
        lda #$0e
        sta $d025
        ldx #$10
        lda #$ff

loc_10c8:
        sta $cfff,x
        dex
        dex
        bne loc_10c8
        rts

loc_10d0:
        lda #$01
        sta $033c
        jsr sub_1000
        lda #$00
        sta $1497
        jmp loc_1440

dat_10e0:
        .byte $ea,$ea,$ea,$60                       // ...`
// Referenced by: jsr from $1456

sub_10e4:
        jsr sub_159a
        nop
        nop
        nop
        rts
// Referenced by: jsr from $1447

sub_10eb:
        lda #$c7
        sta $d016
        jsr sub_145c
        jmp loc_15cc

dat_10f6:
        .byte $00                                   // .
// Referenced by: jsr from $1376

sub_10f7:
        jsr sub_1000
        lda #$13
        sta $d018
        rts
// Referenced by: jsr from $1080

sub_1100:
        lda #$ff
        sta $d015
        sta $d01c
        nop
        nop
        nop
        lda #$00
        sta $d017
        sta $d01d
        ldx #$08
        lda #$01