6,9c6,9
<    %externalroutinespec put(%integer n)
<    %externalroutinespec putword(%integer n)
<    %externalroutinespec putlong(%integer n)
<    %externalroutinespec putblock(%integer len, %bytename b)
---
> !   %externalroutinespec put(%integer n)
> !   %externalroutinespec putword(%integer n)
> !   %externalroutinespec putlong(%integer n)
> !   %externalroutinespec putblock(%integer len, %bytename b)
15c15,17
<    %externalstring(6) version = "V08.01"
---
> 
>    %externalstring(6) version = "V08.02"
> 
24c29
<    %CONSTINTEGER max dict     = 6000;         !max extent of dictionary
---
>    %CONSTINTEGER max dict     = 9000;         !max extent of dictionary
162d191
<    %OWNINTEGER statpos = 0;                  !statement start position
277c319
<           s = char(statpos+p);  p = p+1
---
>           s = char(margin+p);  p = p+1
546,547c617,618
<       nextsymbol==char(1)
<       readrecord(len,nextsymbol)
---
>       nextsymbol == char(1)
>       readrecord (len, nextsymbol)
551c622
<       statpos = 0
---
>       column = 0;           !???????????????????????????????????
555c626
<    nextsymbol == byteinteger(addr(nextsymbol)+1)
---
>    nextsymbol == nextsymbol ++ 1
558c629,630
<   %end
---
> %end
> 
1088c1227
<    statpos = pos
---
> 
1488c1685
<          %IF ub < lb %START
---
>          %IF ub < lb-1 %START
2021c2275,2276
< c(157):lit = -pstack(pending);  pstack(pending) = lit;  ->top;  !csign
---
> c(157):-> top %if X#36          { JGH fix to %const %integer X = +1 => -1 bug }
>        lit = -pstack(pending);  pstack(pending) = lit;  ->top;  !csign
2067c2329,2330
<       Computer Science VAX-11 IMP77 Compiler.  Version 8.01
---
>       Computer Science VAX-11 IMP77 Compiler.  Version 8.02
>