perm filename BUGSAI.SAI[VLI,LSP] blob sn#381948 filedate 1978-09-08 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	begin integer nquoilu,i
C00004 ENDMK
CāŠ—;
begin integer nquoilu,i;
	define CRLF ="'15&'12";
	nquoilu ā† CVSIX(INCHWL);
	outstr("octal value of stuff entered is "&CRLF);
	OUTSTR(CVOS(nquoilu)&CRLF);
        start!code
	move 2,nquoilu;tlnn 2,'77;lsh 2,-6;tlnn 2,'77;lsh 2,-6;
	movem 2,nquoilu;
	end;
	outstr("octal value of stuff right-justified in LH of NQUOILU"
               &CRLF);
	OUTSTR(CVOS(nquoilu)&CRLF);

	outstr("and now, just because of the for-block "&CRLF);
	outstr("the value of NQUOILU seems to have changed"&CRLF);
	outstr("is it a SAIL bug ???"&CRLF);
	for i ā† 1 step 1 until 2 do
	begin
		OUTSTR(CVOS(nquoilu)&CRLF);
	end;
	outstr("and now,outside the for-block"&CRLF);
	outstr("the value of NQUOILU is"&CRLF);
	OUTSTR(CVOS(nquoilu)&CRLF);
	outstr("very strange indeed ..."&CRLF);

end;