--- Z80/Z80.pm	2007/08/03 15:03:14	112
+++ Z80/Z80.pm	2007/08/03 16:28:06	113
@@ -29,8 +29,6 @@
 
 our @mem = (0xff) x 0x10000;	# 64M
 
-# program counter
-our $PC = 0xbeef;
 # CPU registars
 our (
 	$AF, $BC, $DE, $HL, $IX, $IY, $PC, $SP,
@@ -169,11 +167,11 @@
 sub _update_perl_R {
 	warn "## Z80::update_perl_R(",dump(@_),")\n" if $debug;
 	(
-		$AF $BC $DE $HL $IX $IY $PC $SP
-		$AF1 $BC1 $DE1 $HL1;
-		$IFF $I
-		$R
-		$IPeriod $ICount $IRequest $IAutoReset $TrapBadOps $Trap $Trace
+		$AF, $BC, $DE, $HL, $IX, $IY, $PC, $SP,
+		$AF1, $BC1, $DE1, $HL1,
+		$IFF, $I,
+		$R,
+		$IPeriod, $ICount, $IRequest, $IAutoReset, $TrapBadOps, $Trap, $Trace
 	) = @_;
 
 	dump_R();