Синтезатор частот.8031. Приемник Полякова

[Verechan]

Код: Выделить всё

MOV R2,#25
HNG3:
DEC R2
MOV A,R2
JNZ HNG3
RET
ORG 160
ANL DPH,#03
MOV R7,#FF
COD1:
INC R7
CLR C
SUBB DPL,#C8
SUBB DPH,#03
JNC COD1
MOV R3,R7
CLR C
ADDC DPL,#C8
ADDC DPH,#03
MOV R7,#FF
COD2:
INC R7
CLR C
SUBB DPL,#64

[Verechan]

Код: Выделить всё

SUBB DPH,#0
JNC COD2
MOV R4,R7
CLR C
ADDC DPL,#64
ADDC DPH,#0
MOV R7,#FF
COD3
INC R7
CLR C
SUBB DPL,#A
SUBB DPH,#0
JNC COD3
MOV R5,R7
CLR C
ADDC DPL,#A
ADDC DPH,#0
MOV R7,#FF
CD
INC R7
CLR C
SUBB DPL,#1
JNC CD
RETI