PRuI - Zad I

;====================================================================
; Kolegij: Primjena računala u industriji
; Napisao: Tin Marković
; Datum:   9.4.2015.
;
; Main.asm file generated by New Project wizard
; Processor: PIC16F84A
; Compiler:  MPASM (Proteus)
;====================================================================
#include p16f84a.inc                ; Definicija konstanti kontrolera

;====================================================================
; VARIABLES
; Definiranje nekih varijabli, radi olakšanja posla ispod.
; Puno mi je preglednije upisati imena. Koristim bit notaciju,
; jer je jednostavnije nego definirati putem hex-a, preglednije
; se vide pinovi. PC i PZ su za pješake. Ostalo su svjetla.
;====================================================================

    CRVENO equ b'01001'
    ZUTO equ b'00010'
    ZELENO equ b'00100'
    CRZUT equ b'00011'
    PC equ b'00001000'
    PZ equ b'00000100'

;====================================================================
; INICIJALIZACIJA
; Kao prema priloženom primjeru.
;====================================================================

RST   code  0x0
      goto  Start

PGM   code
Start
      ; Cistimo registre, prije izvrsavanja bilo cega
      bcf   STATUS,RP0  ; Odaberi stranicu 0
      clrf  PORTA       ; Ocisti registar A
      clrf  PORTB       ; Ocisti registar B
      bsf   STATUS,RP0  ; Odaberi stranicu 1


      clrf  TRISA       ; Svi pinovi na portu A su izlaz
      movlw 0x01
      movwf TRISB       ; RB0 pin je ULAZ /TASTER/

      bcf   STATUS,RP0  ; Stranica 0

;====================================================================
; POČETAK IZVOĐENJA
;====================================================================
Semafor
    movlw   CRVENO
    movwf   PORTA
    movlw   PC
    movwf   PORTB
    call CekajPritisak

    movlw   CRVENO
    movwf   PORTA
    movlw   PZ
    movwf   PORTB
    call CekajPritisak

    movlw   CRVENO
    movwf   PORTA
    movlw   PC
    movwf   PORTB
    call CekajPritisak

    movlw   CRZUT
    movwf   PORTA
    call CekajPritisak

    movlw   ZELENO
    movwf   PORTA
    call CekajPritisak

    movlw   ZUTO
    movwf   PORTA
    call CekajPritisak
goto Semafor

CekajPritisak
DUGME1
    BTFSC PORTB,0
    goto DUGME1
    PAUZA                       ; Dvostruka petlja koja će napraviti
        decfsz 08h,1            ; 255 na kvadrat praznih krugova.
        goto PAUZA              ; Adrese 08h i 09h su prazne, što ovdje
        decfsz 09h,1            ; znači da defaultiraju na 255, tako ih
        goto PAUZA ;            ; dekrementiramo do nule, kada idemo dalje.
return
      END