; TUTA3.ASM  27SEP07

;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 
; Configuration data 
; PICmicro MCU type: 16F1937 
; Oscillator: RC mode, slow, VR1 fully clockwise (max.rate) 
; LCD display: off 
; 7-segment display: off 
; Version 3 board settings: J14 links: Digital 
;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
;
; The following lines embed configuration data into the PICmicro
	LIST P=16F1937
	__CONFIG H'8007', H'FE3'       ; RC mode
	__CONFIG H'8008', H'008' 
;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 
				
; using names to ease writing of TUTA2
				
STATUS	EQU	H'03'		; name program location 3 as STATUS
PORTB	EQU	H'06'		; name program location 6 as PORTB
				
	ORG	0		; Reset vector
	GOTO	5		; Goto start of program
	ORG	4		; Interrupt vector
	GOTO	5		; Goto start of program
	ORG	5		; Start of program memory

	CLRF	PORTB		; clear Port B data pins
	BSF	STATUS,5		; Page 1
	MOVLW	0x07
	MOVWF	H'9F'		; Setup the ADCON1 register
	CLRF	PORTB		; set all Port B as output via Page 1
	BCF	STATUS,5		; Page 0
				
LOOPIT	BSF	PORTB,0		; set Port B pin 0 to logic 1
	BSF	PORTB,1		; set Port B pin 1 to logic 1
	BSF	PORTB,2		; set Port B pin 2 to logic 1
	BSF	PORTB,3		; set Port B pin 3 to logic 1
	BSF	PORTB,4		; set Port B pin 4 to logic 1
	BSF	PORTB,5		; set Port B pin 5 to logic 1
	BSF	PORTB,6		; set Port B pin 6 to logic 1
	BSF	PORTB,7		; set Port B pin 7 to logic 1
	CLRF	PORTB		; clear all PORTB pins
	GOTO	LOOPIT		; goto address LOOPIT

	END			; final statement