var k
var l
var x
var y

sti
bphws esp,"r"
run
sti
eoe lab3
eob lab3
bphws esp,"r"
esto



lab3:

mov k,esp
add k,1c
mov l,[k]
cmp l,400000
je lab4
esto
jmp lab3

lab4:

eob lab5
mov k,eip
add k,3d
bp k
esto

lab5:
esto
ret