diff --git a/client/a2/amper.s b/client/a2/amper.s index dc321e8..73f2d3b 100644 --- a/client/a2/amper.s +++ b/client/a2/amper.s @@ -1,6 +1,8 @@ .include "../inc/common.i" .include "../inc/commonprint.i" .include "../inc/a2const.i" + .include "../inc/net.i" + .import exit_to_basic .import cfg_get_configuration_ptr @@ -28,21 +30,51 @@ init: - - ldax #END_OF_BSS - stax TXTTAB - print_hex_double #END_OF_BSS - ldax #start_message - jsr print + + ;BASIC keywords installed, now bring up the ip65 stack + + jsr ip65_init + bcc @init_ok + ldax #@no_nic + jsr print +@reboot: + jmp exit_to_basic +@no_nic: + .byte "NO NETWORK CARD FOUND - UNINSTALLING",0 +@install_msg: + .byte " FOUND",13,"APPLESOFT ON ALES IN $801-$" + + .byte 0 +@init_ok: + ;print the banner + ldax #eth_driver_name + jsr print_ascii_as_native + ldax #@install_msg + jsr print + print_hex_double #END_OF_BSS + jsr print_cr + + ;take over the ampersand vector + ldax AMPERSAND_VECTOR+1 + stax old_amper_handler ldax #amper_handler stax AMPERSAND_VECTOR+1 - jsr SCRTCH + + ldax #END_OF_BSS + stax TXTTAB + jsr SCRTCH ;reset BASIC now we have updated the start address + jmp exit_to_basic - -start_message: .byte "AMPER ON ALES",13,0 - amper_handler: + + +exit_to_old_handler: + jmp $ffff +old_amper_handler=exit_to_old_handler+1 + lda #'*' jmp print_a + + \ No newline at end of file diff --git a/client/basic/kipperbas.d64 b/client/basic/kipperbas.d64 index 68c2d07..544860c 100644 Binary files a/client/basic/kipperbas.d64 and b/client/basic/kipperbas.d64 differ diff --git a/client/kipperterm2/timestamp.i b/client/kipperterm2/timestamp.i index 4a8edb3..2916d7a 100644 --- a/client/kipperterm2/timestamp.i +++ b/client/kipperterm2/timestamp.i @@ -1 +1 @@ -.byte "2013-04-08" +.byte "2013-04-10" diff --git a/dist/version_number.txt b/dist/version_number.txt index 8ef0958..36f23e1 100644 --- a/dist/version_number.txt +++ b/dist/version_number.txt @@ -1 +1 @@ -1.0.41 \ No newline at end of file +1.0.45 \ No newline at end of file