VPF::mini конкурс! - Форум программистов

oleg1973

Дата 1.11.2004, 23:17 (ссылка)

(нет голосов)

Загрузка ...

asm fanat

Профиль
Группа: Экс. модератор
Сообщений: 3283
Регистрация: 16.7.2003
Где: Italy

Репутация: 2
Всего: 34

ну что на дворе 1 ноября
делаем мини конкурс!
"fire-demo 4096"
задача:
написать эффект огня
мах размер скажем 4096 байт
ось роли не играет дос/виндос
файл не паковать!
сорцы показывать! в архив положим и фак

срок 2 недели
победителя голосованием
работы шлите мне на мыло

p.s.
если присоеденятся не asm кодеры, всегда welcom!
тока пусть в размер уложатся

--------------------

SST 465555
icq 200-512-712

oleg1973

Дата 1.11.2004, 23:59 (ссылка)

(нет голосов)

Загрузка ...

asm fanat

Профиль
Группа: Экс. модератор
Сообщений: 3283
Регистрация: 16.7.2003
Где: Italy

Репутация: 2
Всего: 34

да вот забыл
кто желает учавствовать,имена оставляйте

p.s.
кто не понял задания
вот пример, 248 байт ;-)

уж в 4096 такое не засунуть,пазорище

Присоединённый файл ( Кол-во скачиваний: 77 )

FIRE07.COM

--------------------

SST 465555
icq 200-512-712

oleg1973

Дата 3.11.2004, 19:42 (ссылка)

(нет голосов)

Загрузка ...

asm fanat

Профиль
Группа: Экс. модератор
Сообщений: 3283
Регистрация: 16.7.2003
Где: Italy

Репутация: 2
Всего: 34

как то неактивно товарищи!
чингачгук давай выдвигай свою кандитуру

--------------------

SST 465555
icq 200-512-712

Dr.Death

Дата 3.11.2004, 21:50 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник Клуба
Сообщений: 950
Регистрация: 15.7.2003
Где: Волгоград

Репутация: нет
Всего: 1

oleg1973
Даешь исходники ?

Это сообщение отредактировал(а) Dr.Death - 3.11.2004, 21:50

--------------------

Жизнь коротка, чтобы быть в ней слабым.© Арнольд Шварцнеггер

oleg1973

Дата 3.11.2004, 22:49 (ссылка)

(нет голосов)

Загрузка ...

asm fanat

Профиль
Группа: Экс. модератор
Сообщений: 3283
Регистрация: 16.7.2003
Где: Italy

Репутация: 2
Всего: 34

Dr.Death
эт не я делал
но могу сделать,так как знаю как

--------------------

SST 465555
icq 200-512-712

bel_nikita

Дата 7.11.2004, 00:04 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Эксперт
Сообщений: 2304
Регистрация: 12.10.2003
Где: Поезд №21/22 ( ст . Прага )

Репутация: нет
Всего: 47

oleg1973

Цитата

эт не я делал
но могу сделать,так как знаю как

Победитель ясен smile

Если, не влом. Сделай. Хотелось бы на исходники такой проги взглянуть.

--------------------

— регистрация доменов от 150 руб.

S.A.P.

Дата 7.11.2004, 01:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2664
Регистрация: 11.6.2004

Репутация: нет
Всего: 71

Цитата(bel_nikita @ 7.11.2004, 00:04)

Хотелось бы на исходники такой проги взглянуть.

А ты его дизассемблером smile

. У СОМ файла будет один в один с исходником.

Атос

Дата 7.11.2004, 09:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 11.9.2004
Где: Екатеринбург

Репутация: нет
Всего: нет

Может все таки усложним задачу? Сделать для виндозес? а то для ДОСа скока угодно

oleg1973

Дата 7.11.2004, 16:30 (ссылка)

(нет голосов)

Загрузка ...

asm fanat

Профиль
Группа: Экс. модератор
Сообщений: 3283
Регистрация: 16.7.2003
Где: Italy

Репутация: 2
Всего: 34

Атос
ну так как условие 4096 байт то можно и под вындос
разницы почти 0

--------------------

SST 465555
icq 200-512-712

oleg1973

Дата 7.11.2004, 23:37 (ссылка)

(нет голосов)

Загрузка ...

asm fanat

Профиль
Группа: Экс. модератор
Сообщений: 3283
Регистрация: 16.7.2003
Где: Italy

Репутация: 2
Всего: 34

Код


seg000:0100;
seg000:0100; ã=========================================================================¬
seg000:0100; ¦     This file is generated by The Interactive Disassembler (IDA)        ¦
seg000:0100; ¦     Copyright (c) 2002 by DataRescue sa/nv, <[email protected]>        ¦
seg000:0100; ¦          Licensed to: Oleg, DVDMods, 1 user, special           ¦
seg000:0100; L=========================================================================-
seg000:0100;
seg000:0100; ---------------------------------------------------------------------------
seg000:0100; File Name   : C:\FIRE07.COM
seg000:0100; Format      : MS-DOS COM-file
seg000:0100; Base Address: 1000h Range: 10100h-101F8h Loaded length: F8h
seg000:0100 
seg000:0100 
seg000:0100; ===========================================================================
seg000:0100 
seg000:0100; Segment type: Pure code
seg000:0100 seg000          segment byte public 'CODE'
seg000:0100                 assume cs:seg000
seg000:0100                 org 100h
seg000:0100                 assume es:nothing, ss:nothing, ds:seg000
seg000:0100 
seg000:0100                 public start
seg000:0100 start:
seg000:0100                 mov     ah, 0Fh
seg000:0102                 int     10h            ; - VIDEO - GET CURRENT VIDEO MODE
seg000:0102                                        ; Return: AH = number of columns on screen
seg000:0102                                        ; AL = current video mode
seg000:0102                                        ; BH = current active display page
seg000:0104                 push    ax
seg000:0105                 mov     ax, 13h
seg000:0108                 int     10h            ; - VIDEO - SET VIDEO MODE
seg000:0108                                        ; AL = mode
seg000:010A                 mov     dx, 3C4h
seg000:010D                 mov     ax, 604h
seg000:0110                 out     dx, ax         ; EGA: sequencer address reg
seg000:0110                                        ; unknown register
seg000:0111                 mov     ax, 0F02h
seg000:0114                 out     dx, ax         ; EGA: sequencer address reg
seg000:0114                                        ; unknown register
seg000:0115                 mov     dx, 3D4h
seg000:0118                 mov     ax, 14h
seg000:011B                 out     dx, ax         ; Video: CRT cntrlr addr
seg000:011B                                        ; underline location.  Bits 0-5 are scan line number.
seg000:011C                 mov     ax, 0E317h
seg000:011F                 out     dx, ax         ; Video: CRT cntrlr addr
seg000:011F                                        ; 
seg000:0120                 mov     ax, 409h
seg000:0123                 out     dx, ax         ; Video: CRT cntrlr addr
seg000:0123                                        ; 
seg000:0124                 mov     di, 1FAh
seg000:0127                 push    di
seg000:0128                 mov     cx, 0D8h
seg000:012B                 mov     al, 0
seg000:012D                 repe stosb
seg000:012F                 mov     cx, 228h
seg000:0132                 mov     al, 3Fh
seg000:0134                 repe stosb
seg000:0136                 pop     di
seg000:0137                 push    di
seg000:0138                 mov     bl, 0
seg000:013A 
seg000:013A loc_1013A:                             ; CODE XREF: seg000:0153j
seg000:013A                 inc     di
seg000:013B                 inc     di
seg000:013C                 mov     al, bl
seg000:013E                 shl     al, 1
seg000:0140                 stosb
seg000:0141                 add     di, 15h
seg000:0144                 stosb
seg000:0145                 inc     di
seg000:0146                 sub     al, 10h
seg000:0148                 neg     al
seg000:014A                 stosb
seg000:014B                 sub     di, 18h
seg000:014E                 inc     bl
seg000:0150                 cmp     bl, 8
seg000:0153                 jl      loc_1013A
seg000:0155                 add     di, 18h
seg000:0158                 mov     bl, 0
seg000:015A                 mov     al, 2Fh
seg000:015C                 mul     bl
seg000:015E                 mov     cl, 18h
seg000:0160                 div     cl
seg000:0162                 add     al, 10h
seg000:0164                 stosb
seg000:0165                 add     di, 0A9h
seg000:0169                 mov     al, 15h
seg000:016B                 mul     bl
seg000:016B; ---------------------------------------------------------------------------
seg000:016D                 db 0C1h; +
seg000:016E                 db 0E8h; ø
seg000:016F                 db    3;  
seg000:0170                 db 0AAh; ê
seg000:0171                 db  81h; Á
seg000:0172                 db 0EFh; ÿ
seg000:0173                 db 0A8h; è
seg000:0174                 db    0;  
seg000:0175                 db 0FEh; ¦
seg000:0176                 db 0C3h; +
seg000:0177                 db  80h; À
seg000:0178                 db 0FBh; v
seg000:0179                 db  18h;  
seg000:017A                 db  7Ch; |
seg000:017B                 db 0DEh; ¦
seg000:017C                 db 0B3h; ¦
seg000:017D                 db    0;  
seg000:017E                 db 0B0h; -
seg000:017F                 db  1Fh;  
seg000:0180                 db 0F6h; ¡
seg000:0181                 db 0E3h; ó
seg000:0182                 db 0C1h; +
seg000:0183                 db 0E0h; ð
seg000:0184                 db    4;  
seg000:0185                 db 0B0h; -
seg000:0186                 db  3Fh; ?
seg000:0187                 db 0ABh; ë
seg000:0188                 db  47h; G
seg000:0189                 db 0FEh; ¦
seg000:018A                 db 0C3h; +
seg000:018B                 db  80h; À
seg000:018C                 db 0FBh; v
seg000:018D                 db  20h;  
seg000:018E                 db  7Ch; |
seg000:018F                 db 0EEh; þ
seg000:0190                 db 0B0h; -
seg000:0191                 db    0;  
seg000:0192                 db 0BAh; ¦
seg000:0193                 db 0C8h; L
seg000:0194                 db    3;  
seg000:0195                 db 0EEh; þ
seg000:0196                 db  5Eh; ^
seg000:0197                 db  42h; B
seg000:0198                 db 0B9h; ¦
seg000:0199                 db    0;  
seg000:019A                 db    3;  
seg000:019B                 db 0F3h; º
seg000:019C                 db  6Eh; n
seg000:019D                 db  68h; h
seg000:019E                 db    0;  
seg000:019F                 db 0A0h; à
seg000:01A0                 db    7;  
seg000:01A1                 db 0BFh; ¬
seg000:01A2                 db    0;  
seg000:01A3                 db    0;  
seg000:01A4                 db 0B0h; -
seg000:01A5                 db    0;  
seg000:01A6                 db 0B9h; ¦
seg000:01A7                 db  80h; À
seg000:01A8                 db  1Bh;  
seg000:01A9                 db 0F3h; º
seg000:01AA                 db 0AAh; ê
seg000:01AB                 db 0BFh; ¬
seg000:01AC                 db 0E0h; ð
seg000:01AD                 db  1Ah;  
seg000:01AE                 db 0B1h; -
seg000:01AF                 db  1Ah;  
seg000:01B0                 db 0E5h; õ
seg000:01B1                 db  40h; @
seg000:01B2                 db  25h; %
seg000:01B3                 db  3Fh; ?
seg000:01B4                 db  3Fh; ?
seg000:01B5                 db  26h; &
seg000:01B6                 db    1;  
seg000:01B7                 db    5;  
seg000:01B8                 db  83h; Ã
seg000:01B9                 db 0C7h; ¦
seg000:01BA                 db    3;  
seg000:01BB                 db 0E2h; ò
seg000:01BC                 db 0F3h; º
seg000:01BD                 db 0BFh; ¬
seg000:01BE                 db    0;  
seg000:01BF                 db    0;  
seg000:01C0                 db 0B9h; ¦
seg000:01C1                 db 0E0h; ð
seg000:01C2                 db  1Ah;  
seg000:01C3                 db  26h; &
seg000:01C4                 db  8Bh; Ë
seg000:01C5                 db  45h; E
seg000:01C6                 db  4Fh; O
seg000:01C7                 db    2;  
seg000:01C8                 db 0C4h; -
seg000:01C9                 db 0B4h; +
seg000:01CA                 db    0;  
seg000:01CB                 db 0D0h; ¦
seg000:01CC                 db 0D4h; L
seg000:01CD                 db  26h; &
seg000:01CE                 db    2;  
seg000:01CF                 db  45h; E
seg000:01D0                 db  51h; Q
seg000:01D1                 db  80h; À
seg000:01D2                 db 0D4h; L
seg000:01D3                 db    0;  
seg000:01D4                 db  26h; &
seg000:01D5                 db    2;  
seg000:01D6                 db  85h; Å
seg000:01D7                 db 0A0h; à
seg000:01D8                 db    0;  
seg000:01D9                 db  80h; À
seg000:01DA                 db 0D4h; L
seg000:01DB                 db    0;  
seg000:01DC                 db  2Dh; -
seg000:01DD                 db    4;  
seg000:01DE                 db    0;  
seg000:01DF                 db 0C1h; +
seg000:01E0                 db 0F8h; °
seg000:01E1                 db    2;  
seg000:01E2                 db  7Dh; }
seg000:01E3                 db    2;  
seg000:01E4                 db 0B0h; -
seg000:01E5                 db    0;  
seg000:01E6                 db 0AAh; ê
seg000:01E7                 db 0E2h; ò
seg000:01E8                 db 0DAh; -
seg000:01E9                 db 0B4h; +
seg000:01EA                 db    1;  
seg000:01EB                 db 0CDh; =
seg000:01EC                 db  16h;  
seg000:01ED                 db  74h; t
seg000:01EE                 db 0BCh; -
seg000:01EF                 db  58h; X
seg000:01F0                 db 0B4h; +
seg000:01F1                 db    0;  
seg000:01F2                 db 0CDh; =
seg000:01F3                 db  10h;  
seg000:01F4                 db 0B4h; +
seg000:01F5                 db  4Ch; L
seg000:01F6                 db 0CDh; =
seg000:01F7                 db  21h; !
seg000:01F7 seg000          ends
seg000:01F7 
seg000:01F7 
seg000:01F7                 end start

--------------------

SST 465555
icq 200-512-712

oleg1973

Дата 10.11.2004, 01:09 (ссылка)

(нет голосов)

Загрузка ...

asm fanat

Профиль
Группа: Экс. модератор
Сообщений: 3283
Регистрация: 16.7.2003
Где: Italy

Репутация: 2
Всего: 34

ну смотрю активности 0%
перевелись кодеры smile

вот мой вариант
не 4096 а 5373
запросто в 1024 переделывается smile

но наступила лень smile

Присоединённый файл ( Кол-во скачиваний: 54 )

FIRE13.COM

--------------------

SST 465555
icq 200-512-712

Chingachguk

Дата 10.11.2004, 17:54 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1232
Регистрация: 25.3.2002
Где: Москва

Репутация: 3
Всего: 18

119 байт. Правда, это я давным-давно написал ;)

Код


; Программа генерации пламени. 
; Coded by Chingachguk.
; Size = 119 bytes
.286
text segment byte public
  assume cs:text,ds:text	
	org 100h
iter_number EQU 180
ADD_COLOR   EQU 39
begin:  MOV  AL,13H
	INT  10H
	CLD
	MOV  CX,320*200
	PUSH 0A000H
	POP  ES
	XOR  DI,DI
@PAINT:  MOV    AX,DI
  XOR    DX,DX
  MOV    SI,320
  DIV    SI
  MOV    BP,AX; BP=X
  MOV    SI,DX; SI=Y
  PUSH   CX
  MOV    CX,ITER_NUMBER  ; CX=123, SI=(X-160), BP=(Y-100)
@FIND:  LEA    BX,[BP+SI]
  CMP    BX,320*200
  JAE    @N_BOUND
  OR     DS:BUFFER[BX],CL
  JZ     @DONE
@N_BOUND:	MOV    AX,BP
  SHR    AX,1
  ADD    BP,AX
  MOV    AX,SI
  SHR    AX,1
  ADD    SI,AX
  LOOP   @FIND
@DONE:  ADD    CL,ADD_COLOR           ;129
  MOV    BUFFER[DI],CL
  PUSH   DI
  XOR    DX,DX
  MOV    AX,DI
  MOV    SI,320
  DIV    SI
  MUL    SI
  MOV    DI,AX
  CMP    DI,320*60
  JB     @N_DISPLAY
  LEA    SI,BUFFER[DI-320*60]
  MOV    CX,320*60/2
  MOV    DI,320*140
  REP    MOVSW 
@N_DISPLAY:	POP    DI
  POP    CX
  MOV    AH,1
  INT    16H
  JNZ    @ASK
  INC    DI
  LOOP   @PAINT	
@ASK:	XOR  AH,AH
	INT  16H
@EXIT:	MOV  AX,0003H
	INT  10H
        ret 
BUFFER  DB 320*200 DUP(?)
text ends
	end begin

Присоединённый файл ( Кол-во скачиваний: 30 )

Flame.com

--------------------

I don't like the drugs (but the drugs like me). M.Manson.

Dr.Death

Дата 10.11.2004, 20:50 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник Клуба
Сообщений: 950
Регистрация: 15.7.2003
Где: Волгоград

Репутация: нет
Всего: 1

oleg1973
Это та как такое написал?

--------------------

oleg1973

Дата 10.11.2004, 21:24 (ссылка)

(нет голосов)

Загрузка ...

asm fanat

Профиль
Группа: Экс. модератор
Сообщений: 3283
Регистрация: 16.7.2003
Где: Italy

Репутация: 2
Всего: 34

Chingachguk
так у тебя палитра не сгенерена smile

а системная она на вид sux полный

Dr.Death
ну там самого кода 300 байт
надписи это спрайт по маске выводится 5000 байт
ужав его 5000/8=625 в 1024 влезем

а сам огонь
ну там кароче 4096 пихелей
массив на 380 кб
все это там тусуется+ blur на экране smile

--------------------

SST 465555
icq 200-512-712

Midaw

Дата 12.11.2004, 06:55 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 19.8.2004
Где: г. Барнаул

Репутация: нет
Всего: нет

Как же мало наших ассомовских smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Asm для Windows/Dos \| Следующая тема »