#include <perms.h>

                                                                //      1  %systemroutine write(%integer n,p)
#line 1 "regression-bugs-tmp/write.imp"
extern void write( int N, int P )
#line 1 "regression-bugs-tmp/write.imp"
{
                                                                //      2  %integer q,r
#line 2 "regression-bugs-tmp/write.imp"
int Q;
#line 2 "regression-bugs-tmp/write.imp"
int R;
                                                                //      3    %if p>0 %start
#line 3 "regression-bugs-tmp/write.imp"
if (((P) <= (0))) goto L_0002;
                                                                //      4      p = \p; printsymbol(' ') %and p = p+1 %if n>=0
#line 4 "regression-bugs-tmp/write.imp"
P = (~(P));
#line 4 "regression-bugs-tmp/write.imp"
if (((N) < (0))) goto L_0003;
#line 4 "regression-bugs-tmp/write.imp"
_imp_PRINTSYMBOL(32);
#line 4 "regression-bugs-tmp/write.imp"
P = (((int)(P)) + (1));
#line 4 "regression-bugs-tmp/write.imp"
L_0003:;
                                                                //      5    %finish
#line 5 "regression-bugs-tmp/write.imp"
L_0002:;
                                                                //      6    p = -120 %if p<-120
#line 6 "regression-bugs-tmp/write.imp"
if (((P) >= ((-120)))) goto L_0004;
#line 6 "regression-bugs-tmp/write.imp"
P = (-120);
#line 6 "regression-bugs-tmp/write.imp"
L_0004:;
                                                                //      7    q = n//10; *move.l d1,r
#line 7 "regression-bugs-tmp/write.imp"
Q = (long)((long)((int)(N)) / (long)((int)(10)));
                                                                //      8    %if q=0 %start
#line 8 "regression-bugs-tmp/write.imp"
if (((Q) != (0))) goto L_0005;
                                                                //      9      p = p+1 %if n<0; spaces(-1-p); printsymbol('-') %if n<0
#line 9 "regression-bugs-tmp/write.imp"
if (((N) >= (0))) goto L_0006;
#line 9 "regression-bugs-tmp/write.imp"
P = (((int)(P)) + (1));
#line 9 "regression-bugs-tmp/write.imp"
L_0006:;
#line 9 "regression-bugs-tmp/write.imp"
_imp_SPACES((((int)((-1))) - (P)));
#line 9 "regression-bugs-tmp/write.imp"
if (((N) >= (0))) goto L_0007;
#line 9 "regression-bugs-tmp/write.imp"
_imp_PRINTSYMBOL(45);
#line 9 "regression-bugs-tmp/write.imp"
L_0007:;
                                                                //     10    %else
#line 10 "regression-bugs-tmp/write.imp"
goto L_0008;
#line 10 "regression-bugs-tmp/write.imp"
L_0005:;
                                                                //     11      p = p+1 %if p<0; write(q,p)
#line 11 "regression-bugs-tmp/write.imp"
if (((P) >= (0))) goto L_0009;
#line 11 "regression-bugs-tmp/write.imp"
P = (((int)(P)) + (1));
#line 11 "regression-bugs-tmp/write.imp"
L_0009:;
#line 11 "regression-bugs-tmp/write.imp"
write(Q, P);
                                                                //     12    %finish
#line 12 "regression-bugs-tmp/write.imp"
L_0008:;
                                                                //     13    printsymbol(|r|+'0')
#line 13 "regression-bugs-tmp/write.imp"
_imp_PRINTSYMBOL(((_imp_IMOD(R)) + (48)));
                                                                //     14  %end
#line 14 "regression-bugs-tmp/write.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block write at level 1
                                                                //     15  
                                                                //     16  %endoffile
#line 16 "regression-bugs-tmp/write.imp"
// End of file
