.MACRO	ICHR$	PTY,CHAR
	.MCALL	OFF$
	.IF NDF	$$$GLB
	.BYTE	85.,2
	.BYTE	PTY
	.BYTE	CHAR
	.ENDC
	.IF NDF	I.CHRP
	.NLIST
	.IRP	X,<,<I.CHRP,1>,<I.CHRC,1>>
	OFF$	X
	.ENDM
	.LIST
	.ENDC
	.ENDM	ICHR$

	.MACRO	ICHR$C	PTY,CHAR,CS,ERR
	.MCALL	ICHR$,DIR$
	.IF NDF	$$$GLB
	.PSECT	$DPB$$
$$$=.
	.IFTF
	ICHR$	PTY,CHAR
	.IFT
	.PSECT	CS
	DIR$	#$$$,ERR
	.ENDC
	.ENDM	ICHR$C

	.MACRO	ICHR$S	PTY,CHAR,ERR
	.MCALL	MVB$,DIR$
	MVB$	PTY,CHAR
	MOV	(PC)+,-(SP)
	.BYTE	85.,2
	DIR$	,ERR
	.ENDM	ICHR$S

	.MACRO	OCHR$	PTY,CHAR,BUF
	.MCALL	OFF$
	.IF NDF	$$$GLB
	.BYTE	87.,3
	.BYTE	PTY
	.BYTE	CHAR
	.WORD	BUF
	.ENDC
	.IF NDF	O.CHRP
	.NLIST
	.IRP	X,<,<O.CHRP,1>,<O.CHRC,1>,<O.CHRB,2>>
	OFF$	X
	.ENDM
	.LIST
	.ENDC
	.ENDM	OCHR$

	.MACRO	OCHR$C	PTY,CHAR,BUF,CS,ERR
	.MCALL	OCHR$,DIR$
	.IF NDF	$$$GLB
	.PSECT	$DPB$$
$$$=.
	.IFTF
	OCHR$	PTY,CHAR,BUF
	.IFT
	.PSECT	CS
	DIR$	#$$$,ERR
	.ENDC
	.ENDM	OCHR$C

	.MACRO	OCHR$S	PTY,CHAR,BUF,ERR
	.MCALL	MOV$,MVB$,DIR$
	MOV$	BUF
	MVB$	PTY,CHAR
	MOV	(PC)+,-(SP)
	.BYTE	87.,3
	DIR$	,ERR
	.ENDM	OCHR$S