Compucolor.org – Virtual Media

Listing of file='SCRP32.SRC;01' on disk='vmedia/intro_to_soundware-sector.ccvf'

	ORG	0F300H
START:	LXI	D,0038H
	LHLD	0036H
	SPHL
	PUSH	D
	CALL	X17
	DB	0DDH
	MVI	M,7EH
	POP	B
	INR	A
	CALL	7E40H
	CALL	7E37H
	SBI	0FFH
	INR	C
	DB	0DDH
	CMC
	MOV	A,M
	SBI	00H
	DCR	C
	DB	0DDH
	MOV	D,E
	MOV	A,A
	XRI	32H
	NOP
	ANI	0DDH
	DCR	L
	MOV	A,A
	POP	B
	RST	6
	INR	L
	EI
	MOV	D,B
	INR	L
	RM
	POP	B
	CMC
	INR	L
	JM	1DCDH
	MOV	A,M
	INR	L
	CP	25C1H
	INR	L
	PUSH	PSW
	POP	B
	PUSH	PSW
	STA	0FFCCH
	CPI	0FFH
	RST	7
	SBI	20H
	MOV	A,M
	MOV	D,B
	CALL	00E4H
	ADC	B
	INR	A
X02:	MVI	M,0CDH
	XRI	0DEH
	JPE	0C500H
	POP	H
	NOP
	LXI	B,35FEH
	SUB	L
	INR	C
	SBI	0EBH
	DAD	B
	PUSH	B
	JPO	4800H
	DCR	A
	SUB	L
	INR	C
	XRI	0FFH
	CM	0EEE6H
	SPHL
	RST	7
	STA	0A48H
	DCR	A
	ADC	D
	INR	C
	SPHL
	RST	3
	ADD	A
	MOV	C,B
	DCR	M
	ADD	B
	INR	C
	ANI	0C2H
	DCR	A
	ADD	L
	INR	C
	ADD	H
	ANA	C
	LDAX	D
	LDAX	B
	POP	B
	RM
	MOV	B,M
	DCR	C
	MOV	M,C
	INR	C
	ADD	H
	RNC
	DAD	D
	ADD	B
	ANA	B
	STA	09FCH
	MVI	C,1EH
	CC	3DC2H
	MOV	A,A
	INR	C
	CALL	00E1H
	MVI	M,0DEH
	STA	0C51H
	STA	0CAEH
	INR	A
	JC	0F10BH
	ORI	0F9H
	RST	3
	INR	A
	DB	28H
	INR	C
	SBI	0EEH
	RST	7
	RST	7
	STA	0A48H
	DCR	M
	MOV	D,A
	INR	C
	ADD	A
	MOV	C,B
	DCR	M
	MOV	D,A
	INR	C
	LXI	B,3500H
	MOV	E,C
	INR	C
	LDA	0C11AH
	CPI	0CDH
	POP	H
	NOP
	SBI	0EAH
	NOP
	ADD	A
	SPHL
	CPI	32H
	SHLD	320CH
	SHLD	1E0CH
	MVI	A,0BCH
	ADD	M
	DAD	D
	RNZ
	ORA	B
	MVI	M,0C1H
	POP	PSW
	CM	X10
	RST	7
	LDAX	B
	MOV	E,A
	DCR	M
	DCR	D
	INR	C
	ADD	M
	MOV	C,L
	XRA	B
	ADD	A
	RM
	CMP	B
	ADD	H
	LXI	B,86FCH
	DCR	M
	LDAX	B
X03:	INR	C
	RM
	RM
	ORA	B
	MVI	C,0E2H
	DCR	A
	DCR	E
	INR	C
X04:	ADC	L
	CC	0DC8DH
X05	EQU	$ - 1
	ADC	L
	CC	0EE36H
X06:	INR	C
	STA	0C02FH
X07	EQU	$ - 2
	SBI	00H
	DCR	C
	DB	0DDH
	MOV	D,E
	MOV	A,A
	PUSH	B
	CPO	4800H
	DCR	A
	MOV	M,L
	DCX	B
	PUSH	B
	LXI	B,0CD7EH
	XTHL
	NOP
	LXI	B,35FAH
	ANA	B
	DCX	B
	LXI	B,35FBH
	ANA	B
	DCX	B
	POP	B
	DCR	H
	INR	L
	PUSH	PSW
	MVI	M,0FEH
	JMP	00CDH
	MOV	A,M
	PUSH	B
	NOP
	MOV	A,M
	MOV	C,B
	STC
	STA	0B66H
	INR	A
	RNC
	DCX	B
	STA	32C5H
	MOV	A,M
	RP
	DAD	D
	RPO
	MOV	A,E
	DAD	D
	ADD	B
	SBB	B
	MVI	M,0C1H
	STA	0A42H
	PUSH	D
	RST	3
	NOP
	PUSH	B
	RPO
	NOP
	ADC	B
	MOV	D,B
	CALL	7E01H
	CALL	7E00H
	CALL	00E4H
	INR	A
	JC	0C50BH
	SBI	0FFH
	ADC	A
	STA	0BC4H
	DB	0DDH
	DB	0DDH
	NOP
	STA	0B83H
	POP	B
	CPI	0CDH
	CPO	0C500H
	XTHL
	NOP
	LXI	B,33FBH
	LDAX	D
	LDAX	B
	INR	A
	MOV	B,D
	DCX	B
	POP	D
	CMP	C
	CC	0CD81H
	RPO
	NOP
	ORA	B
	RET
	RNZ
	DB	0DDH
	RST	3
	NOP
	MVI	M,0C1H
	PUSH	B
	LXI	B,487EH
	DCR	M
	CNC	0C50BH
	NOP
	MOV	A,M
	LXI	B,35AFH
	CMP	B
	DCX	B
	PUSH	D
	RST	3
	NOP
	PUSH	B
	RPO
	NOP
	ADC	B
	CC	0432H
	DCX	B
	INR	D
	PUSH	D
	DB	0DDH
	NOP
	STA	09F2H
	DCR	M
	CMP	B
	DCX	B
	INR	D
	STA	0B83H
	ADD	D
	LXI	B,33FEH
	RRC
	LDAX	B
	LXI	B,337EH
	RRC
	LDAX	B
	ADD	D
	DAD	D
	MOV	A,A
	CALL	00E2H
	STA	0AFCH
	ADD	M
	LXI	B,0D7FH
	MOV	E,H
	LDAX	B
	ADD	A
	LXI	B,0D7FH
	MOV	A,M
	LDAX	B
	JMP	0E2CDH
	NOP
	PUSH	B
	XTHL
	NOP
	LXI	B,35FBH
	ADD	L
	LDAX	B
	ADD	M
	MOV	C,B
	DCR	M
	MOV	H,D
	LDAX	B
	ADD	A
	LXI	B,05DFH
	MOV	E,H
	LDAX	B
	DCR	A
	INR	C
	DCX	B
	ADD	M
	LXI	B,0DF7H
	MOV	E,H
	LDAX	B
	ADD	A
	ANA	B
	STA	0A00H
	INR	A
	JC	0C50BH
	POP	B
	MOV	A,A
	MOV	B,E
	CMC
	DB	0D9H
	ADC	A
	MVI	M,0FEH
	LDAX	D
	LDA	3287H
	ANA	C
	LDAX	B
	LXI	B,3DDFH
	CMP	L
	LDAX	B
	ADD	M
	LXI	B,0DF7H
	CMP	L
	LDAX	B
	CPI	0F7H
	RST	3
	CNC	1482H
	SBB	L
	DAD	D
	MOV	A,A
	MOV	C,B
	DCR	A
	RC
	LDAX	B
	DAD	SP
	MOV	A,A
	INR	A
	SUI	0AH
	SBI	50H
	IN	90H
	INR	D
	CC	32DCH
	JP	3509H
	CMP	B
	LDAX	B
	ADD	C
	CC	0A132H
	LDAX	B
	MOV	B,A
	DCR	A
	CMP	L
	LDAX	B
	ADD	C
	CC	0546H
	JNC	3E0AH
	MVI	E,36H
	XRI	4DH
	CNC	0D514H
	RST	3
	NOP
	STA	09F2H
	DCR	M
	XRA	C
	LDAX	B
	INR	D
	STA	0B81H
	MVI	A,1EH
	ADC	M
	MVI	E,3CH
	JC	290BH
	LXI	B,077FH
	DAD	H
	MOV	A,A
	LDAX	B
	PUSH	B
	XTHL
	NOP
	LXI	B,35FBH
	ADC	H
	LDAX	B
	PUSH	B
	JPO	4800H
	DCR	M
	ADC	C
	LDAX	B
	MVI	C,36H
	POP	H
	MVI	C,0C1H
	RST	3
	MVI	M,32H
	XRA	M
	INR	C
	INR	A
	JC	0C10BH
	PUSH	B
	XTHL
	NOP
	LXI	B,35FBH
	ADD	L
	LDAX	B
	ADD	D
	LXI	B,057EH
	MOV	L,B
	LDAX	B
	ADD	A
	DAD	H
	MOV	A,A
	CMP	B
	INR	A
	INR	E
	DCX	B
	POP	B
	ADD	M
	DAD	D
	RST	0
	DCR	A
	MOV	E,H
	LDAX	B
	POP	B
	RST	3
	INR	A
	INR	C
	DCX	B
	DAD	B
	PUSH	B
	XTHL
	NOP
	LXI	B,35FBH
	MOV	H,D
	INR	C
	STA	0A48H
	DCR	M
	MOV	H,D
	LDAX	B
	POP	B
	CC	0C3CH
	DCX	B
	LXI	D,1986H
	RNZ
	ADD	M
	MVI	M,0CEH
	PUSH	B
	XTHL
	NOP
	LXI	B,35FAH
	RRC
	LDAX	B
	STA	0A15H
	POP	H
	DB	0FDH
	STA	0A00H
	POP	H
	JPO	0032H
X08:	LDAX	B
	STA	0A20H
	INR	A
	DB	20H
	LDAX	B
	STA	2332H
	LDAX	B
	STA	0A15H
	POP	H
	CP	003CH
	LDAX	B
	XRI	0E1H
	POP	H
	STA	0A00H
	POP	H
	CM	003CH
	LDAX	B
	INX	SP
	PUSH	B
	XTHL
	NOP
	LXI	B,35FBH
	MVI	H,0AH
	POP	H
	JP	0032H
	LDAX	B
	POP	H
	PUSH	PSW
	INR	A
X09:	INR	A
	CZ	0C1EEH
	CM	3344H
	NOP
	LDAX	B
	INR	A
	NOP
	LDAX	B
	SBI	85H
	MOV	B,E
	CMC
	ADD	H
	MOV	B,D
	MVI	M,0DEH
X0A:	ADD	M
	SPHL
	PUSH	PSW
	DB	0EDH
	SBI	0BEH
	ADD	B
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	ADD	B
	XTHL
	DB	0DDH
	DB	0DDH
	CMP	M
	CMP	M
	CMP	M
	CMP	M
	CMP	M
	CMP	M
	DB	0DDH
	DB	0DDH
	XTHL
	CPI	0FEH
	CPI	0FEH
	CPI	0FEH
	CPI	0FEH
	DB	0FDH
	EI
	RST	6
	RST	6
	RST	6
	RST	6
	RST	5
	RST	3
	CMP	A
	CMP	A
	RST	6
	RST	6
	EI
	DB	0FDH
	CPI	0FEH
	CMP	A
	CMP	A
	RST	3
	RST	5
	RST	6
	RST	6
	CM	8FF3H
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RM
	RST	4
	SBB	A
	ADD	B
	CMP	A
	CMP	A
	CMP	A
	CMP	A
	CMP	A
	CMP	A
	CMP	A
	CMP	A
	CMP	A
	CMP	A
	ADD	B
	ADD	B
	CPI	0FEH
	CPI	0FEH
	CPI	0FEH
	CPI	0FEH
	CPI	0FEH
	ADD	B
	ADD	B
	SPHL
	RST	6
	RST	5
	RST	3
	CMP	A
	CMP	A
	RST	3
	RST	5
	RST	6
	SPHL
	ADD	B
	ADD	B
	RST	1
	RST	6
	EI
	DB	0FDH
	CPI	0FEH
	DB	0FDH
	EI
	RST	6
	RST	1
	ADD	B
	ADC	A
	DI
	DB	0FDH
	DB	0FDH
	CPI	0FEH
	CPI	0FEH
	DB	0FDH
	DB	0FDH
	DI
	ADC	A
	RM
	RST	4
	RST	3
	RST	3
	CMP	A
	CMP	A
	CMP	A
	CMP	A
	RST	3
	RST	3
	RST	4
	RM
	CMP	M
	CMP	C
	RST	2
	RST	5
	OUT	0BCH
	CMP	A
	ADC	A
	ORA	A
	CMP	E
	CMP	L
	CMP	M
	CMP	M
	SBI	0EEH
	ORI	0F8H
	CPI	80H
	CMP	M
	CMP	M
	CMP	M
	CMP	M
	CMP	M
	CPI	0F9H
	RST	6
	RST	5
	RST	3
	CMP	A
	CMP	M
	CMP	M
	CMP	M
	CMP	M
	CMP	M
	ADD	B
	CMP	A
	RST	3
	RST	5
	RST	6
	SPHL
	CPI	0BFH
	CMP	A
	CMP	A
	CMP	A
	CMP	A
	CMP	A
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RNC
	RST	7
	RST	7
	RST	7
	RST	7
	CM	X14
	RST	7
	RST	7
	XCHG
	RNZ
	XCHG
	RNZ
	XCHG
	RST	7
	IN	0D5H
	ADD	B
	PUSH	D
	DB	0EDH
	RST	7
	CC	X0B
	SBB	E
	SBB	L
	RST	7
	PUSH	H
	JC	0EFD5H
	RST	2
	RST	7
	RST	7
	RST	7
	EI
	DB	0FDH
	CPI	0FFH
	RST	7
	RST	7
	DI
	DB	0EDH
	SBI	0FFH
	SBI	0EDH
	DI
	RST	7
	RST	7
	RST	7
	DB	0EDH
	DI
	RNZ
	DI
	DB	0EDH
	RST	7
	RST	6
	RST	6
	POP	B
	RST	6
	RST	6
	RST	7
	RST	7
	RST	2
	RST	4
	RST	7
	RST	7
	RST	7
	RST	6
	RST	6
	RST	6
	RST	6
	RST	6
	RST	7
	RST	7
	RST	1
	RST	1
	RST	7
	RST	7
	RST	7
	RST	3
	RST	5
	RST	6
	EI
	DB	0FDH
	RST	7
	POP	H
	ACI	0D2H
	CC	0FFE1H
	RST	7
	DB	0DDH
	RNZ
	RST	3
	RST	7
	RST	7
	CALL	0D6D6H
	SUI	0D9H
	RST	7
	XRI	0DEH
	SUI	0D2H
	CPO	0E7FFH
	XCHG
	DB	0EDH
	RNZ
	RST	5
	RST	7
	RPE
	JC	0DADAH
	ANI	0FFH
	POP	H
	JC	0DADAH
	ANI	0FFH
	SBI	0EEH
	ORI	0FAH
	CM	0E5FFH
	JC	0DADAH
	PUSH	H
	RST	7
	DB	0FDH
	JC	0EADAH
	POP	PSW
	RST	7
	RST	7
	RST	7
	XCHG
	RST	7
	RST	7
	RST	7
	RST	7
	RST	3
	XCHG
	RST	7
	RST	7
	RST	7
	RST	7
	RST	6
	XCHG
	DB	0DDH
	CMP	M
	RST	7
	XCHG
	XCHG
	XCHG
	XCHG
	XCHG
	RST	7
	CMP	M
	DB	0DDH
	XCHG
	RST	6
	RST	7
	RST	7
	DB	0FDH
	CPI	0D6H
	JM	0FFFDH
	POP	B
	CMP	M
	ANA	D
	XRA	D
	ANA	C
	RST	7
	POP	B
	ORI	0F6H
	ORI	0C1H
	RST	7
	RNZ
	JC	0DADAH
	PUSH	H
	RST	7
	POP	H
	SBI	0DEH
	SBI	0EDH
	RST	7
	RNZ
	SBI	0DEH
	SBI	0E1H
	RST	7
	RNZ
	JC	0DEDAH
	SBI	0FFH
	RNZ
	JM	X15
	CPI	0FFH
	POP	H
	SBI	0DEH
	SUI	0C6H
	RST	7
	RNZ
	EI
	EI
	EI
	RNZ
	RST	7
	RST	7
	SBI	0C0H
	SBI	0FFH
	RST	7
	RST	5
	RST	3
	RST	3
	RST	3
	RPO
	RST	7
	RNZ
	RST	6
	DI
	DB	0EDH
	SBI	0FFH
	RNZ
	RST	3
	RST	3
	RST	3
	RST	3
	RST	7
	RNZ
	DB	0FDH
	EI
	DB	0FDH
	RNZ
	RST	7
	RNZ
	DB	0FDH
	DI
X0B:	RST	5
	RNZ
	RST	7
	POP	H
	SBI	0DEH
	SBI	0E1H
	RST	7
	RNZ
	JM	X0F
	DB	0FDH
	RST	7
X0C:	POP	H
	SBI	0D6H
	XRI	0D1H
	RST	7
	RNZ
	JM	0EAF2H
	DB	0DDH
	RST	7
	DB	0EDH
	JC	0D6D6H
	DB	0EDH
	RST	7
	CPI	0FEH
	RNZ
	CPI	0FEH
	RST	7
	RPO
	RST	3
	RST	3
	RST	3
	RPO
	RST	7
	RP
	RST	5
	RST	3
	RST	5
	RP
	RST	7
	RNZ
	RST	5
	RST	6
	RST	5
	RNZ
	RST	7
	ACI	0F5H
	EI
	PUSH	PSW
	ACI	0FFH
	CM	0C7FBH
	EI
	CM	0DEFFH
	ACI	0D2H
	CC	0FFDEH
	RST	7
	RST	7
	RNZ
	SBI	0DEH
	RST	7
	DB	0FDH
	EI
	RST	6
	RST	5
	RST	3
	RST	7
	SBI	0DEH
	RNZ
	RST	7
	RST	7
	RST	7
	EI
	DB	0FDH
	CPI	0FDH
	EI
	RST	3
	RST	3
	RST	3
	RST	3
	RST	3
	RST	3
	XRA	D
	PUSH	D
	XRA	D
	PUSH	D
	XRA	D
	PUSH	D
	EI
	DB	0D9H
	RET
	RNZ
	RNZ
	DB	0D9H
	ADD	B
	CMP	A
	RST	3
	RST	5
	RST	1
	ORA	A
	RST	7
	OUT	0DAH
	RNZ
	JC	0FFD3H
	DI
	POP	H
	RNZ
	POP	H
	DI
	DB	0FDH
	DB	0FDH
	DB	0FDH
	DB	0FDH
	DB	0FDH
	DB	0FDH
	EI
	EI
	EI
	EI
	EI
	EI
	RST	6
	RST	6
	RST	6
	RST	6
	RST	6
	RST	6
	RST	7
	CM	0C3F0H
	RP
	CM	0EFEFH
	RST	5
	RST	5
	RST	5
	RST	5
	CMP	M
	CMP	M
	CMP	M
	CMP	M
	CMP	M
	CMP	M
	CMP	L
	ADC	L
	ADD	B
	ADD	B
	ADC	L
	CMP	L
	RST	7
	ADD	B
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	ADD	B
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	ADD	B
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	ADD	B
	RST	7
	RST	7
	RST	7
	IN	0C1H
	IN	0FFH
	CMP	H
	ADC	L
	ADD	B
	ADD	B
	ADC	L
	CMP	H
	RST	7
	SBI	0C1H
	RNZ
	POP	B
	SBI	0FFH
	RST	6
	OUT	0C0H
	OUT	0F7H
	ADC	A
	ADD	E
	ADD	C
	ADD	C
	ADD	B
	ADD	B
	ADD	B
	ADD	B
	ADD	C
	ADD	C
	ADD	E
	ADC	A
	RM
	RPO
	RNZ
	RNZ
	ADD	B
	ADD	B
	ADD	B
	ADD	B
	RNZ
	RNZ
	RPO
	RM
	CMP	M
	RET
	RST	6
	RST	6
	RET
	CMP	M
	ADC	A
	DI
	CM	0FFFFH
	RST	7
	RST	7
	RST	7
	RST	7
	SBB	A
	RST	4
	RM
	RPO
	DB	0DDH
	DB	0DDH
	CMP	M
	CMP	M
	CMP	M
	ADD	B
	ADD	C
	ADD	A
X0D:	ADC	A
	SBB	A
	CMP	A
	CMP	M
	CMP	M
	CMP	M
	DB	0DDH
	DB	0DDH
	ADD	E
	CMP	A
	SBB	A
	ADC	A
	ADD	A
	ADD	C
	ADD	B
	RST	3
	RST	3
	RST	3
	RST	3
	RST	3
	RST	3
	ADD	B
	RST	7
	RST	7
	RP
	RST	1
	CMP	A
	ADD	B
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	ADD	B
	RM
	RST	4
	RST	4
	SBB	A
	SBB	A
	SBB	A
	SBB	A
	SBB	A
	SBB	A
	RST	4
	RST	4
	RM
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	CPI	0F9H
	SPHL
	RST	4
	SBB	A
	SBB	A
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	SBB	A
	SBB	A
	RST	4
	SPHL
	SPHL
	CPI	0FFH
	CM	0FF83H
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	CM	8083H
	SBB	A
	SBB	A
	SBB	A
	SBB	A
	SBB	A
	SBB	A
	SBB	A
	SBB	A
	SBB	A
	SBB	A
	ADD	B
	ADD	B
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	ADD	B
	ADD	B
	RST	7
	RST	7
	CM	0BFC3H
	CMP	A
	JMP	0FFFCH
	RST	7
	ADD	B
	ADD	B
	XTHL
	CM	0FFFFH
	RST	7
	RST	7
	RST	7
	RST	7
	CM	80E3H
	ADD	B
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	ADD	B
	RST	7
	RM
	RST	4
	RST	4
	SBB	A
	SBB	A
	SBB	A
	SBB	A
	RST	4
	RST	4
	RM
	RST	7
	SBB	A
	SBB	A
	RST	4
	CPO	9CE3H
	SBB	A
	ADD	E
	SBB	H
	SBB	A
	SBB	A
	SBB	A
	CMP	A
	JMP	0FFFCH
	RST	7
	RST	7
	ADD	B
	SBB	A
	SBB	A
	SBB	A
	SBB	A
	SBB	A
	RST	7
	RST	7
	RST	7
	CM	0BFC3H
	SBB	A
	SBB	A
	SBB	A
	SBB	A
	SBB	A
	ADD	B
	CMP	A
	JMP	0FFFCH
	RST	7
	RST	7
	SBB	A
	SBB	A
	SBB	A
	SBB	A
	SBB	A
	SBB	A
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	1
	RST	1
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	CM	X12
	RNZ
	CM	X0E
	SPHL
	RNZ
	SPHL
	CPI	0FFH
	DI
	CM	0C3FFH
	JMP	0F0FFH
	RST	1
	CZ	0CCF3H
	RST	7
X0E:	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	CM	0CFF3H
	RST	7
	RST	1
	DI
	CM	0FFFFH
	RST	7
	DI
	CM	X12
	DI
	RST	7
	RST	7
	RST	7
	RNZ
	RST	7
	RST	7
	RST	7
	RST	7
	RST	1
	RP
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	0
	RST	0
	RST	7
	RST	7
	RST	7
	DI
	CM	0FFFFH
	RST	7
	RST	7
	RP
	CZ	0CFCFH
	RP
	RST	7
	RST	7
	RST	1
	RNZ
	RST	1
	RST	7
	RST	7
	RNZ
	RST	1
	RST	1
	RST	1
	RST	1
	RST	7
	DI
	RST	1
	RST	1
	RST	1
	RP
	RST	7
	CM	X13
	RNZ
	CM	X05
	RST	1
	RST	1
	RST	1
	RP
	RST	7
	RP
	RST	1
	RST	1
	RST	1
	RP
	RST	7
	RST	1
	DI
	CM	0FFFFH
	RST	7
	RP
	RST	1
	RST	1
	RST	1
	RP
	RST	7
	RST	1
	RST	1
	RST	1
	DI
	CM	0FFFFH
	CM	0FFFCH
	RST	7
	RST	7
	RST	7
	RST	1
	RP
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	CM	0CFF3H
	RST	7
	CM	X13
	CM	0FFFCH
	RST	7
	RST	1
	DI
	CM	0FFFFH
	RST	7
	RST	7
	CZ	0FFFFH
	RST	7
	CM	0CCF3H
	CZ	0FFCCH
	RNZ
	CM	X13
	RNZ
	RST	7
	RNZ
	RST	1
	RST	1
	RST	1
	RP
	RST	7
	RP
	RST	1
	RST	1
	RST	1
	DI
	RST	7
	RNZ
	RST	1
	RST	1
	RST	1
	RP
	RST	7
	RNZ
	RST	1
	RST	1
	RST	1
	RST	1
	RST	7
	RNZ
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RP
	RST	1
	RST	1
	CZ	0FFC0H
	RNZ
	RST	7
	RST	7
	RST	7
	RNZ
	RST	7
	RST	7
	RST	1
	RNZ
	RST	1
	RST	7
	RST	7
	DI
	RST	1
	RST	1
	RST	1
	RP
	RST	7
	RNZ
	RST	7
	CM	0CFF3H
	RST	7
	RNZ
	RST	1
	RST	1
	RST	1
	RST	1
	RST	7
	RNZ
	RST	7
	RST	7
	RST	7
	RNZ
	RST	7
	RNZ
	RST	7
	RST	7
	CM	0FFC0H
	RP
	RST	1
	RST	1
	RST	1
	RP
	RST	7
	RNZ
	RST	7
	RST	7
	RST	7
	RST	7
X0F:	RST	7
	RP
	RST	1
	CZ	0CCF3H
	RST	7
	RNZ
	RST	7
	CM	0CFF3H
	RST	7
	DI
	RST	1
	RST	1
	RST	1
	RP
	RST	7
	RST	7
	RST	7
	RNZ
	RST	7
	RST	7
	RST	7
	RP
	RST	1
	RST	1
	RST	1
	RP
	RST	7
	RST	7
	RP
	RST	1
	RP
	RST	7
	RST	7
	RNZ
	DI
	CM	0C0F3H
	RST	7
	JMP	0FFFCH
	CM	0FFC3H
	RST	7
	RST	7
	RNZ
	RST	7
	RST	7
	RST	7
	JMP	0CFCCH
	RST	1
	RST	1
	RST	7
	RST	7
	RST	7
	RNZ
	RST	1
	RST	1
	RST	7
	RST	7
	RST	7
	CM	X0C
	RST	7
	RST	1
	RST	1
	RNZ
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	1
	RST	1
	RST	1
	RST	1
	RST	1
	RST	1
	CZ	0CCB3H
	ORA	E
	CZ	0FFB3H
	RST	1
	JMP	0C0C0H
	RST	1
	ADD	B
	RST	3
	RST	4
	EI
	XTHL
	SBB	H
	RST	7
	CM	0C3CCH
	CZ	0FFFCH
	CM	0C0F0H
	RP
	CM	0FFFFH
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	CM	X12
	RST	7
	CM	X13
	CM	X13
	SBB	A
	SBB	A
	SBB	A
	SBB	A
	SBB	A
	SBB	A
	SBB	A
	ADD	E
	ADD	B
	ADD	B
	ADD	E
	SBB	A
	RST	7
	ADD	B
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	ADD	B
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	ADD	B
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	ADD	B
	RST	7
	RST	7
	RST	7
	RST	1
	RNZ
	RST	1
	RST	7
	SBB	A
	ADD	E
	ADD	B
	ADD	B
	ADD	E
	SBB	A
	RST	7
	RST	1
	RNZ
	RNZ
	RNZ
	RST	1
	RST	7
	CM	0C0CCH
	CZ	80FCH
	ADD	B
	ADD	B
	ADD	B
	ADD	B
	ADD	B
	ADD	B
	ADD	B
	ADD	B
	ADD	B
	ADD	B
	ADD	B
	RST	7
	RM
	RPO
	RPO
	ADD	B
	ADD	B
	ADD	B
	ADD	B
	RPO
	RPO
	RM
	RST	7
	CMP	A
	JMP	X13
	JMP	83BFH
	CM	0FFFFH
X10:	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	ADD	E
	CM	X0D
	RST	4
	RST	4
	SBB	A
	SBB	A
	SBB	A
	ADD	B
	ADD	B
	ADD	B
	ADD	B
	ADD	A
	SBB	A
	SBB	A
	SBB	A
	SBB	A
	RST	4
	RST	4
	ADD	B
	SBB	A
	ADD	A
	ADD	B
	ADD	B
	ADD	B
	ADD	B
	DI
	DI
	DI
	DI
	DI
	DI
	SBB	M
	POP	H
	SBB	C
	SPHL
	CPI	0FEH
	ADD	B
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	ADD	B
	ADC	A
	DI
	DI
	CM	X13
	CM	X13
	DI
	DI
	ADC	A
	CM	X13
	CM	X13
	CM	X04
	RST	1
	RST	1
	CMP	A
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	CMP	A
	RST	1
	RST	1
	DI
	CM	0FFFCH
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RPO
	SBB	A
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RPO
	SBB	A
	RST	7
	ADD	B
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	ADD	B
	ADD	B
	CM	X13
	CM	X13
	CM	X13
	CM	8080H
	ADD	E
	SBB	A
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	SBB	A
	ADD	E
	ADD	B
X11:	ADD	B
	RST	7
	RST	7
	SBB	A
	XTHL
	CM	0E3FCH
	SBB	A
	RST	7
	RST	7
	ADD	B
	RST	7
	ADC	A
	DI
	DI
	CM	X13
	CM	X03
	ADC	A
	RST	7
	ADD	B
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	ADD	B
	CM	8FF3H
	RST	7
	RST	7
	ADD	B
	RST	7
	RST	7
	RST	7
	SBB	A
	XTHL
	CM	X13
	CM	0E09CH
	CM	X11
	CM	X13
	CM	0E3FCH
	SBB	A
	RST	7
X12:	RST	7
	RST	7
	CM	X13
	CM	80FCH
	RST	7
	RST	7
	RST	7
	SBB	A
	XTHL
	CM	0FFFFH
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	ADD	B
	RST	7
	RST	7
	RST	7
	RST	7
	RPO
	RST	7
	RPO
	RST	7
	RST	7
	RST	4
	ADD	B
	RST	4
	ADD	B
	RST	4
	RST	1
	ADD	E
	ADD	B
	ADD	B
	ORA	E
	DI
	RST	7
	RP
	RP
	SBB	A
	RST	5
	DI
	RST	7
	XTHL
	SBB	H
	XTHL
X13:	RST	7
	RST	7
	RST	7
X14:	RST	7
	RST	7
	RST	1
	DI
	CM	0FFFFH
	RST	7
	ADC	A
	DI
	CM	X14
	DI
	ADC	A
	RST	7
	RST	7
	RST	7
	DI
	RST	1
	ADD	B
	RST	1
	DI
	RST	7
	SBB	A
	SBB	A
	ADD	B
	SBB	A
	SBB	A
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	SBB	A
	SBB	A
	SBB	A
	SBB	A
	SBB	A
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	SBB	A
	RST	4
	SPHL
	RST	7
	ADD	E
	CM	0E49CH
	ADD	E
	RST	7
	RST	7
	DI
	ADD	B
	RST	7
	RST	7
	RST	7
	DI
	SBB	H
	SBB	H
	SBB	H
	XTHL
	RST	7
	CM	9C9CH
	ADC	H
	RP
	RST	7
	SBB	A
	RST	4
	EI
	ADD	B
	RST	7
	RST	7
	RNZ
	CZ	0CCCCH
	CMP	H
	RST	7
	ADC	A
	SUB	E
	SBB	H
	SBB	H
	CM	X14
	CM	9CFCH
	RPO
	RST	7
	XTHL
	SBB	H
	SBB	H
	SBB	H
	XTHL
	RST	7
	XTHL
	SBB	H
	SBB	H
	SBB	H
	ADD	E
	RST	7
	RST	7
	RST	1
	RST	1
	RST	7
	RST	7
	RST	7
	RST	7
	RST	1
	RST	1
	RST	7
	RST	7
	RST	7
	RST	7
	SBB	A
	RST	4
	EI
	CM	0CFFFH
	RST	1
	RST	1
	RST	1
	RST	1
	RST	7
	CM	0E7FBH
	RST	3
	CMP	A
	RST	7
	DI
	CM	9CFCH
	XTHL
	RST	7
	ADD	A
	SPHL
	ADD	M
	ANI	81H
	RST	7
	ADD	E
	CM	X13
	ADD	E
	RST	7
	ADD	B
	SBB	H
	SBB	H
	SBB	H
	XTHL
	RST	7
	ADD	E
	CM	X13
	DI
	RST	7
	ADD	B
	CM	X13
	ADD	E
	RST	7
	ADD	B
	SBB	H
	SBB	H
	SBB	H
	CM	80FFH
	SBB	H
	SBB	H
	SBB	H
	CM	83FFH
	CM	X13
	CM	80FFH
	SBB	A
	SBB	A
	SBB	A
	ADD	B
	RST	7
	RST	7
	CM	X11
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	ADD	B
	RST	7
	ADD	B
	CMP	A
	RST	1
	DI
	CM	80FFH
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	ADD	B
	DI
	ADC	A
	DI
	ADD	B
	RST	7
	ADD	B
	RST	4
	SBB	A
	RST	7
	ADD	B
	RST	7
	ADD	E
	CM	X13
	ADD	E
	RST	7
	ADD	B
	SBB	H
	SBB	H
	SBB	H
	XTHL
	RST	7
	ADD	E
	CM	X13
	ADD	E
	RST	7
	ADD	B
	SBB	H
	SBB	H
	SBB	H
	XTHL
	RST	7
	XTHL
	SBB	H
	SBB	H
	SBB	H
	DI
	RST	7
	CM	80FCH
	CM	0FFFCH
	ADD	B
	RST	7
	RST	7
	RST	7
	ADD	B
	RST	7
	ADD	B
	RST	7
	RST	7
	RST	7
	ADD	B
	RST	7
	ADD	B
	RST	7
	CMP	A
	RST	7
	ADD	B
	RST	7
	RM
	RST	4
	SBB	A
	RST	4
	RM
	RST	7
	RM
	RST	4
	SBB	A
	RST	4
	RM
	RST	7
	CM	9CFCH
	CPO	0FFF8H
	RST	7
	RST	7
	ADD	B
	CM	0FFFCH
	DI
	RST	5
	SBB	A
	RST	7
	RST	7
	RST	7
	CM	80FCH
	RST	7
	RST	7
	RST	7
	RST	1
	DI
	CM	0CFF3H
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	ANI	99H
	ANI	99H
	ANI	99H
	SBB	A
	ADD	A
	ADD	C
	ADD	B
	ADD	B
	XTHL
	ADD	B
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	SBB	A
	SBB	B
	ADD	B
	SBB	B
	SBB	A
	RST	7
	ADC	A
	ADD	E
	ADD	B
	ADD	E
	ADC	A
	DI
	DI
	DI
	DI
	DI
	DI
	RST	4
	RST	4
	RST	4
	RST	4
	RST	4
	RST	4
	SBB	A
	SBB	A
	SBB	A
	SBB	A
	SBB	A
	SBB	A
	RST	7
	RPO
	ADD	B
	SBB	A
	ADD	B
	RPO
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	CM	X13
	CM	X13
	DI
	DI
	ADD	B
	ADD	B
	DI
	DI
	RST	7
	ADD	B
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	ADD	B
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	ADD	B
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	ADD	B
	RST	7
	RST	7
	RST	7
	SBB	A
	ADD	A
	SBB	A
	RST	7
	RP
	DI
	ADD	B
	ADD	B
	DI
	RP
	RST	7
	CM	8083H
	ADD	E
	CM	9FFFH
	ADD	A
	ADD	B
	ADD	A
	SBB	A
	RST	7
	ADC	A
	ADD	E
	ADD	E
	ADD	B
	ADD	B
	ADD	B
	ADD	B
	ADD	E
	ADD	E
	ADC	A
	RST	7
	ADD	B
	ADD	B
	ADD	B
	ADD	B
	ADD	B
	ADD	B
	ADD	B
	ADD	B
	ADD	B
	ADD	B
	ADD	B
	ADD	B
	CPI	0E1H
	SBB	A
	SBB	A
	POP	H
	CPI	0FFH
	SBB	A
	RPO
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	SBB	A
	RPO
	ADD	B
	DI
	DI
	CM	X13
X15	EQU	$ - 2
	ADD	B
	ADD	E
	SBB	A
	RST	7
	RST	7
	RST	7
	CM	X13
	DI
	DI
	ADC	A
	RST	7
	RST	7
	RST	7
	SBB	A
	ADD	E
	ADD	B
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
	RST	7
X16:	PUSH	H
X17:	POP	D
	DCR	E
	DCR	E
	DCR	E
	PUSH	D
	LDA	0001H
	CPI	6CH
	JNZ	X18
	LXI	H,0CC3CH
	SHLD	X09
	LXI	H,0CD36H
	SHLD	X02
	LXI	H,0C02FH
	SHLD	X07
	JMP	X19
X18:	LXI	H,0E806H
	SHLD	X09
	LXI	H,X08
	SHLD	X07
	LXI	H,0E900H
	SHLD	X02
X19:	LXI	H,X1A
X1A:	LDAX	D
	CMA
	STAX	D
	INX	D
	MOV	A,M
	CPI	0E5H
	JZ	X1B
	PCHL
	LXI	SP,21D1H
X1B	EQU	$ - 2
	MOV	L,L
	RST	7
	MVI	A,21H
	PUSH	D
	STAX	D
	INX	D
	LXI	B,X06
	MOV	A,C
	STAX	D
	INX	D
	MOV	A,B
	STAX	D
	XRA	A
	LXI	B,X16
	MVI	D,0C9H
	STAX	B
	INX	B
	PCHL
	LXI	H,X0A
	NOP
	RST	7
	RST	7
	NOP
	NOP
	RST	7
	RST	7
	NOP
	NOP
	RST	7
	RST	7

	END	START