Mov A,R1 ;перенесення R1 в А

mov DPTR,#0A004h;

movx @DPTR,A;

call DEL; виклик підпрограми затримки 1 сек

ret; повернення в основну підпрограму

ret; повернення в основну підпрограму

;==================================================

nahriv:;початок підпрограми нагріву проявника

mov A,#000000000b;гасіння всіх розрядів стат. індикатора

mov DPTR,#8001h; занесення адреси стат. індикатора

movx @DPTR,A;

MOV A,#00011111b;занесення в R1 коду засвічення стовпця на ЗСІ

mov DPTR,#08000h; занесення адреси стат. індикатора

movx @DPTR,A;

mov A,#011111110b;занесення в R1 коду засвічення стовпця на ЗСІ

mov DPTR,#08002h; занесення адреси стат. індикатора

movx @DPTR,A;

call DEL1; виклик підпрограми затримки

mov A,#00011111b;занесення в R1 коду засвічення стовпця на ЗСІ

mov DPTR,#08000h; занесення адреси стат. індикатора

movx @DPTR,A;

mov A,#011111100b;занесення в R1 коду засвічення стовпця на ЗСІ

mov DPTR,#08002h; занесення адреси стат. індикатора

movx @DPTR,A;

call DEL1; виклик підпрограми затримки

mov A,#00011111b;занесення в R1 коду засвічення стовпця на ЗСІ

mov DPTR,#08000h; занесення адреси стат. індикатора

movx @DPTR,A;

mov A,#011111000b;занесення в R1 коду засвічення стовпця на ЗСІ

mov DPTR,#08002h; занесення адреси стат. індикатора

movx @DPTR,A;

call DEL1; виклик підпрограми затримки

mov A,#00011111b;занесення в R1 коду засвічення стовпця на ЗСІ

mov DPTR,#08000h; занесення адреси стат. індикатора

movx @DPTR,A;

mov A,#011110000b;занесення в R1 коду засвічення стовпця на ЗСІ

mov DPTR,#08002h; занесення адреси стат. індикатора

movx @DPTR,A;

call DEL1; виклик підпрограми затримки

Ret

Ret

;==================================================

proyavka:; початок процесу проявки

mov A,#000h;дозвіл світіння розрядів статичного індикатора

mov DPTR,#08000h;

movx @DPTR,A;

MOV R5, #03h;

MOV R6, #05h;

CALL WAITING;виклик підпрограми затримки

DRW_DYN:;

;======================= R3 - Address register

;======================= R4 - Data register

MOV DPTR, #08001h;

CJNE R4, #00h, NOT_0; порівняння регістра

MOV A, #0111111b; завантаження в акумулятор

JMP DRV_END;

NOT_0:;

CJNE R4, #01h, NOT_1; порівняння регістра

MOV A, #0110b; завантаження в акумулятор

JMP DRV_END;

NOT_1:;

CJNE R4, #02h, NOT_2; порівняння регістра

MOV A, #001011011b; завантаження в акумулятор

JMP DRV_END;

NOT_2:;

CJNE R4, #03h, NOT_3; порівняння регістра

MOV A, #001001111b; завантаження в акумулятор

JMP DRV_END;

NOT_3:;

CJNE R4, #04h, NOT_4; порівняння регістра

MOV A, #001100110b; завантаження в акумулятор

JMP DRV_END;

NOT_4:;

CJNE R4, #05h, NOT_5; порівняння регістра

MOV A, #001101101b; завантаження в акумулятор

JMP DRV_END;

NOT_5:;

CJNE R4, #06h, NOT_6; порівняння регістра

MOV A, #001111101b; завантаження в акумулятор

JMP DRV_END;

NOT_6:;

CJNE R4, #07h, NOT_7; порівняння регістра

MOV A, #000000111b; завантаження в акумулятор

JMP DRV_END;

NOT_7:;

CJNE R4, #08h, NOT_8; порівняння регістра

MOV A, #001111111b; завантаження в акумулятор

JMP DRV_END;

NOT_8:;

CJNE R4, #09h, NOT_9; порівняння регістра

MOV A, #001101111b; завантаження в акумулятор

JMP DRV_END;

NOT_9:;

MOV A, #010000000b; завантаження в акумулятор

JMP DRV_END;

DRV_END:;

MOVX @DPTR, A;

MOV A, R3;

MOV DPTR, #08002h;виведення на молодший розряд дин. індикатора

MOVX @DPTR, A;

Не нашли, что искали? Воспользуйтесь поиском: