WebSVN – pentevo – Blame – //rom/fat_boot/source/drivers/drv_zc.a80

Rev	Author	Line No.	Line
680	savelij	1
1046	savelij	2	; LAST UPDATE: 21.12.2022 savelij
680	savelij	3
		4	;================�� ZC SD ��===================
		5	READ_SD PUSH AF
		6	LD A,1
		7	OUT (P_CONF),A
		8	POP AF
		9	EX AF,AF'
		10	LD A,CMD_18
		11	CALL SECM200
		12	EX AF,AF'
		13	RDMULT1 EX AF,AF'
		14	RDMULT2 CALL IN_OOUT
		15	CP 0XFE
		16	JR NZ,RDMULT2
		17	PUSH BC
		18	LD BC,P_DATA
		19	INIR
		20	NOP
		21	INIR
		22	NOP
		23	IN A,(C)
		24	NOP
		25	IN A,(C)
		26	POP BC
		27	EX AF,AF'
		28	DEC A
		29	JR NZ,RDMULT1
		30	LD A,CMD_12
		31	CALL OUT_COM
		32	RDMULT3 CALL IN_OOUT
		33	INC A
		34	JR NZ,RDMULT3
		35	PUSH AF
		36	LD A,3
		37	OUT (P_CONF),A
		38	XOR A
		39	OUT (P_DATA),A
		40	POP AF
		41	RET
		42
		43	SECM200 PUSH HL
		44	PUSH DE
		45	PUSH BC
		46	PUSH AF
		47	PUSH BC
		48	LD A,CMD_58
		49	LD BC,P_DATA
		50	CALL OUT_COM
		51	CALL IN_OOUT
		52	IN A,(C)
		53	NOP
		54	IN H,(C)
		55	NOP
		56	IN H,(C)
		57	NOP
		58	IN H,(C)
		59	BIT 6,A
		60	POP HL
		61	JR NZ,SECN200
		62	EX DE,HL
		63	ADD HL,HL
		64	EX DE,HL
		65	ADC HL,HL
		66	LD H,L
		67	LD L,D
		68	LD D,E
		69	LD E,0
		70	SECN200 POP AF
1046	savelij	71	in (c) ;in f,(c)
		72	in (c) ;in f,(c)
680	savelij	73	LD BC,P_DATA
		74	OUT (C),A
		75	NOP
		76	OUT (C),H
		77	NOP
		78	OUT (C),L
		79	NOP
		80	OUT (C),D
		81	NOP
		82	OUT (C),E
		83	LD A,0XFF
		84	OUT (C),A
		85	POP BC
		86	POP DE
		87	POP HL
		88	RET
		89
		90	OUT_COM PUSH BC
		91	LD BC,P_DATA
1046	savelij	92	in (c) ;in f,(c)
		93	in (c) ;in f,(c)
680	savelij	94	OUT (C),A
		95	XOR A
		96	OUT (C),A
		97	NOP
		98	OUT (C),A
		99	NOP
		100	OUT (C),A
		101	NOP
		102	OUT (C),A
		103	DEC A
		104	OUT (C),A
		105	POP BC
		106	RET
		107
		108	IN_OOUT PUSH DE
		109	LD DE,0X20FF
		110	IN_WAIT IN A,(P_DATA)
		111	CP E
		112	JR NZ,IN_EXIT
		113	IN_NEXT DEC D
		114	JR NZ,IN_WAIT
		115	IN_EXIT POP DE
		116	RET
		117	;================�� ZC SD ��===================

Subversion Repositories pentevo