push dx
	mov ax, " E"
	mov dx, "N="
	call disp_dxax
	mov ax, [es:bx]
	call disp_ax_hex
	push bx
	push es
	mov ah, 62h
	int 21h
	mov es, bx
	mov bx, word [es:2Ch]
	mov ax, " e"
	mov dx, "s="
	call disp_dxax
	mov ax, es
	call disp_ax_hex
	mov ax, " b"
	mov dx, "x="
	call disp_dxax
	mov ax, bx
	call disp_ax_hex
	And word [es:2Ch], 0
	pop es
	pop bx
	mov ax, 0A0Dh
	call disp_ax
	pop dx
	XOR	AX,AX			;Load and go
	MOV	AH, 4Bh
	STC				;IN CASE OF INT 24
	retf


%imacro public 0-1+
%endmacro

	public disp_dxax
disp_dxax:
	call disp_ax
	xchg dx, ax
	call disp_ax
	xchg dx, ax
	retn

	public disp_dlax
disp_dlax:
	call disp_ax
	xchg dx, ax
	call disp_al
	xchg dx, ax
	retn

	public disp_ax
disp_ax:
	call disp_al
	xchg al, ah
	call disp_al
	xchg al, ah
	retn

	public disp_al
disp_al:
	push ax
	push bx
	push bp
	mov ah, 0Eh
	mov bx, 7
	int 10h
	pop bp
	pop bx
	pop ax
	retn

	public disp_ax_hex
disp_ax_hex:
	xchg al, ah
	call disp_al_hex
	xchg al, ah
disp_al_hex:
	push cx
	mov cl, 4
	rol al, cl
	call disp_nybble_hex
	rol al, cl
	pop cx
disp_nybble_hex:
	push ax
	and al, 15
	add al, '0'
	cmp al, '9'
	jbe .got
	add al, 'A' - ('9' + 1)
.got:
	call disp_al
	pop ax
	retn