clear;
logging on;
append;
log "c:\am186\text.log";
//
// *** bkpt test *** 
// 
_trgclrtrig;
fill 0x0p 0xfffffp 0x0;
map clear; 
$c0="All memory mapped to target";
if ($data_0!=$c0) {pause "map fail";print("map test fail");}
map 0x0p 0xfffffp ram; 
$c0="Mapped block #0: 000000P 0FFFFFP RAM";
if ($data_0!=$c0) {pause "map fail";print("map test fail");}
map; 
$c0="Mapped block #0: 000000P 0FFFFFP RAM";
if ($data_0!=$c0) {pause "map fail";print("map test fail");}
load "c:\am186\samp186\demo.omf" code symbols reload; 
$c0="1192 bytes code loaded.";
$c1="69 symbol(s) loaded.";
$c2="Load complete.";
if ($data_0!=$c0) {pause "load fail";print("load test fail");}
if ($data_1!=$c1) {pause "load fail";print("load test fail");}
if ($data_2!=$c2) {pause "load fail";print("load test fail");}
bkpt; 
$c0="No breakpoints set";
if ($data_0!=$c0) {pause "bkpt fail";print("bkpt test fail");}
bkpt #dm_main; bkpt; 
$c0="CLI bkpt: Ena Perm 21B0P (@0) dm_main,main,Line59,Col1-1";
if ($data_0!=$c0) {pause "bkpt fail";print("bkpt test fail");}
bkpt temp #dm_func#insert; bkpt; 
$c0="CLI bkpt: Ena Perm 21B0P (@0) dm_main,main,Line59,Col1-1";
$c1="CLI bkpt: Ena Temp 220CP (@1) dm_func,insert,Line83,Col1-1";
if ($data_0!=$c0) {pause "bkpt fail";print("bkpt test fail");}
if ($data_1!=$c1) {pause "bkpt fail";print("bkpt test fail");}
bkpt #dm_func#remove; bkpt; 
$c0="CLI bkpt: Ena Perm 21B0P (@0) dm_main,main,Line59,Col1-1";
$c1="CLI bkpt: Ena Temp 220CP (@1) dm_func,insert,Line83,Col1-1";
$c2="CLI bkpt: Ena Perm 22B4P (@2) dm_func,remove,Line118,Col1-1";
if ($data_0!=$c0) {pause "bkpt fail";print("bkpt test fail");}
if ($data_1!=$c1) {pause "bkpt fail";print("bkpt test fail");}
if ($data_2!=$c2) {pause "bkpt fail";print("bkpt test fail");}
bkpt perm; bkpt; 
$c0="CLI bkpt: Ena Perm 21B0P (@0) dm_main,main,Line59,Col1-1";
$c1="CLI bkpt: Ena Perm 220CP (@1) dm_func,insert,Line83,Col1-1";
$c2="CLI bkpt: Ena Perm 22B4P (@2) dm_func,remove,Line118,Col1-1";
if ($data_0!=$c0) {pause "bkpt fail";print("bkpt test fail");}
if ($data_1!=$c1) {pause "bkpt fail";print("bkpt test fail");}
if ($data_2!=$c2) {pause "bkpt fail";print("bkpt test fail");}
bkpt disable @2; bkpt; 
$c0="CLI bkpt: Ena Perm 21B0P (@0) dm_main,main,Line59,Col1-1";
$c1="CLI bkpt: Ena Perm 220CP (@1) dm_func,insert,Line83,Col1-1";
$c2="CLI bkpt: Dis Perm 22B4P (@2) dm_func,remove,Line118,Col1-1";
if ($data_0!=$c0) {pause "bkpt fail";print("bkpt test fail");}
if ($data_1!=$c1) {pause "bkpt fail";print("bkpt test fail");}
if ($data_2!=$c2) {pause "bkpt fail";print("bkpt test fail");}
bkpt enable #dm_func#remove; 
$c0="Breakpoint already set at:  address = 22B4P, bkpt id = @2.";
if ($data_0!=$c0) {pause "bkpt fail";print("bkpt test fail");}
bkpt; 
$c0="CLI bkpt: Ena Perm 21B0P (@0) dm_main,main,Line59,Col1-1";
$c1="CLI bkpt: Ena Perm 220CP (@1) dm_func,insert,Line83,Col1-1";
$c2="CLI bkpt: Dis Perm 22B4P (@2) dm_func,remove,Line118,Col1-1";
if ($data_0!=$c0) {pause "bkpt fail";print("bkpt test fail");}
if ($data_1!=$c1) {pause "bkpt fail";print("bkpt test fail");}
if ($data_2!=$c2) {pause "bkpt fail";print("bkpt test fail");}
bkptclear @2; bkpt; 
$c0="CLI bkpt: Ena Perm 21B0P (@0) dm_main,main,Line59,Col1-1";
$c1="CLI bkpt: Ena Perm 220CP (@1) dm_func,insert,Line83,Col1-1";
if ($data_0!=$c0) {pause "bkpt fail";print("bkpt test fail");}
if ($data_1!=$c1) {pause "bkpt fail";print("bkpt test fail");}
time; 
// February 19, 1998  8:51:15
go; 
$c0="Emulation started";
$c1="CS:0000    55               PUSH   BP";
$c2="CS:0000    55               PUSH   BP";
if ($data_0!=$c0) {pause "run fail";print("run test fail");}
if ($data_1!=$c1) {pause "run fail";print("run test fail");}
if ($data_2!=$c2) {pause "run fail";print("run test fail");}
emustatus; 
$c0="Processor is halted.";
if ($data_0!=$c0) {pause "run fail";print("run test fail");}
halt; 
time; 
emustatus; 
$c0="Processor is halted.";
if ($data_0!=$c0) {pause "run fail";print("run test fail");}
displaystack; 
$c0="SS:109C 0200:151 main";
if ($data_0!=$c0) {pause "stack fail";print("stack test fail");}
setStackAlarm 95;
stackinfo; 
$c0="stack base = 002B:1000";
$c1="size = 4096";
$c2="current stack pointer = SS:109C";
$c3="alarm limit = 95%, ENABLED";
$c4="stack type = high to low";
if ($data_0!=$c0) {pause "stack fail";print("stack test fail");}
if ($data_1!=$c1) {pause "stack fail";print("stack test fail");}
if ($data_2!=$c2) {pause "stack fail";print("stack test fail");}
if ($data_3!=$c3) {pause "stack fail";print("stack test fail");}
if ($data_4!=$c4) {pause "stack fail";print("stack test fail");}
bkptclear all; bkpt; 
$c0="No breakpoints set";
if ($data_0!=$c0) {pause "bkpt fail";print("bkpt test fail");}
// 
// 
logging off;