【正文】 ， Bernier C L ． Indexing concepts and methods .New York:Academic 附 錄 程序附件 ORG 0000H LJMP MAIN ORG 0003H LJMP INTI ORG 0100H LJMP STAR DQ EQU RS EQU RW EQU E EQU MAIN: MOV P3,00H MOV SP,60H SETB EA SETB IT0 SETB EX0 MOV R8,00H LCALL STAR MOV P2,00H MOV DPTR,TAB MOV A,TEMPER_NUM DA A MOV R0,A LCALL XISH LCALL BJ LJMP MAIN STAR: TEMPER_L EQU 36H TEMPER_H EQU 35H TEMPER_NUM EQU 60H FLAG1 BIT 00H LCALL GET_TEMPER LCALL TEMPER_COV RET INIT_1820: SETB DQ NOP CLR DQ MOV R5,80H TSR1: DJNZ R5,TSR1 SETB DQ MOV R5,25H TSR2: DJNZ R5,TSR2 JNB DQ,TSR3 LJMP TSR4 TSR3: SETB FLAG1 LJMP TSR5 TSR4: CLR FLAG1 LJMP TSR7 TSR5: MOV R5,06BH TSR6: DJNZ R5,TSR6 TSR7: SETB DQ RET GET_TEMPER: SETB DQ BCD: LCALL INIT_1820 JB FLAG1,S22 S22: LCALL DELAY1 MOV A,0CCH LCALL WRITE_1820 MOV A,44H LCALL WRITE_1820 NOP LCALL DELAY LCALL DELAY CBA: LCALL INIT_1820 JB FLAG1,ABC LJMP CBA ABC: LCALL DELAY1 MOV A,0CCH LCALL WRITE_1820 MOV A,0BEH LCALL WRITE_1820 LCALL READ_1820 LCALL READ_1820 RET READ_1820: MOV R2,8 RE1: CLR C SETB DQ NOP NOP CLR DQ NOP NOP NOP SETB DQ MOV R3,7 DJNZ R3,$ MOV C,DQ MOV R3,23 DJNZ R3,$ RRC A DJNZ R2,RE1 RET WRITE_1820: MOV R2,8 CLR C WR1: CLR DQ MOV R3,6 DJNZ R3,$ RRC A MOV DQ,C MOV R3,23 DJNZ R3,$ SETB DQ NOP DJNZ R2,WR1 SETB DQ RET READ_1820: MOV R4,2 MOV R1,36H RE00: MOV R2,8 RE01: CLR C SETB DQ NOP NOP CLR DQ NOP NOP NOP SETB DQ MOV R3,7 DJNZ R3,$ MOV C,DQ MOV R3,23 DJNZ R3,$ RRC A DJNZ R2,RE01 MOV R1,A DEC R1 DJNZ R4,RE00 RET TEMPER_COV: MOV A,0F0H ANL A,TEMPER_L SWAP A MOV TEMPER_NUM,A MOV A,TEMPER_L JNB ,TEMPER_COV1 INC TEMPER_NUM TEMPER_COV1: MOV A,TEMPER_H ANL A,07H SWAP A ORL A,TEMPER_NUM MOV TEMPER_NUM,A LCALL BIN_BCD RET BIN_BCD: MOV DPTR,TEMP_TAB MOV A,TEMPER_NUM MOVC A,A+DPTR MOV TEMPER_NUM,A RET TEMP_TAB: DB 00H,01H,02H,03H,04H,05H,06H,07H DB 08H,09H,10H,11H,12H,13H,14H,15H DB 16H,17H,18H,19H,20H,21H,22H,23H DB 24H,25H,26H,27H,28H,29H,30H,31H DB 32H,33H,34H,35H,36H,37H,38H,39H DB 40H,41H,42H,43H,44H,45H,46H,47H DB 48H,49H,50H,51H,52H,53H,54H,55H DB 56H,57H,58H,59H,60H,61H,62H,63H DB 64H,65H,66H,67H,68H,69H,70H,71H DB 72H,73H,74H,75H,76H,77H,78H,79H DB 80H,81H,82H,83H,84H,85H,86H,87H DB 88H,89H,90H,91H,92H,93H,94H,95H DB 96H,97H,98H,99H DELAY1:MOV R9,20H DJNZ R9,$ RET INTI: CLR EA PUSH PSW PUSH A SETB EA NOP NOP NOP JNB ,DUT LCALL SZZ MOV A,R8 MOV R0,A LCALL XISH DUT: POP A POP PSW RETI SZZ: JNB ,SZZJ JNB ,SZZC RET SZZJ: MOV A,R8 INC A MOV R8,A NOP NOP NOP ACALL SZZ RET SZZC: MOV A,R8 DEC A MOV R8,A NOP NOP NOP ACALL SZZ RET BJ: MOV A,R0 MOV B,R8 CLY C SUBB A,B JNB C,DA JB C,XI SETB RET DA: MOV P2,00H SETB RET XI: MOV P2,00H SETB RET XISH: MOV P0,01H LCALL XRT MOV P0,038H LCALL XRT MOV P0,0CH LCALL XRT MOV P0,080H LCALL XRT MOV R7,080H MOV P0,01000100B。 LCALL QJ。 LCALL WXS。 MOV R6,00H MOV A,R0 MOV B,10 DIV A,B MOV R6,B MOVX P0,A+DPTR LCALL WXS LCALL QJ MOV B,R6 MOV A,B MOVX P0,A+DPTR LCALL WXS LCALL QJ RET HER: AJMP HER