History
- Group
- 2000 A.D. — CSDb group ID #261
The second ranked intro from 2000 A.D. sits at #587 on intros.c64.org. The group maintains a substantial CSDb catalogue with at least fourteen crack intros filed under group ID #261, alongside joint releases with Jewels and a party intro. No individual code or music credits are recorded for this particular release. The CSDb search results reveal that 2000 A.D. produced a consistent stream of numbered crack intros — from Intro 01 through Intro 09 — alongside specialty releases like the "2000 A.D. Needs" recruitment intro. A single comment from Rough in September 2010 appears on the intros.c64.org page. This intro is one of three ranked 2000 A.D. entries, with #195 2000 A.D. Intro #1 ranking highest and #778 2000 A.D. Intro #3 sitting lowest in the set.
Sources: CSDb Group · intros.c64.org
// ============================================ // 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: $0801 End: $0c5a (1114 bytes) // Entry point: $0811 (via BASIC SYS 2065) // IRQ handler: $0907 (irq_0907) // // Code: 691 bytes, Data: 423 bytes // Labels: 55, Subroutines: 0 // // Cross-references: all OK // ============================================ // --- Region $0811-$0ac8 --- .pc = $0811 "main_0811" main_0811: jsr $ff84 jsr $ff5b jsr $ff8a sei lda #$c1 sta $0318 lda #$80 sta $d020 sta $d021 sta $0286 sta $0291 jsr $e544 ldx #$0f lda #$00 loc_0835: sta $40,x sta $0100,x dex bpl loc_0835 lda #$80 sta $47 lda #$03 sta $4b ldx #$95 ldy #$0b stx $48 sty $49 ldx #$07 loc_084f: lda $0ae2,x sta $0108,x dex bpl loc_084f ldx #$a0 loc_085a: lda #$a0 sta $06f7,x lda #$09 sta $d84f,x sta $d8ef,x dex bne loc_085a loc_086a: lda $d011 bpl loc_086a ldx #$18 loc_0871: lda txt_0ac9,x sta $0637,x lda #$01 sta $da37,x dex bpl loc_0871 lda #$7f sta $dc0d and $d011 sta $d011 lda #$01 sta $d019 sta $d01a lda #$39 sta $d012 ldx #$07 ldy #$09 stx $0314 sty $0315 cli loc_08a2: jsr $ffe4 cmp #$20 bne loc_08a2 sei jsr $ff81 jsr $ff8a jsr $ff84 ldx #$45 loc_08b5: lda loc_08c1,x sta $02b0,x dex bpl loc_08b5 jmp $02b0 loc_08c1: sei lda #$30 sta $01 ldx #$01 ldy #$08 stx $2d sty $2e ldx #$5b ldy #$0c stx $4a sty $4b ldx #$60 ldy #$21 stx $4c sty $4d ldy #$00 loc_08e0: lda ($4a),y sta ($2d),y inc $2d bne loc_08ea loc_08e8: inc $2e loc_08ea: inc $4a bne loc_08f0 inc $4b loc_08f0: lda $4a cmp $4c bne loc_08e0 lda $4b cmp $4d