.IIF NDF DIGTST,.NLIST	;DONT LIST IF NOT DISUTL MODULE
	.TITLE DISPRE PREFIX FILE FOR DISASSEMBLER
;
	.MCALL CALL,RETURN
;
; OTHER MISC MACROS
;
;
.MACRO	PACK CHR
	MOVB	CHR,(R0)+
.ENDM
;
.MACRO	PRNTM BUF,BUFSZ
	MOV	BUF,R1
	.IF B <BUFSZ>
	MOV	(R1)+,R2
	.IFF
	MOV	BUFSZ,R2
	.ENDC
	CALL	$PUTLIN
.ENDM
;
.MACRO TYPMSG AD,SIZ
	.IF B <SIZ>
	.NTYPE Z,AD
	.IF EQ Z
	MOV	(AD)+,R2
	MOV	(AD),R1
	.IFF
	MOV	AD,R1
	MOV	(R1)+,R2
	.ENDC
	.IFF
	MOV	AD,R1
	MOV	SIZ,R2
	.ENDC
	CALL	$TYPMSG
.ENDM
;
.MACRO MSG NAM,TXT
	.EVEN
NAM:	.WORD 1$-.-2
	.ASCII /TXT/
1$:
	.EVEN
.ENDM
;
.MACRO GETWRD AD
	.IF NB <AD>
	MOV	AD,R5
	.ENDC
	CALL	@.GETAD
.ENDM
;
.MACRO CALLR X
	JMP	X
.ENDM
;
	.NLIST	ME
	.NLIST BEX
	.IIF NDF DIGTST,.LIST