mirror of
https://github.com/bobbimanners/emailler.git
synced 2025-02-05 16:31:17 +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
3f88f92d11
commit
f272791fd2
@ -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
|
||||
|
||||
|
||||
|
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…
x
Reference in New Issue
Block a user