А вдруг кому надо (треугольник Серпинского)

[Vladson]

Как-то от нечего делать написал такую фигнюшку, хотелось бы узнать у профессионалов, я дурак или псих ?

ORG #8000
LD DE,#4000
RAND
LD HL,#0103
LD A,H
ADD L
RLCA
LD H,A
ADD L
RLCA
LD L,A
LD (RAND+1),HL
POS
LD BC,#0000
AND 3
CP 1
JR Z,R1
CP 2
JR Z,R2
CP 3
JR Z,R3
DEC DE
LD A,D
OR E
CP 0
RET Z
JR RAND
OK_
LD (POS+1),BC
LD A,#BF
SUB B
RET C
CALL #22B0
LD B,A
INC B
LD A,#01
RRCA
DJNZ ($-1)
LD B,A
LD A,(HL)
OR B
LD (HL),A
LD A,#7F
IN A,(#FE)
BIT 0,A
JR NZ,RAND
RET
R1
LD A,B
ADD 192
RRA
LD B,A
LD A,C
ADD 127
RRA
LD C,A
JR OK_
R2
SRL B
SRL C
JR OK_
R3
SRL B
LD A,C
ADD 255
RRA
LD C,A
JR OK_

[Sergey]

Еще парочку эффектов и будет демка ;)

[Vladson]

Sergey, не, вот тут мимо, демки должны быть или "супер" или "никак", так как по превому я не умею, лучше буду делать их по второму...

Я кстати и под x86 её переписал, так что если кому интересно...

.model tiny
.code
.startup
.8086
start:
mov ax,0013h
int 10h
mov ax,0A000h
mov es,ax
mov ax,0001h
mov bx,0003h
mov cx,0000h
mov dx,0000h
rand_ax_bx:
add ax,bx
rol ax,01h
add bx,ax
rol bx,01h
go_sub:
push ax
and ax,3
cmp ax,1
je sub1
cmp ax,2
je sub2
cmp ax,3
je sub3
pop ax
jmp rand_ax_bx
sub1:
add dx,00A0h
shr dx,01h
shr cx,01h
jmp draw
sub2:
add dx,0140h
shr dx,01h
add cx,00C8h
shr cx,01h
jmp draw
sub3:
shr dx,01h
add cx,00C8h
shr cx,01h
draw:
push dx
mov ax,0140h
mov di,cx
mul di
mov di,ax
pop dx
add di,dx
pop ax
mov es:[di],ah
jmp rand_ax_bx
.data
end