include ht47c20.inc
data .section 'data'
count1 db ?
count2 db ?
;****************************
code .section at 0 'code'
org 00h
jmp start
;****************************
org 20h
start: clr intc0
clr intc1
loop: clr pa.1
clr pa.0
call delay
set pa.1
call delay
set pa.0
call delay
jmp loop
;****************************
delay proc
mov a,0a0h
mov count1,a
mov count2,a
d: sdz count1
jmp d
sdz count2
jmp d
ret
delay endp