ORG	100H
	LXI	D,STR1		;'THE TABLE ORIGIN IS: '
	MVI	C,9
	CALL	5
	LHLD	0001
	LXI	D,0030H
	DAD	D
	MOV	E,M
	INX 	H
	MOV	D,M
	CALL	PRTDE
	MVI	C,9
	LXI	D,STR2		;'THE OFFSET IS: '
	CALL	5
	LHLD	1
	LXI	D,0E07DH	;-1F83
	DAD	D		; WARM BOOT ADDRESS- 1F80 BIOS IMAGE ADDRESS
	MOV	A,L
	CMA
	MOV	E,A
	MOV	A,H
	CMA
	MOV	D,A		;DE IS ONES COMPLEMENT OF HL
	INX	D		;NOW TWOS COMPLEMENT = 1F80-BIOSADDRS
	CALL    PRTDE
	JMP	0	;WARM BOOT
PRTDE:	PUSH	D
	MOV	A,D
	CALL    PUT
	POP	D
	MOV	A,E
	CALL	PUT
	RET
PUT:	PUSH	PSW
	RAR
	RAR
	RAR
	RAR
	ANI	0FH
	ADI	30H
	CPI	3AH
	JM	GO
	ADI	7
GO:	MVI	C,02
	MOV	E,A
	CALL	5
	POP	PSW
	ANI	0FH
	ADI	30H
	CPI	3AH
	JM	GO2
	ADI	7
GO2:	MVI	C,02
	MOV	E,A
	CALL	5
	RET
STR1:	DB	'THE TABLE ADDRESS IS:  $'
STR2:	DB	0DH,0AH,'THE OFFSET IS:         $'
	END