mirror of
https://github.com/bobbimanners/emailler.git
synced 2024-10-14 05:24:07 +00:00
41 lines
501 B
OpenEdge ABL
41 lines
501 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
|
||
|
|
||
|
|
||
|
.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
|
||
|
rts
|
||
|
:
|
||
|
print_ok
|
||
|
clc
|
||
|
@end_macro:
|
||
|
.endmacro
|