slq.h

一个用PIC16C64开发的变色灯程序

L1      EQU     21H
L2      EQU     22H
L3      EQU     23H
L4      EQU     24H
L5      EQU     25H
L6      EQU     26H
L7      EQU     27H
L8      EQU     28H
L9      EQU     29H
L10     EQU     2AH
L11     EQU     2BH
L12     EQU     2CH
L13     EQU     2DH
L14     EQU     2EH
L15     EQU     2FH
L16     EQU     30H
L17     EQU     31H
L18     EQU     32H
L19     EQU     33H
L20     EQU     34H
L21     EQU     35H
L22     EQU     36H
L23     EQU     37H
L24     EQU     38H
L25     EQU     39H
L26     EQU     3AH
L27     EQU     3BH
ZTA     EQU     3CH
ZTB     EQU     3DH
ZTC     EQU     3EH
ZTD     EQU     3FH
ZTE     EQU     40H
ZTF     EQU     41H
ZTG     EQU     42H
ZTH     EQU     43H
ZTI     EQU     44H
ZTJ     EQU     45H
HHA     EQU     46H
HHB     EQU     47H
HHC     EQU     48H
HHD     EQU     49H
HHE     EQU     4AH
HHF     EQU     4BH
HHG     EQU     4CH
HHH     EQU     4DH
HHI     EQU     4EH
HHJ     EQU     4FH
TMP_W   EQU     50H
TMP_OPTION EQU  51H
WB      EQU     52H
JS      EQU     53H
FB      EQU     54H
XS      EQU     55H
K       EQU     56H
AX      EQU     57H
YX      EQU     58H
YS      EQU     59H
JY      EQU     3H
GN      EQU     5BH
GH      EQU     5CH
SG      EQU     5DH
TS      EQU     5EH
TB      EQU     5FH
HS      EQU     60H
TG      EQU     61H
RE      EQU     62H
YE      EQU     63H
BL      EQU     64H
TMPORTB EQU     65H
TMPORTC EQU     66H
TMPORTD EQU     67H
TMPORTE EQU     68H
SST     EQU     69H
SSH     EQU     6AH
CHI     EQU     6BH
MIAO    EQU     6CH
DOGA    EQU     6DH
DOGB    EQU     6EH
DOGC    EQU     6FH
DOGD    EQU     70H
W1      EQU     .132
W2      EQU     .210
W3      EQU     .220
W4      EQU     .225
W5      EQU     .227
W6      EQU     .227
W7      EQU     .228
W8      EQU     .227
W9      EQU     .223
W10     EQU     .219
W11     EQU     .205
W12     EQU     .24
W13     EQU     .184
W14     EQU     .214
W15     EQU     .221
W16     EQU     .226
W17     EQU     .228
W18     EQU     .227
W19     EQU     .228
W20     EQU     .227
W21     EQU     .224
W22     EQU     .218
W23     EQU     .201
W24     EQU     .220
HONG MACRO ZTB,B,KKK1,KKK2
     INCF ZTB, .1
     MOVLW .48
     SUBWF ZTB, .0
     BTFSS STATUS,Z
     GOTO KKK1
     CLRF ZTB
KKK1 MOVF ZTB, .0
     MOVWF B
     MOVLW .24
     SUBWF B, .0
     BTFSS STATUS,C
     GOTO KKK2
     MOVF B, .0
     SUBLW .48
     MOVWF B
KKK2 NOP
     ENDM