HT47I_O口应用

HT47I_O口应用

include ht47c20.inc
data .section 'data'
count db ?
code .section at 0 'code'
org 00h
jmp start
org 04h
reti
org 08h

reti
org 0ch
reti
org 10h
jmp timer_int
;****************************
start: clr iNTC0
clr intc1
clr adcr.1
MOV a,08h
MOV tmrc,a
MOV a,0eeh
MOV count,a
MOV a,00h
MOV tmrbl,a
MOV tmrbh,a
MOV tmral,a
MOV tmrah,a
set tmrc.4
set intc1.0
set intc0.0
jmp $
;****************************
timer_int:
rr count
MOV a,count
MOV pa,a
reti
;***********************************************

include ht47c20.inc
data .section 'data'

code .section at 0 'code'
org 00h
jmp start
org 04h
reti
org 08h
reti
org 0ch
reti
org 10h
reti
;---------------------------------
start: ; bit7(reg)read bit0(reg)read
clr pa ; (0)0 (0)0
set pa.7 ; (1)0 (0)0
set pa.0 ; (0)0 (1)0
;set pa.7
sz pa.7
jmp read_1
read_0:
jmp $
read_1:
jmp $
;*************************************************