Функціональний генератор інфранизької частоти на базі мікропроцесорної системи, Детальна інформація

Ind: djnz R1, kbd ; dinamic indication

mov R1, #80 ; Find = 500 Hz

mov A, R3 ;

mov P0, #00 ;

jz Ind_T ;

mov R3, #00 ;

mov A, R6 ;

call Decode ;convert binary to

mov P1, A ;7-segment

mov P0, #02 ;Out

jmp kbd ;

Ind_T: mov R3, #01 ;show T

mov A, R7 ;

call Decode ;convert binary to 7-segment code

mov P1, A ; Out

mov P0, #01 ;turn on indicator

kbd: mov A, P3 ;check keyboard

anl A, #00000011b ;mask

mov R1, A ;

xrl A, R2 ;

jz Exit2 ;no change

jb ACC.0, check_T ;key1 chenged

mov A, R2 ;

jb ACC.1, Exit3 ;

mov A, R6 ;

jb ACC.0, A1 ;

jb ACC.1, A2 ;

mov R6, #01 ;set A=A0

jmp End_a ;

A2: mov R6, #04 ;set A=A0/4