mirror of
https://github.com/bobbimanners/emailler.git
synced 2025-02-19 17:31:40 +00:00
69cd7ba69e
git-svn-id: http://svn.code.sf.net/p/netboot65/code@49 93682198-c243-4bdb-bd91-e943c89aac3b
39 lines
509 B
OpenEdge ABL
39 lines
509 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
|
|
jmp @end_macro
|
|
:
|
|
print_ok
|
|
clc
|
|
@end_macro:
|
|
.endmacro |