Динамо-машины  Однокристальные микроконтроллеры 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 [ 62 ] 63

lcd 00:

Idr raquo;c,60h

movl %cO,00000010b ; возврат в 1 позицию jsr reglst jsr fik ir

movl %cO, 00001100b ; код включения дисплея jsr reglst jsr fik lr

movl %cO, 00111000b ; код разрядности и строчности

jsr reglst

jsr fik lr

movl %a7,01111101b

cmp %a0,%a7

jnc lcd 00

movl %c0,20h

jsr reglst

jsr fik dr

jmp lcd 01

movl %c0,2dh jsr reglst jsr fik dr movl %a7,01h cmp %a1,%a7 jz lcd 02

movl %a7,11111111b sub %a7,%a0 mov %a0,%a7 jmp lcd 01

led 02:

led 01;

movl %a7,11111111b sub %a7,%aO inc %a7 mov %a0,%a7

jsr dsat ;перевод из 2x в 1-х

mov %c0,%a2

jsr reglst

jsr fik dr

mov %c0,%a3

jsr reglst

jsr fik dr

mov %c0,%a4

jsr reglst

jsr fik dr

movl %cO, 10101000b ;для WM-0801 jsr reglst ;для WM-0801

jsr fik ir ;для WM-0801

movl %cO, 2ch ; символ ., gt;

jsr reglst jsr fik dr movl %a7,10000000b and %a1,%a7

cmp %a1,%a7 ]z lcd03 movl %c0,30h jsr regist jsr fik dr jmp lcd 04

movl %c0,35h jsr regist jsr fik dr

movl %cO,Odfh jsr regist jsr fik dr movl %c0,43h jsr regist jsr fik dr pop laquo;c rts

mov %c5,%c0 movl %c3,08h

процедура -иабивки raquo; регистра LCD

movl %c4,00h rlc %c5 ado %c4 swap %c4 mov %d2,%c4 swap %c4

movl %c2, 00000010b or %c4,%c2 swap %c4 mov %d2,%c4 swap %c4

movl %c2,00000001b and %c4,%c2 swap %c4 mov %d2,%c4 subl %c3,01h cmpl %c3,00h jnz reg 01 rts

;======= процедура перевода чисел 2x в Юх

mov %b1,%aO

movl %Ь4,01100100b

jsr count

movl %b7,00110000b

or %Ь5,%Ь7

mov %a2,%b5

movl %b4,00001010b

jsr count

or %Ь5,%Ь7

count:

cuu 00:

-Tiov %d3. %ЬЬ movl %Ь4,01п jsr count or %Ь5,%Ь7

mov %а4,%Ь5 rts

movl %b5,00h

cmp %b1,%b4 jc cou 01 jz cou Oi addl %b5,0in sub %bl,%b4 imp cou 00

процедура 1реобразовачия одного числа 2х в 10х

fik ,r:

rik dr

movl %d2,00000011b

nop nop

movl %d2,01000011b

movl %a2,0000001 :b

I ts

movl %d2, 10000011b

movl %d2,11000011b

movl %d2,10000011b

movl %d gt;,00000011b

фиксация в IR

фиксация в on

, end