;**************************************************************
;* Ukol c.1 pro laboratore IMP
;**************************************************************
 
 
; export symbols
            XDEF Entry        ; exportuj 'Entry' symbol
            ABSENTRY Entry    ; navesti, kde zacina aplikace
 
; prihrej definice zvoleneho mikrokontroleru 
            Include 'derivative.inc'
 
VectorStart EQU  $FFDA  ; zacatek tabulky prerusovacich vektoru
 
; Misto pro promenne a data
            ORG RAMStart
 
text	  ds.b	64
 
; Misto pro program
            ORG ROMStart
 
 
;**************************************************************
;* Entry - Tady se zacne provadet kod po resetu procesoru     *
;*                                                            *
;**************************************************************
Entry:
       rsp
       clra                ; Inicializace A,X
       clrx
       clrh
 
       mov #$01,CONFIG1    ; Vypnout COP
       jsr Init_SCI        ; Inicializace SCI
       cli                 ; Povoleni preruseni
 
;hlavni smycka programu		
 
main_loop:
;Sem doplnte kod, ktery bude cist znaky z SCI. Kazdy precteny
;znak zpracujte a provedte prislusne akce dle pokynu v zadani 
  bsr Receive_char
    sta text,X
    incx
    cbeqx #64, kon ;precetl jsem 64 znaku
    cbeqa #27, kon ;ESC
    cmp #97 ;a
      bge toupper
    cmp #90 ;Z
      ble tolower
 
  ;bsr Send_char
  ;bra kon
	bra		main_loop
 
toupper:
  sub #32
  bsr Send_char
  bra main_loop
 
tolower:
  add #32
  bsr Send_char
  bra main_loop
 
kon:
 
       bset    1,DDRA         ; PTA1 vystup (pipatko)
beep_loop:
       ldx     #$FF
dela1:
       nop
       nop
       nop
       nop
       dbnzx   dela1
       lda     #2
       eor     PTA            ; beep je potreba generovat frekvenci cca 1kHz
       sta     PTA
       brclr   5,SCS1,beep_loop ; prisel znak z SCI?
       lda     SCDR           ; precteni 
       bclr    1,DDRA         ; PTA1 vstup (a je klid)
 
idle:	bra	idle
 
;*********************************
;* Init_SCI - inicializuj SCI    *
;*********************************
Init_SCI:
       mov   #$A2,SCBR       ; Baud Rate = 9600 @ 9,8MHZ-BUS CLK
       mov   #$40,SCC1       ; povol SCI periferii
       mov   #$0C,SCC2       ; povol SCI prijimac a vysilac
       clr   SCC3            
       rts
 
;**************************************************************
;* Receive_char - prijmi znak z SCI vstupu a uloz jej do A    *
;**************************************************************
Receive_char:
;Zde doplnte kod pro prijem znaku z SCI.
;Rutinka bude cekat, dokud se v datovem registru SCI neobjevi
;novy znak. Pak vrati tento znak v registru A.
        brclr 5,SCS1,*
        lda SCDR
        rts
 
;**************************************************************
; Send_char - znak z A posli na SCI vystup		                *
;**************************************************************
Send_char:
        brclr   7,SCS1,*        ; cekej dokud je SCI vysilac busy
        sta     SCDR            ; neni -> muzeme poslat nas znak
        rts
 
;**************************************************************
;* spurious - obsluha pro nevyuzivana preruseni		      *
;**************************************************************
spurious:		
            NOP		
            RTI
 
;**************************************************************
;*                 tabulka prerusovacich vektoru              *
;**************************************************************
        ORG  VectorStart
        ; routine	  ; popis vektoru           	;adresa vektoru
        fdb  spurious     ; Real-time Clock Vector   	;$FFDA
        fdb  spurious     ; ADC Conversion Complete  	;$FFDC
        fdb  spurious     ; Keyboard Vector		;$FFDE
        fdb  spurious     ; SCI Transmit Vector		;$FFE0
        fdb  spurious     ; SCI Receive Vector		;$FFE2
        fdb  spurious     ; SCI Error Vector		;$FFE4
        fdb  spurious     ; SPI Receive Vector		;$FFE6
        fdb  spurious     ; SPI Transmit Vector		;$FFE8
        fdb  spurious	    ; TIM2 Overflow Vector	;$FFEA
        fdb  spurious     ; TIM2 Channel 1 Vector	;$FFEC
        fdb  spurious     ; TIM2 Channel 0 Vector	;$FFEE
        fdb  spurious     ; TIM1 Overflow Vector	;$FFF0
        fdb  spurious     ; TIM1 Channel 1 Vector	;$FFF2
        fdb  spurious     ; TIM1 Channel 0 Vector	;$FFF4
        fdb  spurious     ; PLL Vector			;$FFF6
        fdb  spurious     ; LVI Vector			;$FFF8
        fdb  spurious     ; ~IRQ1 Vector		;$FFFA
        fdb  spurious     ; SWI Vector			;$FFFC
        fdb  Entry        ; Reset Vector		;$FFFE