WebSVN – pentevo – Blame – /z80_soft/zmodem/source/memory.a80

Rev	Author	Line No.	Line
638	savelij	1
639	savelij	2	;LAST UPDATE: 28.03.2014 savelij
638	savelij	3
639	savelij	4	INIT_PAGE IF MEMTYPE=PROFI
		5	EXX
		6	LD (TEK_PAGE),A
638	savelij	7	LD D,A
639	savelij	8	RRCA
		9	RRCA
		10	RRCA
		11	AND 7
		12	OR 0X20
		13	LD BC,0XDFFD
		14	OUT (C),A
		15	LD A,D
		16	AND 7
		17	OR 0X10
		18	LD B,HIGH (0X7F)
		19	OUT (C),A
		20	EXX
		21	RET
		22	ELSEIF MEMTYPE=PENT22
		23	EXX
		24	LD (TEK_PAGE),A
		25	LD D,A
		26	CPL
		27	AND 0X3F
		28	LD E,A
		29	AND 0X27
		30	OR 0X10
		31	LD C,A
		32	LD A,E
		33	RLCA
		34	RLCA
		35	RLCA
		36	AND 0XC0
		37	OR C
		38	LD BC,0X7FFD
		39	OUT (C),A
		40	EXX
		41	RET
		42	ELSE
		43	EXX
		44	LD (TEK_PAGE),A
		45	LD D,A
638	savelij	46	PEC_ON SHADOW_BF
		47	LD BC,WIN_A3
		48	LD E,0X40
		49	OUT (C),E
		50	LD B,HIGH (WIN_P3)
		51	OUT (C),D
		52	LD A,D
		53	LD (TEK_PAGE),A
		54	EXX
		55	RET
639	savelij	56	ENDIF
638	savelij	57
639	savelij	58	NEXT_PAGE IF MEMTYPE=PROFI
		59	EXX
		60	LD BC,0XDFFD
		61	LD A,(TEK_PAGE)
		62	IF MEMTYPE=PROFI
		63	DEC A
		64	ELSE
		65	INC A
		66	ENDIF
		67	LD (TEK_PAGE),A
		68	RRCA
		69	RRCA
		70	RRCA
		71	AND 7
		72	OR 0X20
		73	OUT (C),A
		74	LD A,(TEK_PAGE)
		75	AND 7
		76	OR 0X10
		77	LD B,HIGH (0X7F)
		78	OUT (C),A
		79	EXX
		80	LD HL,CPU3
		81	RET
		82	ELSEIF MEMTYPE=PENT22
		83	EXX
		84	LD A,(TEK_PAGE)
		85	INC A
		86	LD (TEK_PAGE),A
		87	LD D,A
		88	CPL
		89	AND 0X3F
		90	LD E,A
		91	AND 0X27
		92	OR 0X10
		93	LD C,A
		94	LD A,E
		95	RLCA
		96	RLCA
		97	RLCA
		98	AND 0XC0
		99	OR C
		100	LD BC,0X7FFD
		101	OUT (C),A
		102	EXX
		103	LD HL,CPU3
		104	RET
		105	ELSE
		106	EXX
638	savelij	107	LD BC,WIN_P3
		108	LD A,(TEK_PAGE)
		109	INC A
		110	OUT (C),A
		111	LD (TEK_PAGE),A
		112	EXX
		113	LD HL,CPU3
		114	RET
639	savelij	115	ENDIF

Subversion Repositories pentevo