examples/pasm/hello.pasm

   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