mirror of
https://github.com/bobbimanners/emailler.git
synced 2024-08-20 17:29:45 +00:00
git-svn-id: http://svn.code.sf.net/p/netboot65/code@280 93682198-c243-4bdb-bd91-e943c89aac3b
This commit is contained in:
parent
690de6692b
commit
024f2dd8fc
Binary file not shown.
@ -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
|
||||
|
||||
|
||||
|
@ -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 !"</form>"
|
||||
200 yield
|
||||
|
||||
1000!"<br>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 !"<br>"
|
||||
1030 !str$(i)
|
||||
1040 next i
|
||||
1100 yield
|
||||
|
||||
2000 type"image/x-icon"
|
||||
2000 type"IMAGE/X-ICON"
|
||||
2010 xsend"favicon.ico"
|
||||
2020 yield
|
||||
|
Loading…
Reference in New Issue
Block a user