Subversion Repositories Kolibri OS

Rev

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