kolibrios-gitea/programs/end/trunk/end.asm

;
; END
;

include "lang.inc"
include "macros.inc"

meos_app_start
code

    mov   eax,40
    mov   ebx,0111b
    int   0x40

    call  draw_window

still:

    mov  eax,10 		; wait here for event
;    mov  ebx,100
    int  0x40

    cmp  eax,1
    jz	 red
    cmp  eax,2
    jz	 key
    cmp  eax,3
    jz	 button

    jmp  still

  red:
    call draw_window
    jmp  still

  key:
     mcall 2
     cmp  ah,13
     jz   restart
     cmp  ah,27
     jz   close_1
     cmp  ah,180
     jz   restart_kernel
     cmp  ah,181
     jz   power_off
     jmp  red

  button:
    mov  eax,17
    int  0x40

    cmp  ah,1
    jne  no_1
 power_off:
    mcall 18,9,2
    jmp  close_1

no_1:
    cmp  ah,3
    jne  no_2
 restart:
    mcall 18,9,3
    jmp  close_1

no_2:
    cmp  ah,2
    jne  no_4

  restart_kernel:
    mcall 18,9,4

no_4:
    cmp  ah,4
    jne  still

  close_1:
    or	 eax,-1    ; close this program
    int  0x40


draw_window:

    pusha

    mov  eax,48
    mov  ebx,3
    mov  ecx,sc
    mov  edx,sizeof.system_colors
    int  0x40

    mov  eax,12 		   ; tell os about redraw start
    mov  ebx,1
    int  0x40

    mov  eax,14 		   ; get screen max x & max y
    int  0x40

    xor  ecx,ecx
    mov  cx,ax

    shr  eax,17
    sub  eax,110
    shl  eax,16
    mov  ebx,eax
    add  ebx,220

    shr  ecx,1
    sub  ecx,50
    shl  ecx,16
    add  ecx,100

    mov  eax,0			   ; define and draw window
    mov  edx,[sc.work_button]
    mov  esi,edx ;[sc.work_button]
    xor edi,edi
    int  0x40

   xor edx,edx
   mcall 13,14 shl 16+90,25 shl 16+27
   mcall 13,117 shl 16+90,
   mcall 13,14 shl 16+90,59 shl 16+27
   mcall 13,117 shl 16+90,

   mcall 8,15 shl 16+87,26 shl 16+24,1,0xdd7700
   inc dl
   mcall 8,118 shl 16+87,,,0xbbbb   ;cccc
   inc dl
   mcall 8,15 shl 16+87,60 shl 16+24,,0xbb00
   inc dl
   mcall 8,118 shl 16+87,,,0xbbbbbb ;cccccc

    mov  eax,4			   ; 0x00000004 = write text
    mov  ebx,75*65536+10
    mov  ecx,[sc.work_button_text] ; 8b window nro - RR GG BB color
    or	 ecx,0x10000000
    mov  edx,label1		   ; pointer to text beginning
    mov  esi,label1_len 	   ; text length
    int  0x40

    mov  ecx,0x10ffffff
    mov  ebx,25*65536+30
    mov  edx,label2		   ; pointer to text beginning
    mov  esi,label2_len 	   ; text length
    int  0x40

    mov  ebx,20*65536+64
    mov  edx,label3		   ; pointer to text beginning
    mov  esi,label3_len 	   ; text length
    int  0x40

    mov  ecx,0xffffff
    mov  ebx,45*65536+41
    mov  edx,label4		   ; pointer to text beginning
    mov  esi,label4_len 	   ; text length
    int  0x40

    mov  ebx,40*65536+75
    mov  edx,label5		   ; pointer to text beginning
    mov  esi,label5_len 	   ; text length
    int  0x40

    mov  eax,12 		   ; tell os about redraw end
    mov  ebx,2
    int  0x40

    popa

    ret



data

if lang eq ru

  label1:
      db   '<27><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>:'
  label1_len = $ - label1

  label2:
      db   '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>         <20><><EFBFBD><EFBFBD>'
  label2_len = $ - label2

  label3:
      db   '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>       <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
  label3_len = $ - label3

  label4:
      db   '(End)            (Home)'
  label4_len = $ - label4

  label5:
      db   '(Enter)           (Esc)'
  label5_len = $ - label5

else

  label1:
      db   ' SELECT:'
  label1_len = $ - label1

  label2:
      db   'POWER OFF        KERNEL'
  label2_len = $ - label2

  label3:
      db   '  RESTART         CANCEL'
  label3_len = $ - label3

  label4:
      db   '(End)            (Home)'
  label4_len = $ - label4

  label5:
      db   '(Enter)           (Esc)'
  label5_len = $ - label5  

end if


udata
  sc  system_colors

meos_app_end