************************************************************
* Ce programme permet de tester le mode Interruption Physique
* Compteur sur PORTB 
* reinitalisation du compteur si appui sur IRQ 
************************************************************
							
PORTB		equ  	$1004 
CNT			rmb		1

				org $FE00	
				

start		lds #$0150					
				ldx #$1000				
													
				ldaa #$00				*init port b...				
				staa CNT			 *...et variable compteur
					
				cli			
					
ici			ldaa CNT
				staa PORTB 			*resultat sur port b						
				inca						*increment le compteur
				staa CNT									
				bsr delai				*tempo compteur
				bra ici					*boucle
					
				
***boucle tempo***					
delai		ldy #$C000
wait		dey
				bne wait
				rts  

***sous pro d'interruption***					
reinit	ldaa #$00 		* reinit la variable compteur 
				staa CNT	
				staa PORTB			
				rti

***vecteur d'interruption IRW ***
				org		$fff2		* vecteur de IRQ
irqvect	fdb		reinit
					
					
				end