.INCLUDE "M128DEF.INC"
.DEF TMP=R17
.DEF TMP1=R18
.ORG 0X00
    JMP START
.ORG 0X100

START:
    ;SP INIC
    LDI TMP,HIGH(RAMEND)
    OUT SPH,TMP
    LDI TMP,LOW(RAMEND)
    OUT SPL,TMP

    CALL ELSO
    CALL MASODIK
    CALL HARMADIK

VEGE:
JMP VEGE

ELSO:
    ;X POINTER INIC
    LDI XH,HIGH(0X100)
    LDI XL,LOW(0X100)

    LDI R17,0   ;R17 AZ EREDMÉNY
    LDI R18,50  ;R18 AZ 50 EL OSZTHATÓ 8BITES SZÁM AMIT MINDEN LÉPÉSBEN R19 EL NÖVELÜNK
    LDI R19,50  ;MIVEL R19=50 EZÉRT MINDEN NÖVELÉSSEL CSAK 50 EL OSZTHATÓ 8 BITES SZÁMOT KAPUNK R18BA
    LOOP:
        ADD R17,R18
        CLC ;TÖRLI A CARRYT
        ADD R18,R19 ;R18+R19 , ÉS HA TÖRTÉNIK ÁTVITEL AKKOR CARRY=1
        BRCS LOOPEND ; HA CARRY=1 AKKOR UGRIK A CIMKÉRE
        JMP LOOP
    LOOPEND:
    ST  X,R17
    ;AZ EREDMÉNY 238 (EE HEXA) LESZ, MIVEL AZ ÖSSZEG 750 ÉS KÉTSZER CSORDUL EZÉRT 750-2*256=238, AMI 0X100 ADATMEM.RA KERÜL
RET

MASODIK:
    LDI R17,0   ;AZ ÖSSZEADÁS HIGH RÉSZ
    LDI R18,0   ;AZ ÖSSZEADÁS LOW RÉSZE
    LDI R19,25  ;A SZÁM AMIT HOZZÁADUNK MINDEN LÉPÉSBE
    LDI R20,25  ;A SZÁM AMIVEL NÖVELJÜK R19 ET MINDEN LÉPÉSBE
    LOOP2:
        CLC
        ADD R18,R19
        BRCS ATVITEL
        VISSZA:
        CLC
        ADD R19,R20
        BRCS LOOP2END
        JMP LOOP2
    ATVITEL:
        INC R17
        JMP VISSZA
    LOOP2END:
        LDI XH,HIGH(0X200)
        LDI XL,LOW(0X200)

        ST X+,R18
        ST X,R17
RET

HARMADIK:
    ;X POINTER INIC
    LDI XH,HIGH(0X210)
    LDI XL,LOW(0X210)

    ;R17,R18 SZÜLETÉSI ÉV HIGH, ÉS LOW RÉSZE
    LDI R17,HIGH(1996)
    LDI R18,LOW(1996)
    ;1996.06.25 16 ÓRA
    ;TEHÁT 1996-625-16 A MEGOLDANDÓ FELADAT
    LDI R19,HIGH(625)
    LDI R20,LOW(625)
    LDI R16,16

    CLC
    SUB R18,R20
    SBC R17,R19
    ;EREDMÉNY LOW RÉSZE R18 BA, HIGH RÉSZE R17
    ;KIVONJUK A SZÜLETÉSI IDŐ ÓRÁJÁT ÉS HA TÖRTÉNT ÁTVITEL AKKOR A HIGH RÉSZT CSÖKKENTJÜK 1-EL
    CLC
    SUB R18,R16
    BRCS CSOKKENTES
    ST X+,R18
    ST X,R17
    RET
    CSOKKENTES:
        DEC R17
        ST X+,R18
        ST X,R17
    ;EBBEN A PÉLDÁBAN AZ EREDMÉNY 1355 (AMI HEXA 54B) ALSÓ RÉSZE 0X210 EN, FELSSŐ RÉSZE 0X211 EN TÁROLÓDIK
RET