Apple-2-SW/emailler
1
0
Fork 0
mirror of https://github.com/bobbimanners/emailler.git synced 2024-08-02 20:29:12 +00:00
Code Issues Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
jonnosan 2010-08-31 11:49:59 +00:00
parent 2c1a0d43c7
commit 6472134942
1 changed files with 27 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
client/basic/bails.s
View File

@ -954,13 +954,21 @@ grok_keyword:
jsr find_hook
bcc @got_hook
ldx #$11 ;UNDEFED FUNCTION
jmp $A437 ;print error
ldax default_line_number
jmp goto
@got_hook:
lda hook_table+4,y
ldx hook_table+5,y
jmp goto
httpd_keyword:
jsr get_integer
stax httpd_port
jsr skip_comma_get_integer
stax default_line_number
rts
.rodata
vectors:
.word crunch
@ -1020,19 +1028,20 @@ connected_msg:
keywords:
.byte "IF",$E0 ;our dummy 'IF' entry takes $E0
.byte "IPCFG",$E1
.byte "DHCP",$E2
.byte "PING",$E3
.byte "MYIP",$E4
.byte "NETMASK",$E5
.byte "GATEWAY",$E6
.byte "DNS",$E7
.byte "HOOK",$E8
.byte "YIELD",$E9
.byte "GROK",$EA
.byte "!",$EB
.byte $00 ;end of list
HITOKEN=$EC
.byte "IPCFG",$E1
.byte "DHCP",$E2
.byte "PING",$E3
.byte "MYIP",$E4
.byte "NETMASK",$E5
.byte "GATEWAY",$E6
.byte "DNS",$E7
.byte "HOOK",$E8
.byte "YIELD",$E9
.byte "GROK",$EA
.byte "!",$EB
.byte "HTTPD",$EC
.byte $00 ;end of list
HITOKEN=$ED
;
; Table of token locations-1
@ -1050,6 +1059,7 @@ E8: .word hook_keyword-1
E9: .word yield_keyword-1
EA: .word grok_keyword-1
EB: .word bang_keyword-1
EC: .word httpd_keyword-1
.segment "SELF_MODIFIED_CODE"
@ -1094,3 +1104,5 @@ transfer_buffer: .res 256
handler_address: .res 2
hash: .res 1
string_ptr: .res 1
httpd_port: .res 2
default_line_number: .res 2