Askisi_fanaria-ledakia

PORTD.DATA      EQU             $0003
PORTD.DIRECTION EQU             $0007
COUNTER1        EQU             $0040
COUNTER2        EQU             $0041
COUNTER3        EQU             $0042
COUNTER4        EQU             $0043
COUNTER5        EQU             $0044
COUNTER6        EQU             $0045
ROM.START       EQU             $8000
RESET.VECTOR    EQU             $FFFE

                ORG             ROM.START

                BSET            0,$001F
                MOV             #$1F,$003C

                BSET            4,PORTD.DIRECTION
                BSET            5,PORTD.DIRECTION

LOOP            BSET            4,PORTD.DATA
                JSR             DELAY.10SEC
                BCLR            4,PORTD.DATA
                BSET            5,PORTD.DATA
                JSR             DELAY.7SEC
                BCLR            5,PORTD.DATA

                JMP             LOOP

DELAY.10SEC     MOV             #!153,COUNTER3
LOAD.COUNTER2   MOV             #!255,COUNTER2
LOAD.COUNTER1   MOV             #!255,COUNTER1
DELAY.LOOP      DBNZ            COUNTER1,DELAY.LOOP
                DBNZ            COUNTER2,LOAD.COUNTER1
                DBNZ            COUNTER3,LOAD.COUNTER2
                RTS

DELAY.7SEC      MOV             #!107,COUNTER6
LOAD.COUNTER5   MOV             #!255,COUNTER5
LOAD.COUNTER6   MOV             #!255,COUNTER4
DELAY.LOOP1     DBNZ            COUNTER4,DELAY.LOOP1
                DBNZ            COUNTER5,LOAD.COUNTER5
                DBNZ            COUNTER6,LOAD.COUNTER6
                RTS

                ORG             RESET.VECTOR
                FDB             ROM.START