perm filename IOSER.DIF[10X,AIL]1 blob sn#186789 filedate 1975-11-21 generic text, type T, neo UTF8

	1) IOSER.TNX vs. 2) IOSER.TNX[1,RS]	SRCCOM	11-21-75	03:24	PAGES 1,1

******** IOSER.TNX **** PAGE 23  LINE 19
1)	01900		MOVEI 	3,1		; NO MATCH;
1)	02000		MOVEI 	3,2 		; AMBIGUOUS
1)	02100		MOVEM 	3,.SKIP.	; SAVE IT FOR USER
*** IOSER.TNX[1,RS] *** PAGE 23  LINE 19
2)	     		  SKIPA	3,[1]		; NO MATCH;
2)	     		  MOVEI	3,2 		; AMBIGUOUS
2)	     		MOVEM 	3,.SKIP.	; SAVE IT FOR USER


******** IOSER.TNX **** PAGE 66  LINE 74
1)	07400		SKIPN	LINNUM(CDB)	;COUNTING VIA SETPL FUNCTION??
1)	07500		  JRST	INB1		;NO
1)	07600		CAIN	D,12		;LINE-FEED?
1)	07700		  AOS	@LINNUM(CDB)	;INDICATE ANOTHER LINE
*** IOSER.TNX[1,RS] *** PAGE 66  LINE 74
2)	     		CAILE	D,14		;FIRST CHECK
2)	     		  JRST	INB1		;IF IN RANGE AT ALL
2)	     		CAIN	D,12
2)	     		CAIE	D,14		;CR OR LF?
2)	     		  JRST	INB1		;NO
2)	     		SKIPN	LINNUM(CDB)	;COUNTING VIA SETPL FUNCTION??
2)	     		  JRST	INB1		;NO
2)	     		TDNN	FF,@Y		;SOMETHING SPECIAL FOR THIS CHARACTER?
2)	     		  JRST	INCR		;NO NOTHING SPECIAL
2)	     		HLLZ	TEMP,@Y		;GET BITS FOR THIS CHAR
2)	     		TDNN	TEMP,FF		;IGNORE?
2)	     		  JRST	INCR		;YES
2)	     		MOVE	TEMP,-1(P)	;BREAKTABLE (RELOCATED)
2)	     		SKIPLE	DSPTBL(TEMP)	;APPEND OR SKIP?
2)	     		  JRST	INB1		;YES
2)	     	INCR:	CAIN	D,12		;LINE-FEED?
2)	     		  AOS	@LINNUM(CDB)	;INDICATE ANOTHER LINE


******** IOSER.TNX **** PAGE 101  LINE 34
1)	03400		JSYS	RIR
1)	03500		JUMPN	2,.+3		;ALREADY THERE
1)	03600		MOVE	2,[XWD LEVTAB,CHNTAB]
*** IOSER.TNX[1,RS] *** PAGE 101  LINE 34
2)	     	;;	JSYS	RIR
2)	     	;;	JUMPN	2,.+3		;ALREADY THERE
2)	     		MOVE	2,[XWD LEVTAB,CHNTAB]