File 1)	DSK:IOSER.SUA	created: 1716 08-SEPT-1974
File 2)	DSK:IOSER.CMU	created: 1715 08-SEPT-1974

1)6		CAIL	X,"0"
****
2)6	;;=C4= 1 of several LDE 28-Jun-74	allow null ppn within [].
2)		CAIN	X,"]"		;is it null?
2)		JRST	OCTPPN		; yes -- let the other guy handle it.
2)	;;
2)		CAIL	X,"0"
**************
1)6		CAIN	Y,"]"	;THE END?
****
2)6	;;=C4= 2 OF SEVERAL
2)		JUMPE	Y,FLN2	;IGNORE NULLS
2)	;;
2)		CAIN	Y,"]"	;THE END?
**************
1)6			MOVE	D,PROJ(USER)	;WAS A HLLZ
1)	;;
****
2)6	;;=C4= 3 OF several LE03 28-JUN-74	ALLOW NULL PPN
2)	;		MOVE	D,PROJ(USER)	;WAS A HLLZ
2)			SKIPN	D,PROJ(USER)
2)			POPJ	P,
2)	;;
2)	;;
**************
1)6		JRST	FLERR		;INVALID CHAR
1)		PUSHJ	P,RJUST		;JUSTIFY(AND CONVERT IF EXPORT) PROG #
1)		HRRM	X,FNAME+3(USER)
1)		CAIN	Y,"]"
****
2)6	;;=C4 4 OF several
2)	;	JRST	FLERR		;INVALID CHAR
2)		JRST	[JUMPE	X,FLDUN1	;ALLOW NULL PPN - CHECK FOR "]"
2)			 JRST	FLERR]		;A REAL ERROR.
2)	;;
2)		PUSHJ	P,RJUST		;JUSTIFY(AND CONVERT IF EXPORT) PROG #
2)		HRRM	X,FNAME+3(USER)
2)	;;=C4= 5 OF several.
2)	FLDUN1:
2)	;;
2)		CAIN	Y,"]"
**************
1)7		TRZN	Y,100		;MOVE 100 BIT TO 40 BIT
****
2)7	;;=C4=	6 of several.	IGNORE NULL CHARACTERS.
2)		JUMPE	Y,FLN2X
2)	;;
2)		TRZN	Y,100		;MOVE 100 BIT TO 40 BIT
**************
1)7		SOJA	D,FLN1		;CONTINUE
****
2)7	;;=C4= 7 of several
File 1)	DSK:IOSER.SUA	created: 1716 08-SEPT-1974
File 2)	DSK:IOSER.CMU	created: 1715 08-SEPT-1974

2)	FLN2X:
2)	;;
2)		SOJA	D,FLN1		;CONTINUE
**************