Subversion Repositories Kolibri OS

Rev

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

Rev 664 Rev 1010
Line 20... Line 20...
20 
	       dd     memsize		      ; memory for app
 20 
	       dd     memsize		      ; memory for app
21 
	       dd     memsize - 1024	      ; esp
 21 
	       dd     memsize - 1024	      ; esp
22 
	       dd     PARAMS , 0x0	      ; I_Param , I_Icon
 22 
	       dd     PARAMS , 0x0	      ; I_Param , I_Icon
Line 23... Line 23...
23 
 
 23 
 
24 
include 'lang.inc'
 24 
include 'lang.inc'
Line 25... Line 25...
25 
include 'macros.inc'
 25 
include '../../../macros.inc'
Line -... Line 26...
- 
 
 26 
 
- 
 
 27 
START:				; start of execution
- 
 
 28 
 
- 
 
 29 
read_stack_setup:
- 
 
 30 
 
- 
 
 31 
    mov  eax,52
- 
 
 32 
    mov  ebx,0
- 
 
 33 
    mcall
- 
 
 34 
    mov  [config],eax
- 
 
 35 
 
26 
 
 36 
    mov  eax,52
- 
 
 37 
    mov  ebx,1
- 
 
 38 
    mcall
- 
 
 39 
    mov  dword [ip_address],eax
- 
 
 40 
 
- 
 
 41 
    mov  eax,52
- 
 
 42 
    mov  ebx,9
- 
 
 43 
    mcall
- 
 
 44 
    mov  dword [gateway_ip],eax
- 
 
 45 
 
27 
START:				; start of execution
 46 
    mov  eax,52
- 
 
 47 
    mov  ebx,10
- 
 
 48 
    mcall
- 
 
 49 
    mov  dword [subnet_mask],eax
- 
 
 50 
 
- 
 
 51 
    mov  eax,52
- 
 
 52 
    mov  ebx,13
- 
 
 53 
    mcall
- 
 
 54 
    mov  dword [dns_ip],eax
- 
 
 55 
 
- 
 
 56 
    mov  eax,[config]	; unwrap com IRQ
Line -... Line 57...
- 
 
 57 
    shr  eax,8
- 
 
 58 
    and  eax,0xf
- 
 
 59 
    mov  [com_irq],eax
- 
 
 60 
 
- 
 
 61 
    mov  eax,[config]	; unwrap com PORT
- 
 
 62 
    shr  eax,16
- 
 
 63 
    and  eax,0xfff
- 
 
 64 
    mov  [com_add],eax
- 
 
 65 
 
- 
 
 66 
    mov  eax,[config]	; unwrap IRQ
- 
 
 67 
    and  eax,0xf
28 
 
 68 
    mov  [interface],eax
- 
 
 69 
 
Line 29... Line 70...
29 
    cmp     [PARAMS], dword 'BOOT'
 70 
    mov  eax,[config]	; unwrap com PORT
30 
    jz	    boot_set_settings
 71 
    shr  eax,7
Line 31... Line 72...
31 
 
 72 
    and  eax,1
Line 253... Line 294...
253 
    mov  [assigned],eax
 294 
    mov  [assigned],eax
254 
    jmp  red
 295 
    jmp  red
255 
    no_ip_sf:
 296 
    no_ip_sf:
256 
    jmp  still
 297 
    jmp  still
Line 257... Line -...
257 
 
 - 
 
258 
read_stack_setup:
 - 
 
259 
 
 - 
 
260 
    mov  eax,52
 - 
 
261 
    mov  ebx,0
 - 
 
262 
    mcall
 - 
 
263 
    mov  [config],eax
 - 
 
264 
 
 - 
 
265 
    mov  eax,52
 - 
 
266 
    mov  ebx,1
 - 
 
267 
    mcall
 - 
 
268 
    mov  dword [ip_address],eax
 - 
 
269 
 
 - 
 
270 
    mov  eax,52
 - 
 
271 
    mov  ebx,9
 - 
 
272 
    mcall
 - 
 
273 
    mov  dword [gateway_ip],eax
 - 
 
274 
 
 - 
 
275 
    mov  eax,52
 - 
 
276 
    mov  ebx,10
 - 
 
277 
    mcall
 - 
 
278 
    mov  dword [subnet_mask],eax
 - 
 
279 
 
 - 
 
280 
    mov  eax,52
 - 
 
281 
    mov  ebx,13
 - 
 
282 
    mcall
 - 
 
283 
    mov  dword [dns_ip],eax
 - 
 
284 
 
 - 
 
285 
    mov  eax,[config]	; unwrap com IRQ
 - 
 
286 
    shr  eax,8
 - 
 
287 
    and  eax,0xf
 - 
 
288 
    mov  [com_irq],eax
 - 
 
289 
 
 - 
 
290 
    mov  eax,[config]	; unwrap com PORT
 - 
 
291 
    shr  eax,16
 - 
 
292 
    and  eax,0xfff
 - 
 
293 
    mov  [com_add],eax
 - 
 
294 
 
 - 
 
295 
    mov  eax,[config]	; unwrap IRQ
 - 
 
296 
    and  eax,0xf
 - 
 
297 
    mov  [interface],eax
 - 
 
298 
 
 - 
 
299 
    mov  eax,[config]	; unwrap com PORT
 - 
 
300 
    shr  eax,7
 - 
 
301 
    and  eax,1
 - 
 
302 
    mov  [assigned],eax
 - 
 
303 
    jmp  red
 - 
 
304 
 
 298 
 
Line 305... Line 299...
305 
apply_stack_setup:
 299 
apply_stack_setup:
306 
 
 300 
 
307 
    mov  eax,[com_irq]
 301 
    mov  eax,[com_irq]
Line 623... Line 617...
623 
    mov  ebx,2			   ; 2, end of draw
 617 
    mov  ebx,2			   ; 2, end of draw
624 
    mcall
 618 
    mcall
Line 625... Line 619...
625 
 
 619 
 
Line 626... Line -...
626 
    ret
 - 
 
627 
 
 - 
 
628 
;******************************************************************************
 - 
 
629 
 
 - 
 
630 
boot_set_settings:
 - 
 
631 
 
 - 
 
632 
    mov  eax,52
 - 
 
633 
    mov  ebx,0
 - 
 
634 
    mcall
 - 
 
635 
    mov  [config],eax
 - 
 
636 
 
 - 
 
637 
    shr  eax,8		; unwrap com IRQ
 - 
 
638 
    and  eax,0xf
 - 
 
639 
    mov  [com_irq],eax
 - 
 
640 
 
 - 
 
641 
    mov  eax,[config]	; unwrap com PORT
 - 
 
642 
    shr  eax,16
 - 
 
643 
    and  eax,0xfff
 - 
 
644 
    mov  [com_add],eax
 - 
 
645 
 
 - 
 
646 
    call apply_stack_setup
 - 
 
647 
 
 - 
 
648 
    mov  eax,-1 		; close this program
 - 
 
649 
    mcall
 - 
 
650 
 
 - 
 
Line 651... Line 620...
651 
;******************************************************************************
 620 
    ret
Line 652... Line 621...
652 
 
 621 
 
653 
 
 622 
 
654 
; DATA AREA
 623 
; DATA AREA
655 
 
 624 
 
656 
if lang eq ru
 625 
if lang eq ru
657 
title	   db  ' áâனª  á¥â¥¢®£® á⥪ ',0
 626 
title	   db  ' áâனª  á¥â¥¢®£® á⥪ ',0
658 
text:
 627 
text:
659 
    db '   ¥ ªâ¨¢­ë©      Œ®¤¥¬ ­  Com-¯®àâã: 0x     <   '
 628 
    db '   ¥ ªâ¨¢­ë©      Œ®¤¥¬ ­  Com-¯®àâã: 0x     <   '
660 
    db '   Slip            à¥à뢠­¨¥ ¬®¤¥¬ :    0x   <   '
 629 
    db '   Slip            à¥à뢠­¨¥ ¬®¤¥¬ :    0x   <   '
661 
    db '   PPP                                            '
 630 
    db '   PPP                                            '
662 
    db '   „à ©¢¥à ¯ ª¥â®¢    IP server ­ §­ ç¥­­ë©       '
 631 
    db '   „à ©¢¥à ¯ ª¥â®¢    IP server ­ §­ ç¥­­ë©       '
663 
    db '                      ”¨ªá.      .   .   .    <   '
 632 
    db '   (Ethernet)         ”¨ªá.      .   .   .    <   '
664 
    db '                      ˜«î§:      .   .   .    <   '
 633 
    db '                      ˜«î§:      .   .   .    <   '
Line -... Line 634...
- 
 
 634 
    db '                      ®¤á¥âì:   .   .   .    <   '
- 
 
 635 
    db '                      DNS IP:    .   .   .    <   '
- 
 
 636 
    db '                                                  '
- 
 
 637 
    db 'w            —¨â âì     à¨¬¥­¨âì                 '
- 
 
 638 
 
- 
 
 639 
elseif lang eq nl
- 
 
 640 
title	   db  'Netwerk configuratie',0
- 
 
 641 
text:
- 
 
 642 
    db '   Niet actief      Modem Com Poort:   0x     <   '
- 
 
 643 
    db '   Slip             Modem Com Irq:       0x   <   '
- 
 
 644 
    db '   PPP                                            '
- 
 
 645 
    db '   Pakket Driver      Door IP-server toegekend    '
- 
 
 646 
    db '   (Ethernet)         Vast IP:   .   .   .    <   '
- 
 
 647 
    db '                      Gateway:   .   .   .    <   '
665 
    db '                      ®¤á¥âì:   .   .   .    <   '
 648 
    db '                      Subnet:    .   .   .    <   '
666 
    db '                      DNS IP:    .   .   .    <   '
 649 
    db '                      DNS IP:    .   .   .    <   '
667 
    db '                                                  '
 650 
    db '                                                  '
668 
    db 'w            —¨â âì     à¨¬¥­¨âì                 '
 651 
    db 'w            Vernieuw   Toepassen                 '
669 
 
 652 
 
670 
else
 653 
else
671 
title	   db  'Stack configuration',0
 654 
title	   db  'Stack configuration',0
672 
text:
 655 
text:
673 
    db '   Not active       Modem Com Port:    0x     <   '
 656 
    db '   Not active       Modem Com Port:    0x     <   '
674 
    db '   Slip             Modem Com Irq:       0x   <   '
 657 
    db '   Slip             Modem Com Irq:       0x   <   '
675 
    db '   PPP                                            '
 658 
    db '   PPP                                            '
676 
    db '   Packet Driver      IP server assigned          '
 659 
    db '   Packet Driver      IP server assigned          '
677 
    db '                      Fixed:     .   .   .    <   '
 660 
    db '   (Ethernet)         Fixed:     .   .   .    <   '
Line 685... Line 668...
685 
xx: db 'x' ;<- END MARKER, DONT DELETE
 668 
xx: db 'x' ;<- END MARKER, DONT DELETE
Line 686... Line 669...
686 
 
 669 
 
Line 687... Line -...
687 
button_color dd  0x2254b9
 - 
 
Line 688... Line 670...
688 
 
 670 
button_color dd  0x2254b9
689 
 
 671 
 
690 
;ENTER YOUR SETTINGS HERE:
 672 
 
691 
 
 673 
 
Line 692... Line 674...
692 
ip_address  db	010,005,004,175
 674 
ip_address  dd ?
693 
gateway_ip  db	010,005,000,001
 675 
gateway_ip  dd ?
694 
subnet_mask db	255,255,000,000
 676 
subnet_mask dd ?
695 
dns_ip	    db	213,184,238,006
 677 
dns_ip	    dd ?
Line 696... Line 678...
696 
 
 678 
 
Line 697... Line 679...
697 
 
 679