mirror of
https://github.com/bobbimanners/emailler.git
synced 2024-09-12 02:54:54 +00:00
git-svn-id: http://svn.code.sf.net/p/netboot65/code@299 93682198-c243-4bdb-bd91-e943c89aac3b
This commit is contained in:
parent
def48812b0
commit
85212b95f4
Binary file not shown.
Binary file not shown.
@ -1 +1 @@
|
|||||||
.byte "1.0.35"
|
.byte "1.0.36"
|
||||||
|
@ -10,9 +10,50 @@
|
|||||||
.include "../inc/kipper_constants.i"
|
.include "../inc/kipper_constants.i"
|
||||||
.endif
|
.endif
|
||||||
|
|
||||||
|
DEFAULT_CIFS_CMD_BUFFER = $2800
|
||||||
.export cifs_l1_encode
|
.export cifs_l1_encode
|
||||||
.export cifs_l1_decode
|
.export cifs_l1_decode
|
||||||
.importzp copy_src
|
.export cifs_start
|
||||||
|
|
||||||
|
.import copymem
|
||||||
|
.importzp copy_src
|
||||||
|
.importzp copy_dest
|
||||||
|
|
||||||
|
.import cfg_ip
|
||||||
|
.import output_buffer
|
||||||
|
.importzp udp_data
|
||||||
|
.import udp_send
|
||||||
|
.import udp_inp
|
||||||
|
.importzp udp_data
|
||||||
|
.import udp_send_dest
|
||||||
|
.import udp_send_src_port
|
||||||
|
.import udp_send_dest_port
|
||||||
|
.import udp_send_len
|
||||||
|
.importzp ip_src
|
||||||
|
.import ip_data
|
||||||
|
.import ip_inp
|
||||||
|
.import tcp_listen
|
||||||
|
.import tcp_callback
|
||||||
|
.import tcp_inbound_data_length
|
||||||
|
.import tcp_inbound_data_ptr
|
||||||
|
.import ip65_process
|
||||||
|
.import udp_add_listener
|
||||||
|
.import udp_callback
|
||||||
|
|
||||||
|
nbns_txn_id = 0
|
||||||
|
nbns_opcode=2
|
||||||
|
nbns_flags_rcode=3
|
||||||
|
nbns_qdcount=4
|
||||||
|
nbns_ancount=6
|
||||||
|
nbns_nscount=8
|
||||||
|
nbns_arcount=10
|
||||||
|
nbns_question_name=12
|
||||||
|
nbns_service_type=43
|
||||||
|
nbns_ttl=56
|
||||||
|
nbns_additional_record_flags=62
|
||||||
|
nbns_my_ip=64
|
||||||
|
nbns_registration_message_length=68
|
||||||
|
|
||||||
|
|
||||||
;given an ASCII (or PETSCII) hostname, convert to
|
;given an ASCII (or PETSCII) hostname, convert to
|
||||||
;canonical 'level 1 encoded' form.
|
;canonical 'level 1 encoded' form.
|
||||||
@ -99,13 +140,428 @@ cifs_l1_decode:
|
|||||||
ldax #hostname_buffer
|
ldax #hostname_buffer
|
||||||
rts
|
rts
|
||||||
|
|
||||||
rts
|
|
||||||
|
|
||||||
|
;start a CIFS (SMB) server process, and advertise the specified hostname on the local LAN
|
||||||
|
;
|
||||||
|
;inputs:
|
||||||
|
;AX = ptr to hostname to be used
|
||||||
|
;outputs:
|
||||||
|
; none
|
||||||
|
cifs_start:
|
||||||
|
|
||||||
|
;save the hostname in 'raw' form
|
||||||
|
stax copy_src
|
||||||
|
ldax #raw_local_hostname
|
||||||
|
stax copy_dest
|
||||||
|
ldax #$0f
|
||||||
|
stx raw_local_hostname+15
|
||||||
|
jsr copymem
|
||||||
|
|
||||||
|
;set up callbacks
|
||||||
|
ldax #nbns_callback
|
||||||
|
stax udp_callback
|
||||||
|
ldax #137
|
||||||
|
jsr udp_add_listener
|
||||||
|
|
||||||
|
ldax #nbns_callback
|
||||||
|
stax udp_callback
|
||||||
|
ldax #137
|
||||||
|
jsr udp_add_listener
|
||||||
|
|
||||||
|
ldax #raw_local_hostname
|
||||||
|
jsr cifs_l1_encode
|
||||||
|
ldx #0
|
||||||
|
@copy_hostname_loop:
|
||||||
|
lda hostname_buffer,x
|
||||||
|
sta local_hostname,x
|
||||||
|
inx
|
||||||
|
cpx #$21
|
||||||
|
bmi @copy_hostname_loop
|
||||||
|
|
||||||
|
jsr cifs_advertise_hostname
|
||||||
|
jsr cifs_advertise_hostname
|
||||||
|
|
||||||
|
|
||||||
|
ldax #nb_session_callback
|
||||||
|
stax tcp_callback
|
||||||
|
@listen:
|
||||||
|
|
||||||
|
ldax #-4 ;start at -4, to skip the NBT header length
|
||||||
|
stax cifs_cmd_length
|
||||||
|
|
||||||
|
|
||||||
|
ldax cifs_cmd_buffer
|
||||||
|
stax cifs_cmd_buffer_ptr
|
||||||
|
ldax #139
|
||||||
|
stx connection_closed
|
||||||
|
|
||||||
|
jsr tcp_listen
|
||||||
|
|
||||||
|
@loop:
|
||||||
|
jsr ip65_process
|
||||||
|
lda connection_closed
|
||||||
|
beq @loop
|
||||||
|
|
||||||
|
jmp @listen
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
;broadcast a Name Registration Request message to the local LAN
|
||||||
|
cifs_advertise_hostname:
|
||||||
|
|
||||||
|
|
||||||
|
;start with a template registration request message
|
||||||
|
|
||||||
|
ldx #nbns_registration_message_length
|
||||||
|
@copy_message_loop:
|
||||||
|
lda workgroup_registration_request,x
|
||||||
|
sta output_buffer,x
|
||||||
|
dex
|
||||||
|
bpl @copy_message_loop
|
||||||
|
|
||||||
|
|
||||||
|
; advertise the 'server' service for own hostname
|
||||||
|
;overwrite the hostname in 'DNS compressed form'
|
||||||
|
;we assume this hostname ends with <20>
|
||||||
|
lda #$20 ;indicates what follows is a netbios name
|
||||||
|
sta output_buffer+nbns_question_name
|
||||||
|
|
||||||
|
ldx #0
|
||||||
|
@copy_hostname_loop:
|
||||||
|
lda local_hostname,x
|
||||||
|
sta output_buffer+nbns_question_name+1,x
|
||||||
|
inx
|
||||||
|
cpx #$21
|
||||||
|
bmi @copy_hostname_loop
|
||||||
|
|
||||||
|
jsr @send_nbns_message
|
||||||
|
|
||||||
|
|
||||||
|
;now send the host announcement
|
||||||
|
ldax #host_announce_message
|
||||||
|
stax copy_src
|
||||||
|
ldax #output_buffer
|
||||||
|
stax copy_dest
|
||||||
|
ldax #host_announce_message_length
|
||||||
|
jsr copymem
|
||||||
|
|
||||||
|
|
||||||
|
;copy our encode hostname to the host announcment
|
||||||
|
ldax #local_hostname
|
||||||
|
stax copy_src
|
||||||
|
ldax # output_buffer+host_announce_hostname
|
||||||
|
stax copy_dest
|
||||||
|
ldax #$20
|
||||||
|
jsr copymem
|
||||||
|
|
||||||
|
;copy our encode hostname to the host announcment
|
||||||
|
ldax #raw_local_hostname
|
||||||
|
stax copy_src
|
||||||
|
ldax # output_buffer+host_announce_servername
|
||||||
|
stax copy_dest
|
||||||
|
ldax #$10
|
||||||
|
jsr copymem
|
||||||
|
|
||||||
|
|
||||||
|
;copy the local IP address to the 'sender' field of the host announcment
|
||||||
|
ldx #03
|
||||||
|
@copy_sending_address_loop:
|
||||||
|
lda cfg_ip,x
|
||||||
|
sta output_buffer+host_announce_my_ip,x
|
||||||
|
dex
|
||||||
|
bpl @copy_sending_address_loop
|
||||||
|
|
||||||
|
|
||||||
|
ldax #138
|
||||||
|
stax udp_send_dest_port
|
||||||
|
stax udp_send_src_port
|
||||||
|
|
||||||
|
ldax #host_announce_message_length
|
||||||
|
stax udp_send_len
|
||||||
|
|
||||||
|
ldax #output_buffer
|
||||||
|
jsr udp_send
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
@send_nbns_message:
|
||||||
|
;copy the local IP address
|
||||||
|
ldx #03
|
||||||
|
@copy_my_address_loop:
|
||||||
|
lda cfg_ip,x
|
||||||
|
sta output_buffer+nbns_my_ip,x
|
||||||
|
dex
|
||||||
|
bpl @copy_my_address_loop
|
||||||
|
|
||||||
|
;send to the broadcast address
|
||||||
|
lda #$ff
|
||||||
|
ldx #03
|
||||||
|
@copy_broadcast_address_loop:
|
||||||
|
sta udp_send_dest,x
|
||||||
|
dex
|
||||||
|
bpl @copy_broadcast_address_loop
|
||||||
|
|
||||||
|
ldax #137
|
||||||
|
stax udp_send_dest_port
|
||||||
|
stax udp_send_src_port
|
||||||
|
|
||||||
|
ldax #nbns_registration_message_length
|
||||||
|
stax udp_send_len
|
||||||
|
|
||||||
|
ldax #output_buffer
|
||||||
|
jsr udp_send
|
||||||
|
|
||||||
|
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
nbns_callback:
|
||||||
|
|
||||||
|
lda udp_inp+udp_data+nbns_opcode
|
||||||
|
and #$f8 ;mask the lower three bits
|
||||||
|
beq @name_request
|
||||||
|
rts
|
||||||
|
@name_request:
|
||||||
|
|
||||||
|
;this is a NB NAME REQUEST.
|
||||||
|
;is it looking for our local hostname?
|
||||||
|
ldax #udp_inp+udp_data+nbns_question_name+1
|
||||||
|
stax copy_src
|
||||||
|
ldy #0
|
||||||
|
@cmp_loop:
|
||||||
|
lda (copy_src),y
|
||||||
|
cmp local_hostname,y
|
||||||
|
bne @not_us
|
||||||
|
iny
|
||||||
|
cpy #30
|
||||||
|
bne @cmp_loop
|
||||||
|
|
||||||
|
;this is a request for our name!
|
||||||
|
;we will overwrite the input message to make our response
|
||||||
|
|
||||||
|
;set the opcode & flags to make this a response
|
||||||
|
lda #$85
|
||||||
|
ldx #$00
|
||||||
|
sta udp_inp+udp_data+nbns_opcode
|
||||||
|
stx udp_inp+udp_data+nbns_opcode+1
|
||||||
|
|
||||||
|
;set the question count to 0
|
||||||
|
stx udp_inp+udp_data+nbns_qdcount+1
|
||||||
|
|
||||||
|
;set the answer count to 1
|
||||||
|
inx
|
||||||
|
stx udp_inp+udp_data+nbns_ancount+1
|
||||||
|
|
||||||
|
;set the sender & recipients IP address
|
||||||
|
ldx #03
|
||||||
|
@copy_address_loop:
|
||||||
|
lda ip_inp+ip_src,x
|
||||||
|
sta udp_send_dest,x
|
||||||
|
lda cfg_ip,x
|
||||||
|
sta udp_inp+udp_data+nbns_my_ip-6,x
|
||||||
|
dex
|
||||||
|
bpl @copy_address_loop
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
;set the answers
|
||||||
|
|
||||||
|
ldax #nbns_ttl_etc
|
||||||
|
stax copy_src
|
||||||
|
ldax #udp_inp+udp_data+nbns_ttl-6
|
||||||
|
stax copy_dest
|
||||||
|
ldax #08
|
||||||
|
jsr copymem
|
||||||
|
|
||||||
|
ldax #137
|
||||||
|
stax udp_send_dest_port
|
||||||
|
stax udp_send_src_port
|
||||||
|
|
||||||
|
ldax #nbns_registration_message_length-6
|
||||||
|
stax udp_send_len
|
||||||
|
|
||||||
|
ldax #udp_inp+udp_data
|
||||||
|
jmp udp_send
|
||||||
|
|
||||||
|
|
||||||
|
@not_us:
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
nb_session_callback:
|
||||||
|
|
||||||
|
lda tcp_inbound_data_length+1
|
||||||
|
cmp #$ff
|
||||||
|
bne @not_eof
|
||||||
|
inc connection_closed
|
||||||
|
@done:
|
||||||
|
rts
|
||||||
|
@not_eof:
|
||||||
|
|
||||||
|
;copy this chunk to our input buffer
|
||||||
|
ldax cifs_cmd_buffer_ptr
|
||||||
|
stax copy_dest
|
||||||
|
ldax tcp_inbound_data_ptr
|
||||||
|
stax copy_src
|
||||||
|
ldax tcp_inbound_data_length
|
||||||
|
jsr copymem
|
||||||
|
|
||||||
|
;increment the pointer into the input buffer
|
||||||
|
clc
|
||||||
|
lda cifs_cmd_buffer_ptr
|
||||||
|
adc tcp_inbound_data_length
|
||||||
|
sta cifs_cmd_buffer_ptr
|
||||||
|
lda cifs_cmd_buffer_ptr+1
|
||||||
|
adc tcp_inbound_data_length+1
|
||||||
|
sta cifs_cmd_buffer_ptr+1
|
||||||
|
|
||||||
|
;increment the cmd buffer length
|
||||||
|
clc
|
||||||
|
lda cifs_cmd_length
|
||||||
|
adc tcp_inbound_data_length
|
||||||
|
sta cifs_cmd_length
|
||||||
|
lda cifs_cmd_length+1
|
||||||
|
adc tcp_inbound_data_length+1
|
||||||
|
sta cifs_cmd_length+1
|
||||||
|
|
||||||
|
;have we got a complete message?
|
||||||
|
ldax cifs_cmd_buffer
|
||||||
|
stax copy_src
|
||||||
|
ldy #3
|
||||||
|
lda (copy_src),y
|
||||||
|
cmp cifs_cmd_length
|
||||||
|
bne @not_got_full_message
|
||||||
|
dey
|
||||||
|
lda (copy_src),y
|
||||||
|
cmp cifs_cmd_length+1
|
||||||
|
bne @not_got_full_message
|
||||||
|
|
||||||
|
;we have a complete message!
|
||||||
|
inc $d020
|
||||||
|
@not_got_full_message:
|
||||||
|
.import print_hex
|
||||||
|
lda cifs_cmd_length+1
|
||||||
|
jsr print_hex
|
||||||
|
lda cifs_cmd_length
|
||||||
|
jsr print_hex
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
.rodata
|
||||||
|
|
||||||
|
host_announce_message:
|
||||||
|
.byte $11 ;message type = direct group datagram
|
||||||
|
.byte $02 ;no more fragments, this is first fragment, node type = B
|
||||||
|
.byte $ab,$cd ;txn id
|
||||||
|
host_announce_my_ip=*- host_announce_message
|
||||||
|
.byte $0,0,0,0 ;source IP
|
||||||
|
.byte $0,138 ;source port
|
||||||
|
.byte $00,<(host_announce_message_length-4) ;datagram length
|
||||||
|
.byte $00,$00 ;packet offset
|
||||||
|
.byte $20 ;hostname length
|
||||||
|
host_announce_hostname=*- host_announce_message
|
||||||
|
.res 32 ;hostname
|
||||||
|
.byte $0 ;nul at end of hostname
|
||||||
|
;now WORKGROUP<1D> encoded
|
||||||
|
|
||||||
|
.byte $20, $46, $48, $45, $50, $46, $43, $45, $4c, $45, $48, $46, $43, $45, $50, $46
|
||||||
|
.byte $46, $46, $41, $43, $41, $43, $41, $43, $41, $43, $41, $43, $41, $43, $41, $42, $4E, $00
|
||||||
|
|
||||||
|
.byte $ff,"SMB" ;Server Message Block header
|
||||||
|
.byte $25 ;SMB command = Transaction
|
||||||
|
.byte $00 ;error class = success
|
||||||
|
.byte $00 ;reserved
|
||||||
|
.byte $00,$00 ;no error
|
||||||
|
.byte $00 ;flags
|
||||||
|
.byte $00,$00 ;flags2
|
||||||
|
.byte $00,$00 ;PID high
|
||||||
|
.byte $00,$00,$00,$00,$00,$00,$00,$00 ;Signature
|
||||||
|
.byte $00,$00 ;reserved
|
||||||
|
.byte $00,$00 ;tree ID
|
||||||
|
.byte $00,$00 ;process ID
|
||||||
|
.byte $00,$00 ;user ID
|
||||||
|
.byte $00,$00 ;multiplex ID
|
||||||
|
.byte $11 ;txn word count
|
||||||
|
.byte $00,$00 ;txn paramater count
|
||||||
|
.byte $21,$00 ;txn total data count
|
||||||
|
.byte $00,$00 ;txn max paramater count
|
||||||
|
.byte $00,$00 ;txn max data count
|
||||||
|
.byte $00 ;txn max setup count
|
||||||
|
.byte $00 ;reserved
|
||||||
|
.byte $00,$00 ;flags
|
||||||
|
.byte $ed,$03,$00,$00 ;timeout = 1 second
|
||||||
|
.byte $00,$00 ;reserved
|
||||||
|
.byte $00,$00 ;paramater count
|
||||||
|
.byte $00,$00 ;paramater offset
|
||||||
|
.byte $21,$00 ;data count
|
||||||
|
.byte $56,$00 ;data offset
|
||||||
|
.byte $03 ;setup count
|
||||||
|
.byte $00 ;reserved
|
||||||
|
|
||||||
|
.byte $01,$00 ;opcode = WRITE MAIL SLOT
|
||||||
|
.byte $00,$00 ;priority 0
|
||||||
|
.byte $02,$00 ;class = unreliable & broadcast
|
||||||
|
.byte $32,$00 ;byte count
|
||||||
|
.byte "\MAILSLOT\BROWSE", 0
|
||||||
|
.byte $01 ;command - HOST ANNOUNCEMENT
|
||||||
|
.byte $0 ;update count 0
|
||||||
|
.byte $80,$fc,03,00 ;update period
|
||||||
|
host_announce_servername =*-host_announce_message
|
||||||
|
.res 16
|
||||||
|
.byte $01 ;OS major version
|
||||||
|
.byte $64 ;OS minor version
|
||||||
|
.byte $03,$02,$0,$0 ;advertise as a workstation, server & print host
|
||||||
|
.byte $0F ;browser major version
|
||||||
|
.byte $01 ;browser minor version
|
||||||
|
.byte $55,$aa ;signature
|
||||||
|
.byte $0 ;host comment
|
||||||
|
host_announce_message_length=*-host_announce_message
|
||||||
|
|
||||||
|
|
||||||
|
workgroup_registration_request:
|
||||||
|
|
||||||
|
.byte $0c, $64 ;txn ID
|
||||||
|
.byte $29,$10 ;Registration Request opcode & flags
|
||||||
|
.byte $00,$01 ;questions = 1
|
||||||
|
.byte $00,$00 ;answers = 0
|
||||||
|
.byte $00,$00 ;authority records = 0
|
||||||
|
.byte $00,$01 ;additional records = 1
|
||||||
|
;now WORKGROUP<00> encoded
|
||||||
|
.byte $20, $46, $48, $45, $50, $46, $43, $45, $4c, $45, $48, $46, $43, $45, $50, $46
|
||||||
|
.byte $46, $46, $41, $43, $41, $43, $41, $43, $41, $43, $41, $43, $41, $43, $41, $41, $41, $00
|
||||||
|
|
||||||
|
.byte $00,$20 ;question_type = NB
|
||||||
|
.byte $00,$01 ;question_class = IN
|
||||||
|
.byte $c0,$0c ;additional record name : ptr to string in QUESTION NAME
|
||||||
|
.byte $00,$20 ;question_type = NB
|
||||||
|
.byte $00,$01 ;question_class = IN
|
||||||
|
nbns_ttl_etc:
|
||||||
|
.byte $00,$00,$01,$40 ; TTL = 64 seconds
|
||||||
|
.byte $00,$06 ;data length
|
||||||
|
.byte $00,$00 ;FLAGS = B-NODE, UNIQUE NAME
|
||||||
|
|
||||||
.bss
|
.bss
|
||||||
hostname_buffer:
|
hostname_buffer:
|
||||||
.res 33
|
.res 33
|
||||||
|
|
||||||
|
|
||||||
|
local_hostname:
|
||||||
|
.res 33
|
||||||
|
|
||||||
|
raw_local_hostname:
|
||||||
|
.res 16
|
||||||
|
|
||||||
hi_nibble: .res 1
|
hi_nibble: .res 1
|
||||||
|
|
||||||
|
connection_closed: .res 1
|
||||||
|
|
||||||
|
cifs_cmd_buffer_ptr: .res 2
|
||||||
|
cifs_cmd_length: .res 2
|
||||||
|
.data
|
||||||
|
|
||||||
|
cifs_cmd_buffer: .word DEFAULT_CIFS_CMD_BUFFER
|
||||||
|
|
||||||
;-- LICENSE FOR cifs.s --
|
;-- LICENSE FOR cifs.s --
|
||||||
; The contents of this file are subject to the Mozilla Public License
|
; 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
|
; Version 1.1 (the "License"); you may not use this file except in
|
||||||
@ -124,3 +580,4 @@ hi_nibble: .res 1
|
|||||||
; Portions created by the Initial Developer are Copyright (C) 2009
|
; Portions created by the Initial Developer are Copyright (C) 2009
|
||||||
; Jonno Downes. All Rights Reserved.
|
; Jonno Downes. All Rights Reserved.
|
||||||
; -- LICENSE END --
|
; -- LICENSE END --
|
||||||
|
|
||||||
|
@ -232,14 +232,23 @@ checkaddr:
|
|||||||
@ok: clc
|
@ok: clc
|
||||||
rts
|
rts
|
||||||
@broadcast:
|
@broadcast:
|
||||||
|
;jonno 2011-01-2
|
||||||
|
;previously this was just checking for 255.255.255.255
|
||||||
|
;however it is also possible to do a broadcast to a specific subnet, e.g. 10.5.1.255
|
||||||
|
;this is particularly common with NETBIOS over TCP
|
||||||
|
;we really should use the netmask, but as a kludge, just see if last octet is 255.
|
||||||
|
;this will work on a /24 network
|
||||||
|
;
|
||||||
inc ip_broadcast
|
inc ip_broadcast
|
||||||
lda ip_inp + ip_dest ; check for broadcast
|
; lda ip_inp + ip_dest ; check for broadcast
|
||||||
and ip_inp + ip_dest + 1
|
; and ip_inp + ip_dest + 1
|
||||||
and ip_inp + ip_dest + 2
|
; and ip_inp + ip_dest + 2
|
||||||
and ip_inp + ip_dest + 3
|
; and ip_inp + ip_dest + 3
|
||||||
|
lda ip_inp + ip_dest +3 ; check for broadcast
|
||||||
cmp #$ff
|
cmp #$ff
|
||||||
beq @ok
|
beq @ok
|
||||||
inc bad_addr
|
inc bad_addr
|
||||||
|
|
||||||
bne :+
|
bne :+
|
||||||
inc bad_addr + 1
|
inc bad_addr + 1
|
||||||
: sec
|
: sec
|
||||||
|
@ -34,7 +34,7 @@ all: \
|
|||||||
testdottedquad.prg\
|
testdottedquad.prg\
|
||||||
test_tcp.prg \
|
test_tcp.prg \
|
||||||
test_xmodem.prg \
|
test_xmodem.prg \
|
||||||
test_xmodem.d64 \
|
# test_xmodem.d64 \
|
||||||
test_httpd.prg \
|
test_httpd.prg \
|
||||||
test_parser.prg \
|
test_parser.prg \
|
||||||
test_ping.prg \
|
test_ping.prg \
|
||||||
@ -72,7 +72,6 @@ test_xmodem.o: test_xmodem.s ../ip65/xmodem.s
|
|||||||
$(AS) $(AFLAGS) $<
|
$(AS) $(AFLAGS) $<
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
test_xmodem.prg: test_xmodem.o $(IP65TCPLIB) $(C64RRNETLIB) $(INCFILES) ../cfg/c64prg.cfg
|
test_xmodem.prg: test_xmodem.o $(IP65TCPLIB) $(C64RRNETLIB) $(INCFILES) ../cfg/c64prg.cfg
|
||||||
$(LD) -m test_xmodem.map -vm -C ../cfg/c64prg.cfg -o test_xmodem.prg $(AFLAGS) $< $(IP65TCPLIB) $(C64RRNETLIB)
|
$(LD) -m test_xmodem.map -vm -C ../cfg/c64prg.cfg -o test_xmodem.prg $(AFLAGS) $< $(IP65TCPLIB) $(C64RRNETLIB)
|
||||||
|
|
||||||
@ -90,6 +89,10 @@ test_ping.prg: test_ping.o $(IP65TCPLIB) $(C64RRNETLIB) $(INCFILES) ../cfg/c64pr
|
|||||||
test_wiznet.prg: test_wiznet.o $(C64WIZNETLIB) $(IP65WIZNETLIB) $(INCFILES) ../cfg/c64prg.cfg
|
test_wiznet.prg: test_wiznet.o $(C64WIZNETLIB) $(IP65WIZNETLIB) $(INCFILES) ../cfg/c64prg.cfg
|
||||||
$(LD) -m test_wiznet.map -vm -C ../cfg/c64prg.cfg -o test_wiznet.prg $(AFLAGS) $< $(IP65WIZNETLIB) $(C64WIZNETLIB)
|
$(LD) -m test_wiznet.map -vm -C ../cfg/c64prg.cfg -o test_wiznet.prg $(AFLAGS) $< $(IP65WIZNETLIB) $(C64WIZNETLIB)
|
||||||
cp test_wiznet.prg ../../server/boot/autoexec.prg
|
cp test_wiznet.prg ../../server/boot/autoexec.prg
|
||||||
|
|
||||||
|
|
||||||
|
test_cifs.prg: test_cifs.o $(IP65TCPLIB) $(C64RRNETLIB) $(INCFILES) ../cfg/c64prg.cfg
|
||||||
|
$(LD) -m test_cifs.map -vm -C ../cfg/c64prg.cfg -o test_cifs.prg $(AFLAGS) $< $(IP65TCPLIB) $(C64RRNETLIB)
|
||||||
|
|
||||||
|
|
||||||
%.pg2: %.o $(IP65LIB) $(APPLE2PROGLIB) $(INCFILES) ../cfg/a2bin.cfg
|
%.pg2: %.o $(IP65LIB) $(APPLE2PROGLIB) $(INCFILES) ../cfg/a2bin.cfg
|
||||||
|
@ -7,6 +7,7 @@
|
|||||||
.import cfg_get_configuration_ptr
|
.import cfg_get_configuration_ptr
|
||||||
.import cifs_l1_encode
|
.import cifs_l1_encode
|
||||||
.import cifs_l1_decode
|
.import cifs_l1_decode
|
||||||
|
.import cifs_start
|
||||||
|
|
||||||
.import __CODE_LOAD__
|
.import __CODE_LOAD__
|
||||||
.import __CODE_SIZE__
|
.import __CODE_SIZE__
|
||||||
@ -40,10 +41,8 @@ basicstub:
|
|||||||
init:
|
init:
|
||||||
|
|
||||||
; jsr print_cr
|
; jsr print_cr
|
||||||
; jsr print_ip_config
|
init_ip_via_dhcp
|
||||||
; init_ip_via_dhcp
|
jsr print_ip_config
|
||||||
; jsr overwrite_with_hardcoded_dns_server
|
|
||||||
; jsr print_ip_config
|
|
||||||
|
|
||||||
ldax #hostname_1
|
ldax #hostname_1
|
||||||
jsr do_encoding_test
|
jsr do_encoding_test
|
||||||
@ -53,16 +52,9 @@ init:
|
|||||||
|
|
||||||
ldax #hostname_3
|
ldax #hostname_3
|
||||||
jsr do_encoding_test
|
jsr do_encoding_test
|
||||||
|
|
||||||
ldax #hostname_4
|
ldax #cifs_hostname
|
||||||
jsr do_encoding_test
|
jsr cifs_start
|
||||||
|
|
||||||
ldax #hostname_5
|
|
||||||
jsr do_encoding_test
|
|
||||||
|
|
||||||
ldax #hostname_6
|
|
||||||
jsr do_encoding_test
|
|
||||||
|
|
||||||
jmp exit_to_basic
|
jmp exit_to_basic
|
||||||
|
|
||||||
|
|
||||||
@ -101,15 +93,8 @@ hostname_2:
|
|||||||
hostname_3:
|
hostname_3:
|
||||||
.byte "HOSTNAMEWITHLOTSOFCHARSINNAME",0 ;this should be another CNAME
|
.byte "HOSTNAMEWITHLOTSOFCHARSINNAME",0 ;this should be another CNAME
|
||||||
|
|
||||||
hostname_4:
|
cifs_hostname:
|
||||||
.byte "FOO.BAR.BOGUS",0 ;this should fail
|
.byte "KIPPERCIFS",0
|
||||||
|
|
||||||
hostname_5: ;this should work (without hitting dns)
|
|
||||||
.byte "111.22.3.4",0
|
|
||||||
|
|
||||||
hostname_6: ;make sure doesn't get treated as a number
|
|
||||||
.byte "3COM.COM",0
|
|
||||||
|
|
||||||
|
|
||||||
sample_msg:
|
sample_msg:
|
||||||
.byte $ff, $ff, $ff, $ff, $ff, $ff, $f8, $1e, $df, $dc, $47, $a1, $08, $00, $45, $00
|
.byte $ff, $ff, $ff, $ff, $ff, $ff, $f8, $1e, $df, $dc, $47, $a1, $08, $00, $45, $00
|
||||||
|
Binary file not shown.
2
dist/version_number.txt
vendored
2
dist/version_number.txt
vendored
@ -1 +1 @@
|
|||||||
1.0.35
|
1.0.36
|
Loading…
Reference in New Issue
Block a user