自行车行程速度毕业设计(8)

中州大学毕业设计

;;;;;;;;;;;;;;;;; ;;INTT1 PROGRAM;; ;;;;;;;;;;;;;;;;; ;

; INTT1: PUSH ACC PUSH PSW INC 6CH MOV A,6CH JNZ INTT11 INC 6DH MOV A,6DH JNZ INTT11 SETB 00H INTT11: POP PSW POP ACC RETI ;

;;;;;;;;;;;;;;;;; ;; DISPLAY S ;; ;;;;;;;;;;;;;;;;; ; ;

DISPLAYS:SETB P1.0 CLR P1.1 SETB P3.7 LCALL SSS LCALL DISPLAY LJMP START1 ; ;

;;;;;;;;;;;;;;;;; ;; DISPLAY V ;; ;;;;;;;;;;;;;;;;; ;

DISPLAYV:CLR P1.0 SETB P1.1 CLR P3.7 LCALL VVV MOV A,71H SUBB A,#04H JNC WARING SETB P3.1

36

中州大学毕业设计

V1: LCALL DISPLAY RET

WARING: CLR P3.1 AJMP V1 ;

;;;;;;;;;;;;;;;;; ;; VIICWRITE ;;

;;;;;;;;;;;;;;;;; VIICWRITE:ACALL WMOV9 MOV SLA,#SLAW MOV NUMBYT,#09H LCALL WRNBYT RET

WMOV9: MOV 5FH,#50H MOV R0,#MTD MOV R1,#5FH MOV R2,#09H WMOV: MOV A,@R1 MOV @R0,A INC R0 INC R1

DJNZ R2,WMOV RET ;

;;;;;;;;;;;;;;;;;;;;; ;;DISPLAY PROGRAM ;;

;;;;;;;;;;;;;;;;;;;;; ;

DISPLAY: MOV R1,#70H MOV R2,#0FEH PLAY: MOV A,R2 MOV P2,A MOV A,@R1 ANL A,#0FH MOV DPTR,#TAB MOVC A,@A+DPTR MOV P0,A LCALL DL1MS INC R1 MOV A,R2

JNB ACC.3,ENDOUT RL A MOV R2,A AJMP PLAY

37

中州大学毕业设计

ENDOUT: SETB P2.0 SETB P2.1 SETB P2.2 SETB P2.3 RET

TAB: DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H DB 7FH,6FH,77H,7CH,39H,5EH,79H,71H DB 00H ; ;;;;;;;;;;;;;;;;; ;;SSS PROGRAM ;; ;;;;;;;;;;;;;;;;;;;; ;

SSS: MOV 19H,#64H MOV 18H,#00H MOV 17H,#00H MOV 16H,#00H MOV 11H,#00H MOV 12H,#00H MOV 13H,62H MOV 14H,61H MOV 15H,60H LCALL DIVST LCALL BCDST MOV A,25H ANL A,#0FH MOV 70H,A MOV A,25H SWAP A

ANL A,#0FH MOV 71H,A MOV A,24H ANL A,#0FH MOV 72H,A MOV A,24H SWAP A

ANL A,#0FH MOV 73H,A RET ; ;

;;;;;;;;;;;;;;;;;;;; ;;VVV PROGRAM ;; ;;;;;;;;;;;;;;;;;;;; ;

38

中州大学毕业设计

VVV: MOV 18H,68H MOV 17H,69H MOV 16H,6AH MOV 11H,#00H MOV 12H,#00H MOV 13H,#36H MOV 14H,#0EEH MOV 15H,#80H LCALL DIVST

MOV 14H,#00H LCALL BCDST MOV A,25H ANL A,#0FH MOV 70H,A MOV A,25H SWAP A

ANL A,#0FH MOV 71H,A MOV 72H,#00H MOV 73H,#00H RET ; ;

;;;;;;;;;;;;;;;;;;;; ;; DL1MS ;; ;;;;;;;;;;;;;;;;;;;; ;

DL1MS: MOV R6,#14H DL1: MOV R7,#19H DL2: DJNZ R7,DL2 DJNZ R6,DL1 RET ;

;;;;;;;;;;;;;;;;;; ; DL0.5S ; ;;;;;;;;;;;;;;;;;; ;

DL5S: MOV R5,#0FFH DL3: LCALL DL1MS DJNZ R5,DL3 RET ;

;;;;;;;;;;;;;;;;;;;; ; 除法子程序 ;;

39

中州大学毕业设计

;;;;;;;;;;;;;;;;;;;; ;

DIVST: CLR C MOV A,13H SUBB A,18H MOV A,12H SUBB A,17H MOV A,11H SUBB A,16H JNC LOOP4 MOV B,#10H

NDIV1: CLR C MOV A,15H RLC A MOV 15H,A MOV A,14H RLC A MOV 14H,A MOV A,13H RLC A MOV 13H,A MOV A,12H RLC A MOV 12H,A MOV A,11H RLC A MOV 11H,A MOV F0,C CLR C MOV A,13H SUBB A,18H MOV 1AH,A MOV A,12H SUBB A,17H MOV 19H,A MOV A,11H SUBB A,16H JB F0,NDIV2 JC NDIV3 NDIV2: MOV 11H,A MOV A,19H MOV 12H,A MOV A,1AH MOV 13H,A

40

中州大学毕业设计

INC 15H NDIV3: DJNZ B,NDIV1 CLR F0 DIVEND: RET

LOOP4: SETB F0 SJMP DIVEND ;

;;;;;;;;;;;;;;;;;;;; ; BCD码转换程序 ; ;;;;;;;;;;;;;;;;;;;; ;

BCDST: MOV R7,#10H CLR C

MOV 25H,#00H MOV 24H,#00H KKK: MOV A,15H RLC A MOV 15H,A MOV A,14H RLC A MOV 14H,A MOV A,25H ADDC A,25H DA A MOV 25H,A MOV A,24H ADDC A,24H DA A MOV 24H,A DJNZ R7,KKK RET END

41