+
+sub main'puts
+ {
+ $constl++;
+ &main'push('$Lstring' . $constl);
+ &main'call('puts');
+ &main'add("esp",4);
+
+ $const .= "Lstring$constl:\n\t.string \"@_[0]\"\n";
+ }
+
+sub main'putx
+ {
+ $constl++;
+ &main'push($_[0]);
+ &main'push('$Lstring' . $constl);
+ &main'call('printf');
+ &main'add("esp",8);
+
+ $const .= "Lstring$constl:\n\t.string \"\%X\"\n";
+ }