<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">;
;VRMAC --
;  MACRO ASSEMBLER "RMAC" CHANGES TO DISABLE 8080 OPCODES FOR CROSS-ASSEMBLY
;    WORK
; THIS PATCH WAS ORIGINALLY SUPPLIED WITH MY MAC MANUAL -- RLC
; MODIFIED FOR RMAC AND RESERVED WORD LIST 10/20/81 SHAWN EVERSON
;
;  THIS IS TO BE PATCHED INTO RMAC USING DDT.  AFTER THE PATCH IS COMPLETE,
;    PERFORM A "SAVE 53 VRMAC.COM" TO CREATE VRMAC.COM.
;
RT	EQU	25	; 8080 REGISTER NAME
PT	EQU	26	; PSEUDO OPCODE TYPE
TAREA	EQU	103H	; FREE AREA (REDUNDANT COPYRIGHT NOTICE)
TRAIL	EQU	'@'	; CHAR. TO REPLACE LAST LETTER OF RESERVED WORDS WITH
 
;
	ORG	2914H	; OVERLAY INXH - MOV B,M - RET
	JMP	TAREA
 
;
	ORG	TAREA
 
;  TYPE IS IN THE ACCUMULATOR
	CPI	RT	; BELOW RT IF ARITHMETIC OPERATOR
	JC	TYPEOK
	CPI	PT	; PSEUDO OP?
	RNZ		; RETURN WITH NON-ZERO FLAG
 
;  OTHERWISE, PSEUDO-OP OR ARITHMETIC OP
TYPEOK:
	INX	H
	MOV	B,M
	CMP	A	; SET ZERO FLAG
	RET
;
;LOCATION OF RESERVED WORD &lt;IF&gt;
;
	ORG	2606H
	DB	'I',TRAIL
;
;LOCATION OF RESERVED WORD &lt;OR&gt;
;
	ORG	2610H
	DB	'O',TRAIL
;
;LOCATION OF RESERVED WORD &lt;AND&gt;
;
	ORG	2623H
	DB	'AN',TRAIL
;
;LOCATION OF RESERVED WORD &lt;END&gt;
;
	ORG	2641H
	DB	'EN',TRAIL
;
; LOCATION OF RESERVED WORD &lt;LOW&gt;
;
	ORG	2659H
	DB	'LO',TRAIL
;
;LOCATION OF RESERVED WORD &lt;MOD&gt;
;
	ORG	265FH
	DB	'MO',TRAIL
;
;LOCATION OF RESERVED WORD &lt;NOR&gt;
;
	ORG	266BH
	DB	'NO',TRAIL
;
;LOCATION OF RESERVED WORD &lt;SET&gt;
;
	ORG	2696H
	DB	'SE',TRAIL
;
;LOCATION OF RESERVED WORD &lt;ELSE&gt;
;
	ORG	26C9H
	DB	'ELS',TRAIL
;
;LOCATION OF RESERVED WORD &lt;HIGH&gt;
;
	ORG	26D1H
	DB	'HIG',TRAIL
;
;LOCATION OF RESERVED WORD &lt;NAME&gt;
;
	ORG	26E1H
	DB	'NAM',TRAIL
;
;LOCATION OF RESERVED WORD &lt;PAGE&gt;
;
	ORG	26E5H
	DB	'PAG',TRAIL
;
;LOCATION OF RESERVED WORD &lt;LOCAL&gt;
;
	ORG	2718H
	DB	'LOCA',TRAIL
;
;LOCATION OF RESERVED WORD &lt;MACRO&gt;
;
	ORG	271DH
	DB	'MACR',TRAIL
;
;LOCATION OF RESERVED WORD &lt;TITLE&gt;
;
	ORG	2727H
	DB	'TITL',TRAIL
;
;LOCATION OF RESERVED WORD &lt;COMMON&gt;
;
	ORG	272CH
	DB	'COMMO',TRAIL
;
;LOCATION OF RESERVED WORD &lt;PUBLIC&gt;
;
	ORG	273EH
	DB	'PUBLI',TRAIL
;
;LOCATION OF SIGNON MESSAGE &lt;CP/M MACRO ASSEM 2.0&gt;
;
	ORG	319CH
	DB	'CP/M RMAC ASSEM 1.',TRAIL
;
; TYPE OF SOURCE FILE TO EXPECT
;
	ORG	2A4EH
	DB	'VOC'
;
	END



</pre></body></html>