forked from KolibriOS/kolibrios
702 lines
14 KiB
NASM
702 lines
14 KiB
NASM
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
; ;
|
||
; Stack Configuration Tool ;
|
||
; ;
|
||
; Compile with FASM for Menuet ;
|
||
; ;
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
||
|
||
memsize = 100000h
|
||
org 0
|
||
PARAMS = memsize - 1024
|
||
|
||
use32
|
||
|
||
db 'MENUET01' ; 8 byte id
|
||
dd 0x01 ; header version
|
||
dd START ; start of code
|
||
dd I_END ; size of image
|
||
dd memsize ; memory for app
|
||
dd memsize - 1024 ; esp
|
||
dd PARAMS , 0x0 ; I_Param , I_Icon
|
||
|
||
include 'lang.inc'
|
||
include '../../../macros.inc'
|
||
|
||
START: ; start of execution
|
||
|
||
read_stack_setup:
|
||
|
||
mov eax,52
|
||
mov ebx,0
|
||
mcall
|
||
mov [config],eax
|
||
|
||
mov eax,52
|
||
mov ebx,1
|
||
mcall
|
||
mov dword [ip_address],eax
|
||
|
||
mov eax,52
|
||
mov ebx,9
|
||
mcall
|
||
mov dword [gateway_ip],eax
|
||
|
||
mov eax,52
|
||
mov ebx,10
|
||
mcall
|
||
mov dword [subnet_mask],eax
|
||
|
||
mov eax,52
|
||
mov ebx,13
|
||
mcall
|
||
mov dword [dns_ip],eax
|
||
|
||
mov eax,[config] ; unwrap com IRQ
|
||
shr eax,8
|
||
and eax,0xf
|
||
mov [com_irq],eax
|
||
|
||
mov eax,[config] ; unwrap com PORT
|
||
shr eax,16
|
||
and eax,0xfff
|
||
mov [com_add],eax
|
||
|
||
mov eax,[config] ; unwrap IRQ
|
||
and eax,0xf
|
||
mov [interface],eax
|
||
|
||
mov eax,[config] ; unwrap com PORT
|
||
shr eax,7
|
||
and eax,1
|
||
mov [assigned],eax
|
||
|
||
red:
|
||
call draw_window ; at first, draw the window
|
||
|
||
still:
|
||
|
||
mov eax,10 ; wait here for event
|
||
mcall
|
||
|
||
cmp eax,1 ; redraw request ?
|
||
jz red
|
||
cmp eax,2 ; key in buffer ?
|
||
jnz button
|
||
|
||
key: ; key
|
||
; mov al,2 ; just read it and ignore
|
||
mcall
|
||
jmp still
|
||
|
||
button: ; button
|
||
mov al,17 ; get id
|
||
mcall
|
||
|
||
shr eax,8
|
||
|
||
dec eax ; button id=1 ?
|
||
jne noclose
|
||
or eax,-1 ; close this program
|
||
mcall
|
||
noclose:
|
||
|
||
dec eax
|
||
je read_stack_setup
|
||
|
||
dec eax
|
||
jne no_apply_stack_setup
|
||
call apply_stack_setup
|
||
jmp still
|
||
|
||
no_apply_stack_setup:
|
||
dec eax ; GET COM PORT
|
||
dec eax
|
||
jne no_read_comport
|
||
mov [string_x],272
|
||
mov [string_y],40
|
||
mov [string_length],3
|
||
call read_string
|
||
movzx eax,byte [string]
|
||
cmp eax,'A'
|
||
jb gcp1
|
||
sub eax,'A'-'9'-1
|
||
gcp1:
|
||
sub eax,48
|
||
shl eax,8
|
||
mov ebx,eax
|
||
movzx eax,byte [string+1]
|
||
cmp eax,'A'
|
||
jb gcp2
|
||
sub eax,'A'-'9'-1
|
||
gcp2:
|
||
sub eax,48
|
||
shl eax,4
|
||
add ebx,eax
|
||
movzx eax,byte [string+2]
|
||
cmp eax,'A'
|
||
jb gcp3
|
||
sub eax,'A'-'9'-1
|
||
gcp3:
|
||
sub eax,48
|
||
add ebx,eax
|
||
mov [com_add],ebx
|
||
jmp red
|
||
no_read_comport:
|
||
|
||
dec eax ; GET COM IRQ
|
||
jne no_read_comirq
|
||
mov [string_x],284
|
||
mov [string_y],50
|
||
mov [string_length],1
|
||
call read_string
|
||
movzx eax,byte [string]
|
||
cmp eax,'A'
|
||
jb gci1
|
||
sub eax,'A'-'9'-1
|
||
gci1:
|
||
sub eax,48
|
||
mov [com_irq],eax
|
||
jmp red
|
||
no_read_comirq:
|
||
|
||
dec eax ; GET IP
|
||
jne no_read_ip
|
||
mov [string_x],205
|
||
mov [string_y],80
|
||
mov [string_length],15
|
||
call read_string
|
||
mov esi,string-1
|
||
mov edi,ip_address
|
||
ip0:
|
||
xor eax,eax
|
||
ip1:
|
||
inc esi
|
||
cmp [esi],byte '0'
|
||
jb ip2
|
||
cmp [esi],byte '9'
|
||
jg ip2
|
||
imul eax,10
|
||
movzx ebx,byte [esi]
|
||
sub ebx,48
|
||
add eax,ebx
|
||
jmp ip1
|
||
ip2:
|
||
stosb
|
||
cmp edi,ip_address+3
|
||
jbe ip0
|
||
jmp red
|
||
no_read_ip:
|
||
|
||
dec eax ; set gateway ip
|
||
jne no_set_gateway
|
||
|
||
mov [string_x],205
|
||
mov [string_y],90
|
||
mov [string_length],15
|
||
call read_string
|
||
mov esi,string-1
|
||
mov edi,gateway_ip
|
||
gip0:
|
||
xor eax,eax
|
||
gip1:
|
||
inc esi
|
||
cmp [esi],byte '0'
|
||
jb gip2
|
||
cmp [esi],byte '9'
|
||
jg gip2
|
||
imul eax,10
|
||
movzx ebx,byte [esi]
|
||
sub ebx,48
|
||
add eax,ebx
|
||
jmp gip1
|
||
gip2:
|
||
stosb
|
||
cmp edi,gateway_ip+3
|
||
jbe gip0
|
||
jmp red
|
||
|
||
no_set_gateway:
|
||
|
||
dec eax
|
||
jne no_set_subnet
|
||
|
||
mov [string_x],205
|
||
mov [string_y],100
|
||
mov [string_length],15
|
||
call read_string
|
||
mov esi,string-1
|
||
mov edi,subnet_mask
|
||
sip0:
|
||
xor eax,eax
|
||
sip1:
|
||
inc esi
|
||
cmp [esi],byte '0'
|
||
jb sip2
|
||
cmp [esi],byte '9'
|
||
jg sip2
|
||
imul eax,10
|
||
movzx ebx,byte [esi]
|
||
sub ebx,48
|
||
add eax,ebx
|
||
jmp sip1
|
||
sip2:
|
||
stosb
|
||
cmp edi,subnet_mask+3
|
||
jbe sip0
|
||
jmp red
|
||
|
||
no_set_subnet:
|
||
dec eax
|
||
jne no_set_dns
|
||
|
||
mov [string_x],205
|
||
mov [string_y],110
|
||
mov [string_length],15
|
||
call read_string
|
||
mov esi,string-1
|
||
mov edi,dns_ip
|
||
dip0:
|
||
xor eax,eax
|
||
dip1:
|
||
inc esi
|
||
cmp [esi],byte '0'
|
||
jb dip2
|
||
cmp [esi],byte '9'
|
||
jg dip2
|
||
imul eax,10
|
||
movzx ebx,byte [esi]
|
||
sub ebx,48
|
||
add eax,ebx
|
||
jmp dip1
|
||
dip2:
|
||
stosb
|
||
cmp edi,dns_ip+3
|
||
jbe dip0
|
||
jmp red
|
||
|
||
no_set_dns:
|
||
|
||
dec eax
|
||
jb no_set_interface
|
||
cmp eax,14-11
|
||
ja no_set_interface
|
||
mov [interface],eax
|
||
jmp red
|
||
no_set_interface:
|
||
|
||
sub eax,21-11
|
||
jb no_ip_sf
|
||
cmp eax,22-21
|
||
ja no_ip_sf
|
||
xor eax,1
|
||
mov [assigned],eax
|
||
jmp red
|
||
no_ip_sf:
|
||
jmp still
|
||
|
||
apply_stack_setup:
|
||
|
||
mov eax,[com_irq]
|
||
shl eax,8
|
||
mov ebx,[com_add]
|
||
shl ebx,16
|
||
add eax,ebx
|
||
add eax,[interface]
|
||
mov ebx,[assigned]
|
||
shl ebx,7
|
||
add eax,ebx
|
||
mov [config],eax
|
||
|
||
mov eax,52
|
||
mov ebx,3
|
||
mov ecx,dword [ip_address]
|
||
mcall
|
||
|
||
mov eax,52
|
||
mov ebx,11
|
||
mov ecx,dword [gateway_ip]
|
||
mcall
|
||
|
||
mov eax,52
|
||
mov ebx,12
|
||
mov ecx,dword [subnet_mask]
|
||
mcall
|
||
|
||
mov eax,52
|
||
mov ebx,14
|
||
mov ecx,dword [dns_ip]
|
||
mcall
|
||
|
||
mov eax,52
|
||
mov ebx,2
|
||
mov ecx,[config]
|
||
mcall
|
||
|
||
ret
|
||
|
||
|
||
string_length dd 16
|
||
string_x dd 200
|
||
string_y dd 60
|
||
|
||
string db '________________'
|
||
|
||
|
||
read_string:
|
||
|
||
mov edi,string
|
||
mov eax,'_'
|
||
mov ecx,[string_length]
|
||
cld
|
||
rep stosb
|
||
call print_text
|
||
|
||
mov edi,string
|
||
f11:
|
||
mov eax,10
|
||
mcall
|
||
cmp eax,2
|
||
jne read_done
|
||
; mov eax,2
|
||
mcall
|
||
shr eax,8
|
||
cmp eax,13
|
||
je read_done
|
||
cmp eax,8
|
||
jnz nobsl
|
||
cmp edi,string
|
||
jz f11
|
||
sub edi,1
|
||
mov [edi],byte '_'
|
||
call print_text
|
||
jmp f11
|
||
nobsl:
|
||
cmp eax,dword 31
|
||
jbe f11
|
||
cmp eax,dword 95
|
||
jb keyok
|
||
sub eax,32
|
||
keyok:
|
||
mov [edi],al
|
||
call print_text
|
||
|
||
inc edi
|
||
mov esi,string
|
||
add esi,[string_length]
|
||
cmp esi,edi
|
||
jnz f11
|
||
|
||
read_done:
|
||
|
||
print_text:
|
||
|
||
pusha
|
||
|
||
mov eax,13
|
||
mov ebx,[string_x]
|
||
shl ebx,16
|
||
add ebx,[string_length]
|
||
imul bx,6
|
||
mov ecx,[string_y]
|
||
shl ecx,16
|
||
mov cx,8
|
||
mov edx,0xffffff
|
||
mcall
|
||
|
||
mov eax,4
|
||
mov ebx,[string_x]
|
||
shl ebx,16
|
||
add ebx,[string_y]
|
||
mov ecx,0x000000
|
||
mov edx,string
|
||
mov esi,[string_length]
|
||
mcall
|
||
|
||
popa
|
||
ret
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
; *********************************************
|
||
; ******* 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+330 ; [x start] *65536 + [x size]
|
||
mov ecx,100*65536+157 ; [y start] *65536 + [y size]
|
||
mov edx,0x14ffffff ; color of work area RRGGBB,8->color gl
|
||
mov edi,title ; WINDOW LABEL
|
||
mcall
|
||
|
||
|
||
mov eax,8 ; BUTTON : READ SETUP
|
||
mov ebx,90*65536+65
|
||
mov ecx,127*65536+12
|
||
mov edx,2
|
||
mov esi,[button_color]
|
||
mcall
|
||
|
||
;mov eax,8 ; BUTTON : APPLY SETUP
|
||
mov ebx,163*65536+65
|
||
mov ecx,127*65536+12
|
||
mov edx,3
|
||
mcall
|
||
|
||
;mov eax,8 ; BUTTONS 11-14 : SELECT INTERFACE
|
||
mov ebx,29*65536+8
|
||
mov ecx,39*65536+8
|
||
mov edx,11
|
||
interface_select:
|
||
mcall
|
||
add ecx,10*65536
|
||
inc edx
|
||
cmp edx,11+4
|
||
jb interface_select
|
||
|
||
mov ebx,[interface] ; PRINT SELECTED INTERFACE 'X'
|
||
imul ebx,10
|
||
add ebx,31*65536+39
|
||
mov eax,4
|
||
mov ecx,0xffffff
|
||
mov edx,xx
|
||
mov esi,1
|
||
mcall
|
||
|
||
mov eax,8 ; BUTTONS 21-22 : SERVER / MANUAL IP
|
||
mov ebx,143*65536+8
|
||
mov ecx,69*65536+8
|
||
mov edx,21
|
||
mov esi,[button_color]
|
||
mcall
|
||
;mov eax,8
|
||
mov ebx,143*65536+8
|
||
mov ecx,79*65536+8
|
||
mov edx,22
|
||
mcall
|
||
mov ebx,[assigned] ; PRINT SELECTED SERVER/MANUAL 'X'
|
||
not ebx
|
||
and ebx,1
|
||
imul ebx,10
|
||
add ebx,145*65536+69
|
||
mov eax,4
|
||
mov ecx,0xffffff
|
||
mov edx,xx
|
||
mov esi,1
|
||
mcall
|
||
|
||
mov eax,47 ; COM ADDRESS
|
||
mov ebx,3*65536+1*256
|
||
mov ecx,[com_add]
|
||
mov edx,272*65536+40
|
||
mov esi,0x000000
|
||
mcall
|
||
|
||
;mov eax,47 ; COM IRQ
|
||
mov ebx,1*65536+1*256
|
||
mov ecx,[com_irq]
|
||
mov edx,(266+3*6)*65536+50
|
||
mov esi,0x000000
|
||
mcall
|
||
|
||
mov edi,ip_address
|
||
mov edx,205*65536+80
|
||
mov esi,0x000000
|
||
mov ebx,3*65536
|
||
ipdisplay:
|
||
;mov eax,47
|
||
movzx ecx,byte [edi]
|
||
mcall
|
||
add edx,6*4*65536
|
||
inc edi
|
||
cmp edi,ip_address+4
|
||
jb ipdisplay
|
||
|
||
mov edi,gateway_ip
|
||
mov edx,205*65536+90
|
||
mov esi,0x000000
|
||
mov ebx,3*65536
|
||
gipdisplay:
|
||
;mov eax,47
|
||
movzx ecx,byte [edi]
|
||
mcall
|
||
add edx,6*4*65536
|
||
inc edi
|
||
cmp edi,gateway_ip+4
|
||
jb gipdisplay
|
||
|
||
mov edi,subnet_mask
|
||
mov edx,205*65536+100
|
||
mov esi,0x000000
|
||
mov ebx,3*65536
|
||
sipdisplay:
|
||
;mov eax,47
|
||
movzx ecx,byte [edi]
|
||
mcall
|
||
add edx,6*4*65536
|
||
inc edi
|
||
cmp edi,subnet_mask+4
|
||
jb sipdisplay
|
||
|
||
mov edi,dns_ip
|
||
mov edx,205*65536+110
|
||
mov esi,0x000000
|
||
mov ebx,3*65536
|
||
dipdisplay:
|
||
;mov eax,47
|
||
movzx ecx,byte [edi]
|
||
mcall
|
||
add edx,6*4*65536
|
||
inc edi
|
||
cmp edi,dns_ip+4
|
||
jb dipdisplay
|
||
|
||
|
||
mov eax,8 ; BUTTON 5 : SET PORT
|
||
mov ebx,299*65536+8
|
||
mov ecx,39*65536+8
|
||
mov edx,5
|
||
mov esi,[button_color]
|
||
mcall
|
||
;mov eax,8 ; BUTTON 6 : SET IRQ
|
||
mov ecx,49*65536+8
|
||
inc edx
|
||
mcall
|
||
;mov eax,8 ; BUTTON 7 : SET IP
|
||
mov ecx,79*65536+8
|
||
inc edx
|
||
mcall
|
||
|
||
;mov eax,8 ; BUTTON 8 : SET gateway IP
|
||
mov ebx,299*65536+8
|
||
mov ecx,89*65536+8
|
||
inc edx
|
||
mcall
|
||
|
||
;mov eax,8 ; BUTTON 9 : SET subnet
|
||
mov ecx,99*65536+8
|
||
inc edx
|
||
mcall
|
||
|
||
;mov eax,8 ; BUTTON 10 : SET dns ip
|
||
mov ecx,109*65536+8
|
||
inc edx
|
||
mcall
|
||
|
||
mov ebx,31*65536+40 ; draw info text with function 4
|
||
mov edx,text
|
||
mov esi,49
|
||
mov eax,4
|
||
newline:
|
||
mov ecx,0x224466
|
||
cmp [edx],byte 'w'
|
||
jne nowhite
|
||
mov ecx,0xeeeeee
|
||
nowhite:
|
||
inc edx
|
||
mcall
|
||
add ebx,10
|
||
add edx,49
|
||
cmp [edx],byte 'x'
|
||
jne newline
|
||
|
||
mov eax,12 ; function 12:tell os about windowdraw
|
||
mov ebx,2 ; 2, end of draw
|
||
mcall
|
||
|
||
ret
|
||
|
||
|
||
; DATA AREA
|
||
|
||
if lang eq ru
|
||
title db '<27><><EFBFBD><EFBFBD>ன<EFBFBD><E0AEA9> <20><>⥢<EFBFBD><E2A5A2><EFBFBD> <20>⥪<EFBFBD>',0
|
||
text:
|
||
db ' <20><><EFBFBD><EFBFBD>⨢<EFBFBD><E2A8A2><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> Com-<2D><><EFBFBD><EFBFBD><EFBFBD>: 0x < '
|
||
db ' Slip <20><><EFBFBD><EFBFBD>뢠<EFBFBD><EBA2A0><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: 0x < '
|
||
db ' PPP '
|
||
db ' <20>ࠩ<EFBFBD><E0A0A9><EFBFBD> <20><><EFBFBD><EFBFBD>⮢ IP <20><><EFBFBD><EFBFBD><EFBFBD>砥<EFBFBD><E7A0A5><EFBFBD> <20><>ࢥ '
|
||
db ' (Ethernet) <20><><EFBFBD><EFBFBD>.: . . . < '
|
||
db ' <20><><EFBFBD><EFBFBD>: . . . < '
|
||
db ' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: . . . < '
|
||
db ' DNS IP: . . . < '
|
||
db ' '
|
||
db 'w <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ਬ<EFBFBD><E0A8AC><EFBFBD><EFBFBD><EFBFBD> '
|
||
|
||
else if lang eq nl
|
||
title db 'Netwerk configuratie',0
|
||
text:
|
||
db ' Niet actief Modem Com Poort: 0x < '
|
||
db ' Slip Modem Com Irq: 0x < '
|
||
db ' PPP '
|
||
db ' Pakket Driver Door IP-server toegekend '
|
||
db ' (Ethernet) Vast IP: . . . < '
|
||
db ' Gateway: . . . < '
|
||
db ' Subnet: . . . < '
|
||
db ' DNS IP: . . . < '
|
||
db ' '
|
||
db 'w Vernieuw Toepassen '
|
||
|
||
else if lang eq ua
|
||
title db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>㢠<EFBFBD><E3A2A0><EFBFBD> <20><>०i'
|
||
text:
|
||
db ' <20><><EFBFBD><EFBFBD>⨢<EFBFBD><E2A8A2><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> Com-<2D><><EFBFBD><EFBFBD><EFBFBD> 0x < '
|
||
db ' Slip Com-<2D><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: 0x < '
|
||
db ' PPP '
|
||
db ' <20>ࠩ<EFBFBD><E0A0A9><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>i<EFBFBD> IP <20>ਧ<EFBFBD><E0A8A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>ࢥ '
|
||
db ' (Ethernet) <20>i<EFBFBD><69>.: . . . < '
|
||
db ' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: . . . < '
|
||
db ' <20><>᪠: . . . < '
|
||
db ' DNS IP . . . < '
|
||
db ' '
|
||
db 'w <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>㢠<EFBFBD><E3A2A0> '
|
||
|
||
else
|
||
title db 'Stack configuration',0
|
||
text:
|
||
db ' Not active Modem Com Port: 0x < '
|
||
db ' Slip Modem Com Irq: 0x < '
|
||
db ' PPP '
|
||
db ' Packet Driver IP server assigned '
|
||
db ' (Ethernet) Fixed: . . . < '
|
||
db ' Gateway: . . . < '
|
||
db ' Subnet: . . . < '
|
||
db ' DNS IP: . . . < '
|
||
db ' '
|
||
db 'w READ APPLY '
|
||
end if
|
||
|
||
xx: db 'x' ;<- END MARKER, DONT DELETE
|
||
|
||
button_color dd 0x2254b9
|
||
|
||
|
||
|
||
ip_address dd ?
|
||
gateway_ip dd ?
|
||
subnet_mask dd ?
|
||
dns_ip dd ?
|
||
|
||
|
||
com_irq dd ? ; irq for slip/ppp
|
||
com_add dd ? ; com port address for slip/ppp
|
||
interface dd ? ; not active,slip,ppp,packet driver
|
||
assigned dd ? ; get ip from server
|
||
|
||
config dd ?
|
||
|
||
I_END:
|