Subversion Repositories Kolibri OS

Rev

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

  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;;
  3. ;; Kolibri OS - based on source code Menuet OS, but not 100% compatible.
  4. ;;
  5. ;; See file COPYING or GNU.TXT for details with these additional details:
  6. ;;     - All code written in 32 bit x86 assembly language
  7. ;;     - No external code (eg. bios) at process execution time
  8. ;;
  9. ;;
  10. ;;   Compile with last version FASM
  11. ;;
  12. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  13. include "proc32.inc"
  14. include "kglobals.inc"
  15. include "lang.inc"
  16.  
  17. include "const.inc"
  18.  
  19. NEW   equ 0
  20.  
  21. ;WinMapAddress      equ     0x460000
  22. ;display_data       = 0x460000
  23.  
  24. max_processes     equ   255
  25.  
  26. ;window_data        equ   0x0000
  27. ;tss_data           equ   0xD20000
  28. ;tss_step           equ   (128+2048) ; tss & i/o - 16384 ports, * 256=557056
  29. tss_step           equ   (128+8192) ; tss & i/o - 65535 ports, * 256=557056*4
  30. ;draw_data          equ   0xC00000
  31. ;sysint_stack_data  equ   0xC03000
  32.  
  33. ;twdw               equ   (0x3000-window_data)
  34.  
  35. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  36. ;;
  37. ;;   Included files:
  38. ;;
  39. ;;   Kernel16.inc
  40. ;;    - Booteng.inc   English text for bootup
  41. ;;    - Bootcode.inc  Hardware setup
  42. ;;    - Pci16.inc     PCI functions
  43. ;;
  44. ;;   Kernel32.inc
  45. ;;    - Sys32.inc     Process management
  46. ;;    - Shutdown.inc  Shutdown and restart
  47. ;;    - Fat32.inc     Read / write hd
  48. ;;    - Vesa12.inc    Vesa 1.2 driver
  49. ;;    - Vesa20.inc    Vesa 2.0 driver
  50. ;;    - Vga.inc       VGA driver
  51. ;;    - Stack.inc     Network interface
  52. ;;    - Mouse.inc     Mouse pointer
  53. ;;    - Scincode.inc  Window skinning
  54. ;;    - Pci32.inc     PCI functions
  55. ;;
  56. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  57.  
  58.  
  59. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  60. ;;                                                                      ;;
  61. ;;                  16 BIT ENTRY FROM BOOTSECTOR                        ;;
  62. ;;                                                                      ;;
  63. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  64.  
  65. use16
  66.                   org   0x0
  67.                   jmp   start_of_code
  68.  
  69. ; mike.dld {
  70.         org $+0x10000
  71. db 0
  72. dd servetable-0x10000
  73. draw_line       dd __sys_draw_line
  74. disable_mouse   dd __sys_disable_mouse
  75. draw_pointer    dd __sys_draw_pointer
  76. ;//mike.dld, 2006-08-02 [
  77. ;drawbar         dd __sys_drawbar
  78. drawbar         dd __sys_drawbar.forced
  79. ;//mike.dld, 2006-08-02 ]
  80. putpixel        dd __sys_putpixel
  81. ; } mike.dld
  82.  
  83. version           db    'Kolibri OS  version 0.6.0.0      ',13,10,13,10,0
  84.                   ;dd    endofcode-0x10000
  85.  
  86.                   ;db   'Boot02'
  87. ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  88. include "boot/preboot.inc"
  89. ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  90.  
  91. preboot_lfb       db    0
  92. preboot_bootlog   db    0
  93.  
  94.  
  95. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  96. ;;                                                                      ;;
  97. ;;                      16 BIT INCLUDED FILES                           ;;
  98. ;;                                                                      ;;
  99. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  100.  
  101. include "kernel16.inc"
  102.  
  103. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  104. ;;                                                                      ;;
  105. ;;                  SWITCH TO 32 BIT PROTECTED MODE                     ;;
  106. ;;                                                                      ;;
  107. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  108.  
  109. os_data        =  os_data_l-gdts    ; GDTs
  110. os_code        =  os_code_l-gdts
  111. int_code       equ  int_code_l-gdts
  112. int_data       equ  int_data_l-gdts
  113. tss0sys       equ  tss0sys_l-gdts
  114. graph_data     equ  3+graph_data_l-gdts
  115. tss0           equ  tss0_l-gdts
  116. app_code       equ  3+app_code_l-gdts
  117. app_data       equ  3+app_data_l-gdts
  118.  
  119.  
  120.  
  121. ; CR0 Flags - Protected mode and Paging
  122.  
  123.         mov ecx, CR0_PE
  124.  
  125. ; Enabling 32 bit protected mode
  126.  
  127.         sidt    [cs:old_ints_h-0x10000]
  128.  
  129.         cli                             ; disable all irqs
  130.         cld
  131.         mov     al,255                  ; mask all irqs
  132.         out     0xa1,al
  133.         out     0x21,al
  134.    l.5: in      al, 0x64                ; Enable A20
  135.         test    al, 2
  136.         jnz     l.5
  137.         mov     al, 0xD1
  138.         out     0x64, al
  139.    l.6: in      al, 0x64
  140.         test    al, 2
  141.         jnz     l.6
  142.         mov     al, 0xDF
  143.         out     0x60, al
  144.    l.7: in      al, 0x64
  145.         test    al, 2
  146.         jnz     l.7
  147.         mov     al, 0xFF
  148.         out     0x64, al
  149.         lgdt    [cs:gdts-0x10000]       ; Load GDT
  150.         mov     eax, cr0                ; Turn on paging // protected mode
  151.         or      eax, ecx
  152.         and     eax, 10011111b *65536*256 + 0xffffff ; caching enabled
  153.         mov     cr0, eax
  154.         jmp     $+2
  155. org $+0x10000
  156.         mov     ax,os_data              ; Selector for os
  157.         mov     ds,ax
  158.         mov     es,ax
  159.         mov     fs,ax
  160.         mov     gs,ax
  161.         mov     ss,ax
  162.         mov     esp,0x3ec00             ; Set stack
  163.         jmp     pword os_code:B32       ; jmp to enable 32 bit mode
  164.  
  165. use32
  166.  
  167. iglobal
  168.   boot_memdetect    db   'Determining amount of memory',0
  169.   boot_fonts        db   'Fonts loaded',0
  170.   boot_tss          db   'Setting TSSs',0
  171.   boot_cpuid        db   'Reading CPUIDs',0
  172.   boot_devices      db   'Detecting devices',0
  173.   boot_timer        db   'Setting timer',0
  174.   boot_irqs         db   'Reprogramming IRQs',0
  175.   boot_setmouse     db   'Setting mouse',0
  176.   boot_windefs      db   'Setting window defaults',0
  177.   boot_bgr          db   'Calculating background',0
  178.   boot_resirqports  db   'Reserving IRQs & ports',0
  179.   boot_setrports    db   'Setting addresses for IRQs',0
  180.   boot_setostask    db   'Setting OS task',0
  181.   boot_allirqs      db   'Unmasking all IRQs',0
  182.   boot_tsc          db   'Reading TSC',0
  183.   boot_pal_ega      db   'Setting EGA/CGA 320x200 palette',0
  184.   boot_pal_vga      db   'Setting VGA 640x480 palette',0
  185.   boot_mtrr         db   'Setting MTRR',0
  186.   boot_tasking      db   'All set - press ESC to start',0
  187. endg
  188.  
  189. iglobal
  190.   boot_y dd 10
  191. endg
  192.  
  193. boot_log:
  194.          pushad
  195.  
  196.          mov   eax,10*65536
  197.          mov   ax,word [boot_y]
  198.          add   [boot_y],dword 10
  199.          mov   ebx,0x80ffffff   ; ASCIIZ string with white color
  200.          mov   ecx,esi
  201.          mov   edi,1
  202.          call  dtext
  203.  
  204.          mov   [novesachecksum],1000
  205.          call  checkVga_N13
  206.  
  207.          cmp   [preboot_blogesc],byte 1
  208.          je    .bll2
  209.  
  210.          cmp   esi,boot_tasking
  211.          jne   .bll2
  212.          ; begin ealex 04.08.05
  213. ;         in    al,0x61
  214. ;         and   al,01111111b
  215. ;         out   0x61,al
  216.          ; end ealex 04.08.05
  217. .bll1:   in    al,0x60    ; wait for ESC key press
  218.          cmp   al,129
  219.          jne   .bll1
  220.  
  221. .bll2:   popad
  222.  
  223.          ret
  224.  
  225. iglobal
  226.   firstapp   db  '/rd/1/LAUNCHER',0
  227.   char       db  'CHAR    MT '
  228.   char2      db  'CHAR2   MT '
  229.   bootpath   db  '/KOLIBRI    '
  230.   bootpath2  db  0
  231.   vmode      db  'VMODE   MDR'
  232.   vrr_m      db  '/rd/1/VRR_M',0
  233. endg
  234.  
  235.  
  236. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  237. ;;                                                                      ;;
  238. ;;                          32 BIT ENTRY                                ;;
  239. ;;                                                                      ;;
  240. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  241.  
  242. align 4
  243.  
  244. B32:
  245. ; CLEAR 0x280000-0xF00000
  246.  
  247.         xor   eax,eax
  248.         mov   edi,0x280000
  249.         mov   ecx,(0x100000*0xF-0x280000) / 4
  250.         cld
  251.         rep   stosd
  252. ; CLEAR 0x80000-0x90000
  253. ;       xor   eax,eax
  254.         mov   edi,0x80000
  255.         mov   ecx,(0x90000-0x80000)/4
  256. ;       cld
  257.         rep   stosd
  258.  
  259. ; CLEAR KERNEL UNDEFINED GLOBALS
  260.         mov   edi, endofcode
  261.         mov   ecx, (uglobals_size/4)+4
  262.         rep   stosd
  263.  
  264. ; SAVE & CLEAR 0-0xffff
  265.  
  266.         mov   esi,0x0000
  267.         mov   edi,0x2F0000
  268.         mov   ecx,0x10000 / 4
  269.         cld
  270.         rep   movsd
  271.         xor   eax,eax
  272.         mov   edi,0
  273.         mov   ecx,0x10000 / 4
  274.         cld
  275.         rep   stosd
  276.  
  277. ; SAVE REAL MODE VARIABLES
  278.         mov     ax, [0x2f0000 + 0x9031]
  279.         mov     [IDEContrRegsBaseAddr], ax
  280. ; --------------- APM ---------------------
  281.     mov    eax, [0x2f0000 + 0x9040]    ; entry point
  282.     mov    dword[apm_entry], eax
  283.     mov    word [apm_entry + 4], apm_code_32 - gdts
  284.  
  285.     mov    eax, [0x2f0000 + 0x9044]    ; version & flags
  286.     mov    [apm_vf], eax
  287. ; -----------------------------------------
  288. ;        movzx eax,byte [0x2f0000+0x9010]  ; mouse port
  289. ;        mov   [0xF604],byte 1  ;al
  290.         mov   al,[0x2f0000+0x9000]        ; bpp
  291.         mov   [0xFBF1],al
  292.         movzx eax,word [0x2f0000+0x900A]  ; X max
  293.         dec   eax
  294.         mov   [0xfe00],eax
  295.         mov   [screen_workarea.right],eax
  296.         movzx eax,word [0x2f0000+0x900C]  ; Y max
  297.         dec   eax
  298.         mov   [0xfe04],eax
  299.         mov   [screen_workarea.bottom],eax
  300.         movzx eax,word [0x2f0000+0x9008]  ; screen mode
  301.         mov   [0xFE0C],eax
  302.         mov   eax,[0x2f0000+0x9014]       ; Vesa 1.2 bnk sw add
  303.         mov   [0xE030],eax
  304.         mov   [0xfe08],word 640*4         ; Bytes PerScanLine
  305.         cmp   [0xFE0C],word 0x13          ; 320x200
  306.         je    @f
  307.         cmp   [0xFE0C],word 0x12          ; VGA 640x480
  308.         je    @f
  309.         mov   ax,[0x2f0000+0x9001]        ; for other modes
  310.         mov   [0xfe08],ax
  311.       @@:
  312.  
  313. ; GRAPHICS ADDRESSES
  314.  
  315.         ;mov     eax,0x100000*8                    ; LFB address
  316.         ;cmp     [0xfe0c],word 0x13
  317.         ;je      no_d_lfb
  318.         ;cmp     [0xfe0c],word 0x12
  319.         ;je      no_d_lfb
  320.         ;cmp     [0x2f0000+0x901e],byte 1
  321.         ;jne     no_d_lfb
  322.         mov     byte [0x2f0000+0x901e],0x0
  323.         mov     eax,[0x2f0000+0x9018]
  324.       ;no_d_lfb:
  325.         mov     [LFBAddress],eax
  326.  
  327.         cmp     [0xfe0c],word 0100000000000000b
  328.         jge     setvesa20
  329.         cmp     [0xfe0c],word 0x13
  330.         je      v20ga32
  331.         mov     [0xe020],dword Vesa12_putpixel24  ; Vesa 1.2
  332.         mov     [0xe024],dword Vesa12_getpixel24
  333.         cmp     [0xfbf1],byte 24
  334.         jz      ga24
  335.         mov     [0xe020],dword Vesa12_putpixel32
  336.         mov     [0xe024],dword Vesa12_getpixel32
  337.       ga24:
  338.         jmp     v20ga24
  339.       setvesa20:
  340.         mov     [0xe020],dword Vesa20_putpixel24  ; Vesa 2.0
  341.         mov     [0xe024],dword Vesa20_getpixel24
  342.         cmp     [0xfbf1],byte 24
  343.         jz      v20ga24
  344.       v20ga32:
  345.         mov     [0xe020],dword Vesa20_putpixel32
  346.         mov     [0xe024],dword Vesa20_getpixel32
  347.       v20ga24:
  348.         cmp     [0xfe0c],word 0x12                ; 16 C VGA 640x480
  349.         jne     no_mode_0x12
  350.         mov     [0xe020],dword VGA_putpixel
  351.         mov     [0xe024],dword Vesa20_getpixel32
  352.       no_mode_0x12:
  353.  
  354. ; MEMORY MODEL
  355.  
  356.            call mem_test
  357.            mov [MEM_AMOUNT], eax
  358.  
  359.            mov [pg_data.mem_amount], eax
  360.            mov [pg_data.kernel_max], eax
  361.  
  362.            shr eax, 12
  363.            mov edx, eax
  364.            mov [pg_data.pages_count], eax
  365.            mov [pg_data.kernel_pages], eax
  366.  
  367.            shr eax, 3
  368.            mov [pg_data.pagemap_size], eax
  369.  
  370.            shr edx, 10
  371.            cmp edx, 4
  372.            ja @f
  373.            inc edx       ;at least 4Mb for kernel heap
  374. @@:
  375.            mov [pg_data.kernel_tables], edx
  376.  
  377. ;!!!!!!!!!!!!!!!!!!!!!!!!!!
  378. include 'detect/disks.inc'
  379. ;!!!!!!!!!!!!!!!!!!!!!!!!!!
  380.  
  381. ; CHECK EXTRA REGION
  382. ; ENABLE PAGING
  383.  
  384.            call test_cpu
  385. ;           btr [cpu_caps], CAPS_SSE    ;test: dont't use sse code
  386. ;           btr [cpu_caps], CAPS_SSE2   ;test: don't use sse2
  387.  
  388. ;           btr [cpu_caps], CAPS_FXSR   ;test: disable sse support
  389.                                         ;all sse commands rise #UD exption
  390. ;           btr [cpu_caps], CAPS_PSE    ;test: don't use large pages
  391. ;           btr [cpu_caps], CAPS_PGE    ;test: don't use global pages
  392. ;           btr [cpu_caps], CAPS_MTRR   ;test: don't use MTRR
  393. ;           btr [cpu_caps], CAPS_TSC    ;test: don't use TSC
  394.  
  395.            call init_memEx
  396.            call init_page_map
  397.  
  398.            mov eax, sys_pgdir     ;+PG_NOCACHE
  399.            mov cr3, eax
  400.  
  401.            mov eax,cr0
  402.            or eax,CR0_PG
  403.            mov cr0,eax
  404.  
  405.            call init_kernel_heap
  406.            call init_LFB
  407.            call init_mtrr
  408.  
  409.            stdcall alloc_kernel_space, 0x50000
  410.            mov [ipc_tmp], eax
  411.            mov ebx, 0x1000
  412.  
  413.            add eax, 0x40000
  414.            mov [proc_mem_map], eax
  415.  
  416.            add eax, 0x8000
  417.            mov [proc_mem_pdir], eax
  418.  
  419.            add eax, ebx
  420.            mov [proc_mem_tab], eax
  421.  
  422.            add eax, ebx
  423.            mov [current_pdir], eax
  424.  
  425.            add eax, ebx
  426.            mov [tmp_task_pdir], eax
  427.  
  428.            add eax, ebx
  429.            mov [tmp_task_ptab], eax
  430.  
  431.            add eax, ebx
  432.            mov [ipc_pdir], eax
  433.  
  434.            add eax, ebx
  435.            mov [ipc_ptab], eax
  436.  
  437.            stdcall kernel_alloc, 0x1000
  438.            mov [tmp_task_data], eax
  439.  
  440.            mov [dll_map], 0xFFFFFFFF
  441.            mov [srv_map], 0xFFFFFFFF
  442.  
  443.            call alloc_dll
  444.            mov edi, eax
  445.            mov esi, szKernel
  446.            mov ecx, 16
  447.            rep movsb
  448.  
  449.            clts
  450.            fninit
  451.  
  452.            bt [cpu_caps], CAPS_FXSR
  453.            jnc .no_FXSR
  454.  
  455.            stdcall kernel_alloc, 512*256
  456.            mov [fpu_data], eax
  457.  
  458.            mov ebx, cr4
  459.            mov ecx, cr0
  460.            or ebx, CR4_OSFXSR+CR4_OSXMMEXPT
  461.            mov cr4, ebx
  462.  
  463.            and ecx, not (CR0_MP+CR0_EM)
  464.            or ecx, CR0_NE
  465.            mov cr0, ecx
  466.  
  467.            mov dword [esp-4], SSE_INIT
  468.            ldmxcsr [esp-4]
  469.  
  470.            xorps xmm0, xmm0
  471.            xorps xmm1, xmm1
  472.            xorps xmm2, xmm2
  473.            xorps xmm3, xmm3
  474.            xorps xmm4, xmm4
  475.            xorps xmm5, xmm5
  476.            xorps xmm6, xmm6
  477.            xorps xmm7, xmm7
  478.  
  479.            jmp .set_cr
  480. .no_FXSR:
  481.            stdcall kernel_alloc, 112*256
  482.            mov [fpu_data], eax
  483.            mov ebx, cr4
  484.            mov ecx, cr0
  485.            and ebx, not (CR4_OSFXSR+CR4_OSXMMEXPT)
  486.            and ecx, not CR0_EM
  487.            or ecx, CR0_MP+CR0_NE
  488.            mov cr0, ecx
  489.            mov cr4, ebx
  490. .set_cr:
  491.            mov edi, irq_tab
  492.            xor eax, eax
  493.            mov ecx, 16
  494.            rep stosd
  495.  
  496. ;Set base of graphic segment to linear address of LFB
  497.         mov     eax,[LFBAddress]          ; set for gs
  498.         mov     [graph_data_l+2],ax
  499.         shr     eax,16
  500.         mov     [graph_data_l+4],al
  501.         mov     [graph_data_l+7],ah
  502.  
  503. ; READ RAMDISK IMAGE FROM HD
  504.  
  505. ;!!!!!!!!!!!!!!!!!!!!!!!
  506. include 'boot/rdload.inc'
  507. ;!!!!!!!!!!!!!!!!!!!!!!!
  508. ;    mov    [dma_hdd],1
  509. ; CALCULATE FAT CHAIN FOR RAMDISK
  510.  
  511.         call  calculatefatchain
  512.  
  513. ; LOAD VMODE DRIVER
  514.  
  515. ;!!!!!!!!!!!!!!!!!!!!!!!
  516. include 'vmodeld.inc'
  517. ;!!!!!!!!!!!!!!!!!!!!!!!
  518.  
  519. ; LOAD FONTS I and II
  520.  
  521.         mov   [0x3000],dword 1
  522.         mov   [0x3004],dword 1
  523.         mov   [0x3010],dword 0x3020
  524.  
  525.         mov   eax,char
  526.         mov   esi,12
  527.         xor   ebx,ebx
  528.         mov   ecx,2560;26000
  529.         mov   edx,0x3F600;0x37000
  530.         call  fileread
  531.  
  532.         mov   eax,char2
  533.         mov   esi,12
  534.         xor   ebx,ebx
  535.         mov   ecx,2560;26000
  536.         mov   edx,0x3EC00;0x30000
  537.         call  fileread
  538.  
  539.         mov   esi,boot_fonts
  540.         call  boot_log
  541.  
  542. ; PRINT AMOUNT OF MEMORY
  543.         mov     esi, boot_memdetect
  544.         call    boot_log
  545.  
  546.         movzx   ecx, word [boot_y]
  547.         or      ecx, (10+29*6) shl 16 ; "Determining amount of memory"
  548.         sub     ecx, 10
  549.         mov     edx, 0xFFFFFF
  550.         mov     ebx, [MEM_AMOUNT]
  551.         shr     ebx, 20
  552.         mov     edi, 1
  553.         mov     eax, 0x00040000
  554.         call    display_number
  555.  
  556. ; REDIRECT ALL IRQ'S TO INT'S 0x20-0x2f
  557.  
  558.         mov   esi,boot_irqs
  559.         call  boot_log
  560.         call  rerouteirqs
  561.  
  562.         mov    esi,boot_tss
  563.         call   boot_log
  564.  
  565. ; BUILD SCHEDULER
  566.  
  567.         call   build_scheduler ; sys32.inc
  568.  
  569. ; LOAD IDT
  570.         lidt   [cs:idtreg]
  571.  
  572. ;The CPU to this moment should be already in PM,
  573. ;and bit MP of the register cr0 should be installed in 1.
  574. ;finit ;reset of the FPU (finit, instead of fninit)
  575. ;fsetpm ;enable PM of the FPU
  576. ;finit ;reset the registers, contents which are still equal RM
  577. ;Now FPU too in PM
  578. ; DETECT DEVICES
  579.  
  580.         mov    esi,boot_devices
  581.         call   boot_log
  582.         call   detect_devices
  583.  
  584.  ; TIMER SET TO 1/100 S
  585.  
  586.         mov   esi,boot_timer
  587.         call  boot_log
  588.         mov   al,0x34              ; set to 100Hz
  589.         out   0x43,al
  590.         mov   al,0x9b              ; lsb    1193180 / 1193
  591.         out   0x40,al
  592.         mov   al,0x2e              ; msb
  593.         out   0x40,al
  594.  
  595. ; SET MOUSE
  596.  
  597.         mov   esi,boot_setmouse
  598.         call  boot_log
  599.         call  setmouse
  600.  
  601. ; SET PRELIMINARY WINDOW STACK AND POSITIONS
  602.  
  603.         mov   esi,boot_windefs
  604.         call  boot_log
  605.         call  setwindowdefaults
  606.  
  607. ; SET BACKGROUND DEFAULTS
  608.  
  609.         mov   esi,boot_bgr
  610.         call  boot_log
  611.         call  calculatebackground
  612.  
  613. ; RESERVE SYSTEM IRQ'S JA PORT'S
  614.  
  615.         mov   esi,boot_resirqports
  616.         call  boot_log
  617.         call  reserve_irqs_ports
  618.  
  619. ; SET PORTS FOR IRQ HANDLERS
  620.  
  621.         mov  esi,boot_setrports
  622.         call boot_log
  623.         call setirqreadports
  624.  
  625. ; SET UP OS TASK
  626.  
  627.         mov  esi,boot_setostask
  628.         call boot_log
  629.         ; name for OS/IDLE process
  630.         mov  dword [0x80000+256+APPDATA.app_name],   dword 'OS/I'
  631.         mov  dword [0x80000+256+APPDATA.app_name+4], dword 'DLE '
  632.         mov eax, [fpu_data]
  633.         mov  dword [0x80000+APPDATA.fpu_state], eax
  634.         mov  dword [0x80000+APPDATA.fpu_handler], 0
  635.         mov  dword [0x80000+APPDATA.sse_handler], 0
  636.  
  637.         add eax, 112
  638.         bt [cpu_caps], CAPS_FXSR
  639.         jnc .no_sse
  640.         add eax, 512-112
  641. .no_sse:
  642.         mov  dword [0x80000+256+APPDATA.fpu_state], eax
  643.         mov  dword [0x80000+256+APPDATA.fpu_handler], 0
  644.         mov  dword [0x80000+256+APPDATA.sse_handler], 0
  645.         ; task list
  646.         mov  [0x3020+TASKDATA.wnd_number], 1 ; on screen number
  647.         mov  [0x3020+TASKDATA.pid], 1        ; process id number
  648.         mov  [0x3020+TASKDATA.mem_start], 0  ; process base address
  649.  
  650.         ; set default flags & stacks
  651.         mov  [l.eflags],dword 0x11202 ; sti and resume
  652.         mov  [l.ss0], os_data
  653.         ; osloop - TSS
  654.         mov  eax,cr3
  655.         mov  [l.cr3],eax
  656.         mov  [l.eip],osloop
  657.         mov  [l.esp],sysint_stack_data + 4096*2 ; uses slot 1 stack
  658.         mov  [l.cs],os_code
  659.         mov  [l.ss],os_data
  660.         mov  [l.ds],os_data
  661.         mov  [l.es],os_data
  662.         mov  [l.fs],os_data
  663.         mov  [l.gs],os_data
  664.         ; move tss to tss_data+tss_step
  665.         mov  esi,tss_sceleton
  666.         mov  edi,tss_data+tss_step
  667.         mov  ecx,120/4
  668.         cld
  669.         rep  movsd
  670.  
  671.         mov  ax,tss0
  672.         ltr  ax
  673.  
  674. ; READ TSC / SECOND
  675.  
  676.         mov   esi,boot_tsc
  677.         call  boot_log
  678.         call  _rdtsc
  679.         mov   ecx,eax
  680.         mov   esi,250               ; wait 1/4 a second
  681.         call  delay_ms
  682.         call  _rdtsc
  683.         sub   eax,ecx
  684.         shl   eax,2
  685.         mov   [0xf600],eax          ; save tsc / sec
  686.         mov ebx, 1000000
  687.         div ebx
  688.         mov [stall_mcs], eax
  689.  
  690. ; SET VARIABLES
  691.  
  692.         call  set_variables
  693.  
  694. ; STACK AND FDC
  695.  
  696.         call  stack_init
  697.         call  fdc_init
  698.  
  699. ; PALETTE FOR 320x200 and 640x480 16 col
  700.  
  701.         cmp   [0xfe0c],word 0x12
  702.         jne   no_pal_vga
  703.         mov   esi,boot_pal_vga
  704.         call  boot_log
  705.         call  paletteVGA
  706.       no_pal_vga:
  707.  
  708.         cmp   [0xfe0c],word 0x13
  709.         jne   no_pal_ega
  710.         mov   esi,boot_pal_ega
  711.         call  boot_log
  712.         call  palette320x200
  713.       no_pal_ega:
  714.  
  715. ; LOAD DEFAULT SKIN
  716.  
  717.         mov     esi,_skin_file_default
  718.         mov     edi,_skin_file
  719.         movsd
  720.         movsd
  721.         movsd
  722.         call    load_skin
  723.  
  724. ; LOAD FIRST APPLICATION
  725.         mov   [0x3000],dword 1
  726.         mov   [0x3004],dword 1
  727.         cli
  728.         cmp   byte [0x2f0000+0x9030],1
  729.         jne   no_load_vrr_m
  730.         mov   ebp,vrr_m
  731.         lea   esi,[ebp+6]       ; skip '/rd/1/'
  732.         xor   ebx,ebx                   ; no parameters
  733.         xor   edx,edx                   ; no flags
  734.         call  fs_RamdiskExecute.flags
  735.         cmp   eax,2                  ; if vrr_m app found (PID=2)
  736.         je    first_app_found
  737.  
  738.     no_load_vrr_m:
  739.         mov   ebp,firstapp
  740.         lea   esi,[ebp+6]
  741.         xor   ebx,ebx                   ; no parameters
  742.         xor   edx,edx                   ; no flags
  743.         call  fs_RamdiskExecute.flags
  744.  
  745.         cmp   eax,2                  ; continue if a process has been loaded
  746.         je    first_app_found
  747.         mov   eax, 0xDEADBEEF        ; otherwise halt
  748.         hlt
  749.       first_app_found:
  750.         cli
  751.  
  752.         ;mov   [0x3004],dword 2
  753.         mov   [0x3000],dword 1       ; set OS task fisrt
  754.  
  755.  
  756. ; SET KEYBOARD PARAMETERS
  757.         mov   al, 0xf6         ; reset keyboard, scan enabled
  758.         call  kb_write
  759.  
  760.         ; wait until 8042 is ready
  761. ;        xor ecx,ecx
  762. ;      @@:
  763. ;        in     al,64h
  764. ;        and    al,00000010b
  765. ;        loopnz @b
  766.         call  Wait8042BufferEmpty
  767.  
  768.        ; mov   al, 0xED       ; svetodiody - only for testing!
  769.        ; call  kb_write
  770.        ; call  kb_read
  771.        ; mov   al, 111b
  772.        ; call  kb_write
  773.        ; call  kb_read
  774.  
  775.         mov   al, 0xF3       ; set repeat rate & delay
  776.         call  kb_write
  777.         call  kb_read
  778.         mov   al, 0 ; 30 250 ;00100010b ; 24 500  ;00100100b  ; 20 500
  779.         call  kb_write
  780.         call  kb_read
  781.      ;// mike.dld [
  782.         call  set_lights
  783.      ;// mike.dld ]
  784.  
  785. ; START MULTITASKING
  786.  
  787.         mov   esi,boot_tasking
  788.         call  boot_log
  789.  
  790.         mov   [0xe000],byte 1        ; multitasking enabled
  791.  
  792. ; UNMASK ALL IRQ'S
  793.  
  794.         mov   esi,boot_allirqs
  795.         call  boot_log
  796.  
  797.         cli                          ;guarantee forbidance of interrupts.
  798.         mov   al,0                   ; unmask all irq's
  799.         out   0xA1,al
  800.         out   0x21,al
  801.  
  802.         mov   ecx,32
  803.  
  804.      ready_for_irqs:
  805.  
  806.         mov   al,0x20                ; ready for irqs
  807.         out   0x20,al
  808.         out   0xa0,al
  809.  
  810.         loop  ready_for_irqs         ; flush the queue
  811.  
  812.         stdcall attach_int_handler, dword 1, irq1
  813.  
  814. ;        mov    [dma_hdd],1
  815.         cmp     [IDEContrRegsBaseAddr], 0
  816.         setnz   [dma_hdd]
  817.  
  818.         sti
  819.         jmp   $                      ; wait here for timer to take control
  820.  
  821.         ; Fly :)
  822.  
  823. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  824. ;                                                                    ;
  825. ;                    MAIN OS LOOP START                              ;
  826. ;                                                                    ;
  827. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  828. align 32
  829. osloop:
  830.  
  831.         call   [draw_pointer]
  832.         call   checkbuttons
  833.         call   checkwindows
  834. ;       call   check_window_move_request
  835.         call   checkmisc
  836.         call   checkVga_N13
  837.         call   stack_handler
  838.         call   checkidle
  839.         call   check_fdd_motor_status
  840.         jmp    osloop
  841. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  842. ;                                                                    ;
  843. ;                      MAIN OS LOOP END                              ;
  844. ;                                                                    ;
  845. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  846.  
  847. checkidle:
  848.         pushad
  849.  
  850.         cmp  [check_idle_semaphore],0
  851.         jne  no_idle_state
  852.  
  853.         call change_task
  854.         mov  eax,[idlemem]
  855.         mov  ebx,[timer_ticks] ;[0xfdf0]
  856.         cmp  eax,ebx
  857.         jnz  idle_exit
  858.         call _rdtsc
  859.         mov  ecx,eax
  860.       idle_loop:
  861.         hlt
  862.         cmp  [check_idle_semaphore],0
  863.         jne  idle_loop_exit
  864.         mov  eax,[timer_ticks] ;[0xfdf0]
  865.         cmp  ebx,eax
  866.         jz   idle_loop
  867.       idle_loop_exit:
  868.         mov  [idlemem],eax
  869.         call _rdtsc
  870.         sub  eax,ecx
  871.         mov  ebx,[idleuse]
  872.         add  ebx,eax
  873.         mov  [idleuse],ebx
  874.  
  875.         popad
  876.         ret
  877.  
  878.       idle_exit:
  879.  
  880.         mov  ebx,[timer_ticks] ;[0xfdf0]
  881.         mov  [idlemem],ebx
  882.         call change_task
  883.  
  884.         popad
  885.         ret
  886.  
  887.       no_idle_state:
  888.  
  889.         dec  [check_idle_semaphore]
  890.  
  891.         mov  ebx,[timer_ticks] ;[0xfdf0]
  892.         mov  [idlemem],ebx
  893.         call change_task
  894.  
  895.         popad
  896.         ret
  897.  
  898. uglobal
  899.   idlemem               dd   0x0
  900.   idleuse               dd   0x0
  901.   idleusesec            dd   0x0
  902.   check_idle_semaphore  dd   0x0
  903. endg
  904.  
  905.  
  906.  
  907. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  908. ;                                                                      ;
  909. ;                   INCLUDED SYSTEM FILES                              ;
  910. ;                                                                      ;
  911. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  912.  
  913.  
  914. include "kernel32.inc"
  915.  
  916.  
  917. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  918. ;                                                                      ;
  919. ;                       KERNEL FUNCTIONS                               ;
  920. ;                                                                      ;
  921. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  922.  
  923. reserve_irqs_ports:
  924.  
  925.         pushad
  926.  
  927.         mov  [irq_owner+4*0],byte 1    ; timer
  928.         mov  [irq_owner+4*1],byte 1    ; keyboard
  929.         mov  [irq_owner+4*5],byte 1    ; sound blaster
  930.         mov  [irq_owner+4*6],byte 1    ; floppy diskette
  931.         mov  [irq_owner+4*13],byte 1   ; math co-pros
  932.         mov  [irq_owner+4*14],byte 1   ; ide I
  933.         mov  [irq_owner+4*15],byte 1   ; ide II
  934. ;        movzx eax,byte [0xf604]        ; mouse irq
  935. ;        dec   eax
  936. ;        add   eax,mouseirqtable
  937. ;        movzx eax,byte [eax]
  938. ;        shl   eax,2
  939. ;        mov   [irq_owner+eax],byte 1
  940.  
  941.  
  942.                                        ; RESERVE PORTS
  943.         mov   edi,1                    ; 0x00-0xff
  944.         mov   [0x2d0000],edi
  945.         shl   edi,4
  946.         mov   [0x2d0000+edi+0],dword 1
  947.         mov   [0x2d0000+edi+4],dword 0x0
  948.         mov   [0x2d0000+edi+8],dword 0xff
  949. ;        cmp   [0xf604],byte 2          ; com1 mouse -> 0x3f0-0x3ff
  950. ;        jne   ripl1
  951. ;        inc   dword [0x2d0000]
  952. ;        mov   edi,[0x2d0000]
  953. ;        shl   edi,4
  954. ;        mov   [0x2d0000+edi+0],dword 1
  955. ;        mov   [0x2d0000+edi+4],dword 0x3f0
  956. ;        mov   [0x2d0000+edi+8],dword 0x3ff
  957. ;      ripl1:
  958. ;        cmp   [0xf604],byte 3          ; com2 mouse -> 0x2f0-0x2ff
  959. ;        jne   ripl2
  960. ;        inc   dword [0x2d0000]
  961. ;        mov   edi,[0x2d0000]
  962. ;        shl   edi,4
  963. ;        mov   [0x2d0000+edi+0],dword 1
  964. ;        mov   [0x2d0000+edi+4],dword 0x2f0
  965. ;        mov   [0x2d0000+edi+8],dword 0x2ff
  966. ;      ripl2:
  967.  
  968.         popad
  969.         ret
  970.  
  971. iglobal
  972. mouseirqtable   db  12    ; ps2
  973.                 db  4     ; com1
  974.                 db  3     ; com2
  975. endg
  976.  
  977. setirqreadports:
  978.  
  979.         mov   [irq12read+0],dword 0x60 + 0x01000000  ; read port 0x60 , byte
  980.         mov   [irq12read+4],dword 0                  ; end of port list
  981.         mov   [irq04read+0],dword 0x3f8 + 0x01000000 ; read port 0x3f8 , byte
  982.         mov   [irq04read+4],dword 0                  ; end of port list
  983.         mov   [irq03read+0],dword 0x2f8 + 0x01000000 ; read port 0x2f8 , byte
  984.         mov   [irq03read+4],dword 0                  ; end of port list
  985.  
  986.         ret
  987.  
  988. iglobal
  989.   process_number dd 0x1
  990. endg
  991.  
  992. set_variables:
  993.  
  994.         mov   ecx,0x100                       ; flush port 0x60
  995. .fl60:  in    al,0x60
  996.         loop  .fl60
  997.         mov   [0xfcff],byte 0                 ; mouse buffer
  998.         mov   [0xf400],byte 0                 ; keyboard buffer
  999.         mov   [0xf500],byte 0                 ; button buffer
  1000. ;        mov   [0xfb0a],dword 100*65536+100    ; mouse x/y
  1001.  
  1002.         push  eax
  1003.         mov   ax,[0x2f0000+0x900c]
  1004.         shr   ax,1
  1005.         shl   eax,16
  1006.         mov   ax,[0x2f0000+0x900A]
  1007.         shr   ax,1
  1008.         mov   [0xfb0a],eax
  1009.         pop   eax
  1010.  
  1011.         mov   byte [SB16_Status],0            ; Minazzi Paolo
  1012.         mov   [display_data-12],dword 1       ; tiled background
  1013.         mov   [0xfe88],dword 0x2C0000         ; address of button list
  1014.  
  1015.      ;!! IP 04.02.2005:
  1016.         mov   [next_usage_update], 100
  1017.         mov   byte [0xFFFF], 0 ; change task if possible
  1018.  
  1019.         ret
  1020.  
  1021. ;* mouse centered - start code- Mario79
  1022. mouse_centered:
  1023.         push  eax
  1024.         mov   eax,[0xFE00]
  1025.         shr   eax,1
  1026.         mov   [0xFB0A],ax
  1027.         mov   eax,[0xFE04]
  1028.         shr   eax,1
  1029.         mov   [0xFB0C],ax
  1030.         pop   eax
  1031.         ret
  1032. ;* mouse centered - end code- Mario79
  1033.  
  1034. align 4
  1035.  
  1036. sys_outport:
  1037.  
  1038.     mov   edi,ebx          ; separate flag for read / write
  1039.     and   ebx,65535
  1040.  
  1041.     mov   ecx,[0x2d0000]
  1042.     test  ecx,ecx
  1043.     jne   sopl8
  1044.     mov   [esp+36],dword 1
  1045.     ret
  1046.  
  1047.   sopl8:
  1048.     mov   edx,[0x3010]
  1049.     mov   edx,[edx+0x4]
  1050.     and   ebx,65535
  1051.     cld
  1052.   sopl1:
  1053.  
  1054.     mov   esi,ecx
  1055.     shl   esi,4
  1056.     add   esi,0x2d0000
  1057.     cmp   edx,[esi+0]
  1058.     jne   sopl2
  1059.     cmp   ebx,[esi+4]
  1060.     jb    sopl2
  1061.     cmp   ebx,[esi+8]
  1062.     jg    sopl2
  1063.     jmp   sopl3
  1064.  
  1065.   sopl2:
  1066.  
  1067.     dec   ecx
  1068.     jnz   sopl1
  1069.     mov   [esp+36],dword 1
  1070.     ret
  1071.  
  1072.   sopl3:
  1073.  
  1074.     test  edi,0x80000000 ; read ?
  1075.     jnz   sopl4
  1076.  
  1077.     mov   dx,bx          ; write
  1078.     out   dx,al
  1079.     mov   [esp+36],dword 0
  1080.     ret
  1081.  
  1082.   sopl4:
  1083.  
  1084.     mov   dx,bx          ; read
  1085.     in    al,dx
  1086.     and   eax,0xff
  1087.     mov   [esp+36],dword 0
  1088.     mov   [esp+24],eax
  1089.     ret
  1090.  
  1091.  
  1092.  
  1093. align 4
  1094. sys_sb16:
  1095.  
  1096.      cmp  word [sb16],word 0
  1097.      jnz  sb16l1
  1098.      mov  [esp+36],dword 1
  1099.      ret
  1100.    sb16l1:
  1101.      mov  [esp+36],dword 0
  1102.      cmp  eax,1    ; set volume - main
  1103.      jnz  sb16l2
  1104.      mov  dx,word [sb16]
  1105.      add  dx,4
  1106.      mov  al,0x22
  1107.      out  dx,al
  1108.      mov  esi,1
  1109.      call delay_ms
  1110.      mov  eax,ebx
  1111.      inc  edx
  1112.      out  dx,al
  1113.      ret
  1114.    sb16l2:
  1115.  
  1116.      cmp  eax,2    ; set volume - cd
  1117.      jnz  sb16l3
  1118.      mov  dx,word [sb16]
  1119.      add  dx,4
  1120.      mov  al,0x28
  1121.      out  dx,al
  1122.      mov  esi,1
  1123.      call delay_ms
  1124.      mov  eax,ebx
  1125.      add  edx,1
  1126.      out  dx,al
  1127.      ret
  1128.    sb16l3:
  1129.       mov  [esp+36],dword 2
  1130.       ret
  1131.  
  1132.  
  1133. align 4
  1134.  
  1135. sys_sb16II:
  1136.  
  1137.      cmp  word [sb16],word 0
  1138.      jnz  IIsb16l1
  1139.      mov  [esp+36],dword 1
  1140.      ret
  1141.    IIsb16l1:
  1142.  
  1143.      cmp  eax,1    ; set volume - main
  1144.      jnz  IIsb16l2
  1145.      ; L
  1146.      mov  dx,word [sb16]
  1147.      add  dx,4
  1148.      mov  al,0x30
  1149.      out  dx,al
  1150.      mov  eax,ebx
  1151.      inc  edx
  1152.      out  dx,al
  1153.      ; R
  1154.      mov  dx,word [sb16]
  1155.      add  dx,4
  1156.      mov  al,0x31
  1157.      out  dx,al
  1158.      mov  eax,ebx
  1159.      inc  edx
  1160.      out  dx,al
  1161.      mov  [esp+36],dword 0
  1162.      ret
  1163.    IIsb16l2:
  1164.  
  1165.      cmp  eax,2    ; set volume - cd
  1166.      jnz  IIsb16l3
  1167.      ; L
  1168.      mov  dx,word [sb16]
  1169.      add  dx,4
  1170.      mov  al,0x36
  1171.      out  dx,al
  1172.      mov  eax,ebx
  1173.      inc  edx
  1174.      out  dx,al
  1175.      ; R
  1176.      mov  dx,word [sb16]
  1177.      add  dx,4
  1178.      mov  al,0x37
  1179.      out  dx,al
  1180.      mov  eax,ebx
  1181.      inc  edx
  1182.      out  dx,al
  1183.      mov  [esp+36],dword 0
  1184.      ret
  1185.    IIsb16l3:
  1186.  
  1187.      mov  [esp+36],dword 2
  1188.      ret
  1189.  
  1190.  
  1191. align 4
  1192.  
  1193. sys_wss:
  1194.  
  1195.      cmp  word [wss],word 0
  1196.      jnz  wssl1
  1197.      mov  [esp+36],dword 1
  1198.      ret
  1199.    wssl1:
  1200.  
  1201.      cmp  eax,1    ; set volume - main
  1202.      jnz  wssl2
  1203.      mov  [esp+36],dword 0
  1204.      ret
  1205.    wssl2:
  1206.  
  1207.      cmp  eax,2    ; set volume - cd
  1208.      jnz  wssl3
  1209.      ; L
  1210.      mov  dx,word [wss]
  1211.      add  dx,4
  1212.      mov  al,0x2
  1213.      out  dx,al
  1214.      mov  esi,1
  1215.      call delay_ms
  1216.      mov  eax,ebx
  1217.      inc  edx
  1218.      out  dx,al
  1219.      ; R
  1220.      mov  dx,word [wss]
  1221.      add  dx,4
  1222.      mov  al,0x3
  1223.      out  dx,al
  1224.      mov  esi,1
  1225.      call delay_ms
  1226.      mov  eax,ebx
  1227.      inc  edx
  1228.      out  dx,al
  1229.      mov  [esp+36],dword 0
  1230.      ret
  1231.    wssl3:
  1232.      mov   [esp+36],dword 2
  1233.      ret
  1234.  
  1235. display_number:
  1236.  
  1237. ; eax = print type, al=0 -> ebx is number
  1238. ;                   al=1 -> ebx is pointer
  1239. ;                   ah=0 -> display decimal
  1240. ;                   ah=1 -> display hexadecimal
  1241. ;                   ah=2 -> display binary
  1242. ;                   eax bits 16-21 = number of digits to display (0-32)
  1243. ;                   eax bits 22-31 = reserved
  1244. ;
  1245. ; ebx = number or pointer
  1246. ; ecx = x shl 16 + y
  1247. ; edx = color
  1248.  
  1249.      cmp   eax,0xffff            ; length > 0 ?
  1250.      jge   cont_displ
  1251.      ret
  1252.    cont_displ:
  1253.  
  1254.      cmp   eax,61*0x10000        ; length <= 60 ?
  1255.      jb    cont_displ2
  1256.      ret
  1257.    cont_displ2:
  1258.  
  1259.      pushad
  1260.  
  1261.      cmp   al,1                  ; ecx is a pointer ?
  1262.      jne   displnl1
  1263.      mov   ebx,[ebx+std_application_base_address]
  1264.    displnl1:
  1265.      sub   esp,64
  1266.  
  1267.      cmp   ah,0                  ; DECIMAL
  1268.      jne   no_display_desnum
  1269.      shr   eax,16
  1270.      and   eax,0x3f
  1271.      push  eax
  1272.      mov   edi,esp
  1273.      add   edi,4+64
  1274.      mov   ecx,eax
  1275.      mov   eax,ebx
  1276.      mov   ebx,10
  1277.    d_desnum:
  1278.      xor   edx,edx
  1279.      div   ebx
  1280.      add   dl,48
  1281.      mov   [edi],dl
  1282.      dec   edi
  1283.      loop  d_desnum
  1284.      pop   eax
  1285.      call  draw_num_text
  1286.      add   esp,64
  1287.      popad
  1288.      ret
  1289.    no_display_desnum:
  1290.  
  1291.      cmp   ah,0x01               ; HEXADECIMAL
  1292.      jne   no_display_hexnum
  1293.      shr   eax,16
  1294.      and   eax,0x3f
  1295.      push  eax
  1296.      mov   edi,esp
  1297.      add   edi,4+64
  1298.      mov   ecx,eax
  1299.      mov   eax,ebx
  1300.      mov   ebx,16
  1301.    d_hexnum:
  1302.      xor   edx,edx
  1303.      div   ebx
  1304.      add   edx,hexletters
  1305.      mov   dl,[edx]
  1306.      mov   [edi],dl
  1307.      dec   edi
  1308.      loop  d_hexnum
  1309.      pop   eax
  1310.      call  draw_num_text
  1311.      add   esp,64
  1312.      popad
  1313.      ret
  1314.    no_display_hexnum:
  1315.  
  1316.      cmp   ah,0x02               ; BINARY
  1317.      jne   no_display_binnum
  1318.      shr   eax,16
  1319.      and   eax,0x3f
  1320.      push  eax
  1321.      mov   edi,esp
  1322.      add   edi,4+64
  1323.      mov   ecx,eax
  1324.      mov   eax,ebx
  1325.      mov   ebx,2
  1326.    d_binnum:
  1327.      xor   edx,edx
  1328.      div   ebx
  1329.      add   dl,48
  1330.      mov   [edi],dl
  1331.      dec   edi
  1332.      loop  d_binnum
  1333.      pop   eax
  1334.      call  draw_num_text
  1335.      add   esp,64
  1336.      popad
  1337.      ret
  1338.    no_display_binnum:
  1339.  
  1340.      add   esp,64
  1341.      popad
  1342.      ret
  1343.  
  1344.  
  1345. draw_num_text:
  1346.  
  1347.      ; dtext
  1348.      ;
  1349.      ; eax x & y
  1350.      ; ebx color
  1351.      ; ecx start of text
  1352.      ; edx length
  1353.      ; edi 1 force
  1354.  
  1355. ;        mov     edi,[0x3000]
  1356. ;        shl     edi,8
  1357. ;        add     ax,word[edi+0x80000+APPDATA.wnd_clientbox.top]
  1358. ;        rol     eax,16
  1359. ;        add     ax,word[edi+0x80000+APPDATA.wnd_clientbox.left]
  1360. ;        rol     eax,16
  1361.  
  1362.      mov   edx,eax
  1363.      mov   ecx,65
  1364.      sub   ecx,eax
  1365.      add   ecx,esp
  1366.      add   ecx,4
  1367.      mov   eax,[esp+64+32-8+4]
  1368.      push  edx                       ; add window start x & y
  1369.      mov   edx,[0x3010]
  1370.      mov   ebx,[edx-twdw+WDATA.box.left]
  1371.         add     ebx, [(edx-0x3000)*8+0x80000+APPDATA.wnd_clientbox.left]
  1372.      shl   ebx,16
  1373.      add   ebx,[edx-twdw+WDATA.box.top]
  1374.         add     ebx, [(edx-0x3000)*8+0x80000+APPDATA.wnd_clientbox.top]
  1375.      add   eax,ebx
  1376.      pop   edx
  1377.      mov   ebx,[esp+64+32-12+4]
  1378.         and     ebx, not 0x80000000     ; force counted string
  1379.         mov     esi, [esp+64+4+4]
  1380.      xor   edi,edi
  1381.      jmp   dtext
  1382.  
  1383. read_string:
  1384.  
  1385.     ; eax  read_area
  1386.     ; ebx  color of letter
  1387.     ; ecx  color of background
  1388.     ; edx  number of letters to read
  1389.     ; esi  [x start]*65536 + [y_start]
  1390.  
  1391.     ret
  1392.  
  1393.  
  1394. align 4
  1395.  
  1396. sys_setup:
  1397.  
  1398. ; 1=roland mpu midi base , base io address
  1399. ; 2=keyboard   1, base kaybap 2, shift keymap, 9 country 1eng 2fi 3ger 4rus
  1400. ; 3=cd base    1, pri.master 2, pri slave 3 sec master, 4 sec slave
  1401. ; 4=sb16 base , base io address
  1402. ; 5=system language, 1eng 2fi 3ger 4rus
  1403. ; 6=wss base , base io address
  1404. ; 7=hd base    1, pri.master 2, pri slave 3 sec master, 4 sec slave
  1405. ; 8=fat32 partition in hd
  1406. ; 9
  1407. ; 10 = sound dma channel
  1408. ; 11 = enable lba read
  1409. ; 12 = enable pci access
  1410.  
  1411.  
  1412.      mov  [esp+36],dword 0
  1413.      cmp  eax,1                      ; MIDI
  1414.      jnz  nsyse1
  1415.      cmp  ebx,0x100
  1416.      jb   nsyse1
  1417.      mov  edx,65535
  1418.      cmp  edx,ebx
  1419.      jb   nsyse1
  1420.      mov  [midi_base],bx
  1421.      mov  word [mididp],bx
  1422.      inc  bx
  1423.      mov  word [midisp],bx
  1424.      ret
  1425.  
  1426. midi_base dw 0
  1427.  
  1428.    nsyse1:
  1429.  
  1430.      cmp  eax,2                      ; KEYBOARD
  1431.      jnz  nsyse2
  1432.      cmp  ebx,1
  1433.      jnz  kbnobase
  1434.      mov  edi,[0x3010]
  1435.      add  ecx,[edi+TASKDATA.mem_start]
  1436.      mov  eax,ecx
  1437.      mov  ebx,keymap
  1438.      mov  ecx,128
  1439.      call memmove
  1440.      ret
  1441.    kbnobase:
  1442.      cmp  ebx,2
  1443.      jnz  kbnoshift
  1444.      mov  edi,[0x3010]
  1445.      add  ecx,[edi+TASKDATA.mem_start]
  1446.      mov  eax,ecx
  1447.      mov  ebx,keymap_shift
  1448.      mov  ecx,128
  1449.      call memmove
  1450.      ret
  1451.    kbnoshift:
  1452.      cmp  ebx,3
  1453.      jne  kbnoalt
  1454.      mov  edi,[0x3010]
  1455.      add  ecx,[edi+TASKDATA.mem_start]
  1456.      mov  eax,ecx
  1457.      mov  ebx,keymap_alt
  1458.      mov  ecx,128
  1459.      call memmove
  1460.      ret
  1461.    kbnoalt:
  1462.      cmp  ebx,9
  1463.      jnz  kbnocountry
  1464.      mov  word [keyboard],cx
  1465.      ret
  1466.    kbnocountry:
  1467.      mov  [esp+36],dword 1
  1468.      ret
  1469.    nsyse2:
  1470.      cmp  eax,3                      ; CD
  1471.      jnz  nsyse3
  1472.      test ebx,ebx
  1473.      jz   nosesl
  1474.      cmp  ebx, 4
  1475.      ja   nosesl
  1476.      mov  [cd_base],bl
  1477.      cmp  ebx,1
  1478.      jnz  noprma
  1479.      mov  [cdbase],0x1f0
  1480.      mov  [cdid],0xa0
  1481.    noprma:
  1482.      cmp  ebx,2
  1483.      jnz  noprsl
  1484.      mov  [cdbase],0x1f0
  1485.      mov  [cdid],0xb0
  1486.    noprsl:
  1487.      cmp  ebx,3
  1488.      jnz  nosema
  1489.      mov  [cdbase],0x170
  1490.      mov  [cdid],0xa0
  1491.    nosema:
  1492.      cmp  ebx,4
  1493.      jnz  nosesl
  1494.      mov  [cdbase],0x170
  1495.      mov  [cdid],0xb0
  1496.    nosesl:
  1497.      ret
  1498.  
  1499. cd_base db 0
  1500.  
  1501.    nsyse3:
  1502.  
  1503.      cmp  eax,4                      ; SB
  1504.      jnz  nsyse4
  1505.      cmp  ebx,0x100
  1506.      jb   nsyse4
  1507.      mov  edx,65535
  1508.      cmp  edx,ebx
  1509.      jb   nsyse4
  1510.      mov  word [sb16],bx
  1511.      ret
  1512.    nsyse4:
  1513.  
  1514.      cmp  eax,5                      ; SYSTEM LANGUAGE
  1515.      jnz  nsyse5
  1516.      mov  [syslang],ebx
  1517.      ret
  1518.    nsyse5:
  1519.  
  1520.      cmp  eax,6                      ; WSS
  1521.      jnz  nsyse6
  1522.      cmp  ebx,0x100
  1523.      jb   nsyse6
  1524.      mov  [wss],ebx
  1525.      ret
  1526.  
  1527. wss_temp dd 0
  1528.  
  1529.    nsyse6:
  1530.  
  1531.      cmp  eax,7                      ; HD BASE
  1532.      jne  nsyse7
  1533.      test ebx,ebx
  1534.      jz   nosethd
  1535.      cmp  ebx,4
  1536.      ja   nosethd
  1537.      mov  [hd_base],bl
  1538.      cmp  ebx,1
  1539.      jnz  noprmahd
  1540.      mov  [hdbase],0x1f0
  1541.      mov  [hdid],0x0
  1542.      mov  [hdpos],1
  1543. ;     call set_FAT32_variables
  1544.    noprmahd:
  1545.      cmp  ebx,2
  1546.      jnz  noprslhd
  1547.      mov  [hdbase],0x1f0
  1548.      mov  [hdid],0x10
  1549.      mov  [hdpos],2
  1550. ;     call set_FAT32_variables
  1551.    noprslhd:
  1552.      cmp  ebx,3
  1553.      jnz  nosemahd
  1554.      mov  [hdbase],0x170
  1555.      mov  [hdid],0x0
  1556.      mov  [hdpos],3
  1557. ;     call set_FAT32_variables
  1558.    nosemahd:
  1559.      cmp  ebx,4
  1560.      jnz  noseslhd
  1561.      mov  [hdbase],0x170
  1562.      mov  [hdid],0x10
  1563.      mov  [hdpos],4
  1564. ;     call set_FAT32_variables
  1565.    noseslhd:
  1566.      mov   [0xfe10],dword 0
  1567.     call  reserve_hd1
  1568.     call  clear_hd_cache
  1569.     mov   [hd1_status],0        ; free
  1570.    nosethd:
  1571.      ret
  1572.  
  1573. hd_base db 0
  1574.  
  1575.    nsyse7:
  1576.  
  1577.      cmp  eax,8                      ; HD PARTITION
  1578.      jne  nsyse8
  1579.      mov  [fat32part],ebx
  1580. ;     call set_FAT32_variables
  1581.     call  reserve_hd1
  1582.     call  clear_hd_cache
  1583.      pusha
  1584.      call  choice_necessity_partition_1
  1585.      popa
  1586.     mov   [hd1_status],0        ; free
  1587.      ret
  1588.    nsyse8:
  1589.  
  1590.      cmp  eax,10                     ; SOUND DMA CHANNEL
  1591.      jne  no_set_sound_dma
  1592.      cmp  ebx,3
  1593.      ja   sys_setup_err
  1594.      mov  [sound_dma],ebx
  1595.      ret
  1596.    no_set_sound_dma:
  1597.  
  1598.      cmp  eax,11                     ; ENABLE LBA READ
  1599.      jne  no_set_lba_read
  1600.      and  ebx,1
  1601.      mov  [lba_read_enabled],ebx
  1602.      ret
  1603.    no_set_lba_read:
  1604.  
  1605.      cmp  eax,12                     ; ENABLE PCI ACCESS
  1606.      jne  no_set_pci_access
  1607.      and  ebx,1
  1608.      mov  [pci_access_enabled],ebx
  1609.      ret
  1610.    no_set_pci_access:
  1611.  
  1612. ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1613. include 'vmodeint.inc'
  1614. ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1615.  
  1616. sys_setup_err:
  1617.      mov  [esp+36],dword -1
  1618.      ret
  1619.  
  1620.  
  1621. align 4
  1622.  
  1623. sys_getsetup:
  1624.  
  1625. ; 1=roland mpu midi base , base io address
  1626. ; 2=keyboard   1, base kaybap 2, shift keymap, 9 country 1eng 2fi 3ger 4rus
  1627. ; 3=cd base    1, pri.master 2, pri slave 3 sec master, 4 sec slave
  1628. ; 4=sb16 base , base io address
  1629. ; 5=system language, 1eng 2fi 3ger 4rus
  1630. ; 6=wss base
  1631. ; 7=hd base    1, pri.master 2, pri slave 3 sec master, 4 sec slave
  1632. ; 8=fat32 partition in hd
  1633. ; 9=get hs timer tic
  1634.  
  1635.      cmp  eax,1
  1636.      jne  ngsyse1
  1637.      movzx eax,[midi_base]
  1638.      mov  [esp+36],eax
  1639.      ret
  1640.    ngsyse1:
  1641.  
  1642.      cmp  eax,2
  1643.      jne  ngsyse2
  1644.      cmp  ebx,1
  1645.      jnz  kbnobaseret
  1646.      mov  edi,[0x3010]
  1647.      add  ecx,[edi+TASKDATA.mem_start]
  1648.      mov  ebx,ecx
  1649.      mov  eax,keymap
  1650.      mov  ecx,128
  1651.      call memmove
  1652.      ret
  1653.    kbnobaseret:
  1654.      cmp  ebx,2
  1655.      jnz  kbnoshiftret
  1656.      mov  edi,[0x3010]
  1657.      add  ecx,[edi+TASKDATA.mem_start]
  1658.      mov  ebx,ecx
  1659.      mov  eax,keymap_shift
  1660.      mov  ecx,128
  1661.      call memmove
  1662.      ret
  1663.    kbnoshiftret:
  1664.      cmp  ebx,3
  1665.      jne  kbnoaltret
  1666.      mov  edi,[0x3010]
  1667.      add  ecx,[edi+TASKDATA.mem_start]
  1668.      mov  ebx,ecx
  1669.      mov  eax,keymap_alt
  1670.      mov  ecx,128
  1671.      call memmove
  1672.      ret
  1673.    kbnoaltret:
  1674.      cmp  ebx,9
  1675.      jnz  ngsyse2
  1676.      movzx eax,word [keyboard]
  1677.      mov  [esp+36],eax
  1678.      ret
  1679.    ngsyse2:
  1680.  
  1681.      cmp  eax,3
  1682.      jnz  ngsyse3
  1683.      movzx eax,[cd_base]
  1684.      mov  [esp+36],eax
  1685.      ret
  1686.    ngsyse3:
  1687.  
  1688.      cmp  eax,4
  1689.      jne  ngsyse4
  1690.      mov  eax,[sb16]
  1691.      mov  [esp+36],eax
  1692.      ret
  1693.    ngsyse4:
  1694.  
  1695.      cmp  eax,5
  1696.      jnz  ngsyse5
  1697.      mov  eax,[syslang]
  1698.      mov  [esp+36],eax
  1699.      ret
  1700.    ngsyse5:
  1701.      cmp  eax,6
  1702.      jnz  ngsyse6
  1703.      mov  eax,[wss]
  1704.      mov  [esp+36],eax
  1705.      ret
  1706.    ngsyse6:
  1707.      cmp  eax,7
  1708.      jnz  ngsyse7
  1709.      movzx eax,[hd_base]
  1710.      mov  [esp+36],eax
  1711.      ret
  1712.    ngsyse7:
  1713.      cmp  eax,8
  1714.      jnz  ngsyse8
  1715.      mov eax,[fat32part]
  1716.      mov  [esp+36],eax
  1717.      ret
  1718.    ngsyse8:
  1719.      cmp  eax,9
  1720.      jne  ngsyse9
  1721.      mov  eax,[timer_ticks] ;[0xfdf0]
  1722.      mov  [esp+36],eax
  1723.      ret
  1724.    ngsyse9:
  1725.      cmp  eax,10
  1726.      jnz  ngsyse10
  1727.      mov eax,[sound_dma]
  1728.      mov  [esp+36],eax
  1729.      ret
  1730.    ngsyse10:
  1731.      cmp  eax,11
  1732.      jnz  ngsyse11
  1733.      mov eax,[lba_read_enabled]
  1734.      mov  [esp+36],eax
  1735.      ret
  1736.    ngsyse11:
  1737.      cmp  eax,12
  1738.      jnz  ngsyse12
  1739.      mov eax,[pci_access_enabled]
  1740.      mov  [esp+36],eax
  1741.      ret
  1742.    ngsyse12:
  1743.      mov  [esp+36],dword 1
  1744.      ret
  1745.  
  1746.  
  1747. align 4
  1748.  
  1749. readmousepos:
  1750.  
  1751. ; eax=0 screen relative
  1752. ; eax=1 window relative
  1753. ; eax=2 buttons pressed
  1754.  
  1755.     test eax,eax
  1756.     jnz  nosr
  1757.     mov  eax,[0xfb0a]
  1758.     shl  eax,16
  1759.     mov  ax,[0xfb0c]
  1760.     mov  [esp+36],eax
  1761.     ret
  1762.   nosr:
  1763.  
  1764.     cmp  eax,1
  1765.     jnz  nowr
  1766.     mov  eax,[0xfb0a]
  1767.     shl  eax,16
  1768.     mov  ax,[0xfb0c]
  1769.     mov  esi,[0x3010]
  1770.     mov  bx, word [esi-twdw+WDATA.box.left]
  1771.     shl  ebx,16
  1772.     mov  bx, word [esi-twdw+WDATA.box.top]
  1773.     sub  eax,ebx
  1774.  
  1775.         mov     edi,[0x3000]
  1776.         shl     edi,8
  1777.         sub     ax,word[edi+0x80000+APPDATA.wnd_clientbox.top]
  1778.         rol     eax,16
  1779.         sub     ax,word[edi+0x80000+APPDATA.wnd_clientbox.left]
  1780.         rol     eax,16
  1781.  
  1782.     mov  [esp+36],eax
  1783.     ret
  1784.   nowr:
  1785.  
  1786.     cmp   eax,2
  1787.     jnz   nomb
  1788.     movzx eax,byte [0xfb40]
  1789.   nomb:
  1790.     mov   [esp+36],eax
  1791.  
  1792.     ret
  1793.  
  1794. is_input:
  1795.  
  1796.    push edx
  1797.    mov  dx,word [midisp]
  1798.    in   al,dx
  1799.    and  al,0x80
  1800.    pop  edx
  1801.    ret
  1802.  
  1803.  
  1804. is_output:
  1805.  
  1806.    push edx
  1807.    mov  dx,word [midisp]
  1808.    in   al,dx
  1809.    and  al,0x40
  1810.    pop  edx
  1811.    ret
  1812.  
  1813.  
  1814. get_mpu_in:
  1815.  
  1816.    push edx
  1817.    mov  dx,word [mididp]
  1818.    in   al,dx
  1819.    pop  edx
  1820.    ret
  1821.  
  1822.  
  1823. put_mpu_out:
  1824.  
  1825.    push edx
  1826.    mov  dx,word [mididp]
  1827.    out  dx,al
  1828.    pop  edx
  1829.    ret
  1830.  
  1831.  
  1832. setuart:
  1833.  
  1834.  su1:
  1835.    call is_output
  1836.    cmp  al,0
  1837.    jnz  su1
  1838.    mov  dx,word [midisp]
  1839.    mov  al,0xff
  1840.    out  dx,al
  1841.  su2:
  1842.    mov  dx,word [midisp]
  1843.    mov  al,0xff
  1844.    out  dx,al
  1845.    call is_input
  1846.    cmp  al,0
  1847.    jnz  su2
  1848.    call get_mpu_in
  1849.    cmp  al,0xfe
  1850.    jnz  su2
  1851.  su3:
  1852.    call is_output
  1853.    cmp  al,0
  1854.    jnz  su3
  1855.    mov  dx,word [midisp]
  1856.    mov  al,0x3f
  1857.    out  dx,al
  1858.  
  1859.    ret
  1860.  
  1861.  
  1862. align 4
  1863.  
  1864. sys_midi:
  1865.  
  1866.      cmp  [mididp],0
  1867.      jnz  sm0
  1868.      mov  [esp+36],dword 1
  1869.      ret
  1870.    sm0:
  1871.  
  1872.      cmp  eax,1
  1873.      mov  [esp+36],dword 0
  1874.      jnz  smn1
  1875.      call setuart
  1876.      ret
  1877.    smn1:
  1878.  
  1879.      cmp  eax,2
  1880.      jnz  smn2
  1881.    sm10:
  1882.      call get_mpu_in
  1883.      call is_output
  1884.      test al,al
  1885.      jnz  sm10
  1886.      mov  al,bl
  1887.      call put_mpu_out
  1888.      ret
  1889.    smn2:
  1890.  
  1891.      ret
  1892.  
  1893.  
  1894. detect_devices:
  1895. ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1896. include 'detect/commouse.inc'
  1897. include 'detect/ps2mouse.inc'
  1898. ;include 'detect/dev_fd.inc'
  1899. ;include 'detect/dev_hdcd.inc'
  1900. ;include 'detect/sear_par.inc'
  1901. ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1902.     ret
  1903.  
  1904.  
  1905. sys_end:
  1906.  
  1907.      mov   eax,[0x3010]
  1908.      mov   [eax+TASKDATA.state], 3  ; terminate this program
  1909.  
  1910.     waitterm:            ; wait here for termination
  1911.      mov   eax,5
  1912.      call  delay_hs
  1913.      jmp   waitterm
  1914.  
  1915. iglobal
  1916. align 4
  1917. sys_system_table:
  1918.         dd      sysfn_shutdown          ; 1 = system shutdown
  1919.         dd      sysfn_terminate         ; 2 = terminate thread
  1920.         dd      sysfn_activate          ; 3 = activate window
  1921.         dd      sysfn_getidletime       ; 4 = get idle time
  1922.         dd      sysfn_getcpuclock       ; 5 = get cpu clock
  1923.         dd      sysfn_saveramdisk       ; 6 = save ramdisk
  1924.         dd      sysfn_getactive         ; 7 = get active window
  1925.         dd      sysfn_sound_flag        ; 8 = get/set sound_flag
  1926.         dd      sysfn_shutdown_param    ; 9 = shutdown with parameter
  1927.         dd      sysfn_minimize          ; 10 = minimize window
  1928.         dd      sysfn_getdiskinfo       ; 11 = get disk subsystem info
  1929.         dd      sysfn_lastkey           ; 12 = get last pressed key
  1930.         dd      sysfn_getversion        ; 13 = get kernel version
  1931.         dd      sysfn_waitretrace       ; 14 = wait retrace
  1932.         dd      sysfn_centermouse       ; 15 = center mouse cursor
  1933.         dd      sysfn_getfreemem        ; 16 = get free memory size
  1934.         dd      sysfn_getallmem         ; 17 = get total memory size
  1935.         dd      sysfn_terminate2        ; 18 = terminate thread using PID
  1936.                                         ;                 instead of slot
  1937.         dd      sysfn_mouse_acceleration; 19 = set/get mouse acceleration
  1938.         dd      sysfn_meminfo           ; 20 = get extended memory info
  1939. sysfn_num = ($ - sys_system_table)/4
  1940. endg
  1941.  
  1942. sys_system:
  1943.         dec     eax
  1944.         cmp     eax, sysfn_num
  1945.         jae     @f
  1946.         jmp     dword [sys_system_table + eax*4]
  1947. @@:
  1948.         ret
  1949.  
  1950. sysfn_shutdown:         ; 18.1 = BOOT
  1951.      mov  [0x2f0000+0x9030],byte 0
  1952.   for_shutdown_parameter:
  1953.      mov  eax,[0x3004]
  1954.      add  eax,2
  1955.      mov  [shutdown_processes],eax
  1956.      mov  [0xFF00],al
  1957.      and  dword [esp+36], 0
  1958.      ret
  1959.   uglobal
  1960.    shutdown_processes: dd 0x0
  1961.   endg
  1962.  
  1963. sysfn_terminate:        ; 18.2 = TERMINATE
  1964.      cmp  ebx,2
  1965.      jb   noprocessterminate
  1966.      mov  edx,[0x3004]
  1967.      cmp  ebx,edx
  1968.      ja   noprocessterminate
  1969.      mov  eax,[0x3004]
  1970.      shl  ebx,5
  1971.      mov  edx,[ebx+0x3000+TASKDATA.pid]
  1972.      add  ebx,0x3000+TASKDATA.state
  1973.      cmp  byte [ebx], 9
  1974.      jz   noprocessterminate
  1975.  
  1976.      ;call MEM_Heap_Lock      ;guarantee that process isn't working with heap
  1977.      mov  [ebx],byte 3       ; clear possible i40's
  1978.      ;call MEM_Heap_UnLock
  1979.  
  1980.      cmp  edx,[application_table_status]    ; clear app table stat
  1981.      jne  noatsc
  1982.      mov  [application_table_status],0
  1983.    noatsc:
  1984.    noprocessterminate:
  1985.      ret
  1986.  
  1987. sysfn_terminate2:
  1988. ;lock application_table_status mutex
  1989. .table_status:
  1990.     cli
  1991.     cmp    [application_table_status],0
  1992.     je     .stf
  1993.     sti
  1994.     call   change_task
  1995.     jmp    .table_status
  1996. .stf:
  1997.     call   set_application_table_status
  1998.     mov    eax,ebx
  1999.     call   pid_to_slot
  2000.     test   eax,eax
  2001.     jz     .not_found
  2002.     mov    ebx,eax
  2003.     cli
  2004.     call   sysfn_terminate
  2005.     mov    [application_table_status],0
  2006.     sti
  2007.     and    dword [esp+36],0
  2008.     ret
  2009. .not_found:
  2010.     mov    [application_table_status],0
  2011.     or     dword [esp+36],-1
  2012.     ret
  2013.  
  2014. sysfn_activate:         ; 18.3 = ACTIVATE WINDOW
  2015.      cmp  ebx,2
  2016.      jb   .nowindowactivate
  2017.      cmp  ebx,[0x3004]
  2018.      ja   .nowindowactivate
  2019.  
  2020.      mov   [window_minimize], 2   ; restore window if minimized
  2021.  
  2022.      movzx esi, word [0xC000 + ebx*2]
  2023.      cmp   esi, [0x3004]
  2024.      je    .nowindowactivate ; already active
  2025.  
  2026.      mov   edi, ebx
  2027.      shl   edi, 5
  2028.      add   edi, window_data
  2029.      movzx esi, word [0xC000 + ebx * 2]
  2030.      lea   esi, [0xC400 + esi * 2]
  2031.      call  waredraw
  2032. .nowindowactivate:
  2033.      ret
  2034.  
  2035. sysfn_getidletime:              ; 18.4 = GET IDLETIME
  2036.      mov  eax,[idleusesec]
  2037.      mov  [esp+36], eax
  2038.      ret
  2039.  
  2040. sysfn_getcpuclock:              ; 18.5 = GET TSC/SEC
  2041.      mov  eax,[0xf600]
  2042.      mov  [esp+36], eax
  2043.      ret
  2044.  
  2045. ;  SAVE ramdisk to /hd/1/menuet.img
  2046. ;!!!!!!!!!!!!!!!!!!!!!!!!
  2047.    include 'blkdev/rdsave.inc'
  2048. ;!!!!!!!!!!!!!!!!!!!!!!!!
  2049.  
  2050. sysfn_getactive:        ; 18.7 = get active window
  2051.      mov  eax, [0x3004]
  2052.    movzx  eax, word [0xC400 + eax*2]
  2053.      mov  [esp+36],eax
  2054.      ret
  2055.  
  2056. sysfn_sound_flag:       ; 18.8 = get/set sound_flag
  2057.      cmp  ebx,1
  2058.      jne  nogetsoundflag
  2059.      movzx  eax,byte [sound_flag] ; get sound_flag
  2060.      mov  [esp+36],eax
  2061.      ret
  2062.  nogetsoundflag:
  2063.      cmp  ebx,2
  2064.      jnz  nosoundflag
  2065.      xor  byte [sound_flag], 1
  2066.  nosoundflag:
  2067.      ret
  2068.  
  2069. sysfn_shutdown_param:   ; 18.9 = system shutdown with param
  2070.      cmp  ebx,1
  2071.      jl   exit_for_anyone
  2072.      cmp  ebx,4
  2073.      jg   exit_for_anyone
  2074.      mov  [0x2f0000+0x9030],bl
  2075.      jmp  for_shutdown_parameter
  2076.  
  2077. sysfn_minimize:         ; 18.10 = minimize window
  2078.      mov   [window_minimize],1
  2079.  exit_for_anyone:
  2080.      ret
  2081.  
  2082. sysfn_getdiskinfo:      ; 18.11 = get disk info table
  2083.      cmp  ebx,1
  2084.      jnz  full_table
  2085.   small_table:
  2086.      call for_all_tables
  2087.      mov ecx,10
  2088.      cld
  2089.      rep movsb
  2090.      ret
  2091.    for_all_tables:
  2092.      mov edi,[0x3010]
  2093.      mov edi,[edi+TASKDATA.mem_start]
  2094.      add edi,ecx
  2095.      mov esi,0x40000
  2096.      ret
  2097.   full_table:
  2098.      cmp  ebx,2
  2099.      jnz  exit_for_anyone
  2100.      call for_all_tables
  2101.      mov ecx,16384
  2102.      cld
  2103.      rep movsd
  2104.      ret
  2105.  
  2106. sysfn_lastkey:          ; 18.12 = return 0 (backward compatibility)
  2107.         and     dword [esp+36], 0
  2108.         ret
  2109.  
  2110. sysfn_getversion:       ; 18.13 = get kernel ID and version
  2111.      mov edi,[0x3010]
  2112.      mov edi,[edi+TASKDATA.mem_start]
  2113.      add edi,ebx
  2114.      mov esi,version_inf
  2115.      mov ecx,version_end-version_inf
  2116.      cld
  2117.      rep movsb
  2118.      ret
  2119.  
  2120. sysfn_waitretrace:     ; 18.14 = sys wait retrace
  2121.      ;wait retrace functions
  2122.  sys_wait_retrace:
  2123.      mov edx,0x3da
  2124.  WaitRetrace_loop:
  2125.      in al,dx
  2126.      test al,1000b
  2127.      jz WaitRetrace_loop
  2128.      mov [esp+36],dword 0
  2129.      ret
  2130.  
  2131. sysfn_centermouse:      ; 18.15 = mouse centered
  2132.      call  mouse_centered
  2133.      mov [esp+36],dword 0
  2134.      ret
  2135.  
  2136. sysfn_mouse_acceleration: ; 18.19 = set/get mouse features
  2137.      cmp  ebx,0  ; get mouse speed factor
  2138.      jnz  .set_mouse_acceleration
  2139.      xor  eax,eax
  2140.      mov  ax,[mouse_speed_factor]
  2141.      mov  [esp+36],eax
  2142.      ret
  2143.  .set_mouse_acceleration:
  2144.      cmp  ebx,1  ; set mouse speed factor
  2145.      jnz  .get_mouse_delay
  2146.      mov  [mouse_speed_factor],cx
  2147.      ret
  2148.  .get_mouse_delay:
  2149.      cmp  ebx,2  ; get mouse delay
  2150.      jnz  .set_mouse_delay
  2151.      mov  eax,[mouse_delay]
  2152.      mov  [esp+36],eax
  2153.      ret
  2154.  .set_mouse_delay:
  2155.      cmp  ebx,3  ; set mouse delay
  2156.      jnz  .set_pointer_position
  2157.      mov  [mouse_delay],ecx
  2158.      ret
  2159.  .set_pointer_position:
  2160.      cmp  ebx,4  ; set mouse pointer position
  2161.      jnz  .end
  2162.      mov   [0xFB0C],cx    ;y
  2163.      ror   ecx,16
  2164.      mov   [0xFB0A],cx    ;x
  2165.      rol   ecx,16
  2166.  .end:
  2167.      ret
  2168.  
  2169. sysfn_getfreemem:
  2170.      mov eax, [pg_data.pages_free]
  2171.      shl eax, 2
  2172.      mov [esp+36],eax
  2173.      ret
  2174.  
  2175. sysfn_getallmem:
  2176.      mov  eax,[MEM_AMOUNT]
  2177.      shr eax, 10
  2178.      mov  [esp+36],eax
  2179.      ret
  2180.  
  2181. uglobal
  2182. ;// mike.dld, 2006-29-01 [
  2183. screen_workarea RECT
  2184. ;// mike.dld, 2006-29-01 ]
  2185. window_minimize db 0
  2186. sound_flag      db 0
  2187. endg
  2188.  
  2189. iglobal
  2190. version_inf:
  2191.   db 0,6,0,0  ; version 0.6.0.0
  2192.   db UID_KOLIBRI
  2193.   db 'Kolibri',0
  2194. version_end:
  2195. endg
  2196.  
  2197. UID_NONE=0
  2198. UID_MENUETOS=1   ;official
  2199. UID_KOLIBRI=2    ;russian
  2200.  
  2201. sys_cachetodiskette:
  2202. ;    pushad
  2203. ;    cmp  eax,1
  2204. ;    jne  no_write_all_of_ramdisk
  2205. ;    call fdc_writeramdisk
  2206. ;    popad
  2207. ;    ret
  2208. ;  no_write_all_of_ramdisk:
  2209. ;    cmp eax,2
  2210. ;    jne no_write_part_of_ramdisk
  2211. ;    call fdc_commitflush
  2212. ;    popad
  2213. ;    ret
  2214. ;  no_write_part_of_ramdisk:
  2215. ;    cmp  eax,3
  2216. ;    jne  no_set_fdc
  2217. ;    call fdc_set
  2218. ;    popad
  2219. ;    ret
  2220. ;  no_set_fdc:
  2221. ;    cmp  eax,4
  2222. ;    jne  no_get_fdc
  2223. ;    popad
  2224. ;    call fdc_get
  2225. ;    mov    [esp+36],ecx
  2226. ;    ret
  2227. ;  no_get_fdc:
  2228. ;    popad
  2229. ;    ret
  2230.     cmp eax,1
  2231.     jne no_floppy_a_save
  2232.     mov   [flp_number],1
  2233.     jmp save_image_on_floppy
  2234.   no_floppy_a_save:
  2235.     cmp eax,2
  2236.     jne no_floppy_b_save
  2237.     mov   [flp_number],2
  2238.   save_image_on_floppy:
  2239.     call save_image
  2240.     mov  [esp+36],dword 0
  2241.     cmp  [FDC_Status],0
  2242.     je   yes_floppy_save
  2243.   no_floppy_b_save:
  2244.     mov [esp+36],dword 1
  2245.   yes_floppy_save:
  2246.     ret
  2247.  
  2248. uglobal
  2249. ;  bgrchanged  dd  0x0
  2250. endg
  2251.  
  2252. sys_background:
  2253.  
  2254.     cmp   eax,1                            ; BACKGROUND SIZE
  2255.     jnz   nosb1
  2256.     cmp   ebx,0
  2257.     je    sbgrr
  2258.     cmp   ecx,0
  2259.     je    sbgrr
  2260.     mov   [display_data-8],ebx
  2261.     mov   [display_data-4],ecx
  2262. ;    mov   [bgrchanged],1
  2263.   sbgrr:
  2264.     ret
  2265.   nosb1:
  2266.  
  2267.     cmp   eax,2                            ; SET PIXEL
  2268.     jnz   nosb2
  2269.     mov   edx,0x160000-16
  2270.     cmp   edx,ebx
  2271.     jbe   nosb2
  2272.     mov   edx,[ebx]
  2273.     and   edx,0xFF000000 ;255*256*256*256
  2274.     and   ecx,0x00FFFFFF ;255*256*256+255*256+255
  2275.     add   edx,ecx
  2276.     mov   [ebx+0x300000],edx
  2277. ;    mov   [bgrchanged],1
  2278.     ret
  2279.   nosb2:
  2280.  
  2281.     cmp   eax,3                            ; DRAW BACKGROUND
  2282.     jnz   nosb3
  2283. draw_background_temp:
  2284. ;    cmp   [bgrchanged],1 ;0
  2285. ;    je    nosb31
  2286. ;draw_background_temp:
  2287. ;    mov   [bgrchanged],1 ;0
  2288.     mov   [0xfff0],byte 1
  2289.     mov    [background_defined], 1
  2290.    nosb31:
  2291.     ret
  2292.   nosb3:
  2293.  
  2294.     cmp   eax,4                            ; TILED / STRETCHED
  2295.     jnz   nosb4
  2296.     cmp   ebx,[display_data-12]
  2297.     je    nosb41
  2298.     mov   [display_data-12],ebx
  2299. ;    mov   [bgrchanged],1
  2300.    nosb41:
  2301.     ret
  2302.   nosb4:
  2303.  
  2304.     cmp   eax,5                            ; BLOCK MOVE TO BGR
  2305.     jnz   nosb5
  2306.   ; bughere
  2307.     mov   edi, [0x3010]
  2308.     add   ebx, [edi+TASKDATA.mem_start]
  2309.  ;   mov   esi, ebx
  2310.  ;   mov   edi, ecx
  2311.     mov   eax, ebx
  2312.     mov   ebx, ecx
  2313.     add   ecx, edx
  2314.     cmp   ecx, 0x160000-16
  2315.     ja    .fin
  2316.  ;   add   edi, 0x300000
  2317.     add   ebx, 0x300000
  2318.     mov   ecx, edx
  2319.     cmp   ecx, 0x160000-16
  2320.     ja    .fin
  2321. ;    mov   [bgrchanged],1
  2322.   ;  cld
  2323.   ;  rep   movsb
  2324.     call  memmove
  2325.   .fin:
  2326.     ret
  2327.   nosb5:
  2328.  
  2329.     ret
  2330.  
  2331.  
  2332. align 4
  2333.  
  2334. sys_getbackground:
  2335.  
  2336.     cmp   eax,1                                  ; SIZE
  2337.     jnz   nogb1
  2338.     mov   eax,[display_data-8]
  2339.     shl   eax,16
  2340.     mov   ax,[display_data-4]
  2341.     mov   [esp+36],eax
  2342.     ret
  2343.   nogb1:
  2344.  
  2345.     cmp   eax,2                                  ; PIXEL
  2346.     jnz   nogb2
  2347.     mov   edx,0x160000-16
  2348.     cmp   edx,ebx
  2349.     jbe   nogb2
  2350.     mov   eax, [ebx+0x300000]
  2351.     and   eax, 0xFFFFFF
  2352.     mov   [esp+36],eax
  2353.     ret
  2354.   nogb2:
  2355.  
  2356.     cmp   eax,4                                  ; TILED / STRETCHED
  2357.     jnz   nogb4
  2358.     mov   eax,[display_data-12]
  2359.   nogb4:
  2360.     mov   [esp+36],eax
  2361.     ret
  2362.  
  2363.  
  2364. align 4
  2365.  
  2366. sys_getkey:
  2367.     mov   [esp+36],dword 1
  2368. ; test main buffer
  2369.     mov   ebx, [0x3000]                          ; TOP OF WINDOW STACK
  2370.     movzx ecx,word [0xC000 + ebx * 2]
  2371.     mov   edx,[0x3004]
  2372.     cmp   ecx,edx
  2373.     jne   .finish
  2374.     cmp   [0xf400],byte 0
  2375.     je    .finish
  2376.     movzx eax,byte [0xf401]
  2377.     shl   eax,8
  2378.     push  eax
  2379.     dec   byte [0xf400]
  2380.     and   byte [0xf400],127
  2381.     movzx ecx,byte [0xf400]
  2382.     add   ecx,2
  2383.  ;   mov   esi,0xf402
  2384.  ;   mov   edi,0xf401
  2385.  ;   cld
  2386.  ;  rep   movsb
  2387.     mov   eax, 0xF402
  2388.     mov   ebx, 0xF401
  2389.     call  memmove
  2390.     pop   eax
  2391. .ret_eax:
  2392.     mov   [esp+36],eax
  2393.     ret
  2394.  .finish:
  2395. ; test hotkeys buffer
  2396.         mov     ecx, hotkey_buffer
  2397. @@:
  2398.         cmp     [ecx], ebx
  2399.         jz      .found
  2400.         add     ecx, 8
  2401.         cmp     ecx, hotkey_buffer+120*8
  2402.         jb      @b
  2403.         ret
  2404. .found:
  2405.         mov     ax, [ecx+6]
  2406.         shl     eax, 16
  2407.         mov     ah, [ecx+4]
  2408.         mov     al, 2
  2409.         and     dword [ecx+4], 0
  2410.         and     dword [ecx], 0
  2411.         jmp     .ret_eax
  2412.  
  2413. align 4
  2414.  
  2415. sys_getbutton:
  2416.  
  2417.     mov   ebx, [0x3000]                         ; TOP OF WINDOW STACK
  2418.     mov   [esp+36],dword 1
  2419.     movzx ecx, word [0xC000 + ebx * 2]
  2420.     mov   edx, [0x3004] ; less than 256 processes
  2421.     cmp   ecx,edx
  2422.     jne   .exit
  2423.     movzx eax,byte [0xf500]
  2424.     test  eax,eax
  2425.     jz    .exit
  2426.     mov   eax,[0xf501]
  2427.     shl   eax,8
  2428.     mov   [0xf500],byte 0
  2429.     mov   [esp+36],eax
  2430.  .exit:
  2431.     ret
  2432.  
  2433.  
  2434. align 4
  2435.  
  2436. sys_cpuusage:
  2437.  
  2438. ;  RETURN:
  2439. ;
  2440. ;  +00 dword     process cpu usage
  2441. ;  +04  word     position in windowing stack
  2442. ;  +06  word     windowing stack value at current position (cpu nro)
  2443. ;  +10 12 bytes  name
  2444. ;  +22 dword     start in mem
  2445. ;  +26 dword     used mem
  2446. ;  +30 dword     PID , process idenfification number
  2447. ;
  2448.  
  2449.     mov  edi,[0x3010]   ; eax = return area
  2450.     add  eax,[edi + TASKDATA.mem_start]
  2451.  
  2452.     cmp  ebx,-1         ; who am I ?
  2453.     jne  no_who_am_i
  2454.     mov  ebx,[0x3000]
  2455.   no_who_am_i:
  2456.  
  2457.     push eax            ; return area
  2458.     push ebx            ; process number
  2459.  
  2460.     push ebx
  2461.     push ebx
  2462.     push eax
  2463.  
  2464.     ; return memory usage
  2465.  
  2466.     xor  edx,edx
  2467.     mov  eax,0x20
  2468.     mul  ebx
  2469.     add  eax,0x3000+TASKDATA.cpu_usage
  2470.     mov  ebx,eax
  2471.     pop  eax
  2472.     mov  ecx,[ebx]
  2473.     mov  [eax],ecx
  2474.     pop  ebx
  2475.     mov  cx, [0xC000 + ebx * 2]
  2476.     mov  [eax+4],cx
  2477.     mov  cx, [0xC400 + ebx * 2]
  2478.     mov  [eax+6],cx
  2479.     push eax
  2480.     mov  eax,ebx
  2481.     shl  eax,8
  2482.     add  eax,0x80000+APPDATA.app_name
  2483.     pop  ebx
  2484.     add  ebx,10
  2485.     mov  ecx,11
  2486.     call memmove
  2487.  
  2488.     ; memory usage
  2489.  
  2490.     xor    eax,eax
  2491.     mov    edx,0x100000*16
  2492.     pop    ecx                                   ; get gdt of tss
  2493.     cmp    ecx,1
  2494.     je     os_mem
  2495.     shl    ecx,8
  2496.     mov    edx,[0x80000+ecx+APPDATA.mem_size] ;0x8c
  2497.     mov    eax,std_application_base_address
  2498.     ; eax run base -> edx used memory
  2499.   os_mem:
  2500.     dec    edx
  2501.     mov    [ebx+12],eax
  2502.     mov    [ebx+16],edx
  2503.  
  2504.     ; PID (+30)
  2505.  
  2506.     mov    eax,[esp]
  2507.     shl    eax,5
  2508.     add    eax,0x3000+TASKDATA.pid
  2509.     mov    eax,[eax]
  2510.     mov    [ebx+20],eax
  2511.  
  2512.     ; window position and size
  2513.  
  2514.     mov    esi,[esp]
  2515.     shl    esi,5
  2516.     add    esi,window_data + WDATA.box
  2517.     mov    edi,[esp+4]
  2518.     add    edi,34
  2519.     mov    ecx,4
  2520.     cld
  2521.     rep    movsd
  2522.  
  2523.     ; Process state (+50)
  2524.  
  2525.     mov    eax,[esp]
  2526.     shl    eax,5
  2527.     add    eax,0x3000+TASKDATA.state
  2528.     mov    eax,[eax]
  2529.     mov    [ebx+40],ax
  2530.  
  2531.     ; Window client area box
  2532.  
  2533.     mov    esi,[esp]
  2534.     shl    esi,8
  2535.     add    esi,0x80000+APPDATA.wnd_clientbox
  2536.     lea    edi,[ebx+44]
  2537.     mov    ecx,4
  2538.     rep    movsd
  2539.  
  2540.     ; Window state
  2541.  
  2542.     mov    esi,[esp]
  2543.     shl    esi,5
  2544.     add    esi,window_data + WDATA.box
  2545.     mov    al,[esi+window_data+WDATA.fl_wstate]
  2546.     mov    [edi],al
  2547.  
  2548.     pop    ebx
  2549.     pop    eax
  2550.  
  2551.     ; return number of processes
  2552.  
  2553.     mov    eax,[0x3004]
  2554.     mov    [esp+36],eax
  2555.     ret
  2556.  
  2557.  
  2558.  
  2559.  
  2560. align 4
  2561. sys_clock:
  2562.         cli
  2563.   ; Mikhail Lisovin  xx Jan 2005
  2564.   @@:   mov   al, 10
  2565.         out   0x70, al
  2566.         in    al, 0x71
  2567.         test  al, al
  2568.         jns   @f
  2569.         mov   esi, 1
  2570.         call  delay_ms
  2571.         jmp   @b
  2572.   @@:
  2573.   ; end Lisovin's fix
  2574.  
  2575.         xor   al,al           ; seconds
  2576.         out   0x70,al
  2577.         in    al,0x71
  2578.         movzx ecx,al
  2579.         mov   al,02           ; minutes
  2580.         shl   ecx,16
  2581.         out   0x70,al
  2582.         in    al,0x71
  2583.         movzx edx,al
  2584.         mov   al,04           ; hours
  2585.         shl   edx,8
  2586.         out   0x70,al
  2587.         in    al,0x71
  2588.         add   ecx,edx
  2589.         movzx edx,al
  2590.         add   ecx,edx
  2591.         sti
  2592.         mov   [esp+36],ecx
  2593.         ret
  2594.  
  2595.  
  2596. align 4
  2597.  
  2598. sys_date:
  2599.  
  2600.         cli
  2601.  
  2602.   @@:   mov   al, 10
  2603.         out   0x70, al
  2604.         in    al, 0x71
  2605.         test  al, al
  2606.         jns   @f
  2607.         mov   esi, 1
  2608.         call  delay_ms
  2609.         jmp   @b
  2610.   @@:
  2611.  
  2612.         mov     ch,0
  2613.         mov     al,7            ; date
  2614.         out     0x70,al
  2615.         in      al,0x71
  2616.         mov     cl,al
  2617.         mov     al,8            ; month
  2618.         shl     ecx,16
  2619.         out     0x70,al
  2620.         in      al,0x71
  2621.         mov     ch,al
  2622.         mov     al,9            ; year
  2623.         out     0x70,al
  2624.         in      al,0x71
  2625.         mov     cl,al
  2626.         sti
  2627.         mov     [esp+36],ecx
  2628.         ret
  2629.  
  2630.  
  2631. ; redraw status
  2632.  
  2633. sys_redrawstat:
  2634.  
  2635.     cmp  eax,1
  2636.     jne  no_widgets_away
  2637.  
  2638.     ; buttons away
  2639.  
  2640.     mov   ecx,[0x3000]
  2641.  
  2642.   sys_newba2:
  2643.  
  2644.     mov   edi,[0xfe88]
  2645.     cmp   [edi],dword 0  ; empty button list ?
  2646.     je    end_of_buttons_away
  2647.  
  2648.     movzx ebx,word [edi]
  2649.     inc   ebx
  2650.  
  2651.     mov   eax,edi
  2652.  
  2653.   sys_newba:
  2654.  
  2655.     dec   ebx
  2656.     jz    end_of_buttons_away
  2657.  
  2658.     add   eax,0x10
  2659.     cmp   cx,[eax]
  2660.     jnz   sys_newba
  2661.  
  2662.     push  eax ebx ecx
  2663.     mov   ecx,ebx
  2664.     inc   ecx
  2665.     shl   ecx,4
  2666.     mov   ebx,eax
  2667.     add   eax,0x10
  2668.     call  memmove
  2669.     dec   dword [edi]
  2670.     pop   ecx ebx eax
  2671.  
  2672.     jmp   sys_newba2
  2673.  
  2674.   end_of_buttons_away:
  2675.  
  2676.     ret
  2677.  
  2678.   no_widgets_away:
  2679.  
  2680.     cmp   eax,2
  2681.     jnz   srl1
  2682.  
  2683.     mov   edx,[0x3010]      ; return whole screen draw area for this app
  2684.     add   edx,draw_data-0x3000
  2685.     mov   [edx+RECT.left], 0
  2686.     mov   [edx+RECT.top], 0
  2687.     mov   eax,[0xfe00]
  2688.     mov   [edx+RECT.right],eax
  2689.     mov   eax,[0xfe04]
  2690.     mov   [edx+RECT.bottom],eax
  2691.  
  2692.     mov   edi,[0x3010]
  2693.     mov   [edi-twdw+WDATA.fl_wdrawn], 1   ; no new position & buttons from app
  2694.     mov   [edi-twdw+WDATA.fl_redraw], 0
  2695.  
  2696.     call  sys_window_mouse
  2697.  
  2698.     ret
  2699.  
  2700.   srl1:
  2701.  
  2702.     ret
  2703.  
  2704.  
  2705. sys_drawwindow:
  2706.  
  2707.     mov   edi,ecx
  2708.     shr   edi,16+8
  2709.     and   edi,15
  2710.  
  2711.     cmp   edi,0   ; type I    - original style
  2712.     jne   nosyswI
  2713.     inc   [mouse_pause]
  2714.     call  [disable_mouse]
  2715.     call  sys_set_window
  2716.     call  [disable_mouse]
  2717.     call  drawwindow_I
  2718.     ;dec   [mouse_pause]
  2719.     ;call   [draw_pointer]
  2720.     ;ret
  2721.     jmp   draw_window_caption.2
  2722.   nosyswI:
  2723.  
  2724.     cmp   edi,1   ; type II   - only reserve area, no draw
  2725.     jne   nosyswII
  2726.     inc   [mouse_pause]
  2727.     call  [disable_mouse]
  2728.     call  sys_set_window
  2729.     call  [disable_mouse]
  2730.     call  sys_window_mouse
  2731.     dec   [mouse_pause]
  2732.     call   [draw_pointer]
  2733.     ret
  2734.   nosyswII:
  2735.  
  2736.     cmp   edi,2   ; type III  - new style
  2737.     jne   nosyswIII
  2738.     inc   [mouse_pause]
  2739.     call  [disable_mouse]
  2740.     call  sys_set_window
  2741.     call  [disable_mouse]
  2742.     call  drawwindow_III
  2743.     ;dec   [mouse_pause]
  2744.     ;call   [draw_pointer]
  2745.     ;ret
  2746.     jmp   draw_window_caption.2
  2747.   nosyswIII:
  2748.  
  2749.     cmp   edi,3   ; type IV - skinned window
  2750.     jne   nosyswIV
  2751.  
  2752.     ; parameter for drawwindow_IV
  2753.     push  0
  2754.     mov   edi, [0x3004]
  2755.     movzx edi, word [0xC400 + edi*2]
  2756.     cmp   edi, [0x3000]
  2757.     jne   @f
  2758.     inc   dword [esp]
  2759.  @@:
  2760.  
  2761.     inc   [mouse_pause]
  2762.     call  [disable_mouse]
  2763.     call  sys_set_window
  2764.     call  [disable_mouse]
  2765.     call  drawwindow_IV
  2766.     ;dec   [mouse_pause]
  2767.     ;call   [draw_pointer]
  2768.     ;ret
  2769.     jmp   draw_window_caption.2
  2770.   nosyswIV:
  2771.  
  2772.     ret
  2773.  
  2774.  
  2775. draw_window_caption:
  2776.         inc     [mouse_pause]
  2777.         call    [disable_mouse]
  2778.  
  2779.         xor     eax,eax
  2780.         mov     edx,[0x3004]
  2781.         movzx   edx,word[0xC400+edx*2]
  2782.         cmp     edx,[0x3000]
  2783.         jne     @f
  2784.         inc     eax
  2785.     @@: mov     edx,[0x3000]
  2786.         shl     edx,5
  2787.         add     edx,window_data
  2788.         movzx   ebx,[edx+WDATA.fl_wstyle]
  2789.         and     bl,0x0F
  2790.         cmp     bl,3
  2791.         jne     .not_style_3
  2792.  
  2793.         push    edx
  2794.         call    drawwindow_IV_caption
  2795.         add     esp,4
  2796.         jmp     .2
  2797.  
  2798.   .not_style_3:
  2799.         cmp     bl,2
  2800.         jne     .not_style_2
  2801.  
  2802.         call    drawwindow_III_caption
  2803.         jmp     .2
  2804.  
  2805.   .not_style_2:
  2806.         cmp     bl,0
  2807.         jne     .2
  2808.  
  2809.         call    drawwindow_I_caption
  2810.  
  2811. ;--------------------------------------------------------------
  2812.   .2:   ;jmp     @f
  2813.         mov     edi,[0x3000]
  2814.         shl     edi,5
  2815.         test    [edi+window_data+WDATA.fl_wstyle],WSTYLE_HASCAPTION
  2816.         jz      @f
  2817.         mov     ecx,[edi*8+0x80000+APPDATA.wnd_caption]
  2818.         or      ecx,ecx
  2819.         jz      @f
  2820.         add     ecx,[edi+twdw+TASKDATA.mem_start]
  2821.  
  2822.         movzx   eax,[edi+window_data+WDATA.fl_wstyle]
  2823.         and     al,0x0F
  2824.         cmp     al,3
  2825.         jne     .not_skinned
  2826.  
  2827.         mov     ebp,[edi+window_data+WDATA.box.left-2]
  2828.         mov     bp,word[edi+window_data+WDATA.box.top]
  2829.         movzx   eax,word[edi+window_data+WDATA.box.width]
  2830.         sub     ax,[_skinmargins.left]
  2831.         sub     ax,[_skinmargins.right]
  2832.         cwde
  2833.         cdq
  2834.         mov     ebx,6
  2835.         idiv    ebx
  2836.         or      eax,eax
  2837.         js      @f
  2838.         mov     edx,eax
  2839.         mov     eax,dword[_skinmargins.left-2]
  2840.         mov     ax,word[_skinh]
  2841.         sub     ax,[_skinmargins.bottom]
  2842.         sub     ax,[_skinmargins.top]
  2843.         sar     ax,1
  2844.         adc     ax,0
  2845.         add     ax,[_skinmargins.top]
  2846.         add     ax,-3
  2847.         add     eax,ebp
  2848.         jmp     .dodraw
  2849.  
  2850.   .not_skinned:
  2851.         cmp     al,1
  2852.         je      @f
  2853.  
  2854.         mov     ebp,[edi+window_data+WDATA.box.left-2]
  2855.         mov     bp,word[edi+window_data+WDATA.box.top]
  2856.         movzx   eax,word[edi+window_data+WDATA.box.width]
  2857.         sub     eax,16
  2858.         cwde
  2859.         cdq
  2860.         mov     ebx,6
  2861.         idiv    ebx
  2862.         or      eax,eax
  2863.         js      @f
  2864.         mov     edx,eax
  2865.         mov     eax,0x00080007
  2866.         add     eax,ebp
  2867. .dodraw:
  2868.         mov     ebx,[common_colours+16];0x00FFFFFF
  2869.         or      ebx, 0x80000000
  2870.         xor     edi,edi
  2871.         call    dtext
  2872.  
  2873.     @@:
  2874. ;--------------------------------------------------------------
  2875.         dec     [mouse_pause]
  2876.         call    [draw_pointer]
  2877.         ret
  2878.  
  2879. iglobal
  2880. align 4
  2881. window_topleft dd \
  2882.   1, 21,\
  2883.   0,  0,\
  2884.   5, 20,\
  2885.   5,  ?
  2886. endg
  2887.  
  2888. set_window_clientbox:
  2889.         push    eax ecx edi
  2890.  
  2891.         mov     eax,[_skinh]
  2892.         mov     [window_topleft+4*7],eax
  2893.  
  2894.         mov     ecx,edi
  2895.         sub     edi,window_data
  2896.         shl     edi,3
  2897.         test    [ecx+WDATA.fl_wstyle],WSTYLE_CLIENTRELATIVE
  2898.         jz      @f
  2899.  
  2900.         movzx   eax,[ecx+WDATA.fl_wstyle]
  2901.         and     eax,0x0F
  2902.         mov     eax,[eax*8+window_topleft+0]
  2903.         mov     [edi+0x80000+APPDATA.wnd_clientbox.left],eax
  2904.         shl     eax,1
  2905.         neg     eax
  2906.         add     eax,[ecx+WDATA.box.width]
  2907.         mov     [edi+0x80000+APPDATA.wnd_clientbox.width],eax
  2908.  
  2909.         movzx   eax,[ecx+WDATA.fl_wstyle]
  2910.         and     eax,0x0F
  2911.         push    [eax*8+window_topleft+0]
  2912.         mov     eax,[eax