Can anyone teach me how to translate the following 8052-Basic Language Commands into BASCOM-8051 Software Commands?

10 do
20 xby(0000h)=00h
30 xby(0001h)=01h
40 xby(0002h)=02h
50 ph0. xby(0000h)
60 ph0. xby(0001h)
70 ph0. xby(0002h)
80 until 0=1

(Infinite Loop)