mirror of
https://github.com/bobbimanners/emailler.git
synced 2024-05-29 11:41:30 +00:00
Removed last KPR_* constants.
This commit is contained in:
parent
c89a2ae1ba
commit
d4f7569278
|
@ -252,11 +252,11 @@ print_vt100:
|
||||||
|
|
||||||
print_error:
|
print_error:
|
||||||
lda ip65_error
|
lda ip65_error
|
||||||
cmp #KPR_ERROR_ABORTED_BY_USER
|
cmp #IP65_ERROR_ABORTED_BY_USER
|
||||||
bne :+
|
bne :+
|
||||||
ldax #abort
|
ldax #abort
|
||||||
jmp print_ascii_as_native
|
jmp print_ascii_as_native
|
||||||
: cmp #KPR_ERROR_TIMEOUT_ON_RECEIVE
|
: cmp #IP65_ERROR_TIMEOUT_ON_RECEIVE
|
||||||
bne :+
|
bne :+
|
||||||
ldax #timeout
|
ldax #timeout
|
||||||
jmp print_ascii_as_native
|
jmp print_ascii_as_native
|
||||||
|
@ -308,7 +308,7 @@ send_char:
|
||||||
bcs :+
|
bcs :+
|
||||||
rts
|
rts
|
||||||
: lda ip65_error
|
: lda ip65_error
|
||||||
cmp #KPR_ERROR_CONNECTION_CLOSED
|
cmp #IP65_ERROR_CONNECTION_CLOSED
|
||||||
bne :+
|
bne :+
|
||||||
lda #1
|
lda #1
|
||||||
sta connection_closed
|
sta connection_closed
|
||||||
|
|
|
@ -1,15 +1,15 @@
|
||||||
KPR_ERROR_PORT_IN_USE = $80
|
IP65_ERROR_PORT_IN_USE = $80
|
||||||
KPR_ERROR_TIMEOUT_ON_RECEIVE = $81
|
IP65_ERROR_TIMEOUT_ON_RECEIVE = $81
|
||||||
KPR_ERROR_TRANSMIT_FAILED = $82
|
IP65_ERROR_TRANSMIT_FAILED = $82
|
||||||
KPR_ERROR_TRANSMISSION_REJECTED_BY_PEER = $83
|
IP65_ERROR_TRANSMISSION_REJECTED_BY_PEER = $83
|
||||||
KPR_ERROR_INPUT_TOO_LARGE = $84
|
IP65_ERROR_INPUT_TOO_LARGE = $84
|
||||||
KPR_ERROR_DEVICE_FAILURE = $85
|
IP65_ERROR_DEVICE_FAILURE = $85
|
||||||
KPR_ERROR_ABORTED_BY_USER = $86
|
IP65_ERROR_ABORTED_BY_USER = $86
|
||||||
KPR_ERROR_LISTENER_NOT_AVAILABLE = $87
|
IP65_ERROR_LISTENER_NOT_AVAILABLE = $87
|
||||||
KPR_ERROR_CONNECTION_RESET_BY_PEER = $89
|
IP65_ERROR_CONNECTION_RESET_BY_PEER = $89
|
||||||
KPR_ERROR_CONNECTION_CLOSED = $8A
|
IP65_ERROR_CONNECTION_CLOSED = $8A
|
||||||
KPR_ERROR_MALFORMED_URL = $A0
|
IP65_ERROR_MALFORMED_URL = $A0
|
||||||
KPR_ERROR_DNS_LOOKUP_FAILED = $A1
|
IP65_ERROR_DNS_LOOKUP_FAILED = $A1
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -150,7 +150,7 @@ dhcp_init:
|
||||||
jsr ip65_process
|
jsr ip65_process
|
||||||
jsr check_for_abort_key
|
jsr check_for_abort_key
|
||||||
bcc @no_abort
|
bcc @no_abort
|
||||||
lda #KPR_ERROR_ABORTED_BY_USER
|
lda #IP65_ERROR_ABORTED_BY_USER
|
||||||
sta ip65_error
|
sta ip65_error
|
||||||
rts
|
rts
|
||||||
@no_abort:
|
@no_abort:
|
||||||
|
@ -194,7 +194,7 @@ dhcp_init:
|
||||||
rts
|
rts
|
||||||
|
|
||||||
@too_many_messages_sent:
|
@too_many_messages_sent:
|
||||||
lda #KPR_ERROR_TIMEOUT_ON_RECEIVE
|
lda #IP65_ERROR_TIMEOUT_ON_RECEIVE
|
||||||
sta ip65_error
|
sta ip65_error
|
||||||
jsr @bound ; to remove the listener (thanks to ShadowM for bug report)
|
jsr @bound ; to remove the listener (thanks to ShadowM for bug report)
|
||||||
sec ; signal an error
|
sec ; signal an error
|
||||||
|
|
10
ip65/dns.s
10
ip65/dns.s
|
@ -164,7 +164,7 @@ dns_set_hostname:
|
||||||
rts
|
rts
|
||||||
|
|
||||||
@hostname_too_long:
|
@hostname_too_long:
|
||||||
lda #KPR_ERROR_INPUT_TOO_LARGE
|
lda #IP65_ERROR_INPUT_TOO_LARGE
|
||||||
sta ip65_error
|
sta ip65_error
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -212,7 +212,7 @@ dns_resolve:
|
||||||
jsr ip65_process
|
jsr ip65_process
|
||||||
jsr check_for_abort_key
|
jsr check_for_abort_key
|
||||||
bcc @no_abort
|
bcc @no_abort
|
||||||
lda #KPR_ERROR_ABORTED_BY_USER
|
lda #IP65_ERROR_ABORTED_BY_USER
|
||||||
sta ip65_error
|
sta ip65_error
|
||||||
rts
|
rts
|
||||||
@no_abort:
|
@no_abort:
|
||||||
|
@ -241,11 +241,11 @@ dns_resolve:
|
||||||
jmp @dns_polling_loop
|
jmp @dns_polling_loop
|
||||||
|
|
||||||
@too_many_messages_sent:
|
@too_many_messages_sent:
|
||||||
lda #KPR_ERROR_TIMEOUT_ON_RECEIVE
|
lda #IP65_ERROR_TIMEOUT_ON_RECEIVE
|
||||||
bne @error ; always
|
bne @error ; always
|
||||||
|
|
||||||
@failed:
|
@failed:
|
||||||
lda #KPR_ERROR_DNS_LOOKUP_FAILED
|
lda #IP65_ERROR_DNS_LOOKUP_FAILED
|
||||||
@error:
|
@error:
|
||||||
sta ip65_error
|
sta ip65_error
|
||||||
sec ; signal an error
|
sec ; signal an error
|
||||||
|
@ -282,7 +282,7 @@ send_dns_query:
|
||||||
sta output_buffer+dns_qname,x
|
sta output_buffer+dns_qname,x
|
||||||
inx
|
inx
|
||||||
bpl @hostname_still_ok
|
bpl @hostname_still_ok
|
||||||
lda #KPR_ERROR_INPUT_TOO_LARGE
|
lda #IP65_ERROR_INPUT_TOO_LARGE
|
||||||
sta ip65_error
|
sta ip65_error
|
||||||
jmp @error_on_send ; if we got past 128 bytes, there's a problem
|
jmp @error_on_send ; if we got past 128 bytes, there's a problem
|
||||||
@hostname_still_ok:
|
@hostname_still_ok:
|
||||||
|
|
|
@ -119,7 +119,7 @@ httpd_start:
|
||||||
jsr ip65_process
|
jsr ip65_process
|
||||||
jsr check_for_abort_key
|
jsr check_for_abort_key
|
||||||
bcc @no_abort
|
bcc @no_abort
|
||||||
lda #KPR_ERROR_ABORTED_BY_USER
|
lda #IP65_ERROR_ABORTED_BY_USER
|
||||||
sta ip65_error
|
sta ip65_error
|
||||||
rts
|
rts
|
||||||
@no_abort:
|
@no_abort:
|
||||||
|
|
|
@ -368,7 +368,7 @@ icmp_ping:
|
||||||
jsr icmp_send_echo
|
jsr icmp_send_echo
|
||||||
bcc @message_sent_ok
|
bcc @message_sent_ok
|
||||||
; still can't send? then give up
|
; still can't send? then give up
|
||||||
lda #KPR_ERROR_TRANSMIT_FAILED
|
lda #IP65_ERROR_TRANSMIT_FAILED
|
||||||
sta ip65_error
|
sta ip65_error
|
||||||
rts
|
rts
|
||||||
@message_sent_ok:
|
@message_sent_ok:
|
||||||
|
@ -398,7 +398,7 @@ icmp_ping:
|
||||||
|
|
||||||
jsr timer_timeout
|
jsr timer_timeout
|
||||||
bcs @loop_till_get_ping_response
|
bcs @loop_till_get_ping_response
|
||||||
lda #KPR_ERROR_TIMEOUT_ON_RECEIVE
|
lda #IP65_ERROR_TIMEOUT_ON_RECEIVE
|
||||||
sta ip65_error
|
sta ip65_error
|
||||||
lda #icmp_msg_type_echo_reply
|
lda #icmp_msg_type_echo_reply
|
||||||
jsr icmp_remove_listener
|
jsr icmp_remove_listener
|
||||||
|
|
|
@ -73,7 +73,7 @@ ip65_init:
|
||||||
jsr eth_init ; initialize ethernet driver
|
jsr eth_init ; initialize ethernet driver
|
||||||
|
|
||||||
bcc @ok
|
bcc @ok
|
||||||
lda #KPR_ERROR_DEVICE_FAILURE
|
lda #IP65_ERROR_DEVICE_FAILURE
|
||||||
sta ip65_error
|
sta ip65_error
|
||||||
rts
|
rts
|
||||||
@ok:
|
@ok:
|
||||||
|
|
|
@ -93,7 +93,7 @@ sntp_get_time:
|
||||||
jsr ip65_process
|
jsr ip65_process
|
||||||
jsr check_for_abort_key
|
jsr check_for_abort_key
|
||||||
bcc @no_abort
|
bcc @no_abort
|
||||||
lda #KPR_ERROR_ABORTED_BY_USER
|
lda #IP65_ERROR_ABORTED_BY_USER
|
||||||
sta ip65_error
|
sta ip65_error
|
||||||
rts
|
rts
|
||||||
@no_abort:
|
@no_abort:
|
||||||
|
@ -127,7 +127,7 @@ sntp_get_time:
|
||||||
@failed:
|
@failed:
|
||||||
ldax #sntp_client_port
|
ldax #sntp_client_port
|
||||||
jsr udp_remove_listener
|
jsr udp_remove_listener
|
||||||
lda #KPR_ERROR_TIMEOUT_ON_RECEIVE
|
lda #IP65_ERROR_TIMEOUT_ON_RECEIVE
|
||||||
sta ip65_error
|
sta ip65_error
|
||||||
sec ; signal an error
|
sec ; signal an error
|
||||||
rts
|
rts
|
||||||
|
|
16
ip65/tcp.s
16
ip65/tcp.s
|
@ -173,7 +173,7 @@ tcp_listen:
|
||||||
jsr ip65_process
|
jsr ip65_process
|
||||||
jsr check_for_abort_key
|
jsr check_for_abort_key
|
||||||
bcc @no_abort
|
bcc @no_abort
|
||||||
lda #KPR_ERROR_ABORTED_BY_USER
|
lda #IP65_ERROR_ABORTED_BY_USER
|
||||||
sta ip65_error
|
sta ip65_error
|
||||||
rts
|
rts
|
||||||
@no_abort:
|
@no_abort:
|
||||||
|
@ -251,7 +251,7 @@ tcp_connect:
|
||||||
jsr ip65_process
|
jsr ip65_process
|
||||||
jsr check_for_abort_key
|
jsr check_for_abort_key
|
||||||
bcc @no_abort
|
bcc @no_abort
|
||||||
lda #KPR_ERROR_ABORTED_BY_USER
|
lda #IP65_ERROR_ABORTED_BY_USER
|
||||||
sta ip65_error
|
sta ip65_error
|
||||||
rts
|
rts
|
||||||
@no_abort:
|
@no_abort:
|
||||||
|
@ -276,7 +276,7 @@ tcp_connect:
|
||||||
@failed:
|
@failed:
|
||||||
lda #tcp_cxn_state_closed
|
lda #tcp_cxn_state_closed
|
||||||
sta tcp_state
|
sta tcp_state
|
||||||
lda #KPR_ERROR_TIMEOUT_ON_RECEIVE
|
lda #IP65_ERROR_TIMEOUT_ON_RECEIVE
|
||||||
sta ip65_error
|
sta ip65_error
|
||||||
sec ; signal an error
|
sec ; signal an error
|
||||||
rts
|
rts
|
||||||
|
@ -360,7 +360,7 @@ tcp_close:
|
||||||
@failed:
|
@failed:
|
||||||
lda #tcp_cxn_state_closed
|
lda #tcp_cxn_state_closed
|
||||||
sta tcp_state
|
sta tcp_state
|
||||||
lda #KPR_ERROR_TIMEOUT_ON_RECEIVE
|
lda #IP65_ERROR_TIMEOUT_ON_RECEIVE
|
||||||
sta ip65_error
|
sta ip65_error
|
||||||
sec ; signal an error
|
sec ; signal an error
|
||||||
rts
|
rts
|
||||||
|
@ -405,7 +405,7 @@ tcp_send:
|
||||||
lda tcp_state
|
lda tcp_state
|
||||||
cmp #tcp_cxn_state_established
|
cmp #tcp_cxn_state_established
|
||||||
beq @connection_established
|
beq @connection_established
|
||||||
lda #KPR_ERROR_CONNECTION_CLOSED
|
lda #IP65_ERROR_CONNECTION_CLOSED
|
||||||
sta ip65_error
|
sta ip65_error
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -453,7 +453,7 @@ tcp_send:
|
||||||
jsr ip65_process
|
jsr ip65_process
|
||||||
jsr check_for_abort_key
|
jsr check_for_abort_key
|
||||||
bcc @no_abort
|
bcc @no_abort
|
||||||
lda #KPR_ERROR_ABORTED_BY_USER
|
lda #IP65_ERROR_ABORTED_BY_USER
|
||||||
sta ip65_error
|
sta ip65_error
|
||||||
lda #tcp_cxn_state_closed
|
lda #tcp_cxn_state_closed
|
||||||
sta tcp_state
|
sta tcp_state
|
||||||
|
@ -483,7 +483,7 @@ tcp_send:
|
||||||
@failed:
|
@failed:
|
||||||
lda #tcp_cxn_state_closed
|
lda #tcp_cxn_state_closed
|
||||||
sta tcp_state
|
sta tcp_state
|
||||||
lda #KPR_ERROR_TIMEOUT_ON_RECEIVE
|
lda #IP65_ERROR_TIMEOUT_ON_RECEIVE
|
||||||
sta ip65_error
|
sta ip65_error
|
||||||
sec ; signal an error
|
sec ; signal an error
|
||||||
rts
|
rts
|
||||||
|
@ -681,7 +681,7 @@ tcp_process:
|
||||||
; connection has been reset so mark it as closed
|
; connection has been reset so mark it as closed
|
||||||
lda #tcp_cxn_state_closed
|
lda #tcp_cxn_state_closed
|
||||||
sta tcp_state
|
sta tcp_state
|
||||||
lda #KPR_ERROR_CONNECTION_RESET_BY_PEER
|
lda #IP65_ERROR_CONNECTION_RESET_BY_PEER
|
||||||
sta ip65_error
|
sta ip65_error
|
||||||
|
|
||||||
lda #$ff
|
lda #$ff
|
||||||
|
|
10
ip65/tftp.s
10
ip65/tftp.s
|
@ -159,7 +159,7 @@ set_tftp_opcode:
|
||||||
jsr udp_add_listener
|
jsr udp_add_listener
|
||||||
|
|
||||||
bcc :+ ; bail if we couldn't listen on the port we want
|
bcc :+ ; bail if we couldn't listen on the port we want
|
||||||
lda #KPR_ERROR_PORT_IN_USE
|
lda #IP65_ERROR_PORT_IN_USE
|
||||||
sta ip65_error
|
sta ip65_error
|
||||||
rts
|
rts
|
||||||
: lda #TFTP_MAX_RESENDS
|
: lda #TFTP_MAX_RESENDS
|
||||||
|
@ -211,7 +211,7 @@ set_tftp_opcode:
|
||||||
jsr ip65_process
|
jsr ip65_process
|
||||||
jsr check_for_abort_key
|
jsr check_for_abort_key
|
||||||
bcc @no_abort
|
bcc @no_abort
|
||||||
lda #KPR_ERROR_ABORTED_BY_USER
|
lda #IP65_ERROR_ABORTED_BY_USER
|
||||||
sta ip65_error
|
sta ip65_error
|
||||||
jmp @exit_with_error
|
jmp @exit_with_error
|
||||||
@no_abort:
|
@no_abort:
|
||||||
|
@ -225,7 +225,7 @@ set_tftp_opcode:
|
||||||
|
|
||||||
dec tftp_resend_counter
|
dec tftp_resend_counter
|
||||||
bne @outer_delay_loop
|
bne @outer_delay_loop
|
||||||
lda #KPR_ERROR_TIMEOUT_ON_RECEIVE
|
lda #IP65_ERROR_TIMEOUT_ON_RECEIVE
|
||||||
sta ip65_error
|
sta ip65_error
|
||||||
jmp @exit_with_error
|
jmp @exit_with_error
|
||||||
|
|
||||||
|
@ -279,7 +279,7 @@ send_request_packet:
|
||||||
sta tftp_state
|
sta tftp_state
|
||||||
rts
|
rts
|
||||||
@error_in_send:
|
@error_in_send:
|
||||||
lda #KPR_ERROR_TRANSMIT_FAILED
|
lda #IP65_ERROR_TRANSMIT_FAILED
|
||||||
sta ip65_error
|
sta ip65_error
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -344,7 +344,7 @@ tftp_in:
|
||||||
@recv_error:
|
@recv_error:
|
||||||
lda #tftp_error
|
lda #tftp_error
|
||||||
sta tftp_state
|
sta tftp_state
|
||||||
lda #KPR_ERROR_TRANSMISSION_REJECTED_BY_PEER
|
lda #IP65_ERROR_TRANSMISSION_REJECTED_BY_PEER
|
||||||
sta ip65_error
|
sta ip65_error
|
||||||
rts
|
rts
|
||||||
@not_an_error:
|
@not_an_error:
|
||||||
|
|
|
@ -180,7 +180,7 @@ udp_add_listener:
|
||||||
|
|
||||||
@full:
|
@full:
|
||||||
@busy:
|
@busy:
|
||||||
lda #KPR_ERROR_LISTENER_NOT_AVAILABLE
|
lda #IP65_ERROR_LISTENER_NOT_AVAILABLE
|
||||||
sta ip65_error
|
sta ip65_error
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
|
|
@ -103,7 +103,7 @@ url_parse:
|
||||||
cmp #'H'
|
cmp #'H'
|
||||||
beq @http
|
beq @http
|
||||||
@exit_with_error:
|
@exit_with_error:
|
||||||
lda #KPR_ERROR_MALFORMED_URL
|
lda #IP65_ERROR_MALFORMED_URL
|
||||||
sta ip65_error
|
sta ip65_error
|
||||||
@exit_with_sec:
|
@exit_with_sec:
|
||||||
sec
|
sec
|
||||||
|
@ -128,7 +128,7 @@ lda #url_type_gopher
|
||||||
bcs @exit_with_sec
|
bcs @exit_with_sec
|
||||||
jsr dns_resolve
|
jsr dns_resolve
|
||||||
bcc :+
|
bcc :+
|
||||||
lda #KPR_ERROR_DNS_LOOKUP_FAILED
|
lda #IP65_ERROR_DNS_LOOKUP_FAILED
|
||||||
sta ip65_error
|
sta ip65_error
|
||||||
jmp @exit_with_sec
|
jmp @exit_with_sec
|
||||||
: ; copy IP address
|
: ; copy IP address
|
||||||
|
|
Loading…
Reference in New Issue
Block a user