tabrdl rglight
;load light state
mov
a,rglight
;;output light state to port A
mov
pa,a
;
call
delays
;delay for a ’little’ while
inc
tblp
;
sdz
flash
;if flash light over?
jmp
flash2
;no. flash again
tabrdl rglight
;(yes. go ahead) load light state
mov
a,rglight
;;output light state to port A
mov
pa,a
;;
call
delaym
;delay for a ’medium’ while
jmp
loop
;repeat from light loop
delayl proc
;’long’ delay subroutine
mov
a,0fh
;;load counters
mov
count1,a
;;
mov
count2,a
;;
mov
count3,a
;;
d1:
sdz
count3
;;count down count3
jmp
d1
sdz
count2
;;count down count2
jmp
d1
sdz
count1
;;count down count1
jmp
d1
ret
delayl endp
delaym proc
;’medium’ delay subroutine
mov
a,07h
;;load counters
mov
count1,a
;;
mov
a,0ffh
;;
mov
count2,a
;;
mov
count3,a
;;
d2:
sdz
count3
;;count down count3
jmp
d2
sdz
count2
;;count down count2
jmp
d2
sdz
count1
;;count down count1
jmp
d2
ret
delaym endp
delays proc
;’little’ delay subroutine
mov
a,0ffh
;;load counters
mov
count1,a
;;
mov
count2,a
;;
d3:
sdz
count2
;;count down count2
jmp
d3
sdz
count1
;;count down count1
HT-IDE User’s Guide
190
Содержание HT-IDE
Страница 11: ...P a r t I Integrated Development Environment Part I Integrated Development Environment 1 ...
Страница 12: ...HT IDE User s Guide 2 ...
Страница 20: ...Fig 1 6 Fig 1 7 HT IDE User s Guide 10 ...
Страница 24: ...HT IDE User s Guide 14 ...
Страница 70: ...HT IDE User s Guide 60 ...
Страница 76: ...HT IDE User s Guide 66 ...
Страница 92: ...HT IDE User s Guide 82 ...
Страница 93: ...P a r t I I Development Language and Tools Part II Development Language and Tools 83 ...
Страница 94: ...HT IDE User s Guide 84 ...
Страница 148: ...HT IDE User s Guide 138 ...
Страница 150: ...Fig 12 1 Fig 12 2 HT IDE User s Guide 140 ...
Страница 154: ...HT IDE User s Guide 144 ...
Страница 192: ...HT IDE User s Guide 182 ...
Страница 194: ...HT IDE User s Guide 184 ...
Страница 218: ...HT IDE User s Guide 208 ...
Страница 235: ...P a r t V Appendix Part V Appendix 225 ...
Страница 236: ...HT IDE User s Guide 226 ...
Страница 250: ...HT IDE User s Guide 240 ...