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
[ back to the prod ]