numerouno
Зарегистрирован: 04.09.2011
Сообщения: 390
|
 Добавлено: Ср Апр 11, 2012 10:12 Заголовок сообщения: |
 |
|
Заглянул во FracLife,как рисуется, кроме папоротника есть еще и дракон и другие с невнятным названием.
вот код с раскраской точек,258 байт на Fasm'e.
| Код: | org 100h
use16
push cs
pop ds
mov al,13h
int 10h
mov bh,0a0h
mov es,bx
@m1:
call L04B2
jmp @m1
L04B2:
mov si, table;;l0d11;-0Dh;ds:1175h ; IFS begin
mov bx, l116Eh
sub_10471:
mov di, l1159h
mov bp, 80h
;sub_109D9:
push dx
mov ax, 41A3h
mul [cs:word_10C4C]; here 1
div [cs:word_10C4A]
xchg ax, dx
mov [cs:word_10C4C], ax
xor dx, dx
div bp
xchg ax, dx
pop dx
; retn
loc_1047A:
add si, 0Dh
sub al, [si]
jns short loc_1047A
inc si
; call sub_10AAF
sub_10AAF:
pusha
; call sub_10A8F
;sub_10A8F:
pusha
mov cl, 2
loc_10A92:
mov ch, 2
xor bp, bp
push bx
loc_10A97:
lodsw
imul word [bx]
inc bx
inc bx
shrd ax, dx, 0Eh
add bp, ax
dec ch
jnz short loc_10A97
pop bx
mov [di], bp
inc di
inc di
loop loc_10A92
popa
; retn
add si, 8
lodsw
add [di], ax
inc di
inc di
lodsw
add [di], ax
popa
; retn;aaf
mov eax, [di];488
mov [bx], eax
; retn
mov si, bx
mov ax, [ds:l1172h+7]
mov di, l1172h
inc byte [di]
cmp [di], ah
jb short loc_104CC
mov [di], al
loc_104CC:
mov bx, [ds:l1172h+5]
mov cx, [ds:l1172h+1]
;; push 0A000h
;; pop es
lodsw
mov dx, 100h
imul dx
idiv cx
xchg ax, di
lodsw
mov dx, 100h
imul dx
idiv cx
imul ax, 140h
add di, ax
add di, bx
movsb
;mov al,0fh
;stosb
retn
;------------------------------------
word_10C4C dw 1
word_10C4A dw 0FFF1h
table=l0d11-0Dh
l0d11:
;DB 0AEh,002h,0ECh,000h,000h,060h,009h,0EEh
;DB 00Ch,051h,082h,041h,080h;+0Dh
db 001h,000h,000h,000h,000h,000h,000h,03Dh
db 00Ah,047h,001h,08Ch,001h,061h,066h,036h,08Fh,002h,071h,0FDh
db 066h,036h,01Eh,000h,009h,000h,00Fh;01eh?
DB 0CDh,00Ch,05Ch,0EFh,0B8h,00Eh,014h,00Eh
DB 080h,001h,0DAh,000h,00Fh,067h,0F6h,0EBh
DB 011h,0A4h,010h,05Ch,00Fh,0F4h,000h,0FDh
DB 000h,000h,0BCh,002h,011h,00Dh,084h,012h
;DB 00Ah,032h,054h,026h,01Bh,04Eh,0D6h,0F9h
;DB 0E0h,0F1h,0E9h,04Bh,001h,08Ch,002h,02Ch
;DB 000h,000h,000h,0E8h,046h,0D7h,08Ch,0FEh
;DB 055h,002h,083h,001h,000h,0BCh,002h,04Eh
;DB 00Dh,024h,013h,01Eh,03Fh,066h,083h,01Ch
;DB 09Eh,032h,0FCh,029h,0E1h,0EBh,0DEh,0FFh
;DB 03Dh,000h,01Ah,060h,0DFh,0C9h,0F2h,003h
;DB 010h,0E2h,0F1h,082h,002h,056h,001h,000h
;DB 084h,003h,071h,00Dh,0B2h,0F3h,01Eh,036h
;DB 052h,00Dh,075h,00Dh,098h,00Dh,0CFh,00Ch
;DB 0F2h,00Ch,015h,00Dh,0A3h,00Dh,070h,020h
;DB 01Eh,034h,01Ah,0A3h,071h,0C0h,023h,00Eh
;DB 08Ch,0CAh,058h,09Ch,0CBh,0C1h,000h,053h
;DB 000h,0AFh,00Dh,0C6h,000h,037h,000h,0B4h
;DB 000h,0FFh,000h,002h,002h,000h,005h,000h
;DB 000h,0C0h,00Dh,0C8h,000h,0B4h,000h,03Ch
;DB 000h,002h,003h,000h,004h,000h,000h,0C0h
;DB 00Dh,030h,060h,020h,0FCh,063h,040h,006h
;DB 064h,0A0h,0E2h,02Dh,003h,031h,020h,003h
;DB 01Dh,050h,000h,0E2h,00Dh,0C6h,000h,06Eh
;DB 000h,0B4h,000h,0C8h,000h,002h,003h,000h
;DB 003h,000h,000h,0F2h,00Dh,022h,001h,0B4h
;DB 000h,01Eh,000h,002h,005h,000h,002h,000h
;--------------------------------
l1159h:
db 0f6h,0,058h,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
l116Eh:
db 0F2h,0,058h,0;,0bch,2,11h,0dh,84h,12h,0Ah
l1172h:
db 0,0BCh,002h,011h,00Dh,084h,012h,00Ah,032h;,0FEh,011h,0FEh,021h,0FEh,031h,0FEh
|
_________________
вначале было крактро, а потом такое началось,когда праникся дэмоспиритом апасля вайнспирита!1
Аднажды на ДемосценеРупоявился невежа. его с позором прогнали. Так появились тролли.
миниатюры 256bytes.net в одном флаконе
Я программист, Зип Файл! |
|
FAQ
Поиск
Пользователи
Группы
Регистрация
Профиль
Войти и проверить личные сообщения
Вход
