; 測脈沖寬度,測周期,脈寬信號從AT90S8515的ICP引腳輸入,最大值為為999999μS

.include"8515def.inc"
	rjmp   reset
.def    temp   = r16                   ;暫存器

.def    cnt1d  = r17
.def    cnt2d  = r18                   ;cnt1、dcnt2d和cnt3d存放結果的十進制
.def    cnt3d  = r19

.def    count  = r20

.def    res1   = r21
.def    res2   = r22                   ;res1、res2和res3存放結果的十六進制
.def    res3   = r23

.def    aa     = r24

	
reset:
	ldi   temp,  low(ramend)
	out   spl,   temp
	ldi   temp,  high(ramend)      ;設置堆棧
	out   spl+1, temp

	rcall clrm

	rcall htd3
loop:	                               ;在數碼管顯出十進制數
	mov   aa,   cnt1d
	andi  aa,   $0f                ;顯示個位
	rcall a
	cbi   portd, 00
	nop
	sbi   portd, 00
	mov   aa,  cnt1d
	andi  aa,  $f0                 ;顯示十位
	swap  aa
	rcall a
	cbi   portd, 01
	nop
	sbi   portd, 01
	mov   aa,  cnt2d
	andi  aa,  $0f                 ;顯示百位
	rcall a
	cbi   portd, 02
	nop
	sbi   portd, 02
	mov   aa,  cnt2d
	andi  aa,  $f0                 ;顯示千位
	swap  aa
	rcall a
	cbi   portd, 03
	nop
	sbi   portd, 03
	mov   aa,  cnt3d
	andi  aa,  $0f                 ;顯示萬位
	rcall a
	cbi   portd, 04
	nop
	sbi   portd, 04
	mov   aa,  cnt3d
	andi  aa,  $f0                 ;顯示十萬位
	swap  aa
	rcall a
	cbi   portd, 05
	nop
	sbi   portd, 05

	ret
	rjmp  loop

htd3:                                  ;16轉10子程序
	ldi   count, 24
	clr   cnt1d
	clr   cnt2d
	clr   cnt3d
	clc
loopd:
	rol   res1
	rol   res2
	rol   res3

	rol   cnt1d
	rol   cnt2d
	rol   cnt3d
	dec   count
	brne  c	
	rjmp  loop
c:	rcall adjn
	rjmp  loopd
a:
	ldi   zh,    high(zk*2)
	ldi   zl,    low(zk*2)
	add   zl,    aa
	lpm
	out   portb, r0	
	ret
adjn:
	push  count
	mov   count,  cnt1d
	rcall adjd1
	mov   cnt1d,  count
	mov   count,  cnt2d
	rcall adjd1
	mov   cnt2d,  count
	mov   count,  cnt3d
	rcall adjd1
	mov   cnt3d,  count
	pop   count
	ret
adjd1:
	ldi   temp,  3
	add   temp,  count
	sbrc  temp,  3
	mov   count, temp
	ldi   temp,  $30
	add   temp,  count
	sbrc  temp,  7
	mov   count, temp
	ret
clrm:
	clr   cnt1d
	clr   cnt2d
	clr   cnt3d
clrm1:
	clr   res1
	clr   res2
	clr   res3
	ret




.equ   zk=0x0200
.org   zk                       ;字形表
.db    0x03f,0x006,0x05b,0x04f
.db    0x066,0x06d,0x07d,0x007
.db    0x07f,0x06f,0x077,0x07c
.db    0x039,0x05e,0x071,0x0ff