MASM

1.   .repeat
2.    xml_get
3.    .if xml_char==CR
4.      inc  [ebx.XML._linenum]
5.    .endif
6.  
7.    .if xml_char=="<"
8.      .if (xmlT & xmlT_char)
9.       .break
10.      .else
11.       .if !(xmlT & xmlT_open)
12.         or  xmlT,xmlT_open
13.       .else
14.         mov  xmlE,XML_Error_badopen
15.         .break
16.       .endif
17.      .endif
18.  
19.    .elseif xml_char=="/" && (xmlT & xmlT_open) && ! (xmlT & xmlT_char)
20.  
21.      .if xmlT & xmlT_per
22.       mov  xmlE,XML_Error_badper
23.       .break
24.      .else
25.       or  xmlT,xmlT_per
26.      .endif
27.  
28.    .elseif xml_char==">"
29.      .if [_prev]=="/"
30.       dec  xml_len
31.       xml_next
32.       mov  [edi.XMLTAG._tlen],xml_len
33.       .if !(xmlT & xmlT_attr)
34.         mov  [edi.XMLTAG._len],xml_len
35.       .endif
36.       or  xmlT,xmlT_close + xmlT_selfclose
37.       .break
38.      .else
39.       xml_next
40.       or  xmlT,xmlT_close
41.       .break
42.      .endif
43.  
44.    .elseif xml_char==0
45.      or  xmlT,xmlT_end
46.      .break
47.    .elseif xml_char>space
48.      .if (xmlT & xmlT_char)
49.       .if [_prev]==space && (xmlT & xmlT_open)
50.         or  xmlT,xmlT_attr
51.       .endif
52.      .else
53.       or  xmlT,xmlT_char
54.         mov  [edi.XMLTAG._pos],esi
55.      .endif
56.  
57.      inc  xml_len
58.      mov  [edi.XMLTAG._tlen],xml_len
59.      .if !(xmlT & xmlT_attr)
60.       mov  [edi.XMLTAG._len],xml_len
61.      .endif
62.  
63.    .elseif xml_char<SPACE && (xmlT & xmlT_char)
64.      inc  xml_len
65.    .endif
66.    mov  [_prev],xml_char
67.    xml_next
68.  
69.   .until infinite