--- figforth_pace.orig.asm 2009-06-15 18:00:29.000000000 -0700 +++ figforth_pace.fixed.asm 2009-06-15 18:01:54.000000000 -0700 @@ -15,6 +15,7 @@ ;* SAN CARLOS, CA 94070 * ;* * ;* PACE IMPLEMENTATION BY DAVID KILBRIDGE * +;* USLASH BUG FIX BY ERIC SMITH, 9-MAY-2009 * ;*************************************************** ; .ASECT @@ -459,9 +460,8 @@ CAI X,1 ; SAVE -(DIVISOR) FOR ST X,1(SP) ; CONVENIENCE LI X,16 ; LOOP COUNT - SHL 0,1,1 ; SHIFT LO INTO LINK -POOL: ROL 1,1,1 ; ROTATE HI WITH LINK - ROL 0,1,1 ; ROTATE HI INTO QUOT +POOL: SHL 0,1,1 ; SHIFT LO WITH LINK + ROL 1,1,1 ; ROTATE LINK INTO HI ADD 1,1(SP) ; SUBTR DIVSR FROM HI SUBB 0,MIN1 ; ADD CARRY TO QUOT BOC BIT0,.+2 ; IF QUOT BIT = 0,