Subversion Repositories Kolibri OS

Rev

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 
;    Remote processing example (remote node) - vt
3 
;
4 
;    Compile with FASM for Menuet
5 
;
6 
 
7 
 
8 
use32
485 heavyiron 9 
 org	0x0
10 
 db	'MENUET01'    ; header
11 
 dd	0x01	      ; header version
12 
 dd	START	      ; entry point
13 
 dd	I_END	      ; image size
14 
 dd	I_END+0x10000 ; required memory
15 
 dd	I_END+0x10000 ; esp
16 
 dd	0x0 , 0x0     ; I_Param , I_Path
31 halyavin 17 
 
18 
include 'lang.inc'
485 heavyiron 19 
include '..\..\..\macros.inc'
31 halyavin 20 
remote_ip  db  192,168,1,26
21 
 
22 
 
23 
START:                      ; start of execution
24 
 
25 
    mov  eax, 53                  ; open receiver socket
26 
    mov  ebx, 0
27 
    mov  ecx, 0x3000              ; local port
28 
    mov  edx, 0xffff              ; remote port
29 
    mov  esi, dword [remote_ip]   ; remote IP
485 heavyiron 30 
    mcall
31 halyavin 31 
    mov  [socketNum],eax
32 
    mov  [0],eax                  ; save for remote code
485 heavyiron 33 
 
34 
red:
31 halyavin 35 
    call draw_window            ; at first, draw the window
36 
 
37 
still:
38 
 
39 
    mov  eax,23                 ; wait here for event
40 
    mov  ebx,1
485 heavyiron 41 
    mcall
31 halyavin 42 
 
43 
    cmp  eax,1                  ; redraw request ?
44 
    jz   red
45 
    cmp  eax,2                  ; key in buffer ?
46 
    jz   key
47 
    cmp  eax,3                  ; button in buffer ?
48 
    jz   button
49 
 
50 
    mov  eax,53                 ; data from cluster terminal ?
51 
    mov  ebx,2
52 
    mov  ecx,[socketNum]
485 heavyiron 53 
    mcall
31 halyavin 54 
 
55 
    cmp  eax,0
56 
    jne  data_arrived
57 
 
58 
    jmp  still
59 
 
60 
key:
61 
    mov  eax,2
485 heavyiron 62 
    mcall
31 halyavin 63 
    jmp  still
64 
 
65 
button:
66 
 
67 
    mov  eax,53
68 
    mov  ebx,1
69 
    mov  ecx,[socketNum]
485 heavyiron 70 
    mcall
71 
    or  eax,-1
72 
    mcall
31 halyavin 73 
 
74 
 
75 
data_arrived:
76 
 
77 
    mov  eax,5                 ; wait a second for everything to arrive
78 
    mov  ebx,10
485 heavyiron 79 
    mcall
31 halyavin 80 
 
81 
    mov  edi,I_END
82 
 
83 
  get_data:
84 
 
85 
    mov  eax,53
86 
    mov  ebx,3
87 
    mov  ecx,[socketNum]
485 heavyiron 88 
    mcall
31 halyavin 89 
 
90 
    mov  [edi],bl
91 
    inc  edi
92 
 
93 
    mov  eax,53
94 
    mov  ebx,2
95 
    mov  ecx,[socketNum]
485 heavyiron 96 
    mcall
31 halyavin 97 
 
98 
    cmp  eax,0
99 
    jne  get_data
100 
 
101 
    add  byte [I_END+14],48
102 
 
103 
    mov  eax,4
104 
    mov  ebx,10*65536+50
105 
    add  ebx,[y]
106 
    mov  ecx,0x000000
107 
    mov  edx,I_END
108 
    mov  esi,23
485 heavyiron 109 
    mcall
31 halyavin 110 
 
111 
    add  [y],10
112 
 
113 
    cmp  byte [I_END+14],'1'   ; DATA PACKET ?
114 
    jne  no_packet
115 
    mov  esi,I_END+23
116 
    mov  edi,[I_END+15]
117 
    mov  ecx,[I_END+19]
118 
    cld
119 
    rep  movsb
120 
    jmp  still
121 
   no_packet:
122 
 
123 
    cmp  byte [I_END+14],'2'   ; EXECUTE ?
124 
    jne  no_execute
125 
    mov  eax,[I_END+15]
126 
    call eax
127 
    jmp  still
128 
   no_execute:
129 
 
130 
    jmp  still
131 
 
132 
y   dd   0x10
133 
 
134 
 
135 
 
136 
;   *********************************************
137 
;   *******  WINDOW DEFINITIONS AND DRAW ********
138 
;   *********************************************
139 
 
140 
 
141 
draw_window:
142 
 
143 
    mov  eax,12                    ; function 12:tell os about windowdraw
144 
    mov  ebx,1                     ; 1, start of draw
485 heavyiron 145 
    mcall
31 halyavin 146 
 
147 
                                   ; DRAW WINDOW
148 
    mov  eax,0                     ; function 0 : define and draw window
149 
    mov  ebx,100*65536+286         ; [x start] *65536 + [x size]
150 
    mov  ecx,100*65536+330         ; [y start] *65536 + [y size]
551 spraid 151 
    mov  edx,0x14ffffff            ; color of work area RRGGBB
485 heavyiron 152 
    mov  edi,title                 ; WINDOW LABEL
153 
    mcall
31 halyavin 154 
 
155 
 
156 
    ; Re-draw the screen text
157 
    cld
485 heavyiron 158 
    mov  eax,4
31 halyavin 159 
    mov  ebx,10*65536+30           ; draw info text with function 4
160 
    mov  ecx,0x000000
161 
    mov  edx,text
162 
    mov  esi,40
163 
  newline:
485 heavyiron 164 
    mcall
31 halyavin 165 
    add  ebx,16
166 
    add  edx,40
167 
    cmp  [edx],byte 'x'
168 
    jnz  newline
169 
 
170 
 
171 
    mov  eax,12                    ; function 12:tell os about windowdraw
172 
    mov  ebx,2                     ; 2, end of draw
485 heavyiron 173 
    mcall
31 halyavin 174 
 
175 
    ret
176 
 
177 
 
178 
; DATA AREA
179 
 
180 
 
181 
text:
182 
    db 'THIS NODE         : 192.168.1.22        '
183 
    db 'LISTENING TO PORT : 0x3000              '
485 heavyiron 184 
    db 'x' ;<- END MARKER, DONT DELETE
31 halyavin 185 
 
186 
 
485 heavyiron 187 
title  db  'CLUSTER REMOTE',0
31 halyavin 188 
 
189 
socketNum   dd  0x0
190 
 
191 
send_data   db  'MenuetRemote00'  ; 00  header      ; -> remote port 0x3000
192 
            db  1                 ; 14  send
193 
            dd  0x0               ; 15  position
194 
            dd  0x0               ; 19  size
195 
                                  ; 23
196 
 
197 
execute     db  'MenuetRemote00'  ; 00  header      ; -> remote port 0x3000
198 
            db  2                 ; 14  execute
199 
            dd  0x0               ; 15  position
200 
                                  ; 19
201 
I_END:
202