Compucolor.org – Virtual Media

Listing of file='JMPTAB.SRC;01' on disk='vmedia/source_4-sector.ccvf'

	ORG	----H	;INSERT ORG IF AT FRONT ONLY

START1:	DI		;DISABLE INT
	LDA	092AH	;TEST LOCATION
	CPI	01FH	;TEST VALUE IN 8.79
	JNZ	START	;IF NOT 0BAH, IS 6.78
	LXI	H,OLDVEC  ;IF 0BAH, IS 8.79 SO
	LXI	D,NEWVEC  ;OVERLAY.
	LXI	B,LENTH	  ;BYTE COUNT

OVLAY:	LDAX	D
	MOV	M,A
	INX	H
	INX	D
	DCX	B
	MOV	A,B
	ORA	C
	JNZ	OVLAY
	EI
	JMP	START	;OR START ADDR IF AT END AND JUMPING
			;BACK FROM A JUMP TO.

;
OLDVEC:

OPEN:	JMP	2DABH
PFSPC:	JMP	3077H
RSWEQI:	JMP	30C6H
INSEQO:	JMP	30E7H
CLSEQO:	JMP	3136H
GTBYT:	JMP	322CH
PTBYT:	JMP	324AH
LO:	JMP	3392H
OSTR:	JMP	33F4H
MOVDH:	JMP	343BH
CMPHD:	JMP	344DH
ADHLA:	JMP	3518H
MULHD:	JMP	3562H
ESCD:	JMP	32C9H
CRLF:	JMP	338BH

;
LENTH	EQU	$-OLDVEC
;

NEWVEC:

	JMP	11E1H	;OPEN
	JMP	14ADH	;PFSPC
	JMP	14FCH	;RWSEQI
	JMP	151DH	;INSEQO
	JMP	156CH	;CLSEQO
	JMP	1662H	;GTBYT
	JMP	1680H	;PTBYT
	JMP	17C8H	;LO
	JMP	182AH	;OSTR
	JMP	1871H	;MOVDH
	JMP	1883H	;CMPHD
	JMP	194EH	;ADHLA
	JMP	1998H	;MULHD
	JMP	16FFH	;ESCD
	JMP	17C1H	;CRLF

;

START:  -----
	-----	;PROG CONTINUES
;
;
;
;	THIS JUMP TABLE SETUP CAN BE AT THE FRONT OR END OF
;	THE PROGRAM AS REQUIRED, IF AT END A JMP IS REQUIRED
;	TO IT AT THE END AND A WAY TO RETURN. PROGRAMS WITH
;	HARD ADDRESSES CANNOT BE ALTERED IN BYTE COUNT.
;	ADD TO JMP TABLES OR DELETE AS REQUIRED.