st7/
;procesor: ST7FLITE39F
;*********************************************************
	.NOLIST
	#INCLUDE "ST7FLITE39.inc"
	.LIST
;*********************************************************
;-------------- definice --------------------------
PADDR_1	equ	%10011111	
PBDDR_1 equ %00000000
PBOR_1 	equ	%11111111
EISR_1 equ %00100000
EICR_1 equ %00100000

blik equ %11110101
nic equ %11111111
;-------------- blok pameti RAM --------------------------
				BYTES
				segment 'ram0'
pr_cekej1  DS.B				 
pr_cekej2  DS.B
irq  DS.B
;-------------- vlastni program --------------------------
				WORDS
        segment 'rom'
				
.main 	LD	A,#PADDR_1
				LD PADDR,A			
				LD	A,#PBOR_1
				LD PBOR,A				
				LD A,#PBDDR_1
				LD PBDDR,A	
				LD A,#EISR_1
				LD EISR,A
				LD A,#EICR_1
				LD EICR,A
				LD Y,#1
				LD irq,Y
.normal
				WFI
				JP normal

;-------------- podprogram cekani ------------------------
.wait  	
				LD	Y,#200			
				LD pr_cekej2,Y	
wait2		LD	Y,#250			
				LD pr_cekej1,Y	
wait1		DEC pr_cekej1		
				JRNE wait1			
				DEC pr_cekej2		
				JRNE wait2			
				RET							

;------------- obsluha preruseni ---------------------------
.dummy   iret   
.tlacitko
				INC irq
				PUSH A
				PUSH Y
				LD A,#blik
				LD PADR,A
				CALL wait
				LD A,#nic
				LD PADR,A
				POP A
				POP Y
				IRET

;------------- vektory preruseni ---------------------------
				segment 'vectit'
                DC.W    dummy 	;13 FFE0-FFE1h AT TIMER
                DC.W    dummy   ;12 FFE2-FFE3h SPI
                DC.W    dummy   ;11 FFE4-FFE5h LITE TIMER  
								DC.W    dummy   ;10 FFE6-FFE7h LITE TIMER  
								DC.W    dummy	  ; 9 FFE8-FFE9h AT TIMER 
								DC.W    dummy   ; 8 FFEA-FFEBh AT TIMER  
								DC.W    dummy   ; 7 FFEC-FFEDh SI   
                DC.W    dummy   ; 6 FFEE-FFEFh LINSCI
                DC.W    dummy   ; 5 FFF0-FFF1h LITE TIMER  
								DC.W    dummy   ; 4 FFF2-FFF3h EI3
								DC.W    tlacitko   ; 3 FFF4-FFF5h EI2
								DC.W    dummy   ; 2 FFF6-FFF7h EI1   
								DC.W    dummy   ; 1 FFF8-FFF9h EI0
                DC.W    dummy   ; 0 FFFA-FFFBh AWU
								DC.W    dummy   ; T FFFC-FFFDh TRAP
.reset          DC.W    main    ; R FFFE-FFFFh RESET

;-------------- konec zdrojoveho textu direktiva END -------
		END