There are no other files named bas21.bwr in the archive.
COPYRIGHT (C) 1977, 1979, 1981 BY
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND JANUARY BE USED AND COPIED
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
COPIES THEREOF JANUARY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
BAS21.BWR Page 2
KS processors have a microcode problem such that the program
10 REM MICROCODE BUG DEMONSTRATOR
20 READ P,R
30 IF P=-9999 THEN 70
40 LET I=P*R
50 PRINT "INTEREST IS";I
60 GO TO 20
65 DATA 1400,.056,3800,.038,4200,.045,-9999,-9999
will print four lines of output and then die with
? 57 End of DATA found at line 00010 of MAIN PROGRAM
The microcode deficiency is causing the first -9999 to be read as
-9999.0001, so the test in line 30 is failing. In cases like this,
line 30 may be changed to read
30 IF P==-9999 THEN 70
so that the test is satisfied if the values are approximately equal.
This problem will be fixed in the next release of the KS microcode.