ORG 0H
BEGIN:
        MOV     R0,#0
AGAIN:  ACALL    DISPLAY
        INC     R0
        CJNE    R0,#80,AGAIN
        SJMP    BEGIN
DISPLAY:
        MOV     R1,#12
NEXT:        
        MOV     A,R1
        ADD     A,R0
        MOV     B,#79
        DIV     AB
        MOV     P3,B
        MOV     A,R1
        ACALL    LOOK_P2
        MOV     P2,A
        MOV     A,R1
        ACALL    LOOK_P1
        MOV     P1,A
        DJNZ    R1,NEXT
        RET
LOOK_P1
        MOVC    A,@A+PC
        RET
        DB      00H,0E0H,18H,04H,04H,02H,0AH,42H,0A4H,14H,08H,00H
LOOK_P2
        MOVC    A,@A+PC
        RET
        DB      00H,00H,03H,04H,04H,08H,08H,08H,04H,05H,02H,00H
        end