;18LED12F629.asm
	;STRESS with secret program when touching touch pads on start-up
	;This program creates a display on 18 LEDs  1-1-2006 
	;LED pattern corresponds to PC board


	list	p=12F629
	radix	dec
	include	"p12f629.inc"

	__CONFIG	_MCLRE_OFF & _CP_OFF & _WDT_OFF 
		& _INTRC_OSC_NOCLKOUT  ;Internal osc.

	
				; globals

soundhigh		equ 	20h	;this is the first available file
soundlow		equ 	21h


fileA			equ	26h		;delay fileA
fileB			equ	27h		;delay fileB
fileC			equ	28h		;delay fileC

delA			equ	36h
delB			equ	37h	
long_delC		equ	38h	
short_delD		equ	39h



beeplength		equ	3Ah		;length of beep
beephigh		equ	3Bh		;HIGH time
beeplow			equ	3Ch		;LOW time

tmr0			equ	01h

randomNo		equ	3Dh

temp			equ	3Eh		;temporary file for decrementing
tempRand		equ	3Fh

status			equ	03h
OPTION_REG		equ	81h
osccal			equ	90h


				; bits on GPIO
				
lineA			equ	0		;GP0  
lineB	 		equ	1		;GP1  
lineC			equ	2		;GP2  
input			equ	3		;GP3  
lineD			equ	4		;GP4  
lineE			equ	5		;GP5  


				;bits	
rp0			equ	5
		


Start	org	0x00		;program starts at location 000
		nop
		nop
		nop
		nop				;NOPs to get past reset vector address
		nop
		nop


SetUp	clrf	GPIO		;clear port of junk	
		movlw	0x24
		movwf	osccal		;calibrate oscillator	
		movlw	2Fh			;put 0010 1111 into W
		andwf	tmr0,0		;mask bits to get max 0010 1111 for table jump 
		movwf	randomNo	;move number to Random Number file	
		movlw	b'11111111'	;This will make GP3 input
		tris 	05h
		btfss	GPIO,3
		goto	Main1
		goto 	New

			;Random Number Table

Table1	addwf	02,1
		retlw	05
		retlw	07
		retlw	06
		retlw	04
		retlw	02
		retlw	0Bh
		retlw	01
		retlw	12h
		retlw	0Ch
		retlw	10h
		retlw	11h
		retlw	09h
		retlw	0Ah
		retlw	06h
		retlw	0Bh
		retlw	0Dh
		retlw	12h
		retlw	01
		retlw	12h
		retlw	09
		retlw	08
		retlw	07
		retlw	0Dh
		retlw	06
		retlw	0Fh
		retlw	08
		retlw	0Bh
		retlw	05
		retlw	07
		retlw	0Ah
		retlw	11h
		retlw	0Ah
		retlw	11h
		retlw	02
		retlw	0Dh
		retlw	06
		retlw 	02
		retlw	01
		retlw	0Bh
		retlw	12h
		retlw	06
		retlw	07
		retlw	0Eh
		retlw	05
		retlw	0Eh
		retlw	0Ch
		retlw	04
		retlw	09	
		retlw	0Eh
		retlw	10h
		retlw	0Bh
		retlw	11h
		retlw	03
		retlw	04
		retlw	0Eh
		retlw	07
		retlw	0Ah
		retlw	03
		retlw	11h
		retlw	05
		retlw	0Fh
		retlw	02
		retlw	0Dh
		retlw	0Dh
		retlw	02
		retlw	08
		retlw	0Fh
		retlw	01
		retlw	0Fh
		retlw	0Ch
		retlw	12h
		retlw	04
		retlw	05
		retlw	0Fh
		retlw	08
		retlw	09
		retlw	10h
		retlw	01
		retlw	03
		retlw	10h
		retlw	04
		retlw	03
		retlw	0Eh
		retlw	03
		retlw	0Ch
		retlw	10h
		retlw	0FFh
	
	
Around1	call	Beep
		call 	LED1
		call	Del_1	

		call	Beep
		call 	LED2
		call	Del_1
	
	
		call	Beep
		call 	LED3
		call	Del_1
	

		call	Beep
		call 	LED4
		call	Del_1

		call	Beep
		call 	LED5
		call	Del_1
		
		call	Beep
		call 	LED6
		call	Del_1
	

		call	Beep
		call 	LED7
		call	Del_1
	

		call	Beep
		call 	LED8
		call	Del_1
	
		call	Beep
		call 	LED9
		call	Del_1
	

		call	Beep
		call 	LED10
		call	Del_1
	

		call	Beep
		call 	LED11
		call	Del_1

		call	Beep
		call 	LED12
		call	Del_1

		call	Beep
		call 	LED13
		call	Del_1
	
		call	Beep
		call 	LED14
		call	Del_1

		call	Beep
		call 	LED15
		call	Del_1
	

		call	Beep
		call 	LED16
		call	Del_1
	
		call	Beep
		call 	LED17
		call	Del_1

		call	Beep
		call 	LED18
		call	Del_1	

		retlw	00


Around2	nop
Around3	call	Beep
		call 	LED1
		call	Del_2

		call	Beep
		call 	LED2
		call	Del_2

		call	Beep
		call 	LED3
		call	Del_2

		call	Beep
		call 	LED4
		call	Del_2

		call	Beep
		call 	LED5
		call	Del_2

		call	Beep
		call 	LED6
		call	Del_2

		call	Beep
		call 	LED7
		call	Del_2

		call	Beep
		call 	LED8
		call	Del_2

		call	Beep
		call 	LED9
		call	Del_2

		call	Beep
		call 	LED10
		call	Del_2

		call	Beep
		call 	LED11
		call	Del_2

		call	Beep
		call 	LED12
		call	Del_2

		call	Beep
		call 	LED13
		call	Del_2
	
		call	Beep
		call 	LED14
		call	Del_2

		call	Beep
		call 	LED15
		call	Del_2

		call	Beep
		call 	LED16
		call	Del_2
	
		call	Beep
		call 	LED17
		call	Del_2

		call	Beep
		call 	LED18
		call	Del_2
	
		retlw	00


Around4	call	Beep
		call 	LED1
		call	Del_3
		decfsz	tempRand,1
		goto	A2
		goto	show	

A2		call	Beep
		call 	LED2
		call	Del_3
		decfsz	tempRand,1
		goto	A3
		goto	show	

A3		call	Beep
		call 	LED3
		call	Del_3
		decfsz	tempRand,1
		goto	A4
		goto	show	

A4		call	Beep
		call 	LED4
		call	Del_3
		decfsz	tempRand,1
		goto	A5
		goto	show	

A5		call	Beep
		call 	LED5
		call	Del_3
		decfsz	tempRand,1
		goto	A6
		goto	show	

A6		call	Beep
		call 	LED6
		call	Del_3	
		goto	show	

A7		call	Beep
		call 	LED7
		call	Del_3
		decfsz	tempRand,1
		goto	A8
		goto	show	

A8		call	Beep
		call 	LED8
		call	Del_3
		decfsz	tempRand,1
		goto	A9
		goto	show	

A9		call	Beep
		call 	LED9
		call	Del_3
		decfsz	tempRand,1
		goto	A10
		goto	show	

A10		call	Beep
		call 	LED10
		call	Del_3
		decfsz	tempRand,1
		goto	A11
		goto	show	

A11		call	Beep
		call 	LED11
		call	Del_3
		decfsz	tempRand,1
		goto	A12
		goto	show	
	
A12		call	Beep
		call 	LED12
		call	Del_3
		decfsz	tempRand,1
		goto	A13
		goto	show	

A13		call	Beep
		call 	LED13
		call	Del_3
		decfsz	tempRand,1
		goto	A14
		goto	show	

A14		call	Beep
		call 	LED14
		call	Del_3
		decfsz	tempRand,1
		goto	A15
		goto	show	
	
A15		call	Beep
		call 	LED15
		call	Del_3
		decfsz	tempRand,1
		goto	A16
		goto	show	

A16		call	Beep
		call 	LED16
		call	Del_3	
		goto	show



Beep	movlw	b'11111110'	
		tris 	05h		;make GPO output
		movlw	020h	
		movwf	beeplength
Beep1	bsf		GPIO,0		;Piezo HIGH
		movlw	80h
		movwf	beephigh
Beep2	nop
		decfsz	beephigh,1
		goto	Beep2
		bcf		GPIO,0
		movlw	80h
		movwf	beeplow		;Piezo LOW
Beep3	nop
		decfsz	beeplow,1
		goto	Beep3	
		decfsz	beeplength,1
		goto	Beep1
		retlw	00


	;Delay 1

Del_1	movlw 	20h
		movwf 	fileB	
DelX	decfsz 	fileA,1		; ,1 denotes the result of the decrement 
		goto 	DelX	
		decfsz 	fileB,1
		goto 	DelX
		retlw 	00
		
	;Delay 2

Del_2	incf 	fileC
		incf 	fileC
		incf 	fileC	
		incf 	fileC
		incf 	fileC	
		movf	fileC,0
		movwf	fileB		
DelY	decfsz 	fileA,1		; ,1 denotes the result of the decrement 
		goto 	DelY	
		decfsz 	fileB,1
		goto 	DelY
		retlw 	00
		
	;Delay 3
			
Del_3	incf 	fileC
		incf 	fileC
		incf 	fileC
		incf 	fileC	
		movf	fileC,0
		movwf	fileB		
DelZ	nop
		nop
		nop
		nop
		decfsz 	fileA,1		; ,1 denotes the result of the decrement 
		goto 	DelZ	
		decfsz 	fileB,1
		goto 	DelZ
		retlw 	00


		;Activating the LEDs:
		
LED1	movlw	b'11111100'	;Put into W to turn on LED 1
		tris 	05h 	
		movlw	b'00000001'
		movwf	05h		;make GP0 HIGH  make GP1 LOW
		retlw	00

LED2	movlw	b'11111100'	;Put into W to turn on LED 2
		tris 	05h 	
		movlw	b'00000010'
		movwf	05h		;make GP0 LOW  make GP1 HIGH
		retlw	00
	
LED3	movlw	b'11011110'	;Put into W to turn on LED 3
		tris 	05h 	
		movlw	b'00100000'
		movwf	05h		;make GP1 LOW  make GP5 HIGH
		retlw   	00
		
LED4	movlw	b'11011110'	;Put into W to turn on LED 4
		tris 	05h 	
		movlw	b'00000001'
		movwf	05h		;make GP1 LOW  make GP5 HIGH
		retlw   	00

LED5	movlw	b'11011011'	;Put into W to turn on LED 5
		tris 	05h 	
		movlw	b'00100000'
		movwf	05h		;make GP2 LOW  make GP5 HIGH
		retlw   	00

LED6	movlw	b'11011011'	;Put into W to turn on LED 6
		tris 	05h 	
		movlw	b'00000100'
		movwf	05h		;make GP2 HIGH  make GP5 LOW
		retlw   	00

LED7	movlw	b'11101011'	;Put into W to turn on LED 7
		tris 	05h 	
		movlw	b'00010000'
		movwf	05h		;make GP2 LOW  make GP4 HIGH
		retlw   	00
		
LED8	movlw	b'11101011'	;Put into W to turn on LED 8
		tris 	05h 	
		movlw	b'00000100'
		movwf	05h		;make GP2 HIGH  make GP4 LOW
		retlw   	00

LED9	movlw	b'11101101'	;Put into W to turn on LED 9
		tris 	05h 	
		movlw	b'00010000'
		movwf	05h		;make GP1 LOW  make GP4 HIGH
		retlw   	00
		
LED10	movlw	b'11101101'	;Put into W to turn on LED 10
		tris 	05h 	
		movlw	b'00000010'
		movwf	05h		;make GP1 LOW  make GP5 HIGH
		retlw   	00
		
LED11	movlw	b'11001111'	;Put into W to turn on LED 11
		tris 	05h 	
		movlw	b'00100000'
		movwf	05h		;make GP4 LOW  make GP5 HIGH
		retlw   	00

LED12	movlw	b'11001111'	;Put into W to turn on LED 12
		tris 	05h 	
		movlw	b'00010000'
		movwf	05h		;make GP4 HIGH  make GP5 LOW
		retlw   	00
		
LED13	movlw	b'11011101'	;Put into W to turn on LED 13
		tris 	05h 	
		movlw	b'00100000'
		movwf	05h		;make GP1 LOW  make GP5 HIGH    
		retlw   	00

LED14	movlw	b'11011101'	;Put into W to turn on LED 14
		tris 	05h 	
		movlw	b'00000010'
		movwf	05h		;make GP1 HIGH  make GP5 LOW      
		retlw   	00

LED15	movlw	b'11111001'	;Put into W to turn on LED 15
		tris 	05h 	
		movlw	b'00000010'
		movwf	05h		;make GP1 HIGH  make GP2 LOW
		retlw   	00

LED16	movlw	b'11111001'	;Put into W to turn on LED 16
		tris 	05h 	
		movlw	b'00000100'
		movwf	05h		;make GP1 LOW  make GP2 HIGH
		retlw   	00

LED17	movlw	b'11111010'	;Put into W to turn on LED 17
		tris 	05h 	
		movlw	b'00000001'
		movwf	05h		;make GP0 HIGH  make GP2 LOW
		retlw   	00

LED18	movlw	b'11111010'	;Put into W to turn on LED 18
		tris 	05h 	
		movlw	b'00000100'
		movwf	05h		;make GP0 LOW   make GP2 HIGH
		retlw   	00



New		call 	sound		;this is where your new program is placed
		call	Del_1
		goto	New

show	movlw	40h
		movwf	long_delC
show2	call	Del_1
		decfsz	long_delC
		goto	show2
		retlw	00
	

sound	movlw	b'11111110'	
		tris 	05h		;make GPO output
		movlw	0F0h
		movwf	temp
sound1	bsf		GPIO,0		;Piezo HIGH
		movf	temp,0		;
		movwf	soundhigh
sound2	nop
		nop
		nop
		nop
		nop
		decfsz	soundhigh,1
		goto	sound2
		bcf		GPIO,0
		movf	temp,0
		movwf	soundlow		;Piezo LOW
sound3	nop
		nop
		nop
		nop
		nop
		decfsz	soundlow,1
		goto	sound3	
		decfsz	temp,1
		goto	sound1
		retlw	00


	
Main	incf	randomNo	;
		call	sound	
		call	sound
		call	Del_3
		movlw	b'11111111'	;make all lines "input" to turn off LEDs
		tris 	05h
Main1	call	Beep
		call	Del_3
		call	Beep
		call	Del_3
		call	Del_3
		movlw	b'11111111'	;This will make GP3 input
		tris 	05h
		btfss	GPIO,3
		goto	Main1
Main2	movf	randomNo,0	;move random number to W
		call	Table1
		movwf	tempRand		;put LED number into temp file for decrementing
		xorlw	0FFh		;end of table?
		btfsc	03,2
		goto	Main3
		goto	Main4
Main3	clrf	randomNo
		incf	randomNo	
		goto	Main2	
Main4	call	Around1
		movlw 	30h
		movwf 	fileC	
		call	Around2
		call	Around3	
		movlw 	50h		;create delay for final loop of display
		movwf 	fileC	
		call	Around4
	
		call	sound
		goto	Main

		;OSCCAL calibration value

		org		0x3ff
		movlw	0x24
		

		end