title	Module from library BASE_1 : INDEXA
	name	('INDEXA')
	maclib	baselib.lib

; Get indexed address from table

; Copyright (C)	Werner Cirsovius
;		Hohe Weide 44
;		D-20253 Hamburg
;		Tel.: +49-40-4223247

;		Version 1.0 April 1987

; ENTRY	Accu holds index of table
;	Reg pair HL holds base address of table

; EXIT	Reg pair HL holds indexed address
;	Reg pair DE holds content of indexed address

	entry	indexa

indexa:
	ld	e,a		; Get index
	ld	d,0
	add	hl,de		; Set subaddress
	add	hl,de
	ld	e,(hl)		; Get content
	inc	hl
	ld	d,(hl)
	dec	hl
	ret

	end