8051 program to find the SQUARE of a 8 bit number

The program reads a number from memory location 30H.
It calculates the square of the number in the subroutine SQR.
The result (lower and higher bytes) is stored in the memory locations 31H and 32H.
After returning from the subroutine, the program enters an infinite loop.