From e9ca59c76b1c94a245a9fb6c6ad9fea2ea10189a Mon Sep 17 00:00:00 2001
From: Piotr Fusik <fox@scene.pl>
Date: Sun, 4 Oct 1998 19:27:10 +0200
Subject: [PATCH] X-Assembler 2.0 beta 3.

---
 xasm.asm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/xasm.asm b/xasm.asm
index 6bbcf24..d9ffdda 100644
--- a/xasm.asm
+++ b/xasm.asm
@@ -1762,6 +1762,10 @@ equret:	ret
 
 nolabl:	error	e_label
 
+chkhon:	test	[flags], m_hdr
+	jnz	equret
+	error	e_hoff
+
 p_org:	call	spaces
 	and	[flags], not m_norg
 	lodsw
@@ -1775,12 +1779,14 @@ p_org:	call	spaces
 	jmp	orget
 orgff:	or	[flags], m_rqff
 orgaf:	or	[flags], m_rorg
+	call	chkhon
 orget:	call	getuns
 	jc	unknow
 	mov	[origin], ax
 	ret
 
-p_rui:	mov	ah, 2
+p_rui:	call	chkhon
+	mov	ah, 2
 	mov	[origin], ax
 	call	spauns
 	jmp	savwor
@@ -2282,7 +2288,7 @@ noper1	=	$-opert1
 
 swilet	db	'TSOLIC'
 
-hello	db	'X-Assembler 2.0áII by Fox/Taquart',eot
+hello	db	'X-Assembler 2.0á3 by Fox/Taquart',eot
 hellen	=	$-hello-1
 usgtxt	db	"Syntax: XASM source [options]",eol
 	db	"/c         List false conditionals",eol
@@ -2345,6 +2351,7 @@ e_mift	db	'Missing IFT',eol
 e_meif	db	'Missing EIF',eol
 e_norg	db	'No ORG specified',eol
 e_fshor	db	'File is too short',eol
+e_hoff	db	'Illegal when headers off',eol
 
 exitcod	dw	4c00h
 ohand	dw	nhand