WebSVN – Kolibri OS – Diff – /programs/system/ss/trunk/@SS.ASM

 ;   SCREENSAVER APPLICATION by lisovin@26.ru
+;
 ;   Compile with FASM for Menuet
+;
    use32
    org    0x0
+used_memory = 0x10000
    db     'MENUET01'     ; 8 byte id
    dd     0x01           ; header version
    dd     START          ; start of code
    dd     I_END          ; size of image
-   dd     0x40000        ; memory for app (256 Kb)
+   dd     used_memory    ; memory for app
-   dd     0x40000        ; esp
+   dd     used_memory    ; esp
    dd     0x0 , 0x0      ; I_Param , I_Icon
 include   'lang.inc'
 include   '..\..\..\macros.inc'
+purge mov       ; decrease kpack'ed size
 ;include   'debug.inc'
 START:
-     mov  eax,14
-     mcall
-     and  eax,0xFFFF0000
-     mov  [top_right_corner],eax
      mov  eax,40        ; ãáâ ®¢¨âì ¬ áªã á®¡ëâ¨©
      mov  ebx,110010b   ; à¥ £¨àã¥¬   ª« ¢¨ âãàã, ¬ëèì, ®âà¨á®¢ªã ä®
      mcall
+bgr_changed:
-     mov  eax,14        ; ¯®«ãç¨¬ à §¬¥àë íªà
+        mov     eax,14
-     mcall
+        mcall
-     mov  [y_max],ax
+        mov     [y_max], ax
-     shr  eax,16
+        shr     eax, 16
-     mov  [x_max],ax
+        mov     [x_max], ax
+        shl     eax, 16
+        mov     [top_right_corner], eax
-  event:              ; ®¡à ¡®âç¨ª á®¡ëâ¨© (¢á¥å)
+still:
-    mov  eax,26
+        movzx   ebx, [time]
-    mov  ebx,9
+        imul    ebx, 60*100
-    mcall         ; ¯®«ãç¨âì ¢à¥¬ï á¨áâ¥¬ë
+        mcall   23              ; ¦¤ñ¬ á®¡ëâ¨ï ¢ â¥ç¥¨¥ [time] ¬¨ãâ
+        test    eax, eax
+        jz      create_ss_thread
-;    mov  eax,3
+        cmp     al, 2           ; key in buffer?
-;    mcall
+        jz      key
-    mov  [evtime],eax ; § ¯®¬¨âì ¥£®
+        cmp     al, 5           ; background redraw?
-    mov  eax,37
+        jz      bgr_changed
+; mouse event
-    mov  ebx,2
+        mcall   37,2            ; ¯à®¢¥à¨¬ ª®¯ª¨
-    mcall
+        and     al, 3
-    cmp  eax,3        ; ¯à®¤®«¦¨¬, ¥á«¨  ¦ â  áà¥¤ïï ª®¯ª  ¬ëè¨
+        cmp     al, 3           ;  ¦ âë ®¡¥ ª®¯ª¨ ¬ëè¨?
-    jne  still
+        jnz     still
-    mov  eax,37       ; ¯à®¢¥à¨¬ ª®®à¤¨ âë
-    mov  ebx,0
-    mcall
+        mcall   37,0            ; ¯à®¢¥à¨¬ ª®®à¤¨ âë
-    cmp  [top_right_corner],eax
-    je   create_setup ; á®§¤ ñ¬ ®ª®  áâà®©ª¨, ¥á«¨ ¬ëèì ¢ ¢¥àå¥¬ ¯à ¢®¬
-                      ; ã£«ã íªà
-still:                  ; ®á®¢®© æ¨ª« ¯à®£à ¬¬ë
-    mov  eax,23         ; ¦¤ñ¬ á®¡ëâ¨ï ¢ â¥ç¥¨¥ 1 á¥ªã¤ë
-    mov  ebx,100
-    mcall
-    bt   dword [params],0  ; ssaver works?
-    jc   event
-    bt   dword [params],1  ; setup works?
-    jc   event
-    cmp  eax,2          ; key in buffer ?
+        cmp     [top_right_corner], eax
-    je   event
-    cmp  eax,5
-    je   event
-    cmp  eax,6
+        jnz     still
-    je   event
-    mov  eax,26
-    mov  ebx,9
-    mcall
+create_setup:
-    sub  eax,[evtime]
-    xor  edx,edx
+        test    [params], 2
-    mov  ebx,60*100     ; ¯®¤¥«¨¬   60*100, ¯®«ãç¨¬ ¢à¥¬ï ¢ ¬¨ãâ å
+        jnz     still           ; ®ª®  áâà®¥ª ã¦¥ á®§¤ ®
-    div  ebx
+        mcall   51,1,sthread,used_memory-0x1000
-    cmp  al,[time]
+        or      [params], 2
-    jb   still
-; current_time-evtime/100/60 = ¢à¥¬ï ¢ ¬¨ãâ å á ¯à®è«®£® á®¡ëâ¨ï
+        jmp     still
+key:
-    call create_ss
+        mcall                   ; eax = 2
-    jmp  still
+        jmp     still
-  create_setup:
+create_ss_thread:
-    bt dword [params],1
-    jc   still
-    mov  eax,51
-    mov  ebx,1
-    mov  ecx,sthread
-    mov  edx,0x3F000
+        test    [params], 3
-    mcall
+        jnz     still
-    bts dword [params],1
+        call    create_ss
-    jmp  still
+        jmp     still
-  create_ss:
+create_ss:
-    mov  eax,51
-    mov  ebx,1
-    mov  ecx,thread
+        mcall   51,1,thread,used_memory-0x2000
-    mov  edx,0x3E000
-    mcall
-    bts dword [params],0
+        or      [params], 1
-    ret
+        ret
  thread:
-    mov  eax,5
+;    mov  eax,5
-    mov  ebx,eax
+;    mov  ebx,eax
-    mcall
+;    mcall
     mov  eax,40
     mov  ebx,100010b
     mcall
     cmp  dword [type],0
     je   drawsswin
     cmp  dword [type],24
     je   asminit
     mov  dword [delay],1
     mov  [lx1],10         ; for "draw line"
     mov  [lx2],40
     mov  [ly1],50
     mov  [ly2],100
     mov  [addx1],1
     mov  [addx2],1
     mov  [addy1],1
     mov  [addy2],1
     jmp  drawsswin
  asminit:                 ; for "assembler"
     mov  dword [delay],25
-    mov  eax,58
+    mov  eax,70
     mov  ebx,fileinfo
     mcall
+    mov  [filesize], ebx
  asminit1:
-    mov  eax,data_from_file
+    mov  [stringstart],data_from_file
-    mov  [stringstart],eax
     mov  dword [stringlen],1
  newpage:
     mov  word [stringpos],10
  drawsswin:
     xor  eax,eax
-    mov  ebx,eax
-    mov  ecx,eax
-    mov  bx,[x_max]
+    movzx ebx,[x_max]
-    mov  cx,[y_max]
+    movzx ecx,[y_max]
     inc  ebx
     inc  ecx
     mov  edx,0x01000000
     mcall
     mov  eax,13
     xor  edx,edx
     mcall
  tstill:
     mov  eax,23
     mov  ebx,[delay]
     mcall
-    cmp  eax,2
+    test eax,eax
-    je   thr_end
+    jnz  thr_end
-    cmp  eax,6
-    je   thr_end
     cmp  dword [type],0
     je   tstill
     cmp  dword [type],24
     je   drawssasm
     call draw_line
     jmp  tstill
  thr_end:
-    btr  dword [params],0
+    and  [params], not 1
-    mov  eax,26
-    mov  ebx,9
-    mcall
-    mov  [evtime],eax
     or   eax,-1
     mcall
  drawssasm:
     mov  edi,[stringstart]
     add  edi,[stringlen]
     dec  edi
-    mov  eax,edi
-    sub  eax,data_from_file
+    lea  eax,[edi-data_from_file]
-    cmp  eax,10450
+    cmp  eax,[filesize]
     ja   asminit1
-    cmp word [edi],0x0a0d
+    cmp  word [edi],0x0a0d
+    je   addstring
+    cmp  byte [edi],0x0a
     jne  noaddstring
+    dec  edi
+addstring:
     add  word [stringpos],10
     add  edi,2
     mov  [stringstart],edi
     mov dword [stringlen],1
     mov  ax,[stringpos]
     cmp  ax,[y_max]
     jb   tstill
     jmp  newpage
  noaddstring:
     mov  eax,4
     mov  ebx,10*65536
     mov  bx,[stringpos]
     mov  ecx,0x104ba010
     mov  edx,[stringstart]
     mov  esi,[stringlen]
     mcall
     inc dword [stringlen]
     cmp byte [edi],byte ' '
     je   drawssasm
     jmp  tstill
 draw_line:
-    xor  esi,esi
-    xor  edi,edi
-    mov  si,[x_max]
+    movzx esi,[x_max]
-    mov  di,[y_max]
+    movzx edi,[y_max]
     mov  eax,[addx1]
     add  [lx1],eax
     mov  eax,[addy1]
     add  [ly1],eax
     mov  eax,[addx2]
     add  [lx2],eax
     mov  eax,[addy2]
     add  [ly2],eax
     cmp  [lx1],1
     jge  dl1
     mov  [addx1],1
   dl1:
     cmp  [lx2],1
     jge  dl2
     mov  [addx2],1
   dl2:
     cmp  [lx1],esi
     jbe  dl3
     mov  [addx1],0xffffffff
   dl3:
     cmp  [lx2],esi
     jbe  dl4
     mov  [addx2],0xffffffff
   dl4:
     cmp  [ly1],1
     jge  dl5
     mov  [addy1],1
   dl5:
     cmp  [ly2],2
     jge  dl6
     mov  [addy2],1
   dl6:
     cmp  [ly1],edi
     jbe  dl7
     mov  [addy1],-1
   dl7:
     cmp  [ly2],edi
     jbe  dl8
     mov  [addy2],-1
   dl8:
     mov  eax,[lx2]
     cmp  [lx1],eax
     jz   dnol
     mov  bx,word [lx1]
     shl  ebx,16
     mov  bx,word [lx2]
     mov  cx,word [ly1]
     shl  ecx,16
     mov  cx,word [ly2]
     mov  eax,38
     mov  edx,[lcolor]
     and  edx,0xffffff
     mcall
    dnol:
     add  [lcolor],0x010201
     ret
 sthread:                        ; start of execution
      call sdraw_window
 sstill:
     mov  eax,10                 ; wait here for event
     mcall
-    cmp  eax,1                  ; redraw request ?
+    dec  eax                    ; redraw request ?
     je   sthread
-    cmp  eax,2                  ; key in buffer ?
+    dec  eax                    ; key in buffer ?
-    je   sstill
-    cmp  eax,3                  ; button in buffer ?
+    jne  sbutton
-    je   sbutton
+    mov  al,2
     mcall
     jmp  sstill
   sbutton:                       ; button
     mov  eax,17                 ; get id
     mcall
     cmp  ah,1                   ; button id=1 ?
     jne  snoclose
-    btr dword [params],1
+    and  [params], not 2
     mov  eax,-1                 ; close this program
     mcall
   snoclose:
     cmp  ah,7
     jne  nosetfl
-    btc dword [params],0
+    xor  [params], 1
     call drawflag
     call drawtype
     call drawtime
     jmp  sstill
   nosetfl:
-    bt dword [params],0
+    test [params], 1
-    jc   sstill
+    jnz  sstill
     cmp  ah,2
     jne  notypedown
     mov  eax,[type]
     test  eax,eax
     je   sstill
     sub  eax,12
     jmp  typeupdn
   notypedown:
     cmp  ah,3
     jne  notypeup
     mov  eax,[type]
     cmp  eax,24
     jae  sstill
     add  eax,12
     jmp  typeupdn
   notypeup:
     cmp  ah,4
     jne  notimedown
     mov  al,[time]
     cmp  al,1
     jbe  sstill
-    dec  al
+    dec  eax
 ;    das
     jmp  timeupdn
   notimedown:
     cmp  ah,5
     jne  notimeup
     mov  al,[time]
     cmp  al,59 ; 0x59
     jae  sstill
-    inc  al
+    inc  eax
 ;    daa
     jmp  timeupdn
   notimeup:
     cmp  ah,6
     jne  noshow
     mov  eax,5
-    mov  ebx,150
+    mov  ebx,10;150
     mcall
     call create_ss
-    jmp  sstill
   noshow:
     jmp  sstill
   timeupdn:
     mov  [time],al
     call drawtime
     jmp  sstill
   typeupdn:
     mov  [type],eax
     call drawtype
     jmp  sstill
 ;   *********************************************
 ;   *******  WINDOW DEFINITIONS AND DRAW ********
 ;   *********************************************
 sdraw_window:
     mov  eax,12                    ; function 12:tell os about windowdraw
     mov  ebx,1                     ; 1, start of draw
     mcall
                                    ; DRAW WINDOW
     xor  eax,eax                   ; function 0 : define and draw window
     mov  ebx,100*65536+215         ; [x start] *65536 + [x size]
     mov  ecx,100*65536+70          ; [y start] *65536 + [y size]
     mov  edx,0x13400088            ; color of work area RRGGBB,8->color gl
     mov  edi,title
     mcall
-    mov  eax,8
+    mov  al,8
     mov  ebx,47*65536+10
     mov  ecx,31*65536+10
     mov  edx,2
     mov  esi,0x702050
     mcall
     push ebx
     add  ebx,13*65536
     mov  edi,ebx
     inc  edx
     mcall
     pop  ebx
     add  ecx,15*65536
     inc  edx
     mcall
     mov  ebx,edi
     inc  edx
     mcall
     mov  ebx,160*65536+40
     mov  ecx,28*65536+14
     inc  edx
     mcall
-    mov  eax,4                     ; function 4 : write text to window
+    mov  al,4                        ; function 4 : write text to window
     mov  ebx,15*65536+33             ; [x start] *65536 + [y start]
-    mov  ecx,0xffffff
+    mov  ecx,0x80ffffff
-    mov  edx,setuptext
-    mov  esi,9
+    mov  edx,setuptext
     mcall
     add  ebx,15
-    add  edx,esi
-    mov  esi,30
+    add  edx,10
     mcall
     mov  ebx,169*65536+32
     mov  edx,buttext
-    mov  esi,4
     mcall
     call drawtype
     call drawtime
     call drawflag
     mov  eax,12                    ; function 12:tell os about windowdraw
     mov  ebx,2                     ; 2, end of draw
     mcall
     ret
 drawtype:
     mov  eax,13
     mov  ebx,80*65536+75
     mov  ecx,30*65536+12
     mov  edx,0xffffff
-    bt   dword [params],0
+    test [params], 1
-    jnc  noblue
+    jz   noblue
     mov  edx,0x4e00e7
  noblue:
     mcall
-    mov  eax,4
+    mov  al,4
     mov  ebx,82*65536+32
     xor  ecx,ecx
     mov  edx,typetext
     add  edx,[type]
     mov  esi,12
     mcall
     ret
 drawtime:
     mov  eax,13
     mov  ebx,80*65536+15
     mov  ecx,45*65536+12
     mov  edx,0xffffff
-    bt   dword [params],0
+    test [params], 1
-    jnc  noblue1
+    jz   noblue1
     mov  edx,0x4e00e7
  noblue1:
     mcall
-    mov  eax,47
+    mov  al,47
     mov  edx,82*65536+47
     xor  esi,esi
     movzx ecx,byte [time]
     mov  ebx,0x00020000
     mcall
     ret
 drawflag:
     mov  eax,8
     mov  ebx,150*65536+10
     mov  ecx,45*65536+10
     mov  edx,7
     mov  esi,0xe0e0e0
     mcall
-    mov  eax,4
+    mov  al,4
     mov  ebx,153*65536+47
     xor  ecx,ecx
     mov  esi,1
     mov  edx,flag
     bt   dword [params],0
     jc   setf
     inc  edx
   setf:
     mcall
     ret
 ; DATA AREA
-buttext    db 'SHOW'
+buttext    db 'SHOW',0
 flag       db 'V '
 title      db 'SCREENSAVER SETUP',0
+setuptext  db 'TYPE: < >',0
-setuptext  db 'TYPE: < >TIME: < >     MINUTES    NEVER'
+           db 'TIME: < >     MINUTES    NEVER',0
 typetext   db 'BLACK SCREENCOLOR LINES ASSEMBLER   '
 type       dd 12
 time       db 15     ; ¢à¥¬ï ¤® § ¯ãáª  § áâ ¢ª¨ ¢ ¬¨ãâ å
 delay      dd 100
 lx1   dd  10
 lx2   dd  40
 ly1   dd  50
 ly2   dd  100
 addx1 dd  1
 addx2 dd  1
 addy1 dd  1
 addy2 dd  1
 stringlen   dd 1
 stringstart dd 0
 stringpos   dw 10
-params  dd 0     ;if bit 0 set-ssaver works if bit 1 set-setup works
+params  db 0     ;if bit 0 set-ssaver works if bit 1 set-setup works
+fileinfo:
-fileinfo:
+; used_memory-0x3000-data_from_file = ~50 Kb with current settings
-  dd 0,0,21,data_from_file,work_area
+  dd 0,0,0,used_memory-0x3000-data_from_file,data_from_file
-  db '/RD/1/SS.ASM',0
+  db '/RD/1/NETWORK/PPP.ASM',0
 I_END:
 ; UNINITIALIZED DATA:
 lcolor           dd ?
-evtime           dd ?     ; ¢à¥¬ï ¯à¥¤ë¤ãé¥£® á®¡ëâ¨ï
 x_max            dw ?     ; à §¬¥àë íªà
 y_max            dw ?
 top_right_corner dd ?
-work_area:
-rb 0x10000
+filesize        dd ?
 data_from_file:

Subversion Repositories Kolibri OS

(root)/programs/system/ss/trunk/@SS.ASM – Rev 502 → 532