mirror of
https://github.com/bobbimanners/emailler.git
synced 2024-10-11 01:23:42 +00:00
git-svn-id: http://svn.code.sf.net/p/netboot65/code@322 93682198-c243-4bdb-bd91-e943c89aac3b
This commit is contained in:
jonnosan
parent
a62a54ee80
commit
763e2af27d
@ -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
|
||||
@ -63,8 +63,7 @@ call_downloaded_prg:
|
||||
.word cold_init ;cold start vector
|
||||
.word warm_init ;warm start vector
|
||||
.byte $C3,$C2,$CD,$38,$30 ; "CBM80"
|
||||
.byte $0,$0,$0 ;reserved for future use
|
||||
.byte $0,$0,$0 ;reserved for future use
|
||||
.byte "KIPWBT"
|
||||
.byte $0,$0,$0 ;reserved for future use
|
||||
.byte $0,$0,$0 ;reserved for future use
|
||||
.byte $0,$0,$0 ;reserved for future use
|
||||
|
||||
@ -8,7 +8,7 @@ print_a = $ffd2
|
||||
cart_data_ptr: .res 2
|
||||
eeprom_ptr: .res 2
|
||||
pptr: .res 2
|
||||
|
||||
checksum_ptr: .res 2
|
||||
.segment "STARTUP" ;this is what gets put at the start of the file on the C64
|
||||
|
||||
.word basicstub ; load address
|
||||
@ -31,6 +31,54 @@ init:
|
||||
jsr print
|
||||
cli
|
||||
|
||||
;check if our data is a KIPPER image (with MAC at offset 0x18)
|
||||
lda cart_data+9
|
||||
cmp #'K'
|
||||
bne @not_kipper
|
||||
lda cart_data+10
|
||||
cmp #'I'
|
||||
bne @not_kipper
|
||||
lda cart_data+11
|
||||
cmp #'P'
|
||||
bne @not_kipper
|
||||
@loop:
|
||||
ldax #found_kip
|
||||
jsr print
|
||||
lda cart_data+$18
|
||||
sta cart_data+$1FF8
|
||||
lda cart_data+$19
|
||||
sta cart_data+$1FF9
|
||||
lda cart_data+$1A
|
||||
sta cart_data+$1FFA
|
||||
lda cart_data+$1B
|
||||
sta cart_data+$1FFB
|
||||
lda cart_data+$1C
|
||||
sta cart_data+$1FFC
|
||||
lda cart_data+$1D
|
||||
sta cart_data+$1FFD
|
||||
|
||||
lda #0 ;flag byte defaults to 0
|
||||
sta cart_data+$1FFE
|
||||
|
||||
ldax #cart_data+$1FF8
|
||||
stax checksum_ptr
|
||||
|
||||
clc
|
||||
ldy #0
|
||||
tya
|
||||
@checksum_loop:
|
||||
asl
|
||||
adc (checksum_ptr),y
|
||||
iny
|
||||
cpy #7 ;6 byte MAC address plus 1 byte flag
|
||||
bne @checksum_loop
|
||||
|
||||
sta cart_data+$1FFF
|
||||
jsr print_hex
|
||||
jsr print_cr
|
||||
@not_kipper:
|
||||
|
||||
|
||||
ldax #$8000
|
||||
stax eeprom_ptr
|
||||
|
||||
@ -58,7 +106,7 @@ init:
|
||||
|
||||
ldy #0
|
||||
@reset_1_byte:
|
||||
lda #$55
|
||||
lda #0
|
||||
sta (eeprom_ptr),y
|
||||
iny
|
||||
cpy #64
|
||||
@ -77,6 +125,44 @@ init:
|
||||
cmp #$A0
|
||||
bne @reset_64_bytes
|
||||
|
||||
;now validate the reset
|
||||
lda #$0
|
||||
sta validation_counter
|
||||
lda old_d011
|
||||
sta $d011
|
||||
|
||||
ldax #validating_reset
|
||||
jsr print
|
||||
|
||||
@reset_validation_loop:
|
||||
ldax #$8000
|
||||
stax eeprom_ptr
|
||||
ldy #0
|
||||
@reset_compare_loop:
|
||||
lda (eeprom_ptr),y
|
||||
bne @reset_validation_error
|
||||
iny
|
||||
bne @reset_compare_loop
|
||||
lda #'.'
|
||||
jsr print_a
|
||||
|
||||
inc eeprom_ptr+1
|
||||
lda eeprom_ptr+1
|
||||
cmp #$A0
|
||||
bne @reset_compare_loop
|
||||
beq @reset_ok
|
||||
@reset_validation_error:
|
||||
jmp @validation_error
|
||||
|
||||
@reset_ok:
|
||||
ldax #OK
|
||||
jsr print
|
||||
|
||||
|
||||
lda $d011
|
||||
and #$ef ;turn off bit 4
|
||||
sta $d011
|
||||
|
||||
|
||||
ldax #cart_data
|
||||
stax cart_data_ptr
|
||||
@ -252,13 +338,15 @@ poll_till_stable:
|
||||
ldax eeprom_ptr
|
||||
stax @offset_1+1
|
||||
stax @offset_2+1
|
||||
ldx #$03
|
||||
@poll_loop:
|
||||
@offset_1:
|
||||
lda $8000 ;address will get overwritten
|
||||
@offset_2:
|
||||
cmp $8000 ;address will get overwritten
|
||||
bne poll_till_stable
|
||||
|
||||
dex
|
||||
bne @poll_loop
|
||||
@done:
|
||||
rts
|
||||
|
||||
@ -317,9 +405,14 @@ validating: .byte 13,"CHECKING EEPROM DATA ",13,0
|
||||
validation_error:
|
||||
.byte 13,"VALIDATION ERROR : $",0
|
||||
offset: .byte " OFFSET : $",0
|
||||
|
||||
OK: .byte 13,"OK",13,0
|
||||
validating_reset: .byte "VALIDATING EEPROM RESET",13,0
|
||||
rd: .byte "RD :",0
|
||||
wr: .byte "WR :",0
|
||||
found_kip:
|
||||
.byte 13," KIP HEADER FOUND - RELOCATING MAC",13
|
||||
.byte " CHECKSUM : $"
|
||||
.byte 0
|
||||
.bss
|
||||
cart_data: ;this should point to where the cart data gets appended.
|
||||
.res $2000
|
||||
|
||||
@ -16,9 +16,10 @@ TEST_LOOPS=$FF
|
||||
|
||||
TX_BUFFER_START_PAGE=$40
|
||||
|
||||
TIMER_POSITION_ROW=5
|
||||
TIMER_POSITION_ROW=6
|
||||
TIMER_POSITION_COL=15
|
||||
TIMER_POSITION=$400+TIMER_POSITION_ROW*40+TIMER_POSITION_COL
|
||||
LAST_PROMPT_POSITION=$400+15*40+9
|
||||
|
||||
; load A/X macro
|
||||
.macro ldax arg
|
||||
@ -58,7 +59,6 @@ basicstub:
|
||||
.word 0
|
||||
|
||||
init:
|
||||
|
||||
|
||||
;set funky colours
|
||||
lda #$06 ;
|
||||
@ -66,36 +66,12 @@ init:
|
||||
lda #$00 ;dark blue
|
||||
sta $D021 ;background
|
||||
|
||||
|
||||
|
||||
ldax #banner
|
||||
jsr print
|
||||
|
||||
lda #0
|
||||
sta clockport_mode
|
||||
lda $de01
|
||||
and #$fe ;turn off clockport
|
||||
sta $de01
|
||||
|
||||
lda #$80 ;reset
|
||||
sta WIZNET_MODE_REG
|
||||
lda WIZNET_MODE_REG
|
||||
bne @try_clockport
|
||||
;writing a byte to the MODE register with bit 7 set should reset.
|
||||
;after a reset, mode register is zero
|
||||
;therefore, if there is a real W5100 at the specified address,
|
||||
;we should be able to write a $80 and read back a $00
|
||||
|
||||
lda #$13 ;set indirect mode, with autoinc, no auto PING
|
||||
sta WIZNET_MODE_REG
|
||||
lda WIZNET_MODE_REG
|
||||
cmp #$13
|
||||
beq @w5100_found
|
||||
|
||||
@try_clockport:
|
||||
inc clockport_mode
|
||||
;now try with clockport on
|
||||
lda $de01
|
||||
ora #1 ;turn on clockport
|
||||
sta $de01
|
||||
|
||||
@ -117,18 +93,18 @@ init:
|
||||
jsr print_hex
|
||||
jsr print_cr
|
||||
|
||||
jmp $e37b
|
||||
; jmp $e37b
|
||||
jmp @after_mac
|
||||
|
||||
@reset_ok:
|
||||
lda #$13 ;set indirect mode, with autoinc, no auto PING
|
||||
lda #$11 ;set indirect mode, with no autoinc, no auto PING
|
||||
sta WIZNET_MODE_REG
|
||||
lda WIZNET_MODE_REG
|
||||
cmp #$13
|
||||
cmp #$11
|
||||
bne @error
|
||||
;make sure if we write to mode register without bit 7 set,
|
||||
;the value persists.
|
||||
|
||||
|
||||
@w5100_found:
|
||||
|
||||
ldax #w5100_found
|
||||
@ -137,16 +113,53 @@ init:
|
||||
jsr print_hex
|
||||
lda #<WIZNET_MODE_REG
|
||||
jsr print_hex
|
||||
lda clockport_mode
|
||||
bne @clockport
|
||||
|
||||
lda #$77 ;selected by random roll of a fairly weighted dice
|
||||
sta $de06
|
||||
cmp $de02 ;do values written to $de06 show up at $de02?
|
||||
beq @clockport
|
||||
ldax #direct
|
||||
jmp :+
|
||||
@clockport:
|
||||
inc clockport_mode
|
||||
ldax #clockport
|
||||
:
|
||||
jsr print
|
||||
jsr print_cr
|
||||
|
||||
jsr copy_mac_to_w5100
|
||||
bcc @print_mac
|
||||
ldax #invalid_mac_checksum
|
||||
jsr print
|
||||
jmp @after_mac
|
||||
|
||||
@print_mac:
|
||||
|
||||
ldax #MAC
|
||||
jsr print
|
||||
lda #$00
|
||||
sta WIZNET_ADDR_HI
|
||||
lda #$09 ;00009 = local MAC addres
|
||||
sta WIZNET_ADDR_LO
|
||||
|
||||
ldy #0
|
||||
@one_mac_digit:
|
||||
tya ;just to set the Z flag
|
||||
pha
|
||||
beq @dont_print_colon
|
||||
lda #':'
|
||||
jsr print_a
|
||||
@dont_print_colon:
|
||||
pla
|
||||
tay
|
||||
lda WIZNET_DATA_REG
|
||||
jsr print_hex
|
||||
inc WIZNET_ADDR_LO
|
||||
iny
|
||||
cpy #06
|
||||
bne @one_mac_digit
|
||||
|
||||
@after_mac:
|
||||
|
||||
;set up to keep the timer updated
|
||||
lda #0
|
||||
@ -175,12 +188,20 @@ init:
|
||||
|
||||
ldax #prompt
|
||||
jsr print
|
||||
lda clockport_mode
|
||||
bne main
|
||||
ldax #test_4
|
||||
jsr print
|
||||
ldax #test_5
|
||||
jsr print
|
||||
lda #$35
|
||||
sta LAST_PROMPT_POSITION
|
||||
main:
|
||||
lda #0
|
||||
sta update_clock
|
||||
|
||||
jsr get_key
|
||||
|
||||
and #$7F ;ignore shift key
|
||||
|
||||
cmp #' '
|
||||
bne @not_space
|
||||
@ -223,10 +244,29 @@ main:
|
||||
jsr do_test_3
|
||||
jmp main
|
||||
@not_3:
|
||||
ldy clockport_mode
|
||||
bne @not_valid_key
|
||||
|
||||
cmp #'4'
|
||||
bne @not_4
|
||||
jsr reset_clock
|
||||
jsr do_test_4
|
||||
jmp main
|
||||
@not_4:
|
||||
|
||||
cmp #'5'
|
||||
bne @not_5
|
||||
jsr reset_clock
|
||||
jsr do_test_5
|
||||
jmp main
|
||||
@not_5:
|
||||
|
||||
@not_valid_key:
|
||||
lda $cb ;current key pressed
|
||||
cmp #$3F
|
||||
bne main
|
||||
beq :+
|
||||
jmp main
|
||||
:
|
||||
jmp return_to_basic
|
||||
|
||||
|
||||
@ -236,7 +276,7 @@ failed:
|
||||
sec
|
||||
rts
|
||||
|
||||
|
||||
|
||||
do_test_0:
|
||||
|
||||
lda #0
|
||||
@ -376,6 +416,93 @@ nmi_handler:
|
||||
inc got_nmi
|
||||
rti
|
||||
|
||||
do_test_4:
|
||||
|
||||
lda #$06 ;
|
||||
sta $D020 ;border
|
||||
|
||||
ldax #test_4
|
||||
jsr print
|
||||
|
||||
lda #1
|
||||
sta update_clock
|
||||
|
||||
ldy #$0
|
||||
@bank_loop:
|
||||
lda #$64
|
||||
sta $de01 ;go to 'shut up' mode
|
||||
sta $4000 ;this should be in RAM
|
||||
|
||||
sta $de02 ;leave 'shut up' mode
|
||||
sta $de0e ;set both banking bits to 0
|
||||
lda #$00
|
||||
sta $4000 ;this should be bank 0
|
||||
|
||||
sta $de0a ;set banking bit 0 to 1
|
||||
lda #$01
|
||||
sta $4000 ;this should be bank 1
|
||||
|
||||
sta $de0e ;set both banking bits to 0
|
||||
lda #$02
|
||||
sta $de0c ;set banking bit 1 to 0
|
||||
lda #$02
|
||||
sta $4000 ;this should be bank 2
|
||||
|
||||
sta $de0a ;set banking bit 0 to 1
|
||||
lda #$03
|
||||
sta $4000 ;this should be bank 3
|
||||
|
||||
lda #$64
|
||||
sta $de01 ;go to 'shut up' mode
|
||||
cmp $4000 ;this should be in RAM
|
||||
bne @banking_error
|
||||
|
||||
sta $de02 ;leave 'shut up' mode
|
||||
sta $de0e ;set both banking bits to 0
|
||||
lda #$00
|
||||
cmp $4000 ;this should be in bank 0
|
||||
bne @banking_error
|
||||
|
||||
sta $de0a ;set banking bit 0 to 1
|
||||
lda #$01
|
||||
cmp $4000 ;this should be in bank 1
|
||||
bne @banking_error
|
||||
|
||||
sta $de0e ;set both banking bits to 0
|
||||
lda #$02
|
||||
sta $de0c ;set banking bit 1 to 0
|
||||
lda #$02
|
||||
cmp $4000 ;this should be in bank 2
|
||||
bne @banking_error
|
||||
|
||||
sta $de0a ;set banking bit 0 to 1
|
||||
lda #$03
|
||||
cmp $4000 ;this should be in bank 3
|
||||
bne @banking_error
|
||||
tya
|
||||
pha
|
||||
ldax #reset_cursor
|
||||
jsr print
|
||||
pla
|
||||
pha
|
||||
jsr print_hex
|
||||
pla
|
||||
tay
|
||||
iny
|
||||
bne @bank_loop
|
||||
jmp ok
|
||||
|
||||
|
||||
@banking_error:
|
||||
pha
|
||||
ldax #reset_cursor
|
||||
jsr print
|
||||
pla
|
||||
jsr print_hex
|
||||
sec
|
||||
rts
|
||||
do_test_5:
|
||||
;FIXME
|
||||
return_to_basic:
|
||||
ldax #after_prompt
|
||||
jsr print
|
||||
@ -595,13 +722,98 @@ get_key_if_available=$f142 ;not officially documented - where F13E (GETIN) falls
|
||||
get_key:
|
||||
jsr get_key_if_available
|
||||
beq get_key
|
||||
rts
|
||||
rts
|
||||
|
||||
|
||||
copy_mac_to_w5100:
|
||||
TEMP_BUFFER=$100 ;we will execute directly in the bottom part of the stack
|
||||
RELOC_BUFFER=TEMP_BUFFER+08 ;reserve 8 bytes of data
|
||||
TEMP_PTR=$39 ;somewhere safe-ish in zero page
|
||||
ldy #reloc_length
|
||||
@reloc_one_byte:
|
||||
lda reloc_start,y
|
||||
sta RELOC_BUFFER,y
|
||||
dey
|
||||
bpl @reloc_one_byte
|
||||
jsr RELOC_BUFFER
|
||||
;MAC + flags + checksum should now be in TEMP_BUFFER
|
||||
|
||||
;validate the checksum
|
||||
clc
|
||||
ldy #0
|
||||
tya
|
||||
@checksum_loop:
|
||||
asl
|
||||
adc TEMP_BUFFER,y
|
||||
iny
|
||||
cpy #7 ;6 byte MAC address plus 1 byte flag
|
||||
bne @checksum_loop
|
||||
cmp TEMP_BUFFER+7
|
||||
beq @checksum_ok
|
||||
sec
|
||||
rts
|
||||
@checksum_ok:
|
||||
lda #$00
|
||||
sta $de05 ;w5100 address register high byte
|
||||
lda #$09 ;00009 = local MAC addres
|
||||
sta $de06 ;w5100 address register low byte
|
||||
ldy #0
|
||||
@write_one_mac_byte:
|
||||
lda TEMP_BUFFER,y
|
||||
sta $de07 ;w5100 data register
|
||||
inc $de06 ;w5100 address register low byte
|
||||
iny
|
||||
cpy #6
|
||||
bne @write_one_mac_byte
|
||||
clc
|
||||
rts
|
||||
|
||||
reloc_start:
|
||||
lda #$09 ;00009 = local MAC addres
|
||||
sta $de06 ;w5100 address register low byte
|
||||
cmp $de02 ;do values written to $de06 show up at $de02?
|
||||
beq @clockport
|
||||
;we are in expansion port; so turn on ROM
|
||||
sta $de02 ;leave 'shut up' mode
|
||||
sta $de08 ;enable ROM
|
||||
|
||||
lda #$9F
|
||||
sta TEMP_PTR+1
|
||||
lda #$F8
|
||||
bne :+
|
||||
|
||||
@clockport:
|
||||
lda #$DE
|
||||
sta TEMP_PTR+1
|
||||
lda #$08
|
||||
:
|
||||
sta TEMP_PTR
|
||||
|
||||
;as soon as we access a W5100 register ($de04..$de07)
|
||||
;we disable the ROM if we are in expansion port mode
|
||||
;so we have to copy the MAC from the ROM on to the stack
|
||||
;before we start to write it to the W5100
|
||||
ldy #7
|
||||
@read_one_mac_byte:
|
||||
lda (TEMP_PTR),y
|
||||
sta TEMP_BUFFER,y
|
||||
dey
|
||||
bpl @read_one_mac_byte
|
||||
;
|
||||
;go back to shutup mode by writing to $de01
|
||||
lda $de01
|
||||
ora #1 ;turn on clockport
|
||||
sta $de01
|
||||
rts
|
||||
reloc_length=*-reloc_start
|
||||
|
||||
|
||||
.data
|
||||
|
||||
banner:
|
||||
.byte $93 ;CLS
|
||||
.byte $9a;
|
||||
.byte $0d,"RR-NET MK3 DIAGNOSTICS 0.24"
|
||||
.byte $0d,"RR-NET MK3 DIAGNOSTICS 0.27"
|
||||
|
||||
.include "timestamp.i"
|
||||
.byte $0d
|
||||
@ -609,7 +821,7 @@ banner:
|
||||
|
||||
test_duration:
|
||||
.byte $13 ;home
|
||||
.byte $11,$11,$11,$11,$11
|
||||
.byte $11,$11,$11,$11,$11,$11
|
||||
.byte "TEST DURATION: 00:00:00"
|
||||
.byte $0d
|
||||
.byte 0
|
||||
@ -619,36 +831,46 @@ OK:
|
||||
|
||||
test_0:
|
||||
.byte $13 ;home
|
||||
.byte $11,$11,$11,$11,$11,$11,$11
|
||||
.byte $11,$11,$11,$11,$11,$11,$11,$11
|
||||
.byte "0) W5100 MEMORY ACCESS 0 : "
|
||||
.byte 0
|
||||
|
||||
test_1:
|
||||
.byte $13 ;home
|
||||
.byte $11,$11,$11,$11,$11,$11,$11,$11
|
||||
.byte $11,$11,$11,$11,$11,$11,$11,$11,$11
|
||||
.byte "1) W5100 MEMORY ACCESS 1 : "
|
||||
.byte 0
|
||||
test_2:
|
||||
.byte $13 ;home
|
||||
.byte $11,$11,$11,$11,$11,$11,$11,$11,$11
|
||||
.byte $11,$11,$11,$11,$11,$11,$11,$11,$11,$11
|
||||
.byte "2) W5100 MEMORY ACCESS 2 : "
|
||||
.byte 0
|
||||
test_3:
|
||||
.byte $13 ;home
|
||||
.byte $11,$11,$11,$11,$11,$11,$11,$11,$11,$11
|
||||
.byte $11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11
|
||||
.byte "3) NMI TEST : "
|
||||
.byte 0
|
||||
prompt:
|
||||
test_4:
|
||||
.byte $13 ;home
|
||||
.byte $11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11
|
||||
.byte "4) SRAM BANKING TEST : "
|
||||
.byte 0
|
||||
test_5:
|
||||
.byte $13 ;home
|
||||
.byte $11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11
|
||||
.byte "5) SRAM RD/WR TEST : "
|
||||
.byte 0
|
||||
|
||||
prompt:
|
||||
.byte $13 ;home
|
||||
.byte $11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11
|
||||
.byte "PRESS 0..3 TO RUN A SINGLE TEST",13
|
||||
.byte "SPACE TO CYCLE ALL TESTS",13
|
||||
.byte 0
|
||||
after_prompt:
|
||||
.byte $13 ;home
|
||||
.byte $11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11
|
||||
.byte $11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11,$11
|
||||
.byte 0
|
||||
loop: .byte "TEST $",0
|
||||
not_found: .byte "NO "
|
||||
w5100_found: .byte "W5100 FOUND AT $",0
|
||||
error_offset: .byte 13,"OFFSET $",0
|
||||
@ -656,7 +878,8 @@ was: .byte " WAS $",0
|
||||
reset_cursor: .byte 157,157,0
|
||||
clockport: .byte " [CLOCKPORT]",0
|
||||
direct: .byte " [DIRECT]",0
|
||||
|
||||
MAC: .byte "MAC: ",0
|
||||
invalid_mac_checksum: .byte"INVALID MAC CHECKSUM",13,0
|
||||
.bss
|
||||
last_byte: .res 1
|
||||
loop_count: .res 1
|
||||
|
||||
Loading…
Reference in New Issue
Block a user