; Softa, jolla siirretään a-portin sisältä w-rekisterin kautta b-porttiin
; 4.11. v1.0

	LIST P=16F84A
	include "p16f84a.inc"
	
	org 0x00				;Suoritus alkaa AINA tästä resetin jälkeen
	goto MAIN_PROGRAM		;Hyppää pääohjelmaan
	
	; Tässä voisi olla jotain keskeytyskäsittelyjä ja niiden
	; asetuksia tms

MAIN_PROGRAM
	
	; Alustetaan PORTB
	clrf PORTB		 	; Nollaa PORTB-rekisteri
	bsf  STATUS, RP0	; Vaihdetaan bankki (1) oikeaksi, jotta
					 	; päästään käpistelemään TRISB-rekisteriä
	clrf TRISB			; Nollataan TRISB-rekisteri (eli määritetään
					 	; jokainen B-portin bitti outputiksi (Nolla
					 	; meinaa että out ja 1 = in))
	; Alustetaan PORTA
	movlw 0xFF			; Siiretään w-rekisteriin arvo 0xFFh
	movwf TRISA			; Siiretään w-rekisteri TRISA-rekisteriin
						; Eli PORTA:n suuntarekisteriin jokainen
	  					; bitti ykköseksi (kaikki PORTA:n I/O-pinnit
					 	; ovat sisääntuloja)
	bcf STATUS, RP0  	; Nollataan bankinvalintabitti status-
					 	; rekisteristä (Bankki 0 jälleen käytössä)

READ_AND_WRITE
	
	movf PORTA, 0		; Siiretään portti A:n sisältö w-rekisteriin
	movwf PORTB		 	; Siiretään w-rekisterin sisus portti B:hen
	
	goto READ_AND_WRITE ; Hypätään takaisin READ_AND_WRITE-kohtaan

	end