
ORG 00H
ACALL LOOP
MOV A, #' '
ACALL DATAWRT
ACALL DELAY
MOV A, #' '
ACALL DATAWRT
ACALL DELAY
MOV A, #'G'
ACALL DATAWRT
ACALL DELAY
MOV A, #'R'
ACALL DATAWRT
ACALL DELAY
MOV A, #'O'
ACALL DATAWRT
ACALL DELAY
MOV A, #'U'
ACALL DATAWRT
ACALL DELAY
MOV A, #'P'
ACALL DATAWRT
ACALL DELAY
MOV A, #' '
ACALL DATAWRT
ACALL DELAY
MOV A, #'N'
ACALL DATAWRT
ACALL DELAY
MOV A, #'0'
ACALL DATAWRT
ACALL DELAY
MOV A, #':'
ACALL DATAWRT
ACALL DELAY
MOV A, #'3'
ACALL DATAWRT
ACALL DELAY

ACALL LOOP
MOV A, #' '
ACALL DATAWRT
ACALL DELAY
MOV A, #' '
ACALL DATAWRT
ACALL DELAY
MOV A, #' '
ACALL DATAWRT
ACALL DELAY
MOV A, #' '
ACALL DATAWRT
ACALL DELAY
MOV A, #'1'
ACALL DATAWRT
ACALL DELAY
MOV A, #'8'
ACALL DATAWRT
ACALL DELAY
MOV A, #'*'
ACALL DATAWRT
ACALL DELAY
MOV A, #'E'
ACALL DATAWRT
ACALL DELAY
MOV A, #'S'
ACALL DATAWRT
ACALL DELAY
MOV A, #'*'
ACALL DATAWRT
ACALL DELAY
MOV A, #'2'
ACALL DATAWRT
ACALL DELAY
MOV A, #'2'
ACALL DATAWRT
ACALL DELAY

ACALL LOOP
MOV A, #' '
ACALL DATAWRT
ACALL DELAY
MOV A, #' '
ACALL DATAWRT
ACALL DELAY
MOV A, #' '
ACALL DATAWRT
ACALL DELAY
MOV A, #' '
ACALL DATAWRT
ACALL DELAY
MOV A, #'1'
ACALL DATAWRT
ACALL DELAY
MOV A, #'8'
ACALL DATAWRT
ACALL DELAY
MOV A, #'*'
ACALL DATAWRT
ACALL DELAY
MOV A, #'E'
ACALL DATAWRT
ACALL DELAY
MOV A, #'S'
ACALL DATAWRT
ACALL DELAY
MOV A, #'*'
ACALL DATAWRT
ACALL DELAY
MOV A, #'3'
ACALL DATAWRT
ACALL DELAY
MOV A, #'9'
ACALL DATAWRT
ACALL DELAY

ACALL LOOP
MOV A, #' '
ACALL DATAWRT
ACALL DELAY
MOV A, #' '
ACALL DATAWRT
ACALL DELAY
MOV A, #' '
ACALL DATAWRT
ACALL DELAY
MOV A, #' '
ACALL DATAWRT
ACALL DELAY
MOV A, #'1'
ACALL DATAWRT
ACALL DELAY
MOV A, #'8'
ACALL DATAWRT
ACALL DELAY
MOV A, #'*'
ACALL DATAWRT
ACALL DELAY
MOV A, #'E'
ACALL DATAWRT
ACALL DELAY
MOV A, #'S'
ACALL DATAWRT
ACALL DELAY
MOV A, #'*'
ACALL DATAWRT
ACALL DELAY
MOV A, #'2'
ACALL DATAWRT
ACALL DELAY
MOV A, #'1'
ACALL DATAWRT
ACALL DELAY

ACALL LOOP
MOV A, #' '
ACALL DATAWRT
ACALL DELAY
MOV A, #' '
ACALL DATAWRT
ACALL DELAY
MOV A, #' '
ACALL DATAWRT
ACALL DELAY
MOV A, #' '
ACALL DATAWRT
ACALL DELAY
MOV A, #'1'
ACALL DATAWRT
ACALL DELAY
MOV A, #'8'
ACALL DATAWRT
ACALL DELAY
MOV A, #'*'
ACALL DATAWRT
ACALL DELAY
MOV A, #'E'
ACALL DATAWRT
ACALL DELAY
MOV A, #'S'
ACALL DATAWRT
ACALL DELAY
MOV A, #'*'
ACALL DATAWRT
ACALL DELAY
MOV A, #'2'
ACALL DATAWRT
ACALL DELAY
MOV A, #'0'
ACALL DATAWRT
ACALL DELAY

ACALL LOOP
MOV A, #' '
ACALL DATAWRT
ACALL DELAY
MOV A, #' '
ACALL DATAWRT
ACALL DELAY
MOV A, #' '
ACALL DATAWRT
ACALL DELAY
MOV A, #' '
ACALL DATAWRT
ACALL DELAY
MOV A, #'1'
ACALL DATAWRT
ACALL DELAY
MOV A, #'8'
ACALL DATAWRT
ACALL DELAY
MOV A, #'*'
ACALL DATAWRT
ACALL DELAY
MOV A, #'E'
ACALL DATAWRT
ACALL DELAY
MOV A, #'S'
ACALL DATAWRT
ACALL DELAY
MOV A, #'*'
ACALL DATAWRT
ACALL DELAY
MOV A, #'1'
ACALL DATAWRT
ACALL DELAY
MOV A, #'6'
ACALL DATAWRT
ACALL DELAY

ACALL LOOP
MOV A, #' '
ACALL DATAWRT
ACALL DELAY
MOV A, #' '
ACALL DATAWRT
ACALL DELAY
MOV A, #' '
ACALL DATAWRT
ACALL DELAY
MOV A, #' '
ACALL DATAWRT
ACALL DELAY
MOV A, #'C'
ACALL DATAWRT
ACALL DELAY
MOV A, #'O'
ACALL DATAWRT
ACALL DELAY
MOV A, #'U'
ACALL DATAWRT
ACALL DELAY
MOV A, #'N'
ACALL DATAWRT
ACALL DELAY
MOV A, #'T'
ACALL DATAWRT
ACALL DELAY
MOV A, #'E'
ACALL DATAWRT
ACALL DELAY
MOV A, #'R'
ACALL DATAWRT
ACALL DELAY

ACALL LOOP
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #'O'
ACALL DATAWRT
 
ACALL LOOP
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #'1'
ACALL DATAWRT

ACALL LOOP
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #'2'
ACALL DATAWRT

ACALL LOOP
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #'3'
ACALL DATAWRT

ACALL LOOP
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #'4'
ACALL DATAWRT

ACALL LOOP
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #'5'
ACALL DATAWRT


ACALL LOOP
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #'6'
ACALL DATAWRT


ACALL LOOP
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #'7'
ACALL DATAWRT


ACALL LOOP
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #'8'
ACALL DATAWRT


ACALL LOOP
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #' '
ACALL DATAWRT
MOV A, #'9'
ACALL DATAWRT

LOOP:
MOV A, #38H
ACALL COMNWRT
ACALL DELAY1
MOV A, #01H
ACALL COMNWRT
ACALL DELAY1
MOV A, #0EH
ACALL COMNWRT
ACALL DELAY1
MOV A, #80H
ACALL COMNWRT
ACALL DELAY1

COMNWRT:
MOV P2, A
CLR P1.7
CLR P1.6
SETB P1.5
ACALL DELAY
CLR P1.5
RET

DATAWRT:
MOV P2, A
SETB P1.7
CLR P1.6
SETB P1.5
ACALL DELAY1
CLR P1.5
RET

DELAY: MOV R2,#5
HERE1:MOV R3,#100
HERE2:MOV R4,#250
HERE6: DJNZ R4, HERE6
      DJNZ R3,HERE2
      DJNZ R2,HERE1
RET

DELAY1: MOV R1,#0
HERE3:  DJNZ R1,HERE3
RET
END
