dbgasm.pas

Borland Pascal写的8051单片机模拟仿真器。内有源码

unit DbgAsm;

interface

uses WinTypes, DbgZmTypy;

function  BtoREG(co:byte):string;
function  Deasm(adr:word):string;
function  JestRej(co:string):byte;
function  JestBit(co:string):byte;
function  Reasm(ad:word;co:KodRozk):PoAsm;
procedure BajtyWstaw(Okno:HWnd;sel,adres,max:word;var adre:word);
procedure WypelnijInstr(uchwyt:HWnd;adrptr:pointer);

const TabIleCykli:array[0..255] of byte=(
  1,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1, 2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,
  2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1, 2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,
  2,2,1,2,1,1,1,1,1,1,1,1,1,1,1,1, 2,2,1,2,1,1,1,1,1,1,1,1,1,1,1,1,
  2,2,1,2,1,1,1,1,1,1,1,1,1,1,1,1, 2,2,2,2,1,2,1,1,1,1,1,1,1,1,1,1,
  2,2,2,2,4,2,2,2,2,2,2,2,2,2,2,2, 2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,
  2,2,1,2,4,1,2,2,2,2,2,2,2,2,2,2, 2,2,1,1,2,2,2,2,2,2,2,2,2,2,2,2,
  2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 2,2,1,1,1,2,1,1,2,2,2,2,2,2,2,2,
  2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1, 2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1);

const TabIleBajtow:array[0..255] of byte=(
  1,2,3,1,1,2,1,1,1,1,1,1,1,1,1,1, 3,2,3,1,1,2,1,1,1,1,1,1,1,1,1,1,
  3,2,1,1,2,2,1,1,1,1,1,1,1,1,1,1, 3,2,1,1,2,2,1,1,1,1,1,1,1,1,1,1,
  2,2,2,3,2,2,1,1,1,1,1,1,1,1,1,1, 2,2,2,3,2,2,1,1,1,1,1,1,1,1,1,1,
  2,2,2,3,2,2,1,1,1,1,1,1,1,1,1,1, 2,2,2,1,2,3,2,2,2,2,2,2,2,2,2,2,
  2,2,2,1,1,3,2,2,2,2,2,2,2,2,2,2, 3,2,2,1,2,2,1,1,1,1,1,1,1,1,1,1,
  2,2,2,1,1,1,2,2,2,2,2,2,2,2,2,2, 2,2,2,1,3,3,3,3,3,3,3,3,3,3,3,3,
  2,2,2,1,1,2,1,1,1,1,1,1,1,1,1,1, 2,2,2,1,1,3,1,1,2,2,2,2,2,2,2,2,
  1,2,1,1,1,2,1,1,1,1,1,1,1,1,1,1, 1,2,1,1,1,2,1,1,1,1,1,1,1,1,1,1);

implementation

uses WinProcs, Strings, BWCC;

{**************************************************}
{ POCZ