Post your Sierpinksi

Write a program to print k-th iteration (where k is given as an argument) of the Sierpinski triangle on standard output in your language of choice, then post it in this thread. Convoluted solutions more than welcome.

mov ax h13 | int h10 | mov bp sp
mov w[bp,0] h6480 | mov w[bp,2] h80 | mov w[bp,4] hc700 | mov w[bp,6] hc7ff | mov w[bp,8] h0
mov ax ha000 | mov es ax
mov dx ds | xor ax ax | mov ds ax | mov al [h41a | mov ah [h41c | mov ds dx | cmp ah al | jne h18e
mov bx [bp,8] | inc bx | cmp bx -1 | jne h143 | xor bx bx | mov [bp,8] bx | mov dx [bx | and dx 3 | cmp dl 0 | je h125
mov bx dx | shl bx | add bx bp
mov ch 0 | mov ah 0 | mov al [bx | mov cl [bp | add cx ax | shr cx | mov [bp cl
mov di cx
mov ch 0 | mov ah 0 | mov al [bx,1 | mov cl [bp,1 | add cx ax | shr cx | mov [bp,1 cl
mov ax h140 | mul cx | add di ax
mov ax ds | mov cx ha000 | mov ds cx | mov bx di | mov [bx 15 | mov ds ax
jmp h125 | mov ax 3 | int h10 | ret