emailler/client/inc/net.i

40 lines
548 B
OpenEdge ABL

.import ip65_init
.import ip65_process
.import cfg_mac
.import cfg_ip
.import cfg_netmask
.import cfg_gateway
.import cfg_dns
.import cfg_tftp_server
.import dhcp_init
.import dhcp_server
.import cfg_get_configuration_ptr
.macro init_ip_via_dhcp
print_driver_init
jsr ip65_init
bcc :+
print_failed
sec
jmp @end_macro
:
print_ok
print_dhcp_init
jsr dhcp_init
bcc :+
print_failed
sec
jmp @end_macro
:
print_ok
clc
@end_macro:
.endmacro