MakeVideoNoise:
        move.l #PixelGarbage, a0
        moveq.l #0, d4
        move.w #18240, d4
MakeVideoNoise_2:
        cmp.w #0, d4
        beq.s MakeVideoNoise_End
        JSR RandomNumberGenerator
        cmp.w #$7FFF, d0
        bge.s MakeVideoNoise_3
        move.w d0, (a0)
        jmp ROFLCOPTER3399
MakeVideoNoise_3:
        move.w d0, (a0)
ROFLCOPTER3399:
        add.l #2, a0
        sub.w #1, d4
        jmp MakeVideoNoise_2
MakeVideoNoise_End:
        lea PixelGarbage, a0
        jsr DisplayFullScreenTiles
        RTS