The Perq IMP compiler calls CODEOUT to print the assembly code corresponding
to the source just compiled.

%ROUTINE RECODE(%INTEGER S,F,AD)
         %IF S#F %START
            PRINTSTRING("
CODE FOR LINE"); WRITE(LINEST,5)
            QCODE(S,F,AD,16)
         NEWLINE
         %FINISH
%END
%ROUTINE CODEOUT
      %IF CODECURR>0 %THEN %START
         %IF LISTCODE#0 %THEN  %C
               RECODE(ADDR(CODE(0)),CODECURR, CODEBASE)
         QPUT(41,CODECURR,CODEBASE,ADDR(CODE(0)))
         CODECURR=0;  CODEBASE=CODECA
      %FINISH
%END