noiST by Checkpoint [web]
;----------------------------------------
;----------------------------------------
;----------------------------------------
;
; noiST
;
; some noise attempt
; Atari ST
; 50 bytes
; defjam/checkpoint
; november 2010
; dedicated to the pouet icons
;----------------------------------------
;----------------------------------------
;----------------------------------------
TEST SET 0
OUTPUT 'NOIST.PRG'
;----------------------------------------
OPT D-,O-,W-
IFNE TEST
OPT D+
ENDC
;----------------------------------------
clr.l -(SP)
move.w #$0020,-(SP) ; supervisor mode
trap #1
;----------------------------------------
; set colors
lea $FFFF8240.w,A0
moveq #$12,D0 ; start color
moveq #16-1,D7
icols:
move.w D0,(A0)+
add.w #$0111,D0
dbra D7,icols
clr.b (A0) ; $FFFF8260.w lo-rez, unsynced ofcourse
;----------------------------------------
loop:
movea.l $0000044E.w,A6 ; screen
move.w #32000/8-1,D0
lfill:
add.w D0,D7 ; our "random" number/pattern
rol.l D7,D7 ; generator
move.l D7,(A6)+
move.l D7,(A6)+
dbra D0,lfill
bra.s loop
;----------------------------------------
;----------------------------------------
;----------------------------------------
END
;----------------------------------------
;----------------------------------------
;----------------------------------------
[ back to the prod ]