cQQ ;Simulatie ;cQQ; [ 06/22/01  10:09 AM ]
 ;
T0 ;Simulatie ;
 ;
T0F ;Simulation ;
 ;
 D E^cA612 ; U 0::"^cX364"
START B 1 S $ZT="ERR^"_$T(+0)
 X "F  U 0 S z(2)=$ZR,z(3)=$T(+0) W !,$ZU(5),"","",$ZU(110),"">"" R z(1) W ! D V^cQQ Q:z(1)=""Q""  ZL:$L(z(3)) @z(3) K z(2),z(3) X ""ZI z(1) K z(3)"":$F(z(1),$C(9)),z(1):'$F(z(1),$C(9))"
 ;
YZ k z(1),z(2),z(3) S $ZT="^%ET" Q
 ;
V S:$TR(z(1),"h","H")="H" z(1)="Q" S:$TR(z(1),"halt","HALT")="HALT" z(1)="Q"
 I $L(z(3)),$E(z(3))'="%",'$D(^$R(z(3))) S z(3)=""
 I z(3)=$T(+0) s z(3)="" X "ZR  "
 S $ZT="PROT^"_$T(+0) I $L(z(2)),$E(z(2))="^" S z(2)=$D(@z(2))
 S $ZT="ERR^"_$T(+0) Q
 ;
PROT S $ZT="ERR^"_$T(+0),z(2)="" Q
 ;
ERR S $ZT="^%ET" B 0 U 0 K z(3)
 H:$ZE["<DSCON>"
 I $ZE[$T(+0) D
 . W !,z(1),!!,$P($ZE,">"),">"
 E  D
 . S z(5)=$P($P($ZE,">",2),":"),z(6)="" I $L(z(5)) X "S z(6)=$T("_z(5)_")"
 . I $ZE'["<DSCON>" W !,$ZE,!," 1) ",z(5),"::",z(6),!," 0) *XECUTE*:: ",z(1),!,$ZE,z(6)
 . K z(5),z(6)
 H:$ZE["<INTERRUPT>" 2 G START
 ;
ZZ ; 24.08.01 -  9 u 19 * Cache-r3.1.8