Compucolor.org – Virtual Media

Listing of file='ASTJSA.SRC;02' on disk='vmedia/asteriods_source-sector.ccvf'

;VER 0
	ORG	829AH
	JMP	L82C1

L829D:	JMP	3459H

L82A0:	JMP	3562H

L82A3:	JMP	3518H

L82A6:	JMP	3581H

L82A9:	JMP	33F4H

L82AC:	JMP	3392H

L82AF:	JMP	188FH

	JMP	1998H

	JMP	194EH

	JMP	19B7H

	JMP	182AH

	JMP	17C8H

L82C1:	LDA	092AH
	CPI	1FH
	JNZ	L82DC
	LXI	H,L829D
	LXI	D,L82AF
	LXI	B,0012H
L82D2:	LDAX	D
	MOV	M,A
	INX	H
	INX	D
	DCX	B
	MOV	A,B
	ORA	C
	JNZ	L82D2
L82DC:	DI
	LXI	H,L90D3
	CALL	L8E3F
	CALL	L8C8B
	CALL	L8C8B
	CALL	L8C8B
	MVI	A,0FFH
	OUT	8
	MVI	A,0F7H
	OUT	8
	MVI	A,1
	STA	L9123
	MVI	A,7
	STA	L8F98
	STA	8001H
	STA	8003H
L8304:	LXI	H,0000H
	SHLD	L8F32
	SHLD	L8F34
	LXI	H,L8F3D
	MVI	M,30H
	INX	H
	MVI	M,30H
	INX	H
	MVI	M,30H
	INX	H
	MVI	M,30H
	INX	H
	MVI	M,30H
	MVI	A,0
	STA	L8F9E
	STA	L9122
	STA	L8F42
	MVI	A,33H
	STA	L8F9F
	MVI	D,0
	LXI	H,L9162
L8333:	MVI	M,0
	INR	D
	INX	H
	MOV	A,D
	CPI	21H
	JM	L8333
	CALL	L8C8B
	CALL	L8C8B
L8343:	MVI	A,4
	STA	L8F52
	MVI	A,0
	STA	L8F43
	MVI	A,1
	STA	L8F44
	MVI	A,40H
	STA	L8FA5
	STA	L8FA6
	LXI	H,0000H
	SHLD	L8F53
	SHLD	L8F55
	MVI	A,0
	STA	L8F5E
	LXI	H,L901B
	CALL	L8E3F
	LDA	L8F42
	CPI	1
	JZ	L8395
	MVI	A,1
	STA	L8F42
L837B:	LXI	H,L901B
	CALL	L8E3F
	MVI	A,0
	STA	L8F5E
	LXI	H,L8F61
	LDA	L8F98
	MOV	M,A
	LXI	H,L8F85
	MVI	M,0
	CALL	L8E4A
L8395:	LDA	L8FA0
	CPI	0
	JZ	L83A5
	MVI	A,0
	STA	L8FA0
	CALL	L8CA7
L83A5:	LDA	L9123
	CPI	0
	JZ	L83D6
	LDA	L8F4E
	ADI	1
	STA	L8F4E
	MVI	A,0
	STA	L8F43
	STA	L8F98
	LXI	H,L9124
	CALL	L82A9
	CALL	L8DF9
	LDA	L8F98
	CPI	0
	JZ	L842B
	MVI	A,0
	STA	L9123
	JMP	L8304

L83D6:	LDA	L9122
	CPI	1
	JNZ	L8403
	LXI	H,L9109
	CALL	L82A9
	LXI	H,L9124
	CALL	L82A9
	CALL	L85A1
	MVI	A,0
	STA	L8F43
	STA	L8F98
	CALL	L8DF9
	LDA	L8F98
	CPI	0
	JNZ	L8304
	JMP	L842B

L8403:	LDA	L8F43
	CPI	1
	JZ	L842B
	MVI	A,7
	OUT	7
	IN	1
	CPI	0EFH
	JNZ	L841E
	MVI	A,1
	STA	L8F43
	JMP	L842B

L841E:	LDA	L8F44
	SUI	1
	STA	L8F44
	CPI	0
	CZ	L875A
L842B:	LDA	L8F61
	CPI	0
	JZ	L84CC
	MOV	B,A
	LXI	H,L9188
	SHLD	L8F5A
	MVI	A,1
	STA	L8F79
L843F:	CALL	L8E17
	LHLD	L8F4F
	MVI	C,3
L8447:	CALL	L8BE9
	INX	H
	MVI	M,4
	INX	H
	CALL	L8BE9
	INX	H
	MVI	M,4
	INX	H
	CALL	L8BE9
	INX	H
	MVI	M,4
	DCR	C
	JZ	L8476
	MVI	A,7BH
	ADD	L
	MOV	L,A
	JNC	L8447
	INR	H
	MOV	A,H
	CPI	80H
	JM	L8447
	LXI	D,1000H
	CALL	L829D
	JMP	L8447

L8476:	CALL	L8C2D
	SHLD	L8F4F
	MVI	C,3
	LXI	D,L8F79
L8481:	INX	D
	CALL	L8C0A
	INX	H
	MVI	M,4
	INX	H
	INX	D
	CALL	L8C0A
	INX	H
	MVI	M,4
	INX	H
	INX	D
	CALL	L8C0A
	INX	H
	MVI	M,4
	DCR	C
	JZ	L84B5
	MVI	A,7BH
	ADD	L
	MOV	L,A
	JNC	L8481
	INR	H
	MOV	A,H
	CPI	80H
	JM	L8481
	PUSH	D
	LXI	D,1000H
	CALL	L829D
	POP	D
	JMP	L8481

L84B5:	LHLD	L8F5A
	CALL	L8E2B
	DCR	B
	JZ	L84CC
	LHLD	L8F5A
	LXI	D,0004H
	DAD	D
	SHLD	L8F5A
	JMP	L843F

L84CC:	LDA	L8F85
	CPI	0
	JZ	L8522
	MOV	B,A
	LXI	H,91B0H
	SHLD	L8F5A
	MVI	A,2
	STA	L8F79
L84E0:	CALL	L8E17
	LHLD	L8F4F
	CALL	L8BE9
	INX	H
	MVI	M,4
	INX	H
	CALL	L8BE9
	INX	H
	MVI	M,4
	CALL	L8C2D
	SHLD	L8F4F
	LXI	D,L8F82
	INX	D
	CALL	L8C0A
	INX	H
	MVI	M,4
	INX	H
	INX	D
	CALL	L8C0A
	INX	H
	MVI	M,4
	LHLD	L8F5A
	CALL	L8E2B
	DCR	B
	JZ	L8522
	LHLD	L8F5A
	LXI	D,0004H
	DAD	D
	SHLD	L8F5A
	JMP	L84E0

L8522:	CALL	L8C63
	LDA	L8F43
	CPI	1
	JNZ	L868F
	MVI	A,7
	OUT	7
	IN	1
	CPI	0FEH
	JNZ	L855A
	LDA	L8F52
	ADI	1
	STA	L8F52
	CPI	5
	JNZ	L855A
	MVI	A,0
	STA	L8F52
	LHLD	L8F53
	XCHG
	LHLD	L8F55
	MOV	A,H
	ADD	D
	MOV	H,A
	MOV	A,L
	ADD	E
	MOV	L,A
	SHLD	L8F55
L855A:	LDA	L8F5E
	CPI	0
	JZ	L85C2
	LDA	L8F5F
	LXI	H,L8FA7
	MVI	M,1DH
	CALL	L8CC5
	LDA	L8F5F
	LXI	H,L8FA7
	MVI	M,1EH
	CALL	L8CC5
	CALL	L85A1
	MVI	A,0DH
	OUT	7
	IN	1
	CPI	0FEH
	JNZ	L85C7
	CALL	L8E86
	ANI	7FH
	STA	L8FA5
	CALL	L8E86
	ANI	7FH
	STA	L8FA6
	LDA	L8F4E
	ADI	1
	STA	L8F4E
	JMP	L85C7

L85A1:	LXI	H,7036H
	LXI	D,L8F36
	MVI	B,0CH
L85A9:	LDAX	D
	MOV	M,A
	INX	H
	MVI	M,1
	DCR	B
	JZ	L85B7
	INX	H
	INX	D
	JMP	L85A9

L85B7:	LXI	H,7FBEH
	LDA	L8F9F
	MOV	M,A
	INX	H
	MVI	M,2
	RET

L85C2:	MVI	A,1
	STA	L8F5E
L85C7:	LDA	L8F60
	MOV	E,A
	MVI	D,0
	MVI	A,9
	OUT	7
	IN	1
	CPI	0FEH
	JNZ	L85E2
	INR	E
	INR	E
	INR	E
	MOV	A,E
	STA	L8F60
	JMP	L85FA

L85E2:	LDA	L8F60
	MOV	E,A
	MVI	D,0
	MVI	A,0BH
	OUT	7
	IN	1
	CPI	0FEH
	JNZ	L85FA
	DCR	E
	DCR	E
	DCR	E
	MOV	A,E
	STA	L8F60
L85FA:	LHLD	L8F55
	LDA	L8FA5
	ADD	H
	ANI	7FH
	STA	L8FA5
	LDA	L8FA6
	ADD	L
	ANI	7FH
	STA	L8FA6
	MOV	A,E
	LXI	H,L8FA7
	MVI	M,1DH
	CALL	L8CC5
	MVI	A,0AH
	OUT	7
	IN	1
	CPI	0FEH
	JNZ	L868F
	LDA	L9150
	ADI	1
	CPI	3
	JP	L8633
	STA	L9150
	JMP	L868F

L8633:	MVI	A,0
	STA	L9150
	LDA	L9162
	CPI	5
	JP	L868F
	ADI	1
	STA	L9162
	LXI	H,L9165
L8648:	MOV	A,M
	CPI	0
	JZ	L8655
	LXI	D,0006H
	DAD	D
	JMP	L8648

L8655:	MVI	M,1
	SHLD	L9163
	INX	H
	LDA	L8FA5
	MOV	M,A
	INX	H
	LDA	L8FA6
	MOV	M,A
	LHLD	L8F55
	XCHG
	LHLD	L8F53
	MOV	A,H
	ADD	D
	MOV	D,A
	MOV	A,L
	ADD	E
	MOV	E,A
	LHLD	L9163
	INX	H
	INX	H
	INX	H
	MOV	M,D
	INX	H
	MOV	M,E
	INX	H
	MVI	M,14H
	LDA	L8FA5
	STA	L8F49
	LDA	L8FA6
	STA	L8F4A
	LXI	H,L8F45
	CALL	L8E3F
L868F:	LDA	L9162
	CPI	0
	JZ	L8395
	LXI	H,L9165
	MVI	A,1
L869C:	CPI	6
	JP	L8395
	STA	L9151
	SHLD	L9163
	MOV	A,M
	CPI	1
	JNZ	L873B
	INX	H
	MOV	A,M
	STA	L914B
	INX	H
	MOV	A,M
	STA	L914C
	INX	H
	MOV	A,M
	STA	L914D
	INX	H
	MOV	A,M
	STA	L914E
	INX	H
	MOV	A,M
	STA	L914F
	LDA	L914B
	STA	L9156
	STA	L915E
	LDA	L914C
	STA	L9157
	STA	L915F
	LXI	H,L9152
	CALL	L8E3F
	LXI	H,L915A
	CALL	L8E3F
	LDA	L914F
	SUI	1
	CPI	0
	JZ	L874A
	STA	L914F
	LDA	L914B
	MOV	C,A
	LDA	L914D
	ADD	A
	ADD	C
	ANI	7FH
	STA	L914B
	LDA	L914C
	MOV	C,A
	LDA	L914E
	ADD	A
	ADD	C
	ANI	7FH
	STA	L914C
	LDA	L914B
	STA	L8F49
	LDA	L914C
	STA	L8F4A
	LXI	H,L8F45
	CALL	L8E3F
	LHLD	L9163
	INX	H
	LDA	L914B
	MOV	M,A
	INX	H
	LDA	L914C
	MOV	M,A
	INX	H
	LDA	L914D
	MOV	M,A
	INX	H
	LDA	L914E
	MOV	M,A
	INX	H
	LDA	L914F
	MOV	M,A
L873B:	LDA	L9151
	ADI	1
	LHLD	L9163
	LXI	D,0006H
	DAD	D
	JMP	L869C

L874A:	LHLD	L9163
	MVI	M,0
	LDA	L9162
	SUI	1
	STA	L9162
	JMP	L873B

L875A:	LDA	L8F61
	CPI	0
	JZ	L8894
	LXI	H,7636H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	LXI	D,0073H
	DAD	D
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	DAD	D
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	DAD	D
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	DAD	D
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	DAD	D
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	MOV	B,A
	LXI	H,L9188
L8867:	SHLD	L8F5A
	CALL	L8E17
	MVI	C,14H
	LHLD	L8F4F
L8872:	INX	H
	MOV	A,M
	CPI	46H
	JZ	L89D7
	DCR	C
	JZ	L8886
	CALL	L8C2D
	SHLD	L8F4F
	JMP	L8872

L8886:	DCR	B
	JZ	L8894
	LHLD	L8F5A
	LXI	D,0004H
	DAD	D
	JMP	L8867

L8894:	LDA	L8F85
	CPI	0
	JZ	L89CE
	LXI	H,7636H
	MVI	M,20H
	INX	H
	MVI	M,4
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,4
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,4
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,4
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,4
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,4
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,4
	LXI	D,0073H
	DAD	D
	MVI	M,20H
	INX	H
	MVI	M,4
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,4
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,4
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,4
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,4
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,4
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,4
	DAD	D
	MVI	M,20H
	INX	H
	MVI	M,4
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,4
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	DAD	D
	MVI	M,20H
	INX	H
	MVI	M,4
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,4
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	DAD	D
	MVI	M,20H
	INX	H
	MVI	M,4
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,4
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	DAD	D
	MVI	M,20H
	INX	H
	MVI	M,4
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,4
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,46H
	MOV	B,A
	LXI	H,91B0H
L89A1:	SHLD	L8F5A
	CALL	L8E17
	MVI	C,14H
	LHLD	L8F4F
L89AC:	INX	H
	MOV	A,M
	CPI	46H
	JZ	L89D7
	DCR	C
	JZ	L89C0
	CALL	L8C2D
	SHLD	L8F4F
	JMP	L89AC

L89C0:	DCR	B
	JZ	L89CE
	LHLD	L8F5A
	LXI	D,0004H
	DAD	D
	JMP	L89A1

L89CE:	MVI	A,1
	STA	L8F43
	STA	L8F44
	RET

L89D7:	MVI	A,15H
	SUB	C
	STA	L8F44
	RET

L89DE:	LDA	L8F5F
	CALL	L8CC5
	LDA	L8FA5
	STA	L9050
	LDA	L8FA6
	STA	L9051
	LXI	H,L904C
	CALL	L8E3F
	LXI	H,L904C
	CALL	L8E3F
	CALL	L8C96
	CALL	L8C8B
	CALL	L8C80
	LDA	L8F9F
	SUI	1
	STA	L8F9F
	LDA	L8F9E
	ADI	1
	STA	L8F9E
	CPI	3
	JM	L8343
	MVI	A,1
	STA	L9122
	JMP	L8395

L8A22:	MVI	M,4
	DCX	H
	MVI	M,20H
	SHLD	L8F9C
	LDA	L9162
	CPI	0
	JZ	L8A98
	STA	L8F99
	LXI	H,L9165
L8A38:	MOV	A,M
	CPI	1
	JZ	L8A45
	LXI	D,0006H
	DAD	D
	JMP	L8A38

L8A45:	INX	H
	PUSH	H
	MOV	A,M
	ANI	0FEH
	MOV	L,A
	MVI	H,0
	SHLD	L8F9A
	POP	H
	INX	H
	PUSH	H
	MOV	E,M
	MVI	D,0
	LXI	H,0004H
	CALL	L82A6
	XCHG
	LXI	H,001FH
	CALL	L829D
	LXI	D,0080H
	CALL	L82A0
	XCHG
	LHLD	L8F9A
	DAD	D
	LXI	D,7000H
	DAD	D
	XCHG
	LHLD	L8F9C
	CALL	L829D
	MOV	A,H
	CPI	0
	JNZ	L8A85
	MOV	A,L
	CPI	0
	JZ	L8AA2
L8A85:	LDA	L8F99
	SUI	1
	JZ	L8A98
	STA	L8F99
	POP	H
	LXI	D,0004H
	DAD	D
	JMP	L8A38

L8A98:	POP	H
	LXI	H,L8F64
	CALL	L8E3F
L8A9F:	JMP	L8A9F

L8AA2:	POP	H
	DCX	H
	DCX	H
	MVI	M,0
	MVI	A,1
	STA	L8FA0
	LDA	L9162
	SUI	1
	STA	L9162
	LDA	L8F79
	CPI	1
	JZ	L8AFE
	LHLD	L8F34
	LXI	D,0064H
	DAD	D
	SHLD	L8F34
	LHLD	L8F32
	DAD	D
	SHLD	L8F32
	CALL	L8EE0
	LHLD	L8F4F
	MVI	M,20H
	INX	H
	MVI	M,4
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,4
	CALL	L8BBF
	LDA	L8F85
	SUI	1
	STA	L8F85
	DCR	B
	MOV	D,A
	LDA	L8F61
	ADD	D
	JZ	L837B
	MOV	A,B
	CPI	0
	JZ	L8522
	LHLD	L8F5A
	JMP	L84E0

L8AFE:	LHLD	L8F34
	LXI	D,0032H
	DAD	D
	SHLD	L8F34
	LHLD	L8F32
	DAD	D
	SHLD	L8F32
	CALL	L8EE0
	LHLD	L8F4F
	MVI	C,3
L8B17:	MVI	M,20H
	INX	H
	MVI	M,4
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,4
	INX	H
	MVI	M,20H
	INX	H
	MVI	M,4
	DCR	C
	JZ	L8B40
	MVI	A,7BH
	CALL	L82A3
	MOV	A,H
	CPI	80H
	JM	L8B17
	LXI	D,1000H
	CALL	L829D
	JMP	L8B17

L8B40:	CALL	L8BBF
	LDA	L8F61
	SUI	1
	STA	L8F61
	DCR	B
	PUSH	B
	LDA	L8F85
	MOV	B,A
	LXI	H,91B0H
L8B54:	MOV	A,B
	CPI	0
	JZ	L8B62
	LXI	D,0004H
	DAD	D
	DCR	B
	JMP	L8B54

L8B62:	MVI	B,4
	SHLD	L8F57
	CALL	L8E51
	LHLD	L8F9C
	XCHG
	LHLD	L8F57
	MVI	A,0
L8B73:	MOV	M,E
	INX	H
	MOV	M,D
	INX	H
	INX	H
	INX	H
	INX	D
	INX	D
	MOV	M,E
	INX	H
	MOV	M,D
	CPI	1
	JZ	L8BA2
	INX	H
	INX	H
	INX	H
	PUSH	H
	XCHG
	MVI	A,7AH
	CALL	L82A3
	MOV	A,H
	CPI	80H
	JNZ	L8B9B
	PUSH	D
	LXI	D,1000H
	CALL	L829D
	POP	D
L8B9B:	XCHG
	POP	H
	MVI	A,1
	JMP	L8B73

L8BA2:	LDA	L8F85
	ADI	4
	STA	L8F85
	POP	B
	LDA	L8F61
	CPI	0
	JZ	L84CC
	MOV	A,B
	CPI	0
	JZ	L84CC
	LHLD	L8F5A
	JMP	L843F

L8BBF:	LHLD	L8F5A
	MOV	A,B
	CPI	0
	RZ
	STA	L8FA4
L8BC9:	SHLD	L8FA2
	LXI	D,0004H
	DAD	D
	CALL	L8E17
	LHLD	L8FA2
	CALL	L8E2B
	LDA	L8FA4
	SUI	1
	RZ
	STA	L8FA4
	LHLD	L8FA2
	DAD	D
	JMP	L8BC9

L8BE9:	MOV	A,M
	CPI	0
	JZ	L8BF7
	INX	H
	MOV	A,M
	CPI	80H
	JP	L8BFA
	DCX	H
L8BF7:	MVI	M,20H
	RET

L8BFA:	POP	D
	CPI	87H
	JZ	L89DE
	CPI	83H
	JZ	L8A22
	PUSH	D
	DCX	H
	JMP	L8BF7

L8C0A:	MOV	A,M
	CPI	0
	JZ	L8C18
	INX	H
	MOV	A,M
	CPI	80H
	JP	L8C1B
	DCX	H
L8C18:	LDAX	D
	MOV	M,A
	RET

L8C1B:	INX	SP
	INX	SP
	CPI	87H
	JZ	L89DE
	CPI	83H
	JZ	L8A22
	DCX	SP
	DCX	SP
	DCX	H
	JMP	L8C18

L8C2D:	LHLD	L8F4F
	LDA	L8F59
	CPI	0
	JZ	L8C51
	MVI	D,0
	LDA	L8F51
	MOV	E,A
	CALL	L829D
	LXI	D,6FFFH
	MOV	A,H
	CMP	D
	JNZ	L8C4B
	MOV	A,L
	CMP	E
L8C4B:	RP
	MOV	A,H
	ADI	10H
	MOV	H,A
	RET

L8C51:	LDA	L8F51
	ADD	L
	MOV	L,A
	RNC
	INR	H
	MOV	A,H
	CPI	80H
	RM
	LXI	D,1000H
	CALL	L829D
	RET

L8C63:	PUSH	D
	PUSH	H
	LXI	H,0002H
	MVI	D,14H
	MVI	E,0
L8C6C:	DCX	H
	MOV	A,L
	CPI	0
	JZ	L8C7D
L8C73:	DCX	D
	MOV	A,D
	CPI	0
	JZ	L8C6C
	JMP	L8C73

L8C7D:	POP	H
	POP	D
	RET

L8C80:	PUSH	D
	PUSH	H
	LXI	H,0010H
	LXI	D,2000H
	JMP	L8C6C

L8C8B:	PUSH	D
	PUSH	H
	LXI	H,0FFFFH
	LXI	D,0FFFFH
	JMP	L8C6C

L8C96:	LXI	H,L9020
L8C99:	MOV	C,M
	INX	H
	MOV	A,C
	CPI	0
	RZ
	MOV	E,M
	INX	H
	CALL	L8CAB
	JMP	L8C99

L8CA7:	MVI	C,5
	MVI	E,0D6H
L8CAB:	MOV	B,E
L8CAC:	DCR	B
	MOV	A,B
	ORI	0
	JNZ	L8CAC
	LDA	L8FA1
	XRI	2
	OUT	4
	STA	L8FA1
	DCR	C
	MOV	A,C
	ORI	0
	JNZ	L8CAB
	RET

L8CC5:	ANI	3FH
	STA	L8F5F
	CPI	20H
	JP	L8CF5
	CPI	5
	JM	L8D1B
	CPI	9
	JM	L8D27
	CPI	0DH
	JM	L8D33
	CPI	11H
	JM	L8D3F
	CPI	15H
	JM	L8D4B
	CPI	19H
	JM	L8D57
	CPI	1DH
	JM	L8D63
	JMP	L8D6F

L8CF5:	CPI	25H
	JM	L8D7B
	CPI	29H
	JM	L8D87
	CPI	2DH
	JM	L8D93
	CPI	31H
	JM	L8D9F
	CPI	35H
	JM	L8DAB
	CPI	39H
	JM	L8DB7
	CPI	3DH
	JM	L8DC3
	JMP	L8DCF

L8D1B:	LXI	H,0003H
	SHLD	L8F53
	LXI	H,L8FAF
	JMP	L8DD8

L8D27:	LXI	H,0104H
	SHLD	L8F53
	LXI	H,L8FB7
	JMP	L8DD8

L8D33:	LXI	H,0203H
	SHLD	L8F53
	LXI	H,L8FBF
	JMP	L8DD8

L8D3F:	LXI	H,0201H
	SHLD	L8F53
	LXI	H,L8FC5
	JMP	L8DD8

L8D4B:	LXI	H,0300H
	SHLD	L8F53
	LXI	H,L8FCB
	JMP	L8DD8

L8D57:	LXI	H,02FFH
	SHLD	L8F53
	LXI	H,L8FD1
	JMP	L8DD8

L8D63:	LXI	H,02FDH
	SHLD	L8F53
	LXI	H,L8FD7
	JMP	L8DD8

L8D6F:	LXI	H,01FCH
	SHLD	L8F53
	LXI	H,L8FDD
	JMP	L8DD8

L8D7B:	LXI	H,00FDH
	SHLD	L8F53
	LXI	H,L8FE5
	JMP	L8DD8

L8D87:	LXI	H,0FFFCH
	SHLD	L8F53
	LXI	H,L8FED
	JMP	L8DD8

L8D93:	LXI	H,0FEFDH
	SHLD	L8F53
	LXI	H,L8FF5
	JMP	L8DD8

L8D9F:	LXI	H,0FEFFH
	SHLD	L8F53
	LXI	H,L8FFB
	JMP	L8DD8

L8DAB:	LXI	H,0FD00H
	SHLD	L8F53
	LXI	H,L9001
	JMP	L8DD8

L8DB7:	LXI	H,0FE01H
	SHLD	L8F53
	LXI	H,L9007
	JMP	L8DD8

L8DC3:	LXI	H,0FE03H
	SHLD	L8F53
	LXI	H,L900D
	JMP	L8DD8

L8DCF:	LXI	H,0FF04H
	SHLD	L8F53
	LXI	H,L9013
L8DD8:	SHLD	L8F5C
	LDA	L8FA5
	STA	L8FAB
	LDA	L8FA6
	STA	L8FAC
	LXI	H,L8FA7
	CALL	L8E3F
	LHLD	L8F5C
	CALL	L8E3F
	LXI	H,L8FA7
	MVI	M,1EH
	RET

L8DF9:	LXI	H,L8F86
	LXI	D,L8F8F
	MVI	B,9
L8E01:	MOV	A,M
	OUT	7
	IN	1
	CPI	0FEH
	JZ	L8E12
	INX	H
	INX	D
	DCR	B
	RZ
	JMP	L8E01

L8E12:	LDAX	D
	STA	L8F98
	RET

L8E17:	MOV	A,M
	STA	L8F4F
	INX	H
	MOV	A,M
	STA	L8F50
	INX	H
	MOV	A,M
	STA	L8F51
	INX	H
	MOV	A,M
	STA	L8F59
	RET

L8E2B:	LDA	L8F4F
	MOV	M,A
	INX	H
	LDA	L8F50
	MOV	M,A
	INX	H
	LDA	L8F51
	MOV	M,A
	INX	H
	LDA	L8F59
	MOV	M,A
	RET

L8E3F:	MOV	A,M
	CPI	0FEH
	RZ
	CALL	L82AC
	INX	H
	JMP	L8E3F

L8E4A:	LDA	L8F61
	MOV	B,A
	LXI	H,L9188
L8E51:	SHLD	L8F62
	CALL	L8E86
	ANI	0FEH
	STA	L8F4F
	CALL	L8E86
	ORI	70H
	ANI	7FH
	STA	L8F50
	CALL	L8E97
	STA	L8F51
	CALL	L8E86
	ANI	1
	STA	L8F59
	LHLD	L8F62
	CALL	L8E2B
	DCR	B
	RZ
	LHLD	L8F62
	LXI	D,0004H
	DAD	D
	JMP	L8E51

L8E86:	LXI	H,L8F4D
	MOV	A,M
	RLC
	XRA	M
	RRC
	INR	L
	INR	M
	ADD	M
	JPE	L8E94
	INR	M
L8E94:	DCR	L
	MOV	M,A
	RET

L8E97:	CALL	L8E86
	CPI	0
	JZ	L8E97
	ANI	7
	CPI	1
	JP	L8EAB
	MVI	A,2
	JMP	L8EDF

L8EAB:	CPI	2
	JP	L8EB5
	MVI	A,4
	JMP	L8EDF

L8EB5:	CPI	3
	JP	L8EBF
	MVI	A,7CH
	JMP	L8EDF

L8EBF:	CPI	4
	JP	L8EC9
	MVI	A,7EH
	JMP	L8EDF

L8EC9:	CPI	5
	JP	L8ED3
	MVI	A,80H
	JMP	L8EDF

L8ED3:	CPI	6
	JP	L8EDD
	MVI	A,82H
	JMP	L8EDF

L8EDD:	MVI	A,84H
L8EDF:	RET

L8EE0:	PUSH	B
	PUSH	H
	LXI	H,L8F3D
	MVI	M,30H
	INX	H
	MVI	M,30H
	INX	H
	MVI	M,30H
	INX	H
	MVI	M,30H
	INX	H
	MVI	M,30H
	POP	H
	LXI	B,L8F41
L8EF7:	LXI	D,000AH
	XCHG
	CALL	L82A6
	MOV	A,E
	ADI	30H
	STAX	B
	DCX	B
	XRA	A
	CMP	L
	JNZ	L8EF7
	CMP	H
	JNZ	L8EF7
	POP	B
	LHLD	L8F34
	MOV	A,H
	CPI	27H
	RM
	MOV	A,L
	CPI	10H
	RM
	LXI	D,2710H
	CALL	L829D
	SHLD	L8F34
	LDA	L8F9F
	ADI	1
	STA	L8F9F
	LDA	L8F9E
	SUI	1
	STA	L8F9E
	RET

L8F32:	INX	B
	DCX	H
L8F34:	MOV	A,H
	ORA	L
L8F36:	MOV	D,E
	MOV	B,E
	MOV	C,A
	MOV	D,D
	MOV	B,L
	DB	3AH
	DB	20H
L8F3D:	DB	30H
	DB	30H
	DB	30H
	DB	30H
L8F41:	DB	30H
L8F42:	DB	0
L8F43:	MOV	E,C
L8F44:	ADC	A
L8F45:	MVI	E,6
	INX	B
	STAX	B
L8F49:	DB	0C6H
L8F4A:	DAD	B
	RST	7
	DB	0FEH
L8F4D:	INR	C
L8F4E:	STAX	B
L8F4F:	DB	0CDH
L8F50:	RP
L8F51:	ADC	M
L8F52:	DCR	B
L8F53:	DB	0C2H
	MOV	C,A
L8F55:	ADC	A
	POP	PSW
L8F57:	POP	B
	RET

L8F59:	DB	01H
L8F5A:	DCR	C
	LDAX	B
L8F5C:	MVI	B,2
L8F5E:	MOV	B,E
L8F5F:	MOV	C,A
L8F60:	DB	0
L8F61:	DB	0
L8F62:	MOV	D,L
	MOV	B,E
L8F64:	MVI	B,1
	MOV	C,L
	MOV	C,C
	MOV	D,E
	MOV	D,E
	MOV	C,C
	MOV	C,H
	MOV	B,L
	DB	20H
	MOV	C,M
	MOV	C,A
	MOV	D,H
	DB	20H
	MOV	B,M
	MOV	C,A
	MOV	D,L
	MOV	C,M
	MOV	B,H
	DB	21H
	DB	0FEH
L8F79:	LDAX	B
	INR	D
	DCR	B
	INR	E
	LXI	B,0220H
	INR	E
	RAR
L8F82:	RAL
	INX	B
	INR	B
L8F85:	DB	0
L8F86:	MVI	C,0DH
	INR	C
	DCX	B
	LDAX	B
	DAD	B
	DB	8
	RLC
	DB	06H
L8F8F:	LXI	B,0302H
	INR	B
	DCR	B
	MVI	B,7
	DB	8
	DAD	B
L8F98:	ADC	M
L8F99:	DB	36H
L8F9A:	DB	0
	DB	0
L8F9C:	PUSH	B
	DB	0
L8F9E:	ANA	H
L8F9F:	ADC	A
L8FA0:	DB	01H
L8FA1:	DB	8
L8FA2:	STC
	STAX	B
L8FA4:	DB	36H
L8FA5:	MOV	B,B
L8FA6:	MOV	B,B
L8FA7:	DCR	E
	MVI	B,7
	STAX	B
L8FAB:	INR	L
L8FAC:	LXI	SP,0FEFBH
L8FAF:	STAX	B
	SHLD	L90A2
	LXI	D,0FF11H
	DB	0FEH
L8FB7:	LHLD	0A12AH
	ADD	C
	DCR	D
	LXI	B,0FEFFH
L8FBF:	XRA	D
	ADC	B
	LXI	D,0FF55H
	DB	0FEH
L8FC5:	ADC	B
	SUB	C
	MOV	D,L
	INR	B
	RST	7
	DB	0FEH
L8FCB:	ADC	B
	SBB	C
	MOV	D,L
	MOV	B,H
	RST	7
	DB	0FEH
L8FD1:	ADC	C
	SUB	C
	MOV	D,H
	INR	B
	RST	7
	DB	0FEH
L8FD7:	SBB	C
	LXI	D,6644H
	RST	7
	DB	0FEH
L8FDD:	DAD	D
	LXI	D,4652H
	MVI	H,2
	RST	7
	DB	0FEH
L8FE5:	LXI	D,0115H
	MOV	H,B
	SHLD	0FF22H
	DB	0FEH
L8FED:	DCR	D
	DCR	D
	MOV	D,D
	MOV	B,D
	LHLD	0FF02H
	DB	0FEH
L8FF5:	MOV	D,L
	MOV	B,H
	SHLD	0FFAAH
	DB	0FEH
L8FFB:	MOV	B,H
	MOV	H,D
	XRA	D
	DB	8
	RST	7
	DB	0FEH
L9001:	MOV	B,H
	MOV	H,M
	XRA	D
	ADC	B
	RST	7
	DB	0FEH
L9007:	MOV	B,M
	MOV	H,D
	XRA	B
	DB	8
	RST	7
	DB	0FEH
L900D:	MOV	H,M
	SHLD	9988H
	RST	7
	DB	0FEH
L9013:	MVI	H,22H
	ANA	C
	ADC	C
	DAD	D
	LXI	B,0FEFFH
L901B:	MVI	E,6
	INR	B
	INR	C
	DB	0FEH
L9020:	STA	2812H
	DB	18H
	INR	M
	INR	D
	DAD	H
	LDAX	D
	MVI	M,16H
	DCX	H
	DCR	E
	LDA	2E1CH
	LXI	H,2240H
	STA	462AH
	INR	L
	INR	A
	STA	344CH
	MOV	B,C
	DB	38H
	MOV	D,D
	MVI	A,4AH
	MOV	B,C
	MOV	H,H
	MOV	H,H
	MOV	L,C
	MOV	A,B
	ADD	D
	SBB	B
	ADC	H
	ANA	B
	ANI	0F0H
	DB	0
	DB	0
L904C:	MVI	E,6
	DB	01H
	STAX	B
L9050:	DB	32H
L9051:	LXI	B,28FBH
	LXI	D,2244H
	LDAX	B
	ADD	B
	DB	8
	DB	10H
	LXI	B,0110H
	MOV	B,B
	INR	B
	MOV	B,B
	INR	B
	DB	20H
	STAX	B
	DB	20H
	STAX	B
	ANA	B
	DB	8
	ADD	B
	ADD	B
	DB	8
	DB	10H
	DB	10H
	LXI	B,1010H
	LXI	B,4040H
	INR	B
	MOV	B,B
	MOV	B,B
	INR	B
	DB	20H
	DB	20H
	STAX	B
	DB	20H
	DB	20H
	STAX	B
	ANA	B
	ADD	B
	DB	8
	ADD	B
	ADD	B
	ADD	B
	DB	8
	DB	10H
	DB	10H
	DB	10H
	LXI	B,1010H
	DB	10H
	LXI	B,4040H
	MOV	B,B
	INR	B
	MOV	B,B
	MOV	B,B
	MOV	B,B
	INR	B
	DB	20H
	DB	20H
	DB	20H
	STAX	B
	DB	20H
	DB	20H
	DB	20H
	STAX	B
	ANA	B
	ADD	B
	ADD	B
	DB	8
	SUB	B
	SUB	B
L90A2:	SUB	B
	SUB	B
	DAD	B
	MOV	D,B
	MOV	D,B
	MOV	D,B
	MOV	D,B
	DCR	B
	MOV	H,B
	MOV	H,B
	MOV	H,B
	MOV	H,B
	MVI	B,60H
	STAX	B
	ANA	B
	ANA	B
	ANA	B
	STAX	B
	ADD	B
	ADD	B
	ADD	B
	ADD	B
	ADD	B
	DB	8
	SUB	B
	SUB	B
	SUB	B
	LXI	B,1010H
	DB	10H
	DB	10H
	LXI	B,5050H
	MOV	D,B
	INR	B
	MOV	B,B
	MOV	B,B
	MOV	B,B
	MOV	B,B
	INR	B
	MOV	H,B
	MOV	H,B
	MOV	H,B
	STAX	B
	RST	7
	DB	0FEH
L90D3:	MVI	B,27H
	INR	C
	MVI	C,3
	DCR	E
	RRC
	MOV	B,C
	MOV	D,E
	MOV	D,H
	MOV	B,L
	MOV	D,D
	MOV	C,A
	MOV	C,C
	MOV	B,H
	MOV	D,E
	STAX	B
	DB	38H
	INR	A
	JP	4B38H
	MOV	C,L
	MOV	C,E
	MOV	C,L
	INR	A
	DB	38H
	INR	A
	RST	7
	RRC
	INX	B
	DB	18H
	STAX	D
	MVI	B,23H
	LXI	SP,3839H
	DB	30H
	DB	20H
	MOV	B,D
	MOV	E,C
	DB	20H
	MOV	D,H
	MOV	C,A
	MOV	C,L
	DB	20H
	MOV	C,B
	MOV	D,L
	MOV	B,H
	MOV	D,E
	MOV	C,A
	MOV	C,M
	DB	0FEH
L9109:	INX	B
	ADD	B
	RAL
	DCX	D
	MOV	B,C
	LHLD	2A2AH
	DB	20H
	MOV	B,A
	MOV	B,C
	MOV	C,L
	MOV	B,L
	DB	20H
	MOV	C,A
	MOV	D,M
	MOV	B,L
	MOV	D,D
	DB	20H
	LHLD	2A2AH
	DCX	D
	DCX	D
	RST	5
L9122:	MOV	D,D
L9123:	MOV	B,C
L9124:	INX	B
	ADD	B
	DB	10H
	RRC
	INX	B
	MOV	B,L
	MOV	C,M
	MOV	D,H
	MOV	B,L
	MOV	D,D
	DB	20H
	MOV	C,M
	MOV	D,L
	MOV	C,L
	MOV	B,D
	MOV	B,L
	MOV	D,D
	DB	20H
	MOV	C,A
	MOV	B,M
	DB	20H
	MOV	B,C
	MOV	D,E
	MOV	D,H
	MOV	B,L
	MOV	D,D
	MOV	C,A
	MOV	C,C
	MOV	B,H
	MOV	D,E
	DB	20H
	DB	28H
	LXI	SP,392DH
	DAD	H
	DCX	D
	DCX	D
	RST	5
L914B:	MOV	B,C
L914C:	MOV	D,E
L914D:	DB	32H
L914E:	DB	3AH
L914F:	DAD	B
L9150:	DB	0
L9151:	DB	0
L9152:	DCR	E
	MVI	B,0
	STAX	B
L9156:	DB	36H
L9157:	INR	L
	RST	7
	DB	0FEH
L915A:	MVI	E,6
	DB	0
	STAX	B
L915E:	MOV	D,D
L915F:	MOV	B,C
	RST	7
	DB	0FEH
L9162:	DB	0
L9163:	DB	3AH
	DAD	B
L9165:	MOV	B,H
	MOV	D,E
	DAD	B
	LXI	SP,0A0DH
	MOV	B,L
	MOV	D,D
	MOV	B,C
	MOV	D,E
	MOV	E,C
	STA	093AH
	MOV	B,H
	MOV	D,E
	DAD	B
	LXI	SP,0A0DH
	DAD	B
	MOV	B,H
	MOV	B,D
	DAD	B
	STA	3535H
	INR	L
	STA	3435H
	DCR	C
	LDAX	B
	MOV	C,L
	MOV	C,C
L9188:	MOV	D,E
	MOV	B,E
	MOV	C,M
	MOV	D,H
	LDA	4409H
	MOV	B,D
	DAD	B
	DB	30H
	DCR	C
	LDAX	B
	MOV	C,B
	MOV	C,A
	MOV	C,H
	MOV	B,H
	INX	SP
	LDA	0000H

	END	829AH