116 |
confess "no from address"; |
confess "no from address"; |
117 |
} |
} |
118 |
|
|
119 |
|
=head2 push_R |
120 |
|
|
121 |
|
called by C<perl.c> to push changes in registars back to perl variables |
122 |
|
|
123 |
|
=cut |
124 |
|
|
125 |
|
sub push_R { |
126 |
|
warn "push_R(",dump(@_),")\n"; |
127 |
|
my ( $a, $p, $x, $y, $s, $pc ) = @_; |
128 |
|
$PC = $pc; |
129 |
|
$S=$s; $X=$x; $Y=$y; $P=$p; $A=$a; |
130 |
|
dump_R(); |
131 |
|
} |
132 |
|
|
133 |
|
=head2 dump_R |
134 |
|
|
135 |
|
helper function which dumps registers |
136 |
|
|
137 |
|
=cut |
138 |
|
|
139 |
|
sub dump_R { |
140 |
|
warn sprintf("PC: %04x A:%02x P:%02x X:%02x Y:%02x S:%02x\n", $PC, $A, $P, $X, $Y, $S); |
141 |
|
} |
142 |
|
|
143 |
1; |
1; |