Compucolor.org – Virtual Media

Listing of file='JMPTAB.MAC;01' on disk='vmedia/asm_utility_4-sideA-sector.ccvf'

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;	JMPTAB - INDEX INTO A JUMP TABLE
;
;	VALUES ON ENTRY:
;	   A  -  INDEX IN TABLE
;	   HL => START OF TABLE
;
;	RETURNS:
;	   HL -  ADDRESS FROM JUMP TABLE
;
	ENTRY	JMPTAB

JMPTAB:	PUSH	D
	MOV	E,A
	MVI	D,0
	DAD	D
	DAD	D
	MOV	E,M
	INX	H
	MOV	D,M
	XCHG
	POP	D
	RET