Subversion Repositories Kolibri OS

Rev

Rev 3692 | Rev 3886 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. ; ”㭪樨 à ¡®âë á ª®­á®«ìî ¤«ï ¯à®£à ¬¬ Š®«¨¡à¨Ž‘
  2. ; diamond, 2006-2008
  3.  
  4.  
  5. format MS COFF
  6.  
  7. public EXPORTS
  8.  
  9. section '.flat' code readable align 16
  10.  
  11. include 'font.inc'
  12. include 'conscrl.inc'
  13.  
  14. ;void __stdcall START(dword state);
  15. START:
  16. ; N.B. The current kernel implementation does not require
  17. ;      evident heap initialization, because if DLL is loaded, heap is already initialized
  18. ;      (if heap was not initialized, loader does this implicitly).
  19. ;      So this action does nothing useful, but nothing harmful.
  20.         push    68
  21.         pop     eax
  22.         push    11
  23.         pop     ebx
  24.         int     0x40
  25.         or      eax, -1
  26.         ret     4
  27.  
  28. ; ˆ­¨æ¨ «¨§ æ¨ï ª®­á®«¨
  29. ; void __stdcall con_init(dword wnd_width, dword wnd_height,
  30. ;       dword scr_width, dword scr_height, const char* title);
  31.  
  32. align 4
  33. con_init:
  34.         pop     eax
  35.         pop     [con.wnd_width]
  36.         pop     [con.wnd_height]
  37.         pop     [con.scr_width]
  38.         pop     [con.scr_height]
  39.         pop     [con.title]
  40.         push    eax
  41.  
  42.         push ebx
  43.  
  44.         mov     ecx, 4
  45.         mov     eax, con.wnd_width
  46.         mov     edx, con.def_wnd_width
  47. .1:
  48.         cmp     dword [eax], -1
  49.         jnz     @f
  50.         mov     ebx, [edx]
  51.         mov     [eax], ebx
  52. @@:
  53.         add     eax, 4
  54.         add     edx, 4
  55.         loop    .1
  56. ; allocate memory for console data & bitmap data
  57.         mov     eax, [con.scr_width]
  58.         mul     [con.scr_height]
  59.         lea     ecx, [eax+eax]
  60.         mov     eax, [con.wnd_width]
  61.         mul     [con.wnd_height]
  62.         imul    eax, font_width*font_height
  63.         mov     ebx, eax
  64.         push    ebx ecx
  65.         add     ecx, eax
  66.         push    68
  67.         pop     eax
  68.         push    12
  69.         pop     ebx
  70.         int     0x40
  71.         pop     ecx ebx
  72.         mov     edx, con.nomem_err
  73.         test    eax, eax
  74.         jz      con.fatal
  75.         mov     [con.data], eax
  76.         push    edi
  77.         mov     edi, eax
  78.         shr     ecx, 1
  79.         mov     ax, 0x0720
  80.         rep     stosw
  81.         mov     ecx, ebx
  82.         mov     [con.image], edi
  83.         xor     eax, eax
  84.         rep     stosb
  85.         pop     edi
  86.         and     byte [con_flags+1], not 2
  87. ; create console thread
  88.         push    51
  89.         pop     eax
  90.         xor     ebx, ebx
  91.         inc     ebx
  92.         mov     ecx, con.thread
  93.         mov     edx, con.stack_top
  94.         int     0x40
  95.         mov     edx, con.thread_err
  96.         test    eax, eax
  97.         js      con.fatal
  98.         mov     [con.console_tid], eax
  99.         pop     ebx
  100.         ret
  101. con.fatal:
  102. ; output string to debug board and die
  103.         mov     cl, [edx]
  104.         test    cl, cl
  105.         jz      @f
  106.         push    63
  107.         pop     eax
  108.         xor     ebx, ebx
  109.         inc     ebx
  110.         int     0x40
  111.         inc     edx
  112.         jmp     con.fatal
  113. @@:
  114.         or      eax, -1
  115.         int     0x40
  116.  
  117. ; dword __stdcall con_get_flags(void);
  118. con_get_flags:
  119.         mov     eax, [con_flags]
  120.         ret
  121.  
  122. ; dword __stdcall con_set_flags(dword flags);
  123. con_set_flags:
  124.         mov     eax, [esp+4]
  125.         and     ah, not 2
  126.         xchg    eax, [con_flags]
  127.         ret     4
  128.  
  129. ; dword __stdcall con_get_font_height(void);
  130. con_get_font_height:
  131.         mov     eax, font_height
  132.         ret
  133.  
  134. ; int __stdcall con_get_cursor_height(void);
  135. con_get_cursor_height:
  136.         mov     eax, [con.cursor_height]
  137.         ret
  138.  
  139. ; int __stdcall con_set_cursor_height(int new_height);
  140. con_set_cursor_height:
  141.         mov     eax, [esp+4]
  142.         cmp     eax, font_height
  143.         jae     @f
  144.         xchg    eax, [con.cursor_height]
  145.         ret     4
  146. @@:
  147.         mov     eax, [con.cursor_height]
  148.         ret     4
  149.  
  150. ; void __stdcall con_write_asciiz(const char* string);
  151. con_write_asciiz:
  152.         push    ebx esi
  153.         or      ebx, -1
  154.         mov     esi, [esp+12]
  155.         call    con.write
  156.         pop     esi ebx
  157.         ret     4
  158.  
  159. ; void __stdcall con_write_string(const char* string, dword length);
  160. con_write_length:
  161.         push    ebx esi
  162.         mov     esi, [esp+12]
  163.         mov     ebx, [esp+16]
  164.         call    con.write
  165.         pop     esi ebx
  166.         ret     8
  167.  
  168. ; Š ¦¤ë© ᨬ¢®« ª« áá¨ä¨æ¨àã¥âáï ª ª ®¤¨­ ¨§
  169. con.printfc.normal = 0   ; ­®à¬ «ì­ë© ᨬ¢®«
  170. con.printfc.percent = 1  ; '%'
  171. con.printfc.dot = 2      ; '.'
  172. con.printfc.asterisk = 3 ; '*'
  173. con.printfc.zero = 4     ; '0'
  174. con.printfc.digit = 5    ; ­¥­ã«¥¢ ï æ¨äà 
  175. con.printfc.plus = 6     ; '+'
  176. con.printfc.minus = 7    ; '-'
  177. con.printfc.sharp = 8    ; '#'
  178. con.printfc.space = 9    ; ' '
  179. con.printfc.long = 10    ; 'l' for 'long'
  180. con.printfc.short = 11   ; 'h' for 'short'
  181. con.printfc.dec = 12     ; 'd' = print decimal
  182. con.printfc.oct = 13     ; 'o' = print octal
  183. con.printfc.unsigned = 14 ; 'u' = print unsigned decimal
  184. con.printfc.hex = 15     ; 'x' = print hexadecimal
  185. con.printfc.pointer = 16 ; 'p' = print pointer
  186. con.printfc.char = 17    ; 'c' = print char
  187. con.printfc.string = 18  ; 's' = print string
  188.  
  189. macro set char,type
  190. {store byte con.printfc.#type at con.charcodes + char - ' '}
  191.  
  192. con.charcodes:
  193. times 'x'-' '+1         db      con.printfc.normal
  194.         set     '%', percent
  195.         set     '.', dot
  196.         set     '*', asterisk
  197.         set     '0', zero
  198.         set     '1', digit
  199.         set     '2', digit
  200.         set     '3', digit
  201.         set     '4', digit
  202.         set     '5', digit
  203.         set     '6', digit
  204.         set     '7', digit
  205.         set     '8', digit
  206.         set     '9', digit
  207.         set     ' ', space
  208.         set     '#', sharp
  209.         set     '+', plus
  210.         set     '-', minus
  211.         set     'X', hex
  212.         set     'x', hex
  213.         set     'c', char
  214.         set     'd', dec
  215.         set     'h', short
  216.         set     'i', dec
  217.         set     'l', long
  218.         set     'o', oct
  219.         set     'p', pointer
  220.         set     's', string
  221.         set     'u', unsigned
  222. purge set
  223. align 4
  224. con.charjump:
  225.         dd      con_printf.normal
  226.         dd      con_printf.percent
  227.         dd      con_printf.dot
  228.         dd      con_printf.asterisk
  229.         dd      con_printf.zero
  230.         dd      con_printf.digit
  231.         dd      con_printf.plus
  232.         dd      con_printf.minus
  233.         dd      con_printf.sharp
  234.         dd      con_printf.space
  235.         dd      con_printf.long
  236.         dd      con_printf.short
  237.         dd      con_printf.dec
  238.         dd      con_printf.oct
  239.         dd      con_printf.unsigned
  240.         dd      con_printf.hex
  241.         dd      con_printf.pointer
  242.         dd      con_printf.char
  243.         dd      con_printf.string
  244.  
  245. ; int __cdecl con_printf(const char* format, ...)
  246. con_printf:
  247.         xor     eax, eax
  248.         pushad
  249.         call    con.get_data_ptr
  250.         lea     ebp, [esp+20h+8]
  251.         mov     esi, [ebp-4]
  252.         sub     esp, 64         ; reserve space for buffer
  253. .loop:
  254.         xor     eax, eax
  255.         lodsb
  256.         test    al, al
  257.         jz      .done
  258.         cmp     al, '%'
  259.         jz      .spec_begin
  260. .normal:
  261.         call    con.write_char_ex
  262.         inc     dword [esp+64+28]
  263.         jmp     .loop
  264. .errspec:
  265. .percent:
  266.         add     esp, 12
  267.         jmp     .normal
  268. .spec_begin:
  269.         xor     ebx, ebx
  270. ; bl = ⨯ ¯®§¨æ¨¨:
  271. ; 0 = ­ ç «®
  272. ; 1 = ¯à®ç¨â ­ ¢¥¤ã騩 0 ¢ ᯥæ¨ä¨ª æ¨¨ ä®à¬ â 
  273. ; 2 = ç¨â ¥¬ ¯®«¥ è¨à¨­ë
  274. ; 3 = ç¨â ¥¬ ¯®«¥ â®ç­®áâ¨
  275. ; 4 = ¯à®ç¨â ­® ¯®«¥ à §¬¥à   à£ã¬¥­â 
  276. ; 5 = ç¨â ¥¬ ¯®«¥ ⨯ 
  277. ; bh = ä« £¨:
  278. ; 1 = ä« £ '#', ¢ë¢®¤¨âì 0/0x/0X
  279. ; 2 = ä« £ '-', ¢ëà ¢­¨¢ ­¨¥ ¢«¥¢®
  280. ; 4 = ä« £ '0', ¤®¯®«­¥­¨¥ ­ã«ï¬¨
  281. ; 8 = ä« £ 'h', ª®à®âª¨©  à£ã¬¥­â
  282.         push    -1
  283. ; dword [esp+8] = precision
  284.         push    -1
  285. ; dword [esp+4] = width
  286.         push    0
  287. ; byte [esp] = ä« £ 0/'+'/' '
  288. .spec:
  289.         xor     eax, eax
  290.         lodsb
  291.         test    al, al
  292.         jz      .done
  293.         cmp     al, ' '
  294.         jb      .normal
  295.         cmp     al, 'x'
  296.         ja      .normal
  297.         movzx   ecx, byte [con.charcodes + eax - ' ']
  298.         jmp     dword[con.charjump + ecx*4]
  299.  
  300. .sharp:
  301.         test    bl, bl
  302.         jnz     .errspec
  303.         or      bh, 1
  304.         jmp     .spec
  305. .minus:
  306.         test    bl, bl
  307.         jnz     .errspec
  308.         or      bh, 2
  309.         jmp     .spec
  310. .plus:
  311. .space:
  312.         test    bl, bl
  313.         jnz     .errspec
  314.         cmp     byte [esp], '+'
  315.         jz      .spec
  316.         mov     byte [esp], al
  317.         jmp     .spec
  318. .zero:
  319.         test    bl, bl
  320.         jnz     .digit
  321.         test    bh, 2
  322.         jnz     .spec
  323.         or      bh, 4
  324.         inc     ebx
  325.         jmp     .spec
  326. .digit:
  327.         sub     al, '0'
  328.         cmp     bl, 2
  329.         ja      .precision
  330.         mov     bl, 2
  331.         xchg    eax, [esp+4]
  332.         test    eax, eax
  333.         js      .spec
  334.         lea     eax, [eax*5]
  335.         add     eax, eax
  336.         add     [esp+4], eax
  337.         jmp     .spec
  338. .precision:
  339.         cmp     bl, 3
  340.         jnz     .errspec
  341.         xchg    eax, [esp+8]
  342.         lea     eax, [eax*5]
  343.         add     eax, eax
  344.         add     [esp+8], eax
  345.         jmp     .spec
  346. .asterisk:
  347.         mov     eax, [ebp]
  348.         add     ebp, 4
  349.         cmp     bl, 2
  350.         ja      .asterisk_precision
  351.         test    eax, eax
  352.         jns     @f
  353.         neg     eax
  354.         or      bh, 2
  355. @@:
  356.         mov     [esp+4], eax
  357.         mov     bl, 3
  358.         jmp     .spec
  359. .asterisk_precision:
  360.         cmp     bl, 3
  361.         jnz     .errspec
  362.         mov     [esp+8], eax
  363.         inc     ebx
  364.         jmp     .spec
  365. .dot:
  366.         cmp     bl, 2
  367.         ja      .errspec
  368.         mov     bl, 3
  369.         and     dword [esp+8], 0
  370.         jmp     .spec
  371. .long:
  372.         cmp     bl, 3
  373.         ja      .errspec
  374.         mov     bl, 4
  375.         jmp     .spec
  376. .short:
  377.         cmp     bl, 3
  378.         ja      .errspec
  379.         mov     bl, 4
  380.         or      bh, 8
  381.         jmp     .spec
  382. .unsigned:
  383. .dec:
  384.         push    10
  385.         jmp     .write_number
  386. .pointer:
  387.         mov     dword [esp+12], 8
  388.         or      bh, 4
  389.         and     bh, not 8
  390. .hex:
  391.         push    16
  392.         jmp     @f
  393. .oct:
  394.         push    8
  395. @@:
  396.         mov     byte [esp+4], 0
  397. .write_number:
  398.         pop     ecx
  399.         push    edi
  400.         lea     edi, [esp+16+64-1]      ; edi -> end of buffer
  401.         mov     byte [edi], 0
  402.         push    edx
  403.         push    eax
  404.         mov     eax, [ebp]
  405.         add     ebp, 4
  406.         test    bh, 8
  407.         jz      @f
  408.         movzx   eax, ax
  409.         cmp     byte [esp], 'd'
  410.         jnz     @f
  411.         movsx   eax, ax
  412. @@:
  413.         xor     edx, edx
  414.         test    eax, eax
  415.         jns     @f
  416.         cmp     byte [esp], 'd'
  417.         jnz     @f
  418.         inc     edx
  419.         neg     eax
  420. @@:
  421.         push    edx
  422.         xor     edx, edx
  423. ; ç¨á«® ¢ eax, ®á­®¢ ­¨¥ á¨á⥬ë áç¨á«¥­¨ï ¢ ecx
  424. @@:
  425.         cmp     dword [esp+16+8], 0
  426.         jnz     .print_num
  427.         test    eax, eax
  428.         jz      .zeronum
  429. .print_num:
  430.         div     ecx
  431.         xchg    eax, edx
  432.         cmp     al, 10
  433.         sbb     al, 69h
  434.         das
  435.         cmp     byte [esp+4], 'x'
  436.         jnz     @f
  437.         or      al, 20h
  438. @@:
  439.         dec     edi
  440.         mov     [edi], al
  441.         xor     eax, eax
  442.         xchg    eax, edx
  443.         test    eax, eax
  444.         jnz     .print_num
  445. .zeronum:
  446.         push    0
  447.         mov     edx, [esp+12]
  448.         lea     eax, [esp+32+64-1]
  449.         sub     eax, edi
  450.         cmp     dword [esp+20+8], -1
  451.         jz      .noprec1
  452.         cmp     eax, [esp+20+8]
  453.         jae     .len_found1
  454.         mov     eax, [esp+20+8]
  455.         jmp     .len_found1
  456. .noprec1:
  457.         test    bh, 4
  458.         jnz     .do_print_num
  459. .len_found1:
  460.         test    bh, 2
  461.         jnz     .do_print_num
  462.         cmp     byte [esp+20], 0
  463.         jz      @f
  464.         inc     eax
  465. @@:
  466.         cmp     byte [esp+20], 0
  467.         jnz     @f
  468.         cmp     byte [esp+4], 0
  469.         jz      @f
  470.         inc     eax
  471. @@:
  472.         test    bh, 1
  473.         jz      .nosharp1
  474.         cmp     cl, 8
  475.         jnz     @f
  476.         inc     eax
  477.         jmp     .nosharp1
  478. @@:
  479.         cmp     cl, 16
  480.         jnz     .nosharp1
  481.         inc     eax
  482.         inc     eax
  483. .nosharp1:
  484.         cmp     dword [esp+20+4], -1
  485.         jz      .do_print_num
  486.         sub     eax, [esp+20+4]
  487.         jae     .do_print_num
  488.         push    ecx
  489.         mov     ecx, eax
  490.         mov     al, ' '
  491. @@:
  492.         xchg    edi, [esp+20]
  493.         call    con.write_char_ex
  494.         inc     dword [esp+24+12+64+28]
  495.         xchg    edi, [esp+20]
  496.         inc     dword [esp+4]
  497.         inc     ecx
  498.         jnz     @b
  499.         pop     ecx
  500. .do_print_num:
  501.         mov     al, '-'
  502.         cmp     byte [esp+4], 0
  503.         jnz     .write_sign
  504.         mov     al, [esp+20]
  505.         test    al, al
  506.         jz      .sign_written
  507. .write_sign:
  508.         call    .num_write_char
  509. .sign_written:
  510.         test    bh, 1
  511.         jz      .nosharp2
  512.         mov     al, '0'
  513.         cmp     cl, 8
  514.         jz      @f
  515.         cmp     cl, 16
  516.         jnz     .nosharp2
  517.         call    .num_write_char
  518.         mov     al, [esp+8]
  519. @@:
  520.         call    .num_write_char
  521. .nosharp2:
  522.         lea     ecx, [esp+32+64-1]
  523.         sub     ecx, edi
  524.         cmp     dword [esp+20+8], -1
  525.         jz      .noprec2
  526.         sub     ecx, [esp+20+8]
  527.         jmp     .lead_zeroes
  528. .noprec2:
  529.         test    bh, 4
  530.         jz      .do_print_num2
  531.         add     ecx, [esp]
  532.         sub     ecx, [esp+20+4]
  533. .lead_zeroes:
  534.         jae     .do_print_num2
  535. @@:
  536.         mov     al, '0'
  537.         call    .num_write_char
  538.         inc     ecx
  539.         jnz     @b
  540. .do_print_num2:
  541.         mov     al, [edi]
  542.         test    al, al
  543.         jz      .num_written
  544.         call    .num_write_char
  545.         inc     edi
  546.         jmp     .do_print_num2
  547. .num_written:
  548.         pop     ecx
  549.         mov     edi, [esp+12]
  550.         cmp     dword [esp+16+4], -1
  551.         jz      .num_written2
  552. @@:
  553.         cmp     ecx, [esp+16+4]
  554.         jae     .num_written2
  555.         mov     al, ' '
  556.         call    con.write_char
  557.         inc     ecx
  558.         jmp     @b
  559. .num_written2:
  560.         add     esp, 16
  561. .spec_done:
  562.         add     esp, 12
  563.         jmp     .loop
  564. .char:
  565.         mov     ecx, [esp+4]
  566.         cmp     ecx, -1
  567.         jnz     @f
  568.         inc     ecx
  569. @@:
  570.         test    ecx, ecx
  571.         jnz     @f
  572.         inc     ecx
  573. @@:
  574.         test    bh, 2
  575.         jnz     .char_left_pad
  576.         mov     al, ' '
  577.         dec     ecx
  578.         jz      .nowidth
  579.         add     [esp+12+64+28], ecx
  580. @@:
  581.         call    con.write_char
  582.         loop    @b
  583. .nowidth:
  584.         mov     al, [ebp]
  585.         add     ebp, 4
  586.         jmp     .percent
  587. .char_left_pad:
  588.         mov     al, [ebp]
  589.         add     ebp, 4
  590.         call    con.write_char_ex
  591.         add     [esp+12+64+28], ecx
  592.         dec     ecx
  593.         jz      .nowidth2
  594.         mov     al, ' '
  595. @@:
  596.         call    con.write_char
  597.         loop    @b
  598. .nowidth2:
  599.         jmp     .spec_done
  600. .string:
  601.         push    esi
  602.         mov     esi, [ebp]
  603.         test    esi, esi
  604.         jnz     @f
  605.         mov     esi, con.aNull
  606. @@:
  607.         add     ebp, 4
  608.         or      ecx, -1
  609. @@:
  610.         inc     ecx
  611.         cmp     byte [esi+ecx], 0
  612.         jnz     @b
  613.         cmp     ecx, [esp+12]
  614.         jb      @f
  615.         mov     ecx, [esp+12]
  616. @@:
  617.         test    bh, 2
  618.         jnz     .write_string
  619.         cmp     dword [esp+8], -1
  620.         jz      .write_string
  621.         push    ecx
  622.         sub     ecx, [esp+12]
  623.         jae     .nospace
  624.         mov     al, ' '
  625. @@:
  626.         call    con.write_char
  627.         inc     dword [esp+20+64+28]
  628.         inc     ecx
  629.         jnz     @b
  630. .nospace:
  631.         pop     ecx
  632. .write_string:
  633.         jecxz   .string_written
  634.         add     dword [esp+16+64+28], ecx
  635.         push    ecx
  636. @@:
  637.         lodsb
  638.         call    con.write_char_ex
  639.         loop    @b
  640.         pop     ecx
  641. .string_written:
  642.         pop     esi
  643.         test    bh, 2
  644.         jz      .spec_done
  645.         cmp     dword [esp+4], -1
  646.         jz      .spec_done
  647.         sub     ecx, [esp+4]
  648.         jae     .spec_done
  649.         mov     al, ' '
  650. @@:
  651.         call    con.write_char
  652.         inc     dword [esp+12+64+28]
  653.         inc     ecx
  654.         jnz     @b
  655.         jmp     .spec_done
  656. .done:
  657.         add     esp, 64
  658.         popad
  659.         jmp     con.update_screen
  660. .num_write_char:
  661.         xchg    edi, [esp+20]
  662.         call    con.write_char_ex
  663.         inc     dword [esp+24+12+64+28]
  664.         xchg    edi, [esp+20]
  665.         inc     dword [esp+4]
  666.         ret
  667.  
  668. con.write:
  669. ; esi = string, ebx = length (ebx=-1 for ASCIIZ strings)
  670.         push    edi
  671.         call    con.get_data_ptr
  672.         test    ebx, ebx
  673.         jz      .done
  674. .loop:
  675.         lodsb
  676.         cmp     ebx, -1
  677.         jnz     @f
  678.         test    al, al
  679.         jz      .done
  680. @@:
  681.         call    con.write_char_ex
  682. .next:
  683.         cmp     ebx, -1
  684.         jz      .loop
  685.         dec     ebx
  686.         jnz     .loop
  687. .done:
  688.         pop     edi
  689.         jmp     con.update_screen
  690.  
  691. con.get_data_ptr:
  692.         mov     edi, [con.cur_y]
  693.         imul    edi, [con.scr_width]
  694.         add     edi, [con.cur_x]
  695.         add     edi, edi
  696.         add     edi, [con.data]
  697.         ret
  698.  
  699. con.write_char_ex:
  700.         test    byte [con_flags+1], 1
  701.         jz      con.write_special_char
  702.  
  703. con.write_char:
  704.         push    eax
  705.  
  706.         mov     eax, [con.cur_x]
  707.         cmp     eax, [con.scr_width]
  708.         jb      @f
  709.         and     [con.cur_x], 0
  710.         call    con.newline
  711. @@:
  712.         mov     eax, [esp]
  713.         stosb
  714.         mov     al, byte [con_flags]
  715.         stosb
  716.  
  717.         mov     eax, [con.cur_x]
  718.         inc     eax
  719.         mov     [con.cur_x], eax
  720.  
  721.         pop     eax
  722.         ret
  723.  
  724. con.write_special_char:
  725.         cmp     [con_esc], 0
  726.         jnz     .esc_mode
  727. .normal_mode:
  728.         cmp     al, 10
  729.         jz      .write_lf
  730.         cmp     al, 13
  731.         jz      .write_cr
  732.         cmp     al, 27
  733.         jz      .write_esc
  734.         cmp     al, 8
  735.         jz      .write_bs
  736.         cmp     al, 9
  737.         jnz     con.write_char
  738. .write_tab:
  739.         mov     al, ' '
  740.         call    con.write_char
  741.         test    [con.cur_x], 7
  742.         jnz     .write_tab
  743.         ret
  744. .write_cr:
  745.         and     [con.cur_x], 0
  746.         jmp     con.get_data_ptr
  747. .write_lf:
  748.         and     [con.cur_x], 0
  749.         jmp     con.newline
  750. .write_bs:
  751.         cmp     [con.cur_x], 0
  752.         jz      @f
  753.         dec     [con.cur_x]
  754.         dec     edi
  755.         dec     edi
  756.         ret
  757. @@:
  758.         push    eax
  759.         mov     eax, [con.cur_y]
  760.         dec     eax
  761.         js      @f
  762.         mov     [con.cur_y], eax
  763.         mov     eax, [con.scr_width]
  764.         dec     eax
  765.         mov     [con.cur_x], eax
  766.         dec     edi
  767.         dec     edi
  768. @@:
  769.         pop     eax
  770.         ret
  771. .write_esc:
  772.         mov     [con_esc], 1
  773.         mov     [con_esc_attr_n], 1
  774.         and     [con_esc_attrs], 0
  775.         ret
  776. .esc_mode:
  777.         cmp     [con_sci], 0
  778.         jnz     .esc_sci
  779.         cmp     al, '['
  780.         jnz     @f
  781.         mov     [con_sci], 1
  782.         ret
  783. @@:
  784.         push    eax
  785.         mov     al, 27
  786.         call    con.write_char
  787.         pop     eax
  788.         jmp     con.write_char
  789. .esc_sci:
  790. ; this is real Esc sequence
  791.         cmp     al, ';'
  792.         jz      .next_arg
  793.         cmp     al, '0'
  794.         jb      .not_digit
  795.         cmp     al, '9'
  796.         ja      .not_digit
  797.         push    eax ecx edx
  798.         sub     al, '0'
  799.         movzx   eax, al
  800.         mov     ecx, [con_esc_attr_n]
  801.         mov     edx, [con_esc_attrs+(ecx-1)*4]
  802.         lea     edx, [edx*5]
  803.         lea     edx, [edx*2+eax]
  804.         mov     [con_esc_attrs+(ecx-1)*4], edx
  805.         pop     edx ecx eax
  806.         ret
  807. .next_arg:
  808.         push    eax
  809.         mov     eax, [con_esc_attr_n]
  810.         inc     eax
  811.         cmp     al, 4
  812.         jbe     @f
  813.         dec     eax
  814. @@:
  815.         mov     [con_esc_attr_n], eax
  816.         and     [con_esc_attrs+(eax-1)*4], 0
  817.         pop     eax
  818.         ret
  819. .not_digit:
  820.         mov     [con_esc], 0
  821.         mov     [con_sci], 0    ; in any case, leave Esc mode
  822.         cmp     al, 'J'
  823.         jz      .clear
  824.         cmp     al, 'H'
  825.         jz      .setcursor
  826.         cmp     al, 'f'
  827.         jz      .setcursor
  828.         cmp     al, 'm'
  829.         jz      .set_attr
  830.         cmp     al, 'A'
  831.         jz      .cursor_up
  832.         cmp     al, 'B'
  833.         jz      .cursor_down
  834.         cmp     al, 'C'
  835.         jz      .cursor_right
  836.         cmp     al, 'D'
  837.         jz      .cursor_left
  838.         ret     ; simply skip unknown sequences
  839. .clear:
  840.         mov     eax, [con_esc_attrs]
  841.         test    eax, eax
  842.         jz      .clear_till_end_of_screen       ; <esc>[0J (or <esc>[J)
  843.         dec     eax
  844.         jz      .clear_till_start_of_screen     ; <esc>[1J
  845.         dec     eax
  846.         je      .cls                            ; <esc>[2J
  847.         ret     ; unknown sequence
  848.  
  849. .clear_till_end_of_screen:
  850.         push    edi ecx
  851.         mov     ecx, [con.scr_width]
  852.         imul    ecx, [con.scr_height]
  853.  
  854.         mov     edi, [con.cur_y]
  855.         imul    edi, [con.scr_width]
  856.         add     edi, [con.cur_x]
  857.  
  858.         sub     ecx, edi
  859.         shl     edi, 1
  860.         add     edi, [con.data]
  861.         mov     ah, byte[con_flags]
  862.         mov     al, ' '
  863.         rep     stosw
  864.  
  865.         and     [con.cur_x], 0
  866.         and     [con.cur_y], 0
  867.         pop     ecx edi
  868.         ret
  869.  
  870. .clear_till_start_of_screen:
  871.         push    edi ecx
  872.         mov     ecx, [con.cur_y]
  873.         imul    ecx, [con.scr_width]
  874.         add     ecx, [con.cur_x]
  875.         mov     edi, [con.data]
  876.         mov     ah, byte[con_flags]
  877.         mov     al, ' '
  878.         rep     stosw
  879.         pop     ecx edi
  880.         ret
  881.  
  882. .cls:   ; clear screen completely
  883.         push    ecx
  884.         and     [con.cur_x], 0
  885.         and     [con.cur_y], 0
  886.         mov     edi, [con.data]
  887.         push    edi
  888.         mov     ecx, [con.scr_width]
  889.         imul    ecx, [con.scr_height]
  890.         mov     ax, 0720h
  891.         rep     stosw
  892.         pop     edi ecx
  893. .nosetcursor:
  894.         ret
  895. .setcursor:
  896.         cmp     [con_esc_attr_n], 2
  897.         je      @f
  898.         xor     eax, eax
  899.         mov     [con.cur_x], eax
  900.         mov     [con.cur_y], eax
  901.         jmp     .j_get_data
  902. @@:
  903.         mov     eax, [con_esc_attrs]
  904.         cmp     eax, [con.scr_width]
  905.         jae     @f
  906.         mov     [con.cur_x], eax
  907. @@:
  908.         mov     eax, [con_esc_attrs+4]
  909.         cmp     eax, [con.scr_height+4]
  910.         jae     @f
  911.         mov     [con.cur_y], eax
  912. .j_get_data:
  913.         jmp     con.get_data_ptr
  914. .cursor_up:
  915.         cmp     [con_esc_attr_n], 1
  916.         jnz     .nosetcursor
  917.         mov     eax, [con.cur_y]
  918.         sub     eax, [con_esc_attrs]
  919.         jnc     @f
  920.         xor     eax, eax
  921. @@:
  922.         mov     [con.cur_y], eax
  923.         jmp     .j_get_data
  924. .cursor_down:
  925.         cmp     [con_esc_attr_n], 1
  926.         jnz     .nosetcursor
  927.         mov     eax, [con.cur_y]
  928.         add     eax, [con_esc_attrs]
  929.         cmp     eax, [con.scr_height]
  930.         jb      @f
  931.         mov     eax, [con.scr_height]
  932.         dec     eax
  933. @@:
  934.         mov     [con.cur_y], eax
  935.         jmp     .j_get_data
  936. .cursor_right:
  937.         cmp     [con_esc_attr_n], 1
  938.         jnz     .nosetcursor
  939.         mov     eax, [con.cur_x]
  940.         add     eax, [con_esc_attrs]
  941.         cmp     eax, [con.scr_width]
  942.         jb      @f
  943.         mov     eax, [con.scr_width]
  944.         dec     eax
  945. @@:
  946.         mov     [con.cur_x], eax
  947.         jmp     .j_get_data
  948. .cursor_left:
  949.         cmp     [con_esc_attr_n], 1
  950.         jnz     .nosetcursor
  951.         mov     eax, [con.cur_x]
  952.         sub     eax, [con_esc_attrs]
  953.         jnc     @f
  954.         xor     eax, eax
  955. @@:
  956.         mov     [con.cur_x], eax
  957.         jmp     .j_get_data
  958. .set_attr:
  959.         push    eax ecx edx
  960.         xor     ecx, ecx
  961. .set_one_attr:
  962.         mov     eax, [con_esc_attrs+ecx*4]
  963.         cmp     al, 0
  964.         jz      .attr_normal
  965.         cmp     al, 1
  966.         jz      .attr_bold
  967.         cmp     al, 5
  968.         jz      .attr_bgr_bold
  969.         cmp     al, 7
  970.         jz      .attr_reversed
  971.  
  972.         xor     edx, edx
  973.         cmp     al, 30
  974.         jz      .attr_color
  975.         mov     dl, 4
  976.         cmp     al, 31
  977.         jz      .attr_color
  978.         mov     dl, 2
  979.         cmp     al, 32
  980.         jz      .attr_color
  981.         mov     dl, 6
  982.         cmp     al, 33
  983.         jz      .attr_color
  984.         mov     dl, 1
  985.         cmp     al, 34
  986.         jz      .attr_color
  987.         mov     dl, 5
  988.         cmp     al, 35
  989.         jz      .attr_color
  990.         mov     dl, 3
  991.         cmp     al, 36
  992.         jz      .attr_color
  993.         mov     dl, 7
  994.         cmp     al, 37
  995.         jz      .attr_color
  996.  
  997.         xor     edx, edx
  998.         cmp     al, 40
  999.         jz      .attr_bgr_color
  1000.         mov     dl, 0x40
  1001.         cmp     al, 41
  1002.         jz      .attr_bgr_color
  1003.         mov     dl, 0x20
  1004.         cmp     al, 42
  1005.         jz      .attr_bgr_color
  1006.         mov     dl, 0x60
  1007.         cmp     al, 43
  1008.         jz      .attr_bgr_color
  1009.         mov     dl, 0x10
  1010.         cmp     al, 44
  1011.         jz      .attr_bgr_color
  1012.         mov     dl, 0x50
  1013.         cmp     al, 45
  1014.         jz      .attr_bgr_color
  1015.         mov     dl, 0x30
  1016.         cmp     al, 46
  1017.         jz      .attr_bgr_color
  1018.         mov     dl, 0x70
  1019.         cmp     al, 47
  1020.         jz      .attr_bgr_color
  1021.  
  1022.         mov     dl, 0x08
  1023.         cmp     al, 90
  1024.         jz      .attr_color
  1025.         mov     dl, 4 + 8
  1026.         cmp     al, 91
  1027.         jz      .attr_color
  1028.         mov     dl, 2 + 8
  1029.         cmp     al, 92
  1030.         jz      .attr_color
  1031.         mov     dl, 6 + 8
  1032.         cmp     al, 93
  1033.         jz      .attr_color
  1034.         mov     dl, 1 + 8
  1035.         cmp     al, 94
  1036.         jz      .attr_color
  1037.         mov     dl, 5 + 8
  1038.         cmp     al, 95
  1039.         jz      .attr_color
  1040.         mov     dl, 3 + 8
  1041.         cmp     al, 96
  1042.         jz      .attr_color
  1043.         mov     dl, 7 + 8
  1044.         cmp     al, 97
  1045.         jz      .attr_color
  1046.  
  1047.         mov     dl, 0x80
  1048.         cmp     al, 100
  1049.         jz      .attr_bgr_color
  1050.         mov     dl, 0x80 + 0x40
  1051.         cmp     al, 101
  1052.         jz      .attr_bgr_color
  1053.         mov     dl, 0x80 + 0x20
  1054.         cmp     al, 102
  1055.         jz      .attr_bgr_color
  1056.         mov     dl, 0x80 + 0x60
  1057.         cmp     al, 103
  1058.         jz      .attr_bgr_color
  1059.         mov     dl, 0x80 + 0x10
  1060.         cmp     al, 104
  1061.         jz      .attr_bgr_color
  1062.         mov     dl, 0x80 + 0x50
  1063.         cmp     al, 105
  1064.         jz      .attr_bgr_color
  1065.         mov     dl, 0x80 + 0x30
  1066.         cmp     al, 106
  1067.         jz      .attr_bgr_color
  1068.         mov     dl, 0x80 + 0x70
  1069.         cmp     al, 107
  1070.         jnz     .attr_continue
  1071.  
  1072. .attr_bgr_color:
  1073.         mov     eax, [con_flags]
  1074.         and     al, 0x0F
  1075.         or      al, dl
  1076.         mov     [con_flags], eax
  1077.         jmp     .attr_continue
  1078. .attr_color:
  1079.         mov     eax, [con_flags]
  1080.         and     al, 0xF0
  1081.         or      al, dl
  1082.         mov     [con_flags], eax
  1083.         jmp     .attr_continue
  1084. .attr_normal:
  1085.         mov     byte [con_flags], 7
  1086.         jmp     .attr_continue
  1087. .attr_reversed:
  1088.         mov     byte [con_flags], 0x70
  1089.         jmp     .attr_continue
  1090. .attr_bold:
  1091.         or      byte [con_flags], 8
  1092.         jmp     .attr_continue
  1093. .attr_bgr_bold:
  1094.         or      byte [con_flags], 0x80
  1095. .attr_continue:
  1096.         inc     ecx
  1097.         cmp     ecx, [con_esc_attr_n]
  1098.         jb      .set_one_attr
  1099.         pop     edx ecx eax
  1100.         ret
  1101.  
  1102. con.newline:
  1103.         mov     eax, [con.cur_y]
  1104.         inc     eax
  1105.         mov     [con.cur_y], eax
  1106.         cmp     eax, [con.scr_height]
  1107.         jb      @f
  1108.         call    con.scr_scroll_up
  1109. @@:
  1110.         call    con.get_data_ptr
  1111.         ret
  1112.  
  1113. con.scr_scroll_up:
  1114.         pushad
  1115.         mov     edi, [con.data]
  1116.         mov     esi, edi
  1117.         add     esi, [con.scr_width]
  1118.         add     esi, [con.scr_width]
  1119.         dec     [con.cur_y]
  1120.         mov     ecx, [con.scr_height]
  1121.         dec     ecx
  1122.         imul    ecx, [con.scr_width]
  1123.         shr     ecx, 1
  1124.         rep     movsd
  1125.         adc     ecx, ecx
  1126.         rep     movsw
  1127.         mov     ax, 0x0720
  1128.         mov     ecx, [con.scr_width]
  1129.         rep     stosw
  1130.         popad
  1131.         ret
  1132.  
  1133. con.data2image:
  1134.         pushad
  1135.         mov     edi, [con.image]
  1136.         mov     esi, [con.data]
  1137.         mov     eax, [con.wnd_ypos]
  1138.         mul     [con.scr_width]
  1139.         add     eax, [con.wnd_xpos]
  1140.         lea     esi, [esi+eax*2]
  1141.         mov     ecx, [con.wnd_height]
  1142. .lh:
  1143.         push    ecx
  1144.         mov     ecx, [con.wnd_width]
  1145. .lw:
  1146.         push    ecx edi
  1147.         xor     eax, eax
  1148.         mov     al, [esi+1]
  1149.         push    eax
  1150.         and     al, 0xF
  1151.         mov     ebx, eax                ; 梥â ⥪áâ 
  1152.         pop     eax
  1153.         shr     al, 4
  1154.         mov     ebp, eax                ; 梥â ä®­ 
  1155.         sub     ebx, ebp
  1156.         lodsb
  1157.         inc     esi
  1158. if font_width > 8
  1159.         lea     edx, [eax+eax+font]
  1160. else
  1161.         lea     edx, [eax+font]
  1162. end if
  1163. .sh:
  1164.         mov     ecx, [edx]
  1165. repeat font_width
  1166.         shr     ecx, 1
  1167.         sbb     eax, eax
  1168.         and     eax, ebx
  1169.         add     eax, ebp
  1170.         mov     [edi+%-1], al
  1171. end repeat
  1172.         mov     eax, [con.wnd_width]
  1173. ;        imul    eax, font_width
  1174. ;        add     edi, eax
  1175. if font_width = 6
  1176.         lea     eax, [eax*2+eax]
  1177.         lea     edi, [edi+eax*2]
  1178. else if font_width = 7
  1179.         lea     edi, [edi+eax*8]
  1180.         sub     edi, eax
  1181. else if font_width = 8
  1182.         lea     edi, [edi+eax*8]
  1183. else if font_width = 9
  1184.         lea     edi, [edi+eax*8]
  1185.         add     edi, eax
  1186. else if font_width = 10
  1187.         lea     eax, [eax*4+eax]
  1188.         lea     edi, [edi+eax*2]
  1189. else
  1190. Unknown font_width value!
  1191. end if
  1192. if font_width > 8
  1193.         add     edx, 256*2
  1194.         cmp     edx, font+256*2*font_height
  1195. else
  1196.         add     edx, 256
  1197.         cmp     edx, font+256*font_height
  1198. end if
  1199.         jb      .sh
  1200.         pop     edi ecx
  1201.         add     edi, font_width
  1202.         sub     ecx, 1
  1203.         jnz     .lw
  1204.         mov     eax, [con.wnd_width]
  1205.         imul    eax, (font_height-1)*font_width
  1206.         add     edi, eax
  1207.         pop     ecx
  1208.         mov     eax, [con.scr_width]
  1209.         sub     eax, [con.wnd_width]
  1210.         lea     esi, [esi+eax*2]
  1211.         dec     ecx
  1212.         jnz     .lh
  1213.         mov     eax, [con.cur_y]
  1214.         sub     eax, [con.wnd_ypos]
  1215.         jb      .nocursor
  1216.         cmp     eax, [con.wnd_height]
  1217.         jae     .nocursor
  1218.         inc     eax
  1219.         mul     [con.wnd_width]
  1220.         imul    eax, font_height*font_width
  1221.         mov     edx, [con.cur_x]
  1222.         sub     edx, [con.wnd_xpos]
  1223.         jb      .nocursor
  1224.         cmp     edx, [con.wnd_width]
  1225.         jae     .nocursor
  1226.         inc     edx
  1227.         imul    edx, font_width
  1228.         add     eax, edx
  1229.         add     eax, [con.image]
  1230.         mov     edx, [con.wnd_width]
  1231.         imul    edx, font_width
  1232.         neg     edx
  1233.         mov     ecx, [con.cursor_height]
  1234.         jecxz   .nocursor
  1235. .cursor_loop:
  1236.         push    ecx
  1237.         mov     ecx, font_width
  1238.         add     eax, edx
  1239.         push    eax
  1240. @@:
  1241.         xor     byte [eax-1], 7
  1242.         dec     eax
  1243.         loop    @b
  1244.         pop     eax
  1245.         pop     ecx
  1246.         loop    .cursor_loop
  1247. .nocursor:
  1248.         popad
  1249.         ret
  1250.  
  1251. con_exit:
  1252.         cmp     byte [esp+4], 0
  1253.         jz      .noexit
  1254.         mov     [con.thread_op], 1
  1255.         call    con.wake
  1256.         ret     4
  1257. .noexit:
  1258.         push    esi
  1259.         mov     esi, [con.title]
  1260.         mov     edx, con.finished_title
  1261.         mov     ecx, 255
  1262.         call    .strcpy
  1263.         mov     esi, con.aFinished
  1264.         call    .strcpy
  1265.         mov     byte [edx], 0
  1266.         pop     esi
  1267.         and     [con.cursor_height], 0
  1268.         push    con.finished_title
  1269.         call    con_set_title
  1270.         ret     4
  1271. .strcpy:
  1272.         jecxz   .ret
  1273. @@:
  1274.         lodsb
  1275.         test    al, al
  1276.         jz      .ret
  1277.         mov     [edx], al
  1278.         inc     edx
  1279.         loop    @b
  1280. .ret:
  1281.         ret
  1282.  
  1283. con_set_title:
  1284.         mov     eax, [esp+4]
  1285.         mov     [con.title], eax
  1286.         mov     [con.thread_op], 2
  1287.         call    con.wake
  1288.         ret     4
  1289.  
  1290. ; int __stdcall con_kbhit(void);
  1291. con_kbhit:
  1292.         test    byte [con_flags+1], 2
  1293.         jnz     @f
  1294.         mov     eax, [con.input_start]
  1295.         cmp     eax, [con.input_end]
  1296. @@:
  1297.         setnz   al
  1298.         movzx   eax, al
  1299.         ret
  1300.  
  1301. con.force_entered_char:
  1302.         cmp     [con.entered_char], -1
  1303.         jnz     .ret
  1304.         mov     [con.thread_op], 4
  1305.         call    con.wake
  1306.         test    byte [con_flags+1], 2
  1307.         jnz     .ret
  1308. ; wait for response
  1309.         push    ebx
  1310.         push    5
  1311.         pop     eax
  1312.         push    2
  1313.         pop     ebx
  1314. @@:
  1315.         int     0x40
  1316.         cmp     [con.entered_char], -1
  1317.         jz      @b
  1318.         pop     ebx
  1319. .ret:
  1320.         ret
  1321.  
  1322. ; int __stdcall con_getch(void);
  1323. con_getch:
  1324.         call    con.force_entered_char
  1325.         test    byte [con_flags+1], 2
  1326.         jnz     con_getch_closed
  1327.         movzx   eax, byte [con.entered_char]
  1328.         sar     [con.entered_char], 8
  1329.         mov     byte [con.entered_char+1], 0xFF
  1330.         test    al, al
  1331.         jz      @f
  1332.         mov     byte [con.entered_char], 0xFF
  1333. @@:
  1334.         ret
  1335.  
  1336. con_getch_closed:
  1337.         xor     eax, eax
  1338.         ret
  1339.  
  1340. ; int __stdcall con_getch2(void);
  1341. con_getch2:
  1342.         call    con.force_entered_char
  1343.         test    byte [con_flags+1], 2
  1344.         jnz     con_getch_closed
  1345.         mov     eax, 0xFFFF
  1346.         xchg    ax, [con.entered_char]
  1347.         ret
  1348.  
  1349. ; char* __stdcall con_gets(char* str, int n);
  1350. con_gets:
  1351.         pop     eax
  1352.         push    0
  1353.         push    eax
  1354. ; char* __stdcall con_gets2(con_gets2_callback callback, char* str, int n);
  1355. con_gets2:
  1356.         mov     eax, [esp+8]            ; str
  1357.         pushad
  1358.         mov     esi, eax                ; str
  1359.         mov     ebx, [esp+20h+12]       ; n
  1360.         sub     ebx, 1
  1361.         jle     .ret
  1362.         mov     byte [esi], 0
  1363.         xor     ecx, ecx                ; ¤«¨­  㦥 ¢¢¥¤ñ­­®© áâப¨
  1364.         call    con.get_data_ptr
  1365. .loop:
  1366.         call    con_getch2
  1367.         test    al, al
  1368.         jz      .extended
  1369.         cmp     al, 8
  1370.         jz      .backspace
  1371.         cmp     al, 27
  1372.         jz      .esc
  1373.         cmp     al, 13
  1374.         jz      .enter
  1375.         cmp     al, 9
  1376.         jz      .tab
  1377.         inc     ecx
  1378.         mov     dl, al
  1379.         call    con.write_char_ex
  1380.         push    [con.cur_x]
  1381.         push    [con.cur_y]
  1382.         push    edi
  1383.         push    esi
  1384. @@:
  1385.         lodsb
  1386.         mov     [esi-1], dl
  1387.         mov     dl, al
  1388.         test    al, al
  1389.         jz      @f
  1390.         call    con.write_char_ex
  1391.         jmp     @b
  1392. @@:
  1393.         mov     [esi], dl
  1394.         pop     esi
  1395.         inc     esi
  1396.         pop     edi
  1397.         pop     [con.cur_y]
  1398.         pop     [con.cur_x]
  1399. .update_screen_and_loop:
  1400.         call    con.update_screen
  1401.         cmp     ecx, ebx
  1402.         jb      .loop
  1403. .ret_us:
  1404.         mov     edx, [con.cur_x]
  1405. @@:
  1406.         lodsb
  1407.         test    al, al
  1408.         jz      @f
  1409.         inc     edx
  1410.         cmp     edx, [con.scr_width]
  1411.         jb      @b
  1412.         xor     edx, edx
  1413.         call    con.newline
  1414.         jmp     @b
  1415. @@:
  1416.         mov     [con.cur_x], edx
  1417.         call    con.get_data_ptr
  1418.         call    con.update_screen
  1419.         jmp     .ret
  1420. .esc:
  1421.         mov     edx, [con.cur_x]
  1422. @@:
  1423.         lodsb
  1424.         test    al, al
  1425.         jz      @f
  1426.         inc     edx
  1427.         cmp     edx, [con.scr_width]
  1428.         jb      @b
  1429.         xor     edx, edx
  1430.         call    con.newline
  1431.         jmp     @b
  1432. @@:
  1433.         mov     [con.cur_x], edx
  1434.         call    con.get_data_ptr
  1435.         dec     esi
  1436.         xor     ecx, ecx
  1437. @@:
  1438.         mov     byte [esi], 0
  1439.         cmp     esi, [esp+20h+8]
  1440.         jbe     .update_screen_and_loop
  1441.         mov     al, 8
  1442.         call    con.write_special_char
  1443.         mov     al, ' '
  1444.         call    con.write_char
  1445.         mov     al, 8
  1446.         call    con.write_special_char
  1447.         dec     esi
  1448.         jmp     @b
  1449. .delete:
  1450.         cmp     byte [esi], 0
  1451.         jz      .loop
  1452.         lodsb
  1453.         call    con.write_char_ex
  1454. .backspace:
  1455.         cmp     esi, [esp+20h+8]
  1456.         jbe     .loop
  1457.         push    esi
  1458.         mov     edx, [con.cur_x]
  1459. @@:
  1460.         lodsb
  1461.         test    al, al
  1462.         jz      @f
  1463.         inc     edx
  1464.         cmp     edx, [con.scr_width]
  1465.         jb      @b
  1466.         xor     edx, edx
  1467.         call    con.newline
  1468.         jmp     @b
  1469. @@:
  1470.         mov     [con.cur_x], edx
  1471.         call    con.get_data_ptr
  1472.         dec     esi
  1473.         mov     al, 8
  1474.         call    con.write_special_char
  1475.         mov     al, ' '
  1476.         call    con.write_char
  1477.         mov     al, 8
  1478.         call    con.write_special_char
  1479.         mov     dl, 0
  1480. @@:
  1481.         cmp     esi, [esp]
  1482.         jbe     @f
  1483.         mov     al, 8
  1484.         call    con.write_special_char
  1485.         dec     esi
  1486.         xchg    dl, [esi]
  1487.         mov     al, dl
  1488.         call    con.write_char
  1489.         mov     al, 8
  1490.         call    con.write_special_char
  1491.         jmp     @b
  1492. @@:
  1493.         pop     esi
  1494.         dec     esi
  1495.         mov     [esi], dl
  1496.         dec     ecx
  1497.         jmp     .update_screen_and_loop
  1498. .enter:
  1499.         mov     edx, [con.cur_x]
  1500. @@:
  1501.         lodsb
  1502.         test    al, al
  1503.         jz      @f
  1504.         inc     edx
  1505.         cmp     edx, [con.scr_width]
  1506.         jb      @b
  1507.         xor     edx, edx
  1508.         call    con.newline
  1509.         jmp     @b
  1510. @@:
  1511.         mov     [con.cur_x], edx
  1512.         call    con.get_data_ptr
  1513.         mov     al, 10
  1514.         mov     [esi-1], al
  1515.         mov     byte [esi], 0
  1516.         call    con.write_special_char
  1517.         call    con.update_screen
  1518.         jmp     .ret
  1519. .tab:
  1520.         mov     al, 0
  1521.         mov     ah, 0xF
  1522. .extended:
  1523.         test    ah, ah
  1524.         jz      .closed
  1525.         xchg    al, ah
  1526.         cmp     al, 0x4B
  1527.         jz      .left
  1528.         cmp     al, 0x4D
  1529.         jz      .right
  1530.         cmp     al, 0x47
  1531.         jz      .home
  1532.         cmp     al, 0x4F
  1533.         jz      .end
  1534.         cmp     al, 0x53
  1535.         jz      .delete
  1536. ; give control to callback function
  1537.         cmp     dword [esp+20h+4], 0
  1538.         jz      .loop
  1539. ; remember length of text before and length of text after
  1540. ; and advance cursor to the end of line
  1541.         push    ecx
  1542.         push    eax
  1543.         lea     edx, [esi+1]
  1544. @@:
  1545.         lodsb
  1546.         test    al, al
  1547.         jz      @f
  1548.         call    con.write_char_ex
  1549.         jmp     @b
  1550. @@:
  1551.         sub     esi, edx
  1552.         pop     eax
  1553.         push    esi
  1554.         dec     edx
  1555.         sub     edx, [esp+28h+8]
  1556.         push    edx
  1557.         push    esp             ; ppos
  1558.         mov     ecx, [esp+30h+4]
  1559.         lea     edx, [esp+30h+12]
  1560.         push    edx             ; pn
  1561.         lea     edx, [esp+34h+8]
  1562.         push    edx             ; pstr
  1563.         push    eax             ; keycode
  1564.         call    ecx
  1565.         call    con.get_data_ptr
  1566.         dec     eax
  1567.         js      .callback_nochange
  1568.         jz      .callback_del
  1569.         dec     eax
  1570.         jz      .callback_output
  1571. ; callback returned 2 - exit
  1572.         add     esp, 12
  1573.         jmp     .ret
  1574. .callback_nochange:
  1575. ; callback returned 0 - string was not changed, only restore cursor position
  1576.         pop     esi
  1577.         pop     ecx
  1578.         test    ecx, ecx
  1579.         jz      .cncs
  1580. @@:
  1581.         mov     al, 8
  1582.         call    con.write_special_char
  1583.         loop    @b
  1584. .cncs:
  1585.         pop     ecx
  1586.         add     esi, [esp+20h+8]
  1587.         jmp     .callback_done
  1588. .callback_del:
  1589. ; callback returned 1 - string was changed, delete old string and output new
  1590.         mov     ecx, [esp+8]
  1591.         test    ecx, ecx
  1592.         jz      .cds
  1593. @@:
  1594.         mov     al, 8
  1595.         call    con.write_special_char
  1596.         mov     al, ' '
  1597.         call    con.write_char_ex
  1598.         mov     al, 8
  1599.         call    con.write_special_char
  1600.         loop    @b
  1601. .cds:
  1602. .callback_output:
  1603. ; callback returned 2 - string was changed, output new string
  1604.         pop     edx
  1605.         pop     esi
  1606.         pop     ecx
  1607.         mov     esi, [esp+20h+8]
  1608.         xor     ecx, ecx
  1609. @@:
  1610.         lodsb
  1611.         test    al, al
  1612.         jz      @f
  1613.         call    con.write_char_ex
  1614.         inc     ecx
  1615.         jmp     @b
  1616. @@:
  1617.         dec     esi
  1618.         push    ecx
  1619.         sub     ecx, edx
  1620.         jz      .cos
  1621. @@:
  1622.         mov     al, 8
  1623.         call    con.write_special_char
  1624.         dec     esi
  1625.         loop    @b
  1626. .cos:
  1627.         pop     ecx
  1628. .callback_done:
  1629.         call    con.update_screen
  1630.         mov     ebx, [esp+20h+12]
  1631.         dec     ebx
  1632.         cmp     ecx, ebx
  1633.         jae     .ret_us
  1634.         jmp     .loop
  1635. .left:
  1636.         cmp     esi, [esp+20h+8]
  1637.         jbe     .loop
  1638.         dec     esi
  1639.         mov     al, 8
  1640.         call    con.write_special_char
  1641.         jmp     .update_screen_and_loop
  1642. .right:
  1643.         cmp     byte [esi], 0
  1644.         jz      .loop
  1645.         lodsb
  1646.         call    con.write_char_ex
  1647.         jmp     .update_screen_and_loop
  1648. .home:
  1649.         cmp     esi, [esp+20h+8]
  1650.         jz      .update_screen_and_loop
  1651.         dec     esi
  1652.         mov     al, 8
  1653.         call    con.write_special_char
  1654.         jmp     .home
  1655. .end:
  1656.         lodsb
  1657.         test    al, al
  1658.         jz      @f
  1659.         call    con.write_char_ex
  1660.         jmp     .end
  1661. @@:
  1662.         dec     esi
  1663.         jmp     .update_screen_and_loop
  1664. .closed:
  1665.         and     dword [esp+1Ch], 0
  1666. .ret:
  1667.         popad
  1668.         ret     12
  1669.  
  1670. ; void __stdcall con_cls();
  1671. con_cls:
  1672.         push    edi
  1673.         call    con.write_special_char.cls
  1674.         pop     edi
  1675.         call    con.update_screen
  1676.         ret
  1677.  
  1678. ; void __stdcall con_get_cursor_pos(int* px, int* py);
  1679. con_get_cursor_pos:
  1680.         push    eax ecx
  1681.         mov     eax, [esp+12]
  1682.         mov     ecx, [con.cur_x]
  1683.         mov     [eax], ecx
  1684.         mov     eax, [esp+16]
  1685.         mov     ecx, [con.cur_y]
  1686.         mov     [eax], ecx
  1687.         pop     ecx eax
  1688.         ret     8
  1689.  
  1690. ; void __stdcall con_set_cursor_pos(int px, int py);
  1691. con_set_cursor_pos:
  1692.         push    eax
  1693.         mov     eax, [esp+8]
  1694.         cmp     eax, [con.scr_width]
  1695.         jae     @f
  1696.         mov     [con.cur_x], eax
  1697. @@:
  1698.         mov     eax, [esp+12]
  1699.         cmp     eax, [con.scr_height]
  1700.         jae     @f
  1701.         mov     [con.cur_y], eax
  1702. @@:
  1703.         pop     eax
  1704.         call    con.update_screen
  1705.         ret     8
  1706.  
  1707. con.update_screen:
  1708.         push    eax
  1709.         mov     eax, [con.cur_y]
  1710.         sub     eax, [con.wnd_ypos]
  1711.         jb      .up
  1712.         cmp     eax, [con.wnd_height]
  1713.         jb      .done
  1714.         mov     eax, [con.cur_y]
  1715.         sub     eax, [con.wnd_height]
  1716.         inc     eax
  1717.         jmp     .set
  1718. .up:
  1719.         mov     eax, [con.cur_y]
  1720. .set:
  1721.         mov     [con.wnd_ypos], eax
  1722. .done:
  1723.         pop     eax
  1724.         mov     [con.thread_op], 3
  1725.  
  1726. con.wake:
  1727.         pushad
  1728.         mov     al, [con.thread_op]
  1729.         cmp     al, byte [con.ipc_buf+0x10]
  1730.         jz      .ret
  1731. @@:
  1732.         push    60
  1733.         pop     eax
  1734.         push    2
  1735.         pop     ebx
  1736.         mov     ecx, [con.console_tid]
  1737.         jecxz   .ret
  1738.         mov     edx, con.thread_op
  1739.         push    1
  1740.         pop     esi
  1741.         int     0x40
  1742.         test    eax, eax
  1743.         jz      @f
  1744.         push    5
  1745.         pop     eax
  1746.         mov     bl, 1
  1747.         int     0x40
  1748.         jmp     @b
  1749. @@:
  1750. .ret:
  1751.         popad
  1752.         ret
  1753.  
  1754. ; ®â®ª ®ª­  ª®­á®«¨. Ž¡à ¡ â뢠¥â ¢¢®¤ ¨ ¢ë¢®¤.
  1755. con.thread:
  1756. ; ®â®ª ॠ£¨àã¥â ­  IPC, ª®â®à®¥ ¨á¯®«ì§ã¥âáï ⮫쪮 ¤«ï ⮣®, çâ®¡ë ¥£® ¬®¦­® ¡ë«® "à §¡ã¤¨âì"
  1757.         push    40
  1758.         pop     eax
  1759.         push    0x67
  1760.         pop     ebx
  1761.         int     0x40
  1762.         mov     al, 60
  1763.         mov     bl, 1
  1764.         mov     ecx, con.ipc_buf
  1765.         push    0x11
  1766.         pop     edx
  1767.         int     0x40
  1768.         mov     al, 66
  1769.         mov     bl, 1
  1770.         mov     ecx, ebx
  1771.         int     0x40
  1772. con.redraw:
  1773.         call    con.draw_window
  1774. con.msg_loop:
  1775.         cmp     dword [con.bUpPressed], 0
  1776.         jnz     .wait_timeout
  1777.         push    10
  1778.         pop     eax
  1779.         jmp     @f
  1780. .wait_timeout:
  1781.         push    23
  1782.         pop     eax
  1783.         push    5
  1784.         pop     ebx
  1785. @@:
  1786.         int     0x40
  1787.         dec     eax
  1788.         jz      con.redraw
  1789.         dec     eax
  1790.         jz      con.key
  1791.         dec     eax
  1792.         jz      con.button
  1793.         cmp     al, 4
  1794.         jz      con.ipc
  1795.         jmp     con.mouse
  1796. con.button:
  1797. ; we have only one button, close
  1798. con.thread_exit:
  1799.         or      byte [con_flags+1], 2
  1800.         and     [con.console_tid], 0
  1801.         and     [con.entered_char], 0
  1802.         or      eax, -1
  1803.         int     0x40
  1804. con.key:
  1805.         mov     al, 2
  1806.         int     0x40
  1807. ; ah = scancode
  1808.         cmp     ah, 0xE0
  1809.         jnz     @f
  1810.         mov     [con.bWasE0], 1
  1811.         jmp     con.msg_loop
  1812. @@:
  1813.         shr     eax, 8
  1814.         xchg    ah, [con.bWasE0]
  1815.         test    al, al
  1816.         jle     con.msg_loop
  1817.         cmp     al, 0x1D
  1818.         jz      con.msg_loop
  1819.         cmp     al, 0x2A
  1820.         jz      con.msg_loop
  1821.         cmp     al, 0x36
  1822.         jz      con.msg_loop
  1823.         cmp     al, 0x38
  1824.         jz      con.msg_loop
  1825.         cmp     al, 0x3A
  1826.         jz      con.msg_loop
  1827.         cmp     al, 0x45
  1828.         jz      con.msg_loop
  1829.         cmp     al, 0x46
  1830.         jz      con.msg_loop
  1831.         mov     edx, eax
  1832.         push    66
  1833.         pop     eax
  1834.         push    3
  1835.         pop     ebx
  1836.         int     0x40    ; eax = control key state
  1837.         test    dh, dh
  1838.         jnz     .extended
  1839.         bt      [scan_has_ascii], edx
  1840.         jnc     .extended
  1841.         test    al, 0x30
  1842.         jnz     .extended
  1843. ; key has ASCII code
  1844.         push    eax edx
  1845.         push    2
  1846.         pop     ecx
  1847.         test    al, 3
  1848.         jnz     @f
  1849.         dec     ecx
  1850. @@:
  1851.         push    26
  1852.         pop     eax
  1853.         mov     bl, 2
  1854.         mov     edx, con.kbd_layout
  1855.         int     0x40
  1856.         pop     edx eax
  1857.         mov     dh, [con.kbd_layout+edx]
  1858.         test    al, 0xC
  1859.         jz      @f
  1860.         sub     dh, 0x60
  1861.         jmp     @f
  1862. .extended:
  1863.         mov     dh, 0   ; no ASCII code
  1864. @@:
  1865. ; dh contains ASCII-code; now convert scancode to extended key code
  1866.         mov     ecx, con.extended_alt
  1867.         test    al, 0x30
  1868.         jnz     .xlat
  1869.         mov     ecx, con.extended_shift
  1870.         test    al, 3
  1871.         jnz     .xlat
  1872.         mov     ecx, con.extended_ctrl
  1873.         test    al, 0xC
  1874.         jnz     .xlat
  1875.         xchg    dl, dh
  1876.         cmp     dh, 0x57
  1877.         jz      @f
  1878.         cmp     dh, 0x58
  1879.         jnz     .gotcode
  1880. @@:
  1881.         add     dh, 0x85-0x57
  1882.         jmp     .gotcode
  1883. .xlat:
  1884.         movzx   eax, dl
  1885.         mov     dl, dh
  1886.         mov     dh, [eax+ecx]
  1887. .gotcode:
  1888.         test    dh, dh
  1889.         jz      con.msg_loop
  1890.         cmp     dh, 0x94
  1891.         jnz     @f
  1892.         mov     dl, 0
  1893. @@:
  1894. ; dx contains full keycode
  1895.         cmp     [con.bGetchRequested], 0
  1896.         jz      @f
  1897.         mov     [con.entered_char], dx
  1898.         jmp     con.msg_loop
  1899. @@:
  1900.         mov     eax, [con.input_end]
  1901.         mov     ecx, eax
  1902.         add     eax, 2
  1903.         cmp     eax, con.input_buffer_end
  1904.         jnz     @f
  1905.         mov     eax, con.input_buffer
  1906. @@:
  1907.         cmp     eax, [con.input_start]
  1908.         jnz     @f
  1909. ; buffer overflow, make beep and continue
  1910.         push    55
  1911.         pop     eax
  1912.         mov     ebx, eax
  1913.         mov     esi, con.beep
  1914.         int     0x40
  1915.         jmp     con.msg_loop
  1916. @@:
  1917.         mov     [ecx], dx
  1918.         mov     [con.input_end], eax
  1919.         jmp     con.msg_loop
  1920. con.ipc:
  1921.         movzx   eax, byte [con.ipc_buf+0x10]
  1922.         mov     byte [con.ipc_buf+4], 8
  1923.         mov     byte [con.ipc_buf+0x10], 0
  1924.         dec     eax
  1925.         jz      con.thread_exit
  1926.         dec     eax
  1927.         jz      con.set_title
  1928.         dec     eax
  1929.         jz      con.redraw_image
  1930.         dec     eax
  1931.         jz      con.getch
  1932.         jmp     con.msg_loop
  1933. con.set_title:
  1934.         push    71
  1935.         pop     eax
  1936.         push    1
  1937.         pop     ebx
  1938.         mov     ecx, [con.title]
  1939.         int     0x40
  1940.         jmp     con.msg_loop
  1941. con.redraw_image:
  1942.         call    con.data2image
  1943.         call    con.draw_image
  1944.         jmp     con.msg_loop
  1945. con.getch:
  1946.         mov     eax, [con.input_start]
  1947.         cmp     eax, [con.input_end]
  1948.         jz      .noinput
  1949.         mov     ecx, [eax]
  1950.         mov     [con.entered_char], cx
  1951.         inc     eax
  1952.         inc     eax
  1953.         cmp     eax, con.input_buffer_end
  1954.         jnz     @f
  1955.         mov     eax, con.input_buffer
  1956. @@:
  1957.         mov     [con.input_start], eax
  1958.         jmp     con.msg_loop
  1959. .noinput:
  1960.         mov     [con.bGetchRequested], 1
  1961.         jmp     con.msg_loop
  1962. con.mouse:
  1963.         xor     eax, eax
  1964.         xchg    eax, dword [con.bUpPressed]
  1965.         mov     dword [con.bUpPressed_saved], eax
  1966.         push    37
  1967.         pop     eax
  1968.         push    2
  1969.         pop     ebx
  1970.         int     0x40
  1971.         test    al, 1
  1972.         jnz     @f
  1973.         cmp     [con.vscroll_pt], -1
  1974.         jz      .redraw_if_needed
  1975.         or      [con.vscroll_pt], -1
  1976. .redraw_if_needed:
  1977.         cmp     dword [con.bUpPressed_saved], 0
  1978.         jnz     con.redraw_image
  1979.         jmp     con.msg_loop
  1980. @@:
  1981.         mov     al, 37
  1982.         dec     ebx
  1983.         int     0x40
  1984.         movsx   ebx, ax
  1985.         sar     eax, 16
  1986.         cmp     [con.vscroll_pt], -1
  1987.         jnz     .vscrolling
  1988.         test    ebx, ebx
  1989.         js      .redraw_if_needed
  1990.         sub     ax, [con.data_width]
  1991.         jb      .redraw_if_needed
  1992.         cmp     eax, con.vscroll_width
  1993.         jae     .redraw_if_needed
  1994.         cmp     ebx, con.vscroll_btn_height
  1995.         jb      .up
  1996.         sub     bx, [con.data_height]
  1997.         jae     .redraw_if_needed
  1998.         cmp     bx, -con.vscroll_btn_height
  1999.         jge     .down
  2000.         add     bx, [con.data_height]
  2001.         sub     bx, word [con.vscrollbar_pos]
  2002.         jl      .vscroll_up
  2003.         cmp     bx, word [con.vscrollbar_size]
  2004.         jl      .vscroll
  2005. .vscroll_down:
  2006.         cmp     [con.bScrollingDown_saved], 0
  2007.         jz      .vscroll_down_first
  2008.         cmp     [con.bScrollingDown_saved], 1
  2009.         jz      .vscroll_down_wasfirst
  2010.         mov     [con.bScrollingDown], 2
  2011. .vscroll_down_do:
  2012.         mov     eax, [con.wnd_ypos]
  2013.         add     eax, [con.wnd_height]
  2014.         dec     eax
  2015.         mov     ebx, [con.scr_height]
  2016.         sub     ebx, [con.wnd_height]
  2017.         cmp     eax, ebx
  2018.         jb      @f
  2019.         mov     eax, ebx
  2020. @@:
  2021.         mov     [con.wnd_ypos], eax
  2022.         jmp     con.redraw_image
  2023. .vscroll_down_first:
  2024.         push    26
  2025.         pop     eax
  2026.         push    9
  2027.         pop     ebx
  2028.         int     0x40
  2029.         mov     [con.scroll_down_first_time], eax
  2030.         mov     [con.bScrollingDown], 1
  2031.         jmp     .vscroll_down_do
  2032. .vscroll_down_wasfirst:
  2033.         push    26
  2034.         pop     eax
  2035.         push    9
  2036.         pop     ebx
  2037.         int     0x40
  2038.         sub     eax, [con.scroll_down_first_time]
  2039.         cmp     eax, 25
  2040.         jb      @f
  2041.         mov     [con.bScrollingDown], 2
  2042.         jmp     .vscroll_down_do
  2043. @@:
  2044.         mov     [con.bScrollingDown], 1
  2045.         jmp     con.msg_loop
  2046. .vscroll_up:
  2047.         cmp     [con.bScrollingUp_saved], 0
  2048.         jz      .vscroll_up_first
  2049.         cmp     [con.bScrollingUp_saved], 1
  2050.         jz      .vscroll_up_wasfirst
  2051.         mov     [con.bScrollingUp], 2
  2052. .vscroll_up_do:
  2053.         mov     eax, [con.wnd_ypos]
  2054.         inc     eax
  2055.         sub     eax, [con.wnd_height]
  2056.         jns     @f
  2057.         xor     eax, eax
  2058. @@:
  2059.         mov     [con.wnd_ypos], eax
  2060.         jmp     con.redraw_image
  2061. .vscroll_up_first:
  2062.         push    26
  2063.         pop     eax
  2064.         push    9
  2065.         pop     ebx
  2066.         int     0x40
  2067.         mov     [con.scroll_up_first_time], eax
  2068.         mov     [con.bScrollingUp], 1
  2069.         jmp     .vscroll_up_do
  2070. .vscroll_up_wasfirst:
  2071.         push    26
  2072.         pop     eax
  2073.         push    9
  2074.         pop     ebx
  2075.         int     0x40
  2076.         sub     eax, [con.scroll_up_first_time]
  2077.         cmp     eax, 25
  2078.         jb      @f
  2079.         mov     [con.bScrollingUp], 2
  2080.         jmp     .vscroll_up_do
  2081. @@:
  2082.         mov     [con.bScrollingUp], 1
  2083.         jmp     con.msg_loop
  2084. .up:
  2085.         cmp     [con.bUpPressed_saved], 0
  2086.         jz      .up_first
  2087.         cmp     [con.bUpPressed_saved], 1
  2088.         jz      .up_wasfirst
  2089.         mov     [con.bUpPressed], 2
  2090. .up_do:
  2091.         mov     eax, [con.wnd_ypos]
  2092.         dec     eax
  2093.         js      @f
  2094.         mov     [con.wnd_ypos], eax
  2095. @@:
  2096.         jmp     con.redraw_image
  2097. .up_first:
  2098.         push    26
  2099.         pop     eax
  2100.         push    9
  2101.         pop     ebx
  2102.         int     0x40
  2103.         mov     [con.up_first_time], eax
  2104.         mov     [con.bUpPressed], 1
  2105.         jmp     .up_do
  2106. .up_wasfirst:
  2107.         push    26
  2108.         pop     eax
  2109.         push    9
  2110.         pop     ebx
  2111.         int     0x40
  2112.         sub     eax, [con.up_first_time]
  2113.         cmp     eax, 25
  2114.         jb      @f
  2115.         mov     [con.bUpPressed], 2
  2116.         jmp     .up_do
  2117. @@:
  2118.         mov     [con.bUpPressed], 1
  2119.         jmp     con.msg_loop
  2120. .down:
  2121.         cmp     [con.bDownPressed_saved], 0
  2122.         jz      .down_first
  2123.         cmp     [con.bDownPressed_saved], 1
  2124.         jz      .down_wasfirst
  2125.         mov     [con.bDownPressed], 2
  2126. .down_do:
  2127.         mov     eax, [con.scr_height]
  2128.         sub     eax, [con.wnd_height]
  2129.         jbe     con.redraw_image
  2130.         cmp     [con.wnd_ypos], eax
  2131.         jae     con.redraw_image
  2132.         inc     [con.wnd_ypos]
  2133.         jmp     con.redraw_image
  2134. .down_first:
  2135.         push    26
  2136.         pop     eax
  2137.         push    9
  2138.         pop     ebx
  2139.         int     0x40
  2140.         mov     [con.down_first_time], eax
  2141.         mov     [con.bDownPressed], 1
  2142.         jmp     .down_do
  2143. .down_wasfirst:
  2144.         push    26
  2145.         pop     eax
  2146.         push    9
  2147.         pop     ebx
  2148.         int     0x40
  2149.         sub     eax, [con.down_first_time]
  2150.         cmp     eax, 25
  2151.         jb      @f
  2152.         mov     [con.bDownPressed], 2
  2153.         jmp     .down_do
  2154. @@:
  2155.         mov     [con.bDownPressed], 1
  2156.         jmp     con.msg_loop
  2157. .vscroll:
  2158.         mov     [con.vscroll_pt], ebx
  2159.         call    con.draw_image
  2160.         jmp     con.msg_loop
  2161. .vscrolling:
  2162.         sub     ebx, [con.vscroll_pt]
  2163.         sub     ebx, con.vscroll_btn_height
  2164.         jge     @f
  2165.         xor     ebx, ebx
  2166. @@:
  2167.         movzx   eax, [con.data_height]
  2168.         sub     eax, 2*con.vscroll_btn_height
  2169.         sub     eax, [con.vscrollbar_size]
  2170.         cmp     ebx, eax
  2171.         jb      @f
  2172.         lea     ebx, [eax-1]
  2173. @@:
  2174.         xchg    eax, ebx
  2175.         mov     edx, [con.scr_height]
  2176.         sub     edx, [con.wnd_height]
  2177.         inc     edx
  2178.         mul     edx
  2179.         div     ebx
  2180.         cmp     [con.wnd_ypos], eax
  2181.         jz      con.msg_loop
  2182.         mov     [con.wnd_ypos], eax
  2183.         jmp     con.redraw_image
  2184.  
  2185. con.draw_window:
  2186.         push    12
  2187.         pop     eax
  2188.         xor     ebx, ebx
  2189.         inc     ebx
  2190.         int     0x40
  2191.         mov     al, 48
  2192.         mov     bl, 4
  2193.         int     0x40
  2194.         mov     ebx, [con.def_wnd_x-2]
  2195.         mov     bx, word [con.wnd_width]
  2196.         imul    bx, font_width
  2197.         add     bx, 5+5-1
  2198.         mov     ecx, [con.def_wnd_y-2]
  2199.         mov     cx, word [con.wnd_height]
  2200.         imul    cx, font_height
  2201.         lea     ecx, [ecx+eax+5-1]
  2202.         mov     edx, 0x74000000
  2203.         mov     edi, [con.title]
  2204. ; place for scrollbar
  2205.         mov     eax, [con.wnd_height]
  2206.         cmp     eax, [con.scr_height]
  2207.         jae     @f
  2208.         add     ebx, con.vscroll_width
  2209. @@:
  2210.         xor     eax, eax
  2211.         int     0x40
  2212.         ;Leency{
  2213.         mov     eax,9
  2214.         mov     ebx,process_info_buffer
  2215.         mov     ecx,-1
  2216.         int     0x40
  2217.         mov     eax,[ebx+70]
  2218.         mov     [window_status],eax
  2219.                 test    [window_status],100b   ; window is rolled up
  2220.         jnz     .exit
  2221.         test    [window_status],10b    ; window is minimized to panel
  2222.         jnz     .exit
  2223.         ;}Leency - I'm in diamond code...
  2224.         call    con.draw_image
  2225.  
  2226. .exit:
  2227.         push    12
  2228.         pop     eax
  2229.         push    2
  2230.         pop     ebx
  2231.         int     0x40
  2232.                
  2233.         ret
  2234.  
  2235. con.draw_image:
  2236.         xor     edx, edx
  2237.         mov     ecx, [con.wnd_width]
  2238.         imul    ecx, font_width
  2239.         mov     [con.data_width], cx
  2240.         shl     ecx, 16
  2241.         mov     cx, word [con.wnd_height]
  2242.         imul    cx, font_height
  2243.         mov     [con.data_height], cx
  2244.         mov     ebx, [con.image]
  2245.         push    65
  2246.         pop     eax
  2247.         xor     ebp, ebp
  2248.         mov     edi, con.colors
  2249.         push    8
  2250.         pop     esi
  2251.         int     0x40
  2252.         mov     al, 7
  2253.         mov     edx, [con.wnd_height]
  2254.         cmp     edx, [con.scr_height]
  2255.         jae     .skip_vscroll
  2256.         push    ecx
  2257.         mov     edx, ecx
  2258.         xor     dx, dx
  2259.         mov     ebx, con.vscroll_btn3
  2260.         cmp     [con.bUpPressed], 0
  2261.         jnz     @f
  2262.         mov     ebx, con.vscroll_btn1
  2263. @@:
  2264.         mov     ecx, con.vscroll_width*65536 + con.vscroll_btn_height
  2265.         int     0x40
  2266.         pop     edx
  2267.         sub     dx, con.vscroll_btn_height
  2268.         mov     ebx, con.vscroll_btn4
  2269.         cmp     [con.bDownPressed], 0
  2270.         jnz     @f
  2271.         mov     ebx, con.vscroll_btn2
  2272. @@:
  2273.         int     0x40
  2274.         push    edx
  2275. ; ‚ëç¨á«ï¥¬ ¢ëá®âã ¡¥£ã­ª 
  2276.         mov     ax, dx
  2277.         sub     eax, con.vscroll_btn_height
  2278.         mov     ecx, eax
  2279.         mul     [con.wnd_height]
  2280.         div     [con.scr_height]
  2281.         cmp     eax, 5
  2282.         jae     @f
  2283.         mov     al, 5
  2284. @@:
  2285. ; eax = ¢ëá®â  ¡¥£ã­ª . ‚ëç¨á«ï¥¬ ¯®«®¦¥­¨¥ ¡¥£ã­ª 
  2286.         mov     [con.vscrollbar_size], eax
  2287.         xchg    eax, ecx
  2288.         sub     eax, ecx
  2289.         mul     [con.wnd_ypos]
  2290.         mov     ebx, [con.scr_height]
  2291.         sub     ebx, [con.wnd_height]
  2292.         div     ebx
  2293.         pop     edx
  2294.         push    edx
  2295. ; ecx = ¢ëá®â  ¡¥£ã­ª , eax = ¯®«®¦¥­¨¥
  2296.         add     eax, con.vscroll_btn_height
  2297.         mov     [con.vscrollbar_pos], eax
  2298.         mov     ebx, con.vscroll_bgr2
  2299.         cmp     [con.bScrollingUp], 0
  2300.         jnz     @f
  2301.         mov     ebx, con.vscroll_bgr1
  2302. @@:
  2303.         mov     ecx, con.vscroll_width*65536 + con.vscroll_bgr_height
  2304.         push    eax
  2305.         push    7
  2306.         pop     eax
  2307.         mov     dx, con.vscroll_btn_height
  2308.         call    .vpattern
  2309.         mov     dx, word [con.vscrollbar_pos]
  2310.         add     dx, word [con.vscrollbar_size]
  2311.         mov     cx, con.vscroll_bgr_height
  2312.         mov     ebx, con.vscroll_bgr2
  2313.         cmp     [con.bScrollingDown], 0
  2314.         jnz     @f
  2315.         mov     ebx, con.vscroll_bgr1
  2316. @@:
  2317.         call    .vpattern
  2318.         mov     ecx, [con.vscrollbar_pos]
  2319.         mov     dx, cx
  2320.         add     ecx, [con.vscrollbar_size]
  2321.         sub     ecx, con.vscroll_bar_height3
  2322.         push    ecx
  2323.         mov     ebx, con.vscroll_bar1
  2324.         mov     ecx, con.vscroll_width*65536 + con.vscroll_bar_height1
  2325.         int     0x40
  2326.         add     dx, cx
  2327.         mov     cx, con.vscroll_bar_height2
  2328.         mov     ebx, con.vscroll_bar2
  2329.         call    .vpattern
  2330.         mov     ebx, con.vscroll_bar3
  2331.         mov     cx, con.vscroll_bar_height3
  2332.         int     0x40
  2333. .skip_vscroll:
  2334.         ret
  2335.  
  2336. .vpattern:
  2337.         push    edx
  2338.         add     dx, cx
  2339.         cmp     dx, [esp+8]
  2340.         pop     edx
  2341.         jbe     @f
  2342.         mov     cx, [esp+4]
  2343.         sub     cx, dx
  2344.         jz      .ret
  2345. @@:
  2346.         int     0x40
  2347.         add     dx, cx
  2348.         cmp     dx, [esp+4]
  2349.         jb      .vpattern
  2350. .ret:
  2351.         ret     4
  2352.  
  2353. align 4
  2354. con.colors      dd      0x000000, 0x000080, 0x008000, 0x008080
  2355.                 dd      0x800000, 0x800080, 0x808000, 0xC0C0C0
  2356.                 dd      0x808080, 0x0000FF, 0x00FF00, 0x00FFFF
  2357.                 dd      0xFF0000, 0xFF00FF, 0xFFFF00, 0xFFFFFF
  2358.  
  2359. scan_has_ascii:
  2360.         dd      11011111111111111111111111111110b
  2361.         dd      00000010001111111111101111111111b
  2362.         dd      00000000000000000000000000000000b
  2363.         dd      0
  2364.  
  2365. con.extended_alt:
  2366.         db      00h,01h,78h,79h,7Ah,7Bh,7Ch,7Dh,7Eh,7Fh,80h,81h,82h,83h,0Eh,0A5h
  2367.         db      10h,11h,12h,13h,14h,15h,16h,17h,18h,19h,1Ah,1Bh,1Ch,00h,1Eh,1Fh
  2368.         db      20h,21h,22h,23h,24h,25h,26h,27h,28h,29h,00h,2Bh,2Ch,2Dh,2Eh,2Fh
  2369.         db      30h,31h,32h,33h,34h,35h,00h,37h,00h,39h,00h,68h,69h,6Ah,6Bh,6Ch
  2370.         db      6Dh,6Eh,6Fh,70h,71h,00h,00h,97h,98h,99h,4Ah,9Bh,9Ch,9Dh,4Eh,9Fh
  2371.         db      0A0h,0A1h,0A2h,0A3h,00h,00h,00h,8Bh,8Ch,00h,00h,00h,00h,00h,00h,00h
  2372.         times 20h db 0
  2373. con.extended_ctrl:
  2374.         times 0Fh db %-1
  2375.         db      0x94
  2376.         times 2Bh db %-1
  2377.         db      5Eh,5Fh,60h,61h,62h,63h,64h,65h,66h,67h,00h,00h
  2378.         db      77h,8Dh,84h,8Eh,73h,8Fh,74h,90h,75h,91h,76h,92h,93h,00h,00h,00h,89h,8Ah
  2379.         times 0x80-0x59 db 0
  2380. con.extended_shift:
  2381.         times 3Bh db %-1
  2382.         db      54h,55h,56h,57h,58h,59h,5Ah,5Bh,5Ch,5Dh,00h,00h
  2383.         db      47h,48h,49h,4Ah,4Bh,4Ch,4Dh,4Eh,4Fh,50h,51h,52h,53h,00h,00h,00h,87h,88h
  2384.         times 0x80-0x59 db 0
  2385.  
  2386. ; ‚ ⥪ã饩 ॠ«¨§ æ¨¨ §­ ç¥­¨ï ¯® 㬮«ç ­¨î â ª®¢ë.
  2387. ; ‚ ¡ã¤ã饬 ®­¨, ¢®§¬®¦­®, ¡ã¤ãâ áç¨â뢠âìáï ª ª ¯ à ¬¥âàë ¨§ ini-ä ©«  console.ini.
  2388. con.def_wnd_width   dd    80
  2389. con.def_wnd_height  dd    25
  2390. con.def_scr_width   dd    80
  2391. con.def_scr_height  dd    300
  2392. con.def_wnd_x       dd    200
  2393. con.def_wnd_y       dd    50
  2394.  
  2395.  
  2396. struc process_info
  2397. {
  2398.   cpu_usage               dd ?  ; +0
  2399.   window_stack_position   dw ?  ; +4
  2400.   window_stack_value      dw ?  ; +6
  2401.                           dw ?  ; +8
  2402.   process_name            rb 12 ; +10
  2403.   memory_start            dd ?  ; +22
  2404.   used_memory             dd ?  ; +26
  2405.   PID                     dd ?  ; +30
  2406.   box.x                   dd ?  ; +34
  2407.   box.y                   dd ?  ; +38
  2408.   box.width               dd ?  ; +42
  2409.   box.height              dd ?  ; +46
  2410.   slot_state              dw ?  ; +50
  2411.                           dw ?  ; +52
  2412.   client_box.x            dd ?  ; +54
  2413.   client_box.y            dd ?  ; +58
  2414.   client_box.width        dd ?  ; +62
  2415.   client_box.height       dd ?  ; +66
  2416.   wnd_state               db ?  ; +70
  2417.   rb (1024-71)
  2418. }
  2419. process_info_buffer process_info
  2420. window_status           rd 1
  2421.  
  2422. con.vscroll_pt      dd    -1
  2423.  
  2424. align 16
  2425. EXPORTS:
  2426.         dd      szStart,                START
  2427.         dd      szVersion,              0x00020007
  2428.         dd      szcon_init,             con_init
  2429.         dd      szcon_write_asciiz,     con_write_asciiz
  2430.         dd      szcon_write_string,     con_write_length
  2431.         dd      szcon_printf,           con_printf
  2432.         dd      szcon_exit,             con_exit
  2433.         dd      szcon_get_flags,        con_get_flags
  2434.         dd      szcon_set_flags,        con_set_flags
  2435.         dd      szcon_kbhit,            con_kbhit
  2436.         dd      szcon_getch,            con_getch
  2437.         dd      szcon_getch2,           con_getch2
  2438.         dd      szcon_gets,             con_gets
  2439.         dd      szcon_gets2,            con_gets2
  2440.         dd      szcon_get_font_height,  con_get_font_height
  2441.         dd      szcon_get_cursor_height,con_get_cursor_height
  2442.         dd      szcon_set_cursor_height,con_set_cursor_height
  2443.         dd      szcon_cls,              con_cls
  2444.         dd      szcon_get_cursor_pos,   con_get_cursor_pos
  2445.         dd      szcon_set_cursor_pos,   con_set_cursor_pos
  2446.         dd      0
  2447.  
  2448. con_flags       dd      7
  2449. con.cursor_height dd    (15*font_height+50)/100
  2450. con.input_start dd      con.input_buffer
  2451. con.input_end   dd      con.input_buffer
  2452.  
  2453. con_esc_attr_n  dd      0
  2454. con_esc_attrs   dd      0,0,0,0
  2455. con_esc         db      0
  2456. con_sci         db      0
  2457.  
  2458. con.entered_char dw     -1
  2459. con.bGetchRequested db  0
  2460. con.bWasE0       db     0
  2461.  
  2462. szStart                 db 'START',0
  2463.  
  2464. szcon_init              db 'con_init',0
  2465. szcon_write_asciiz      db 'con_write_asciiz',0
  2466. szcon_write_string      db 'con_write_string',0
  2467. szcon_printf            db 'con_printf',0
  2468. szcon_exit              db 'con_exit',0
  2469. szVersion               db 'version',0
  2470. szcon_get_flags         db 'con_get_flags',0
  2471. szcon_set_flags         db 'con_set_flags',0
  2472. szcon_kbhit             db 'con_kbhit',0
  2473. szcon_getch             db 'con_getch',0
  2474. szcon_getch2            db 'con_getch2',0
  2475. szcon_gets              db 'con_gets',0
  2476. szcon_gets2             db 'con_gets2',0
  2477. szcon_get_font_height   db 'con_get_font_height',0
  2478. szcon_get_cursor_height db 'con_get_cursor_height',0
  2479. szcon_set_cursor_height db 'con_set_cursor_height',0
  2480. szcon_cls               db 'con_cls',0
  2481. szcon_get_cursor_pos    db 'con_get_cursor_pos',0
  2482. szcon_set_cursor_pos    db 'con_set_cursor_pos',0
  2483.  
  2484. con.thread_err      db 'Cannot create console thread!',13,10,0
  2485. con.nomem_err       db 'Not enough memory!',13,10,0
  2486. con.aFinished       db ' [Finished]',0
  2487. con.aNull           db '(null)',0
  2488. con.beep                db      0x90, 0x3C, 0x00
  2489. con.ipc_buf         dd 0,8,0,0
  2490.                     db 0
  2491.  
  2492. section '.data' data readable writable align 16
  2493.  
  2494. con.finished_title          rb 256
  2495.  
  2496. con.cur_x                   rd 1
  2497. con.cur_y                   rd 1
  2498. con.wnd_xpos                rd 1
  2499. con.wnd_ypos                rd 1
  2500.  
  2501. con.wnd_width               rd 1
  2502. con.wnd_height              rd 1
  2503. con.scr_width               rd 1
  2504. con.scr_height              rd 1
  2505. con.title                   rd 1
  2506. con.data                    rd 1
  2507. con.image                   rd 1
  2508. con.console_tid             rd 1
  2509. con.data_width              rw 1
  2510. con.data_height             rw 1
  2511. con.vscrollbar_size         rd 1
  2512. con.vscrollbar_pos          rd 1
  2513. con.up_first_time           rd 1
  2514. con.down_first_time         rd 1
  2515. con.scroll_up_first_time    rd 1
  2516. con.scroll_down_first_time  rd 1
  2517. con.bUpPressed_saved        rb 1
  2518. con.bDownPressed_saved      rb 1
  2519. con.bScrollingUp_saved      rb 1
  2520. con.bScrollingDown_saved    rb 1
  2521.  
  2522. con.input_buffer                rw      128
  2523. con.input_buffer_end = $
  2524.  
  2525. con.kbd_layout          rb      128
  2526.  
  2527. ; 1 = exit, 2 = set title, 3 = redraw, 4 = getch
  2528. con.thread_op               rb 1
  2529. con.bUpPressed              rb 1
  2530. con.bDownPressed            rb 1
  2531. con.bScrollingUp            rb 1
  2532. con.bScrollingDown          rb 1
  2533.  
  2534. con.stack                   rb 1024
  2535. con.stack_top = $
  2536.