ORG	$1000  	

	MOVE.L	#$1000,A7
	ORI.W	#$0700,SR
	LEA	IRQ(PC),A0
	MOVE.L	A0,$68 	
   	CLR.B	CRB
	CLR.B	CRA
	CLR.L	D5
	CLR	D3
	
 	MOVE.B	#$8F,DDRB			; 4 UITANGEN 3 INGANGEN
	MOVE.B	#$FF,DDRA			; ALLES output 
 
   	MOVE.B	#$04,CRA
   	MOVE.B	#$05,CRB 			; b0 = 1, b1 = 0, b2 = 1
						; b5 = 0, b4 = 0 , b3 = 0
						; b6 = 0, b7 = 0
	ANDI.W	#$F9FF,SR

HOOFD	MOVE.B	#$00,ORA
	MOVE.B	#$01,ORB

	JMP	HOOFD
;..............................................	

IRQ	TST.B	ORB
	MOVE.B	#$00,ORA			; alles aangestuurd
	MOVE.B	#$04,ORB			; selectielijnen : 0 = geen, 1 = eerste display (tientallen)
						; 2 = tweede display, 3 = leds
	RTE