Расходомер на основе электромагнитного датчика расхода
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
#228; .
.1 .
; ORG 000H; JMP BEGINORG 100HBEGIN:CLR P1.0; WAIT:JNB P1.1, WAIT; , MOVX A, #00010000B; MOV 30H, A; 30 SETB P1.0; ACALL SPEED; / ACALL VOLUME; / ACALL AMOUNT; / ACALL VOLUME ALL SETB P3.0; / ; DTRNOPNOPCLR P3.0; DTRSETB EA; SETB 1SETB 0ACALL DELAY1; / 1 JMP BEGIN; ; - ORG 40HTABLECOD:DB 3FH; "0"DB 06H; "1"DB 5BH; "2"DB 4FH ; "3"DB 66H; "4"DB 6DH; "5"DB 7DH; "6"DB 87H; "7"DB 7FH; "8"DB 6FH; "9"; . ; : 30 - ; : 50, 51, 52, 53 - , ; , , SPEED:MOV A, 30H; () MOV B, #156; ()<156 MUL AB; ()() <()()MOV R7, A; (R7) < () .. XCH A, B; ()-()MOV R6, A; (R6) < () .. ACALL PREOBR2-210; / MOV 50H, R3; 50 MOV A, R4; ()< (R4)SWAP A; ANL A, 00001111B; ()< ()&0FHMOV 51H, A; 51 MOV A, R4; ()< (R4)ANL A, 00001111B; ()< ()&0FHMOV 52H, A; 52 MOV A, R5; ()< (R5)SWAP A; ANL A, 00001111B; ()< ()&0FHMOV 53H, A; 53 RET; . ; : 30 - .; : 55, 56, 57, 58- , ; , , VOLUME:MOV A, 30H; () MOV B, #59; ()<59 MUL AB; ()() <()()MOV R7, A; (R7) < () .. XCH A, B; ()-()MOV R6, A; (R6) < () .. ACALL PREOBR2-210; / MOV 55H, R3; 55 MOV A, R4; ()< (R4)SWAP A; ANL A, 00001111B; ()< ()&0FHMOV 56H, A; 56 MOV A, R4; ()< (R4)ANL A, 00001111B; ()< ()&0FHMOV 57H, A; 57 MOV A, R5; ()< (R5)SWAP A; ANL A, 00001111B; ()< ()&0FHMOV 58H, A; 58 RET; ; : 5 - , 5