;PORTB villogtatása
;Készítette: Regényi Dávid
;-------------------------------------
A	EQU	0x20
	ORG	0
	GOTO	SETUP
;-------------------------------------

SETUP
	CLRF	PORTB
	BANKSEL	TRISB
	CLRF	TRISB
	BANKSEL	PORTB
	GOTO	PROGRAM
;-------------------------------------

PROGRAM

	MOVLW	B'11111111'
	MOVWF	PORTB
	CALL	TIME
	CLRF	PORTB
	CALL	TIME
	GOTO	PROGRAM
;-------------------------------------

TIME
	MOVLW	D'100'
	MOVWF	A
X	DECFSZ	A,F
	GOTO	X
	RETURN
;-------------------------------------

	END