menuet os应用程序源代码,很多汇编写的应用程序

				; new application structure
				macro meos_app_start
				 {
				  use32
				  org 0x0
				
				  db 'MENUET01'
				  dd 0x01
				  dd __start
				  dd __end
				  dd __memory
				  dd __stack
				
				  if used __params & ~defined __params
				    dd __params
				  else
				    dd 0x0
				  end if
				
				  dd 0x0
				 }
				MEOS_APP_START fix meos_app_start
				
				macro code
				 {
				  __start:
				 }
				CODE fix code
				
				macro data
				 {
				  __data:
				 }
				DATA fix data
				
				macro udata
				 {
				  if used __params & ~defined __params
				    __params:
				      db 0
				    __end:
				      rb 255
				  else
				    __end:
				  end if
				  __udata:
				 }
				UDATA fix udata
				
				macro meos_app_end
				 {
				  align 32
				  rb 2048
				  __stack:
				  __memory:
				 }
				MEOS_APP_END fix meos_app_end
				
				
				
				; language for programs
				lang fix en ; ru en fr ge fi
				
				
				
				; optimize the code for size
				macro add arg1,arg2
				 {
				   if arg1 in 
				      if arg2 eqtype 0
				         if arg2 = 1
				            inc arg1
				         else
				            add arg1,arg2
				         end if
				      else
				         add arg1,arg2
				      end if
				   else
				      add arg1,arg2
				   end if
				 }
				
				macro sub arg1,arg2
				 {
				   if arg2 eqtype 0
				      if arg2 = 1
				         dec arg1
				      else
				         sub arg1,arg2
				      end if
				   else
				      sub arg1,arg2
				   end if
				 }
				
				macro mov arg1,arg2
				 {
				   if arg1 in 
				      if arg2 eqtype 0
				         if arg2 = 0
				            xor arg1,arg1
				         else if arg2 = 1
				            xor arg1,arg1
				            inc arg1
				         else if arg2 = -1
				            or  arg1,-1
				         else if arg2 > -128 & arg2 < 128
				            push arg2
				            pop  arg1
				         else
				            mov  arg1,arg2
				         end if
				      else
				         mov arg1,arg2
				      end if
				   else
				      mov arg1,arg2
				   end if
				 }
				
				
				macro struct name
				 {
				  virtual at 0
				   name name
				   sizeof.#name = $ - name
				  end virtual
				 }
				
				; structures used in MeOS
				struc process_information
				 {
				  .cpu_usage               dd ?  ; +0
				  .window_stack_position   dw ?  ; +4
				  .window_stack_value      dw ?  ; +6
				  .not_used1               dw ?  ; +8
				  .process_name            rb 12 ; +10
				  .memory_start            dd ?  ; +22
				  .used_memory             dd ?  ; +26
				  .PID                     dd ?  ; +30
				  .x_start                 dd ?  ; +34
				  .y_start                 dd ?  ; +38
				  .x_size                  dd ?  ; +42
				  .y_size                  dd ?  ; +46
				  .slot_state              dw ?  ; +50
				  rb (1024-52)
				 }
				struct process_information
				
				struc system_colors
				 {
				  .frame            dd ?
				  .grab             dd ?
				  .grab_button      dd ?
				  .grab_button_text dd ?
				  .grab_text        dd ?
				  .work             dd ?
				  .work_button      dd ?
				  .work_button_text dd ?
				  .work_text        dd ?
				  .work_graph       dd ?
				 }
				struct system_colors
				
				
				; constants
				
				; events
				EV_IDLE        = 0
				EV_TIMER       = 0
				EV_REDRAW      = 1
				EV_KEY         = 2
				EV_BUTTON      = 3
				EV_EXIT        = 4
				EV_BACKGROUND  = 5
				EV_MOUSE       = 6
				EV_IPC         = 7
				EV_STACK       = 8
				
				; event mask bits for function 40
				EVM_REDRAW     =        1b
				EVM_KEY        =       10b
				EVM_BUTTON     =      100b
				EVM_EXIT       =     1000b
				EVM_BACKGROUND =    10000b
				EVM_MOUSE      =   100000b
				EVM_IPC        =  1000000b
				EVM_STACK      = 10000000b