************************************************************
* Ce programme permet de tester le mode Interruption Physique
* Compteur sur PORTB 
* reinitalisation du compteur si appui sur IRQ 
************************************************************
							
PORTB		equ  	$1004 
IRQ1		equ		$00EE
IRQ2		equ		$00EF
IRQ3		equ		$00F0

				org $FE00	
				cli

				lds #$0150
				
				ldaa #$7E 			* opcode de JMP
				staa IRQ1	 			* interrupt vector-1=JMP opcode
				
				ldaa #$00				*init
				staa IRQ2				*interrupt vector=#$00
				staa PORTB
									
				ldx #irq 				* ISR de IRQ# : ldx irq (opcode de jmp)->								
				stx IRQ2  			* interrupt vector
					
				ldx #$1000				
													
ici			ldaa $00E0
				inca
				staa $00E0					
				staa PORTB 					
				bsr delai
				bra ici
					
irq			ldaa #$00 		* 
				staa $00E0
				rti
					
delai		ldy #$F000
wait		dey
				bne wait
				rts  
					
				end