Automated multistoried car parking system

OK: movx a,@dptr
cjne a,#91h,OK
mov a,#10h
movx @dptr,a
mov a,#00
mov dptr,#2021h
movx @dptr,a
call DELAY
mov r7,#06h                ; number of rotations to motor so that  lift goes to third flore.
mov r6,#02h
call MOTER_UP             ; Call motor to rotate clockwise.
inc r5                            ; Increment the number of car entered to
call DELAY                    ; third floor and display the number of cars.
mov a,r5
call LED_CODES
mov dptr,#2040h
movx @dptr,a
mov r7,#06h
mov r6,#02h
call MOTER_DOWN          ; Call motor to rotate anticlockwise.
call lcdwel
jmp OVER

MOTER_UP:push r5          ; Subroutine for motor to rotate clockwise.
mov r5,#70h
mov r0,r6
mov dptr,#2020h
mov a,#88h
h3: movx @dptr,a
rl a
mov r2,#30
h1: mov r1,#255
h2: djnz r1,h2
djnz r2,h1
djnz r5,h3
mov r5,#0ffh
djnz r6,h3
mov r6,r0
djnz r7,h3
pop r5
ret

MOTER_DOWN:push r5      ; Subroutine for motor to rotate anticlockwise.
mov r5,#70h
mov r0,r6
mov dptr,#2020h
mov a,#88h
h6: movx @dptr,a
rr a
mov r2,#30
h4: mov r1,#255
h5: djnz r1,h5
djnz r2,h4
djnz r5,h6
mov r5,#0ffh
djnz r6,h6
mov r6,r0
djnz r7,h6
pop r5
ret

DELAY:  mov r1,#10h            ; Subroutine for Delay
DELAY1: mov r2,#0ffh
DELAY2: mov r0,#0ffh
DELAY3: djnz r0,DELAY3
djnz r2,DELAY2
djnz r1,DELAY1
ret

OVER: mov dptr,#2022h
mov a,#30h
movx @dptr,a
movx a,@dptr
cjne a,#32h,I_OVER
mov a,#10h
movx @dptr,a
call lcdbusy
mov r7,#02h
mov r6,#02h
call MOTER_UP               ; Call motor to rotate clockwise.
dec r3                            ; Decrements the number of cars entered to first floor and display
mov a,r3                         ; the number of cars in first floor.
call LED_CODES
mov dptr,#2042h
movx @dptr,a
call DELAY
mov r7,#02h
mov r6,#02h
call MOTER_DOWN       ; Call motor to rotate anticlockwise.
mov dptr,#2022h
mov a,#30h
movx @dptr,a
call lcdwel
I_OVER: movx a,@dptr
cjne a,#34h,II_OVER
mov a,#10h
movx @dptr,a
call lcdbusy
mov r7,#04h
mov r6,#02h
call MOTER_UP               ; Call motor to rotate clockwise.
dec r4                            ; Decrements the number of cars entered to second floor and
mov a,r4                        ; display the number of cars in second floor.
call LED_CODES
mov dptr,#2041h
movx @dptr,a
call DELAY
mov r7,#04h
mov r6,#02h
call MOTER_DOWN       ; Call motor to rotate clockwise.
mov dptr,#2022h
mov a,#30h
movx @dptr,a
call lcdwel
II_OVER: movx a,@dptr
cjne a,#38h,END
mov a,#10h
movx @dptr,a
call lcdbusy
mov r7,#06h
mov r6,#02h
call MOTER_UP              ; Call motor to rotate clockwise.
dec r5                            ; Decrements the number of cars entered to third floor and display
mov a,r5                        ; the number of cars in third floor.
call LED_CODES
mov dptr,#2040h
movx @dptr,a
call DELAY
mov r7,#06h
mov r6,#02h
call MOTOR_DOWN       ; Call motor to rotate anticlockwise.
mov dptr,#2022h
mov a,#30h
movx @dptr,a
call lcdwel
END: jmp REPEAT

lcdwel: push r3             ; Subroutine for LCD to display ‘ WELCOME TO CAR PARKING SYSTEM ’
push r4
mov a,#3ch
call command
mov a,#0eh
call command
mov a,#01h
call command
mov a,#06h
call command
mov a,#80h
call command
mov a,#’W’
call data
mov a,#’E’
call data
mov a,#’L’
call data
mov a,#’C’
call data
mov a,#’O’
call data
mov a,#’M’
call data
mov a,#’E’
call data
mov a,#’ ‘
call data
mov a,#88h
call command
mov a,#’T’
call data
mov a,#’O’
call data
mov a,#’ ‘
call data
mov a,#’C’
call data
mov a,#’A’
call data1
mov a,#’R’
call data
mov a,#aah
call command
mov a,#’P’
call data
mov a,#’A’
call data
mov a,#’R’
call data
mov a,#’K’
call data
mov a,#’I’
call data
mov a,#’N’
call data
mov a,#’G’
call data
mov a,#’ ‘
call data
mov a,#’S’
call data
mov a,#’Y’
call data
mov a,#’S’
call data
mov a,#’T’
call data
mov a,#’E’
call data
mov a,#’M’
call data
pop r4
pop r3
ret
command: mov p1,a
clr p3.4
setb p3.3
clr p3.3
mov r3,#50
A: mov r4,#255
R: djnz r4,R
djnz r3,A
ret

data: mov p1,a
setb p3.4
setb p3.3
clr p3.3
mov r3,#50
AAA: mov r4,#255
AA: djnz r4,AA
djnz r3,AAA
ret

lcdbusy: push r4                  ; Subroutine for LCD to display ‘ LIFT IS BUSY PLEASE WAIT ’
push r3
mov a,#3ch
call command
mov a,#0eh
call command
mov a,#01h
call command
mov a,#06h
call command
mov a,#80h
call command
mov a,#’L’
call data
mov a,#’I’
call data
mov a,#’F’
call data
mov a,#’T’
call data
mov a,#’ ‘
call data
mov a,#’ ‘
call data
mov a,#’I’
call data
mov a,#’S’
call data
mov a,#88h
call command
mov a,#’ ‘
call data
mov a,#’ ‘
call data
mov a,#’B’
call data
mov a,#’U’
call data
mov a,#’S’
call data
mov a,#’Y’
call data
mov a,#aah
call command
mov a,#’P’
call data
mov a,#’L’
call data
mov a,#’E’
call data
mov a,#’A’
call data
mov a,#’S’
call data
mov a,#’E’
call data
mov a,#’ ‘
call data
mov a,#’W’
call data
mov a,#’A’
call data
mov a,#’I’
call data
mov a,#’T’
call data
mov a,#’ ‘
call data
pop r3
pop r4
ret