Важная информация

User Tag List

Показано с 1 по 3 из 3

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

  1. #1
    Member Аватар для Vladson
    Регистрация
    14.01.2008
    Адрес
    Эстония, Таллинн
    Сообщений
    165
    Благодарностей: 472
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

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

    Как-то от нечего делать написал такую фигнюшку, хотелось бы узнать у профессионалов, я дурак или псих ?
    Код:
    	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_
    Разрабатываю новый сетевой протокол
    Variable Length Advanced Data Sending Over Network
    Что он будет делать и зачем нужен не знаю, разработал пока только название.

  2. Эти 2 пользователя(ей) поблагодарили Vladson за это полезное сообщение:
    Sinus (27.03.2010), VNN_KCS (27.03.2010)

  3. #1
    С любовью к вам, Yandex.Direct
    Размещение рекламы на форуме способствует его дальнейшему развитию

  4. #2
    Activist Аватар для Sergey
    Регистрация
    23.12.2006
    Адрес
    Славный город Самара
    Сообщений
    405
    Благодарностей: 101
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Еще парочку эффектов и будет демка
    С уважением,
    Gris / Red Triangle.
    _____________________________________
    ZX-EVO/TS-Labs config/NGS/HDD/SD-card

  5. #3
    Member Аватар для Vladson
    Регистрация
    14.01.2008
    Адрес
    Эстония, Таллинн
    Сообщений
    165
    Благодарностей: 472
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    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
    Последний раз редактировалось Vladson; 28.03.2010 в 22:39.
    Разрабатываю новый сетевой протокол
    Variable Length Advanced Data Sending Over Network
    Что он будет делать и зачем нужен не знаю, разработал пока только название.

Информация о теме

Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. УКНЦ 0511 надо кому-нибудь?
    от Firewater в разделе Барахолка (архив)
    Ответов: 9
    Последнее: 17.01.2010, 02:04
  2. Отдам ежели кому надо
    от BlackWolf в разделе Барахолка (архив)
    Ответов: 42
    Последнее: 16.10.2008, 19:17
  3. Может кому надо...
    от drbars в разделе Барахолка (архив)
    Ответов: 14
    Последнее: 29.11.2005, 01:20
  4. Может кому надо...
    от drbars в разделе Unsorted
    Ответов: 3
    Последнее: 06.10.2005, 19:44

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •