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

FIX: more than 3 dots in a dotted quad would crash the hostname resolver

Browse Source 
git-svn-id: http://svn.code.sf.net/p/netboot65/code@243 93682198-c243-4bdb-bd91-e943c89aac3b
This commit is contained in:
jonnosan 2009-12-30 10:52:03 +00:00
parent 7fc7bcfcc0
commit d8908995c7
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
client/ip65/dottedquad.s
View File

@ -8,7 +8,13 @@
.bss .bss
dotted_quad_value: .res 4 ;set to 32 bit ip address on a succesful call to parse_dotted_quad dotted_quad_value: .res 4 ;set to 32 bit ip address on a succesful call to parse_dotted_quad
dotted_quad_ptr: .res 4 .data
;self modifying code
dotted_quad_ptr:
lda $FFFF
rts
.code .code
@ -23,12 +29,6 @@
; (*) NB to assist with url parsing, a ':' or '/' can also terminate the string ; (*) NB to assist with url parsing, a ':' or '/' can also terminate the string
parse_dotted_quad: parse_dotted_quad:
stax dotted_quad_ptr+1 stax dotted_quad_ptr+1
lda #$AD ; $AD='LDA immediate'
sta dotted_quad_ptr
lda #$60 ; $60='RTS
sta dotted_quad_ptr+3
ldx #0 ldx #0
txa txa
sta dotted_quad_value sta dotted_quad_value
@ -61,6 +61,8 @@ parse_dotted_quad:
@got_dot: @got_dot:
inx inx
cpx #4
beq @error
lda #0 lda #0
sta dotted_quad_value,x sta dotted_quad_value,x
jmp @each_byte jmp @each_byte