WebSVN – Kolibri OS – Diff – /programs/develop/fasm/trunk/fasm.asm


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                                                 ;;
;;  flat assembler source                          ;;
;;  Copyright (c) 1999-2006, Tomasz Grysztar       ;;
;;  All rights reserved.                           ;;
;;                                                 ;;
;;  Menuet port by VT                              ;;
;;                                                 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
NORMAL_MODE    = 8
CONSOLE_MODE   = 32
 
MAGIC1         = 6*(text.line_size-1)+14
MAX_PATH       = 100
 
APP_MEMORY     = 0x00800000
 
;; Menuet header
 
appname equ "flat assembler "
 
use32
 
  org 0x0
  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,0x0  ; parameters,icon
 
include 'lang.inc'
include '..\..\..\macros.inc'
purge add,sub    ; macros.inc does incorrect substitution
include 'fasm.inc'
 
center fix true
 
START:	    ; Start of execution
        mov     edi, fileinfos
        mov     ecx, (fileinfos_end-fileinfos)/4
        or      eax, -1
        rep     stosd
        push    68
        pop     eax
        push    11
        pop     ebx
        mcall
 
   cmp    [params],0
   jz	    red
 
   mov    ecx,10
   mov    eax,'    '
   mov    edi,infile
   push   ecx
   cld
   rep    stosd
   mov    ecx,[esp]
   mov    edi,outfile
   rep    stosd
   pop    ecx
   mov    edi,path
   rep    stosd
 
   mov     esi,params
;  DEBUGF  "params: %s\n",esi
   mov     edi,infile
   call    mov_param_str
;  mov     edi,infile
;  DEBUGF  " input: %s\n",edi
   inc     esi
   mov     edi,outfile
   call    mov_param_str
;  mov     edi,outfile
;  DEBUGF  "output: %s\n",edi
   inc     esi
   mov     edi,path
   call    mov_param_str
;  mov     edi,path
;  DEBUGF  "  path: %s\n",edi
 
   cmp     [esi], dword ',run'
   jne     @f
   mov     [_run_outfile],1
  @@:
 
   mov     [_mode],CONSOLE_MODE
   jmp     start
 
 
red:	; Redraw
    call draw_window
 
still:  
    push 10          ; Wait here for event
    pop eax 
    mcall 
    dec eax 
    je  red          ; Redraw request
    dec eax 
    jne button       ; Button in buffer
 
key:                 ; Key
    mov  al,2        ; Read it and ignore
    mcall
    jmp  still
 
button:    ; Button in Window
 
    mov  al,17
    mcall
 
    cmp     ah,1
    jne     noclose
    or      eax,-1
    mcall
 
noclose:    
    cmp  ah,2         ; Start compiling
    je   start
    cmp  ah,3         ; Start compiled file
    jnz  norunout
 
    mov  edx,outfile
    call make_fullpaths
    mcall  70,file_info_start
;   xor   ecx,ecx
    jmp  still
   norunout:
    cmp  ah,4
    jnz  norundebug
 
    mov  edx,outfile
    call make_fullpaths
    mcall 70,file_info_debug
    jmp  still
 
   norundebug:
    mov  ecx,5
    mov  [ya],ecx
 
    cmp  ah,11	   ; Infile
    je   f1
    cmp  ah,12	   ; Outfile
    je   f2
    cmp  ah,13	   ; Path
    je   f3
    cmp  ah,14
    je   f4
 
    jmp  still
 
f4:
        xor     [bGenerateDebugInfo], 1
        mcall   8,,,0x8000000E
        call    draw_checkbox
        jmp     still
 
draw_window:
 
    pusha
 
    mcall  12,1 ; Start of draw
 
    get_sys_colors 1,0
 
    xor  eax,eax                     
    mov  ebx,50*65536+280
    mov  ecx,50*65536+260
    mov  edx,[sc.work]
    or   edx,0x33000000
    mov  edi,title             ; Draw Window Label Text
    mcall
 
    mcall 9,PROCESSINFO,-1	    
 
    mpack ecx,1,1
    mov   ebx,[pinfo.box.width]
    sub   ebx,10
 
    push  ecx
    madd  ecx, 14*3+16+2, 14*3+16+2
    mcall 38,,,[sc.work_graph]
    pop   ecx
 
    sub   ebx,MAGIC1+3
    mcall
    madd  ecx, 14, 14
    mcall
    madd  ecx, 14, 14
    mcall
    madd  ecx, 14, 14
    mcall
    push  ebx
    mpack ebx,MAGIC1,MAGIC1
    sub   ecx, 14*3
    mcall
    mov   ebx,[esp-2]
    pop   bx
    mcall
    add   esp,2
 
    mpack ebx,0,MAGIC1-1
    mpack ecx,1+1, 14-2
    mcall 8,,,0x4000000B       ; Button: Enter Infile
    madd  ecx, 14,0
    mcall  ,,,0x4000000C       ; Button: Enter Outfile
    madd  ecx, 14,0
    mcall  ,,,0x4000000D       ; Button: Enter Path
 
    mpack ebx,[pinfo.box.width],MAGIC1
    msub  ebx,MAGIC1+10+1,0
    mpack ecx,0, (14*3+16)/3-1
    madd  ecx,1,0
    mcall  ,,,0x00000002,[sc.work_button]
    madd  ecx, (14*3+16)/3+1,0
    mcall  ,,,0x00000003
    madd  ecx, (14*3+16)/3+1,0
    mcall ,,,4
 
    mpack ebx,6,0    ; Draw Window Text
    add  ebx,1+ 14/2-3
    mov  ecx,[sc.work_text]
    mov  edx,text
    mov  esi,text.line_size
    mov  eax,4
   newline:
    mcall
    add  ebx, 14
    add  edx,text.line_size
    cmp  byte[edx],'x'
    jne  newline
 
    mov   ebx,[pinfo.box.width]
    sub   ebx,MAGIC1+10+1-9
    shl   ebx,16
    add   ebx,1+( (14*3+16)/3-1)/2-3
    mcall  ,,[sc.work_button_text],s_compile,7
    add   ebx,(14*3+16)/3+1
    mcall ,,,s_run
    add   ebx,(14*3+16)/3+1
    mcall ,,,s_debug
 
    mpack ebx,MAGIC1+6,0
    add   ebx,1+ 14/2-3+ 14*0
    mov   esi,[pinfo.box.width]
    sub   esi,MAGIC1*2+5*2+6+3
    mov   eax,esi
    mov   cl,6
    div   cl
    cmp   al,MAX_PATH
    jbe   @f
    mov   al,MAX_PATH
@@: movzx esi,al
    mcall 4,,[sc.work_text],infile
    add   ebx,14
    mcall ,,,outfile
    add   ebx,14
    mcall ,,,path
 
        call    draw_checkbox
 
    call  draw_messages
 
    mcall  12,2 ; End of Draw
 
    popa
    ret
 
bottom_right dd ?
 
draw_checkbox:
        mcall   8,<5,10>,<14*3+5,10>,14,[sc.work_button]
        cmp     [bGenerateDebugInfo], 0
        jz      @f
        mov     edx, [sc.work_button_text]
        mcall   38,<7,13>,<14*3+7,14*3+13>
        mcall   38,,<14*3+13,14*3+7>
@@:
        mov     ecx, [sc.work_text]
        or      ecx, 0x80000000
        mcall   4,<20,14*3+7>,,s_dbgdescr
        ret
 
draw_messages:
    mov    eax,13      ; clear work area
    mpack  ebx,7-2,[pinfo.box.width]
    sub    ebx,5*2+7*2-1-2*2
    mpack  ecx,0,[pinfo.box.height]
    madd   ecx, 14*3+16+1+7+1,-( 14*3+16+1+7*2+25)
    mov    word[bottom_right+2],bx
    mov    word[bottom_right],cx
    msub   [bottom_right],7,11
    add    [bottom_right],7 shl 16 + 53
    mov    edx,[sc.work]
    mcall
_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  38,,,[sc.work_graph]
    mov    si,[esp+_cy]
    add    cx,si
    shl    esi,16
    add    ecx,esi
    madd   ecx,1,1
    mcall
    mpack  ebx,4,4
    mov    esi,[esp+_sy-2]
    mov    si,cx
    mov    ecx,esi
    mcall
    mov    si,[esp+_cx]
    add    bx,si
    shl    esi,16
    add    ebx,esi
    madd   ebx,1,1
    mcall
    pop    ecx ebx
    ret
 
; read string
 
f1: mov  [addr],infile
    add  [ya], 14*0
    jmp  rk
f2: mov  [addr],outfile
    add  [ya], 14*1
    jmp  rk
f3: mov  [addr],path
    add  [ya], 14*2
rk:
 
    mov  edi,[addr]
    mov  al,0
    mov  ecx,MAX_PATH
    add  edi,ecx
    dec  edi
    std
    repe scasb
    sub  ecx,MAX_PATH
    neg  ecx
    mov  al,$1C ; ''
    add  edi,2
    push  edi
    cld
    rep  stosb
    call print_text
    pop edi
f11:mcall  10
    cmp    eax,2
    jne read_done
    mcall; 2
    shr    eax,8
    cmp    al,13
    je	  read_done
    cmp    al,8
    jne nobs
    cmp    edi,[addr]
    je	  f11
    sub    edi,1
    mov    byte[edi],$1C ; '_'
    call   print_text
    jmp    f11
   nobs:
    movzx  ebx,al
    sub    ebx,$20
    jle    f11
    sub    al,[sub_table+ebx]
   keyok:
    mov    ecx,[addr]
    add    ecx,MAX_PATH
    cmp    edi,ecx
    jae    f11
    mov    [edi],al
 
    call   print_text
    inc    edi
    jmp f11
 
  read_done:
 
    mov    ecx,[addr]
    add    ecx,MAX_PATH
    sub    ecx,edi
    mov    al,0;' '
    cld
    rep    stosb
    call   print_text
 
    jmp    still
 
print_text:
 
    mpack ebx,MAGIC1+6,[pinfo.box.width]
    sub   ebx,MAGIC1*2+19
    movzx esi,bx
    mov   ecx,[ya-2]
    mov   cx,8
    mcall 13,,,[sc.work]
 
    mpack ebx,MAGIC1+6,[ya]
    mov   eax,esi
    mov   cl,6
    div   cl
    cmp   al,MAX_PATH
    jbe   @f
    mov   al,MAX_PATH
@@: movzx esi,al
    mcall 4,,[sc.work_text],[addr]
 
    ret
 
 
; DATA
 
text:
  db ' INFILE:'
.line_size = $-text
  db 'OUTFILE:'
  db '   PATH:'
  db 'x'
 
s_compile db 'COMPILE'
s_run     db '  RUN  '
s_debug   db ' DEBUG '
 
s_dbgdescr      db      'Generate debug information',0
 
infile	  db 'example.asm'
  times MAX_PATH+$-infile  db 0
outfile db 'example'
  times MAX_PATH+$-outfile db 0
path	db '/rd/1/'
  times MAX_PATH+$-path    db 0
 
lf db 13,10,0
 
addr dd 0x0
ya   dd 0x0
zero db 0x0
 
mov_param_str:
  @@:
    mov    al,[esi]
    cmp    al,','
    je	     @f
    cmp    al,0
    je	     @f
    mov    [edi],al
    inc    esi
    inc    edi
    jmp    @b
  @@:
    mov    al,0
    stosb
ret
 
start:
    cmp    [_mode],NORMAL_MODE
    jne    @f
    call   draw_messages
    mov    [textxy],7 shl 16 + 70
@@:
    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
    cmp    [bGenerateDebugInfo], 0
    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
    mov    eax,70
    mov    ebx,file_info_start
    xor    ecx,ecx
    mcall
@@:
    jmp    exit_program
 
 
include 'system.inc'
include 'version.inc'
include 'errors.inc'
include 'expressi.inc'
include 'preproce.inc'
include 'parser.inc'
include 'assemble.inc'
include 'formats.inc'
include 'x86_64.inc'
include 'tables.inc'
include 'symbdump.inc'
include 'messages.inc'
 
title db appname,VERSION_STRING,0
 
_logo db 'flat assembler  version ',VERSION_STRING,13,10,0
 
_passes_suffix db ' passes, ',0
_seconds_suffix db ' seconds, ',0
_bytes_suffix db ' bytes.',13,10,0
 
_include db 'INCLUDE',0
 
_counter db 4,'0000'
 
_mode	       dd NORMAL_MODE
_run_outfile  dd 0
bGenerateDebugInfo db 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
 
;include_debug_strings
 
params db 0 ; 'TINYPAD.ASM,TINYPAD,/HD/1/TPAD4/',
program_end:
rb 1000h
 
align 4
 
include 'variable.inc'
 
program_base dd ?
buffer_address dd ?
memory_setting dd ?
start_time dd ?
memblock	dd	?
 
predefinitions rb 1000h
 
dbgfilename     rb      MAX_PATH+4
 
sc    system_colors
max_handles = 8
fileinfos rb (4+20+MAX_PATH)*max_handles
fileinfos_end:
pinfo process_information
 
align 1000h
rb 1000h
stacktop:

Rev 692	Rev 755
1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2	;; ;;	2	;; ;;
3	;; flat assembler source ;;	3	;; flat assembler source ;;
4	;; Copyright (c) 1999-2006, Tomasz Grysztar ;;	4	;; Copyright (c) 1999-2006, Tomasz Grysztar ;;
5	;; All rights reserved. ;;	5	;; All rights reserved. ;;
6	;; ;;	6	;; ;;
7	;; Menuet port by VT ;;	7	;; Menuet port by VT ;;
8	;; ;;	8	;; ;;
9	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	9	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
10		10
11	NORMAL_MODE = 8	11	NORMAL_MODE = 8
12	CONSOLE_MODE = 32	12	CONSOLE_MODE = 32
13		13
14	MAGIC1 = 6*(text.line_size-1)+14	14	MAGIC1 = 6*(text.line_size-1)+14
15	MAX_PATH = 100	15	MAX_PATH = 100
16		16
17	APP_MEMORY = 0x00800000	17	APP_MEMORY = 0x00800000
18		18
19	;; Menuet header	19	;; Menuet header
20		20
21	appname equ "flat assembler "	21	appname equ "flat assembler "
22		22
23	use32	23	use32
24		24
25	org 0x0	25	org 0x0
26	db 'MENUET01' ; 8 byte id	26	db 'MENUET01' ; 8 byte id
27	dd 0x01 ; header version	27	dd 0x01 ; header version
28	dd START ; program start	28	dd START ; program start
29	dd program_end ; program image size	29	dd program_end ; program image size
30	dd stacktop ; required amount of memory	30	dd stacktop ; required amount of memory
31	dd stacktop ; stack	31	dd stacktop ; stack
32	dd params,0x0 ; parameters,icon	32	dd params,0x0 ; parameters,icon
33		33
34	include 'lang.inc'	34	include 'lang.inc'
35	include '..\..\..\macros.inc'	35	include '..\..\..\macros.inc'
36	purge add,sub ; macros.inc does incorrect substitution	36	purge add,sub ; macros.inc does incorrect substitution
37	include 'fasm.inc'	37	include 'fasm.inc'
38		38
39	center fix true	39	center fix true
40		40
41	START: ; Start of execution	41	START: ; Start of execution
42	mov edi, fileinfos	42	mov edi, fileinfos
43	mov ecx, (fileinfos_end-fileinfos)/4	43	mov ecx, (fileinfos_end-fileinfos)/4
44	or eax, -1	44	or eax, -1
45	rep stosd	45	rep stosd
-		46	push 68
-		47	pop eax
-		48	push 11
-		49	pop ebx
-		50	mcall
46		51
47	cmp [params],0	52	cmp [params],0
48	jz red	53	jz red
49		54
50	mov ecx,10	55	mov ecx,10
51	mov eax,' '	56	mov eax,' '
52	mov edi,infile	57	mov edi,infile
53	push ecx	58	push ecx
54	cld	59	cld
55	rep stosd	60	rep stosd
56	mov ecx,[esp]	61	mov ecx,[esp]
57	mov edi,outfile	62	mov edi,outfile
58	rep stosd	63	rep stosd
59	pop ecx	64	pop ecx
60	mov edi,path	65	mov edi,path
61	rep stosd	66	rep stosd
62		67
63	mov esi,params	68	mov esi,params
64	; DEBUGF "params: %s\n",esi	69	; DEBUGF "params: %s\n",esi
65	mov edi,infile	70	mov edi,infile
66	call mov_param_str	71	call mov_param_str
67	; mov edi,infile	72	; mov edi,infile
68	; DEBUGF " input: %s\n",edi	73	; DEBUGF " input: %s\n",edi
69	inc esi	74	inc esi
70	mov edi,outfile	75	mov edi,outfile
71	call mov_param_str	76	call mov_param_str
72	; mov edi,outfile	77	; mov edi,outfile
73	; DEBUGF "output: %s\n",edi	78	; DEBUGF "output: %s\n",edi
74	inc esi	79	inc esi
75	mov edi,path	80	mov edi,path
76	call mov_param_str	81	call mov_param_str
77	; mov edi,path	82	; mov edi,path
78	; DEBUGF " path: %s\n",edi	83	; DEBUGF " path: %s\n",edi
79		84
80	cmp [esi], dword ',run'	85	cmp [esi], dword ',run'
81	jne @f	86	jne @f
82	mov [_run_outfile],1	87	mov [_run_outfile],1
83	@@:	88	@@:
84		89
85	mov [_mode],CONSOLE_MODE	90	mov [_mode],CONSOLE_MODE
86	jmp start	91	jmp start
87		92
88		93
89	red: ; Redraw	94	red: ; Redraw
90	call draw_window	95	call draw_window
91		96
92	still:	97	still:
93	push 10 ; Wait here for event	98	push 10 ; Wait here for event
94	pop eax	99	pop eax
95	mcall	100	mcall
96	dec eax	101	dec eax
97	je red ; Redraw request	102	je red ; Redraw request
98	dec eax	103	dec eax
99	jne button ; Button in buffer	104	jne button ; Button in buffer
100		105
101	key: ; Key	106	key: ; Key
102	mov al,2 ; Read it and ignore	107	mov al,2 ; Read it and ignore
103	mcall	108	mcall
104	jmp still	109	jmp still
105		110
106	button: ; Button in Window	111	button: ; Button in Window
107		112
108	mov al,17	113	mov al,17
109	mcall	114	mcall
110		115
111	cmp ah,1	116	cmp ah,1
112	jne noclose	117	jne noclose
113	or eax,-1	118	or eax,-1
114	mcall	119	mcall
115		120
116	noclose:	121	noclose:
117	cmp ah,2 ; Start compiling	122	cmp ah,2 ; Start compiling
118	je start	123	je start
119	cmp ah,3 ; Start compiled file	124	cmp ah,3 ; Start compiled file
120	jnz norunout	125	jnz norunout
121		126
122	mov edx,outfile	127	mov edx,outfile
123	call make_fullpaths	128	call make_fullpaths
124	mcall 70,file_info_start	129	mcall 70,file_info_start
125	; xor ecx,ecx	130	; xor ecx,ecx
126	jmp still	131	jmp still
127	norunout:	132	norunout:
128	cmp ah,4	133	cmp ah,4
129	jnz norundebug	134	jnz norundebug
130		135
131	mov edx,outfile	136	mov edx,outfile
132	call make_fullpaths	137	call make_fullpaths
133	mcall 70,file_info_debug	138	mcall 70,file_info_debug
134	jmp still	139	jmp still
135		140
136	norundebug:	141	norundebug:
137	mov ecx,5	142	mov ecx,5
138	mov [ya],ecx	143	mov [ya],ecx
139		144
140	cmp ah,11 ; Infile	145	cmp ah,11 ; Infile
141	je f1	146	je f1
142	cmp ah,12 ; Outfile	147	cmp ah,12 ; Outfile
143	je f2	148	je f2
144	cmp ah,13 ; Path	149	cmp ah,13 ; Path
145	je f3	150	je f3
146	cmp ah,14	151	cmp ah,14
147	je f4	152	je f4
148		153
149	jmp still	154	jmp still
150		155
151	f4:	156	f4:
152	xor [bGenerateDebugInfo], 1	157	xor [bGenerateDebugInfo], 1
153	mcall 8,,,0x8000000E	158	mcall 8,,,0x8000000E
154	call draw_checkbox	159	call draw_checkbox
155	jmp still	160	jmp still
156		161
157	draw_window:	162	draw_window:
158		163
159	pusha	164	pusha
160		165
161	mcall 12,1 ; Start of draw	166	mcall 12,1 ; Start of draw
162		167
163	get_sys_colors 1,0	168	get_sys_colors 1,0
164		169
165	xor eax,eax	170	xor eax,eax
166	mov ebx,50*65536+280	171	mov ebx,50*65536+280
167	mov ecx,50*65536+260	172	mov ecx,50*65536+260
168	mov edx,[sc.work]	173	mov edx,[sc.work]
169	or edx,0x33000000	174	or edx,0x33000000
170	mov edi,title ; Draw Window Label Text	175	mov edi,title ; Draw Window Label Text
171	mcall	176	mcall
172		177
173	mcall 9,PROCESSINFO,-1	178	mcall 9,PROCESSINFO,-1
174		179
175	mpack ecx,1,1	180	mpack ecx,1,1
176	mov ebx,[pinfo.box.width]	181	mov ebx,[pinfo.box.width]
177	sub ebx,10	182	sub ebx,10
178		183
179	push ecx	184	push ecx
180	madd ecx, 143+16+2, 143+16+2	185	madd ecx, 143+16+2, 143+16+2
181	mcall 38,,,[sc.work_graph]	186	mcall 38,,,[sc.work_graph]
182	pop ecx	187	pop ecx
183		188
184	sub ebx,MAGIC1+3	189	sub ebx,MAGIC1+3
185	mcall	190	mcall
186	madd ecx, 14, 14	191	madd ecx, 14, 14
187	mcall	192	mcall
188	madd ecx, 14, 14	193	madd ecx, 14, 14
189	mcall	194	mcall
190	madd ecx, 14, 14	195	madd ecx, 14, 14
191	mcall	196	mcall
192	push ebx	197	push ebx
193	mpack ebx,MAGIC1,MAGIC1	198	mpack ebx,MAGIC1,MAGIC1
194	sub ecx, 14*3	199	sub ecx, 14*3
195	mcall	200	mcall
196	mov ebx,[esp-2]	201	mov ebx,[esp-2]
197	pop bx	202	pop bx
198	mcall	203	mcall
199	add esp,2	204	add esp,2
200		205
201	mpack ebx,0,MAGIC1-1	206	mpack ebx,0,MAGIC1-1
202	mpack ecx,1+1, 14-2	207	mpack ecx,1+1, 14-2
203	mcall 8,,,0x4000000B ; Button: Enter Infile	208	mcall 8,,,0x4000000B ; Button: Enter Infile
204	madd ecx, 14,0	209	madd ecx, 14,0
205	mcall ,,,0x4000000C ; Button: Enter Outfile	210	mcall ,,,0x4000000C ; Button: Enter Outfile
206	madd ecx, 14,0	211	madd ecx, 14,0
207	mcall ,,,0x4000000D ; Button: Enter Path	212	mcall ,,,0x4000000D ; Button: Enter Path
208		213
209	mpack ebx,[pinfo.box.width],MAGIC1	214	mpack ebx,[pinfo.box.width],MAGIC1
210	msub ebx,MAGIC1+10+1,0	215	msub ebx,MAGIC1+10+1,0
211	mpack ecx,0, (14*3+16)/3-1	216	mpack ecx,0, (14*3+16)/3-1
212	madd ecx,1,0	217	madd ecx,1,0
213	mcall ,,,0x00000002,[sc.work_button]	218	mcall ,,,0x00000002,[sc.work_button]
214	madd ecx, (14*3+16)/3+1,0	219	madd ecx, (14*3+16)/3+1,0
215	mcall ,,,0x00000003	220	mcall ,,,0x00000003
216	madd ecx, (14*3+16)/3+1,0	221	madd ecx, (14*3+16)/3+1,0
217	mcall ,,,4	222	mcall ,,,4
218		223
219	mpack ebx,6,0 ; Draw Window Text	224	mpack ebx,6,0 ; Draw Window Text
220	add ebx,1+ 14/2-3	225	add ebx,1+ 14/2-3
221	mov ecx,[sc.work_text]	226	mov ecx,[sc.work_text]
222	mov edx,text	227	mov edx,text
223	mov esi,text.line_size	228	mov esi,text.line_size
224	mov eax,4	229	mov eax,4
225	newline:	230	newline:
226	mcall	231	mcall
227	add ebx, 14	232	add ebx, 14
228	add edx,text.line_size	233	add edx,text.line_size
229	cmp byte[edx],'x'	234	cmp byte[edx],'x'
230	jne newline	235	jne newline
231		236
232	mov ebx,[pinfo.box.width]	237	mov ebx,[pinfo.box.width]
233	sub ebx,MAGIC1+10+1-9	238	sub ebx,MAGIC1+10+1-9
234	shl ebx,16	239	shl ebx,16
235	add ebx,1+( (14*3+16)/3-1)/2-3	240	add ebx,1+( (14*3+16)/3-1)/2-3
236	mcall ,,[sc.work_button_text],s_compile,7	241	mcall ,,[sc.work_button_text],s_compile,7
237	add ebx,(14*3+16)/3+1	242	add ebx,(14*3+16)/3+1
238	mcall ,,,s_run	243	mcall ,,,s_run
239	add ebx,(14*3+16)/3+1	244	add ebx,(14*3+16)/3+1
240	mcall ,,,s_debug	245	mcall ,,,s_debug
241		246
242	mpack ebx,MAGIC1+6,0	247	mpack ebx,MAGIC1+6,0
243	add ebx,1+ 14/2-3+ 14*0	248	add ebx,1+ 14/2-3+ 14*0
244	mov esi,[pinfo.box.width]	249	mov esi,[pinfo.box.width]
245	sub esi,MAGIC12+52+6+3	250	sub esi,MAGIC12+52+6+3
246	mov eax,esi	251	mov eax,esi
247	mov cl,6	252	mov cl,6
248	div cl	253	div cl
249	cmp al,MAX_PATH	254	cmp al,MAX_PATH
250	jbe @f	255	jbe @f
251	mov al,MAX_PATH	256	mov al,MAX_PATH
252	@@: movzx esi,al	257	@@: movzx esi,al
253	mcall 4,,[sc.work_text],infile	258	mcall 4,,[sc.work_text],infile
254	add ebx,14	259	add ebx,14
255	mcall ,,,outfile	260	mcall ,,,outfile
256	add ebx,14	261	add ebx,14
257	mcall ,,,path	262	mcall ,,,path
258		263
259	call draw_checkbox	264	call draw_checkbox
260		265
261	call draw_messages	266	call draw_messages
262		267
263	mcall 12,2 ; End of Draw	268	mcall 12,2 ; End of Draw
264		269
265	popa	270	popa
266	ret	271	ret
267		272
268	bottom_right dd ?	273	bottom_right dd ?
269		274
270	draw_checkbox:	275	draw_checkbox:
271	mcall 8,<5,10>,<14*3+5,10>,14,[sc.work_button]	276	mcall 8,<5,10>,<14*3+5,10>,14,[sc.work_button]
272	cmp [bGenerateDebugInfo], 0	277	cmp [bGenerateDebugInfo], 0
273	jz @f	278	jz @f
274	mov edx, [sc.work_button_text]	279	mov edx, [sc.work_button_text]
275	mcall 38,<7,13>,<143+7,143+13>	280	mcall 38,<7,13>,<143+7,143+13>
276	mcall 38,,<143+13,143+7>	281	mcall 38,,<143+13,143+7>
277	@@:	282	@@:
278	mov ecx, [sc.work_text]	283	mov ecx, [sc.work_text]
279	or ecx, 0x80000000	284	or ecx, 0x80000000
280	mcall 4,<20,14*3+7>,,s_dbgdescr	285	mcall 4,<20,14*3+7>,,s_dbgdescr
281	ret	286	ret
282		287
283	draw_messages:	288	draw_messages:
284	mov eax,13 ; clear work area	289	mov eax,13 ; clear work area
285	mpack ebx,7-2,[pinfo.box.width]	290	mpack ebx,7-2,[pinfo.box.width]
286	sub ebx,52+72-1-2*2	291	sub ebx,52+72-1-2*2
287	mpack ecx,0,[pinfo.box.height]	292	mpack ecx,0,[pinfo.box.height]
288	madd ecx, 143+16+1+7+1,-( 143+16+1+7*2+25)	293	madd ecx, 143+16+1+7+1,-( 143+16+1+7*2+25)
289	mov word[bottom_right+2],bx	294	mov word[bottom_right+2],bx
290	mov word[bottom_right],cx	295	mov word[bottom_right],cx
291	msub [bottom_right],7,11	296	msub [bottom_right],7,11
292	add [bottom_right],7 shl 16 + 53	297	add [bottom_right],7 shl 16 + 53
293	mov edx,[sc.work]	298	mov edx,[sc.work]
294	mcall	299	mcall
295	_cy = 0	300	_cy = 0
296	_sy = 2	301	_sy = 2
297	_cx = 4	302	_cx = 4
298	_sx = 6	303	_sx = 6
299	push ebx ecx	304	push ebx ecx
300	mpack ebx,4,5	305	mpack ebx,4,5
301	add bx,[esp+_cx]	306	add bx,[esp+_cx]
302	mov ecx,[esp+_sy-2]	307	mov ecx,[esp+_sy-2]
303	mov cx,[esp+_sy]	308	mov cx,[esp+_sy]
304	msub ecx,1,1	309	msub ecx,1,1
305	mcall 38,,,[sc.work_graph]	310	mcall 38,,,[sc.work_graph]
306	mov si,[esp+_cy]	311	mov si,[esp+_cy]
307	add cx,si	312	add cx,si
308	shl esi,16	313	shl esi,16
309	add ecx,esi	314	add ecx,esi
310	madd ecx,1,1	315	madd ecx,1,1
311	mcall	316	mcall
312	mpack ebx,4,4	317	mpack ebx,4,4
313	mov esi,[esp+_sy-2]	318	mov esi,[esp+_sy-2]
314	mov si,cx	319	mov si,cx
315	mov ecx,esi	320	mov ecx,esi
316	mcall	321	mcall
317	mov si,[esp+_cx]	322	mov si,[esp+_cx]
318	add bx,si	323	add bx,si
319	shl esi,16	324	shl esi,16
320	add ebx,esi	325	add ebx,esi
321	madd ebx,1,1	326	madd ebx,1,1
322	mcall	327	mcall
323	pop ecx ebx	328	pop ecx ebx
324	ret	329	ret
325		330
326	; read string	331	; read string
327		332
328	f1: mov [addr],infile	333	f1: mov [addr],infile
329	add [ya], 14*0	334	add [ya], 14*0
330	jmp rk	335	jmp rk
331	f2: mov [addr],outfile	336	f2: mov [addr],outfile
332	add [ya], 14*1	337	add [ya], 14*1
333	jmp rk	338	jmp rk
334	f3: mov [addr],path	339	f3: mov [addr],path
335	add [ya], 14*2	340	add [ya], 14*2
336	rk:	341	rk:
337		342
338	mov edi,[addr]	343	mov edi,[addr]
339	mov al,0	344	mov al,0
340	mov ecx,MAX_PATH	345	mov ecx,MAX_PATH
341	add edi,ecx	346	add edi,ecx
342	dec edi	347	dec edi
343	std	348	std
344	repe scasb	349	repe scasb
345	sub ecx,MAX_PATH	350	sub ecx,MAX_PATH
346	neg ecx	351	neg ecx
347	mov al,$1C ; ''	352	mov al,$1C ; ''
348	add edi,2	353	add edi,2
349	push edi	354	push edi
350	cld	355	cld
351	rep stosb	356	rep stosb
352	call print_text	357	call print_text
353	pop edi	358	pop edi
354	f11:mcall 10	359	f11:mcall 10
355	cmp eax,2	360	cmp eax,2
356	jne read_done	361	jne read_done
357	mcall; 2	362	mcall; 2
358	shr eax,8	363	shr eax,8
359	cmp al,13	364	cmp al,13
360	je read_done	365	je read_done
361	cmp al,8	366	cmp al,8
362	jne nobs	367	jne nobs
363	cmp edi,[addr]	368	cmp edi,[addr]
364	je f11	369	je f11
365	sub edi,1	370	sub edi,1
366	mov byte[edi],$1C ; '_'	371	mov byte[edi],$1C ; '_'
367	call print_text	372	call print_text
368	jmp f11	373	jmp f11
369	nobs:	374	nobs:
370	movzx ebx,al	375	movzx ebx,al
371	sub ebx,$20	376	sub ebx,$20
372	jle f11	377	jle f11
373	sub al,[sub_table+ebx]	378	sub al,[sub_table+ebx]
374	keyok:	379	keyok:
375	mov ecx,[addr]	380	mov ecx,[addr]
376	add ecx,MAX_PATH	381	add ecx,MAX_PATH
377	cmp edi,ecx	382	cmp edi,ecx
378	jae f11	383	jae f11
379	mov [edi],al	384	mov [edi],al
380		385
381	call print_text	386	call print_text
382	inc edi	387	inc edi
383	jmp f11	388	jmp f11
384		389
385	read_done:	390	read_done:
386		391
387	mov ecx,[addr]	392	mov ecx,[addr]
388	add ecx,MAX_PATH	393	add ecx,MAX_PATH
389	sub ecx,edi	394	sub ecx,edi
390	mov al,0;' '	395	mov al,0;' '
391	cld	396	cld
392	rep stosb	397	rep stosb
393	call print_text	398	call print_text
394		399
395	jmp still	400	jmp still
396		401
397	print_text:	402	print_text:
398		403
399	mpack ebx,MAGIC1+6,[pinfo.box.width]	404	mpack ebx,MAGIC1+6,[pinfo.box.width]
400	sub ebx,MAGIC1*2+19	405	sub ebx,MAGIC1*2+19
401	movzx esi,bx	406	movzx esi,bx
402	mov ecx,[ya-2]	407	mov ecx,[ya-2]
403	mov cx,8	408	mov cx,8
404	mcall 13,,,[sc.work]	409	mcall 13,,,[sc.work]
405		410
406	mpack ebx,MAGIC1+6,[ya]	411	mpack ebx,MAGIC1+6,[ya]
407	mov eax,esi	412	mov eax,esi
408	mov cl,6	413	mov cl,6
409	div cl	414	div cl
410	cmp al,MAX_PATH	415	cmp al,MAX_PATH
411	jbe @f	416	jbe @f
412	mov al,MAX_PATH	417	mov al,MAX_PATH
413	@@: movzx esi,al	418	@@: movzx esi,al
414	mcall 4,,[sc.work_text],[addr]	419	mcall 4,,[sc.work_text],[addr]
415		420
416	ret	421	ret
417		422
418		423
419	; DATA	424	; DATA
420		425
421	text:	426	text:
422	db ' INFILE:'	427	db ' INFILE:'
423	.line_size = $-text	428	.line_size = $-text
424	db 'OUTFILE:'	429	db 'OUTFILE:'
425	db ' PATH:'	430	db ' PATH:'
426	db 'x'	431	db 'x'
427		432
428	s_compile db 'COMPILE'	433	s_compile db 'COMPILE'
429	s_run db ' RUN '	434	s_run db ' RUN '
430	s_debug db ' DEBUG '	435	s_debug db ' DEBUG '
431		436
432	s_dbgdescr db 'Generate debug information',0	437	s_dbgdescr db 'Generate debug information',0
433		438
434	infile db 'example.asm'	439	infile db 'example.asm'
435	times MAX_PATH+$-infile db 0	440	times MAX_PATH+$-infile db 0
436	outfile db 'example'	441	outfile db 'example'
437	times MAX_PATH+$-outfile db 0	442	times MAX_PATH+$-outfile db 0
438	path db '/rd/1/'	443	path db '/rd/1/'
439	times MAX_PATH+$-path db 0	444	times MAX_PATH+$-path db 0
440		445
441	lf db 13,10,0	446	lf db 13,10,0
442		447
443	addr dd 0x0	448	addr dd 0x0
444	ya dd 0x0	449	ya dd 0x0
445	zero db 0x0	450	zero db 0x0
446		451
447	mov_param_str:	452	mov_param_str:
448	@@:	453	@@:
449	mov al,[esi]	454	mov al,[esi]
450	cmp al,','	455	cmp al,','
451	je @f	456	je @f
452	cmp al,0	457	cmp al,0
453	je @f	458	je @f
454	mov [edi],al	459	mov [edi],al
455	inc esi	460	inc esi
456	inc edi	461	inc edi
457	jmp @b	462	jmp @b
458	@@:	463	@@:
459	mov al,0	464	mov al,0
460	stosb	465	stosb
461	ret	466	ret
462		467
463	start:	468	start:
464	cmp [_mode],NORMAL_MODE	469	cmp [_mode],NORMAL_MODE
465	jne @f	470	jne @f
466	call draw_messages	471	call draw_messages
467	mov [textxy],7 shl 16 + 70	472	mov [textxy],7 shl 16 + 70
468	@@:	473	@@:
469	mov esi,_logo	474	mov esi,_logo
470	call display_string	475	call display_string
471		476
472	;	477	;
473	; Fasm native code	478	; Fasm native code
474	;	479	;
475		480
476	mov [input_file],infile	481	mov [input_file],infile
477	mov [output_file],outfile	482	mov [output_file],outfile
478		483
479	call init_memory	484	call init_memory
480		485
481	call make_timestamp	486	call make_timestamp
482	mov [start_time],eax	487	mov [start_time],eax
483		488
484	call preprocessor	489	call preprocessor
485	call parser	490	call parser
486	call assembler	491	call assembler
487	cmp [bGenerateDebugInfo], 0	492	cmp [bGenerateDebugInfo], 0
488	jz @f	493	jz @f
489	call symbol_dump	494	call symbol_dump
490	@@:	495	@@:
491	call formatter	496	call formatter
492		497
493	call display_user_messages	498	call display_user_messages
494	movzx eax,[current_pass]	499	movzx eax,[current_pass]
495	inc eax	500	inc eax

Subversion Repositories Kolibri OS

(root)/programs/develop/fasm/trunk/fasm.asm – Rev 692 → 755