pouët.net

Go to bottom

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
;----------------------------------------
;----------------------------------------
;----------------------------------------

Go to top