!--- EDIT # 0003	12 Apr 1981   17:53:38	DB0:[2,2]IOERR.TEC;6  !
!--- PREVIOUS EDIT	11 Feb 1981   22:00:38	DR1:[21,7]IOERR.TEC;4  !
! GIVEN AN I/O ERROR CODE, TYPE OUT THE ERROR MESSAGE !
! FORMAT OF INPUT PARAMETER IS:	!
! ^O177777	FOR THE FULLWORD OCTAL VALUE	!
! ^B777		FOR THE BYTE OCTAL VAULE	!
! ANYTHING ELSE IS DECIMAL			!
! A NEGATIVE VALUE IS CHANGED TO POSITIVE	!
1J ::SB"S FRO177400+'
ZJIU1

HX1 HK M1 Q1"L 0-Q1U1'
ERLB0:[1,2]QIOSYM.MSGY
JQ1-1LV HK
EX