| 0,0 → 1,462 |
|---|
| ; flat assembler version 1.60 |
| ; Copyright (c) 1999-2005, Tomasz Grysztar |
| ; All rights reserved. |
| ; |
| ; MenuetOS system.inc by VT |
| |
| file_info_open: dd 0,0,0xffffff,0x20000,0xf0000 |
| fullpath_open:; db '/HD/1/EXAMPLE.ASM' |
| times MAX_PATH db 0 |
| |
| file_info_write: dd 1,0,0,0,0xf0000 |
| fullpath_write:; db '/HD/1/EXAMPLE' |
| times MAX_PATH db 0 |
| |
| file_info_start: dd 16,0,0,0,0xf0000 |
| fullpath_start:; db '/HD/1/EXAMPLE' |
| times MAX_PATH db 0 |
| |
| _ramdisk db '/RD/1/' |
| filepos dd 0x0 |
| |
| ; info by Privalov: starting from FASM 1.51 |
| ; ~3/8 - additional memory |
| ; ~5/8 - main memory |
| init_memory: |
| mov [memory_start],0x100000 |
| mov [memory_end],0x100000+(APP_MEMORY-0x100000)/8*5 |
| mov [additional_memory],0x100000+(APP_MEMORY-0x100000)/8*5 |
| mov [additional_memory_end],APP_MEMORY |
| ret |
| |
| exit_program: |
| cmp [_mode],NORMAL_MODE |
| je still |
| or eax,-1 |
| int 0x40 |
| |
| make_timestamp: |
| push ebx |
| mcall 26,9 |
| imul eax,10 |
| pop ebx |
| ret |
| |
| get_environment_variable: |
| mov ecx,[memory_end] |
| sub ecx,edi |
| cmp ecx,7 |
| jb out_of_memory |
| cmp dword[esi],'INCL' |
| jne .finish |
| mov esi,_ramdisk |
| mov ecx,6 |
| cld |
| rep movsb |
| .finish: |
| ; stc |
| ret |
| |
| open: |
| call make_fullpaths |
| |
| ; mov eax,fullpath_open |
| ; DEBUGF '"%s"\n',eax |
| |
| mov dword[file_info_open+8],-1 |
| mcall 58,file_info_open |
| or eax,eax ; found |
| jz @f |
| cmp eax,6 |
| jne file_error |
| @@: mov [filesize],ebx |
| clc |
| ret |
| file_error: |
| stc |
| ret |
| |
| create: |
| call make_fullpaths |
| ret |
| |
| ; ebx file handle |
| ; ecx count of bytes to write |
| ; edx pointer to buffer |
| write: |
| pusha |
| mov [file_info_write+8],ecx |
| mov [file_info_write+12],edx |
| mov [filesize],edx |
| mov eax,58 |
| mov ebx,file_info_write |
| int 0x40 |
| popa |
| ret |
| |
| make_fullpaths: |
| pusha |
| push edx |
| |
| mov esi,path ; open |
| ; DEBUGF " '%s'",esi |
| mov edi,fullpath_open |
| cld |
| newc1: |
| movsb |
| cmp byte[esi],0;' ' |
| jne newc1 |
| mov esi,[esp] |
| |
| cmp byte[esi],'/' |
| jne @f |
| mov edi,fullpath_open |
| |
| @@: |
| lodsb |
| stosb |
| cmp al,0 |
| jne @b |
| ; mov ecx,12 |
| ; cld |
| ; rep movsb |
| ; mov byte[edi],0 |
| |
| mov esi,path ; write |
| mov edi,fullpath_write |
| cld |
| newc2: |
| movsb |
| cmp byte[esi],0;' ' |
| jne newc2 |
| mov esi,[esp] |
| |
| cmp byte[esi],'/' |
| jne @f |
| mov edi,fullpath_write |
| |
| @@: |
| lodsb |
| stosb |
| cmp al,0 |
| jne @b |
| ; mov ecx,12 |
| ; cld |
| ; rep movsb |
| ; mov byte[edi],0 |
| |
| mov esi,path ; start |
| mov edi,fullpath_start |
| cld |
| newc3: |
| movsb |
| cmp byte[esi],0;' ' |
| jne newc3 |
| ; mov esi,[esp] |
| pop esi |
| |
| cmp byte[esi],'/' |
| jne @f |
| mov edi,fullpath_start |
| |
| @@: |
| lodsb |
| stosb |
| cmp al,0 |
| jne @b |
| ; mov ecx,12 |
| ; cld |
| ; rep movsb |
| ; mov byte[edi],0 |
| |
| ; add esp,4 |
| popa |
| ret |
| |
| read: |
| pusha |
| mov edi,edx |
| mov esi,[filepos] |
| add esi,0x20000 |
| cld |
| rep movsb |
| popa |
| ; ret |
| |
| close: ret |
| |
| lseek: |
| cmp al,0 |
| jnz @f |
| mov [filepos],0 |
| @@: cmp al,1 |
| jnz @f |
| @@: cmp al,2 |
| jnz @f |
| mov eax,[filesize] |
| mov [filepos],eax |
| @@: mov eax,[filepos] |
| add eax,edx |
| mov [filepos],eax |
| ret |
| |
| |
| |
| display_character: |
| pusha |
| cmp [_mode],NORMAL_MODE |
| jne @f |
| cmp dl,13 |
| jz dc2 |
| cmp dl,0xa |
| jnz dc1 |
| and [textxy],0x0000FFFF |
| add [textxy],OUTPUTXY and 0xFFFF0000 + 10 |
| dc2: popa |
| ret |
| dc1: mov eax,[textxy] |
| cmp ax,word[bottom_right] |
| ja dc2 |
| shr eax,16 |
| cmp ax,word[bottom_right+2] |
| ja dc2 |
| mov [dc],dl |
| mcall 4,[textxy],[sc.work_text],dc,1 |
| add [textxy],0x00060000 |
| popa |
| ret |
| @@: mov eax,63 |
| mov ebx,1 |
| mov cl,dl |
| int 0x40 |
| popa |
| ret |
| |
| |
| |
| display_string: |
| pusha |
| @@: cmp byte[esi],0 |
| je @f |
| mov dl,[esi] |
| call display_character |
| add esi,1 |
| jmp @b |
| @@: popa |
| ret |
| |
| display_number: |
| push ebx |
| mov ecx,1000000000 |
| xor edx,edx |
| xor bl,bl |
| display_loop: |
| div ecx |
| push edx |
| cmp ecx,1 |
| je display_digit |
| or bl,bl |
| jnz display_digit |
| or al,al |
| jz digit_ok |
| not bl |
| display_digit: |
| mov dl,al |
| add dl,30h |
| push ebx ecx |
| call display_character |
| pop ecx ebx |
| digit_ok: |
| mov eax,ecx |
| xor edx,edx |
| mov ecx,10 |
| div ecx |
| mov ecx,eax |
| pop eax |
| or ecx,ecx |
| jnz display_loop |
| pop ebx |
| ret |
| |
| display_user_messages: |
| ; push [skinh] |
| ; pop [textxy] |
| ; add [textxy],OUTPUTXY |
| mov [displayed_count],0 |
| call flush_display_buffer |
| cmp [displayed_count],1 |
| jb line_break_ok |
| je make_line_break |
| mov ax,word[last_displayed] |
| cmp ax,0A0Dh |
| je line_break_ok |
| cmp ax,0D0Ah |
| je line_break_ok |
| make_line_break: |
| mov esi,lf |
| call display_string |
| line_break_ok: |
| ret |
| |
| display_block: |
| pusha |
| @@: mov dl,[esi] |
| call display_character |
| inc esi |
| loop @b |
| popa |
| ret |
| |
| fatal_error: |
| mov esi,error_prefix |
| call display_string |
| pop esi |
| call display_string |
| mov esi,error_suffix |
| call display_string |
| mov esi,lf |
| call display_string |
| mov al,0FFh |
| jmp exit_program |
| |
| assembler_error: |
| call display_user_messages |
| push dword 0 |
| mov ebx,[current_line] |
| get_error_lines: |
| push ebx |
| test byte [ebx+7],80h |
| jz display_error_line |
| mov edx,ebx |
| find_definition_origin: |
| mov edx,[edx+12] |
| test byte [edx+7],80h |
| jnz find_definition_origin |
| push edx |
| mov ebx,[ebx+8] |
| jmp get_error_lines |
| display_error_line: |
| mov esi,[ebx] |
| call display_string |
| mov esi,line_number_start |
| call display_string |
| mov eax,[ebx+4] |
| and eax,7FFFFFFFh |
| call display_number |
| mov dl,']' |
| call display_character |
| pop esi |
| cmp ebx,esi |
| je line_number_ok |
| mov dl,20h |
| call display_character |
| push esi |
| mov esi,[esi] |
| movzx ecx,byte [esi] |
| inc esi |
| call display_block |
| mov esi,line_number_start |
| call display_string |
| pop esi |
| mov eax,[esi+4] |
| and eax,7FFFFFFFh |
| call display_number |
| mov dl,']' |
| call display_character |
| line_number_ok: |
| mov esi,line_data_start |
| call display_string |
| mov esi,ebx |
| mov edx,[esi] |
| call open |
| mov al,2 |
| xor edx,edx |
| call lseek |
| mov edx,[esi+8] |
| sub eax,edx |
| push eax |
| xor al,al |
| call lseek |
| mov ecx,[esp] |
| mov edx,[additional_memory] |
| lea eax,[edx+ecx] |
| cmp eax,[additional_memory_end] |
| ja out_of_memory |
| call read |
| call close |
| pop ecx |
| mov esi,[additional_memory] |
| get_line_data: |
| mov al,[esi] |
| cmp al,0Ah |
| je display_line_data |
| cmp al,0Dh |
| je display_line_data |
| cmp al,1Ah |
| je display_line_data |
| or al,al |
| jz display_line_data |
| inc esi |
| loop get_line_data |
| display_line_data: |
| mov ecx,esi |
| mov esi,[additional_memory] |
| sub ecx,esi |
| call display_block |
| mov esi,cr_lf |
| call display_string |
| pop ebx |
| or ebx,ebx |
| jnz display_error_line |
| mov esi,error_prefix |
| call display_string |
| pop esi |
| call display_string |
| mov esi,error_suffix |
| call display_string |
| jmp exit_program |
| |
| __draw_caption: |
| ; mcall 48,4 |
| ; mov [skinh],eax |
| ; mov ebx,eax |
| ; shr ebx,1 |
| ; adc ebx,1+0x000A0000-4 |
| ; mcall 4,,[sc.grab_text],s_title,[s_title.size] |
| |
| mcall 48,4 |
| mov [skinh],eax |
| shr eax,1 |
| adc eax,0 |
| add eax,1-4 |
| push ax |
| if center eq true |
| mcall 9,PROCESSINFO,-1 |
| mov ebx,[PROCESSINFO+process_information.x_size] |
| shr ebx,1 |
| sub ebx,header.size*6/2 + 8 |
| else |
| mov ebx,8 |
| end if |
| shl ebx,16 |
| pop bx |
| mcall 4,,[SYSTEMCOLORS+system_colors.grab_text] |
| ret |
| |
| character db ?,0 |
| bytes_count dd ? |
| |
| textxy dd 0x000500A0 |
| dc db 0x0 |
| filesize dd 0x0 |
| |
| displayed_count dd ? |
| last_displayed rb 2 |
| |
| error_prefix db 'error: ',0 |
| error_suffix db '.',0 |
| line_data_start db ':' |
| cr_lf db 0Dh,0Ah,0 |
| line_number_start db ' [',0 |
| |
| macro dm string { db string,0 } |
| Property changes: |
|---|
| Added: svn:eol-style |
|---|
| +native |
|---|
| \ No newline at end of property |
|---|