forked from KolibriOS/kolibrios
507 lines
10 KiB
NASM
507 lines
10 KiB
NASM
;
|
|
; Remote processing example (local node)
|
|
;
|
|
; Compile with FASM for Menuet
|
|
;
|
|
|
|
|
|
use32
|
|
org 0x0
|
|
db 'MENUET01' ; header
|
|
dd 0x01 ; header version
|
|
dd START ; entry point
|
|
dd I_END ; image size
|
|
dd I_END+0x10000 ; required memory
|
|
dd I_END+0x10000 ; esp
|
|
dd 0x0 , 0x0 ; I_Param , I_Path
|
|
|
|
|
|
include 'lang.inc'
|
|
include '..\..\..\macros.inc'
|
|
|
|
START: ; start of execution
|
|
|
|
mov eax,53 ; open socket
|
|
mov ebx,0
|
|
mov ecx,0x2000 ; local port
|
|
mov edx,0x3000 ; remote port
|
|
mov esi,dword [host_ip] ; node IP
|
|
mcall
|
|
|
|
mov [socketNum], eax
|
|
|
|
red:
|
|
call draw_window ; at first, draw the window
|
|
|
|
still:
|
|
|
|
mov eax,23 ; wait here for event
|
|
mov ebx,1
|
|
mcall
|
|
|
|
cmp eax,1 ; redraw request ?
|
|
jz red
|
|
cmp eax,2 ; key in buffer ?
|
|
jz key
|
|
cmp eax,3 ; button in buffer ?
|
|
jz button
|
|
|
|
mov eax, 53 ; get data
|
|
mov ebx, 2
|
|
mov ecx, [socketNum]
|
|
mcall
|
|
cmp eax, 0
|
|
jne read
|
|
|
|
jmp still
|
|
|
|
key:
|
|
mov eax,2
|
|
mcall
|
|
jmp still
|
|
|
|
button:
|
|
mov eax,17
|
|
mcall
|
|
|
|
cmp ah,1 ; button id=1 ?
|
|
jnz noclose
|
|
mov eax, 53
|
|
mov ebx, 1
|
|
mov ecx, [socketNum]
|
|
mcall
|
|
mov eax,-1
|
|
mcall
|
|
noclose:
|
|
|
|
cmp ah,2 ; SEND CODE ?
|
|
je send_xcode
|
|
|
|
cmp ah,3 ; LEFT COORDINATES ?
|
|
jne no_left
|
|
mov [picture_position],0
|
|
mov dword [send_data+15],dword STARTX
|
|
mov dword [send_data+19],dword 4
|
|
mov esi,send_data
|
|
mov edi,I_END
|
|
mov ecx,23
|
|
cld
|
|
rep movsb
|
|
mov [I_END+23],dword -20
|
|
mov eax,53
|
|
mov ebx,4
|
|
mov ecx,[socketNum]
|
|
mov edx,23 + 4
|
|
mov esi,I_END
|
|
mcall
|
|
jmp still
|
|
no_left:
|
|
|
|
cmp ah,4 ; RIGHT COORDINATES ?
|
|
jne no_right
|
|
mov [picture_position],128
|
|
mov dword [send_data+15],dword STARTX
|
|
mov dword [send_data+19],dword 4
|
|
mov esi,send_data
|
|
mov edi,I_END
|
|
mov ecx,23
|
|
cld
|
|
rep movsb
|
|
mov [I_END+23],dword -20 + 128
|
|
mov eax,53
|
|
mov ebx,4
|
|
mov ecx,[socketNum]
|
|
mov edx,23 + 4
|
|
mov esi,I_END
|
|
mcall
|
|
jmp still
|
|
no_right:
|
|
|
|
cmp ah,5 ; SEND EXECUTE ?
|
|
je send_execute
|
|
|
|
jmp still
|
|
|
|
|
|
xx dd 0
|
|
yy dd 0
|
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; ;;
|
|
;; SEND CODE TO REMOTE ;;
|
|
;; ;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
send_xcode:
|
|
|
|
mov dword [send_data+15],dword 0x80000
|
|
mov dword [send_data+19],dword remote_code_end - remote_code_start
|
|
|
|
mov esi,send_data ; header
|
|
mov edi,I_END
|
|
mov ecx,23
|
|
cld
|
|
rep movsb
|
|
|
|
mov esi,remote_code ; remote_code_start ; data
|
|
mov edi,I_END+23
|
|
mov ecx,remote_code_end - remote_code_start
|
|
cld
|
|
rep movsb
|
|
|
|
mov eax,53 ; SEND CODE TO REMOTE
|
|
mov ebx,4
|
|
mov ecx,[socketNum]
|
|
mov edx,23 + remote_code_end - remote_code_start
|
|
mov esi,I_END
|
|
mcall
|
|
|
|
jmp still
|
|
|
|
|
|
send_execute:
|
|
|
|
mov dword [execute+15],dword draw_fractal
|
|
|
|
mov eax,53 ; START EXECUTE AT REMOTE
|
|
mov ebx,4
|
|
mov ecx,[socketNum]
|
|
mov edx,19
|
|
mov esi,execute
|
|
mcall
|
|
|
|
mov edi,3
|
|
|
|
jmp still
|
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; ;;
|
|
;; READ ;;
|
|
;; ;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
|
read:
|
|
|
|
|
|
cfr007:
|
|
|
|
mov eax, 53
|
|
mov ebx, 3
|
|
mov ecx, [socketNum]
|
|
mcall ; read byte
|
|
|
|
shl edx,8
|
|
mov dl,bl
|
|
|
|
dec edi
|
|
jnz cok
|
|
|
|
mov edi,3
|
|
|
|
and edx,0xffffff
|
|
mov eax,1
|
|
mov ebx,[xx]
|
|
mov ecx,[yy]
|
|
add ebx,15
|
|
add ecx,35
|
|
add ebx,[picture_position]
|
|
mcall
|
|
|
|
inc [xx]
|
|
cmp [xx],dword 128
|
|
jb cok
|
|
mov [xx],0
|
|
|
|
inc [yy]
|
|
cmp [yy],dword 128
|
|
jb cok
|
|
mov [yy],0
|
|
|
|
cok:
|
|
|
|
mov eax, 53
|
|
mov ebx, 2
|
|
mov ecx, [socketNum]
|
|
mcall ; any more data?
|
|
|
|
cmp eax, 0
|
|
jne cfr007 ; yes, so get it
|
|
|
|
jmp still
|
|
|
|
|
|
|
|
|
|
; *********************************************
|
|
; ******* WINDOW DEFINITIONS AND DRAW ********
|
|
; *********************************************
|
|
|
|
|
|
draw_window:
|
|
|
|
mov eax,12 ; function 12:tell os about windowdraw
|
|
mov ebx,1 ; 1, start of draw
|
|
mcall
|
|
|
|
; DRAW WINDOW
|
|
mov eax,0 ; function 0 : define and draw window
|
|
mov ebx,100*65536+286 ; [x start] *65536 + [x size]
|
|
mov ecx,60*65536+330 ; [y start] *65536 + [y size]
|
|
mov edx,0x04ffffff ; color of work area RRGGBB
|
|
mov edi,title ; WINDOW LABEL
|
|
mcall
|
|
|
|
|
|
mov eax,8 ; SEND CODE
|
|
mov ebx,60*65536+160
|
|
mov ecx,181*65536+13
|
|
mov edx,2
|
|
mov esi,0x667788
|
|
mcall
|
|
|
|
;mov eax,8 ; LEFT
|
|
mov ebx,60*65536+75
|
|
mov ecx,197*65536+13
|
|
mov edx,3
|
|
mcall
|
|
|
|
;mov eax,8 ; RIGHT
|
|
mov ebx,148*65536+72
|
|
mov ecx,197*65536+13
|
|
mov edx,4
|
|
mcall
|
|
|
|
;mov eax,8 ; SEND EXECUTE
|
|
mov ebx,60*65536+160
|
|
mov ecx,213*65536+13
|
|
mov edx,5
|
|
mcall
|
|
|
|
|
|
cld
|
|
mov eax,4
|
|
mov ebx,25*65536+185 ; draw info text with function 4
|
|
mov ecx,0x000000
|
|
mov edx,text
|
|
mov esi,40
|
|
newline:
|
|
mcall
|
|
add ebx,16
|
|
add edx,40
|
|
cmp [edx],byte 'x'
|
|
jnz newline
|
|
|
|
mov eax,12 ; function 12:tell os about windowdraw
|
|
mov ebx,2 ; 2, end of draw
|
|
mcall
|
|
|
|
ret
|
|
|
|
|
|
; DATA AREA
|
|
|
|
|
|
text:
|
|
db ' 1) SEND CODE '
|
|
db ' 2) LEFT RIGHT '
|
|
db " 3) SEND 'EXECUTE' "
|
|
db ' '
|
|
db ' LOCAL : 192.168.1.26 '
|
|
db ' REMOTE : 192.168.1.22 '
|
|
db ' REMOTE CODE AT THE END OF THIS FILE '
|
|
db 'x' ;<- END MARKER, DONT DELETE
|
|
|
|
|
|
title db 'CLUSTER LOCAL',0
|
|
|
|
socketNum dd 0x0
|
|
|
|
host_ip db 192,168,1,22
|
|
|
|
picture_position dd 0x0
|
|
|
|
send_data db 'MenuetRemote00' ; 00 header ; -> remote port 0x3000
|
|
db 1 ; 14 send
|
|
dd 0x0 ; 15 position
|
|
dd 0x0 ; 19 size
|
|
; 23
|
|
|
|
execute db 'MenuetRemote00' ; 00 header ; -> remote port 0x3000
|
|
db 2 ; 14 execute
|
|
dd 0x0 ; 15 position
|
|
; 19
|
|
|
|
|
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; ;;
|
|
;; REMOTE CODE ;;
|
|
;; ;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
|
|
|
remote_code:
|
|
|
|
|
|
org 0x80000
|
|
|
|
remote_code_start:
|
|
|
|
|
|
PIXWIDTH equ 129
|
|
PIXHEIGHT equ 129
|
|
ZOOMLIMIT equ 13
|
|
DELTA equ 200
|
|
THRESHOLD equ 7
|
|
STARTSCALE equ 6
|
|
CHAR_COLOR equ 0fh
|
|
|
|
STARTX dd -20
|
|
STARTY dd 10
|
|
scaleaddy dd 60
|
|
scaleaddx dd 100
|
|
|
|
|
|
|
|
draw_fractal:
|
|
|
|
pusha
|
|
|
|
movzx ebp,word [STARTX]
|
|
movzx edi,word [STARTY]
|
|
mov cx, PIXHEIGHT ; height of screen in pixels
|
|
|
|
sub di,cx ; adjust our Y offset
|
|
@@CalcRow:
|
|
|
|
push cx
|
|
mov cx, PIXWIDTH -1 ; width of screen in pixels
|
|
|
|
sub bp,cx ;
|
|
@@CalcPixel:
|
|
push cx ; save the column counter on stack
|
|
xor cx, cx ; clear out color loop counter
|
|
xor bx, bx ; zero i coefficient
|
|
xor dx, dx ; zero j coefficient
|
|
@@CycleColors:
|
|
push dx ; save j value for later
|
|
mov ax, bx ; ax = i
|
|
sub ax, dx ; ax = i - j
|
|
add dx, bx ; dx = i + j
|
|
stc ; one additional shift, please
|
|
call Shifty ; ax = ((i+j)*(i-j)) shifted right
|
|
pop dx ; retrieve our saved value for j
|
|
add ax,bp ; account for base offset...
|
|
cmp ah,THRESHOLD ; Q: is i > THRESHOLD * 256?
|
|
xchg bx,ax ; now swap new i with old i
|
|
jg @@draw ; Y: draw this pixel
|
|
clc ; no additional shifts here, please
|
|
call Shifty ; now dx:ax = old i * j
|
|
xchg dx,ax ;
|
|
add dx,di ; account for base offset...
|
|
inc cl ; increment color
|
|
jnz @@CycleColors ; keep going until we're done
|
|
@@draw:
|
|
xchg ax, cx ; mov color into al
|
|
pop cx ; retrieve our column counter
|
|
pop dx ; fetch row (column already in cx)
|
|
push dx ; must leave a copy on the stack
|
|
xor bx,bx ; write to video page zero
|
|
|
|
call store_pixel
|
|
|
|
inc bp
|
|
loop @@CalcPixel
|
|
inc di
|
|
pop cx
|
|
loop @@CalcRow
|
|
|
|
call return_data
|
|
|
|
popa
|
|
|
|
ret
|
|
|
|
|
|
Shifty:
|
|
|
|
push cx
|
|
db 0b1h
|
|
scale db STARTSCALE
|
|
adc cl,0
|
|
imul dx
|
|
|
|
xchg ax,dx
|
|
shl eax,16
|
|
xchg ax,dx
|
|
shr eax,cl
|
|
|
|
pop cx
|
|
ret
|
|
|
|
|
|
pixel_pos: dd data_area
|
|
|
|
store_pixel:
|
|
|
|
pusha
|
|
|
|
mov ebx,[pixel_pos]
|
|
shl eax,3
|
|
and eax,0xff
|
|
mov [ebx],eax
|
|
add dword [pixel_pos],dword 3
|
|
|
|
popa
|
|
ret
|
|
|
|
|
|
return_data:
|
|
|
|
mov ecx,128 * 128/16
|
|
mov esi,data_area
|
|
|
|
sd:
|
|
|
|
pusha
|
|
|
|
mov eax,53 ; use the socket provided by host
|
|
mov ebx,4
|
|
mov ecx,[0]
|
|
mov edx,3*16
|
|
mcall
|
|
|
|
mov eax,5
|
|
mov ebx,1
|
|
mcall
|
|
|
|
popa
|
|
|
|
add esi,3*16
|
|
|
|
loop sd
|
|
|
|
ret
|
|
|
|
|
|
data_area:
|
|
|
|
remote_code_end:
|
|
|
|
|
|
I_END:
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|