2009-04-04 05:14:37 +00:00
|
|
|
;test the "NETBOOT65 Cartridge API"
|
2009-04-05 11:34:20 +00:00
|
|
|
.include "../inc/nb65_constants.i"
|
2009-04-05 10:10:53 +00:00
|
|
|
|
|
|
|
; load A/X macro
|
|
|
|
.macro ldax arg
|
|
|
|
.if (.match (.left (1, arg), #)) ; immediate mode
|
|
|
|
lda #<(.right (.tcount (arg)-1, arg))
|
|
|
|
ldx #>(.right (.tcount (arg)-1, arg))
|
|
|
|
.else ; assume absolute or zero page
|
|
|
|
lda arg
|
|
|
|
ldx 1+(arg)
|
|
|
|
.endif
|
|
|
|
.endmacro
|
|
|
|
|
|
|
|
; store A/X macro
|
2009-04-06 11:10:49 +00:00
|
|
|
.macro stax arg
|
2009-04-05 10:10:53 +00:00
|
|
|
sta arg
|
|
|
|
stx 1+(arg)
|
2009-04-06 11:10:49 +00:00
|
|
|
.endmacro
|
2009-04-04 05:14:37 +00:00
|
|
|
|
2009-04-06 11:10:49 +00:00
|
|
|
print_a = $ffd2
|
2009-04-05 10:10:53 +00:00
|
|
|
|
2009-04-06 11:10:49 +00:00
|
|
|
.macro cout arg
|
|
|
|
lda arg
|
|
|
|
jsr print_a
|
|
|
|
.endmacro
|
2009-04-05 10:10:53 +00:00
|
|
|
|
2009-04-05 11:34:20 +00:00
|
|
|
.zeropage
|
2009-04-06 07:31:45 +00:00
|
|
|
temp_ptr: .res 2
|
2009-04-05 11:34:20 +00:00
|
|
|
|
2009-04-04 05:14:37 +00:00
|
|
|
.bss
|
2009-04-05 11:34:20 +00:00
|
|
|
nb65_param_buffer: .res $20
|
2009-04-04 05:14:37 +00:00
|
|
|
|
2009-04-06 11:10:49 +00:00
|
|
|
.segment "STARTUP" ;this is what gets put at the start of the file on the C64
|
2009-04-05 02:47:08 +00:00
|
|
|
|
2009-04-06 11:10:49 +00:00
|
|
|
.word basicstub ; load address
|
2009-04-04 05:14:37 +00:00
|
|
|
|
2009-04-06 11:10:49 +00:00
|
|
|
.macro print arg
|
|
|
|
ldax arg
|
2009-04-05 10:10:53 +00:00
|
|
|
ldy #NB65_PRINT_ASCIIZ
|
|
|
|
jsr NB65_DISPATCH_VECTOR
|
2009-04-06 11:10:49 +00:00
|
|
|
.endmacro
|
2009-04-05 10:10:53 +00:00
|
|
|
|
|
|
|
.macro print_cr
|
|
|
|
lda #13
|
|
|
|
jsr print_a
|
|
|
|
.endmacro
|
|
|
|
|
2009-04-06 11:10:49 +00:00
|
|
|
.macro call arg
|
|
|
|
ldy arg
|
|
|
|
jsr NB65_DISPATCH_VECTOR
|
|
|
|
.endmacro
|
2009-04-05 10:10:53 +00:00
|
|
|
|
2009-04-04 05:14:37 +00:00
|
|
|
basicstub:
|
|
|
|
.word @nextline
|
|
|
|
.word 2003
|
2009-04-06 11:10:49 +00:00
|
|
|
.byte $9e
|
2009-04-04 05:14:37 +00:00
|
|
|
.byte <(((init / 1000) .mod 10) + $30)
|
|
|
|
.byte <(((init / 100 ) .mod 10) + $30)
|
|
|
|
.byte <(((init / 10 ) .mod 10) + $30)
|
|
|
|
.byte <(((init ) .mod 10) + $30)
|
|
|
|
.byte 0
|
|
|
|
@nextline:
|
|
|
|
.word 0
|
|
|
|
|
|
|
|
init:
|
|
|
|
|
2009-04-05 06:46:55 +00:00
|
|
|
lda #$01
|
|
|
|
sta $de00 ;turns on RR cartridge (since it will have been banked out when exiting to BASIC)
|
2009-04-05 11:34:20 +00:00
|
|
|
|
|
|
|
ldy #NB65_GET_DRIVER_NAME
|
|
|
|
jsr NB65_DISPATCH_VECTOR
|
2009-04-06 11:10:49 +00:00
|
|
|
|
2009-04-05 11:34:20 +00:00
|
|
|
ldy #NB65_PRINT_ASCIIZ
|
|
|
|
jsr NB65_DISPATCH_VECTOR
|
|
|
|
|
2009-04-06 11:10:49 +00:00
|
|
|
print #initializing
|
2009-04-05 11:34:20 +00:00
|
|
|
|
2009-04-06 11:10:49 +00:00
|
|
|
ldy #NB65_INIT_IP
|
2009-04-04 05:14:37 +00:00
|
|
|
jsr NB65_DISPATCH_VECTOR
|
2009-04-06 11:10:49 +00:00
|
|
|
bcc :+
|
|
|
|
print #failed
|
|
|
|
jsr print_errorcode
|
|
|
|
jmp bad_boot
|
|
|
|
:
|
|
|
|
|
|
|
|
print #ok
|
|
|
|
print_cr
|
|
|
|
|
|
|
|
print #dhcp
|
|
|
|
print #initializing
|
|
|
|
|
|
|
|
call #NB65_INIT_DHCP
|
2009-04-04 05:14:37 +00:00
|
|
|
|
|
|
|
bcc :+
|
2009-04-06 11:10:49 +00:00
|
|
|
print #failed
|
2009-04-04 05:14:37 +00:00
|
|
|
jsr print_errorcode
|
|
|
|
jmp bad_boot
|
|
|
|
:
|
|
|
|
|
2009-04-06 11:10:49 +00:00
|
|
|
print #ok
|
|
|
|
print_cr
|
|
|
|
call #NB65_PRINT_IP_CONFIG
|
2009-04-05 02:47:08 +00:00
|
|
|
|
2009-04-06 11:10:49 +00:00
|
|
|
;DNS resolution test
|
|
|
|
|
|
|
|
ldax #test_hostname
|
|
|
|
stax nb65_param_buffer+NB65_DNS_HOSTNAME
|
2009-04-04 05:14:37 +00:00
|
|
|
|
2009-04-06 11:10:49 +00:00
|
|
|
call #NB65_PRINT_ASCIIZ
|
2009-04-04 05:14:37 +00:00
|
|
|
|
2009-04-06 11:10:49 +00:00
|
|
|
cout #' '
|
|
|
|
cout #':'
|
|
|
|
cout #' '
|
|
|
|
|
|
|
|
ldax #nb65_param_buffer
|
|
|
|
call #NB65_DNS_RESOLVE_HOSTNAME
|
|
|
|
bcc :+
|
|
|
|
print #dns_lookup_failed_msg
|
|
|
|
print_cr
|
|
|
|
jmp print_errorcode
|
|
|
|
:
|
|
|
|
ldax #nb65_param_buffer+NB65_DNS_HOSTNAME_IP
|
|
|
|
call #NB65_PRINT_DOTTED_QUAD
|
|
|
|
print_cr
|
2009-04-04 05:14:37 +00:00
|
|
|
|
2009-04-06 11:10:49 +00:00
|
|
|
;callback test
|
2009-04-04 05:14:37 +00:00
|
|
|
|
2009-04-06 11:10:49 +00:00
|
|
|
ldax #64 ;listen on port 64
|
2009-04-04 05:14:37 +00:00
|
|
|
stax nb65_param_buffer+NB65_UDP_LISTENER_PORT
|
|
|
|
ldax #udp_callback
|
|
|
|
stax nb65_param_buffer+NB65_UDP_LISTENER_CALLBACK
|
2009-04-05 02:47:08 +00:00
|
|
|
ldax #nb65_param_buffer
|
2009-04-06 11:10:49 +00:00
|
|
|
call #NB65_UDP_ADD_LISTENER
|
2009-04-04 05:14:37 +00:00
|
|
|
bcc :+
|
2009-04-06 11:10:49 +00:00
|
|
|
print #failed
|
2009-04-04 05:14:37 +00:00
|
|
|
jsr print_errorcode
|
|
|
|
jmp bad_boot
|
|
|
|
:
|
2009-04-05 02:47:08 +00:00
|
|
|
|
2009-04-06 11:10:49 +00:00
|
|
|
print #listening
|
|
|
|
|
2009-04-05 10:10:53 +00:00
|
|
|
|
2009-04-04 05:14:37 +00:00
|
|
|
@loop_forever:
|
|
|
|
jsr NB65_PERIODIC_PROCESSING_VECTOR
|
|
|
|
jmp @loop_forever
|
|
|
|
|
|
|
|
udp_callback:
|
2009-04-05 11:34:20 +00:00
|
|
|
|
|
|
|
ldax #nb65_param_buffer
|
2009-04-06 11:10:49 +00:00
|
|
|
call #NB65_GET_INPUT_PACKET_INFO
|
2009-04-05 11:34:20 +00:00
|
|
|
|
2009-04-06 11:10:49 +00:00
|
|
|
print #port
|
2009-04-05 11:34:20 +00:00
|
|
|
|
|
|
|
lda nb65_param_buffer+NB65_LOCAL_PORT+1
|
2009-04-06 11:10:49 +00:00
|
|
|
call #NB65_PRINT_HEX
|
2009-04-05 11:34:20 +00:00
|
|
|
|
|
|
|
lda nb65_param_buffer+NB65_LOCAL_PORT
|
2009-04-06 11:10:49 +00:00
|
|
|
call #NB65_PRINT_HEX
|
2009-04-05 11:34:20 +00:00
|
|
|
|
|
|
|
print_cr
|
|
|
|
|
2009-04-06 11:10:49 +00:00
|
|
|
print #recv_from
|
2009-04-05 11:34:20 +00:00
|
|
|
|
|
|
|
ldax #nb65_param_buffer+NB65_REMOTE_IP
|
2009-04-06 11:10:49 +00:00
|
|
|
call #NB65_PRINT_DOTTED_QUAD
|
2009-04-05 02:47:08 +00:00
|
|
|
|
2009-04-06 11:10:49 +00:00
|
|
|
cout #' '
|
|
|
|
|
|
|
|
print #port
|
2009-04-05 11:34:20 +00:00
|
|
|
|
|
|
|
lda nb65_param_buffer+NB65_REMOTE_PORT+1
|
2009-04-06 11:10:49 +00:00
|
|
|
call #NB65_PRINT_HEX
|
2009-04-05 11:34:20 +00:00
|
|
|
lda nb65_param_buffer+NB65_REMOTE_PORT
|
2009-04-06 11:10:49 +00:00
|
|
|
call #NB65_PRINT_HEX
|
2009-04-05 11:34:20 +00:00
|
|
|
|
|
|
|
print_cr
|
|
|
|
|
2009-04-06 11:10:49 +00:00
|
|
|
print #length
|
2009-04-05 11:34:20 +00:00
|
|
|
|
|
|
|
lda nb65_param_buffer+NB65_PAYLOAD_LENGTH+1
|
2009-04-06 11:10:49 +00:00
|
|
|
call #NB65_PRINT_HEX
|
2009-04-05 11:34:20 +00:00
|
|
|
lda nb65_param_buffer+NB65_PAYLOAD_LENGTH
|
2009-04-06 11:10:49 +00:00
|
|
|
call #NB65_PRINT_HEX
|
2009-04-06 07:31:45 +00:00
|
|
|
print_cr
|
2009-04-06 11:10:49 +00:00
|
|
|
print #data
|
2009-04-05 11:34:20 +00:00
|
|
|
|
|
|
|
ldax nb65_param_buffer+NB65_PAYLOAD_POINTER
|
2009-04-06 07:31:45 +00:00
|
|
|
|
2009-04-05 11:34:20 +00:00
|
|
|
stax temp_ptr
|
|
|
|
ldx nb65_param_buffer+NB65_PAYLOAD_LENGTH ;assumes length is < 255
|
|
|
|
ldy #0
|
|
|
|
:
|
|
|
|
lda (temp_ptr),y
|
|
|
|
jsr print_a
|
|
|
|
iny
|
|
|
|
dex
|
2009-04-06 07:31:45 +00:00
|
|
|
bpl :-
|
2009-04-05 11:34:20 +00:00
|
|
|
|
|
|
|
print_cr
|
|
|
|
|
2009-04-06 07:31:45 +00:00
|
|
|
;make and send reply
|
|
|
|
ldax #reply_message
|
|
|
|
stax nb65_param_buffer+NB65_PAYLOAD_POINTER
|
|
|
|
|
|
|
|
ldax #reply_message_length
|
|
|
|
stax nb65_param_buffer+NB65_PAYLOAD_LENGTH
|
|
|
|
|
|
|
|
ldax #nb65_param_buffer
|
2009-04-06 11:10:49 +00:00
|
|
|
call #NB65_SEND_UDP_PACKET
|
2009-04-06 07:31:45 +00:00
|
|
|
bcc :+
|
|
|
|
jmp print_errorcode
|
|
|
|
:
|
2009-04-06 11:10:49 +00:00
|
|
|
print #reply_sent
|
2009-04-04 05:14:37 +00:00
|
|
|
rts
|
2009-04-06 11:10:49 +00:00
|
|
|
|
2009-04-04 05:14:37 +00:00
|
|
|
bad_boot:
|
2009-04-06 11:10:49 +00:00
|
|
|
print #press_a_key_to_continue
|
2009-04-04 05:14:37 +00:00
|
|
|
jsr get_key
|
2009-04-06 11:10:49 +00:00
|
|
|
jmp $fce2 ;do a cold start
|
2009-04-04 05:14:37 +00:00
|
|
|
|
|
|
|
|
|
|
|
print_errorcode:
|
2009-04-06 11:10:49 +00:00
|
|
|
print #error_code
|
|
|
|
call #NB65_GET_LAST_ERROR
|
|
|
|
call #NB65_PRINT_HEX
|
2009-04-05 10:10:53 +00:00
|
|
|
print_cr
|
|
|
|
rts
|
2009-04-04 05:14:37 +00:00
|
|
|
|
2009-04-05 10:10:53 +00:00
|
|
|
;use C64 Kernel ROM function to read a key
|
|
|
|
;inputs: none
|
|
|
|
;outputs: A contains ASCII value of key just pressed
|
|
|
|
get_key:
|
|
|
|
jsr $ffe4
|
|
|
|
cmp #0
|
|
|
|
beq get_key
|
|
|
|
rts
|
|
|
|
|
2009-04-04 05:14:37 +00:00
|
|
|
.rodata
|
2009-04-06 11:10:49 +00:00
|
|
|
test_hostname:
|
|
|
|
.byte "RETROHACKERS.COM",0 ;this should be an A record
|
2009-04-04 05:14:37 +00:00
|
|
|
|
2009-04-05 02:47:08 +00:00
|
|
|
recv_from:
|
|
|
|
.asciiz "RECEIVED FROM: "
|
|
|
|
|
|
|
|
listening:
|
2009-04-06 11:10:49 +00:00
|
|
|
.byte "LISTENING ON UDP PORT 64",13,0
|
2009-04-05 02:47:08 +00:00
|
|
|
|
2009-04-06 07:31:45 +00:00
|
|
|
|
|
|
|
reply_sent:
|
|
|
|
.byte "REPLY SENT.",13,0
|
|
|
|
|
|
|
|
|
2009-04-06 11:10:49 +00:00
|
|
|
initializing:
|
|
|
|
.byte " INITIALIZING ",0
|
|
|
|
|
|
|
|
dhcp:
|
|
|
|
.byte "DHCP",0
|
2009-04-05 11:34:20 +00:00
|
|
|
|
|
|
|
port:
|
2009-04-06 11:10:49 +00:00
|
|
|
.byte "PORT: $",0
|
2009-04-05 11:34:20 +00:00
|
|
|
|
|
|
|
length:
|
2009-04-06 11:10:49 +00:00
|
|
|
.byte "LENGTH: $",0
|
|
|
|
|
2009-04-05 11:34:20 +00:00
|
|
|
data:
|
|
|
|
.byte "DATA: ",0
|
|
|
|
|
2009-04-04 05:14:37 +00:00
|
|
|
error_code:
|
2009-04-06 11:10:49 +00:00
|
|
|
.asciiz "ERROR CODE: $"
|
2009-04-04 05:14:37 +00:00
|
|
|
press_a_key_to_continue:
|
|
|
|
.byte "PRESS A KEY TO CONTINUE",13,0
|
2009-04-05 10:10:53 +00:00
|
|
|
|
2009-04-06 11:10:49 +00:00
|
|
|
failed:
|
|
|
|
.byte "FAILED ", 0
|
2009-04-05 10:10:53 +00:00
|
|
|
|
2009-04-06 11:10:49 +00:00
|
|
|
ok:
|
|
|
|
.byte "OK ", 0
|
2009-04-05 10:10:53 +00:00
|
|
|
|
|
|
|
dns_lookup_failed_msg:
|
|
|
|
.byte "DNS LOOKUP FAILED", 0
|
2009-04-06 07:31:45 +00:00
|
|
|
|
|
|
|
reply_message:
|
|
|
|
.byte "PONG!"
|
|
|
|
reply_message_end:
|
|
|
|
reply_message_length=reply_message_end-reply_message
|