; TITLE		P-Pattern 		 								;

CHIP    draw_P  NFX780_84		; 

; INPUTS 

PIN  [47:49] count[0:2]  ; counts through the steps of plotting the 'P'

; OUTPUTS
                       	 		;  +---s6---+
PIN     34      s0  	  	   	;  |        |
PIN     35      s1     			; s5        s4
PIN     36      s2      		;  |        |
PIN     37      s3      		;  +---s3---+
PIN     39      s4      		;  |        |
PIN     40      s5      		; s2        s1
PIN     41      s6      		;  |        |
                        		;  +---s0---+

; UNUSED PINS 

PIN	[50:51]	unused[0:1]
PIN	[77:78]	unused[2:3]


T_TAB ( count2 count1 count0 >> s0 s1 s2 s3 s4 s5 s6 )
	0  0  0  : 0  0  0  0  0  0  0  ; none lit
	0  0  1  : 0  0  0  0  0  1  0  ; s 5
	0  1  0  : 0  0  1  0  0  1  0  ; s 5, 2 
	0  1  1  : 0  0  1  0  0  1  1  ; s 5, 2, 6
	1  0  0  : 0  0  1  0  1  1  1  ; s 5, 2, 6, 4
	1  0  1  : 0  0  1  1  1  1  1  ; s 5, 2, 6, 4, 3

SIMULATION

	VECTOR in_a := [  count2,  count1,  count0 ]

	VECTOR seg_display := [s0, s1, s2, s3, s4, s5, s6]

	TRACE_ON in_a seg_display

        FOR i:=0 TO 7 DO
		BEGIN
		SETF in_a := i
		END