mirror of
https://github.com/bobbimanners/emailler.git
synced 2024-09-12 02:54:54 +00:00
258 lines
5.2 KiB
NASM
258 lines
5.2 KiB
NASM
|
;NB65 API example in DASM format (http://www.atari2600.org/DASM/)
|
||
|
processor 6502
|
||
|
|
||
|
include "../inc/nb65_constants.i"
|
||
|
|
||
|
;useful macros
|
||
|
mac ldax
|
||
|
lda [{1}]
|
||
|
ldx [{1}]+1
|
||
|
endm
|
||
|
|
||
|
mac ldaxi
|
||
|
lda #<[{1}]
|
||
|
ldx #>[{1}]
|
||
|
endm
|
||
|
|
||
|
mac stax
|
||
|
sta [{1}]
|
||
|
stx [{1}]+1
|
||
|
endm
|
||
|
|
||
|
mac cout
|
||
|
lda [{1}]
|
||
|
jsr print_a
|
||
|
endm
|
||
|
|
||
|
mac print_cr
|
||
|
cout #13
|
||
|
jsr print_a
|
||
|
endm
|
||
|
|
||
|
mac nb65call
|
||
|
ldy [{1}]
|
||
|
jsr NB65_DISPATCH_VECTOR
|
||
|
endm
|
||
|
|
||
|
mac print
|
||
|
|
||
|
ldaxi [{1}]
|
||
|
ldy #NB65_PRINT_ASCIIZ
|
||
|
jsr NB65_DISPATCH_VECTOR
|
||
|
endm
|
||
|
|
||
|
|
||
|
;some routines & zero page variables
|
||
|
print_a equ $ffd2
|
||
|
temp_ptr equ $FB ; scratch space in page zero
|
||
|
|
||
|
|
||
|
;start of code
|
||
|
;BASIC stub
|
||
|
org $801
|
||
|
dc.b $0b,$08,$d4,$07,$9e,$32,$30,$36,$31,$00,$00,$00
|
||
|
|
||
|
|
||
|
ldaxi #NB65_CART_SIGNATURE ;where signature should be in cartridge (if cart is banked in)
|
||
|
jsr look_for_signature
|
||
|
bcc found_nb65_signature
|
||
|
|
||
|
ldaxi #NB65_RAM_STUB_SIGNATURE ;where signature should be in a RAM stub
|
||
|
jsr look_for_signature
|
||
|
bcs nb65_signature_not_found
|
||
|
jsr NB65_RAM_STUB_ACTIVATE ;we need to turn on NB65 cartridge
|
||
|
jmp found_nb65_signature
|
||
|
|
||
|
nb65_signature_not_found
|
||
|
ldaxi #nb65_api_not_found_message
|
||
|
jsr print_ax
|
||
|
rts
|
||
|
|
||
|
found_nb65_signature
|
||
|
|
||
|
print #initializing
|
||
|
nb65call #NB65_INITIALIZE
|
||
|
bcc .init_ok
|
||
|
print_cr
|
||
|
print #failed
|
||
|
print_cr
|
||
|
jsr print_errorcode
|
||
|
jmp reset_after_keypress
|
||
|
.init_ok
|
||
|
|
||
|
;if we got here, we have found the NB65 API and initialised the IP stack
|
||
|
;print out the current configuration
|
||
|
nb65call #NB65_PRINT_IP_CONFIG
|
||
|
|
||
|
;test out DNS resolution:
|
||
|
|
||
|
ldaxi #test_hostname
|
||
|
stax nb65_param_buffer+NB65_DNS_HOSTNAME
|
||
|
|
||
|
nb65call #NB65_PRINT_ASCIIZ
|
||
|
|
||
|
print #space_colon_space
|
||
|
|
||
|
ldaxi #nb65_param_buffer
|
||
|
nb65call #NB65_DNS_RESOLVE
|
||
|
bcc .no_dns_error
|
||
|
print #dns_lookup_failed_msg
|
||
|
print_cr
|
||
|
jsr print_errorcode
|
||
|
jmp reset_after_keypress
|
||
|
.no_dns_error
|
||
|
|
||
|
ldaxi #nb65_param_buffer+NB65_DNS_HOSTNAME_IP
|
||
|
nb65call #NB65_PRINT_DOTTED_QUAD
|
||
|
print_cr
|
||
|
|
||
|
;now set up for the nb65callback test
|
||
|
|
||
|
ldaxi #64 ;listen on port 64
|
||
|
stax nb65_param_buffer+NB65_UDP_LISTENER_PORT
|
||
|
ldaxi #udp_nb65callback
|
||
|
stax nb65_param_buffer+NB65_UDP_LISTENER_nb65callBACK
|
||
|
ldaxi #nb65_param_buffer
|
||
|
nb65call #NB65_UDP_ADD_LISTENER
|
||
|
bcc .add_listener_ok
|
||
|
print #failed
|
||
|
jsr print_errorcode
|
||
|
jmp reset_after_keypress
|
||
|
.add_listener_ok
|
||
|
|
||
|
print #listening
|
||
|
|
||
|
|
||
|
.loop_forever
|
||
|
jsr NB65_PERIODIC_PROCESSING_VECTOR
|
||
|
jmp .loop_forever
|
||
|
|
||
|
|
||
|
;here is the code that will execute whenever a UDP packet arrives on port 64
|
||
|
udp_nb65callback subroutine
|
||
|
|
||
|
|
||
|
ldaxi #nb65_param_buffer
|
||
|
nb65call #NB65_GET_INPUT_PACKET_INFO
|
||
|
|
||
|
print_cr
|
||
|
print #recv_from
|
||
|
ldaxi #nb65_param_buffer+NB65_REMOTE_IP
|
||
|
nb65call #NB65_PRINT_DOTTED_QUAD
|
||
|
print #port
|
||
|
lda nb65_param_buffer+NB65_REMOTE_PORT+1
|
||
|
nb65call #NB65_PRINT_HEX
|
||
|
lda nb65_param_buffer+NB65_REMOTE_PORT
|
||
|
nb65call #NB65_PRINT_HEX
|
||
|
print_cr
|
||
|
print #length
|
||
|
lda nb65_param_buffer+NB65_PAYLOAD_LENGTH+1
|
||
|
nb65call #NB65_PRINT_HEX
|
||
|
lda nb65_param_buffer+NB65_PAYLOAD_LENGTH
|
||
|
nb65call #NB65_PRINT_HEX
|
||
|
print_cr
|
||
|
print #data
|
||
|
ldax nb65_param_buffer+NB65_PAYLOAD_POINTER
|
||
|
stax temp_ptr
|
||
|
ldx nb65_param_buffer+NB65_PAYLOAD_LENGTH ;assumes length is < 255
|
||
|
ldy #0
|
||
|
.next_byte
|
||
|
lda (temp_ptr),y
|
||
|
jsr print_a
|
||
|
iny
|
||
|
dex
|
||
|
bpl .next_byte
|
||
|
|
||
|
|
||
|
print_cr
|
||
|
|
||
|
;make and send a reply
|
||
|
ldaxi #reply_message
|
||
|
stax nb65_param_buffer+NB65_PAYLOAD_POINTER
|
||
|
|
||
|
ldaxi #reply_message_length
|
||
|
stax nb65_param_buffer+NB65_PAYLOAD_LENGTH
|
||
|
|
||
|
ldaxi #nb65_param_buffer
|
||
|
nb65call #NB65_SEND_UDP_PACKET
|
||
|
bcc .sent_ok
|
||
|
jmp print_errorcode
|
||
|
.sent_ok
|
||
|
print #reply_sent
|
||
|
|
||
|
rts
|
||
|
|
||
|
|
||
|
;look for NB65 signature at location pointed at by AX
|
||
|
look_for_signature subroutine
|
||
|
stax temp_ptr
|
||
|
ldy #3
|
||
|
.check_one_byte
|
||
|
lda (temp_ptr),y
|
||
|
cmp nb65_signature,y
|
||
|
bne .bad_match
|
||
|
dey
|
||
|
bpl .check_one_byte
|
||
|
clc
|
||
|
rts
|
||
|
.bad_match
|
||
|
sec
|
||
|
rts
|
||
|
|
||
|
print_ax subroutine
|
||
|
stax temp_ptr
|
||
|
ldy #0
|
||
|
.next_char
|
||
|
lda (temp_ptr),y
|
||
|
beq .done
|
||
|
jsr print_a
|
||
|
iny
|
||
|
jmp .next_char
|
||
|
.done
|
||
|
rts
|
||
|
|
||
|
get_key
|
||
|
jsr $ffe4
|
||
|
cmp #0
|
||
|
beq get_key
|
||
|
rts
|
||
|
|
||
|
reset_after_keypress
|
||
|
print #press_a_key_to_continue
|
||
|
jsr get_key
|
||
|
jmp $fce2 ;do a cold start
|
||
|
|
||
|
|
||
|
print_errorcode
|
||
|
print #error_code
|
||
|
nb65call #NB65_GET_LAST_ERROR
|
||
|
nb65call #NB65_PRINT_HEX
|
||
|
print_cr
|
||
|
rts
|
||
|
|
||
|
|
||
|
|
||
|
;constants
|
||
|
nb65_api_not_found_message dc.b "ERROR - NB65 API NOT FOUND.",13,0
|
||
|
nb65_signature dc.b $4E,$42,$36,$35 ; "NB65" - API signature
|
||
|
initializing dc.b "INITIALIZING ",13,0
|
||
|
error_code dc.b "ERROR CODE: $",0
|
||
|
press_a_key_to_continue dc.b "PRESS A KEY TO CONTINUE",13,0
|
||
|
failed dc.b "FAILED ", 0
|
||
|
ok dc.b "OK ", 0
|
||
|
test_hostname dc.b "RETROHACKERS.COM",0 ;this should be an A record
|
||
|
dns_lookup_failed_msg dc.b "DNS LOOKUP FAILED", 0
|
||
|
recv_from dc.b"RECEIVED FROM: ",0
|
||
|
listening dc.b "LISTENING ON UDP PORT 64",13,0
|
||
|
reply_sent dc.b "REPLY SENT.",0
|
||
|
port dc.b " PORT: $",0
|
||
|
length dc.b "LENGTH: $",0
|
||
|
data dc.b "DATA: ",0
|
||
|
space_colon_space dc.b " : ",0
|
||
|
reply_message dc.b "PONG!"
|
||
|
reply_message_length equ 5
|
||
|
|
||
|
;variables
|
||
|
nb65_param_buffer DS.B $20
|
||
|
|