.include "../inc/common.i" .include "../inc/commonprint.i" .include "../inc/net.i" .export start .import exit_to_basic .import dns_set_hostname .import dns_resolve .import dns_ip .import dns_status .import sntp_ip .import sntp_utc_timestamp .import sntp_get_time ; keep LD65 happy .segment "ZPSAVE" .segment "STARTUP" lda #14 jsr print_a ; switch to lower case start: jsr print_cr init_ip_via_dhcp jsr print_ip_config ldax #time_server_msg jsr print ldax #time_server_host jsr print jsr print_cr ldax #time_server_host jsr dns_set_hostname bcs @dns_error jsr dns_resolve bcs @dns_error ldx #3 ; set destination address : lda dns_ip,x sta sntp_ip,x dex bpl :- ldax #sending_query jsr print ldax #sntp_ip jsr print_dotted_quad jsr print_cr jsr sntp_get_time bcc @ok ldax #sntp_error jmp @print_error @ok: ldy #3 : lda sntp_utc_timestamp,y jsr print_hex dey bpl :- jmp exit_to_basic @dns_error: ldax #dns_error @print_error: jsr print jsr print_errorcode jmp exit_to_basic .data time_server_msg: .byte "TIME SERVER : ",0 time_server_host: .byte "jamtronix.com",0 ; .byte "150.101.112.134",0 .byte "0.POOL.SNTP.ORG",0 sending_query: .byte "SENDING SNTP QUERY TO ",0 sntp_error: .byte "ERROR DURING SNTP QUERY",13,0 dns_error: .byte "ERROR RESOLVING HOSTNAME",13,0 divs: .byte $02,$30,$00,$00 .byte $05,$00,$00,$00 ; -- LICENSE FOR sntp.s -- ; The contents of this file are subject to the Mozilla Public License ; Version 1.1 (the "License"); you may not use this file except in ; compliance with the License. You may obtain a copy of the License at ; http://www.mozilla.org/MPL/ ; ; Software distributed under the License is distributed on an "AS IS" ; basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the ; License for the specific language governing rights and limitations ; under the License. ; ; The Original Code is ip65. ; ; The Initial Developer of the Original Code is Jonno Downes, ; jonno@jamtronix.com. ; Portions created by the Initial Developer are Copyright (C) 2009 ; Jonno Downes. All Rights Reserved. ; -- LICENSE END --