Эмулятор ТИА-МЦ-1 EmuStudio

[AlexBel]

В дампе игры "Снежная королева" есть кусок исходника на Ассемблере.

Вот это?

Скрытый текст

	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

[свернуть]