|
; filename:GJ-05.ASM微電腦彩燈控制器程序清單
ORG 0000H ;程序入口地址
AJMP MAIN
ORG 001BH ;定時器T0中斷入口地址
LJMP WT0
ORG 30H
MAIN:MOV SP,#50H ;設(shè)置棧指針
MOV20H,#0
MOV P3,#0
MOV P1,#0
MOV TH0,#6 ;T0中斷(方式2 常數(shù)自動裝入8位定時器)
MOV TL0,#6
MOV TMOD,#02H
SETB EA
SETB ET0
SETB TR0
M: MOVP3,#01H
MOV P1,#0FFH
JNB 08H,$
CLR 08H
MOV P3,#00H
MOV P1,#00H
JNB 08H,$
CLR 08H
ACALL DSP
AJMP M
WT0: PUSH ACC
PUSH PSW
INC21H
MOVA,21H
CJNEA,#200,TORETI
MOV21H,#0
INC22H
MOVA,22H
CJNEA,#10,TORETI ;1s
MOV22H,#0
SETB08H
TORETI:POPPSW
POP ACC
RETI
DSP: SETB 00H
MOV P1,20H
MOVP3,#1
JNB 08H,$
CLR 08H
SETB 01H
MOV P1,20H
JNB 08H,$
CLR 08H
SETB 02H
MOV P1,20H
JNB 08H,$
CLR 08H
SETB 03H
MOV P1,20H
JNB 08H,$
CLR 08H
SETB 04H
MOV P1,20H
JNB 08H,$
CLR 08H
SETB 05H
MOV P1,20H
JNB 08H,$
CLR 08H
SETB 06H
MOV P1,20H
JNB 08H,$
CLR 08H
SETB 07H
MOV P1,20H
MOV 20H,#0
RET
END
|
|