Page 68 -

RLC A ;將之前堆疊中資料取出
JNC RT2 ;若累積器 A 為 1 則跳回到 LOOP 重新執行
POP A ;若累積器 A 為 0 則跳回到 START 重新執行
JB A.7,LOOP
JMP START ;載入 R2 之延遲時間設定

DELAY: MOV A,R2 ;若累積器 A 不為 0 則跳到 D0 執行
MOV R5,A ;當 R5 為 0 時則重設延遲時間為 25*20mS
JNZ D1
MOV R5,#25
R6,#40
D1: MOV R7,#249
D2: MOV R7,$
R6,D2
DJNZ R5,D1
DJNZ
DJNZ
RET
END