Rev 485 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
31 | halyavin | 1 | ; |
2 | ; BCD CLOCK |
||
3 | ; |
||
4 | ; Compile with FASM for Menuet |
||
5 | ; |
||
6 | ; |
||
7 | |||
8 | use32 |
||
9 | |||
10 | org 0x0 |
||
11 | |||
12 | db 'MENUET01' |
||
13 | dd 0x01 |
||
14 | dd START |
||
15 | dd I_END |
||
316 | heavyiron | 16 | dd 0x1000 |
17 | dd 0x1000 |
||
31 | halyavin | 18 | dd 0x0 , 0x0 |
19 | |||
20 | include "lang.inc" |
||
485 | heavyiron | 21 | include "..\..\..\macros.inc" |
31 | halyavin | 22 | |
23 | |||
24 | START: |
||
316 | heavyiron | 25 | red: |
31 | halyavin | 26 | call drawwindow |
27 | |||
28 | still: |
||
29 | |||
30 | |||
31 | mov eax,23 ; wait for timeout |
||
32 | mov ebx,50 |
||
485 | heavyiron | 33 | mcall |
31 | halyavin | 34 | |
35 | cmp eax,1 ; redraw ? |
||
36 | je red |
||
37 | |||
38 | cmp eax,3 ; button in buffer ? |
||
39 | je button |
||
40 | |||
41 | call drawclock |
||
42 | |||
43 | jmp still |
||
316 | heavyiron | 44 | |
31 | halyavin | 45 | button: |
316 | heavyiron | 46 | mov al,17 ; get id |
485 | heavyiron | 47 | mcall |
31 | halyavin | 48 | |
49 | cmp ah,1 ; button id=1 ? |
||
50 | jne noclose |
||
316 | heavyiron | 51 | or eax,-1 ; close this program |
485 | heavyiron | 52 | mcall |
31 | halyavin | 53 | noclose: |
54 | |||
55 | jmp still |
||
56 | |||
57 | drawclock: |
||
58 | |||
59 | mov eax,3 ; get time |
||
485 | heavyiron | 60 | mcall |
31 | halyavin | 61 | bswap eax |
62 | shr eax,8 |
||
63 | mov edi,dg1 |
||
64 | mov ecx,6 |
||
65 | dgtomem: |
||
66 | push eax |
||
67 | and al,15 |
||
68 | mov [edi],al |
||
69 | inc edi |
||
70 | pop eax |
||
71 | shr eax,4 |
||
72 | loop dgtomem |
||
73 | mov ebx,74*65536+10 |
||
74 | mov edi,dg1 |
||
75 | digitlp: |
||
316 | heavyiron | 76 | mov ecx,10*65536+10 |
31 | halyavin | 77 | xor esi,esi |
78 | plotlp: |
||
79 | xor edx,edx |
||
80 | test byte[edi],8 |
||
81 | je nobit |
||
82 | mov edx,0x00ff0000 |
||
83 | nobit: |
||
84 | mov eax,13 ; plot 8,4,2,1 |
||
485 | heavyiron | 85 | mcall |
31 | halyavin | 86 | add ecx,12*65536 |
87 | shl byte[edi],1 |
||
88 | inc esi |
||
89 | cmp esi,4 |
||
90 | jne plotlp |
||
91 | shr byte[edi],4 |
||
92 | mov edx,0x00880040 |
||
93 | mov eax,13 ; draw digit box |
||
485 | heavyiron | 94 | mcall |
31 | halyavin | 95 | pusha |
96 | mov edx,ebx |
||
97 | and edx,0xffff0000 |
||
98 | shr ecx,16 |
||
99 | or edx,ecx |
||
100 | add edx,3*65536+2 |
||
101 | mov ebx,0x00010100 |
||
102 | mov ecx,[edi] |
||
103 | mov esi,0x00ffffff |
||
104 | mov eax,47 ; display decimal |
||
485 | heavyiron | 105 | mcall |
31 | halyavin | 106 | popa |
107 | sub ebx,12*65536 |
||
108 | inc edi |
||
109 | cmp edi,dg1+6 |
||
110 | jne digitlp |
||
111 | ret |
||
112 | |||
113 | |||
114 | drawwindow: |
||
115 | |||
116 | |||
117 | mov eax,12 |
||
118 | mov ebx,1 ; start redraw |
||
485 | heavyiron | 119 | mcall |
31 | halyavin | 120 | |
316 | heavyiron | 121 | xor eax,eax ; window |
122 | mov ebx,100*65536+107 |
||
123 | mov ecx,100*65536+105 |
||
551 | spraid | 124 | mov edx,0x34400088 |
485 | heavyiron | 125 | mov edi,title |
126 | mcall |
||
31 | halyavin | 127 | |
128 | call drawclock |
||
129 | |||
130 | mov eax,12 |
||
131 | mov ebx,2 ; end redraw |
||
485 | heavyiron | 132 | mcall |
31 | halyavin | 133 | |
134 | ret |
||
135 | |||
485 | heavyiron | 136 | title db 'BCD Clock',0 |
316 | heavyiron | 137 | I_END: |
138 | dg1: db ? |