mirror of
https://github.com/bobbimanners/emailler.git
synced 2024-10-11 01:23:42 +00:00
tweak after migrated
git-svn-id: http://svn.code.sf.net/p/netboot65/code@331 93682198-c243-4bdb-bd91-e943c89aac3b
This commit is contained in:
parent
610aaef3ee
commit
4b3d48dac7
@ -1,6 +1,8 @@
|
|||||||
.include "../inc/common.i"
|
.include "../inc/common.i"
|
||||||
.include "../inc/commonprint.i"
|
.include "../inc/commonprint.i"
|
||||||
.include "../inc/a2const.i"
|
.include "../inc/a2const.i"
|
||||||
|
.include "../inc/net.i"
|
||||||
|
|
||||||
.import exit_to_basic
|
.import exit_to_basic
|
||||||
.import cfg_get_configuration_ptr
|
.import cfg_get_configuration_ptr
|
||||||
|
|
||||||
@ -28,21 +30,51 @@
|
|||||||
|
|
||||||
init:
|
init:
|
||||||
|
|
||||||
|
|
||||||
ldax #END_OF_BSS
|
;BASIC keywords installed, now bring up the ip65 stack
|
||||||
stax TXTTAB
|
|
||||||
print_hex_double #END_OF_BSS
|
jsr ip65_init
|
||||||
ldax #start_message
|
bcc @init_ok
|
||||||
jsr print
|
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
|
ldax #amper_handler
|
||||||
stax AMPERSAND_VECTOR+1
|
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
|
jmp exit_to_basic
|
||||||
|
|
||||||
|
|
||||||
start_message: .byte "AMPER ON ALES",13,0
|
|
||||||
|
|
||||||
amper_handler:
|
amper_handler:
|
||||||
|
|
||||||
|
|
||||||
|
exit_to_old_handler:
|
||||||
|
jmp $ffff
|
||||||
|
old_amper_handler=exit_to_old_handler+1
|
||||||
|
|
||||||
lda #'*'
|
lda #'*'
|
||||||
jmp print_a
|
jmp print_a
|
||||||
|
|
||||||
|
|
||||||
|
|
Binary file not shown.
@ -1 +1 @@
|
|||||||
.byte "2013-04-08"
|
.byte "2013-04-10"
|
||||||
|
2
dist/version_number.txt
vendored
2
dist/version_number.txt
vendored
@ -1 +1 @@
|
|||||||
1.0.41
|
1.0.45
|
Loading…
Reference in New Issue
Block a user