Мікропроцесорна техніка
Отчет по практике - Компьютеры, программирование
Другие отчеты по практике по предмету Компьютеры, программирование
#239; 1
:
csegorg 2000hjmp main; org 2003h; INT0mov DPTR,#0fff2h; movx A,@DPTR; mov DPTR, #0fff1h; movx @DPTR,A; call 0230h; 50mov R0,A; mov @R0,SBUF; mov IE,#0; reti; -main: mov IE, #10000001b; INT0loop:sjmp loop;
2. 7F00 , . 6.2
:
counter equ PSW.5csegorg 2000hjmp main; org 2003h; INT0mov IE,#0;для запобігання спрацьовування непотрібного перериванняmov A,R0call ocall 0220hmov IE, #10000001b; INT0reti; main: mov IE, #10000001b; INT0clr counter; loop:mov DPTR,#0FFF2h; movx A,@DPTRmov DPTR,#0FFF7h; call visual; .call 0230h; sjmp loop; .visual:mov R0,A; .anl A,#0Fh; . call get_num; movx @DPTR,A; . 16- inc DPTR; . mov A,R0; .swap A; . anl A,#0Fhcall get_num; movx @DPTR,A; . 16- ret; o:jb counter,sec; 1?mov R1,A;, setb counter; jmp fist; sec:mov DPH,A;, . mov DPTR,#0FFF9h; call visual; mov A,R1;. mov DPL,A; DPTRmov DPTR,#0FFF7h; . call visual; . l:jmp l; fist:call 0230h; 50 ret; get_num:inc A; 16-movc A,@A+PCretdb 00111111b ;0db 00000110b ;1db 01011011b ;2db 01001111b ;3db 01100110b ;4db 01101101b ;5db 01111101b ;6db 00000111b ;7db 01111111b ;8db 01101111b ;9db 01110111b ;Adb 01111100b ;Bdb 00111001b ;Cdb 010