mirror of
https://github.com/bobbimanners/emailler.git
synced 2024-09-06 07:54:41 +00:00
git-svn-id: http://svn.code.sf.net/p/netboot65/code@320 93682198-c243-4bdb-bd91-e943c89aac3b
This commit is contained in:
parent
6f13582f2e
commit
31512d4b05
@ -43,7 +43,7 @@ kipperbas.d64: kipperbas.prg chat
|
||||
ripxplore.rb $@ -I CbmDos -a kipperbas.prg
|
||||
# ripxplore.rb $@ -a kipperbas.prg
|
||||
cp chat autoexec.bas
|
||||
# ripxplore.rb $@ -a autoexec.bas -t C64Prg
|
||||
ripxplore.rb $@ -a autoexec.bas -t C64Prg
|
||||
clean:
|
||||
rm -f *.o *.bin *.map *.prg
|
||||
|
||||
|
Binary file not shown.
Binary file not shown.
@ -211,7 +211,7 @@ install_new_vectors_loop:
|
||||
rts
|
||||
|
||||
welcome_banner:
|
||||
.byte " *** KIPPER BASIC 1.21"
|
||||
.byte " *** KIPPER BASIC 1.22"
|
||||
.include "timestamp.i"
|
||||
.byte " ***"
|
||||
|
||||
@ -1323,18 +1323,24 @@ tcpconnect_callback:
|
||||
stax copy_dest
|
||||
ldax tcp_inbound_data_ptr
|
||||
stax copy_src
|
||||
|
||||
|
||||
lda tcp_inbound_data_length
|
||||
ldx tcp_inbound_data_length+1
|
||||
beq @short_packet
|
||||
cpx #$ff
|
||||
bne @not_end_packet
|
||||
|
||||
@end_packet:
|
||||
lda #0
|
||||
sta connection_state
|
||||
rts
|
||||
@not_end_packet:
|
||||
jsr copymem
|
||||
ldx tcp_inbound_data_length+1
|
||||
beq @short_packet
|
||||
lda #$ff
|
||||
@short_packet:
|
||||
|
||||
lda tcp_inbound_data_length
|
||||
set_input_string:
|
||||
pha
|
||||
lda #'I'
|
||||
@ -1355,10 +1361,31 @@ set_input_string:
|
||||
ldx #0
|
||||
jsr copymem
|
||||
:
|
||||
|
||||
lda #'I'+$80
|
||||
ldx #'P'+$80
|
||||
jsr find_var
|
||||
lda #<transfer_buffer
|
||||
sta (VARPNT),y
|
||||
iny
|
||||
lda #>transfer_buffer
|
||||
sta (VARPNT),y
|
||||
|
||||
lda #'I'+$80
|
||||
ldx #'L'+$80
|
||||
jsr find_var
|
||||
lda tcp_inbound_data_length+1
|
||||
sta (VARPNT),y
|
||||
iny
|
||||
lda tcp_inbound_data_length
|
||||
sta (VARPNT),y
|
||||
|
||||
rts
|
||||
|
||||
poll_keyword:
|
||||
lda #0
|
||||
sta tcp_inbound_data_length
|
||||
sta tcp_inbound_data_length+1
|
||||
jsr set_input_string
|
||||
jsr set_connection_state
|
||||
jsr ip65_process
|
||||
@ -1462,7 +1489,7 @@ tcpblat_keyword:
|
||||
evaluate:
|
||||
|
||||
lda #$00
|
||||
sta $0D ;set string flag to not string
|
||||
sta $0D ;set string flag to not stringe
|
||||
jsr CHRGET
|
||||
cmp #$E3 ; PING keyword
|
||||
bne @done
|
||||
@ -1636,7 +1663,7 @@ gateway_string: .res 15
|
||||
temp_bcd: .res 2
|
||||
ping_counter: .res 1
|
||||
string_buffer: .res 128
|
||||
transfer_buffer: .res 256
|
||||
transfer_buffer: .res 1500
|
||||
file_opened: .res 1
|
||||
connection_state: .res 1
|
||||
netcat_timeout: .res 1
|
||||
|
@ -93,5 +93,5 @@ bootc64.prg:
|
||||
# cp wizbobcart.prg ../../server/boot/bootc64.prg
|
||||
# cp telnetd.prg ../../server/boot/bootc64.prg
|
||||
# cp wizboot2.prg ../../server/boot/bootc64.prg
|
||||
cp wiztest.prg ../../server/boot/bootc64.prg
|
||||
# cp wizflash.prg ../../server/boot/bootc64.prg
|
||||
# cp wiztest.prg ../../server/boot/bootc64.prg
|
||||
cp wizflash.prg ../../server/boot/bootc64.prg
|
@ -49,20 +49,41 @@ init:
|
||||
sta $d011
|
||||
jsr turn_off_write_protect
|
||||
|
||||
|
||||
ldax #$8000
|
||||
stax eeprom_ptr
|
||||
|
||||
@reset_64_bytes:
|
||||
inc $d020
|
||||
|
||||
ldy #0
|
||||
@reset_1_byte:
|
||||
lda #$55
|
||||
sta (eeprom_ptr),y
|
||||
iny
|
||||
cpy #64
|
||||
bne @reset_1_byte
|
||||
jsr poll_till_stable
|
||||
|
||||
clc
|
||||
tya
|
||||
adc eeprom_ptr
|
||||
sta eeprom_ptr
|
||||
bcc :+
|
||||
inc eeprom_ptr+1
|
||||
:
|
||||
|
||||
lda eeprom_ptr+1
|
||||
cmp #$A0
|
||||
bne @reset_64_bytes
|
||||
|
||||
|
||||
ldax #cart_data
|
||||
stax cart_data_ptr
|
||||
ldax #$8000
|
||||
stax eeprom_ptr
|
||||
|
||||
@copy_64_bytes:
|
||||
; lda cart_data_ptr+1
|
||||
; jsr print_hex
|
||||
; lda cart_data_ptr
|
||||
; jsr print_hex
|
||||
; lda eeprom_ptr+1
|
||||
; jsr print_hex
|
||||
; lda eeprom_ptr
|
||||
; jsr print_hex
|
||||
inc $d020
|
||||
|
||||
ldy #0
|
||||
@ -94,6 +115,15 @@ init:
|
||||
bne @copy_64_bytes
|
||||
|
||||
;now validate the data
|
||||
lda #$0
|
||||
sta validation_counter
|
||||
lda old_d011
|
||||
sta $d011
|
||||
|
||||
ldax #validating
|
||||
jsr print
|
||||
|
||||
@validation_loop:
|
||||
ldax #cart_data
|
||||
stax cart_data_ptr
|
||||
ldax #$8000
|
||||
@ -105,13 +135,22 @@ init:
|
||||
bne @validation_error
|
||||
iny
|
||||
bne @compare_loop
|
||||
lda #'.'
|
||||
jsr print_a
|
||||
|
||||
inc cart_data_ptr+1
|
||||
inc eeprom_ptr+1
|
||||
lda eeprom_ptr+1
|
||||
cmp #$A0
|
||||
bne @compare_loop
|
||||
|
||||
inc validation_counter
|
||||
lda validation_counter
|
||||
cmp #$08
|
||||
bne @validation_loop
|
||||
ldax #ok
|
||||
jsr print
|
||||
|
||||
ldax #$8000
|
||||
stax eeprom_ptr
|
||||
|
||||
@ -274,6 +313,7 @@ banner:
|
||||
.byte 13
|
||||
.byte 0
|
||||
ok: .byte 13,"OK",13,0
|
||||
validating: .byte 13,"CHECKING EEPROM DATA ",13,0
|
||||
validation_error:
|
||||
.byte 13,"VALIDATION ERROR : $",0
|
||||
offset: .byte " OFFSET : $",0
|
||||
@ -287,3 +327,4 @@ cart_data: ;this should point to where the cart data gets appended.
|
||||
error_offset: .res 1
|
||||
byte_ptr: .res 1
|
||||
old_d011: .res 1
|
||||
validation_counter: .res 1
|
||||
|
Loading…
Reference in New Issue
Block a user