pouët.net

Bugged Cycle by Madness

!to	"test.prg",cbm

;248 bytes ...

;Bugged Cycle  [03.03.2007] (2nd Day of Nightshift2007)
;Coded by Stranger/Madness^AnaLoG at NightShift Demo PartY
;Note: Please dont fix the bug :)
;Thanx 2 Endo,Skate & NightLord of Glance

*=$0801
	!byte $0b,$08,$d7,$07,$9e,$32,$30,$36,$31,$00,$00,$00

*=$080d
dongu1:	iny
dongu0:	inx

	cpx #$06
	stx $0400+(40*01)+01
	stx $0400+(40*01)+02
	bne dongu0
	cpy #$ff
	bne dongu1

	ldx #$00
	lda #$ff
	
	
	lda #$0b
	jsr $e536
	stx $d021

	lda #$a0
.loop2	sta $0400-1,x
	sta $0500-2,x
	sta $0508,x
	inx
	bne .loop2

	sta $07f8,x
	inx
	cpx #6
	bne *-6

	sei

	lda #$4b
	sta $d011
dongu7:	inc $d020
	inc $d020
	inc $c000,x
	bit $ea
	lda $dc01
	cmp #$ef
	bne dongu7
	lda #$1b
	sta $d011

	ldx #$3b
	lda #$ff
	sta $d015
.fill	sta $2800,x
	dex
	bpl .fill

	lda #%00111100	;2x
	sta $d01d
	lda #%00000011	;2y
	sta $d017

sx = $80
sy = $40

	lda #sx
	sta $d000
	sta $d002
	lda #sy
	sta $d001
	sta $d005
	lda #sy+21*2
	sta $d003
	sta $d00b

	lda #sx+24
	sta $d004
	sta $d006
	lda #sy+21*3-1
	sta $d007

	lda #sx+24*3
	sta $d008
	sta $d00a
	lda #sy+21
	sta $d009

.loop
	lda #$9a
	cmp $d012
	bne *-3
	inc $c000,x
	nop
	lda #$01
	sta $d020
	lda #6
	jsr setcolor
	lda #2
	sta $d027+5
	lda #$ff
	cmp $d012

	bne *-3

	ldx #12
	inc $d001,x
	dex
	dex
	bpl *-5

	lda #$35
	cmp $d012
	bne *-3
	lda #$0b   
	sta $d020
	lda #$00
	sta $d027+5
	jsr setcolor
	jmp .loop

setcolor
	nop
	sta $d027+1
	sta $d027+0
	sta $d027+2
	sta $d027+3
	sta $d027+4
	rts