Subversion Repositories Kolibri OS

; Copyright (c) 1999-2020, Tomasz Grysztar.

; All rights reserved.

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'

struc path name:?& {

        .:

	db name

	rb MAX_PATH-$+. }

;-------------------------------------------------

; CODE

;-------------------------------------------------

use32

include 'kolibri/osloader/osloader.inc'

;-------------------------------------------------

parse_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	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

	mov	edi, params

	mov	al, ' '

	repe scasb

	mov	esi, edi

	dec	esi

    @@: lodsb

	scasb

	jne	.NoOutDebugInfo

	cmp	byte[edi], 0

	jnz	@b

	jne	.NoOutDebugInfo

	mov	al,' '

	repe	scasb

	mov	esi,edi

	dec	esi

    @@: lodsb

	stosb

	test	al,al

	jnz	@b

	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

	mcall	SF_SYS_MISC,SSF_MEM_ALLOC,$1000

	mov	[file_io_notify.flags],eax

	invoke	init_checkbox,ch1_dbg

	invoke	OpenDialog_Init,OpenDialog_data

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,,ID_COMPILE_BTN,[sc.work_button]

	mcallb	SF_DEFINE_BUTTON,ebx,,ID_EXECUTE_BTN

	mcallb	SF_DEFINE_BUTTON,ebx,,ID_EXECDBG_BTN

	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

	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

	;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

	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

	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

	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 ?

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

	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

	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

.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]

	xor	eax, eax

	cld

.cycle:

	lodsb

	test	eax, eax

	jnz	.cycle

	cmp	esi, [edit2.text]

	jle	.short_fn

	sub	dword [edit2.size], 4

	sub	dword [edit2.pos], 4

	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

	push ecx

	mov cx,1

	mov edx,0xDADEDA

	mcall

	pop  ecx

	push ebx

	mov bx,1

	mcall

	pop  ebx

_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

	mov	[start_time],eax

	call	parser

	call	assembler

	bt	dword[ch1_dbg.flags],1 ;cmp [bGenerateDebugInfo], 0

	jae	@f			  ;jz @f

	call	symbol_dump

@@:

	call	formatter

	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

	je	@f

	mov	edx,outfile

	call	make_fullpaths

	xor	ecx,ecx

	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'

		 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'

		  OpenDialog_Start,'OpenDialog_start'

;---------------------------------------------------------------------

; INITIALIZED DATA

;---------------------------------------------------------------------

;match =en,lang {include 'lang/en.inc'}

;match =ru,lang {include 'lang/ru.inc'}

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

open_dialog_name	db 'opendial',0

communication_area_default_path db '/rd/1/File managers/',0

	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

_seconds_suffix db ' seconds, ',0

_bytes_suffix	db ' bytes.',$D,$A,0

_run_outfile	dd 0

dc	 db 0

filesize dd 0

error_suffix		db '.',0

line_data_start 	db ':'

line_number_start	db ' [',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.path	path

file_io_debug.path	db '/SYS/DEVELOP/MTDBG',0

_ramdisk		db '/rd/1/'

filepos 		dd 0

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

buffer_address	dd ?

memory_setting	dd ?

start_time	dd ?

memblock	dd ?

fullpath_write	path

dbgfilename	rb MAX_PATH+4

sc_prev 	system_colors

max_handles = 8

fileinfos	rb (4+20+MAX_PATH)*max_handles

fileinfos_end:

PROCESS_INFO	process_information

displayed_count dd ?

last_displayed	rb 2

processing_esp dd ?

;---------------------------------------------------------------------

; STACK

;---------------------------------------------------------------------

		rb $1000

stacktop: