Код:
INX H
MOV D,M
MOV A,E
,D
OUT
MOV A,E
OUT ZVUK2+1
MOV A,D
OUT ZVUK2+1
POP D
CALL PAUSE
INX B
DCR E
CALL MOEBR
JNZ ZMEL
RET
MEL: DB 1,3,5,6,8,10,12,1,0
TANOT: DW 6,6688,6313,5959,5624,5309,5011
DW 4729,4464,4213,3977,3754,3543
;
;p/p na~alxnoj inicializacii
INIT: LXI H,ERT00
LXI D,ERT00+50
MVI C,PRB
CALL SZAPK
MVI A,0F2H
STA ERT00+35
MVI A,0FEH
STA ERT00+49