Zadatak 1 - Primjena

;====================================================================
; 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'00001'
    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