Subversion Repositories Kolibri OS

Rev

Rev 7716 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. ;---------------------------------------------------------------------
  2. ;
  3. ;   DOCPAK FOR KOLIBRI v1.2
  4. ;   Written in pure assembly by Ivushkin Andrey aka Willow
  5. ;
  6. ;---------------------------------------------------------------------
  7.  
  8. FILE_COUNT=0
  9. DEF_FILE equ 'g'
  10.  
  11. macro embed_docdir_file fn
  12. {
  13.  forward
  14.    local label,label2,label3
  15.    dd label2-label
  16.    dd label-label3
  17.    label3:
  18.    db fn
  19.    label:
  20.      file '%DOCDIR%' # fn
  21.    label2:
  22.    FILE_COUNT=FILE_COUNT+1
  23. }
  24. macro embed_local_file fn
  25. {
  26.  forward
  27.    local label,label2,label3
  28.    dd label2-label
  29.    dd label-label3
  30.    label3:
  31.    db fn
  32.    label:
  33.      file fn
  34.    label2:
  35.    FILE_COUNT=FILE_COUNT+1
  36. }
  37.  
  38.    use32
  39.    org    0x0
  40.    db     'MENUET01'              ; 8 byte id
  41.    dd     0x01                    ; header version
  42.    dd     start                   ; start of code
  43.    dd     I_END                   ; size of image
  44.    dd     I_END+0x400             ; memory for app
  45.    dd     I_END+0x400             ; esp
  46.    dd     my_param , 0x0          ; I_Param , I_Icon
  47. include '../../../macros.inc'
  48. include 'lang.inc'
  49.  
  50. start:
  51.   cmp   [my_param],0
  52.   je    red
  53.   cmp   [my_param],'a'
  54.   jb    .par_a
  55.   cmp   [my_param],'z'
  56.   jbe   .ok2
  57.  .par_a:
  58.   mov   [my_param],DEF_FILE
  59.  .ok2:
  60.   movzx ecx,[my_param]
  61.   mov   [my_param],'*'
  62.  .open:
  63.   sub   ecx,'a'-1
  64.   mov   edx,embedded
  65.   xor   esi,esi
  66.  .list:
  67.   lea   edx,[edx+esi+8]
  68.   mov   esi,[edx-8]
  69.   add   edx,[edx-4]
  70.   test  esi,esi
  71.   jz    .close
  72.   loop  .list
  73.         push    edx
  74. ; convert number in esi to decimal representation
  75.         mov     ecx, 10
  76.         push    -'0'
  77.         mov     eax, esi
  78. @@:
  79.         xor     edx, edx
  80.         div     ecx
  81.         push    edx
  82.         test    eax, eax
  83.         jnz     @b
  84.         mov     edi, fsize
  85. @@:
  86.         pop     eax
  87.         add     al, '0'
  88.         stosb
  89.         jnz     @b
  90.   mcall 70,fileinfo
  91.   mov   ecx,eax
  92.   mcall 5,20
  93.   pop   edx
  94.   mcall 60,2
  95.   cmp   [my_param],'*'
  96.   jne   still
  97.  .close:
  98.   mcall -1
  99.  
  100. red:
  101.   mov   [my_param],'a'
  102.  
  103.   mcall 48, 3, sc, sizeof.system_colors
  104.  
  105.   mcall 12,1
  106.  
  107. BTN_H equ 21
  108.  
  109.   mov  edx,[sc.work]
  110.   or   edx,0x34000000
  111.   mcall 0, <220,141>, <30,FILECOUNT*(BTN_H+3)+37>, , ,title
  112.  
  113.   mov   ecx,FILECOUNT
  114.   mov   ebx,23 shl 16+100
  115.   mov   esi,[sc.work_button]
  116.   mov   edi,5 shl 16+BTN_H
  117.   mov   edx,10
  118.   mov   eax,8
  119.  .btnlp:
  120.   push  ecx
  121.   mcall ,,edi
  122.   add   edi,(BTN_H+3) shl 16
  123.   inc   edx
  124.   pop   ecx
  125.   loop  .btnlp
  126.   mov   ecx,FILECOUNT
  127.   mov   edx,embedded
  128.   xor   edi,edi
  129.   mov   ebx,30 shl 16+8
  130.   mov   eax,4
  131.  .list:
  132.   lea   edx,[edx+edi+8]
  133.   mov   edi,[edx-8]
  134.   pusha
  135.   sub   ebx,20 shl 16
  136.   mov ecx, [sc.work_text]
  137.   or  ecx, 0x30000000
  138.   mcall ,,,my_param,1
  139.   inc   [my_param]
  140.   popa
  141.   push  ecx
  142.   mov esi, [edx-4]
  143.   sub esi, 4 ;remove .txt extension
  144.   mov ecx, [sc.work_button_text]
  145.   or  ecx, 0x30000000
  146.   mcall
  147.   pop   ecx
  148.   add   esi, 4
  149.   add   edx, esi
  150.   add   ebx,(BTN_H+3)
  151.   loop  .list
  152.   mcall 12,2
  153.  
  154. still:
  155.   mcall 10
  156.   cmp   eax,1
  157.   je    red
  158.   cmp   eax,2
  159.   jne   .nokey
  160.   mcall 2
  161.   cmp   ah,27 ;Esc
  162.   je    start.close
  163.   cmp   ah,'a'
  164.   jb    still
  165.   cmp   ah,'a'+FILECOUNT
  166.   jae   still
  167.   jmp   .cxax
  168.  .nokey:
  169.   mcall 17
  170.   cmp   ah,1
  171.   je    start.close
  172.   sub   ah,10-'a'
  173.  .cxax:
  174.   movzx  ecx,ah
  175.   jmp   start.open
  176.  
  177. fileinfo:
  178.         dd      7
  179.         dd      0
  180.         dd      param
  181.         dd      0 ,0
  182.         db      '/sys/TINYPAD',0
  183.  
  184. param  db '*'
  185. fsize:
  186.        times 10 db '0'
  187.        db 0
  188.  
  189. embedded:
  190.  
  191. ; Please use only filenames w/o path!
  192.  
  193. ; -- Start of embedding area ------
  194.   embed_docdir_file 'CREDITS.TXT'       ;a
  195. if lang eq ru
  196.   embed_docdir_file 'GNU.TXT'          ;b
  197. else
  198.   embed_docdir_file 'COPYING.TXT'      ;b
  199. end if
  200.   embed_docdir_file 'HOT_KEYS.TXT'     ;c
  201.   embed_local_file 'FASM.TXT'          ;d
  202.   embed_docdir_file 'MTDBG.TXT'        ;e
  203. if lang eq ru
  204.   embed_local_file 'SYSFUNCR.TXT'      ;f
  205. else
  206.   embed_local_file 'SYSFUNCS.TXT'      ;f
  207. end if
  208.   embed_local_file 'STACK.TXT'        ;g
  209.   embed_docdir_file 'KFAR_KEYS.TXT'    ;h
  210.   embed_docdir_file 'INI.TXT'          ;i
  211.   embed_docdir_file 'OPENDIAL.TXT'     ;j
  212. ; -- End of embedding area  -------
  213.  
  214.   dd 0
  215. FILECOUNT = FILE_COUNT
  216.  
  217.   if ~ FILECOUNT>0
  218.     error 'No embedded files'
  219.   end if
  220.  
  221. my_param db 0
  222.   rb 256
  223. I_END:
  224.  
  225. title db 'Doc Pack',0
  226.  
  227. sc     system_colors
  228.