NEW
  AUTO 3,1
*--------------------------------------
* GetErrorMessage
*  In : 
*  Out : 
*--------------------------------------
K.GetErrorMessage
				>PULLW ZPPtr2			Dst Buf
				>PULLA					Err Code
				
				sta SETREADAUX
				sta SETWRITEAUX
				
				jsr ERRORX.GetErrorMessage

				sta CLRREADAUX
				rts
*--------------------------------------
MAN
SAVE USR/SRC/SYS/KERNEL.S.ERROR
LOAD USR/SRC/SYS/KERNEL.S
ASM
