;******************************************************************************
;                                       X36SKD
;
;                              Úlohy ze cvičení číslo 5
;------------------------------------------------------------------------------
;
; Autor: Aleš Roubíek
; Datum: 2004-11-03
;
;******************************************************************************

.org 0x0100

jmp ukol5         ; skoci na zacatek vybrane casti

;******************************************************************************
;
;       Příklad 1: Nastavení registru na hodnotu 
;
;******************************************************************************

pr1:            ldi R16, 15             ; dekadicky (kladné)
                ldi R18, -10            ; dekadicky (záporné)
                ldi R24, 0xA4           ; hexadecimálně
                ldi R31, 0b10100101     ; binárně
                
                jmp konec

;******************************************************************************
;
;       Příklad 2: Součet dvou 8-bit šísel 
;
;******************************************************************************

pr2:            ldi R16, 0x5A
                ldi R17, 0x63
                add R16, R17

                jmp konec

;******************************************************************************
;
;       Příklad 3: Součet dvou 16-bit šísel 
;
;******************************************************************************

pr3:            ldi R16, 0xB1
                ldi R17, 0x3A
                ldi R18, 0x62
                ldi R19, 0x5F

                add R16, R18    ; nastavuje carry
                adc R17, R19    ; přičte carry k výsledku
                
                jmp konec

;******************************************************************************
;
;       Úloha 1: Vyměňte obsah registru R30 a R31
;
;******************************************************************************

ukol1:          ldi R30, 0x10
                ldi R31, 0x20

                mov R1, R30     ; nabufferujeme hodnotu R30 do R1
                mov R30, R31    ; presune obsah R31 do R30
                mov R31, R1     ; presune obsah R30 do R31
                
                jmp konec

;******************************************************************************
;
;       Úloha 2: Součet dvou 32-bitových čísel
;
;******************************************************************************

ukol2:          ldi R16, 0x8C
                ldi R17, 0xF3
                ldi R18, 0x75
                ldi R19, 0x11

                ldi R20, 0xAE
                ldi R21, 0x2F
                ldi R22, 0xFE
                ldi R23, 0x2D

                add R16, R20
                adc R17, R21
                adc R18, R22
                adc R19, R23
        
                jmp konec

;******************************************************************************
;
;       Úloha 3: Spočítat výraz R20=(4*R16+3*R17-R18)/8
;
;******************************************************************************

ukol3:          ldi R16, 5
                ldi R17, 10
                ldi R18, 58

                lsl R16         ; vynásobí R16 čtyřmi
                lsl R16

                mov R19, R17    ; vynásobí R17 třemi
                lsl R17
                add R17, R19

                mov R20, R16    ; presune R16 do R20
                add R20, R17    ; pricte R17
                clc             ; vymaze carry
                sub R20, R18    ; odecte R18 od R20

                asr R20         ; vydělí R20 osmi
                asr R20
                asr R20

                jmp konec

;******************************************************************************
;
;       Úloha 4: Aritmetický posuv 32-bitového čísla (1x vpravo)
;
;******************************************************************************

ukol4:          ldi R16, 0xFA
                ldi R17, 0x9B
                ldi R18, 0x1C
                ldi R19, 0xCD

                asr R19
                ror R18
                ror R17
                ror R16

                jmp konec

;******************************************************************************
;
;       Úloha 5: prohoďte dolní dva bity s horními dvěma bity slabiky
;
;******************************************************************************

ukol5:          ldi R16, 0x7B
                ldi R18, 0b11000011
                clr R17

                or R17, R16
                and R17, R18
                mov R19, R17

                lsl R17
                lsl R17
                lsl R17
                lsl R17
                lsl R17
                lsl R17

                or R16, R18
                and R16, R17
                
                lsr R19
                lsr R19
                lsr R19
                lsr R19
                lsr R19
                lsr R19
                
                or R16, R19 

                ;nefunguje

konec:          nop             ; konec programu