| 0,0 → 1,690 |
|---|
| |
| ; flat assembler source |
| ; Copyright (c) 1999-2020, Tomasz Grysztar. |
| ; All rights reserved. |
| |
| ; KolibriOS port by KolibriOS Team |
| |
| format binary as '' |
| appname equ 'flat assembler ' |
| ;------------------------------------------------- |
| ; HEADER |
| ;------------------------------------------------- |
| db 'MENUET01' ; 8 byte id |
| dd 0x01 ; header version |
| dd START ; program start |
| dd program_end ; program image size |
| dd stacktop ; required amount of memory |
| dd stacktop ; stack |
| dd params ; parameters |
| dd cur_dir_path ; icon |
| if defined import.data |
| dd import.data |
| else |
| dd 0 |
| end if |
| ;------------------------------------------------- |
| ; INCLUDES |
| ;------------------------------------------------- |
| lang equ ru |
| include 'kolibria.inc' |
| include 'fasm.inc' |
| |
| MAX_PATH = 100 |
| struc path name:?& { |
| .: |
| db name |
| rb MAX_PATH-$+. } |
| ;------------------------------------------------- |
| ; CODE |
| ;------------------------------------------------- |
| use32 |
| include 'kolibri/osloader/osloader.inc' |
| ;------------------------------------------------- |
| parse_params: |
| |
| cmp [params],'/' |
| jnz @f |
| ret |
| @@: |
| cmp [params],0 |
| jnz .chunk.console |
| ret |
| .chunk.console: |
| mov [_mode],CONSOLE_MODE |
| mov dword [esp], CUI_START ; force retaddr to CUI_START |
| |
| mov eax, ' ' |
| mov esi, 10 |
| cld |
| mov ecx, esi |
| mov edi, infile |
| rep stosd |
| mov ecx, esi |
| mov edi, outfile |
| rep stosd |
| mov ecx, esi |
| mov edi, path |
| rep stosd |
| |
| or ecx, -1 |
| mov edi, params |
| mov al, ' ' |
| repe scasb |
| mov esi, edi |
| dec esi |
| |
| mov edi, dbgWord |
| @@: lodsb |
| scasb |
| jne .NoOutDebugInfo |
| cmp byte[edi], 0 |
| jnz @b |
| |
| cmp byte[esi],' ' |
| jne .NoOutDebugInfo |
| |
| mov edi,esi |
| mov al,' ' |
| repe scasb |
| mov esi,edi |
| dec esi |
| |
| mov edi,params |
| @@: lodsb |
| stosb |
| test al,al |
| jnz @b |
| |
| or dword[ch1_dbg.flags],CB_FLAG_EN |
| |
| |
| .NoOutDebugInfo: |
| mov [_mode],CONSOLE_MODE |
| regcall mov_param_str,,,,,params,infile |
| regcall mov_param_str,,,,,esi,outfile |
| regcall mov_param_str,,,,,esi,path |
| mov eax, [esi-1] |
| cmp al,',' |
| jne .locret |
| cmp eax, ',run' |
| jne .check_again |
| mov [_run_outfile],1 |
| jmp .locret |
| .check_again: |
| cmp eax, ',dbg' |
| jne .locret |
| mov [_run_outfile],2 |
| .locret: |
| ret |
| ;------------------------------------------------- |
| START: ; Start of execution |
| mov edi, fileinfos |
| mov ecx, (fileinfos_end-fileinfos)/4 |
| or eax, -1 |
| rep stosd |
| mcall SF_SYS_MISC,SSF_HEAP_INIT |
| |
| call parse_params |
| mcall SF_SYS_MISC,SSF_MEM_ALLOC,$1000 |
| mov [file_io_notify.flags],eax |
| |
| call LoadLibraries |
| |
| mcall SF_SET_EVENTS_MASK,EVM_MOUSE_FILTER or EVM_MOUSE or EVM_BUTTON or EVM_KEY or EVM_REDRAW;0x80000027 ; filter events: 80000000h - don`t receive mouse events if wnd nonactive , 7 - allowed events: redraw,keypresses, button presses |
| invoke init_checkbox,ch1_dbg |
| invoke OpenDialog_Init,OpenDialog_data |
| |
| call prepare_esp_and_redraw |
| still: |
| sub esp,4 |
| mcall SF_WAIT_EVENT ; Wait here for event |
| movzx ecx,al |
| jmp [event_handlers+4*ecx] |
| event_handlers dd 0,do_redraw,key,button,0,0,mouse |
| ;------------------------------------------------- |
| key: ; Key |
| mcall SF_GET_KEY ; Read it and ignore |
| invoke edit_box_key, edit1 |
| invoke edit_box_key, edit2 |
| invoke edit_box_key, edit3 |
| ret |
| ;------------------------------------------------- |
| button: ; Button in Window |
| mcall SF_GET_BUTTON |
| movzx ecx,ah |
| jmp [button_handlers+4*ecx] |
| button_handlers dd 0,btn_close,CUI_START,btn_runout,btn_rundbg,fun_opn_dlg |
| ;------------------------------------------------- |
| btn_close: |
| mcall SF_TERMINATE_PROCESS |
| ;------------------------------------------------- |
| btn_runout: |
| mov edx,outfile |
| call make_fullpaths |
| mcall SF_FILE,file_io_start |
| ret |
| ;------------------------------------------------- |
| btn_rundbg: |
| mov edx,outfile |
| call make_fullpaths |
| mcall SF_FILE,file_io_debug |
| ret |
| ;------------------------------------------------- |
| mouse: |
| invoke edit_box_mouse, edit1 |
| invoke edit_box_mouse, edit2 |
| invoke edit_box_mouse, edit3 |
| invoke check_box_mouse,ch1_dbg |
| ret |
| ;------------------------------------------------- |
| Edit_Update_Colors: |
| mov [edi+EDIT_BOX.focus_border_color], ebx |
| mov [edi+EDIT_BOX.blur_border_color], eax |
| ret |
| ;------------------------------------------------- |
| CheckBox_Update_Colors: |
| or eax, 0x10000000 |
| mov [edi+CHECK_BOX2.text_color], eax |
| mov [edi+CHECK_BOX2.border_color], ebx |
| ret |
| ;------------------------------------------------- |
| accept_systemcolors: |
| mcall SF_STYLE_SETTINGS,SSF_GET_COLORS,sc,sizeof.system_colors |
| or [sc.work], $3000000 |
| mov esi, sc |
| mov edi, sc_prev |
| mov ecx, sizeof.system_colors/4 |
| repe cmpsd |
| jne .chunk.update_colors |
| ret |
| .chunk.update_colors: |
| inc ecx ; move back |
| sub edi, 4 ; on first element |
| sub esi, 4 ; that not match |
| rep movsd ; copy only difference part |
| mov eax, [sc.work] |
| mov ebx, [sc.work_graph] |
| shr eax, 1 |
| shr ebx, 1 |
| and eax, $7F7F7F |
| and ebx, $7F7F7F |
| add eax, ebx |
| regcall Edit_Update_Colors,eax, ebx,,,,edit1 |
| regcall Edit_Update_Colors,eax, ebx,,,,edit2 |
| regcall Edit_Update_Colors,eax, ebx,,,,edit3 |
| mov eax, [sc.work_text] |
| or eax, $80000000 |
| mov ebx, [sc.work_graph] |
| regcall CheckBox_Update_Colors,eax, ebx,,,,ch1_dbg |
| ret |
| ;------------------------------------------------- |
| draw_window: |
| cmp dword[PROCESS_INFO.client_box.width],WIN_MIN_W |
| jge @f |
| mcall 67,-1,-1,WIN_MIN_W+20,-1 |
| ret |
| @@: |
| cmp dword[PROCESS_INFO.client_box.height],WIN_MIN_H |
| jge @f |
| mcall 67,-1,-1,-1,WIN_MIN_H+50 |
| ret |
| @@: |
| mpack ebx,[PROCESS_INFO.client_box.width],RIGHT_BTN_W |
| msub ebx,RIGHT_BTN_W+1,0 |
| mcall SF_DEFINE_BUTTON,ebx,<LINE_H*0+3,LINE_H-4>,ID_COMPILE_BTN,[sc.work_button] |
| mcallb SF_DEFINE_BUTTON,ebx,<LINE_H*1+3,LINE_H-4>,ID_EXECUTE_BTN |
| mcallb SF_DEFINE_BUTTON,ebx,<LINE_H*2+3,LINE_H-4>,ID_EXECDBG_BTN |
| |
| mcallb SF_DEFINE_BUTTON,<5,62>,<LINE_H*2+3,LINE_H-5>,ID_OPENDLG_BTN ;button for OpenDialog [..] |
| |
| mov ecx, [sc.work_text] |
| or ecx, $10000000 |
| mcall SF_DRAW_TEXT,<6,LINE_H*0+6>,,text+text.line_size*0,text.line_size ;InFile |
| mcallb SF_DRAW_TEXT,<6,LINE_H*1+6>,,text+text.line_size*1,esi ;OutFile |
| mov ecx, [sc.work_button_text] |
| or ecx, $10000000 |
| mcallb SF_DRAW_TEXT,<0,LINE_H*2+6>,,text+text.line_size*2,esi ;Path |
| |
| mov ebx,[PROCESS_INFO.client_box.width] |
| sub ebx,RIGHT_BTN_W-11 |
| shl ebx,16 |
| add ebx,LINE_H/2-6 |
| mov ecx, [sc.work_button_text] |
| or ecx, $10000000 |
| mcallb SF_DRAW_TEXT,ebx,ecx,s_compile,7 |
| add ebx,LINE_H |
| mcallb SF_DRAW_TEXT,ebx,ecx,s_run |
| add ebx,LINE_H |
| mcallb SF_DRAW_TEXT,ebx,ecx,s_debug |
| |
| ;MAGIC1 = 6*(text.line_size-1)+14 ;MAGIC???? MAGIC??????????? GO FYSLF. |
| ;mpack ebx,MAGIC1+6,1+ 14/2-3+ 14*0 |
| ;mov esi,[PROCESS_INFO.client_box.width] |
| ;sub esi,MAGIC1*2+6+3 |
| ;mov eax,esi |
| ;mov cl,6 |
| ;div cl |
| ;cmp al,MAX_PATH |
| ;jbe @f |
| ;mov al,MAX_PATH |
| ;@@: |
| movzx esi,al |
| |
| call draw_messages |
| |
| mov eax,dword [PROCESS_INFO.client_box.width] |
| sub eax,[edit1.left] |
| sub eax,RIGHT_BTN_W+6 |
| mov dword[edit1.width],eax |
| mov dword[edit2.width],eax |
| mov dword[edit3.width],eax |
| invoke edit_box_draw, edit1 |
| invoke edit_box_draw, edit2 |
| invoke edit_box_draw, edit3 |
| invoke check_box_draw, ch1_dbg |
| ret |
| ;------------------------------------------------- |
| prepare_esp_and_redraw: |
| mov [processing_esp],esp |
| do_redraw: |
| pusha |
| mcall SF_REDRAW,SSF_BEGIN_DRAW ; Start of draw |
| |
| call accept_systemcolors |
| mov edx,[sc.work] |
| or edx,CW_CAPTION or CW_CLIENTRECTCOORDS or CW_SKINED;0x33000000 |
| mcall SF_CREATE_WINDOW,<150,DEFAULT_WIN_W>,<150,DEFAULT_WIN_H>,edx,,title |
| mcall SF_THREAD_INFO,PROCESS_INFO,-1 |
| |
| mov eax,dword[PROCESS_INFO.wnd_state] ;status of window |
| test eax,100b |
| jnz .skip_draw_window |
| call draw_window |
| .skip_draw_window: |
| mcall SF_REDRAW,SSF_END_DRAW ; End of Draw |
| popa |
| ret |
| ;--------------------------------------------------------------------- |
| bottom_right dd ? |
| |
| align 4 |
| fun_opn_dlg: |
| pushad |
| mov edx, open_dialog_name |
| mov edi, communication_area_default_path |
| mov esi, library_path |
| call @copy_path_wo_pdname |
| mov [OpenDialog_data.type], 0 |
| |
| xor al, al |
| mov edi, dword [edit3.text] |
| mov ecx, dword [edit3.max] |
| cld |
| repne scasb |
| cmp byte[edi-2], '/' |
| jne @f |
| mov byte[edi-2], 0 ;if last symbol is slash cut it off |
| @@: |
| invoke OpenDialog_Start, OpenDialog_data |
| cmp [OpenDialog_data.status], 2 |
| je @f |
| |
| xor al, al |
| mov edi, dword [edit3.text] |
| mov ebx, edi ;copy text pointer |
| mov ecx, dword [edit3.max] |
| cld |
| repne scasb |
| cmp byte[edi-2], '/' |
| jne .no_slash |
| |
| dec edi ;if last symbol is slash cut it off |
| .no_slash: |
| mov byte[edi-1], '/' ;add slash as last symbol |
| mov byte[edi], 0 ;cut off file name |
| sub edi, ebx ;edi = strlen(edit3.text) |
| mov [edit3.size], edi |
| mov [edit3.pos], edi |
| invoke edit_box_set_text, edit1, [OpenDialog_data.filename_area] |
| invoke edit_box_set_text, edit2, [OpenDialog_data.filename_area] |
| |
| mov esi, [edit2.text] |
| xor eax, eax |
| cld |
| .cycle: |
| lodsb |
| test eax, eax |
| jnz .cycle |
| |
| sub esi, 5 |
| cmp esi, [edit2.text] |
| jle .short_fn |
| |
| mov byte[esi], 0 |
| sub dword [edit2.size], 4 |
| sub dword [edit2.pos], 4 |
| |
| .short_fn: |
| invoke edit_box_draw, edit1 |
| invoke edit_box_draw, edit2 |
| invoke edit_box_draw, edit3 |
| @@: |
| popad |
| ret |
| ;--------------------------------------------------------------------- |
| draw_messages: |
| mpack ebx, 5,[PROCESS_INFO.client_box.width] |
| sub ebx, 9 |
| mpack ecx, 0,[PROCESS_INFO.client_box.height] |
| madd ecx, LINE_H*4,-( LINE_H*4+5) |
| mov word[bottom_right+2], bx |
| mov word[bottom_right], cx |
| msub [bottom_right], 7,11 |
| add [bottom_right], 7 shl 16 + 53 |
| mcall SF_DRAW_RECT,,,0xFeFefe ; clear work area |
| |
| ; draw top shadow |
| push ecx |
| mov cx,1 |
| mov edx,0xDADEDA |
| mcall |
| |
| ; draw left shadow |
| pop ecx |
| push ebx |
| mov bx,1 |
| mcall |
| pop ebx |
| |
| _cy = 0 |
| _sy = 2 |
| _cx = 4 |
| _sx = 6 |
| push ebx ecx |
| mpack ebx, 4,5 |
| add bx, [esp+_cx] |
| mov ecx, [esp+_sy-2] |
| mov cx, [esp+_sy] |
| msub ecx, 1,1 |
| mcall SF_DRAW_LINE,,,[sc.work_graph] |
| mov si, [esp+_cy] |
| add cx, si |
| shl esi, 16 |
| add ecx, esi |
| madd ecx, 1,1 |
| mcallb SF_DRAW_LINE |
| mpack ebx, 4,4 |
| mov esi, [esp+_sy-2] |
| mov si, cx |
| mov ecx, esi |
| mcallb SF_DRAW_LINE |
| mov si,[esp+_cx] |
| add bx,si |
| shl esi,16 |
| add ebx,esi |
| madd ebx,1,1 |
| mcallb SF_DRAW_LINE |
| pop ecx ebx |
| ret |
| ;--------------------------------------------------------------------- |
| mov_param_str: |
| cld |
| @@: |
| lodsb |
| cmp al,',' |
| je @f |
| stosb |
| test al,al |
| jnz @b |
| @@: |
| xor al,al |
| stosb |
| ret |
| ;--------------------------------------------------------------------- |
| CUI_START: |
| cmp [_mode],NORMAL_MODE |
| jne @f |
| call draw_messages |
| mov [textxy],8 shl 16 + LINE_H*4+4 |
| @@: |
| mov esi,_logo |
| call display_string |
| |
| ;--------------------------------------------------------------------- |
| ; Fasm native code |
| ;--------------------------------------------------------------------- |
| mov [input_file],infile |
| mov [output_file],outfile |
| |
| call init_memory |
| |
| call make_timestamp |
| mov [start_time],eax |
| |
| call preprocessor |
| call parser |
| call assembler |
| bt dword[ch1_dbg.flags],1 ;cmp [bGenerateDebugInfo], 0 |
| jae @f ;jz @f |
| call symbol_dump |
| @@: |
| call formatter |
| |
| call display_user_messages |
| movzx eax,[current_pass] |
| inc eax |
| call display_number |
| mov esi,_passes_suffix |
| call display_string |
| call make_timestamp |
| sub eax,[start_time] |
| xor edx,edx |
| mov ebx,100 |
| div ebx |
| or eax,eax |
| jz display_bytes_count |
| xor edx,edx |
| mov ebx,10 |
| div ebx |
| push edx |
| call display_number |
| mov dl,'.' |
| call display_character |
| pop eax |
| call display_number |
| mov esi,_seconds_suffix |
| call display_string |
| display_bytes_count: |
| mov eax,[written_size] |
| call display_number |
| mov esi,_bytes_suffix |
| call display_string |
| xor al,al |
| |
| cmp [_run_outfile],0 |
| je @f |
| mov edx,outfile |
| call make_fullpaths |
| xor ecx,ecx |
| |
| cmp [_run_outfile],2 ; param is ',dbg' |
| jne run |
| mcall SF_FILE,file_io_debug |
| jmp @f |
| run: |
| mcall SF_FILE,file_io_start |
| @@: |
| jmp exit_program |
| |
| ;--------------------------------------------------------------------- |
| include 'system.inc' |
| include 'core/version.inc' |
| include 'core/errors.inc' |
| include 'core/symbdump.inc' |
| include 'core/preproce.inc' |
| include 'core/parser.inc' |
| include 'core/exprpars.inc' |
| include 'core/assemble.inc' |
| include 'core/exprcalc.inc' |
| include 'core/formats.inc' |
| include 'core/x86_64.inc' |
| include 'core/avx.inc' |
| include 'core/tables.inc' |
| include 'core/messages.inc' |
| ;--------------------------------------------------------------------- |
| ; IMPORT |
| ;--------------------------------------------------------------------- |
| library box_lib,'box_lib.obj',\ |
| proc_lib,'proc_lib.obj' |
| |
| import box_lib,edit_box_draw,'edit_box',\ |
| edit_box_key,'edit_box_key',\ |
| edit_box_mouse,'edit_box_mouse',\ |
| edit_box_set_text,'edit_box_set_text',\ |
| version_ed,'version_ed',\ |
| init_checkbox,'init_checkbox2',\ |
| check_box_draw,'check_box_draw2',\ |
| check_box_mouse,'check_box_mouse2',\ |
| version_ch,'version_ch' |
| |
| import proc_lib,OpenDialog_Init,'OpenDialog_init',\ |
| OpenDialog_Start,'OpenDialog_start' |
| ;--------------------------------------------------------------------- |
| ; INITIALIZED DATA |
| ;--------------------------------------------------------------------- |
| ;match =en,lang {include 'lang/en.inc'} |
| ;match =ru,lang {include 'lang/ru.inc'} |
| |
| include 'traslations.inc' |
| |
| edit1 EDIT_BOX 153, 72, 3, 0xffffff, 0xA4C4E4, 0x80ff, 0, 0x10000000,(outfile-infile-1), infile, mouse_dd, 0, 11,11 |
| edit2 EDIT_BOX 153, 72, LINE_H+3, 0xffffff, 0xA4C4E4, 0x80ff, 0, 0x10000000,(path-outfile-1), outfile, mouse_dd, 0, 7,7 |
| edit3 EDIT_BOX 153, 72, LINE_H*2+3, 0xffffff, 0xA4C4E4, 0x80ff, 0, 0x10000000,(path_end-path-1), path, mouse_dd, 0, 6,6 |
| editboxes_end: |
| ch1_dbg CHECK_BOX2 (5 shl 16)+15, ((LINE_H*3+3) shl 16)+15, 6, 0xffffff, 0x80ff, 0x10000000, s_dbgdescr,CB_FLAG_TOP |
| ;--------------------------------------------------------------------- |
| align 4 |
| OpenDialog_data OPEN_DLG 0,PROCESS_INFO,communication_area_name,0,path,default_dir,library_path,do_redraw,0,path,filename_area,Filter,420,10,320,10 |
| |
| default_dir db '/rd/1',0 |
| |
| communication_area_name db 'FFFFFFFF_open_dialog',0 |
| open_dialog_name db 'opendial',0 |
| communication_area_default_path db '/rd/1/File managers/',0 |
| |
| Filter: |
| dd Filter.end - Filter |
| .1: |
| db 'ASM',0 |
| .end: |
| db 0 |
| |
| |
| ;--------------------------------------------------------------------- |
| mouse_dd dd 0 ;needed for Shift in editbox |
| ;--------------------------------------------------------------------- |
| infile path 'example.asm',0 |
| outfile path 'example',0 |
| path path '/rd/1//',0 |
| path_end: |
| crlf db $D,$A,0 |
| title db appname,VERSION_STRING,0 |
| |
| _logo db 'flat assembler version ',VERSION_STRING,$D,$A,0 |
| |
| _passes_suffix db ' passes, ',0 |
| _seconds_suffix db ' seconds, ',0 |
| _bytes_suffix db ' bytes.',$D,$A,0 |
| |
| _include db 'INCLUDE',0 |
| |
| _counter db 4,'0000' |
| |
| _mode dd NORMAL_MODE |
| _run_outfile dd 0 |
| |
| dbgWord db '-d',0 |
| |
| character db ?,0 |
| |
| textxy dd 5:$A0 |
| dc db 0 |
| filesize dd 0 |
| |
| |
| error_prefix db 'error: ',0 |
| error_suffix db '.',0 |
| line_data_start db ':' |
| line_number_start db ' [',0 |
| |
| import_loader.state dd 0 |
| file_io_notify FILEIO SSF_START_APP |
| file_io_notify.path db 0 |
| file_io_notify.lppath dd notify_path |
| notify_path db '/rd/1/@notify',0 |
| |
| file_io_start FILEIO SSF_START_APP |
| file_io_start.path path |
| |
| file_io_debug FILEIO SSF_START_APP,0,file_io_start.path |
| file_io_debug.path db '/SYS/DEVELOP/MTDBG',0 |
| _ramdisk db '/rd/1/' |
| filepos dd 0 |
| |
| sub_table: |
| times $41 db $00 |
| times $1A db $20 |
| times $25 db $00 |
| times $10 db $20 |
| times $30 db $00 |
| times $10 db $50 |
| times $04 db $00,$01 |
| times $08 db $00 |
| program_end: |
| ;--------------------------------------------------------------------- |
| ; UNINITIALIZED DATA |
| ;--------------------------------------------------------------------- |
| params rb $1000 |
| cur_dir_path rb $1000 |
| library_path rb $1000 |
| filename_area rb $100 |
| |
| align 4 |
| |
| include 'core/variable.inc' |
| |
| align 4 |
| |
| program_base dd ? |
| buffer_address dd ? |
| memory_setting dd ? |
| start_time dd ? |
| memblock dd ? |
| |
| fileinfo FILEINFO |
| |
| predefinitions rb $1000 |
| |
| fullpath_open path |
| fullpath_write path |
| dbgfilename rb MAX_PATH+4 |
| |
| sc system_colors |
| sc_prev system_colors |
| max_handles = 8 |
| fileinfos rb (4+20+MAX_PATH)*max_handles |
| fileinfos_end: |
| PROCESS_INFO process_information |
| |
| bytes_count dd ? |
| displayed_count dd ? |
| last_displayed rb 2 |
| processing_esp dd ? |
| |
| align 1000h |
| ;--------------------------------------------------------------------- |
| ; STACK |
| ;--------------------------------------------------------------------- |
| rb $1000 |
| stacktop: |