Apple-2-SW/emailler
1
0
Fork 0
mirror of https://github.com/bobbimanners/emailler.git synced 2025-02-03 03:29:59 +00:00
Code Issues Projects Releases Wiki Activity

Removed cfg_get_configuration_ptr.

Browse Source 
cfg_get_configuration_ptr was introduced for NB64 - which is out of scope for this IP65.
This commit is contained in:
Oliver Schmidt 2015-07-08 16:05:19 +02:00
parent e451b74b07
commit ae98e5c01d
12 changed files with 29 additions and 55 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
inc/commonprint.i
View File

@ -33,6 +33,12 @@
.import eth_driver_name
.import eth_driver_io_base
.importzp copy_src
.import cfg_mac
.import cfg_ip
.import cfg_netmask
.import cfg_gateway
.import cfg_dns
.import dhcp_server
.import cfg_tftp_server
pptr = ptr1
@ -107,45 +113,32 @@ print_ip_config:
ldax #mac_address_msg
jsr print_ascii_as_native
jsr cfg_get_configuration_ptr ; ax=base config, carry flag clear
; first 6 bytes of cfg_get_configuration_ptr is MAC address
ldax #cfg_mac
jsr print_mac
jsr print_cr
ldax #ip_address_msg
jsr print_ascii_as_native
jsr cfg_get_configuration_ptr ; ax=base config, carry flag clear
adc #KPR_CFG_IP
bcc :+
inx
: jsr print_dotted_quad
ldax #cfg_ip
jsr print_dotted_quad
jsr print_cr
ldax #netmask_msg
jsr print_ascii_as_native
jsr cfg_get_configuration_ptr ; ax=base config, carry flag clear
adc #KPR_CFG_NETMASK
bcc :+
inx
: jsr print_dotted_quad
ldax #cfg_netmask
jsr print_dotted_quad
jsr print_cr
ldax #gateway_msg
jsr print_ascii_as_native
jsr cfg_get_configuration_ptr ; ax=base config, carry flag clear
adc #KPR_CFG_GATEWAY
bcc :+
inx
: jsr print_dotted_quad
ldax #cfg_gateway
jsr print_dotted_quad
jsr print_cr
ldax #dns_server_msg
jsr print_ascii_as_native
jsr cfg_get_configuration_ptr ; ax=base config, carry flag clear
adc #KPR_CFG_DNS_SERVER
bcc :+
inx
: jsr print_dotted_quad
ldax #cfg_dns
jsr print_dotted_quad
jsr print_cr
ldax #tftp_server_msg
@ -156,11 +149,8 @@ print_ip_config:
ldax #dhcp_server_msg
jsr print_ascii_as_native
jsr cfg_get_configuration_ptr ; ax=base config, carry flag clear
adc #KPR_CFG_DHCP_SERVER
bcc :+
inx
: jsr print_dotted_quad
ldax #dhcp_server
jsr print_dotted_quad
jsr print_cr
rts

2
inc/net.i
View File

@ -11,8 +11,6 @@
.import dhcp_init
.import dhcp_server
.import cfg_get_configuration_ptr
.ifdef A2_SLOT_SCAN
.import a2_set_slot
.endif

19
ip65/config.s
View File

@ -11,12 +11,10 @@
.export dhcp_server
.export cfg_tftp_server
.export cfg_get_configuration_ptr
.data
cfg_mac: .byte $00, $80, $10, $00, $51, $00 ; mac address to be assigned to local machine
cfg_mac: .byte $00, $80, $10, $00, $51, $00 ; mac address of local machine (will be overwritten if ip65_init is called)
cfg_ip: .byte 192, 168, 1, 64 ; ip address of local machine (will be overwritten if dhcp_init is called)
; cfg_ip: .byte 0, 0, 0, 0 ; ip address of local machine (will be overwritten if dhcp_init is called)
cfg_netmask: .byte 255, 255, 255, 0 ; netmask of local network (will be overwritten if dhcp_init is called)
@ -27,21 +25,6 @@ dhcp_server: .byte 0, 0, 0, 0 ; will b
cfg_tftp_server: .byte $ff, $ff, $ff, $ff ; ip address of server to send tftp requests to (can be a broadcast address)
.code
; return a pointer to where the IP configuration is kept
; this is really only useful for the NB65 API - for anything
; linking directly against ip65, you would just import the
; address of the individual configuration elements, rather
; than use a base pointer+offsets to find each item.
; inputs: none
; outputs: AX = pointer to IP configuration.
cfg_get_configuration_ptr:
ldax #cfg_mac
clc
rts
; -- LICENSE FOR config.s --
; The contents of this file are subject to the Mozilla Public License

11
ip65/udp.s
View File

@ -16,6 +16,7 @@
.export udp_add_listener
.export udp_remove_listener
.export udp_send
.export udp_send_internal
.export udp_callback
@ -254,7 +255,17 @@ udp_send:
stax copy_dest
ldax udp_send_len
jsr copymem
; now we can fall through into udp_send_internal
; send udp packet with data at (udp_outp + udp_data)
; inputs:
; udp_send_dest: destination ip address (4 bytes)
; udp_send_dest_port: destination port (2 bytes)
; udp_send_src_port: source port (2 bytes)
; udp_send_len: length of data to send (exclusive of any headers)
; outputs:
; carry flag is set if an error occured, clear otherwise
udp_send_internal:
ldx #3 ; copy virtual header addresses
: lda udp_send_dest,x
sta udp_vh + udp_vh_dest,x ; set virtual header destination

1
test/cifs.s
View File

@ -4,7 +4,6 @@
.import exit_to_basic
.import cfg_get_configuration_ptr
.import cifs_l1_encode
.import cifs_l1_decode
.import cifs_start

1
test/dns.s
View File

@ -8,7 +8,6 @@
.import dns_resolve
.import dns_ip
.import dns_status
.import cfg_get_configuration_ptr
; keep LD65 happy

1
test/geturl.s
View File

@ -4,7 +4,6 @@
.import print_a
.import get_key
.import cfg_get_configuration_ptr
.import ascii_to_native
.import parser_init
.import parser_skip_next

1
test/parsequerystring.s
View File

@ -4,7 +4,6 @@
.import print_a
.import get_key
.import cfg_get_configuration_ptr
.import ascii_to_native
.import http_parse_request

1
test/parser.s
View File

@ -4,7 +4,6 @@
.import print_a
.import get_key
.import cfg_get_configuration_ptr
.import ascii_to_native
.import parser_init
.import parser_skip_next

1
test/ping.s
View File

@ -4,7 +4,6 @@
.import exit_to_basic
.import cfg_get_configuration_ptr
.import copymem
.importzp copy_src
.importzp copy_dest

1
test/sntp.s
View File

@ -3,7 +3,6 @@
.include "../inc/net.i"
.import exit_to_basic
.import cfg_get_configuration_ptr
.import dns_set_hostname
.import dns_resolve
.import dns_ip

1
test/tftp.s
View File

@ -4,7 +4,6 @@
.import exit_to_basic
.import cfg_get_configuration_ptr
.import copymem
.importzp copy_src
.importzp copy_dest