Ну, а IRPC сделает?
Код:
BXlt	equ	0a5h

DBS.	MACRO	str,stre
	IRPC	x,<str>
	db	'&x&' xor BXlt
	ENDM
	db	'&stre&' or 128 xor BXlt
	ENDM

  5D33                          	OpNum:	DspStr
  5D33    DF              +     		rst	18h
                                                dbs.	<operator:>,< >
  5D34    CA              +     		db	'o' xor BXlt
  5D35    D5              +     		db	'p' xor BXlt
  5D36    C0              +     		db	'e' xor BXlt
  5D37    D7              +     		db	'r' xor BXlt
  5D38    C4              +     		db	'a' xor BXlt
  5D39    D1              +     		db	't' xor BXlt
  5D3A    CA              +     		db	'o' xor BXlt
  5D3B    D7              +     		db	'r' xor BXlt
  5D3C    9F              +     		db	':' xor BXlt
  5D3D    05              +     		db	' ' or 128 xor BXlt