repo.or.cz
/
parrot.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
+ Correct docs/project/roles_responsibilities.pod location.
[parrot.git]
/
examples
/
pasm
/
hello.pasm
blob
385cfd32587af10f677441eb6955ef9ddf674b7c
1
# $Id$
2
3
=head1 NAME
4
5
hello.pasm - Hello World
6
7
=head1 DESCRIPTION
8
9
This is also used in the top Makefile,
10
for showing how to create an executable from PASM.
11
12
=cut
13
14
# Get @ARGV as a ResizableStringArray
15
get_params "0", P0
16
17
# Discard the program name
18
shift S0, P0
19
20
# Look for additional args
21
if P0, FOUND_EXTRA_ARG
22
print "Hello World\n"
23
end
24
25
FOUND_EXTRA_ARG:
26
shift S1, P0
27
print "Hello "
28
print S1
29
print "\n"
30
end