pouët.net

; _________________________________
;|                                 |
;| 32 bytes Fuzzy Logic            |
;| by Rudi of Hoaxers and Darklite |
;|_________________________________|
;
; In this trick I use the raster ($d012) to generate the pseudo randomness.
; Unfortunately there was not enough space to fill the color ram with white.
; Comment out $d016 for a filter that will make it look even more random.
;

*=$32c
.word *+2
	sta $d021
	sta $d020
	lda #$88
	sta $d018
loop:	iny
	adc $d012
	sta ($18),y
	and #$7
	ora #$20
	sta $19
;	sta $d016
	sta $d400, y
	bpl loop

;
; Greetings goes to BHF, Firehawk, Response, Skurk, Grasstust, ZTH og Error404
;

[ html | dos 80*25 | dos 80*50 | rez's ascii | amiga medres | amiga hires ]