home *** CD-ROM | disk | FTP | other *** search
/ M.u.C.S. Disc 2000 / MUCS2000.iso / falcon / m_analyz / source / lodtoasm.pas < prev    next >
Pascal/Delphi Source File  |  1995-01-15  |  584b  |  35 lines
  1. program LodToAsm;
  2.  
  3. uses Tos;
  4.  
  5. var
  6.     i:integer;
  7.     t:text;
  8.     b:byte;
  9.     buf:array[0..65535] of byte;
  10.     len:longint;
  11.  
  12. begin
  13.     len:=Dsp_LodToBinary('DSP.LOD',@buf[0])*3;
  14.     Assign( t, 'DSPBIN.S' );
  15.     Rewrite( t );
  16.  
  17.     Writeln( t, '        EXPORT dsp_bin, end_of_dspbin' );
  18.     Writeln( t );
  19.     Writeln( t, '        DATA');
  20.     Writeln( t );
  21.     Writeln( t, 'dsp_bin:' );
  22.     for i:=0 to len-1 do begin
  23.         b:=buf[i];
  24.         if (i mod 16)=0 then begin
  25.             Writeln( t );
  26.             Write(t, '        dc.b    ',b);
  27.         end
  28.         else
  29.             Write(t,', ',b);
  30.     end;
  31.     Writeln( t );
  32.     Writeln( t, 'end_of_dspbin:' );
  33.     Close( t );
  34. end.
  35.