| /programs/other/archer/trunk/@RCHER.ASM |
|---|
| 4,7 → 4,7 |
| ; |
| ; Created: May 6, 2005 |
| ; |
| ; Last changed: July 14, 2005 |
| ; Last changed: August 26, 2006 |
| ; |
| ; Compile with FASM |
| 13,7 → 13,7 |
| png_imag = output+OUTBUF |
| PARAM_PTR = os_work;png_image |
| MEMINIT=next_code;output |
| DUMPFILE equ '/hd/1/out.txt' |
| DUMPFILE equ '/hd0/1/out.txt' |
| SHOW_RBLOCK equ 0;1 |
| SHOW_PNG_SEC equ 0;1 |
| 62,7 → 62,7 |
| dd start |
| dd I_END |
| dd MEMINIT |
| dd main_stack;MEMORY-2048 |
| dd main_stack_top;MEMORY-2048 |
| if PARAM_PTR eq param |
| dd 0 |
| else |
| 337,7 → 337,7 |
| Msg 37 |
| .nomsg: |
| mov [outfile.out],ebx |
| mcall 58,outfile |
| mcall 70,outfile |
| ; dps 'Before Quit1' |
| ; ud2 |
| test [Flags],TAR_MODE |
| 385,7 → 385,7 |
| Msg 37 |
| test [Flags],LIST_MODE |
| jne quit |
| mcall 58,outfile |
| mcall 70,outfile |
| .pad: |
| call StartPad |
| .notar: |
| /programs/other/archer/trunk/data.inc |
|---|
| 10,22 → 10,30 |
| if SYS eq win |
| db 'D:\Ivushkin\projects\zip\output.raw',0 |
| end if |
| dd 1 |
| dd 2 |
| dd 0 |
| dd 0 |
| .size dd 0 |
| .out dd output |
| dd os_work |
| if ~SYS eq win |
| dumpfile: |
| db DUMPFILE,0 |
| dumpf_len=$-dumpfile |
| end if |
| attrinfo: |
| dd 5 |
| dd 0 |
| dd 0 |
| dd 0 |
| dd fileattr |
| db 0 |
| dd filename |
| Finfo: |
| dd 0 |
| .block dd 0 |
| .count dd BUFSIZE*2 |
| dd 0 |
| .count dd BUFSIZE*1024 |
| .ptr dd BUFPTR |
| dd os_work |
| filename: |
| if SYS eq win |
| 84,6 → 92,10 |
| Dheader rb 12 |
| Dpassword rb PASSW_LEN |
| if ~SYS eq win |
| fileattr rd 40/4 |
| end if |
| png_ dd ? |
| fat_ dd ? |
| fat_fnum dd ? |
| 125,11 → 137,15 |
| hclen db ? |
| max_len dw ? |
| align 4 |
| fat: |
| rb 4096;512 |
| child_stack: |
| rb 1024 |
| child_stack_top: |
| main_stack: |
| rb 1024 |
| main_stack_top: |
| area: |
| rb INBUF |
| os_work rb 4*1024 |
| /programs/other/archer/trunk/dump.inc |
|---|
| 18,7 → 18,7 |
| if ~ run_new eq |
| test edx,edx |
| jne .exist |
| mcall 19,Board_seek.board_fn,0 |
| mcall 70,Board_seek.board_fn,0 |
| mov edx,eax |
| mcall 5,20 |
| end if |
| 51,5 → 51,11 |
| .ok: |
| mov edx,[ebx+30] |
| ret |
| .board_fn db 'BOARD ' |
| .board_fn: |
| dd 7 |
| dd 0 |
| dd 0 |
| dd 0 |
| dd 0 |
| db '/RD/1/BOARD',0 |
| end if |
| /programs/other/archer/trunk/macros.inc |
|---|
| 143,11 → 143,6 |
| ; language for programs |
| lang fix ru ; ru en fr ge fi |
| ; optimize the code for size |
| __regs fix <eax,ebx,ecx,edx,esi,edi,ebp,esp> |
| 179,7 → 174,7 |
| macro mov arg1,arg2 |
| { |
| if (arg1 in __regs) & (arg2 eqtype 0) |
| if (arg1 in __regs) & ((arg2 eqtype 0) | (arg2 eqtype '0')) |
| if (arg2) = 0 |
| xor arg1,arg1 |
| else if (arg2) = 1 |
| /programs/other/archer/trunk/sys.inc |
|---|
| 18,8 → 18,11 |
| mov ebx,eax |
| mov [filesize],eax |
| else |
| mcall 58,Finfo |
| and dword [attrinfo+32], 0 |
| mcall 70,attrinfo |
| mov eax,[attrinfo+32] |
| mov [filesize],ebx |
| mcall 70,Finfo |
| end if |
| ret |
| 37,10 → 40,8 |
| ; esi - current pointer (in memory!) |
| ; ebx - translation method: 0 - beginning, 1 - current, 2 - end |
| push eax ecx edx |
| mov edx,[Finfo.block] |
| imul edx,BSIZE |
| sub esi,BUFPTR |
| add esi,edx |
| add esi,[Finfo.block] |
| cmp ebx,1 |
| je .cur |
| jb .begin |
| 49,13 → 50,9 |
| .cur: |
| add eax,esi |
| .begin: |
| mov ecx,BSIZE |
| xor edx,edx |
| div ecx |
| lea esi,[BUFPTR+edx] |
| mov esi,BUFPTR |
| mov [Finfo.block],eax |
| if SYS eq win |
| mul ecx |
| invoke SetFilePointer,[hnd],eax,NULL,FILE_BEGIN |
| invoke ReadFile,[hnd],area,INBUF, os_work, NULL |
| ; add [byte_count],area |
| 62,8 → 59,8 |
| else |
| ; pregs |
| ; wait |
| mov [Finfo.count],BUFSIZE*2 |
| mcall 58,Finfo |
| mov [Finfo.count],BUFSIZE*1024 |
| mcall 70,Finfo |
| ; mov [byte_count],area+INBUF |
| end if |
| pop edx ecx eax |
| 105,7 → 102,7 |
| else |
| test [Flags],THREAD_YES |
| jnz .ex |
| mcall 51,1,thread,child_stack;MEMORY |
| mcall 51,1,thread,child_stack_top;MEMORY |
| mov [child],eax |
| end if |
| .ex: |
| 249,75 → 246,10 |
| je .stay |
| cmp al,'/' |
| jne .yespar |
| mov ecx,255 |
| dec esi |
| mov edi,filename |
| xor al,al |
| rep stosb |
| mov ecx,255 |
| mov edi,filename |
| rep movsb |
| ; test [Flags],LIST_MODE |
| ; jz again |
| xor eax,eax |
| mov edi,filename |
| mov ecx,255 |
| repne scasb |
| cmp byte[edi-2],'/' |
| je .slash |
| mov byte[edi-1],'/' |
| inc edi |
| .slash: |
| ; Dump filename,255,os_work |
| ; ud2 |
| mov ecx,edi |
| ; dec ecx |
| mov edx,ecx |
| mov dword[Finfo],13 |
| ; mov dword[Finfo.count],1 |
| mov edi,filename+5 |
| sub ecx,edi |
| .lp: |
| mov al,'/' |
| repne scasb |
| ; jne .ex |
| ; dpd ecx |
| and byte[edi-1],0 |
| mcall 58,Finfo |
| mov byte[edi-1],'/' |
| test ebx,32 |
| jz .lp |
| test [Flags],LIST_MODE |
| jne .listm |
| and byte[edi-1],0 |
| ; Dump filename,255,os_work |
| jmp .agg |
| ; ud2 |
| .listm: |
| lea esi,[edi-1+ecx] |
| lea edi,[esi+1] |
| std |
| rep movsb |
| and byte[edi],0 |
| cld |
| ; dpd filename |
| inc edi |
| dpd edi |
| cmp edx,edi |
| jne .slash2 |
| ; cmp byte[edi],'/' |
| ; je .slash2 |
| mov byte[edi],'/' |
| inc edx |
| .slash2: |
| sub edx,edi |
| mov [lpath],edi |
| mov [lpath_len],edx |
| dpd edx |
| .agg: |
| mov dword[Finfo],0 |
| ; ud2 |
| jmp again;cmdl |
| .yespar: |
| cmp al,'N' |