Apple-2-SW/emailler
1
0
Fork 0
mirror of https://github.com/bobbimanners/emailler.git synced 2025-01-03 19:30:21 +00:00
Code Issues Projects Releases Wiki Activity

git-svn-id: http://svn.code.sf.net/p/netboot65/code@280 93682198-c243-4bdb-bd91-e943c89aac3b

Browse Source
This commit is contained in:
jonnosan 2010-09-12 02:10:52 +00:00
parent 66516ca026
commit 40ea819bed
3 changed files with 24 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
client/basic/bails.d64
View File

Binary file not shown.

22
client/basic/bails.s
View File

@ -76,6 +76,7 @@ crunched_line = $0200 ;Input buffer
.import print_cr .import print_cr
.import dhcp_server .import dhcp_server
.import cfg_mac .import cfg_mac
.import cfg_mac_default
.import cs_driver_name .import cs_driver_name
.import get_key_if_available .import get_key_if_available
.import timer_read .import timer_read
@ -108,12 +109,19 @@ pptr=temp
.word basicstub ; load address .word basicstub ; load address
basicstub: basicstub:
.word @nextline .word @nextline
.word 2003 ;line number .word 10 ;line number
.byte $9e ;SYS .byte $9e ;SYS
.byte <(((relocate / 1000) .mod 10) + $30) .byte <(((relocate / 1000) .mod 10) + $30)
.byte <(((relocate / 100 ) .mod 10) + $30) .byte <(((relocate / 100 ) .mod 10) + $30)
.byte <(((relocate / 10 ) .mod 10) + $30) .byte <(((relocate / 10 ) .mod 10) + $30)
.byte <(((relocate ) .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 .byte 0
@nextline: @nextline:
.word 0 .word 0
@ -208,9 +216,10 @@ install_new_vectors_loop:
.byte "NO RR-NET FOUND - UNINSTALLING",0 .byte "NO RR-NET FOUND - UNINSTALLING",0
@init_ok: @init_ok:
jsr $A644 ;do a "NEW" ; jsr $A644 ;do a "NEW"
jmp $A474 ;"READY" prompt ; jmp $A474 ;"READY" prompt
rts ;so BASIC will LOAD & RUN INDEX.BAS
welcome_banner: welcome_banner:
.byte "### BASIC ON BAILS ###",13 .byte "### BASIC ON BAILS ###",13
.byte 0 .byte 0
@ -811,12 +820,13 @@ netmask_keyword:
mac_keyword: mac_keyword:
jsr extract_string jsr extract_string
ldy #5 ldy #2
: :
lda transfer_buffer,y lda transfer_buffer,y
sta cfg_mac,y sta cfg_mac_default+3,y
dey dey
bpl:- bpl:-
jsr ip65_init
rts rts

11
client/basic/index.bas.txt
View File

@ -1,4 +1,5 @@
5 mac chr$(192)+chr$(29)+chr$(85)
10 dhcp 10 dhcp
20 hook"/hello",1000 20 hook"/hello",1000
25 fa$="/"+chr$(102)+chr$(97)+chr$(118)+chr$(105)+chr$(99)+chr$(111) 25 fa$="/"+chr$(102)+chr$(97)+chr$(118)+chr$(105)+chr$(99)+chr$(111)
@ -12,9 +13,13 @@
140 !"</form>" 140 !"</form>"
200 yield 200 yield
1000!"<br>hello "+n$+", i'm a c64 running basic on bails." 1000!"hello "+n$+", i'm a c64 running basic on bails."
1010 yield 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" 2010 xsend"favicon.ico"
2020 yield 2020 yield