Subversion Repositories ngs

(root)/zx/Neo Player Light/local_macros.a80 – Rev 165

Rev 163 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev	Author	Line No.	Line
163	savelij	1
165	savelij	2	; LAST UPDATE: 13.01.2024 savelij
163	savelij	3
		4	OUT_GSDAT MACRO NUM
		5	IF NUM = 0
		6	XOR A
		7	ELSE
		8	LD A,NUM
		9	ENDIF
		10
		11	IFDEF _SPRINTER
		12	LD (0xC000 + GSDAT),A
		13	ELSE
		14	OUT (GSDAT),A
		15	ENDIF
		16	ENDM
		17
		18	OUT_GSCOM MACRO NUM
		19	IF NUM = 0
		20	XOR A
		21	ELSE
		22	LD A,NUM
		23	ENDIF
		24
		25	IFDEF _SPRINTER
		26	LD (0xC000 + GSCOM),A
		27	ELSE
		28	OUT (GSCOM),A
		29	ENDIF
		30	ENDM
		31
		32	IN_GSDAT MACRO
		33	IFDEF _SPRINTER
		34	LD A,(0xC000 + GSDAT)
		35	ELSE
		36	IN A,(GSDAT)
		37	ENDIF
		38	ENDM
		39
		40	IN_GSCOM MACRO
		41	IFDEF _SPRINTER
		42	LD A,(0xC000 + GSCOM)
		43	ELSE
		44	IN A,(GSCOM)
		45	ENDIF
		46	ENDM
		47
		48	OUT_GSCTR MACRO NUM
		49	IF NUM = 0
		50	XOR A
		51	ELSE
		52	LD A,NUM
		53	ENDIF
		54
		55	IFDEF _SPRINTER
		56	LD (0xC000 + GSCTR),A
		57	ELSE
		58	OUT (GSCTR),A
		59	ENDIF
		60	ENDM
		61
		62	OUT_GSDAT_A MACRO
		63	IFDEF _SPRINTER
		64	LD (0xC000 + GSDAT),A
		65	ELSE
		66	OUT (GSDAT),A
		67	ENDIF
		68	ENDM
		69
		70	DE_ADR_SCR MACRO x,y
		71	IFDEF _SPRINTER
		72	LD DE,(y + 1) << 8 + x + 1
		73	CALL SET_DE_ADR_SCR
		74	ELSE
		75	LD DE,(((y & 0x18) \| 0x40) << 8) + (((y & 7) << 5) + x)
		76	ENDIF
		77	ENDM
165	savelij	78
		79	LD_A MACRO NUM
		80	IF NUM = 0
		81	XOR A
		82	ELSE
		83	LD A,NUM
		84	ENDIF
		85	ENDM