Compucolor.org – Virtual Media

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

SM000:	STA   00F00H
SM003:	NOP
SM004:	INR   D
	NOP
SM005:	INR   D
	NOP
	MOV   A,E
	CPI   000H
	JNZ   SM016
SM006:	MVI   C,008H
	DI
	LDA   SM039
	MOV   B,A
	ANI   007H
	CALL  SM008
	MOV   A,B
	ANI   003H
	CNZ   SM009
	MOV   A,B
	ANI   004H
	JNZ   SM00B
SM007:	LHLD  SM002
	SHLD  SM00D
	CALL  SM00C
	MVI   A,000H
	STA   SM001
	STA   SM003
	MVI   A,002H
	STA   SM011
	STA   SM014
	MVI   A,032H
	STA   SM000
	MVI   A,00FH
	STA   SM002
	EI
	RET    ;********
SM008:	LHLD  SM000
	SHLD  SM004
	SHLD  SM005
	RET    ;********
SM009:	LHLD  SM000
	CALL  SM032
	MOV   A,B
	ANI   002H
	JZ    SM00A
	CALL  SM032
SM00A:	XCHG
	LHLD  SM000
	DAD   D
	SHLD  SM004
	LHLD  SM000
	MOV   A,D
	XRI   0FFH
	MOV   D,A
	MOV   A,E
	XRI   0FFH
	MOV   E,A
	INX   D
	DAD   D
	SHLD  SM005
	RET    ;********
SM00B:	LHLD  SM028
	SHLD  SM00D
	CALL  SM00C
	MVI   A,000H
	STA   SM011
	STA   SM014
	JMP        SM007
SM00C:	LHLD  SM004
	SHLD  SM00F
	LHLD  SM005
	SHLD  SM012
	LXI   H,0000FH
SM00E:	LXI   D,00014H
SM010:	DCX   D
	MOV   A,D
	ORA   E
	JNZ   SM010
	MOV   A,C
	XRI   002H
	OUT   004H
	MOV   C,A
	DCX   H
	MOV   A,H
	ORA   L
	JZ    SM015
	LXI   D,00014H
SM013:	DCX   D
	MOV   A,D
	ORA   E
	JNZ   SM013
	MOV   A,C
	XRI   002H
	OUT   004H
	MOV   C,A
	DCX   H
	MOV   A,H
	ORA   L
	JNZ   SM00E
SM015:	RET    ;********
SM016:	CPI   001H
	JNZ   SM019
	LHLD  07000H
	MVI   B,014H
SM017:	MVI   C,01EH
SM018:	LXI   D,00080H
	DAD   D
	MOV   A,M
	LXI   D,0FF80H
	DAD   D
	MOV   M,A
	INX   H
	INX   H
	DCR   C
	JNZ   SM018
	LXI   D,0001EH
	DAD   D
	DCR   B
	JNZ   SM017
	RET    ;********
SM019:	CPI   002H
	JNZ   SM01B
	PUSH  PSW
	PUSH  H
	PUSH  B
SM01A:	CALL  00024H
	JNZ   SM01A
	MOV   E,A
	XRA   A
	MOV   D,A
	STA   081FFH
	POP   B
	POP   H
	POP   PSW
	RET    ;********
SM01B:	CPI   003H
	JNZ   SM01F
	DI
	LHLD  SM01E
	XCHG
	LHLD  SM01D
	LXI   B,00002H
SM01C:	DAD   B
	DAD   B
	XCHG
	LDAX  D
	NOP
	DCX   D
	DCX   D
	STAX  D
	XCHG
	DCX   D
	MOV   A,D
	ORA   E
	JNZ   SM01C
	EI
	RET    ;********
SM01D:	MOV   A,M
	MOV   A,B
SM01E:	XRI   003H
SM01F:	CPI   004H
	JNZ   SM021
	DI
	LHLD  SM01E
	XCHG
	LHLD  SM01D
	LXI   B,0FFFEH
SM020:	DAD   B
	DAD   B
	XCHG
	LDAX  D
	NOP
	INX   D
	INX   D
	STAX  D
	XCHG
	DCX   D
	MOV   A,D
	ORA   E
	JNZ   SM020
	EI
	RET    ;********
SM021:	CPI   005H
	JNZ   SM035
	JMP        SM029
SM022:	---
SM023:	STAX  B
SM024:	INX   B
SM025:	MOV   M,H
	LXI   B,00071H
SM027:	ANA   B
	MOV   A,M
SM028:	INR   B
	NOP
SM029:	LDA   SM022
	ANI   0FCH
	LXI   D,SM05F
	MOV   E,A
	LXI   B,SM025
	CALL  SM033
	LDA   SM022
	ANI   0FCH
	LXI   D,SM060
	MOV   E,A
	LXI   B,SM027
	CALL  SM033
	LDA   SM023
	MOV   B,A
	LHLD  SM026
SM02A:	DCR   B
	JM    SM02B
	CALL  SM031
	JMP        SM02A
SM02B:	LDA   SM024
	MOV   B,A
SM02C:	DCR   B
	JM    SM02D
	CALL  SM032
	JMP        SM02C
SM02D:	MOV   A,H
	ORA   L
	JNZ   SM02E
	MVI   L,005H
SM02E:	SHLD  SM026
	LHLD  SM027
	MOV   A,H
	CPI   07CH
	JZ    SM02F
	MVI   A,0F0H
	JMP        SM030
SM02F:	MVI   A,00FH
SM030:	MOV   M,A
	LXI   B,SM000
	LXI   D,SM025
	CALL  SM033
	CALL  SM006
	LHLD  SM027
	MVI   A,0FFH
	MOV   M,A
	RET    ;********
SM031:	MOV   D,H
	MOV   E,L
	DAD   D
	DAD   D
	CALL  SM032
	RET    ;********
SM032:	XRA   A
	MOV   A,H
	RAR
	MOV   H,A
	MOV   A,L
	RAR
	MOV   L,A
	RET    ;********
SM033:	MVI   L,004H
SM034:	LDAX  D
	STAX  B
	INX   D
	INX   B
	DCR   L
	JNZ   SM034
	RET    ;********
SM035:	CPI   006H
	JNZ   SM05D
	JMP        SM03F
	LXI   B,00302H
SM038:	INR   C
SM039:	NOP
SM03A:	MOV   D,E
	ANA   D
	MOV   B,L
	MOV   B,L
	MOV   C,M
	RIM
	MOV   B,C
	MOV   B,H
	MOV   B,H
	MOV   D,D
	MOV   B,L
	MOV   D,E
SM03B:	LDAX  B
	INR   C
	LXI   B,00503H
	MVI   B,008H
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
SM03C:	RNC
	ANA   D
	ADC   A
	ANA   D
	RNC
	ANA   D
	LXI   B,0E0A4H
	ANA   D
	RNC
	ANA   D
	RNC
	ANA   D
	RC
	ANA   E
	---
	ANA   E
	ADC   A
	ANA   D
	INX   H
	ANA   E
	LHLD  0DBA3H
	ANA   D
	MOV   D,H
	ANA   H
	ADD   H
	ANA   H
	RNC
	ANA   D
SM03D:	RNC
	ANA   D
	ANA   L
	ANA   D
	MOV   H,D
	ANA   E
	ADC   H
	ANA   E
	ADC   H
	ANA   E
	CMP   L
	ANA   E
	CNZ   08CA3H
	ANA   E
	ADC   H
	ANA   E
	ADC   H
	ANA   E
	ADC   H
	ANA   E
	ADC   H
	ANA   E
	ADC   H
	ANA   E
	ADC   H
	ANA   E
	ADC   H
	ANA   E
	RNC
	ANA   D
SM03E:	STAX  B
	ADC   D
	MOV   M,B
	NOP
	ADC   M
	MOV   M,B
	NOP
	RPE
	MOV   M,C
	NOP
	ANA   D
	MOV   M,C
	NOP
	ADC   D
	MOV   M,C
	MOV   D,E
	MOV   D,H
	MOV   B,C
	MOV   B,E
	MOV   C,E
	LDAX  B
	DAD   B
	MOV   B,E
	MOV   B,C
	MOV   C,H
	MOV   C,H
	DAD   B
	MOV   B,M
	MOV   C,M
	MOV   B,H
SM03F:	XRA   A
	STA   SM023
	STA   SM024
	STA   SM037
	STA   SM039
	MVI   A,002H
	STA   SM036
	MVI   A,018H
	STA   SM038
	LXI   H,SM03E
	SHLD  SM03A
	LXI   D,0707EH
	PUSH  D
SM040:	POP   D
	INX   D
	MVI   A,006H
	STAX  D
	INX   D
	LDAX  D
	PUSH  D
	CALL  SM042
	LXI   H,SM03C
	ADD   L
	MOV   L,A
	MOV   C,M
	INX   H
	MOV   B,M
	MOV   H,B
	MOV   L,C
	PCHL   ;**************
SM041:	POP   D
	INX   D
	INX   D
	LDAX  D
	PUSH  D
	CALL  SM042
	LXI   H,SM03D
	ADD   L
	MOV   L,A
	MOV   C,M
	INX   H
	MOV   B,M
	MOV   H,B
	MOV   L,C
	PCHL   ;**************
SM042:	MOV   D,A
	CPI   020H
	JM    SM043
	CPI   059H
	JP    SM043
	SUI   020H
	LXI   B,SM05E
	ADD   C
	MOV   C,A
	LDAX  B
	MOV   E,A
	RET    ;********
SM043:	MVI   E,000H
	RET    ;********
SM044:	MOV   C,D
	POP   D
	INX   D
	MVI   A,04EH
	STAX  D
	MOV   E,A
	XRA   A
	JMP        SM045
	POP   D
	XRA   A
	MOV   E,A
SM045:	MOV   D,A
	RET    ;********
	MOV   A,D
	LXI   D,SM038
	CPI   02BH
	JNZ   SM046
	LDAX  D
	ADI   00CH
	CPI   031H
	JM    SM048
	SUI   00CH
	JMP        SM048
SM046:	CPI   02DH
	JNZ   SM047
	LDAX  D
	SUI   00CH
	CPI   0FFH
	JP    SM048
	ADI   00CH
	JMP        SM048
SM047:	MVI   A,018H
SM048:	STA   SM038
	JMP        SM040
	MOV   A,D
	SUI   041H
	LXI   D,SM03B
	ADD   E
	MOV   E,A
	LDAX  D
	LXI   H,SM038
	ADD   M
	STA   SM022
	JMP        SM041
	XRA   A
	STA   SM022
	JMP        SM041
	POP   D
	INX   D
	INX   D
	LDAX  D
	PUSH  D
	CALL  SM042
	MOV   A,E
	CPI   00CH
	JNZ   SM049
	MOV   A,D
	SUI   031H
	STA   SM037
	JMP        SM051
SM049:	CPI   008H
	JNZ   SM044
	MOV   A,D
	CPI   02AH
	JNZ   SM04A
	MVI   A,000H
SM04A:	CPI   02BH
	JNZ   SM04B
	MVI   A,001H
SM04B:	CPI   02DH
	JNZ   SM04C
	MVI   A,002H
SM04C:	STA   SM036
	JMP        SM051
	MOV   A,D
	LXI   H,SM022
	CPI   023H
	JNZ   SM04D
	INR   M
SM04D:	CPI   027H
	JNZ   SM04E
	DCR   M
SM04E:	LDA   SM022
	CPI   000H
	JNZ   SM04F
	MVI   A,001H
	STA   SM022
SM04F:	CPI   040H
	JC    SM041
	MVI   A,03FH
	STA   SM022
	JMP        SM041
	POP   D
	DCX   D
	MVI   A,00EH
	STAX  D
	PUSH  D
	LDA   SM022
	ADD   A
	ADD   A
	STA   SM022
	CPI   000H
	JNZ   SM050
	STA   SM011
	STA   SM014
SM050:	CALL  SM029
	POP   D
	MVI   A,006H
	STAX  D
	DCX   D
	PUSH  D
SM051:	LDA   SM036
	STA   SM023
	LDA   SM037
	STA   SM024
	JMP        SM040
	LXI   H,SM023
	INR   M
	JMP        SM041
	XRA   A
	MOV   A,D
	MVI   B,0FFH
SM052:	INR   B
	RAR
	JNC   SM052
	MOV   A,B
	LXI   H,SM024
	ADD   M
	STA   SM024
	JMP        SM041
	LHLD  SM03A
	DCX   H
	DCX   H
	DCX   H
	MOV   A,M
	CPI   001H
	JNZ   SM040
	MVI   B,001H
SM053:	POP   D
	INX   D
	INX   D
	PUSH  D
	LDAX  D
	CPI   028H
	JNZ   SM054
	INR   B
SM054:	CPI   029H
	JNZ   SM053
	DCR   B
	JNZ   SM053
	POP   D
	DCX   D
	DCX   D
	PUSH  D
	JMP        SM040
	MOV   A,D
	CPI   028H
	JZ    SM056
	LHLD  SM03A
	DCX   H
	DCX   H
	DCX   H
	LXI   B,SM03E
	MOV   A,L
	SUB   C
	JM    SM044
	MOV   A,M
	DCR   A
	MOV   M,A
	JZ    SM055
	POP   D
	INX   D
	MVI   A,00EH
	STAX  D
	INX   H
	MOV   A,M
	MOV   E,A
	INX   H
	MOV   A,M
	MOV   D,A
	PUSH  D
	JMP        SM040
SM055:	SHLD  SM03A
	JMP        SM040
SM056:	POP   D
	INX   D
	INX   D
	LDAX  D
	PUSH  D
	CALL  SM042
	MOV   A,E
	CPI   00CH
	JNZ   SM044
	MOV   A,D
	SUI   02FH
	LHLD  SM03A
	MOV   M,A
	INX   H
	POP   D
	PUSH  D
	MOV   A,E
	MOV   M,A
	INX   H
	MOV   A,D
	MOV   M,A
	INX   H
	SHLD  SM03A
	JMP        SM040
	POP   D
	INX   D
	INX   D
	PUSH  D
	LDA   SM039
	ANI   004H
	MOV   B,A
	LDAX  D
	CPI   02DH
	JZ    SM057
	CPI   02BH
	JZ    SM058
	CPI   02AH
	JZ    SM059
	JMP        SM044
SM057:	MVI   A,000H
	JMP        SM05A
SM058:	MVI   A,001H
	JMP        SM05A
SM059:	MVI   A,002H
SM05A:	ORA   B
	STA   SM039
	JMP        SM040
	POP   D
	INX   D
	INX   D
	PUSH  D
	LDA   SM039
	ANI   003H
	MOV   B,A
	LDAX  D
	CPI   02DH
	JZ    SM05B
	CPI   02BH
	JZ    SM05C
	CPI   02AH
	JZ    SM05C
	JMP        SM044
SM05B:	MVI   A,000H
	JMP        SM05A
SM05C:	MVI   A,004H
	JMP        SM05A
	RET    ;********
SM05D:	RET    ;********
	MOV   D,H
	MOV   B,C
	MOV   E,B
	DAD   B
	MOV   B,H
	DAD   B
	DCX   SP
	MOV   C,B
	MOV   C,C
	MOV   B,A
	MOV   C,B
	MOV   C,H
	MOV   C,C
	MOV   B,A
	MOV   C,B
	MOV   D,H
	RIM
	MOV   B,L
	MOV   D,D
SM05E:	STAX  B
	NOP
	NOP
	INR   B
	NOP
	NOP
	NOP
	INR   B
	MVI   B,006H
	---
	---
	NOP
	---
	LDAX  B
	NOP
	NOP
	INR   C
	INR   C
	INR   C
	INR   C
	INR   C
	INR   C
	INR   C
	INR   C
	INR   C
	NOP
	NOP
	NOP
	NOP
	MVI   C,000H
	NOP
	---
	---
	---
	---
	---
	---
	---
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	STAX  D
	NOP
	NOP
	NOP
	INR   D
	INR   E
	MVI   D,000H
	LDAX  D
	NOP
	---
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
SM05F:	RST   7
	NOP
	MOV   C,H
	STAX  B
	MOV   M,D
	STAX  B
	RST   5
	NOP
	MOV   C,A
	STAX  B
	---
	NOP
	DCR   L
	STAX  B
	DCR   C
	LXI   B,0020EH
	DCR   E
	LXI   B,001F1H
	DCR   L
	LXI   B,001D5H
	CMC
	LXI   B,001BAH
	MOV   D,E
	LXI   B,001A2H
	MOV   H,M
	LXI   B,0018AH
	MOV   A,H
	LXI   B,00174H
	SUB   E
	LXI   B,0015FH
	XRA   E
	LXI   B,0014CH
	JMP        03901H
	LXI   B,001DFH
	---
	LXI   B,001FAH
	---
	LXI   B,00217H
	RLC
	LXI   B,0023AH
	SPHL
	NOP
	MOV   E,D
	STAX  B
	CPE   07B00H
	STAX  B
	RST   3
	NOP
	ANA   B
	STAX  B
	OUT   000H
	ADI   002H
	RST   0
	NOP
	POP   PSW
	STAX  B
	CMP   E
	NOP
	SHLD  0B003H
	NOP
	MOV   D,H
	INX   B
	ANA   L
	NOP
	ADC   L
	INX   B
	SBB   D
	NOP
	ACI   003H
	SUB   D
	NOP
	INX   B
	INR   B
	ADC   D
	NOP
	MVI   A,004H
	ADD   D
	NOP
	ADD   C
	INR   B
	MOV   A,D
	NOP
	CALL  07304H
	NOP
	---
	DCR   B
	MOV   L,L
	NOP
	MOV   H,B
	DCR   B
	MOV   H,A
	NOP
	ORA   B
	DCR   B
	MOV   H,C
	NOP
	LDAX  B
	MVI   B,05BH
	NOP
	MOV   M,B
	MVI   B,056H
	NOP
	RNC
	MVI   B,051H
	NOP
	DCX   SP
	RLC
	MOV   C,L
	NOP
	SBB   H
	RLC
	MOV   C,B
	NOP
	INX   H
	---
	MOV   B,H
	NOP
	SBB   L
	---
	MOV   B,B
	NOP
	DAA
	DAD   B
	INR   A
	NOP
	CNZ   03909H
	NOP
	MOV   B,A
	LDAX  B
	MVI   M,000H
	---
	LDAX  B
	INX   SP
	NOP
	MOV   A,L
	DCX   B
	RIM
	NOP
	DCR   M
	INR   C
	DCR   L
	NOP
	DCR   B
	DCR   C
	LHLD  0F300H
	DCR   C
	DAA
	NOP
	MVI   B,00FH
	DCR   H
	NOP
	SUI   00FH
	INX   H
	NOP
	CMP   L
	---
	LXI   H,0C100H
	LXI   D,0001FH
	ANI   012H
	DCR   E
	NOP
	INR   M
	INR   D
	DCX   D
	NOP
	ORA   E
	DCR   D
	DAD   D
	NOP
	MOV   M,B
	RAL
	---
	NOP
	MOV   L,D
	---
	MVI   D,000H
	ANA   D
	LDAX  D
	DCR   D
	NOP
	ANI   01BH
	INR   D
	NOP
	MOV   C,H
	DCR   E
	STAX  D
	NOP
	ADC   L
	RIM
	LXI   D,07700H
	SHLD  00010H
	SBB   A
	INR   H
	RRC
	NOP
	---
	DAA
SM060:	NOP
	INX   B
	DCR   B
	NOP
	ADD   D
	MOV   A,M
	STAX  B
	NOP
	INR   B
	MOV   A,H
	INX   B
	NOP
	ADC   B
	MOV   A,M
	INX   B
	NOP
	LDAX  B
	MOV   A,H
	INX   B
	NOP
	ADC   M
	MOV   A,M
	INX   B
	NOP
	SUB   H
	MOV   A,M
	INX   B
	NOP
	MVI   D,07CH
	INX   B
	NOP
	SBB   D
	MOV   A,M
	INX   B
	NOP
	INR   E
	MOV   A,H
	INR   B
	NOP
	ANA   B
	MOV   A,M
	INR   B
	NOP
	SHLD  0047CH
	NOP
	ANA   M
	MOV   A,M
	INR   B
	NOP
	ADD   D
	MOV   A,M
	INR   B
	NOP
	INR   B
	MOV   A,H
	DCR   B
	NOP
	ADC   B
	MOV   A,M
	DCR   B
	NOP
	LDAX  B
	MOV   A,H
	DCR   B
	NOP
	ADC   M
	MOV   A,M
	DCR   B
	NOP
	SUB   H
	MOV   A,M
	MVI   B,000H
	MVI   D,07CH
	MVI   B,000H
	SBB   D
	MOV   A,M
	MVI   B,000H
	INR   E
	MOV   A,H
	RLC
	NOP
	ANA   B
	MOV   A,M
	RLC
	NOP
	SHLD  0077CH
	NOP
	ANA   M
	MOV   A,M
	---
	NOP
	ADD   D
	MOV   A,M
	---
	NOP
	INR   B
	MOV   A,H
	DAD   B
	NOP
	ADC   B
	MOV   A,M
	DAD   B
	NOP
	LDAX  B
	MOV   A,H
	LDAX  B
	NOP
	ADC   M
	MOV   A,M
	LDAX  B
	NOP
	SUB   H
	MOV   A,M
	DCX   B
	NOP
	MVI   D,07CH
	INR   C
	NOP
	SBB   D
	MOV   A,M
	INR   C
	NOP
	INR   E
	MOV   A,H
	DCR   C
	NOP
	ANA   B
	MOV   A,M
	MVI   C,000H
	SHLD  00E7CH
	NOP
	ANA   M
	MOV   A,M
	RRC
	NOP
	XRA   H
	MOV   A,M
	---
	NOP
	MVI   L,07CH
	LXI   D,0B200H
	MOV   A,M
	STAX  D
	NOP
	INR   M
	MOV   A,H
	INX   D
	NOP
	CMP   B
	MOV   A,M
	INR   D
	NOP
	CMP   M
	MOV   A,M
	MVI   D,000H
	MOV   B,B
	MOV   A,H
	RAL
	NOP
	CNZ   0187EH
	NOP
	MOV   B,M
	MOV   A,H
	DAD   D
	NOP
	JZ    01B7EH
	NOP
	MOV   C,H
	MOV   A,H
	DCR   E
	NOP
	RNC
	MOV   A,M
	RAR
	NOP
	SUI   07EH
	LXI   H,05800H
	MOV   A,H
	INX   H
	NOP
	CC    0257EH
	NOP
	MOV   E,M
	MOV   A,H
	DAA
	NOP
	JPO   02A7EH
	NOP
	RPE
	MOV   A,M
	DCR   L
	NOP
	MOV   L,D
	MOV   A,H
	RIM
	NOP
	XRI   07EH
	STA   07000H
	MOV   A,H
	STC
	NOP
	CP    03A7EH
	NOP
	HLT   ;****
	MOV   A,H
	INR   A
	NOP
	JM    0437EH
	NOP
	NOP
	INX   B
	MOV   B,A
	NOP
	NOP
	INX   B
	MOV   C,E
	NOP
	NOP
	INX   B
	MOV   D,B
	NOP
	DAD   B
	MOV   C,L
	DAD   B
	DCX   SP
	MOV   B,C
	MOV   B,H
	MOV   B,H
	RIM
	MOV   C,A
	MOV   B,E
	MOV   D,H
	MOV   B,C
	MOV   D,M
	MOV   B,L
	LDAX  B
	DAD   B
	MOV   D,E
	MOV   D,H
	MOV   B,C
	DAD   B
	MOV   C,M
	MOV   C,A
	MOV   D,H
	MOV   B,L
	MOV   C,C
	DAD   B
	DCX   SP
	MOV   D,E
	MOV   D,H
	MOV   C,A
	MOV   D,D
	MOV   B,L
	RIM
	MOV   C,C
	MOV   C,M
	RIM
	MOV   C,M
	MOV   C,A
	MOV   D,H
	MOV   B,L
	LDAX  B
	DAD   B
	MOV   C,D
	MOV   C,L
	MOV   D,B
	DAD   B
	MOV   C,M
	MOV   C,A
	MOV   D,H
	MOV   B,L
	MOV   C,D
	MOV   C,L
	DAD   B
	DCX   SP
	MOV   D,D
	MOV   B,L
	MOV   D,H
	MOV   D,L
	MOV   D,D
	MOV   C,M
	RIM
	MOV   D,H
	MOV   C,A
	RIM
	MOV   C,M
	MOV   C,A
	MOV   D,H
	MOV   B,L
	RIM
	MOV   D,E
	MOV   D,H
	MOV   B,C
	MOV   D,H
	MOV   B,L
	LDAX  B
	MOV   C,L
	MOV   D,D
	MOV   B,L
	MOV   D,E
	MOV   D,H
	LDA   05809H
	MOV   D,D
	MOV   B,C
	DAD   B
	MOV   B,C
	LDAX  B
	DAD   B
	MOV   D,E
	MOV   D,H
	MOV   B,C
	DAD   B
	MOV   C,M
	MOV   C,A
	MOV   D,H
	MOV   B,L
	MOV   C,C
	DAD   B
	DCX   SP
	MOV   C,M
	MOV   C,A
	MOV   D,H
	MOV   B,L
	DCR   A
	MOV   E,D
	MOV   B,L
	MOV   D,D
	MOV   C,A
	LDAX  B
	DAD   B
	MOV   C,D
	MOV   C,L
	MOV   D,B
	DAD   B
	MOV   C,M
	MOV   C,A
	MOV   D,H
	MOV   B,L
	MOV   C,D
	MOV   C,L
	DAD   B
	DCX   SP
	MOV   D,D
	MOV   B,L
	MOV   D,H
	MOV   D,L
	MOV   D,D
	MOV   C,M
	RIM
	MOV   D,H
	MOV   C,A
	RIM
	MOV   C,M
	MOV   C,A
	MOV   D,H
	MOV   B,L
	RIM
	MOV   D,E
	MOV   D,H
	MOV   B,C
	MOV   D,H
	MOV   B,L
	LDAX  B
	MOV   C,L
	MOV   D,H
	MOV   B,L
	MOV   C,L
	MOV   D,B
	MOV   C,A
	LDA   05009H
	MOV   C,A
	MOV   D,B
	DAD   B
	MOV   B,H
	DAD   B
	DCX   SP
	MOV   B,A
	MOV   B,L
	MOV   D,H
	RIM
	MOV   C,M
	MOV   B,L
	MOV   E,B
	MOV   D,H
	RIM
	MOV   B,E
	MOV   C,B
	MOV   B,C
	MOV   D,D
	LDAX  B
	DAD   B
	MOV   C,C
	MOV   C,M
	MOV   E,B
	DAD   B
	MOV   B,H
	LDAX  B
	DAD   B
	MOV   C,C
	MOV   C,M
	MOV   E,B
	DAD   B
	MOV   B,H
	LDAX  B
	DAD   B
	MOV   C,H
	MOV   B,H
	MOV   B,C
	MOV   E,B
	DAD   B
	MOV   B,H
	LDAX  B
	DAD   B
	MOV   D,B
	MOV   D,L
	MOV   D,E
	MOV   C,B
	DAD   B
	MOV   B,H
	LDAX  B
	DAD   B
	MOV   B,E
	MOV   B,C
	MOV   C,H
	MOV   C,H
	DAD   B
	MOV   B,M
	MOV   C,M
	MOV   B,H
	MOV   D,H
	MOV   E,C
	MOV   D,B
	LDAX  B
	DAD   B
	MOV   C,L
	MOV   C,A
	MOV   D,M
	DAD   B
	MOV   B,C
	INR   L
	MOV   B,L
	DAD   B
	DCX   SP
	MOV   D,B
	MOV   D,L
	MOV   D,H
	RIM
	MOV   D,H
	MOV   E,C
	MOV   D,B
	MOV   B,L
	RIM
	MOV   C,C
	MOV   C,M
	RIM
	MOV   B,C
	MOV   B,E
	MOV   B,E
	LDAX  B
	DAD   B
	MOV   B,E
	MOV   D,B
	MOV   C,C
	DAD   B
	LXI   SP,00932H
	DCX   SP
	MOV   B,E
	MOV   C,B
	MOV   B,L
	MOV   B,E
	MOV   C,E
	RIM
	MOV   C,C
	NOP
	NOP
	RST   7
	RST   7
	NOP
	NOP
	RST   7
	RST   7
	NOP
	NOP
	RST   7
	RST   7
	NOP
	NOP
	RST   7
	RST   7
	NOP
	NOP
	RST   7
	RST   7
	NOP
	NOP
	RST   7
	RST   7
	NOP
	NOP
	RST   7
	RST   7
	NOP
	NOP
	RST   7
	RST   7
	NOP
	NOP
	RST   7
	RST   7
	NOP
	NOP
	RST   7
	RST   7
	NOP
	NOP
	RST   7
	RST   7
	NOP
	NOP
	RST   7
	RST   7
	NOP
	NOP
	RST   7
	RST   7
	NOP
	NOP
	RST   7
	RST   7
	NOP
	NOP
	RST   7
	RST   7
	NOP
	NOP
	RST   7
	RST   7
	NOP
	NOP
	RST   7
	RST   7
	NOP
	NOP
	RST   7
	RST   7
	NOP
	NOP
	RST   7
	RST   7
	NOP
	NOP
	RST   7
	RST   7
	NOP
	NOP
	RST   7
	RST   7
	NOP
	NOP
	RST   7
	RST   7
	NOP
	NOP
	RST   7
	RST   7
	NOP
	NOP
	RST   7
	RST   7
	NOP
	NOP
	RST   7
	RST   7
	NOP
	NOP
	RST   7
	RST   7
	NOP
	NOP
	RST   7
	RST   7
	NOP
	NOP
	RST   7
	RST   7
	NOP
	NOP
	RST   7
	RST   7
	NOP
	NOP
	RST   7
	RST   7
	NOP
	NOP
	RST   7
	RST   7
	NOP
	NOP
	RST   7