Subversion Repositories Kolibri OS

Rev

Rev 122 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 122 Rev 316
Line 11... Line 11...
11 
 
 11 
 
12 
 db 'MENUET01'
 12 
 db 'MENUET01'
13 
 dd 0x01
 13 
 dd 0x01
14 
 dd START
 14 
 dd START
15 
 dd I_END
 15 
 dd I_END
16 
 dd 0x100000
 16 
 dd 0x1000
17 
 dd 0x7fff0
 17 
 dd 0x1000
Line 18... Line 18...
18 
 dd 0x0 , 0x0
 18 
 dd 0x0 , 0x0
19 
 
 19 
 
Line 20... Line 20...
20 
include "lang.inc"
 20 
include "lang.inc"
21 
include "macros.inc"
 21 
include "macros.inc"
22 
 
 22 
 
Line 23... Line 23...
23 
 
 23 
 
Line 40... Line 40...
40 
 
 40 
 
Line 41... Line 41...
41 
    call  drawclock
 41 
    call  drawclock
Line 42... Line -...
42 
 
 - 
 
43 
    jmp still
 - 
 
44 
 
 - 
 
45 
red: ; redraw
 - 
 
46 
    call drawwindow
 42 
 
47 
    jmp  still
 43 
    jmp still
48 
 
 44
Line 49... Line 45...
49 
button:
 45 
button:
50 
    mov  eax,17   ; get id
 46 
    mov  al,17   ; get id
51 
    int  0x40
 47 
    int  0x40
52 
 
 48 
 
53 
    cmp  ah,1 ; button id=1 ?
 49 
    cmp  ah,1 ; button id=1 ?
Line 54... Line 50...
54 
    jne  noclose
 50 
    jne  noclose
Line 75... Line 71...
75 
    shr  eax,4
 71 
    shr  eax,4
76 
    loop dgtomem
 72 
    loop dgtomem
77 
    mov  ebx,74*65536+10
 73 
    mov  ebx,74*65536+10
78 
    mov  edi,dg1
 74 
    mov  edi,dg1
79 
digitlp:
 75 
digitlp:
80 
    mov  ecx,30*65536+10
 76 
    mov  ecx,10*65536+10
81 
    xor  esi,esi
 77 
    xor  esi,esi
82 
plotlp:
 78 
plotlp:
83 
    xor  edx,edx
 79 
    xor  edx,edx
84 
    test byte[edi],8
 80 
    test byte[edi],8
85 
    je	 nobit
 81 
    je	 nobit
Line 120... Line 116...
120 
 
 116 
 
121 
    mov  eax,12
 117 
    mov  eax,12
122 
    mov  ebx,1 ; start redraw
 118 
    mov  ebx,1 ; start redraw
Line 123... Line 119...
123 
    int  0x40
 119 
    int  0x40
124 
 
 120 
 
125 
    mov  eax,0 ; window
 121 
    xor  eax,eax ; window
126 
    mov  ebx,100*65536+100
 122 
    mov  ebx,100*65536+107
127 
    mov  ecx,100*65536+100
 - 
 
128 
    mov  edx,0x83400088
 123 
    mov  ecx,100*65536+105
129 
    mov  esi,0x805080d0
 124 
    mov  edx,0x33400088
Line 130... Line 125...
130 
    mov  edi,0x000000ff
 125 
    mov  edi,header
Line 131... Line -...
131 
    int  0x40
 - 
 
132 
 
 - 
 
133 
call drawclock
 - 
 
134 
 
 - 
 
135 
    mov  eax,4 ; text
 - 
 
136 
    mov  ebx,8*65536+8
 - 
 
137 
    mov  ecx,0x10ddeeff
 - 
 
138 
    mov  edx,title
 - 
 
139 
    mov  esi,titlend-title
 126 
    int  0x40
140 
    int  0x40
 127 
 
141 
 
 128 
call drawclock
Line 142... Line 129...
142 
 
 129 
 
Line 143... Line -...
143 
    mov  eax,12
 - 
 
144 
    mov  ebx,2 ; end redraw
 - 
 
145 
    int  0x40
 - 
 
146 
 
 130 
    mov  eax,12
147 
    ret
 - 
 
148 
 
 - 
 
149 
 
 - 
 
150 
 
 - 
 
151 
title:
 131 
    mov  ebx,2 ; end redraw
152 
     db   'BCD Clock'
 132 
    int  0x40
- 
 
 133 
 
153 
titlend:
 134 
    ret