| 0,0 → 1,235 |
|---|
| use32 ; âêëþ÷èòü 32-áèòíûé ðåæèì àññåìáëåðà |
| org 0x0 ; àäðåñàöèÿ ñ íóëÿ |
| |
| db 'MENUET01' ; 8-áàéòíûé èäåíòèôèêàòîð MenuetOS |
| dd 0x01 ; âåðñèÿ çàãîëîâêà (âñåãäà 1) |
| dd START ; àäðåñ ïåðâîé êîìàíäû |
| dd I_END ; ðàçìåð ïðîãðàììû |
| dd 0x1000 ; êîëè÷åñòâî ïàìÿòè |
| dd 0x1000 ; àäðåñ âåðøèíû ñòýêà |
| dd 0x0 ; àäðåñ áóôåðà äëÿ ïàðàìåòðîâ (íå èñïîëüçóåòñÿ) |
| dd 0x0 ; çàðåçåðâèðîâàíî |
| |
| include 'lang.inc' |
| include 'macros.inc' ; ìàêðîñû îáëåã÷àþò æèçíü àññåìáëåðùèêîâ! |
| |
| |
| START: |
| red: |
| |
| call draw_window |
| |
| still: |
| mcall 10 ; ôóíêöèÿ 10 - æäàòü ñîáûòèÿ |
| |
| cmp eax,1 ; ïåðåðèñîâàòü îêíî ? |
| je red ; åñëè äà - íà ìåòêó red |
| cmp eax,2 ; íàæàòà êëàâèøà ? |
| je key ; åñëè äà - íà key |
| cmp eax,3 ; íàæàòà êíîïêà ? |
| je button ; åñëè äà - íà button |
| |
| jmp still ; åñëè äðóãîå ñîáûòèå - â íà÷àëî öèêëà |
| |
| ;--------------------------------------------------------------------- |
| |
| key: ; íàæàòà êëàâèøà íà êëàâèàòóðå |
| mov eax, 2 |
| int 0x40 |
| mov edi, [index] |
| cmp edi, string1 |
| jz no_back |
| |
| cmp ah, 8 |
| jnz no_back |
| |
| dec edi |
| mov byte [edi], ' ' |
| mov [index], edi |
| call Draw_String |
| jmp still |
| no_back: |
| cmp ah, 13 |
| jz read_str |
| |
| cmp edi, string1_end |
| jae still |
| mov al, ah |
| stosb |
| mov [index], edi |
| call Draw_String |
| jmp still ; âåðíóòüñÿ ê íà÷àëó öèêëà |
| |
| read_str: |
| dec edi |
| mov esi, string1 |
| |
| call GetBase |
| |
| xor ecx, ecx |
| inc ecx ; ecx = 1 |
| |
| make_bin: |
| xor eax, eax |
| |
| next_digit: |
| xor edx, edx |
| cmp edi, esi |
| jb .done |
| |
| mov dl, [edi] |
| cmp dl, '-' |
| jne @f |
| neg eax |
| jmp .done |
| @@: |
| cmp dl, 'F' |
| jbe @f |
| and dl, 11011111b |
| @@: |
| sub dl, '0' |
| cmp dl, 9 |
| jbe @f |
| sub dl, 'A'-'9'-1 |
| @@: |
| cmp dl, bl |
| jb @f |
| ; Çäåñü îáðàáîòàòü îøèáêó |
| |
| jmp .done |
| @@: |
| push ecx |
| xchg eax, ecx |
| mul edx ; edx:eax = eax * edx |
| add ecx, eax |
| pop eax |
| mul ebx |
| xchg eax, ecx |
| dec edi |
| jmp next_digit |
| |
| .done: |
| mov [num], eax |
| |
| jmp red |
| |
| ;--------------------------------------------------------------------- |
| |
| button: |
| mcall 17 ; 17 - ïîëó÷èòü èäåíòèôèêàòîð íàæàòîé êíîïêè |
| cmp ah, 1 ; åñëè ÍÅ íàæàòà êíîïêà ñ íîìåðîì 1, |
| jne still ; âåðíóòüñÿ |
| |
| .exit: |
| mcall -1 ; èíà÷å êîíåö ïðîãðàììû |
| |
| draw_window: |
| mcall 12, 1 |
| mcall 0, 200*65536+300, 200*65536+120, 0x02AABBCC, 0x805080D0, 0x005080D0 |
| mcall 4, 8*65536+8, 0x10DDEEFF, header, header_e - header |
| mcall , 15*65536+100, 0, numstr, 7 |
| mcall , 15*65536+72, , hexstr, 4 |
| mcall , 15*65536+44, , decstr, |
| mcall , 15*65536+30, , binstr, |
| mcall , 15*65536+58, ,sdecstr, 10 |
| |
| |
| mcall 8, (300-19)*65536+ 12, 5*65536+ 12, 1, 0x6688DD |
| |
| mov ecx, [num] |
| |
| mcall 47, 8*65536+256,,240*65536+72,0 ; 16-íàÿ |
| |
| mcall , 10*65536, ,228*65536+44, ; 10-íàÿ |
| |
| mcall , 8*65536+512,,240*65536+30, ; 2-íàÿ |
| ror ecx, 8 |
| mcall , 8*65536+512,,(240-56)*65536+30, |
| ror ecx, 8 |
| mcall , 8*65536+512,,(240-56*2)*65536+30, |
| ror ecx, 8 |
| mcall , 8*65536+512,,(240-56*3)*65536+30, |
| ror ecx, 8 |
| mov byte [minus], '+' |
| jnc @f |
| mov byte [minus], '-' |
| neg ecx |
| @@: |
| mcall , 10*65536,,228*65536+58, ; 10-íàÿ ñî çíàêîì |
| mcall 4, 222*65536+58, 0, minus, 1 |
| call Draw_String |
| |
| |
| mcall 12, 2 ; ôóíêöèÿ 12: ñîîáùèòü ÎÑ îá îòðèñîâêå îêíà |
| |
| ret |
| |
| ;------------------------------------------------- |
| Draw_String: |
| ;------------------------------------------------- |
| mov eax, 13 |
| mov ebx, 60*65536+ 6*33 |
| mov ecx, 100*65536+ 9 |
| mov edx, 0x02AABBCC |
| int 0x40 |
| |
| mov eax,4 |
| mov ebx,60*65536+100 |
| mov ecx,0xA40473 |
| mov edx,string1 |
| mov esi,33 |
| int 0x40 |
| ret |
| |
| ;------------------------------------------------- |
| GetBase: |
| ;------------------------------------------------- |
| mov ebx, 10 |
| cmp edi, esi |
| jb .done |
| |
| mov al, [edi] |
| cmp al, 'H' |
| jbe @f |
| and al, 11011111b |
| @@: |
| cmp al, 'H' |
| jne @f |
| mov ebx, 16 |
| dec edi |
| jmp .done |
| |
| @@: |
| cmp al, 'D' |
| jne @f |
| mov ebx, 10 |
| dec edi |
| jmp .done |
| |
| @@: |
| cmp al, 'B' |
| jne .done |
| mov ebx, 2 |
| dec edi |
| |
| .done: |
| ret |
| |
| ;------------------------------------------------- |
| string1: |
| db 34 dup(' ') |
| string1_end: |
| index dd string1 |
| num dd 0 |
| |
| |
| header db 'hex2dec2bin' |
| header_e: |
| minus db '-' |
| numstr db 'Number:' |
| hexstr db 'hex:' |
| binstr db 'bin:' |
| decstr db 'dec:' |
| sdecstr db 'signed dec:' |
| |
| I_END: ; ìåòêà êîíöà ïðîãðàììû |
| Property changes: |
|---|
| Added: svn:eol-style |
|---|
| +native |
|---|
| \ No newline at end of property |
|---|