move.l seed,d0 eor.l #$87654321,d0 swap.w d0 swap.l d0 swap.w d0 move.l d0,seed divu #6,d0 swap.l d0 ext.l d0 addq.l #1,d0