#include<REG51F380.h>

LED     EQU  P2.7

QTUM    DATA 7FH

byte0   data 80h
byte1   data 81h
byte2   data 82h
byte3   data 83h

CSEG AT 0H
    JMP INIT

CSEG AT 50H

INIT:
    INIT_PCA:   MOV   XBR1, #40H
                MOV   PCA0MD, #0
    init_mem:   mov   byte0, #-2
                mov   byte1, #-2
                mov   byte2, #-2
                mov   byte3, #-2
                mov   QTUM, #2
                mov   sp, #9fh

main:
    loop:   mov   a, #80h
            push  acc
            acall delay
            using 0
            pop   ar0
            clr   c
    inclp:  mov   a, @r0
            addc  a, #0
            mov   @r0, a
            inc   r0
            mov   a, r0
            xrl   a, #84h
            jnz   inclp
            jnc   loop
            cpl   led
            clr   c
            jmp   init_mem

DELAY:      MOV   A, QTUM       ; 1 ciclo
            CPL   A             ; 1 ciclo
            INC   A             ; 1 ciclo
    CYCLE:  ADDC  A, #1         ; 1 ciclo
            JNC   CYCLE         ; 2 ciclos
            CLR   C             ; 1 ciclo
            RET                 ; 6 ciclos
END