CHKDAT BIT P3.0
CHKCLKO BIT P3.1
CHKSCO BIT P3.2
DAT1 EQU 50H ; 数据1
DAT2 EQU 51H ; 数据2
DA0: MOV A, DAT1
ACALL HC59500 ; 8位移位输出1
MOV A, DAT2
ACALL HC59500 ; 8位移位输出2
CLR CHKSCO ;
锁存器输出控制
SETB CHKSCO
--------
RET
HC59500: MOV R2, #08H ; 8位移位输出
HC59502: RRC A
MOV CHKDAT, C
CLR CHKCLKO
SETB CHKCLKO
DJNZ R2, HC59502
RET