diff --git a/client/basic/bails.d64 b/client/basic/bails.d64 index d15aada..e998efc 100644 Binary files a/client/basic/bails.d64 and b/client/basic/bails.d64 differ diff --git a/client/basic/bails.s b/client/basic/bails.s index 3d11b14..40658c0 100644 --- a/client/basic/bails.s +++ b/client/basic/bails.s @@ -76,6 +76,7 @@ crunched_line = $0200 ;Input buffer .import print_cr .import dhcp_server .import cfg_mac +.import cfg_mac_default .import cs_driver_name .import get_key_if_available .import timer_read @@ -108,12 +109,19 @@ pptr=temp .word basicstub ; load address basicstub: .word @nextline - .word 2003 ;line number + .word 10 ;line number .byte $9e ;SYS .byte <(((relocate / 1000) .mod 10) + $30) .byte <(((relocate / 100 ) .mod 10) + $30) .byte <(((relocate / 10 ) .mod 10) + $30) .byte <(((relocate ) .mod 10) + $30) + .byte ":" + .byte "D" + .byte $b2 ;= + .byte $c2 ;PEEK + .byte "(186):" + .byte $93 ;LOAD + .byte $22,"INDEX.BAS",$22,",D" .byte 0 @nextline: .word 0 @@ -208,9 +216,10 @@ install_new_vectors_loop: .byte "NO RR-NET FOUND - UNINSTALLING",0 @init_ok: - jsr $A644 ;do a "NEW" - jmp $A474 ;"READY" prompt - +; jsr $A644 ;do a "NEW" +; jmp $A474 ;"READY" prompt + rts ;so BASIC will LOAD & RUN INDEX.BAS + welcome_banner: .byte "### BASIC ON BAILS ###",13 .byte 0 @@ -811,12 +820,13 @@ netmask_keyword: mac_keyword: jsr extract_string - ldy #5 + ldy #2 : lda transfer_buffer,y - sta cfg_mac,y + sta cfg_mac_default+3,y dey bpl:- + jsr ip65_init rts diff --git a/client/basic/index.bas.txt b/client/basic/index.bas.txt index b242fad..0e96ba7 100644 --- a/client/basic/index.bas.txt +++ b/client/basic/index.bas.txt @@ -1,4 +1,5 @@ +5 mac chr$(192)+chr$(29)+chr$(85) 10 dhcp 20 hook"/hello",1000 25 fa$="/"+chr$(102)+chr$(97)+chr$(118)+chr$(105)+chr$(99)+chr$(111) @@ -12,9 +13,13 @@ 140 !"" 200 yield -1000!"
hello "+n$+", i'm a c64 running basic on bails." -1010 yield +1000!"hello "+n$+", i'm a c64 running basic on bails." +1010 for i=1 to 10 +1020 !"
" +1030 !str$(i) +1040 next i +1100 yield -2000 type"image/x-icon" +2000 type"IMAGE/X-ICON" 2010 xsend"favicon.ico" 2020 yield