Edinburgh IMP77 Compiler - Version 8.4

    1  %systemroutine write(%integer n,p)
    2  %integer q,r
    3    %if p>0 %start
    4      p = \p; printsymbol(' ') %and p = p+1 %if n>=0
    5    %finish
    6    p = -120 %if p<-120
    7    q = n//10; *move.l d1,r
    8    %if q=0 %start
    9      p = p+1 %if n<0; spaces(-1-p); printsymbol('-') %if n<0
   10    %else
   11      p = p+1 %if p<0; write(q,p)
   12    %finish
   13    printsymbol(|r|+'0')
   14  %end
   15  
   16  %endoffile

   20 Statements compiled