log "d:\cathy\include\mp68k\v2.3\302\ca1.log";
clear;
logging on;
append;
//
// *** Bkpt Test ***
//
map clear;
$c0="All memory mapped to target";
if($data_0!=$c0) { print("map failed"); }
map 0x0 0x7ffff ram;
$c0="Mapped block #0: 0x000000 0x07FFFF RAM UP UD SP SD";
if($data_0!=$c0) { print("map failed"); }
map;
$c0="Mapped block #0: 0x000000 0x07FFFF RAM UP UD SP SD";
if($data_0!=$c0) { print("map failed"); }
fill 101 7ffff 0x0;
load "d:\mp68kv2.3\samp68k\demo.abs" code symbols reload;
$c0="3314 bytes code loaded.";
$c1="2 module(s) loaded.";
$c2="Load complete.";
if($data_0!=$c0) { print("load failed"); }
if($data_1!=$c1) { print("load failed"); }
if($data_2!=$c2) { print("load failed"); }
bkpt;
$c0="No breakpoints set";
if($data_0!=$c0) { print("bkpt test failed"); }
bkpt #dm_main; bkpt;
$c0="CLI bkpt: Ena Perm 0x45A SP (@0) S:\TCHAIN\MRI\V4.5\GENE\dm_main.c,main,Line68,Col1-16";
if($data_0!=$c0) { print("bkpt test failed"); }
bkpt temp #dm_func#insert; bkpt;
$c0="CLI bkpt: Ena Perm 0x45A SP (@0) S:\TCHAIN\MRI\V4.5\GENE\dm_main.c,main,Line68,Col1-16";
$c1="CLI bkpt: Ena Temp 0x4B2 SP (@1) S:\TCHAIN\MRI\V4.5\GENE\dm_func.c,insert,Line84,Col1-43";
if($data_0!=$c0) { print("bkpt test failed"); }
if($data_1!=$c1) { print("bkpt test failed"); }
bkpt #dm_func#remove; bkpt;
$c0="CLI bkpt: Ena Perm 0x45A SP (@0) S:\TCHAIN\MRI\V4.5\GENE\dm_main.c,main,Line68,Col1-16";
$c1="CLI bkpt: Ena Temp 0x4B2 SP (@1) S:\TCHAIN\MRI\V4.5\GENE\dm_func.c,insert,Line84,Col1-43";
$c2="CLI bkpt: Ena Perm 0x4EA SP (@2) S:\TCHAIN\MRI\V4.5\GENE\dm_func.c,remove,Line119,Col1-25";
if($data_0!=$c0) { print("bkpt test failed"); }
if($data_1!=$c1) { print("bkpt test failed"); }
if($data_2!=$c2) { print("bkpt test failed"); }
bkpt perm; bkpt;
$c0="CLI bkpt: Ena Perm 0x45A SP (@0) S:\TCHAIN\MRI\V4.5\GENE\dm_main.c,main,Line68,Col1-16";
$c1="CLI bkpt: Ena Perm 0x4B2 SP (@1) S:\TCHAIN\MRI\V4.5\GENE\dm_func.c,insert,Line84,Col1-43";
$c2="CLI bkpt: Ena Perm 0x4EA SP (@2) S:\TCHAIN\MRI\V4.5\GENE\dm_func.c,remove,Line119,Col1-25";
if($data_0!=$c0) { print("bkpt test failed"); }
if($data_1!=$c1) { print("bkpt test failed"); }
if($data_2!=$c2) { print("bkpt test failed"); }
bkpt disable @2; bkpt;
$c0="CLI bkpt: Ena Perm 0x45A SP (@0) S:\TCHAIN\MRI\V4.5\GENE\dm_main.c,main,Line68,Col1-16";
$c1="CLI bkpt: Ena Perm 0x4B2 SP (@1) S:\TCHAIN\MRI\V4.5\GENE\dm_func.c,insert,Line84,Col1-43";
$c2="CLI bkpt: Dis Perm 0x4EA SP (@2) S:\TCHAIN\MRI\V4.5\GENE\dm_func.c,remove,Line119,Col1-25";
bkpt enable #dm_func#remove; bkpt;
$c0="CLI bkpt: Ena Perm 0x45A SP (@0) S:\TCHAIN\MRI\V4.5\GENE\dm_main.c,main,Line68,Col1-16";
$c1="CLI bkpt: Ena Perm 0x4B2 SP (@1) S:\TCHAIN\MRI\V4.5\GENE\dm_func.c,insert,Line84,Col1-43";
$c2="CLI bkpt: Dis Perm 0x4EA SP (@2) S:\TCHAIN\MRI\V4.5\GENE\dm_func.c,remove,Line119,Col1-25";
if($data_0!=$c0) { print("bkpt test failed"); }
if($data_1!=$c1) { print("bkpt test failed"); }
if($data_2!=$c2) { print("bkpt test failed"); }
bkptclear @2; bkpt;
$c0="CLI bkpt: Ena Perm 0x45A SP (@0) S:\TCHAIN\MRI\V4.5\GENE\dm_main.c,main,Line68,Col1-16";
$c1="CLI bkpt: Ena Perm 0x4B2 SP (@1) S:\TCHAIN\MRI\V4.5\GENE\dm_func.c,insert,Line84,Col1-43";
if($data_0!=$c0) { print("bkpt test failed"); }
if($data_1!=$c1) { print("bkpt test failed"); }
time;
go;
emustatus;
halt;
time;
emustatus;
displaystack;
stackinfo;
bkptclear all; bkpt;
logging off;